cAB129	;Beheer Xecutes; %AB123 [ 03/29/01  9:34 AM ]
	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	; 18.05.01 - 11 u 18 * V7.86