| 1 | PRCFFUZ ;WISC/SJG-EXIT LOGIC UTILITY ;7/24/00 23:15
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; This utility contains the exit KILL logic.
|
|---|
| 6 | ;
|
|---|
| 7 | QUIT
|
|---|
| 8 | ;
|
|---|
| 9 | ; Kill subroutines for 1358 obligation processing
|
|---|
| 10 | K1A KILL DIC,OB,DA,DIR,TRNODE,PCP,IOINHI,IOINLOW,IOINORM,X,PO,PODA,PRCHP,PATNUM,TR3,TR4,PO0,%,MSG
|
|---|
| 11 | QUIT
|
|---|
| 12 | ;
|
|---|
| 13 | 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
|
|---|
| 14 | 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
|
|---|
| 15 | QUIT
|
|---|
| 16 | ;
|
|---|
| 17 | K1C KILL DTOUT,DIRUT,DUOUT,DIROUT,ESIGCHKP,PRCB,PRCSCOST,PRCSN,PRCST,PRCST1,XMDUZ,XMSUB,XMTEXT,Y,Z
|
|---|
| 18 | QUIT
|
|---|
