SYNCMAIL ; Syncronisatie Bidirectioneel : Mail [ 09/11/2002  9:32 AM ]
 ; Deze routines moeten op de protable computer opgestart worden
 
TRAP If $P($ZERROR,">")="<NOSYS" Quit  ; Niets aan de hand, alleen remote is niet gekend
 ZQuit  ; Ga naar de andere error-handler
 
MAIL(IPNr) 
 ; De Mail global bevindt zich in de MGR uci.
 Set HostVol=sRemVol,$P(HostVol,",",1)="MGR"
 Lock +^|HostVol|%Mail("IZ",IPNr),+vhMAIL("IZ",IPNr)
 Do DELMAIL(IPNr) ; Mail verwijderd op de host
 Do COPYZEND(IPNr) ; Zelf verzonden
 Do COPYNOTR(IPNr) ; Nog niet gelezen
 Do ARCHIEF(IPNr)
 Lock -^|HostVol|%Mail("IZ",IPNr),-^vhMAIL("IZ",IPNr)
 Quit
 
DELMAIL(IPNr) ; Verwijderen van Mail op de portable die niet gearchiveerd is en waar geen link naar toe bestaat.
 Set MailId=""
 For  Set MailId=$O(^vhMAIL("D",MailId)) Quit:MailId=""  Do
 .If $P(^vhMAIL("D",MailId),D,2)'["F",'$D(^vhMAIL("IZ",IPNr,MailId)),'$D(^vhMAIL("IN",IPNr,MailId)),'$D(^vhMAIL("IR",IPNr,MailId)) Do
 ..Do DELOBJ^vhMAIL(MailId)
 .Else  If $P(^vhMAIL("D",MailId),D,2)["F" Do
 Quit
 
ARCHIEF(IPNr,MailId) ; Het archief aangemaakt op de portable kopieren naar de host.
 For  Set MailId=$O(^vhMAIL("D",MailId)) Quit:MailId=""  Do
 .Set Dat=$P($G(^|HostVol|vhMAIL("D",MailId)),D,5)
 .If 'Dat!($$DIFFTIME^vhDTyp(Dat,$P(^vhMAIL("D",MailId),D,5))=0) Do  ; Mail is gewijzigd deze moet overgekopieerd worden
 .Job MAILCOP^SYNCMAIL($ZU(5),MailId)|sRemVol|::20
 .Else  Set MailId=9999999 Quit
 .Set NewId="",Tijd=$P($H,",",2)
 .For  Quit:$D(^SYNC("M",MailId))  Quit:Tijd+100<$P($H,",",2)  Hang 1
 .Set NewId=$G(^SYNC("M",MailId)) Quit:NewId=""
 .Kill ^SYNC("M",MailId)
 Quit
 
 ;Copieren van nieuwe mails, de REMOTE user als ZENDER
COPYZEND(IPNr) 
 Set MailId="" 
 ; Opsporen van mail die verzonden werden op de host door de remote user
 For  Set MailId=$O(^|HostVol|vhMAIL("IZ",IPNr,MailId)) Quit:MailId=""  Do
 .If '$D(^vhMAIL("D",MailId)) Do
 ..Do TOPORT(MailId)
 .Else  If '$D(^vhMAIL("IZ",IPNr,MailId)) Do  ; IZ-link verbroken op portable
 ..Do REMIZ(MailId)
 ; Nieuwe mails gecreëerd op de portable overbrengen naar host
 Set MailId=999999
 For  Set MailId=$O(^vhMAIL("IZ",IPNr,MailId)) Quit:MailId=""  Do
 .Do TOHOST
 Quit
 
 ;Copieren van nieuwe mails verzonden naar de remote user 
COPYNOTR(IPNr) 
 Set MailId="" 
 ; Opsporen van mail die verzonden werd op de host naar de VTW
 For  Set MailId=$O(^|HostVol|vhMAIL("IN",IPNr,MailId)) Quit:MailId=""  Do
 .If '$D(^vhMAIL("D",MailId)) Do
 ..Do TOPORT(MailId)
 .Else  If $$DIFFTIME^vhDTyp($P(^|HostVol|vhMAIL("D",MailId),D,5),$P(^vhMAIL("D",MailId),D,5))>0 Do  ; Mail is gewijzigd deze moet overgekopieerd worden
 ..Do TOPORT(MailId)
 .Else  If '$D(^vhMAIL("IN",IPNr,MailId)) Do  ; IN-link verbroken, reeds gelezen
 ..Do REMIN(MailId)
 For  Set MailId=$O(^|HostVol|vhMAIL("IR",IPNr,MailId)) Quit:MailId=""  Do
 .If $D(^vhMAIL("IN",IPNr,MailId)) Do  ; IN-link terug hersteld, "Lezen ongedaan gemaakt"
 ..Do BLDIND^vhMAIL(MailId)
 .Else  If '$D(^vhMAIL("IR",IPNr,MailId)) Do  ; IR-link verwijderd
 ..Do REMIR(MailId)
 Quit
 
TOPORT Do DELOBJ^vhMAIL(MailId)
 Do MAILCOP(HostVol,MailId,MailId) ; Van host naar portable
 Quit
 
TOHOST Job MAILCOP^SYNCMAIL($ZU(5),MailId)|sRemVol|::20
 Else  Set MailId=9999999 Quit
 Set NewId="",Tijd=$P($H,",",2)
 For  Quit:$D(^SYNC("M",MailId))  Quit:Tijd+100<$P($H,",",2)  Hang 1
 Set NewId=$G(^SYNC("M",MailId)) Quit:NewId=""
 Kill ^SYNC("M",MailId)
 Do MAILCOP($ZU(5),MailId,NewId)
 Do DELOBJ^vhMAIL(MailId)
 Do REMIZ(NewId)
 Quit
 
MAILCOP(FromVol,OldNr,NewId) 
 New New
 Kill ^HULP($J)
 Merge ^HULP($J)=^|FromVol|vhMAIL("D",OldNr)
 Set New=0
 Set:'$G(NewId) New=1,NewId=$$NEXTID^MAIL()
 Merge ^MAIL("D",NewId)=^|FromVol|vhMAIL("D",OldNr)
 Do BLDIND^vhMAIL(NewId)
 Set:New ^|FromVol|SYNC("V",OldNr)=NewId
 Quit
 
REMIZ(MailId) ; Verwijderen van de IZ-node voor de mail op de HOST, zodanig dat deze mail automatisch kan verwijderd worden als alle andere deze gelezen hebben.
 Kill ^|HostVol|vhMAIL("IZ",IPNr,MailId)
 Quit
 
REMIN(MailId) ; Verwijderen van de IN-node voor de mail op de HOST
 Kill ^|HostVol|vhMAIL("IN",IPNr,MailId)
 Set ^|HostVol|vhMAIL("D",MailId,"N",IPNr)=^vhMAIL("D",MailId,"N",IPNr)
 Quit
 
REMIR(MailId) ; Verwijderen van de IR-node voor de mail op de HOST
 Kill ^|HostVol|vhMAIL("IR",IPNr,MailId)
 Quit