cA508 ;Intern MENU-programma ;%A508 ; [ 11/02/2001 4:04 PM ] 0 D E^cA612 I '$D(cs) D MASTER^cQ5 01 I $G(^cLOG(cs,"ZWINTERM",0))=1 S D="\" D B^cA612 02 I $G(^cLOG(cs,"ZWINTERM",0))'=1 D X^cA612 03 G 1 ; TRAPZWIN ZQ T0 ;Intern menu-programma ; T1 ; u ; T2 ;F i r m; T3 ;Uw keuze ( 1 tot ; T4 ;.[] = einde x.x.x[] = directe selectie; T5 ; code ; T6 ;Poort;Job; T7 ;donderdag;vrijdag;zaterdag;zondag;maandag;dinsdag;woensdag; week; T8 ;Q-waarde: ; bestaat niet, nieuwe QM: ;QU (initialen): ; ; T0F ;Programme-menu intern ; T1F ; h ; T2F ;f i r m; T3F ;Votre choix ( 1 à ; T4F ;.[] = fin x.x.x [] = sélection directe; T5F ; code ; T6F ;Porte;Job; T7F ;jeudi;vendredi;samedi;dimanche;lundi;mardi;mercredi; semaine; T8F ;Valeur Q: ; n'existe pas, nouvelle QM: ;QU (initiales): ; ; 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 ;Port ;Job; T7E ;thursday;friday;saterday;sunday;monday;tuesday;wednesday; week; T8E ;Q-value: ; don't exist, new QM: ;QU (initials): ; ; ; initialisatie 1 S $ZT="^cA403",$ECODE="" L ZD K (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io) S io=$G(io,$$IO^cQ5),QP=1 I $L($G(F71)) X F71 I $L($G(^cLOG(boot,"TERMINAL",io))) X ^(io) B 1 I '$D(F) S D="\",U=";" D ^cA607 10 S QS="",QM=+$G(QM) G Q:$G(Q)'?1.3U,Q:'$D(@("^"_QS_Q_"BA(99,1)")) S QN=$G(QN,^(1)) 11 S %Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1,QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT) 15 I $G(QU)="" G QU D USR^cA5000(QU) ; ; 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) 21 G QM:'$L(QM),QM:'$D(@("^"_QS_Q_"BA(""MENU"",QM)")) S R=$G(^(QM,0),"\2\3\21\3\") G 3:'$D(R7),9:'R7 I '$D(^(R7)) S QO="" G 1 22 S R5=+R7 G 6 ; ; menu tonen 3 S %ZM=$ZR D LOGJOB($ZR) 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) 31 S:R10'[$P($T(@("T2"_QT)),U,2) R10=R10_" - "_QN S:$D(QU) R10=R10_" * "_QU 32 W:$G(QW) /WSCROFF S FP=124 W @FS S FP=R9+$L(R10)+124 W @F11,@F56,@F8,@F1,@F55,@F61,@F,@F5 33 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),R8=R1 . I $L($P(R2,D,QTU-1*10+1)) S $P(R2,D)=$P(R2,D,QTU-1*10+1) . S FP=$P(R2,D,2)*100+$P(R2,D,3) W @F W:$P(R2,D,8)="-" @F92 W $J(R1,2),". ",$P(R2,D),@F93 41 S %ZR=$ZR,R13=0 G 9:'$D(R8) S R4=$L(R8) ; ; verdere schermopbouw + vraagstelling 5 I $D(^cLOG(cs,"X",$T(+0),3)) X ^(3) W /CUP(1,80-$L(K)\2),K 50 W /CUP(1,60),@F5,$P($T(@("T6"_QT)),U,2),$J(io,5),@F2 W /CUP(2,60),@F5,$P($T(@("T6"_QT)),U,3),$J($J,7),@F2 51 S R10="" I 'QM,$D(^cLOG(0,"ADRES",0)),$D(^(^(0),1)),$D(^(4)) S R10=^(1)_" - "_^(4) 52 I $L($G(^cLOG(cs,"MS",0))) S R10=^(0) 53 S:$L($G(^cLOG(boot,"MS",io))) $P(R10,D,2)=^(io) S:$L(R10,D)=1 R10=D_R10 54 D . N R S R="R11\"_DT D ^cA108 S R2=$P($T(@("T7"_QT)),U,$H#7+2),R3=$P($T(@("T7"_QT)),U,9)_$J(R11,3),$P(R10,D)=R2_$J("",$L($P(R10,D,2))-$L(R2)-$L(R3))_R3 55 F R11=1,2 S R2=$E($P(R10,D,R11),1,78),FP=22+R11*100+1 W @F,@F2 I $L(R2) S FP=FP+4+F60+$L(R2) W @F,@F5 S FP=FP\100*100+3 W @F,@F4,R2," ",@F5 56 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),@F2,@F,$P($T(@("T4"_QT)),U,2) 57 S K="",R13=$G(R13,0)+1,FP=R3+R4+5 D TIME,^cAFA0(K,FP\100,FP#100,10,0,"27\35",$S(R13:60,1:0),0,0) S:RK=27 K="-" I RK=35,R13>QZ G 9 ; time-out 58 G 5:'$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)")) ; ; toegang tot deze lijn? 6 S R6=^(R5),%ZM=$ZR G 7:'$L($P(R6,D,7)) S R12=$G(R12)+1,FP=$P(R,D,4)+2*100+13+F60 W @F,@F2,@F93 S FP=FP-11 63 W @F,@F92,$P($T(@("T5"_QT)),U,2),$P(D_R12_" ",D,$D(R7)+1),@F93,": ",@F0 ; ; interpretatie 7 S R=$P(R6,D,9) D SW:$L(R) S R=$P(R6,D,4),R1=$P(R6,D,5) 70 I R1'="M",$L($P(R6,D,14)) S ISO=$P(R6,D,14) 71 S:$L(QT)&$L($P(R6,D,12)) R=$P(R6,D,12) I R1="M" S QM=R G 2 73 S @%Q1=1 K R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RS,RV ; ; uitvoeren 8 G 9:R1="M" D LOGJOB(%ZM) 81 W @F11,@F1 D B^cA612:$G(QW)!($G(^cLOG(cs,"ZWINTERM",0))=2&($P(@%ZM,D,13)=1)) 82 I R1="G" G @$P(R,U) 83 I R1="D" D G 85 .X $S($P(@%ZM,D,12):FLO,1:FUP) .D PROGLOG^vhINITML("O",%ZM),@$P(R,U) .I $D(%ZM),$D(sProgLog) D PROGLOG^vhINITML("C",%ZM) 84 I R1="Z" D ^cA602 85 I $G(QW),$G(^cLOG(cs,"ZWINTERM",0))=2 D E^cA612 86 I $G(QW)>1 D C^cA612 G 86 87 I '$G(QW),$G(^cLOG(cs,"ZWINTERM",0))=1 D B^cA612 88 K QO G 1 ; 9 S R6=R,R=$P(R6,D,9) D SW:$L(R) S QM=$P($P(R6,D,6),U) G 2:QM'="EXIT" ; YZ D LOGJOB("") D E^cA612 ; VJ K QO,R,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13 S:$L($G(%ZR)) K=$O(@%ZR) K K Q ; LOGJOB(%ZM) ;loggen van menu-wijziging X $G(^cLOG(cs,"X",$T(+0),2)) k ^cJOB($J,boot,"job","error-log") I $L($G(%ZM)),$QS(%ZM,1)["MENU",$QS(%ZM,3)'=0 S ^cJOB($J,boot,"job","error-log")=1 Q ; SW D:$P(R,";",2)="ADMIN1" . I $G(QW) D E^cA612 . F Q:$G(QW)'>1 D C^cA612 . I $L($G(F71)) X F71 . I $L($G(^cLOG(boot,"TERMINAL",io))) X ^(io) S Q=$P(R,U),UCI=$P(R,U,2) I $L(UCI) D LOGJOB(%ZM) D INT^cQMSMSW K UCI S QN=@("^"_QS_Q_"BA(99,1)"),QD=+$G(@("^"_QS_Q_"BA(34)")) SWZ Q ; TIME D R5,R6 W /CUP(1,72)," ",DT,/CUP(2,72)," ",TD Q ; R5 N %J,%R S %R=$P($H,",",2)\60,%J=%R\60,TD=$J(%J,2)_$P($T(@("T1"_QT)),";",2)_(%R#60\10)_(%R#10) R5Z Q ;V2 01.08.92 ; R6 N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1 R6A F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'