source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFFUZ.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 837 bytes
RevLine 
[613]1PRCFFUZ ;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
10K1A KILL DIC,OB,DA,DIR,TRNODE,PCP,IOINHI,IOINLOW,IOINORM,X,PO,PODA,PRCHP,PATNUM,TR3,TR4,PO0,%,MSG
11 QUIT
12 ;
13K1B 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 ;
17K1C KILL DTOUT,DIRUT,DUOUT,DIROUT,ESIGCHKP,PRCB,PRCSCOST,PRCSN,PRCST,PRCST1,XMDUZ,XMSUB,XMTEXT,Y,Z
18 QUIT
Note: See TracBrowser for help on using the repository browser.