SYNCOFF ; Syncronisatie Bidirectioneel : Offerte [ 09/11/2002  9:34 AM ]
 
TRAP If $P($ZERROR,">")="<NOSYS" Quit  ; Niets aan de hand, alleen remote is niet gekend
 ZQuit  ; Ga naar de andere error-handler
 
OFFERTE(IPNr) 
 Set OffNr=590000
 Kill ^SYNC("O")
 For  Set OffNr=$O(^KOFKL1(OffNr)) Quit:OffNr=""  Do
 .Set Node=""
 .For  Set Node=$O(^KOFKL1(OffNr,Node)) Quit:Node=""  Do
 ..Set KLNr=$P(^KOFKL1(OffNr,Node),D)
 ..Lock +^KOFKL(KLNr,Node,OffNr):20
 ..Else  Set (KLNr,OffNr)="9999999",Node="zzz" Quit
 ..Job OFFCOP^SYNCOFF($ZU(5),KLNr,Node,OffNr)|sRemVol|::20
 ..Else  Set (KLNr,OffNr)="9999999",Node="zzz" Quit
 ..Set NewNr="",Tijd=$P($H,",",2)
 ..For  Quit:$D(^SYNC("O",OffNr))  Quit:Tijd+100<$P($H,",",2)  Hang 1
 ..Set NewNr=$G(^SYNC("O",OffNr)) Quit:NewNr=""
 ..Kill ^SYNC("O",OffNr)
 ..Do OFFDEL(KLNr,Node,OffNr)
 ..Lock -^KOFKL(KLNr,Node,OffNr)
 Quit
 
OFFDEL(KLNr,Node,OffNr) 
 Kill ^KOFKL1(OffNr,Node)
 Kill ^KOFKL2(Node,KLNr,OffNr)
 Kill ^KOFKL(KLNr,Node,OffNr)
 Quit
 
OFFCOP(FromVol,KLNr,Node,OldNr,NewNr) 
 New New,D
 Set D="\"
 Set New=0
 Set:'$G(NewNr) New=1,NewNr=$$GETNUM^FLOW("KOFKL","KOFKL1")
 Merge ^KOFKL(KLNr,Node,NewNr)=^|FromVol|KOFKL(KLNr,Node,OldNr)
 Set ^KOFKL1(NewNr,Node)=KLNr_D
 Set ^KOFKL2(Node,KLNr,NewNr)=""
 Set:New ^|FromVol|SYNC("O",OldNr)=NewNr
 Quit