vhMAIL6 ;Mail [ 10/30/2001  3:01 PM ]
 ;
ISMASTER() 
 New
 Do MASTER^cQ5
 Quit master=boot!(cs="DEV")
 ;
ISSLAVE() 
 Quit '$$ISMASTER()
 ;
 ; Tijdelijk wegschrijven van een mail
SLAVE(MailId,TekstLoc,RefLoc,FUserId,TUserId,Type,Urgentie,Respons,Onderw,Kreatie,BetrTyp,Betreft,ReplyId,Later,ArchTyp,Param,Optie) 
 New (CUserId,MailId,TekstLoc,RefLoc,FUserId,TUserId,Type,Urgentie,Respons,Onderw,Kreatie,BetrTyp,Betreft,ReplyId,Later,ArchTyp,Param,Optie) 
 If '$D(CUserId) New CUserId Set CUserId=0
 Lock +^vhMAIL("TEMP")
 Set %("Temp")=$G(^vhMAIL("TEMP"))+1,^vhMAIL("TEMP")=%("Temp")
 Lock -^vhMAIL("TEMP")
 Set %="%"
 For  Set %=$O(@%) Quit:%=""  Do
 .Merge ^vhMAIL("TEMP",%("Temp"),%)=@%
 Do MASTER^cQ5
 Set FromUci="MGR",FromVol=cs,ToUci=$P($ZU(5),","),ToVol=master Set:ToUci="VTW" ToUci="LVH",ToVol="ADM"
 Set $ZT="ERROR^vhMAIL6",%=$G(^[ToUci,ToVol]vhMAIL("TEMP"))
 Job MASTER^vhMAIL6(FromUci,FromVol)[ToUci,ToVol]::1
 Quit MailId
 ;
MASTER(FromUci,FromVol) 
 New (FromUci,FromVol)
 Set $ZT="ERROR^vhMAIL6",%=$G(^[FromUci,FromVol]vhMAIL("TEMP"))
 Set D="\",U=";",%("Temp")=""
 For  Set %("Temp")=$O(^[FromUci,FromVol]vhMAIL("TEMP",%("Temp"))) Quit:%("Temp")=""  Do
 .New (%,D,U,FromUci,FromVol)
 .Set %="%"
 .For  Set %=$O(^[FromUci,FromVol]vhMAIL("TEMP",%("Temp"),%)) Quit:%=""  Merge @%=^[FromUci,FromVol]vhMAIL("TEMP",%("Temp"),%)
 .Kill ^[FromUci,FromVol]vhMAIL("TEMP",%("Temp"))
 .Kill:$O(^[FromUci,FromVol]vhMAIL("TEMP",""))="" ^[FromUci,FromVol]vhMAIL("TEMP")
 .Set MailId=$$SAVE^vhMAIL5(MailId,.TekstLoc,.RefLoc,FUserId,.TUserId,Type,Urgentie,Respons,Onderw,Kreatie,BetrTyp,Betreft,ReplyId,Later,ArchTyp,Param,.Optie)
 Quit
 ;
ERROR 
 Do:$ZE'["<NOSYS>" ^cA400
 Quit
 ;