cA501 ;MENU-programma ;%A501 ; [ 03/28/01 12:13 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 ; T0 ;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 ;U heeft geen toegang tot dit programma ; T8 ;Fout in menu-lijn ; ; T0F ;Programme-MENU ; 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 ;Vous n'avez pas d'accès a ce programme ; T8F ;Erreur dans la ligne menu ; ; T0E ;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 ;You don't have access to this program ; T8E ;Error in menu-line ; ; ; initialisatie 1 S $ZT="^cA405",$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) 11 S QS="" I '$D(Q) D QQM^cQ6 S io=$G(io,$$IO^cQ5) S %Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1 12 S QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT) 13 I $L($G(F71)) X F71 S F71="D ^cA606" S ^cLOG(cs,"TERMINAL",io) = "D ^vhINITML" D ^vhINITML ; ; 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 I '$L($G(QM)) S QM=0,K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G 1 I '$D(@("^"_QS_Q_"BA(""MENU"",QM)")) G YZ 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) 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) 41 S %ZR=$ZR,R13=1 G 9:'$D(R8) S R4=$L(R8) ; ; 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) I $L($G(^cLOG(cs,"MS",0))) S R10=^(0) I $L($G(QU)),$D(@("^"_$G(^cLOG(0,"MEMO"),Q)_"MEMO(0,""IN"",QU)")) S R10=^(QU) 52 W /CUP(24,1),@F2 I $L(R10) S FP=2402 W @F,@F4,R10,$J("",50-$L(R10)),@F5 53 S FP=$P(R,D,4)*100+$P(R,D,5),K=$P($T(@("T3"_QT)),U,2),R3=FP+$L(K) W @F,K,R8," ) : " 54 S R11=1 I $G(^cLOG(cs,"STAND-ALONE")) X $G(^cLOG(cs,"X",$T(+0),1)) 55 S FP=$P(R,D,4)*100+$P(R,D,5)+100 G 56:FP\100=23&'R11 W /CUP(FP\100,1),@F2,@F,$P($T(@("T4"_QT)),U,2) 56 S K="",R13=$G(R13,1)+1 I $P($G(^cLOG(boot,"DEV",io)),D,15) S R13=0 D TIME,^cAFA0(K,$P(R,D,4),$P(R,D,3)+$L($P($T(@("T3"_QT)),U,2))+$L(R8)+5,10,0,"27\35",$S(R13:60,1:0),0,0) S:RK=27 K="-" I RK=35 G 5:$I=1&(cs=boot),9:R13>QZ ; time-out 57 I 'R11 G YZ:K=".",56:DD_DM_DJ#$H'=K S R11=1 G 56 58 G 5:'$L(K),9:K="-",YZ:K=".",5: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,56:'$D(@("^"_QS_Q_"BA(""MENU"",QM,R5)")) ; ; toegang tot deze lijn? 6 S R6=^(R5),%ZM=$ZR I $L($G(^DPAR(0,"X","MENU","PRI"))) X ^("PRI") S:K="-" QO="" G 1: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 1 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 ; ; 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 72 I $L($G(QU)),'$D(^DHIS(0,"MENU",0,0,QU)) S ^DHIS(Q,"MENU",QM,R5,QU)=DT_D_TD,$P(R6,D,15)=QU,$P(R6,D,16)=DT,$P(R6,D,17)=TD,@%ZM=R6 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 OUT^cA5001 K R,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13 S:$L($G(%ZR)) K=$G(@%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" ; Aangepast door CW op 18.03.2008 i.v.m. scherm layout na overgang Halux -> Van Hoecke . I $G(QW) D E^cA612 . F Q:$G(QW)'>1 D C^cA612 . I $L($G(F71)) X F71 . I $L($G(^cLOG(cs,"TERMINAL",io))) X ^(io) S Q=$P(R,U),UCI=$P(R,U,2) I $L(UCI) D LOGJOB(%ZM) D INT^cQSW 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'