VAFEDUTL.m

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

VAFEDUTL  ;ALB/JLU;a utility routine;7/28/93

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2       ;

EXIT      ;this subroutine kills off the necessary variables.

 +1       ;called from VAFEDCAP

 +2        KILL VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,VAFEDVN,VAFEDORG,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X,VAFEDCHK

 +3        QUIT 

 +4       ;

EXIT2     ;this subroutine kills off variable s for within the loop

 +1       ;called from VAFEDCAP

 +2        KILL VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X

 +3        QUIT 

 +4       ;

EXOHL     ;cleans up all the variables from VAFEDOHL

 +1        IF $DATA(HLEVN)

               IF HLEVN

                   DO SEND^VAFEDOHL

 +2        DO KILL^HLTRANS

 +3        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +4        KILL ^TMP("HLS",$JOB),HLDA,HLERR,VAFED

 +5        KILL VADM,VAERR,VAFEDC,VAFEDCHK,VAFEDDA,VAFEDDT,VAFEDHL,VAFEDLCT

 +6        QUIT