cINITML ;INITIALISATIE TERMINAL ;%INITML; [ 08/30/2001  4:29 PM ]
 G 1
 ;
1 ;U $I:(::::20480)
 U $I:(::::4096)
 D INIT^cTERMINA
 ;S:'$D(QU) QU=$$USERNAME^cUSER($$DEVUSER^cUSER($$IO^cQ5),-1)
 D MAXPART^cS
 D HIGH^cHL:$ZV["MSM",CASE("L")
 I $G(^cLOG(cs,"LOG",$I)) D LOGGING
 I $P($ZU(5),",")="LVH" D
 .I "\128\1015\1027\"[(D_$$IO^cQ5_D) D CHKCTK^cSLVH
 .;I "\134\70\"[(D_$I_D) D LOGIN^RPLKOM
 I $ZV["MSM",$P($ZU(5),",")'="MGR" D CHKMAIL^cMAIL
 ;
YZ Q
 ;
SETCASE(R) ; Toggle van Case in Q_BA("MENU",...)
 Quit:'$$ASK^cWACHTW("PROGMODE","","",0)
 Q:R=""  Q:'$D(@R)
 If $P(@R,D,12) Set $P(@R,D,12)="" Write " ","UpperCase" h 2
 Else  Set $P(@R,D,12)=1 Write " ","LowerCase" h 2
 Quit
 
SELCASE(R) ; R is de menu referentie
 Q:R=""  Q:'$D(@R)
 S R=$P(@R,D,12)
 D CASE($P("U\L",D,R+1))
 Q
 ;
CASE(C) 
 U:C="L" 0:(::::266240:16384) ; Lowercase,8-bit,tabs
 U:C="U" 0:(::::282624) ;uppercase,8-bit,tabs
 Q
 ;
LOGGING 
 New R,Time,Uci
 Do MASTER^cQ5
 Set Uci=$ZU(5)
 Do ^cA105,^cA106,IN^cQMSMSW("1,0")
 Set Time=$O(^cLOGGING(cs,$ZDEV($I),$I,+$H,""),-1) Set:'Time Time=+$P($H,",",2)
 Set R=$G(^cLOGGING(cs,$ZDEV($I),$I,+$H,Time))
 If $L(R),$P(R,D)'="Mn",Time=$P($H,",",2)
 Else  Do
 .If $P(R,D)="Off" Set R=""
 .Else  If $P(R,D)'="On" Kill ^cLOGGING(cs,$ZDEV($I),$I,+$H,Time)
 .If R="" Set R="On\"_DT_D_TD_D_$J_D_Uci_D_$G(QU,"??")
 .Else  Set R="Mn\"_DT_D_TD_D_$J_D_Uci_D_$G(QU,"??")
 .Set Time=+$P($H,",",2),^cLOGGING(cs,$ZDEV($I),$I,+$H,Time)=R
 Do IN^cQMSMSW(Uci)
 Quit
 ;
KPROG(Menu,MenuNaam,Routine,Aktie,WachtW) 
 New R,Io,GloRef
 If $ZU(5)=$ZU(2),$L(Routine) Do
 .Set WachtW=$G(WachtW)
 .If Aktie="M" Quit:Menu=""  Quit:WachtW=""
 .Set Io=$$IO^cQ5
 .Set:Aktie="M" Routine="M" Set:Routine["^" Routine=$P(Routine,"^",2)
 .Set MenuNaam=$S(MenuNaam="":"???",1:MenuNaam)
 .Set GloRef="^kprog(Routine" Set:Aktie="M" GloRef=GloRef_","_Menu Set GloRef=GloRef_",MenuNaam,Io)"
 .Set R=$G(@GloRef)
 .Set $P(R,D)=$P(R,D)+1,$P(R,D,2)=$H Set:$L(WachtW) $P(R,D,3)=WachtW
 .Set @GloRef=R
 Quit
 ;