ACDWK.m

ACDWK ;IHS/ADC/EDE/KML - KILL VARIABLES;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;**********************************************************************

 ;//^ACDWDRV*, ^ACDWCD*, ^ACDWRP*, ^ACDWCD1 ^ACDWQ

 ;***********************************************************************

 ;

CHK ;See if no data was found on report and issue message

 I $D(ACDNW),'$D(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL")) W !?17," ** NO DATA FOUND FOR THIS REPORT **"

 ;

RESET ;Go reset the ACDFAC, ACDAREA, ACDSU counters

 ;This is done after  each report i.e. each report comes here when done.

 D RESET^ACDWUTL

 ;

K ;Kill variables. Note some variables cannot be killed after each

 ;report but only after the WHOLE BATCH of reports has run. These

 ;variables are therefore killed in the driver routines ACDWDRV*

 ;after all reports are finished.

 ;

 K ACDTOB

 K ACDSAVG

 K ACDA1,ACDCOED,ACDNCNT,ACDVCNT,ACDPCHRS,ACDP4,ACDP5

 K ACDPG,ACDPROV,ACDDFN,ACDCOMC,ACDCOMCL,ACDCOMCS,ACDCOMT,ACDCOMTL,ACDCONT,ACDCONTL,ACDAGER,ACDTO,ACDFR,ACDDA,ACDPROBP,ACDPROBS,ACDCIT,ACDDUA,ACDDUD

 K ACDDT,ACDDH,ACDARR,ACDSS,ACDPS,ACDES,ACDSS,ACDCS,ACDBS,ACDPLAR,ACDPLAR1,ACDPLAA,ACDPLAA1,ACDDIF

 K ACD,ACDRTN,ACDNUM,ACDCLI,ACDP1,ACDP2,ACDDFN1,ACDSEX,ACDDFNP,ACDPL,ACDV,ACDAAR,ACDFOLMO,ACDCNT,ACDUNIQ,ACDDFNA,ACDTIME

 K ACDTRIB

 ;

END ;

 K ACDC,ACDDAP,ACDF,ACDGA,ACDID,ACDLP1,ACDO,ACDQUIT,ACDVD,ACDVP,ACDLP,ACDSUS,ACDTDCR,ACDY,ACDADD,ACDP(3),ACDDO,ACDRPTS

 ;

 K ACDSTOT1,ACDSTOT

 K ACDUZ(2)

 ;K ^TMP("ACD",$J)

 K ACDC,ACDCBO,ACDCOMB,ACDCOMCL,ACDGTOT,ACDHOUR,ACDRUG,ACDTOT,ACDSVAC

 K ACDDTA,ACDPTA

 K ACDSTATE

 K ACDPTP

 K ACDCODR

 K ACDAE,ACDCLIV,ACDDTP,ACDGTOT,ACDLP

 K ACDC(5),ACDGTOT,ACDL,ACDLA,ACDLP,ACDP3,ACDPP,ACDTOT1

 K ACDLIST

 K ^TMP("CDMIS",$J)

 K ACDJJ,ACDJJ1,ACDJJ2,ACDGTOT1

 K ACDIFCNT,ACDSCNT

 K ACD33,ACD38,ACD56,ACD26

 K ACD20,ACD27

 K ACDPNT

 K ACDAY,ACDPRVA,ACDLOC,ACDTRG,ACDNUMR,ACDOUTC

 K ACDM,ACDSUB

 K ACDN0,ACDN01

 K ACDDA,ACDDA1

 K ACDLOTY

 K ACDAUF,ACDJBN,ACDLDA

 K DIR

 K ACDP(2),ACDP(1),ACDTHREE,ACDTWO,ACDX

 K ACDONE,ACD1,ACDNOQUE

 K ACD3,ACDP,ACDDAY

 K ACDOUTD

 K ACDPROVP

 K ACD80,ACDCNUM,ACDGVER,ACDPAGE,ACDTH,ACDVH,ACDVNUM,ACDWSTAF,ACDTHP

 K ACDPDT

 K ACD2,ACDPNUM,ACDPRVC

 K ACDP

SSC ;Stop screen

 K DIR

 I '$D(ZTQUEUED),$E(IOST)="C",'$D(DIRUT) S DIR("A")="Press return to continue",DIR(0)="E" D ^DIR

 K ACDOTHRS

 K ACDOTDIS

 K ACDTHOT

 K ACDCNUMT

 K ACDCLIU

ACDWK     ;IHS/ADC/EDE/KML - KILL VARIABLES;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;**********************************************************************

 +3       ;//^ACDWDRV*, ^ACDWCD*, ^ACDWRP*, ^ACDWCD1 ^ACDWQ

 +4       ;***********************************************************************

 +5       ;

CHK       ;See if no data was found on report and issue message

 +1        IF $DATA(ACDNW)

               IF '$DATA(^TMP("ACD",ACDJOB,ACDBT,ACDTGSUB,"VAL"))

                   WRITE !?17," ** NO DATA FOUND FOR THIS REPORT **"

 +2       ;

RESET     ;Go reset the ACDFAC, ACDAREA, ACDSU counters

 +1       ;This is done after  each report i.e. each report comes here when done.

 +2        DO RESET^ACDWUTL

 +3       ;

K         ;Kill variables. Note some variables cannot be killed after each

 +1       ;report but only after the WHOLE BATCH of reports has run. These

 +2       ;variables are therefore killed in the driver routines ACDWDRV*

 +3       ;after all reports are finished.

 +4       ;

 +5        KILL ACDTOB

 +6        KILL ACDSAVG

 +7        KILL ACDA1,ACDCOED,ACDNCNT,ACDVCNT,ACDPCHRS,ACDP4,ACDP5

 +8        KILL ACDPG,ACDPROV,ACDDFN,ACDCOMC,ACDCOMCL,ACDCOMCS,ACDCOMT,ACDCOMTL,ACDCONT,ACDCONTL,ACDAGER,ACDTO,ACDFR,ACDDA,ACDPROBP,ACDPROBS,ACDCIT,ACDDUA,ACDDUD

 +9        KILL ACDDT,ACDDH,ACDARR,ACDSS,ACDPS,ACDES,ACDSS,ACDCS,ACDBS,ACDPLAR,ACDPLAR1,ACDPLAA,ACDPLAA1,ACDDIF

 +10       KILL ACD,ACDRTN,ACDNUM,ACDCLI,ACDP1,ACDP2,ACDDFN1,ACDSEX,ACDDFNP,ACDPL,ACDV,ACDAAR,ACDFOLMO,ACDCNT,ACDUNIQ,ACDDFNA,ACDTIME

 +11       KILL ACDTRIB

 +12      ;

END       ;

 +1        KILL ACDC,ACDDAP,ACDF,ACDGA,ACDID,ACDLP1,ACDO,ACDQUIT,ACDVD,ACDVP,ACDLP,ACDSUS,ACDTDCR,ACDY,ACDADD,ACDP(3),ACDDO,ACDRPTS

 +2       ;

 +3        KILL ACDSTOT1,ACDSTOT

 +4        KILL ACDUZ(2)

 +5       ;K ^TMP("ACD",$J)

 +6        KILL ACDC,ACDCBO,ACDCOMB,ACDCOMCL,ACDGTOT,ACDHOUR,ACDRUG,ACDTOT,ACDSVAC

 +7        KILL ACDDTA,ACDPTA

 +8        KILL ACDSTATE

 +9        KILL ACDPTP

 +10       KILL ACDCODR

 +11       KILL ACDAE,ACDCLIV,ACDDTP,ACDGTOT,ACDLP

 +12       KILL ACDC(5),ACDGTOT,ACDL,ACDLA,ACDLP,ACDP3,ACDPP,ACDTOT1

 +13       KILL ACDLIST

 +14       KILL ^TMP("CDMIS",$JOB)

 +15       KILL ACDJJ,ACDJJ1,ACDJJ2,ACDGTOT1

 +16       KILL ACDIFCNT,ACDSCNT

 +17       KILL ACD33,ACD38,ACD56,ACD26

 +18       KILL ACD20,ACD27

 +19       KILL ACDPNT

 +20       KILL ACDAY,ACDPRVA,ACDLOC,ACDTRG,ACDNUMR,ACDOUTC

 +21       KILL ACDM,ACDSUB

 +22       KILL ACDN0,ACDN01

 +23       KILL ACDDA,ACDDA1

 +24       KILL ACDLOTY

 +25       KILL ACDAUF,ACDJBN,ACDLDA

 +26       KILL DIR

 +27       KILL ACDP(2),ACDP(1),ACDTHREE,ACDTWO,ACDX

 +28       KILL ACDONE,ACD1,ACDNOQUE

 +29       KILL ACD3,ACDP,ACDDAY

 +30       KILL ACDOUTD

 +31       KILL ACDPROVP

 +32       KILL ACD80,ACDCNUM,ACDGVER,ACDPAGE,ACDTH,ACDVH,ACDVNUM,ACDWSTAF,ACDTHP

 +33       KILL ACDPDT

 +34       KILL ACD2,ACDPNUM,ACDPRVC

 +35       KILL ACDP

SSC       ;Stop screen

 +1        KILL DIR

 +2        IF '$DATA(ZTQUEUED)

               IF $EXTRACT(IOST)="C"

                   IF '$DATA(DIRUT)

                       SET DIR("A")="Press return to continue"

                       SET DIR(0)="E"

                       DO ^DIR

 +3        KILL ACDOTHRS

 +4        KILL ACDOTDIS

 +5        KILL ACDTHOT

 +6        KILL ACDCNUMT

 +7        KILL ACDCLIU