cAB129 ;Beheer Xecutes; %AB123 [ 11/09/00  4:05 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
 ;
 ;  Beheer Xecutes
S1 N INHOUD,NODE1,NODE2,TITEL S $ZT="TRAP^cAN000"
S1A S NODE1=$P(MTAB(KEUZE),D,1),NODE2=$P(MTAB(KEUZE),D,2)
S1B S INHOUD=$G(^DMC(UQC,USC,"SYN","0","0",NODE1,NODE2))
S1C S TITEL=$S(NODE2=0:"Xecute in hoofdprogramma",1:"Xecute in scroll")
S1D S INHOUD=$$I^cAB1(INHOUD,TITEL)
S1E I INHOUD'="" S ^DMC(UQC,USC,"SYN","0","0",NODE1,NODE2)=INHOUD
S1F I INHOUD="" K ^DMC(UQC,USC,"SYN","0","0",NODE1,NODE2)
S1Z Q
 ;
YZ Q
 ;
ZZ ; 21.11.00 - 16 u 45 * V7.82