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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFEDUTL 801 printed Nov 22, 2024@18:12:36 Page 2
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
