cAN999(R)	;Xecute een programma met behoud van variabelen ; [ 01/23/02  2:00 PM ]
	;
T1	;Q-waarde\;
T2	;Nummer van de namespace\"cijfer van 1 tem ;
	;
T1F	;Valeur Q\;
T2F	;Nummer van de namespace\"cijfer van 1 tem ;
	;
T1E	;Q-waarde\;
T2E	;Nummer van de namespace\"cijfer van 1 tem ;
	;
1	I $G(K)="-" G YZ
	D E^cA612
	D ^cA338
	N %Q8
	D B^cA612
	I $ZV'["MSM" S NSP=$$NSP Q:NSP="-"  ZN $P(NSP,D)
	D
	. N NSP
	. S R=$TR(R,"#",U)
	. F  D @$P($P(R,U),",") Q:$G(K)="-"  S R=$P(R,",",2,99) Q:R'["^"!'$L(R)
	I $ZV'["MSM" ZN $P(NSP,D,2)
	D E^cA612
	D ^cA339
	D B^cA612
	;
YZ	Q
	;
Q	; vraag Q-waarde
	N R,QWA,QWD
	S QWA=$G(^cLOG(boot,"Q",$ZU(5)))
	I $ZV'["MSM" S QWA=$G(^cLOG(boot,"Q",cs))
	F  Q:$E(QWA,$L(QWA))'=D  S QWA=$E(QWA,1,$L(QWA)-1)
	I $L(QWA,D)=2,$P(QWA,D,2)="EA" S QWD="EA"
	S R="QWD\22\3\"_$P($T(@("T1"_QT)),U,2)_"\3\\(D_QWA_D)[(D_K_D)&$L(K)!(K=""-"")",$P(R,D,13)=1 D R0 I K="-" Q
	S Q=K,QN=$G(@("^"_Q_"BA(99,1)"))
	Q
	;
NSP()	; vraag namespace
	N SYS,T,NSP,I,R
	D NSPC^cQ21(.SYS,1)
	S NSP=$G(cs(1),$ZU(5))
	I NSP?1"V"4.N S T=1,NNSP="" G NSPA
	F  Q:$E(NSP,$L(NSP))'?1N  S NSP=$E(NSP,1,$L(NSP)-1)
	S I=NSP,T=0 F  S I=$O(SYS(I)) Q:$E(I,1,$L(NSP))'=NSP!'$L(I)  S J=$L(I)-$L(NSP) I @("$E(I,$L(NSP)+J)?"_J_"N") S T=T+1
	I T=1 S NNSP=1 G NSPA
	S R="NNSP\22\3\"_$P($T(@("T2"_QT)),U,2)_T_"""\2\\K?1.N&(K'>T&K)!(K=""-"")" D R0 I K="-" S NSP="-" G NSPZ
NSPA	S NSP=NSP_NNSP_D_$G(cs(1),$ZU(5))
NSPZ	Q NSP
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91