source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFEDUTL.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 781 bytes
Line 
1VAFEDUTL ;ALB/JLU;a utility routine;7/28/93
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4EXIT ;this subroutine kills off the necessary variables.
5 ;called from VAFEDCAP
6 K VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,VAFEDVN,VAFEDORG,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X,VAFEDCHK
7 Q
8 ;
9EXIT2 ;this subroutine kills off variable s for within the loop
10 ;called from VAFEDCAP
11 K VAFEDDAT,VAFEDCPC,VAFEDCPT,VAFEDDX,VAFEDDXC,VAFEDEDT,VAFEDEV0,VAFEDEVT,VAFEDEXT,DFN,VAFEDPRC,VAFEDPRO,VAFEDST1,VAFEDST2,VAFEDTYP,X
12 Q
13 ;
14EXOHL ;cleans up all the variables from VAFEDOHL
15 I $D(HLEVN),HLEVN D SEND^VAFEDOHL
16 D KILL^HLTRANS
17 S:$D(ZTQUEUED) ZTREQ="@"
18 K ^TMP("HLS",$J),HLDA,HLERR,VAFED
19 K VADM,VAERR,VAFEDC,VAFEDCHK,VAFEDDA,VAFEDDT,VAFEDHL,VAFEDLCT
20 Q
Note: See TracBrowser for help on using the repository browser.