vhPROGRAM ;VERWERKING PROGRAMMA'S [ 11/14/2002  1:14 PM ]
 ;
DO(Program,sLoCase,sUnlock,sNoMod) 
 If $G(sNoMod) Do TXT^vhINP("Wijzigen is niet toegelaten") Quit
 New (%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,QP,QD,%Q1,Program,sUnlock,Locals,sLoCase,sJC,sScr,sUser,sFVL,sProgLog,RK,CUserId)
 If $G(sUnlock) Lock  ZD
 Set Locals=""
 For  Set Locals=$O(Locals(Locals)) Quit:Locals=""  Merge @Locals=Locals(Locals)
 Xecute F71
 Set Locals=$ZA
 If $G(sLoCase) Xecute FLO
 Else  Xecute FUP
 Set $P(sLoCase,D,2)=Locals
 Kill Locals
 Do @Program
 If $G(sUnlock) Lock  ZD
 If $P($G(sLoCase),D) Xecute FUP
 Else  Xecute FLO
 ;U 0:(::::sLoCase:(4294967295-sLoCase))
 U 0:(::::$P(sLoCase,D,2))
 Quit
 ;
XECUTE(Xecute,sLoCase,sUnlock) 
 New (%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,QP,QD,%Q1,Xecute,sUnlock,Locals,sLoCase,sJC,sScr,sUser,sFVL,sProgLog,RK,CUserId)
 If $G(sUnlock) Lock  ZD
 Set Locals=""
 For  Set Locals=$O(Locals(Locals)) Quit:Locals=""  Merge @Locals=Locals(Locals)
 Xecute F71
 Set Locals=$ZA
 If $G(sLoCase) Xecute FLO
 Else  Xecute FUP
 Set $P(sLoCase,D,2)=Locals
 Kill Locals
 Xecute Xecute
 If $G(sUnlock) Lock  ZD
 If $P($G(sLoCase),D) Xecute FUP
 Else  Xecute FLO
 ;U 0:(::::sLoCase:(4294967295-sLoCase))
 U 0:(::::$P(sLoCase,D,2))
 Quit
 ;
CLEAN 
 New Xecute,Program,sLoCase,sUnlock,sNoMod
 Kill (%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,QP,QD,%Q1,Locals,sJC,sScr,sUser,sFVL,sProgLog,RK,CUserId)
 Lock  ZD
 Set Locals=""
 For  Set Locals=$O(Locals(Locals)) Quit:Locals=""  Merge @Locals=Locals(Locals)
 Xecute F71
 Xecute FUP
 Kill Locals
 Quit
 ;
LOCALS(List) 
 New I
 For I=1:1:$L(List,",") Set $P(List,",",I)=""""_$P(List,",",I)_""""
 Xecute "For Locals="_List_" Merge Locals(Locals)=@Locals"
 Quit
 ;