| 1 | VAFEDUTL ;ALB/JLU;a utility routine;7/28/93
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EXIT ;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 | ;
|
|---|
| 9 | EXIT2 ;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 | ;
|
|---|
| 14 | EXOHL ;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
|
|---|
