19 lines
837 B
Mathematica
19 lines
837 B
Mathematica
PRCFFUZ ;WISC/SJG-EXIT LOGIC UTILITY ;7/24/00 23:15
|
|
;;5.1;IFCAP;;Oct 20, 2000
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
; This utility contains the exit KILL logic.
|
|
;
|
|
QUIT
|
|
;
|
|
; Kill subroutines for 1358 obligation processing
|
|
K1A KILL DIC,OB,DA,DIR,TRNODE,PCP,IOINHI,IOINLOW,IOINORM,X,PO,PODA,PRCHP,PATNUM,TR3,TR4,PO0,%,MSG
|
|
QUIT
|
|
;
|
|
K1B KILL ACCEDIT,AMT,APCKDT,BEGDATE,BOC,CONT,CONTEND,CONTIEN,CURDT,DEFDT,DEL,ENDDATE,ESIGCHK,ESIGMSG,EXIT,EXIT1,FISCEDIT,FMEOM,FMSINT,FMSMOD,FMSVENID,FOB,GECSFMS,HELP,IDFLAG,LOOP,MOD,NEWACC,NEWDATE,NUMB
|
|
KILL P2,PARAM,PARAM1,PARTDT,PODATE,POIEN,PRCCC,PRCCCC,PRCCP,PRCCSCC,PRCFA,PRCFMO,PRCREQST,PRCSTA,PRCSTR,PRCTMP,SATSTN,STR2,TIME,TMP,TT,URESP,VENCONT,YY
|
|
QUIT
|
|
;
|
|
K1C KILL DTOUT,DIRUT,DUOUT,DIROUT,ESIGCHKP,PRCB,PRCSCOST,PRCSN,PRCST,PRCST1,XMDUZ,XMSUB,XMTEXT,Y,Z
|
|
QUIT
|