VAFEDUTL ;ALB/JLU;a utility routine;7/28/93
 ;;5.3;Registration;;Aug 13, 1993
 ;
EXIT ;this subroutine kills off the necessary variables.
 ;called from VAFEDCAP
 K VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,VAFEDVN,VAFEDORG,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X,VAFEDCHK
 Q
 ;
EXIT2 ;this subroutine kills off variable s for within the loop
 ;called from VAFEDCAP
 K VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X
 Q
 ;
EXOHL ;cleans up all the variables from VAFEDOHL
 I $D(HLEVN),HLEVN D SEND^VAFEDOHL
 D KILL^HLTRANS
 S:$D(ZTQUEUED) ZTREQ="@"
 K ^TMP("HLS",$J),HLDA,HLERR,VAFED
 K VADM,VAERR,VAFEDC,VAFEDCHK,VAFEDDA,VAFEDDT,VAFEDHL,VAFEDLCT
 Q