SYNCVERS ; Syncronisatie Bidirectioneel : Verslag [ 09/11/2002  9:36 AM ]
 
TRAP If $P($ZERROR,">")="<NOSYS" Quit  ; Niets aan de hand, alleen remote is niet gekend
 ZQuit  ; Ga naar de andere error-handler
 
VERSLAG(IPNr) 
 Set Datum="",VerslNr=""
 Kill ^SYNC("V")
 ;Alle nieuwe verslagen of gewijzigde verslagen
 For  Set VerslNr=$O(^VERSLAG("UPD",VerslNr),-1) Quit:VerslNr=""  Do
 .Lock +^VERSLAG("D",VerslNr):20
 .Else  Set VerslNr=-1 Quit
 .Job VERSLCOP^SYNCVERS($ZU(5),VerslNr)|sRemVol|::20
 .Else  Set VerslNr=-1 Quit
 .Set Tijd=$P($H,",",2)
 .For  Quit:$D(^SYNC("V",VerslNr))  Quit:Tijd+100<$P($H,",",2)  Hang 1
 .If Tijd+100<$P($H,",",2) Set VerslNr=-1 Quit
 .Kill ^SYNC("V",VerslNr)
 .Kill ^VERSLAG("UPD",VerslNr)
 .Lock -^VERSLAG("D",VerslNr)
 Quit
 
VERSLCOP(FromVol,VersNr) 
 New D,U
 Set D="\",U=";"
 If $D(^VERSLAG("D",VersNr)) Do DELOBJ^VERSLAG(VersNr) ; Overwrite
 Merge ^VERSLAG("D",VersNr)=^|FromVol|VERSLAG("D",VersNr)
 Do BLDIND^VERSLAG(VersNr)
 Do SENDMAIL^VERSLAG(VersNr)
 Set ^|FromVol|SYNC("V",VersNr)=""
 Quit