VERVO ;OVERDRACHT VERVOER BLUM ;(VANUIT MENU) ;VERVO; Do naar VERVS, VERV [ 09/17/98  9:08 PM ]
 G BEGIN
 ;
T1 ; ID-nummer ; is reeds overgedragen  [] = ok 
 ;
O1 S K=$P($T(T1),U,2)_VRF_$P($T(T1),U,3) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,@FMTi,@F0
OZ Q
 ;
 ;Initialisatie
IN S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 K ^HULP($J) S LC="",U4="O"
 Q
 ;
BEGIN D IN,SELECT^VERVID("",5005,"DO","") G END:R="-"!'$L(VRF) I $L($P(^Verv(LC,"D",VRF),D,7)) K IK D O1,IK^PROC1 G END
 D OVD^VERV
 ;
END K ^HULP($J) Q
 ;
Z X ^cZ Q
ZZ ; 09.09.91 - 11 u 35