cA501SC ;MENU-PROGRAMMA V6.2 ;%A501 ; [ 02/07/02 10:10 AM ] 0 I $G(QW) D E^cA612 01 I $ZV["MSM",$G(^cLOG($P($ZU(5),",",2),"ZWINTERM",0))=1 S D="\" D O^cA612(1,1,8,20,0,0,1,1) I $ZV'["MSM",$G(^cLOG($ZU(5),"ZWINTERM",0))=1 S D="\" D O^cA612(1,1,8,20,0,0,1,1) 02 I $ZV["MSM",$G(^cLOG($P($ZU(5),",",2),"ZWINTERM",0))'=1 D X^cA612 I $ZV'["MSM",$G(^cLOG($ZU(5),"ZWINTERM",0))'=1 D X^cA612 03 G 1 ; T0 ;Menu-programma Scanner ; T1 ; u ; T3 ;Uw keuze : ; T5 ; code ; T6 ;Scherm nummer: ; T7 ;U heeft geen toegang tot dit programma [] = ok ; ; T0F ;Programme-menu Scanner ; T1F ; h ; T3F ;Votre choix : ; T5F ; code ; T6F ;N° d'écran : ; T7F ;Vous n'avez pas d'acces a ce programme [] = ok ; ; T0E ;MENU-program Scanner ; T1E ; h ; T3E ;Your choice : ; T5E ; code ; T6E ;Number; T7E ;You don't have access to this program [] = ok ; ; 1 S $ZT="^cA405SC",$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="^TEMP(""%1"",$J)",@%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" I $L($G(^cLOG(cs,"TERMINAL",io))) X ^(io) ; ; 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 I '$D(@("^"_QS_Q_"BA(""MENU"",QM)")) G YZ S R=$G(^(QM,0),"\1\1\7\1") I $L($P(R,D,6)) K QM($ZU(5),Q,QM) ; KU : 27.10.06 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^cA501($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) S FP=80-$L(K)\2+100 W @F,K 50 ; S FP=161 W @F,$P($T(@("T6"_QT)),U,2),$J($I,3) D TIME 51 S R10="" 52 ; W /CUP(24,1),/EL 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 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),/EL,@F,$P($T(@("T4"_QT)),U,2) 56 S K="",R13=$G(R13,1)+1 D ^cAFA0(K,$P(R,D,4),$P(R,D,3)+$L($P($T(@("T3"_QT)),U,2)),5,0,27,60) S:RK=27 K="-" I K="" G 5:$ZV["MSM-PC"&($I=1&(cs=boot)),9:R13>QZ 57 I 'R11 G YZ:K="." D TIME G 56:DD_DM_DJ#$H'=K S R11=1 G 56 58 G 5:'$L(K),9:K="-",YZ:K=".",56: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 FP=2403 W @F,@F4,$P($T(@("T7"_QT)),U,2),@F5,@F2,@F0 R K 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),RQ=Q_U_$ZU(5) 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:$G(QM)'=R!(Q_U_$ZU(5)'=RQ)&'$D(QM($ZU(5),Q,R)) QM($ZU(5),Q,R)=$G(QM)_D_RQ S QM=R G 2 ; KU : 26.10.06 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,RQ ; ; uitvoeren 8 G 9:R1="M" D LOGJOB^cA501(%ZM) 81 W @F11,@F1 D O^cA612(1,1,8,20,0,0,1,1):$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 @$P(R,U) G 85 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 O^cA612(1,1,8,20,0,0,1,1) 88 K QO G 1 ; 9 S R6=R I $G(QM("EXIT"))=(Q_D_QM_D_$S($ZV'["MSM":$ZU(5),1:"")) S $P(R6,D,6)="EXIT" ; KU : 27.10.06 ; ophalen terugkeermenu indien niet ingevuld I '$L($P($P(R6,D,6),U)) S $P(R6,D,6)=$P($G(QM($ZU(5),Q,QM)),D),$P(R6,D,9)=$P($G(QM($ZU(5),Q,QM)),D,2) ; KU : 26.10.06 S R=$P(R6,D,9) K QM($ZU(5),Q,QM) D SW:$L(R) S QM=$P($P(R6,D,6),U) G 2:QM'="EXIT"&$L(QM) ; YZ D LOGJOB^cA501("") D OUT^cA5001 K R,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RQ S:$L($G(%ZR)) K=$G(@%ZR) K K Q ; SW D SW^cA501 SWZ Q ; TIME D R6,R5 Q ; S FP=R9\100*100+60 W @F,@F5,DT," ",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'