TRANSPE ;Verwerking expediteur (EDI) [ 10/23/2000  2:05 PM ]
 ;
VERWERK(VervRef) 
 New R,TranspNr
 Set R=^TRANSP("D",VervRef),TranspNr=$P(R,D)
 Set R=$T(@TranspNr) Set:R="" R="DEFAULT(VervRef)"
 Do @R
 Quit
 ;
 ; ABX
5036(VervRef) 
 Do VERWERK^TRANSPEA(VervRef)
 Quit
 ; 
 ; Default verwerking
DEFAULT(VervRef) 
 Quit
 ;