cAB1072	; Beheer ^DMA ;%AB10 ; [ 11/29/01  2:08 PM ]
	;
T1	;Volledige detail per rubriek;
	;
1	X F70 W @F80
11	W !,@F82,$NA(^DMA(UQA,USA),2),@F83,$$CR^cA334,?70,DT
13	W !,$P($T(T1),U,2),?71,TD,!
	;
	; Algemene definitie         
2	S (I,J)=0 F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  D
	. S U2=^(J)
	. W !,$NA(@$ZR,4)," = ",U2
	. I J="TIT",$D(^(J,"ALT")) W " ",^("ALT")
	;
	; Pagina per pagina
3	F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  D
	. W !!,@F86,"Pagina ",I,@F87
	. S U1=0 F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  D
	.. S U1=U1+1 K U2 M U2=^(J) F U2=1:1:25 S U2(U2)=$G(U2(U2))
	.. W !!,@F88,"Rubriek ",U1,@F89,$$CR^cA334,?17,": ",$NA(^DMA(UQA,USA,I,J),4)
	.. W !," 1. Prompt N.",?17,": ",$P(U2(1),D)
	.. W !," 2. Lijnnummer",?17,": ",U2(2),?22," 5. Data type",?38,": ",$P("tekst\numeriek\datum\J/N",D,U2(4)+1)
	.. W !," 3. Kolom prompt",?17,": ",U2(3),?22," 6. Lengte input",?38,": ",U2(9),?44,"8. Nummer tonen",?59,": ",$$JN^cAFO1(U2(22)),?66,"10. Uti: ",$S($L(U2(24)):$$JN^cAFO1(U2(24)),1:"zie 8")
	.. W !," 4. Kolom output",?17,": ",U2(6),?22," 7. Lengte tonen",?38,": ",U2(13),?44,"9. Prompt tonen",?59,": ",$$JN^cAFO1(U2(23)),?66,"11. Uti: ",$S($L(U2(25)):$$JN^cAFO1(U2(25)),1:"zie 9")
	.. W !,"12. B-index",?17,": ",U2(16)
	.. W !,"13. X ipv B-index",?17,": ",U2(17)
	.. W !,"14. X voor input",?17,": ",U2(7)
	.. W !,"15. X ipv. input",?17,": ",U2(19)
	.. W !,"16. Inputcontrole",?17,": ",U2(11)
	.. W !,"17. X  na  input",?17,": ",U2(12)
	.. W !,"18. X ivm output",?17,": ",U2(8)
	.. W !,"19. Cond. n.wijz.",?17,": ",U2(15)
	.. W !,"20. Commentaar N",?17,": ",$P(U2(10),D)
	.. W !,"21. Prompt F",?17,": ",$P(U2(1),D,2)
	.. W !,"22. Commentaar F",?17,": ",$P(U2(10),D,2)
	.. W !,"23. Link v.Utili",?17,": ",U2(18)
	;
YZ	W $$FF^cA334 X F71 Q
	;
ZZ	; 10.12.01 - 10 u 49 * V7.9