KMENU ;MENU [ 11/29/2003  4:03 PM ]
 ;
DO(Routine,WachtW,Position,TimeOut,Time,TimeTyp) 
 New ZMode
 Set WachtW=$G(WachtW,1)
 Do:'WachtW
 . Set ZMode=$ZMODE ; Huidige input settings onthouden
 . Do O^cA612(1,1,24,80,"","","","")
 . Do SHOWMENU
 . Set WachtW=$$ASK^vhWACHTW(WachtW,$G(Position),$G(TimeOut),$G(Time),$G(TimeTyp))
 . Do C^cA612 Xecute F71
 . Use 0:(:$S($P(ZMode,"\")["U":"+",1:"-")_"U":$C(13)) ; herzetten uppercase
 If WachtW Do @Routine
 Quit
 ;
MENU(Menu,WachtW,Position,TimeOut,Time,TimeTyp) 
 New ZMode
 Set WachtW=$G(WachtW,1)
 Do:'WachtW
 . Set ZMode=$ZMODE ; Huidige input settings onthouden
 . Do O^cA612(1,1,24,80,"","","","")
 . Do SHOWMENU
 . Set WachtW=$$ASK^vhWACHTW(WachtW,$G(Position),$G(TimeOut),$G(Time),$G(TimeTyp))
 . Do C^cA612 Xecute F71
 . Use 0:(:$S($P(ZMode,"\")["U":"+",1:"-")_"U":$C(13)) ; herzetten uppercase
 Set:WachtW QM=Menu
 Quit
 ;
SHOWMENU 
 New R,Titel,Menu,io
 Set R=@%ZM,ZWint=$P(R,D,13),R=^(0),Titel=$P(R,D)_" - "_QN Set:$D(QU) Titel=Titel_" * "_QU
 Write:$G(QW) /WSCROFF
 Do:ZWint ZWINT^vhRtn2(1)
 Set FP=124
 Write @FS
 Set FP=$P(R,D,2)*100+$P(R,D,3)+$L(Titel)+124
 Write @F11,@F56,@F8,@F1,@F55,@F61,@F,@F5
 Set FP=$P(R,D,2)*100+$P(R,D,3)
 Write @F,@F4,Titel," ",@F5
 Set Menu=0
 For  Set Menu=$O(@("^"_Q_"BA(""MENU"",QM,Menu)")) Quit:Menu=""  Do
 .Set R=@("^"_Q_"BA(""MENU"",QM,Menu)")
 .If $P(R,D,8)="-"!($L($P(R,D,10))&$L(QL)&(" "_QL'[(" "_$P(R,D,10)_" "))) Quit
 .Set:$L(QT)&$L($P(R,D,11)) $P(R,D)=$P(R,D,11)
 .Set FP=$P(R,D,2)*100+$P(R,D,3)
 .Write @F,$J(Menu,2),". ",$P(R,D)
 Set io=$$IO^cQ5,R=";Poort;Job;"
 If $D(^cLOG(cs,"X","%A501",3)) Xecute ^(3) Write /CUP(1,80-$L(K)\2),K
 Write /CUP(1,60),@F5,$P(R,U,2),$J(io,5),@F2
 Write /CUP(2,60),@F5,$P(R,U,3),$J($J,7),@F2
 Write /CUP(1,72)," ",DT,/CUP(2,72),"  ",TD
 Do:ZWint ZWINT^vhRtn2(0)
 Quit
 ;