DEFAULTS ;Default instellingen ;[ 04/25/2002  10:37 AM ]
 ;
CUST(KLNr) 
 New Defaults,OneCust
 Set (KLNr,OneCust)=$G(KLNr)
 For  Do  Quit:'KLNr
 .Do:'OneCust
 ..Set KLNr=""
 ..Do DISPLAY^vhScherm("DEFAULTSKL")
 ..Set KLNr=$$SELECT^KLANT6()
 .Quit:'KLNr
 .Do EDIT^vhScherm("DEFAULTSKL")
 .Set:OneCust KLNr="-"
 Quit
 ;
INITCUST 
 New I,R
 For I=1:1 Quit:'$D(sScrnDef(I))  Set R=sScrnDef(I) Set:$P(R,"`",7)["Defaults" @$P(R,"`",7)=""
 Merge:KLNr Defaults=^DEFAULTS("K",KLNr)
 Quit
 ;
SAVECUST 
 New I,R,DefHG,DefGR,DefSG
 Kill ^DEFAULTS("K",KLNr)
 Set DefHG=""
 For  Set DefHG=$O(Defaults(DefHG)) Quit:DefHG=""  Do
 .Set R=$G(Defaults(DefHG))
 .Set:$L(R) ^DEFAULTS("K",KLNr,DefHG)=R
 .Set DefGR=""
 .For  Set DefGR=$O(Defaults(DefHG,DefGR)) Quit:DefGR=""  Do
 ..Set R=$G(Defaults(DefHG,DefGR))
 ..Set:$L(R) ^DEFAULTS("K",KLNr,DefHG,DefGR)=R
 ..Set DefSG=""
 ..For  Set DefSG=$O(Defaults(DefHG,DefGR,DefSG)) Quit:DefSG=""  Do
 ...Set R=$G(Defaults(DefHG,DefGR,DefSG))
 ...Set:$L(R) ^DEFAULTS("K",KLNr,DefHG,DefGR,DefSG)=R
 Quit
 ;
GETUSER(UserId,DefHG,DefGR,DefSG) 
 Set DefGR=$G(DefGR),DefSG=$G(DefSG)
 Set:'$D(UserId) UserId=$$DEVUSER^vhUSER($$IO^cQ5) Set:'UserId UserId=0
 If $L(DefSG) Merge @DefGR@(DefSG)=^DEFAULTS("U",UserId,DefHG,DefGR,DefSG)
 Else  If $L(DefGR) For  Set DefSG=$O(^DEFAULTS("U",UserId,DefHG,DefGR,DefSG)) Quit:DefSG=""  Do GETUSER(UserId,DefHG,DefGR,DefSG)
 Else  For  Set DefGR=$O(^DEFAULTS("U",UserId,DefHG,DefGR)) Quit:DefGR=""  Do GETUSER(UserId,DefHG,DefGR)
 Quit
 ;
KILUSER(UserId,DefHG,DefGR,DefSG) 
 Set DefGR=$G(DefGR),DefSG=$G(DefSG)
 Set:'$D(UserId) UserId=$$DEVUSER^vhUSER($$IO^cQ5) Set:'UserId UserId=0
 If $L(DefSG) Kill ^DEFAULTS("U",UserId,DefHG,DefGR,DefSG)
 Else  If $L(DefGR) Kill ^DEFAULTS("U",UserId,DefHG,DefGR)
 Quit
 ;
PUTUSER(UserId,DefHG,DefGR,DefSG) 
 Set DefGR=$G(DefGR),DefSG=$G(DefSG)
 Set:'$D(UserId) UserId=$$DEVUSER^vhUSER($$IO^cQ5) Set:'UserId UserId=0
 If $L(DefSG) Merge ^DEFAULTS("U",UserId,DefHG,DefGR,DefSG)=@DefGR@(DefSG)
 Else  If $L(DefGR) For  Set DefSG=$O(@DefGR@(DefSG)) Quit:DefSG=""  Do PUTUSER(UserId,DefHG,DefGR,DefSG)
 Quit
 ;
GETCUST(KLNr,DefHg,DefGr,DefSg) 
 New Default
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg),Default=""
 If $L(DefHg) Do
 .Quit:'$D(^DEFAULTS("K",KLNr,DefHg))
 .Set Default=$G(^DEFAULTS("K",KLNr,DefHg))
 .If $L(DefGr) Do
 ..Quit:'$D(^DEFAULTS("K",KLNr,DefHg,DefGr))
 ..Set Default=$G(^DEFAULTS("K",KLNr,DefHg,DefGr))
 ..If $L(DefSg) Do
 ...Quit:'$D(^DEFAULTS("K",KLNr,DefHg,DefGr,DefSg))
 ...Set Default=$G(^DEFAULTS("K",KLNr,DefHg,DefGr,DefSg))
 Quit Default
 ;
KILCUST(KLNr,DefHg,DefGr,DefSg) 
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Kill ^DEFAULTS("K",KLNr,DefHg,DefGr,DefSg)
 Else  If $L(DefHg),$L(DefGr) Kill ^DEFAULTS("K",KLNr,DefHg,DefGr)
 Else  If $L(DefHg) Kill ^DEFAULTS("K",KLNr,DefHg)
 Quit
 ;
PUTCUST(KLNr,Default,DefHg,DefGr,DefSg) 
 Set Default=$G(Default),DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 Do KILCUST(KLNr,DefHg,DefGr,DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Set ^DEFAULTS("K",KLNr,DefHg,DefGr,DefSg)=Default
 Else  If $L(DefHg),$L(DefGr) Set ^DEFAULTS("K",KLNr,DefHg,DefGr)=Default
 Else  If $L(DefHg) Set ^DEFAULTS("K",KLNr,DefHg)=Default
 Quit
 ;
GETLEV(LEVNr,DefHg,DefGr,DefSg) 
 New Default
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg),Default=""
 If $L(DefHg) Do
 .Quit:'$D(^DEFAULTS("L",LEVNr,DefHg))
 .Set Default=$G(^DEFAULTS("L",LEVNr,DefHg))
 .If $L(DefGr) Do
 ..Quit:'$D(^DEFAULTS("L",LEVNr,DefHg,DefGr))
 ..Set Default=$G(^DEFAULTS("L",LEVNr,DefHg,DefGr))
 ..If $L(DefSg) Do
 ...Quit:'$D(^DEFAULTS("L",LEVNr,DefHg,DefGr,DefSg))
 ...Set Default=$G(^DEFAULTS("L",LEVNr,DefHg,DefGr,DefSg))
 Quit Default
 ;
KILLEV(LEVNr,DefHg,DefGr,DefSg) 
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Kill ^DEFAULTS("L",LEVNr,DefHg,DefGr,DefSg)
 Else  If $L(DefHg),$L(DefGr) Kill ^DEFAULTS("L",LEVNr,DefHg,DefGr)
 Else  If $L(DefHg) Kill ^DEFAULTS("L",LEVNr,DefHg)
 Quit
 ;
PUTLEV(LEVNr,Default,DefHg,DefGr,DefSg) 
 Set Default=$G(Default),DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 Do KILLEV(LEVNr,DefHg,DefGr,DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Set ^DEFAULTS("L",LEVNr,DefHg,DefGr,DefSg)=Default
 Else  If $L(DefHg),$L(DefGr) Set ^DEFAULTS("L",LEVNr,DefHg,DefGr)=Default
 Else  If $L(DefHg) Set ^DEFAULTS("L",LEVNr,DefHg)=Default
 Quit
 ;
GETALG(Algorit,DefHg,DefGr,DefSg) 
 New Default
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg),Default=""
 If $L(DefHg) Do
 .Quit:'$D(^DEFAULTS("A",Algorit,DefHg))
 .Set Default=$G(^DEFAULTS("A",Algorit,DefHg))
 .If $L(DefGr) Do
 ..Quit:'$D(^DEFAULTS("A",Algorit,DefHg,DefGr))
 ..Set Default=$G(^DEFAULTS("A",Algorit,DefHg,DefGr))
 ..If $L(DefSg) Do
 ...Quit:'$D(^DEFAULTS("A",Algorit,DefHg,DefGr,DefSg))
 ...Set Default=$G(^DEFAULTS("A",Algorit,DefHg,DefGr,DefSg))
 Quit Default
 ;
KILALG(Algorit,DefHg,DefGr,DefSg) 
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Kill ^DEFAULTS("A",Algorit,DefHg,DefGr,DefSg)
 Else  If $L(DefHg),$L(DefGr) Kill ^DEFAULTS("A",Algorit,DefHg,DefGr)
 Else  If $L(DefHg) Kill ^DEFAULTS("A",Algorit,DefHg)
 Quit
 ;
PUTALG(Default,Algorit,DefHg,DefGr,DefSg) 
 Set Default=$G(Default),DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 Do KILALG(Algorit,DefHg,DefGr,DefSg)
 If $L(DefHg),$L(DefGr),$L(DefSg) Set ^DEFAULTS("A",Algorit,DefHg,DefGr,DefSg)=Default
 Else  If $L(DefHg),$L(DefGr) Set ^DEFAULTS("A",Algorit,DefHg,DefGr)=Default
 Else  If $L(DefHg) Set ^DEFAULTS("A",Algorit,DefHg)=Default
 Quit
 ;
CHKALG(Default,Algorit,DefHg,DefGr,DefSg) 
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg)
 Quit D_$$GETALG(Algorit,DefHg,DefGr,DefSg)_D[(D_Default_D)
 ;
ALG 
 New Defaults
 Do EDIT^vhScherm("DEFAULTSAL")
 Quit
 ;
INITALG 
 New I,R
 For I=1:1 Quit:'$D(sScrnDef(I))  Set R=sScrnDef(I) Set:$P(R,"`",7)["Defaults" @$P(R,"`",7)=""
 Merge Defaults=^DEFAULTS("A")
 Quit
 ;
SAVEALG 
 New I,R,Algorit,DefHG,DefGR,DefSG
 Kill ^DEFAULTS("A")
 Set ^DEFAULTS("A")=Defaults,Algorit=""
 For  Set Algorit=$O(Defaults(Algorit)) Quit:Algorit=""  Do
 .Set R=$G(Defaults(Algorit))
 .Set:$L(R) ^DEFAULTS("A",Algorit)=R
 .Set DefHG=""
 .For  Set DefHG=$O(Defaults(Algorit,DefHG)) Quit:DefHG=""  Do
 ..Set R=$G(Defaults(Algorit,DefHG))
 ..Set:$L(R) ^DEFAULTS("A",Algorit,DefHG)=R
 ..Set DefGR=""
 ..For  Set DefGR=$O(Defaults(Algorit,DefHG,DefGR)) Quit:DefGR=""  Do
 ...Set R=$G(Defaults(Algorit,DefHG,DefGR))
 ...Set:$L(R) ^DEFAULTS("A",Algorit,DefHG,DefGR)=R
 ...Set DefSG=""
 ...For  Set DefSG=$O(Defaults(Algorit,DefHG,DefGR,DefSG)) Quit:DefSG=""  Do
 ....Set R=$G(Defaults(Algorit,DefHG,DefGR,DefSG))
 ....Set:$L(R) ^DEFAULTS("A",Algorit,DefHG,DefGR,DefSG)=R
 Quit
 ;
GETIP(io,DefHg,DefGr,DefSg) 
 New Default
 If '$G(io) Set io=$$IO^cQ5
 Set DefHg=$G(DefHg),DefGr=$G(DefGr),DefSg=$G(DefSg),Default=""
 If $L(DefHg) Do
 .Quit:'$D(^DEFAULTS("io",io,DefHg))
 .Set Default=$G(^DEFAULTS("io",io,DefHg))
 .If $L(DefGr) Do
 ..Quit:'$D(^DEFAULTS("io",io,DefHg,DefGr))
 ..Set Default=$G(^DEFAULTS("io",io,DefHg,DefGr))
 ..If $L(DefSg) Do
 ...Quit:'$D(^DEFAULTS("io",io,DefHg,DefGr,DefSg))
 ...Set Default=$G(^DEFAULTS("io",io,DefHg,DefGr,DefSg))
 If $L(Default),"""$@#"[$E(Default) Xecute "Set Default="_Default
 Quit Default
 ;