cA5181	;Raadplegen menu ;%A5181; [ 01/04/01  3:42 PM ]
01	I '$D(cs) D MASTER^cQ5
	I $G(^cLOG(cs,"ZWINTERM",0))=1 D B^cA612
02	I $G(^cLOG(cs,"ZWINTERM",0))'=1 D X^cA612
03	G 1
	;
T0	;Intern menu-programma  v6.2 ;
T1	; u ;
T2	;F i r m;
T3	;Uw keuze ( 1 tot ;
T4	;-[] = vorige menu   x.x.x[] = directe selectie   .[] = einde;
T5	; code ;
T6	;Raadplegen;
T7	;U heeft geen toegang tot dit programma ;
	;
T0F	;Programme-menu intern  v6.2 ;
T1F	; h ;
T2F	;F i r m;
T3F	;Votre choix ( 1 a ;
T4F	;-[] = menu précédent   x.x.x [] = sélection directe   .[] = fin ;
T5F	; code ;
T6F	;Consulter;
T7F	;Vous n'avez pas d'accès a ce programme ;
	;
T0E	;Intern menu-program ;
T1E	; h ;
T2E	;F i r m;
T3E	;Your choice ( 1 until ;
T4E	;.[] = end   x.x.x[] = direct selection;
T5E	; code ;
T6E	;Consultation;
T7E	;You don't have access to this program;
	;
1	N QO,QS,R,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RQ,UCI
11	S QO=""
13	S QL=$G(QL),QO=$G(QO),QT=$G(QT)
	;
	; directe selectie
2	K R7 S:'$L(QO) R12=0 S:$L(QO) R7=+$P(QO,"."),QO=$P(QO,".",2,99) S QZ=$G(QZ,5)
	S QS="" I '$L($G(QM)) S QM=0
	I '$D(@("^"_QS_Q_"BA(""MENU"",QM)")) G 11
	S R=$G(^(QM,0),"\2\3\21\3\")
	I $L($P(R,D,6)) K QM($ZU(5),Q,QM)  ; KU : 08.12.06
	G 3:'$D(R7),9:'R7 I '$D(^(R7)) G 11
29	S R5=+R7 G 6
	;
	; menu tonen
3	S R1=0,R9=$P(R,D,2)*100+$P(R,D,3),R10=$P(R,D)
	I $L($P(R,D,QTU-1*10+1)) S R10=$P(R,D,QTU-1*10+1)
	S:R10'[$P($T(@("T2"_QT)),U,2) R10=R10_" - "_QN S:$D(QU) R10=R10_" * "_QU
	W:$G(QW) /WSCROFF S FP=124 W @FS S FP=R9+$L(R10)+124 W @F11,@F56,@F8,@F1,@F55,@F61,@F,@F5
39	S FP=R9 W @F,@F4,R10," ",@F5
	;
	; menulijnen
4	F  S R1=$O(@("^"_Q_"BA(""MENU"",QM,R1)")) Q:R1=""  D
	. S R2=^(R1) I $P(R2,D,8)="-"!($L($P(R2,D,10))&$L(QL)&(" "_QL'[(" "_$P(R2,D,10)_" "))) Q
	. I $L($P(R2,D,QTU-1*10+1)) S $P(R2,D)=$P(R2,D,QTU-1*10+1)
	. S R8=R1,FP=$P(R2,D,2)*100+$P(R2,D,3) W @F,$J(R1,2),". ",$P(R2,D)
49	S R13=1 G 9:'$D(R8) S R4=$L(R8)
	;
	; vraagstelling
5	I $D(^cLOG(cs,"X",$T(+0),3)) X ^(3) S FP=80-$L(K)\2+100 W @F,K
	S FP=179-$L($P($T(@("T6"_QT)),U,2)) W @F,@F94,@F,$P($T(@("T6"_QT)),U,2),@F95
	S FP=279-$L($G(QU(2))) W @F,$G(QU(2))
	S FP=$P(R,D,4)*100+$P(R,D,5)+F60,K=$P($T(@("T3"_QT)),U,2),R3=FP+$L(K) W @F,K,R8," ) : " S FP=FP+100 W /CUP(FP\100,1),/EL,@F,$P($T(@("T4"_QT)),U,2)
57	S K="",R13=$G(R13,0)+1,FP=R3+R4+5 D ^cAFA0(K,FP\100,FP#100,10,0,27,60,0,0) S:RK=27 K="-"
	G 57:'$L(K),9:K="-",YZ:K=".",57:K?.E1C.E!(K?.E1A.E)!(K'?.NP)!(K?.E1P.E&(K'["."))
59	S R5=K\1,QO=$P(K,".",2,99) G 9:'R5,57:'$D(@("^"_QS_Q_"BA(""MENU"",QM,R5)")),57:$P(^(R5),D,5)'="M"
	;
	; toegang tot deze lijn?
6	S R6=^(R5)
	I $L($G(^DPAR(0,"X","MENU","PRI"))) X ^("PRI") G 11:K="-",61
	I $L($P(R6,D,10)),$L(QL)," "_QL'[(" "_$P(R6,D,10)_" ") S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250) G 11
61	G 7:'$L($P(R6,D,7))
	I $L($G(^DPAR(0,"X","MENU","PWD"))) X ^("PWD") S:K="-" QO="" G 2:K="-",7
	S R12=$G(R12)+1,FP=$P(R,D,4)+2*100+1 W @F,@F2,$J("",13),@F93
63	W @F,@F92,$P($T(@("T5"_QT)),U,2),$P(D_R12_" ",D,$D(R7)+1),@F93,": ",@F0
	I $ZV["MSM" U 0:(::::1) R R11:30 U 0:(:::::1)
	I $ZV'["MSM" U 0:(0:"S") R R11:30 U 0:(0:"")
65	I R11?.E1C.E!(R11'[$P(R6,D,7)) S QO="" G 2
	;
7	S R=$P(R6,D,9),RQ=Q_U_$ZU(5) D SW:$L(R) S R=$P(R6,D,4),R1=$P(R6,D,5)
	S:$L(QT)&$L($P(R6,D,12)) R=$P(R6,D,12)
	I R1'="M" G 11
79	S:$G(QM)'=R!(Q_U_$ZU(5)'=RQ)&'$D(QM($ZU(5),Q,R)) QM($ZU(5),Q,R)=$G(QM)_D_RQ S QM=R G 2  ; KU : 08.12.06
	;
9	S R6=R
	I $G(QM("EXIT"))=(Q_D_QM_D_$S($ZV'["MSM":$ZU(5),1:"")) S $P(R6,D,6)="EXIT"  ; KU : 08.12.06
	; ophalen terugkeermenu indien niet ingevuld
	I '$L($P($P(R6,D,6),U)) S $P(R6,D,6)=$P($G(QM($ZU(5),Q,QM)),D),$P(R6,D,9)=$P($G(QM($ZU(5),Q,QM)),D,2)  ; KU : 26.10.06
	S R=$P(R6,D,9)
	K QM($ZU(5),Q,QM)
	D SW:$L(R)
	S QM=$P($P(R6,D,6),U) G 2:QM'="EXIT"&$L(QM)
	;
YZ	D C^cA612:$G(QW) ; VJ
	Q
	;
SW	S Q=$P(R,U),UCI=$P(R,U,2) I $L(UCI) D INT^cQMSMSW
	K UCI S QN=@("^"_QS_Q_"BA(99,1)"),QD=+$G(@("^"_QS_Q_"BA(34)"))
SWZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08