- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFFUZ 855 printed Apr 23, 2025@18:18:34 Page 2
- PRCFFUZ ;WISC/SJG-EXIT LOGIC UTILITY ;7/24/00 23:15
- +1 ;;5.1;IFCAP;;Oct 20, 2000
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ; This utility contains the exit KILL logic.
- +5 ;
- +6 QUIT
- +7 ;
- +8 ; 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
- +1 QUIT
- +2 ;
- 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
- +1 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
- +2 QUIT
- +3 ;
- K1C KILL DTOUT,DIRUT,DUOUT,DIROUT,ESIGCHKP,PRCB,PRCSCOST,PRCSN,PRCST,PRCST1,XMDUZ,XMSUB,XMTEXT,Y,Z
- +1 QUIT
