cA250	;BEHEER KODES (INGANG) ;%A250; Do naar %A319, %A251, %A253 [ 12/29/00  4:31 PM ]
	G 1
	;
	; OVSW = switch om direkt detail te tonen op het scherm
	;
T0	;Beheer codes (ingang) ;
T1	;Selectie;[] = openen, wijzigen   O[] = overzicht;   V[] = verwijderen;
T2	;Beheer ;
T10	;S0\^cA252\^cA254;
	;
T0F	;Gestion codes (entrée) ;
T1F	;Sélection;[] = créer, modifier   O[] = aperçu;   V[] = radier;
T2F	;Gestion ;
T10F	;S0\^cA252\^cA254;
	;
T0E	;Codes (entree) ;
T1E	;Selection;[] = create, modify   O[] = summary;   V[] = remove;
T2E	;;
T10E	;S0\^cA252\^cA254;
	;
T0D	;Beheer codes (ingang) ;
T1D	;Selectie;[] = openen, wijzigen   O[] = overzicht;   V[] = verwijderen;
T2D	;Beheer ;
T10D	;S0\^cA252\^cA254;
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
1	S OVSW=D I $L($P(R,U,2)) X $P(R,U,2)
10	S K=$P($T(@("T2"_QT)),U,2)_$P(@("^"_$S($D(RBIB):QS_QT_RBIB,1:QS_Q_RGL)_"(RR1,RR2_.1,0)"),D)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S OVSW=D,Q1="^"_QS_Q_RGL_"(RR1,RR2,RRZ_"" "")",K=@("^"_$S($D(RBIB):QS_QT_RBIB,1:QS_Q_RGL)_"(RR1,RR2_.1,0)") F I="RRD","RRT","RSM","RRV","RRM" S @I=^(I)
13	F I="RVW","RWZ","ROP","RSS","RQ1","RQ","RDP" I $D(^(I)) S @I=^(I)
130	I $D(RQ1) D S6
14	S RMS=$P(K,D,2),RRL=+RRD K RTA F I=1:1 Q:'$L($P(RRV,U,I+1))
15	S K=$P(RRV,U,I),R=+RRD-3*100+$P(RRV,U)_D_($P(RRD,D,2)+1*100+K),RV="" 
17	F I=2:1 Q:'$L($P(RRV,U,I+1))  S RV=RV_(+RRD-3*100+$P(RRV,U,I))_"#"_($P(RRD,D,2)+1*100+$P(RRV,U,I))_D
18	S RH=+RRD-1*100+$P(RRV,U)_"#"_(+RRD-1*100+K),FP=+RRD-2*100+RRV+1 X RRT D ^cA319
19	I $D(OVSW) S K="O" G 25
	;
2	S (SW12,SW)=0,R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T1"_QT)),U,3) I $D(RVW),+RVW S R=R_$P($T(@("T1"_QT)),U,4)
21	S R=R_"""\1\\"_""",-O""[K" I $D(RVW),+RVW S R=R_"!(K=""V"")"
23	S R=R_"\\\1" D R0 G YZ:K="-"!(K=",")
25	S RMM=$P($S($D(RSS):RSS,1:$P($T(@("T10"_QT)),U,2)),D,$S('$L(K):1,"OV"[K:$F("OV",K))) D @RMM
29	S FP=$P(RRD,D,2)+2*100+1 W @F,@F1 G YZ:K=",",2:SW12,2:K="-"
	;
3	I RRL>$P(RRD,D,2) S SW=1,RRL=RRL-1,FP=$P(RRD,D,2)+1*100+1 W @F,@F1 S FP=RRD*100+1 W @F,@FDL D S3
32	D S1 D S4:SW S RTA(RRL)=RRZ,RRL=RRL+1
34	S R=Q1,@R=B(1) D:$D(RDP) @("CO^"_RDP) D S5:$D(RQ) G 2
	;
YZ	Q
	;
S0	S (SW12,SW)=0,FP=$P(RRD,D,2)+2*100+1 W @F,@F1 I $L($P(RSM,D,3)) X $P(RSM,D,3) G S0B
S0A	S R="RRZ\22\3\"_RMS_D_D_$P(RSM,D)_D_D_""",-""[K&$L(K)"_$S($L($P(RSM,D,2)):"!("_$P(RSM,D,2)_")",1:"!$L(K)") D R0
S0B	G S0Z:K="-"!(K=",") I $D(@Q1) D ^cA253 X:$D(RWZ) RWZ G S0:K="-",S0Z
S0C	D ^cA251 X:$D(ROP) ROP G S0:K="-"
S0Z	Q
	;
S1	I SW S FP=RRL*100+$P(RRV,U) W @F,@F7,@$P(FG,D,10),@F8
S1A	F I=1:1 S X=$P(RRM,D,I) Q:'$L(X)  D S2
S1Z	Q
	;
S2	F II=1:1:4 S @("RS"_II)=$P(X,U,II)
S2A	S FP=RRL*100+$P(RRV,U,RS2)+2,K=$S('RS1:@RS1,1:$P(B(1),D,RS1#100)) X:$L(RS4) RS4
S2B	I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
S2C	E  S FP=FP-1 W @F,$J(K,$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-1)
S2D	I SW S FP=RRL*100+$P(RRV,U,RS2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z	K RS1,RS2,RS3,RS4 Q
	;
S3	S X="" K:$O(RTA(X))=+RRD RTA($O(RTA(X))) F I=1:1 S X=$O(RTA(X)) Q:'X  S RTA(X-1)=RTA(X) K RTA(X)
S3Z	Q
	;
S4	S FP=$P(RRD,D,2)+1*100+$P(RRV,U) W @F,@F7,@$P(FG,D,3)
S4A	F I=1:1 Q:'$L($P(RRV,U,I+1))  S FP=$P(RRD,D,2)+1*100+$P(RRV,U,I) W:I'=1 @F,@$P(FG,D,8) F J=$P(RRV,U,I)+2:1:$P(RRV,U,I+1) W @$P(FG,D,9)
S4Z	W @$P(FG,D,4),@F8 Q
	;
	; copieren naar meerdere Q-Waarden (safety shop)
S5	G S5Z:'$P(RQ,D) S RS1=R S:$E(RS1)="^" RS1=$E(RS1,2,999) S RS1=$E(RS1,1+$P(RQ,D),999)
S5A	F RS2=2:1 S RS3=$P(RQ,D,RS2) Q:RS3=""  D
	. S @("^"_QS_RS3_RS1)=B(1) I $D(RDP) D @("CORQ^"_RDP)
S5Z	K RS1,RS2,RS3 Q
	;
	; samenstellen Q1 als data in ander bestand (via RQ1)
S6	S RS1=$P(RQ1,U),RS2=$P(RQ1,U,2)
S6A	S Q1="^"_QS_Q_$P(RS1,D)_"(",RS3=2
S6B	S RS0=$P(RS1,D,RS3) I RS0="" S Q1=Q1_$S(RS3'=2:",",1:"")_"RRZ"_$S('RS2:"_"" """,1:"")_")" G S6Z
S6C	S Q1=Q1_$S(RS3'=2:",",1:"")_RS0 S RS3=RS3+1 G S6B
S6Z	K RS0,RS1,RS2,RS3 Q
	;
Z	X ^cZ Q
ZZ	; 22.06.04 - 16 u 32 * V8