SYNCROUT ; Update van de routines [ 10/31/2001  9:53 AM ]
 ;
 ; Dit programma maakt gebruik van de entries in ^SYNC("R").
 ; Deze entries werden aangemaakt door prog. ^ce in de MASTER volume
 ;
TRAP If $P($ZERROR,">")="<NOSYS" Quit  ; Niets aan de hand, alleen remote is niet gekend
 ZQuit  ; Ga naar de andere error-handler
 ;
SYNC(sRemVol) 
 New sUci,sProg
 Set sUci=""
 For  Set sUci=$O(^SYNC("R","COPY",sRemVol,sUci)) Quit:sUci=""  Do
 .Set sProg=""
 .For  Set sProg=$O(^SYNC("R","COPY",sRemVol,sUci,sProg)) Quit:sProg=""  Do COPY(sRemVol,sUci,sProg)
 Kill ^SYNC("R","COPY",sRemVol)
 Quit
 ;
COPY(sRemVol,sUci,sProg) 
 If $E(sRemVol,1,2)="PV",sUci="LVH" Set sUci="VTW"
 Do c^cR(sProg,sUci,sRemVol,1)
 Quit
 ;