Routine: BCHRPTX

BCHRPTX ; IHS/CMI/LAB - CLEANUP FOR REPORT ;

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

KILL ;EP

 K BCHPOV,BCHPRIM,BCHPTVS,BCHROSP,BCHSRT2,BCHVTOT,BCHXREF,BCHLNO,BCHCHRT,BCHRPOSP

 K BCHODAT,BCHPCNT,BCHRPT,BCHSORT,BCHSRT,BCHTCW,BCHA,BCHBT,BCHBTH,BCHJOB,BCHLENG,BCHRPREP

 K BCHSPROG,BCHSPROV,BCHSPVDS,BCHSPROB,BCHSTACT,BCHSCONT,BCHSSCOM,BCHSSLOC,BCHSPAT,BCHSPCOM,BCHSSEX,BCHSTRI,BCHANS,BCHC,BCHCNT,BCHCUT,BCHRPTC,BCHRPTI,BCHRPTP,BCHPTPA,BCHRPTST,BCHSCNT,BCHSKIP,BCHSORV,BCHSPAG

 K BCHSEL,BCHQUIT,BCHRANS,BCHCRIT,BCHRI,BCHTEXT,BCHRTN,BCHBD,BCHED,BCHSD,BCHBDD,BCHEDD,BCHRTYPE,BCHHIGH,BCHVAR,BCHVAR1,BCH80E,BCH80D,BCH132E,BCH132D,BCHP,BCHPG,BCHR0,BCHRCNT,BCHRDFN,BCHACT,BCHACTC,BCHCAT,BCHCOMM,BCHCW,BCHDATE,BCHDISC

 K BCHDONE,BCHDT,BCHHD1,BCHHD2,BCHINF,BCHINFO,BCHLINE,BCHPPOV,BCHPRNM,BCHPRNT,BCHPROB,BCHPROG,BCHPROV,BCHPTOT,BCHR1325,BCHRAGE,BCHRBIN,BCHRDOB,BCHRDOBS,BCHRDT,BCHRLENG,BCHRNN,BCHRPG,BCHRPRCR,BCHRPROC,BCHRPTPA,BCHRRPT,BCHRSEX

 K BCHRSRT,BCHRSRT2,BCHRZ,BCHSEL,BCHRSRT2,BCHSU,BCHTITL,BCHTOT,BCHTRPT,BCHTTOT,BCHVLOC,BCHTEXT,BCHSRTR

 D XIT^BCHRPTU

 K X,X1,X2,IO("Q"),%,Y,POP,DIRUT,ZTSK,ZTQUEUED,H,S,TS,M,ZTIO,DUOUT,DIR,DTOUT,V,Z,I,A,B,X,Y

BCHRPTX   ; IHS/CMI/LAB - CLEANUP FOR REPORT ;

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

 +3       ;

KILL      ;EP

 +1        KILL BCHPOV,BCHPRIM,BCHPTVS,BCHROSP,BCHSRT2,BCHVTOT,BCHXREF,BCHLNO,BCHCHRT,BCHRPOSP

 +2        KILL BCHODAT,BCHPCNT,BCHRPT,BCHSORT,BCHSRT,BCHTCW,BCHA,BCHBT,BCHBTH,BCHJOB,BCHLENG,BCHRPREP

 +3        KILL BCHSPROG,BCHSPROV,BCHSPVDS,BCHSPROB,BCHSTACT,BCHSCONT,BCHSSCOM,BCHSSLOC,BCHSPAT,BCHSPCOM,BCHSSEX,BCHSTRI,BCHANS,BCHC,BCHCNT,BCHCUT,BCHRPTC,BCHRPTI,BCHRPTP,BCHPTPA,BCHRPTST,BCHSCNT,BCHSKIP,BCHSORV,BCHSPAG

 +4        KILL BCHSEL,BCHQUIT,BCHRANS,BCHCRIT,BCHRI,BCHTEXT,BCHRTN,BCHBD,BCHED,BCHSD,BCHBDD,BCHEDD,BCHRTYPE,BCHHIGH,BCHVAR,BCHVAR1,BCH80E,BCH80D,BCH132E,BCH132D,BCHP,BCHPG,BCHR0,BCHRCNT,BCHRDFN,BCHACT,BCHACTC,BCHCAT,BCHCOMM,BCHCW,BCHDATE,BCHDISC

 +5        KILL BCHDONE,BCHDT,BCHHD1,BCHHD2,BCHINF,BCHINFO,BCHLINE,BCHPPOV,BCHPRNM,BCHPRNT,BCHPROB,BCHPROG,BCHPROV,BCHPTOT,BCHR1325,BCHRAGE,BCHRBIN,BCHRDOB,BCHRDOBS,BCHRDT,BCHRLENG,BCHRNN,BCHRPG,BCHRPRCR,BCHRPROC,BCHRPTPA,BCHRRPT,BCHRSEX

 +6        KILL BCHRSRT,BCHRSRT2,BCHRZ,BCHSEL,BCHRSRT2,BCHSU,BCHTITL,BCHTOT,BCHTRPT,BCHTTOT,BCHVLOC,BCHTEXT,BCHSRTR

 +7        DO XIT^BCHRPTU

 +8        KILL X,X1,X2,IO("Q"),%,Y,POP,DIRUT,ZTSK,ZTQUEUED,H,S,TS,M,ZTIO,DUOUT,DIR,DTOUT,V,Z,I,A,B,X,Y

 +9        QUIT

BCHRPTX.m