cAB15	;Beheer ^DMH; %AB11 [ 03/29/01  9:36 AM ]
	;
T0	; Beheer commentaar ;
T1	;Commentaar tonen;
T2	;Xecute om commentaar te tonen;
T3	;Xecute om commentaar te verwijderen;
T4	;Nummer element;
T5	;Commentaar tonen\"[] = neen    1[] = ja";
	;
1	D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
11	D SCHRIJF
13	S R="KEUZE\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\1\\""-123""[K\\\\\\\\\" D R0 G YZ:K="-"
15	S INHOUD=$P($G(^DMH(UQH,USH,"0","COM")),D,KEUZE)
17	I KEUZE=1 S R="INHOUD\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-1""[K\\\\\1\\\\" D R0 G 13:K="-"
	I KEUZE="1" G 23
19	I KEUZE=2 S TITEL=$P($T(@("T2"_QT)),U,2)
	;
2	I KEUZE=3 S TITEL=$P($T(@("T3"_QT)),U,2)
21	S INHOUD=$$I^cAB1(INHOUD,TITEL)
23	S $P(^DMH(UQH,USH,"0","COM"),D,KEUZE)=INHOUD
25	I $P($G(^DMH(UQH,USH,"0","COM")),D)=""&($P($G(^DMH(UQH,USH,"0","COM")),D,2)="")&($P($G(^DMH(UQH,USH,"0","COM")),D,3)="") K ^DMH(UQH,USH,"0","COM")
27	G 11
	;
YZ	D C^cA612 Q      
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
SCHRIJF	W /CUP(1,1),@F1
	W /CUP(2,1),@F6,$P($T(@("T1"_QT)),U,2),@F9,": "
	W /CUP(3,2),"1 : ",$$JN^cAFO1($P($G(^DMH(UQH,USH,"0","COM")),D,1))
	W /CUP(5,1),@F6,$P($T(@("T2"_QT)),U,2),@F9,": "
	W /CUP(6,2),"2 : ",$E($P($G(^DMH(UQH,USH,"0","COM")),D,2),1,78)
	W /CUP(8,1),@F6,$P($T(@("T3"_QT)),U,2),@F9,": "
	W /CUP(9,2),"3 : ",$E($P($G(^DMH(UQH,USH,"0","COM")),D,3),1,78)
SCHRIJFZ	Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86