cA509 ;BEHEER MENU ;%A502;Go uit %A502 [ 04/07/95  11:50 AM ]
 ;
T0 ;Beheer menu ;
 ;
T0F ;Gestion du menu ;
 ;
T0E ;Beheer menu ;
 G 40
 ;
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 K R0,R1 D ^cA100 Q  ; V10 13.07.93
 ;
S1 I $D(^(I3)) S P=5,SIN=^(I3) F SZ=1:1:L S STA(SZ)=$P(SIN,D,SZ)
S1B I '$D(^(I3)) S P=4,SIN="",X=TP(I3)\100 F SZ=1:1:L D S2 G S1Z:K=",",S1Z:K="-"&(SZ'=8) S FP=X*100+P W @F,"|",K,@F2 S P=P+$P($T(@(STL_SZ)),D,3)+1 S:SZ=1 P=P-5-(L=10*2)
S1C S R="SZ\23\3\GEEF TE WIJZIGEN ZONE\""V[] = verwijderen   [] = ok""\2\\""V-""[K!(K?1.N&(K>0)&(K'>L))\\" D R0 S:K="-"&'$L(SIN) SZ=10 G S1E:K="-"&$L(SIN),S1E:'$L(K),S1Z:SZ="V"
S1D D S2 G S1Z:K=",",S1C:K="-"&(SZ'=8)!(K="."&(SZ=8)) S P=5,X=TP(I3)\100 F Y=1:1:SZ-1 S P=P+$P($T(@(STL_Y)),D,3)+1 S:Y=1 P=P-5-(L=10*2)
S1D1 S FP=X*100+P W @F W:SZ=1 $J(" ",28),@F,$E(K,1,28) W:SZ>1 $J(" ",$P($T(@(STL_SZ)),D,3)),@F,K G S1C
S1E S SML=STA(1) F S1=2:1:L S SML=SML_D_STA(S1)
S1F S ^(I3)=SML
S1Z K SML,STA,SZ Q
 ;
S2 S R="K\23\3\"_"ZONE "_SZ_". "_$P($T(@(STL_SZ)),U,2,99)_"\\" D R0 I K="-"&(SZ>1&(SZ'=8))!(K="."&(SZ=8)) S SZ=SZ-1,P=P-$P($T(@(STL_SZ)),D,3)-1 S:SZ=1 P=P+5+(L=10*2) G S2
S2B I SZ=1,K="-" G S2Z
S2C S STA(SZ)=K
S2D I STA(SZ)=""&(L=10&(SZ=6)) S (K,STA(6))=STA(4)
S2Z Q
 ;
S3 S FP=447 W @F,"INDEX 3= ",I3 D S1 G S3Z:K="-",S3D:K=","!(K="V"&('$D(^(I3)))),S3Z:K'="V"!(L=9&($O(^(0))'="")) S FP=2303+F60 W @F,@F1,"VERWIJDEREN : ",$P(^(I3),D,1)
S3B S FP=2403+F60 W @F,"V[] = verwijderen definitief   -[] = terug naar keuze : ",@F0 R K G S3Z:K="-",S3B:K'="V" S X=TP(I3)\100 S FP=X*100+5 W @F,@F2
S3C S FP=2403+F60 W @F,@F2,@F4,"MENULIJN """,$P(^(I3),D,1),""" IS VERWIJDERD  [] = O.K. ",@F5,@F0 K ^(I3) S TA(I3)="" R K G S3Z
S3D S X=TP(I3)\100,FP=X*100+5 W @F I K="," F K=1:1:10 W @F,@F2 W:K=1 $E($P(SIN,D,K),1,28) W:K>1 $P(SIN,D,K) S FP=FP+$P($T(@("TX"_K)),D,3) S:K=1 FP=FP-7 W:K<10 @F,"|" S FP=FP+1
S3Z K SIN Q
 ;
TL1 ;  |1                            |2 |3 |4 |5 |6   |7|8|9          |
TL2 ;I3|TITEL MENU                   |LT|PT|LK|PK|MNR | | |NQW;UCI,GRP|
TL3 ;  |1                          |2 |3 |4        |5|6        |7         |8|9  |10
TL4 ;I3|NAAM MENU                  |LM|PM|PROGR    |A|PRO MEMO |PASWOORD  |T|NQW|L 
 ;
TY1 ;TITEL VAN HET MENU\"        ,[] = hernemen"\34\\
TY2 ;LIJN VAN DE TITEL\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!(K<23&K)
TY3 ;POSITIE TITEL IN 2\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!(K<80&K)
TY4 ;LIJN VRAAG NAAR KEUZE\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!(K<25&K)
TY5 ;POSITIE KEUZE IN 4\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!(K<80&K)
TY6 ;MENUNUMMER\"        ,[] = hernemen"\4\\("-,"[K!(K="EXIT")!(K?.N))&$L(K)
TY7 ;DUMMY\\1\\"-,"[K\
TY8 ;DUMMY\\1\\"-,"[K\
TY9 ;NIEUWE Q-WAARDE\"        ,[] = hernemen"\12\\",-"[K!(K?.U)!(K?.3U1";"3U)!(K?.3U1";"3U1","3U)
 ;
TX1 ;NAAM MENU-LIJN\"        ,[] = hernemen"\34\\
TX2 ;LIJN MENU-LIJN\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!((K>0)&(K<23))
TX3 ;POSITIE MENULIJN IN 2\"        ,[] = hernemen"\2\\"-,"[K&$L(K)!((K>0)&(K<80))
TX4 ;PROGRAMMANAAM OF MENUNUMMER\"        ,[] = hernemen"\9\\"-,"[K&$L(K)!(K?1.N&(K<900))!(K?.U.N.U1"^"."%".U.N.U)
TX5 ;D=DO, G=GO, Z=DO of ZJOB, M=MENU\"        ,[] = hernemen"\1\\"DGMZ,-"[K&$L(K)
TX6 ;PRO MEMORIEVELD\"        ,[] = hernemen   [] = inhoud zone 4"\9\\"-,"[K!(K?1.N&(K<900))!(K?.UNU1"^"."%".UNU)
TX7 ;PASWOORD\"        ,[] = hernemen"\10\\
TX8 ;AL OF NIET TONEN\"        ,[] = hernemen   [] = tonen   -[] = niet tonen   .[] = vorige rubriek"\1\\"-,."[K
TX9 ;NIEUWE Q-WAARDE\"        ,[] = hernemen"\12\\",-"[K!(K?.U)!(K?.3U1";"3U)!(K?.3U1";"3U1","3U)
TX10 ;PROGRAMMA-NIVEAU\"        ,[] = hernemen"\3\\",-"[K
 ;
TC1 S FP=2303 W @F," [] = vervolg      xx[] = openen, wijzig., verwijd. menulijn",!,?2,",[] = naar ind. 2   -[] = einde" Q
 ;INDEX 2
40 K TA,TP S (I3,LST,NXT,VN)=0,TP(0)=802,STL="TY",L=9,R="I2\23\3\INDEX 2\""-[] = einde""\3\\K?1.N&(K'<0)!(K=""-"")\\",FP=435+$L(I2) W @F,@F1 D R0 G YZ:I2="-" S FP=426 W @F,"INDEX 2= ",I2,@F2
50 S FP=602 W @F,@F1,$P($T(@("TL1"_QT)),U,2,3) S FP=760 W @F,@F5 S FP=701 W @F,@F4,$P($T(@("TL2"_QT)),U,2,3),@F5
60 I '$D(@("^"_QS_Q_"BA(I1,I2,I3)")) S @("^"_QS_Q_"BA(I1,I2,I3)")="" K ^(0) S FP=447 W @F,@F2,"INDEX 3= ",I3 S FP=803 W @F,I3 D S1 G 75:"-"[K S FP=803 W @F,@F1 G 40
70 S TA(I3)="",INF=^(I3) S FP=803 W @F,I3,"|" S FP=805
72 F I=1:1:9 W @F,@F2 W:I=1 $E($P(INF,D,I),1,28) W:I>1 $P(INF,D,I) S FP=FP+$P($T(@("TY"_I)),D,3) S:I=1 FP=FP-5 W:I<9 @F,"|" S FP=FP+1
 ;INDEX 3
75 S STL="TX",L=10
80 S FP=1002 W @F,$P($T(@("TL3"_QT)),U,2) S FP=1201 W @F,@F5 S FP=1101 W @F,@F4,$P($T(@("TL4"_QT)),U,2),@F5
85 K TA,TP S TA(0)="",TP(0)=802,FP=1202 W @F,@F1 S (FP,LN)=1102
90 S NXT=$O(^(NXT)) G 160:NXT="" S INF=^(NXT)
95 S (FP,LN)=LN+100 G 120:LN=(2102+F60) S VN=VN+1 W @F W:VN<10 " " W VN,"|" I VN'=NXT S TA(VN)="",TP(VN)=LN G 95
100 S FP=FP+3,TA(NXT)="",TP(NXT)=LN,LST=NXT F I=1:1:10 W @F,@F2 W:I=1 $E($P(INF,D,I),1,28) W:I>1 $P(INF,D,I) S FP=FP+$P($T(@("TX"_I)),D,3) S:I=1 FP=FP-7 W:I<10 @F,"|" S FP=FP+1
110 G 90
120 S NXT=VN,R="I3\22\3\INDEX 3 OF VERVOLG\TC1\2\\"",-""[K!(K?1.2N)\\" D R0 G 85:K="",40:K=",",YZ:K="-",120:'$D(TA(I3))
130 S FP=2201 W @F,@F1 S:I3=0 STL="TY",L=9 S:I3>0 STL="TX",L=10 D S3 G 40:'$D(^(0)),120
160 S FP=LN+100 W @F,@F1 S R="I3\23\3\INDEX 3\""xx[] = openen, wijzigen of verwijderen   [] = terug naar index 2   -[] = einde""\2\\\\"
165 D R0 G 40:I3="",YZ:K="-",160:I3'>LST&('$D(TA(I3))) S FP=447 W @F,"INDEX 3= ",I3,@F2 S:I3=0 STL="TY",L=6 S:I3>0 STL="TX",L=10 I $D(TA(I3)) D S3 G 40:'$D(^(0)),160
170 S (FP,LN)=LN+100 I LN=(2102+F60) K TA,TP S TA(0)="",TP(0)=802 S FP=1202 W @F,@F1 S (FP,LN)=1102 G 170
180 W @F W:I3<10 " " W I3 S TP(I3)=LN D S1 S TA(I3)="" G 160:"-"[K K TA(I3),TP(I3) S LN=LN-100 G 160
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84