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