FREEDEV ;Inloggen vrije schermen [ 03/26/2003  10:13 AM ]
 ;
 Do MAXPART^cS,CLEAN,SCRMODE^vhTERMINA
 Do INIT^vhTERMINA
 Set FP=1901
 Write @F,$ZV,"  Line #",$I,"  UCI: *******  Job #",$J,!!!?3,"[] = programmasoorten Van Hoecke nv"
 If $$ASK^vhWACHTW("PROGMODE",2102,30,0) Do
 .Set FP=1901 Write @F,@F1,"Logon ",$ZU(5)
 .Set Uci="LVH",Volume=$S($P($ZU(1,0),",",2)="ADM":"ADM",1:"DEV")
 .Do IN^vhSW(Uci_","_Volume)
 .Break 1
 .Set Ok=$$CHK(1)
 .Do CHKMAIL^vhMAIL
 .Set FP=1901
 .Write @F,$ZV,"  Line #",$I,"  UCI: *******  Job #",$J,@F1
 .For  Do  Quit:$G(Ok,"Ok")="Ok"
 ..Kill
 ..Do ^cQMSMQ
 ..Set Uci="LVH",Volume=$S($P($ZU(1,0),",",2)="ADM":"ADM",1:"DEV")
 ..Do IN^vhSW(Uci_","_Volume)
 ..Do CHKMAIL^vhMAIL
 ..Set FP=1901 Write @F11,@F1,@F,"Logoff ",$ZU(5)
 ..Set Ok=$$CHK()
 .Do KILL^vhWACHTW()
 Else  Do ^cA501
 Do CLEAN
 Set FP=1317
 Write @F,@FMTI," DE TERMINAL IS NIET MEER VERBONDEN ",@FMTi
 Hang 2
 Quit
 ;
CLEAN   
 Do MSMSHIST
 Set Q=$P(^cLOG(boot,"QQM",$$IO^cQ5,$ZU(5)),"\")
 Do ^cA604
 Write @F11,@F1
 Quit
 ;
MSMSHIST 
 Do:$ZV["MSM"
 .Set UCI=$ZU(2) Set:UCI="" UCI=$ZU(1)
 .Do IN^cQMSMSW(1)
 .Kill ^MSMSHIST($J)
 .Do IN^cQMSMSW(UCI)
 Quit
 ;
CHK(LogOn) 
 New Ok
 Lock +@("CHK"_$$IO^cQ5):0
 If $T Do
 .Set Ok=""
 .Do DISPLAY^vhScherm("CWLOGON")
 .Lock -@("CHK"_$$IO^cQ5)
 Quit $S($G(Ok)="H":"",1:"Ok")
 ;
CHKINIT 
 New Free
 Kill Attn
 Set CTKADM=$$GETCTK^vhSLVH()
 If 'CTKADM Do PUTATTR^vhScherm("CTKADM","","K") Set Attn=1
 Set CTKBAD=$$GETCTK^vhSLVH("BAD")
 If 'CTKBAD Do PUTATTR^vhScherm("CTKBAD","","K") Set Attn=1
 Set BAD=$$GETHOR^vhSLVH("BAD")
 If +BAD'=+$H Do PUTATTR^vhScherm("BAD","","K") Set Attn=1
 Set ATK=$$GETHOR^vhSLVH("ATK")
 If +ATK'=+$H Do PUTATTR^vhScherm("ATK","","K") Set Attn=1
 Set BackWk=$$TAPENR^vhBACKUP()
 Do:$H#7=1
 .Do PUTATTR^vhScherm("BACKWK","K","")
 .If $P($H,",",2)>25200,$P($H,",",2)<32400 Set Attn=1
 .If $P($H,",",2)>57600,$P($H,",",2)<64800 Set Attn=1
 Set Free=$$GETFREE^vhSLVH("ADM")
 Set FreeADM=$P($P($P(Free,"ADM",2),D),";",2,4)_";10000"
 If $P(FreeADM,";",2)'>$P(FreeADM,";",4) Do PUTATTR^vhScherm("FREEADM","","K") Set Attn=1
 Set FreeIQA=$P($P($P(Free,"IQA",2),D),";",2,4)_";2000"
 If $P(FreeIQA,";",2)'>$P(FreeIQA,";",4) Do PUTATTR^vhScherm("FREEIQA","","K") Set Attn=1
 Set FreeSQL=$P($P($P(Free,"SQL",2),D),";",2,4)_";10000"
 If $P(FreeSQL,";",2)'>$P(FreeSQL,";",4) Do PUTATTR^vhScherm("FREESQL","","K") Set Attn=1
 Set Free=$$GETFREE^vhSLVH("BAD")
 Set FreeBAD=$P($P($P(Free,"BAD",2),D),";",2,4)_";10000"
 If $P(FreeBAD,";",2)'>$P(FreeBAD,";",4) Do PUTATTR^vhScherm("FREEBAD","","K") Set Attn=1
 Set FreeBIQ=$P($P($P(Free,"BIQ",2),D),";",2,4)_";2000"
 If $P(FreeBIQ,";",2)'>$P(FreeBIQ,";",4) Do PUTATTR^vhScherm("FREEBIQ","","K") Set Attn=1
 Set FreeDEV=$P($P($P(Free,"DEV",2),D),";",2,4)_";10000"
 If $P(FreeDEV,";",2)'>$P(FreeDEV,";",4) Do PUTATTR^vhScherm("FREEDEV","","K") Set Attn=1
 Set FreeJRNL=$$GETJRNL^vhSLVH("BAD")_";100"
 If $P(FreeJRNL,";",2)'>$P(FreeJRNL,";",4) Do PUTATTR^vhScherm("FREEJRNL","","K") Set Attn=1
 Quit
 ;
CHKOK(Attn) 
 New R
 If $G(Attn) Do
 .Do FIELDI^vhScherm("OK")
 Else  Do
 .Write @FCH,*7
 .Use 0:(::::1)
 .Read Ok
 .Use 0:(:::::1)
 .Set Ok=$S(Ok="h":"H",1:Ok)
 .Write @FCS
 Quit ""
 ;