cA502 ;BEHEER MENU ;%A502;Go naar %A509 [ 04/07/95  11:50 AM ]
 ;
T0 ;Beheer menu ;
 ;
T0F ;Gestion du menu ;
 ;
T0E ;Beheer menu ;
 G 1
 ;
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
 ;
 ;IDENTIFIKATIE KLANT
1 S:'$D(Q) Q="" S:Q'?.U Q="" D:$S<1750!'$D(F) ^cA604 W @F61,@F11,@F1 G 10:Q'="" S R="Q\23\3\Q-WAARDE VAN DE KLANT\""-[] = einde""\3\\K?.U!(K=""-"")\\" D R0 G YZ:K="-"
10 I '$D(@("^"_QS_Q_"BA(99,1)")) S R="QN\23\3\NAAM VAN DE KLANT\""-[] = einde""\30\\$L(K)\\" D R0 G YZ:K="-" S @("^"_QS_Q_"BA(99,1)")=QN
20 S QN=^(1),FP=227+$L(QN)+$L(Q) W @F,@F5 S FP=202 W @F,@F4,$P($T(@("T0"_QT)),";",2),"VOOR ",QN," IN ",Q,"BA ",@F5
30 S I1="MENU",I2="",FP=403 W @F,"INDEX 1= ",I1
 ;INDEX 2
40 G ^cA509
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84