cAB14 ;Beheer ^DMH; %AB11 [ 02/21/00  4:26 PM ]
 ;
T0 ; Beheer UDO'kes ;
T1 ;Xecute voor het oproepen van de scroll;
T2 ;Xecute nà het oproepen van de scroll;
T3 ;Nummer element;
 ;
1 ;D O^cA612(2,1,20,80,1,0,0,1),T^cA612($P($T(@("T0"_QT)),U,2),0,1,1,0,0) ;10.03.00
 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(@("T3"_QT)),U,2)_"\\1\\""-12""[K\\\\\\\\\" D R0 G YZ:K="-"
15 S INHOUD=$P($G(^DMH(UQH,USH,"0","UDO")),D,KEUZE)
17 I KEUZE=1 S TITEL=$P($T(@("T1"_QT)),U,2)
19 I KEUZE=2 S TITEL=$P($T(@("T2"_QT)),U,2)      
 ;
2 S INHOUD=$$I^cAB1(INHOUD,TITEL)
21 S $P(^DMH(UQH,USH,"0","UDO"),D,KEUZE)=INHOUD
23 I $P($G(^DMH(UQH,USH,"0","UDO")),D)=""&($P($G(^DMH(UQH,USH,"0","UDO")),D,2)="") K ^DMH(UQH,USH,"0","UDO")
25 G 11
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
 ;  Tonen van de UDO'kes
SCHRIJF W /CUP(1,1),@F1
 W /CUP(2,1),@F6,$P($T(@("T1"_QT)),U,2),@F9,": "
 W /CUP(3,2),"1 : ",$E($P($G(^DMH(UQH,USH,"0","UDO")),D,1),1,78)
 W /CUP(5,1),@F6,$P($T(@("T2"_QT)),U,2),@F9,": "
 W /CUP(6,2),"2 : ",$E($P($G(^DMH(UQH,USH,"0","UDO")),D,2),1,78)
SCHRIJFZ Q
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3