Routine: APCLWL1

APCLWL1 ; IHS/CMI/LAB - CLINIC HOURLY WORKLOAD REPORT ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

DOC ;See INFORM section for documentation notes for this routine

 ;List of VARIABLES with brief descriptions:

START ;Start of routine

 I '$G(DUZ(2)) W $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! K APCLSITE Q

 S APCLSITE=DUZ(2)

INFORM ;

 W:$D(IOF) @IOF

 W !,"  ******* TALLY OF DAILY VISITS BY 24-HOUR TIME FRAMES *******"

 W !,"- This report will generate an hourly visit count, by clinic,",!,"  for a date range that you specify.",!

 W "- ALL visits in the database will be included in the tabulation with",!,"  the exception of the following:  "

 W !,"    VISIT TYPES:  Contract, VA",!,"    VISIT SERVICE CATEGORIES:  Chart Review, In-Hospital, Ancillary,",!?31,"Hospitalizations, Events, Telecommunications",!

 W "- Visits MUST have a Primary Provider and Purpose of Visit.",!

 W "- The report will be totaled by hourly time frames.",!

GETDATES ;This section gets BEGINNING and ENDING dates:

BD ;Get beginning date

 W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter Beginning Visit Date" D ^DIR

 K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G XIT

 S APCLBD=Y

ED ;Get ending date

 W ! S DIR(0)="DA^"_APCLBD_":DT:EP",DIR("A")="Enter Ending Visit Date:  "

 S Y=APCLBD D DD^%DT S Y="" D ^DIR

 K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 S APCLED=Y,X1=APCLBD,X2=-1

 S X1=APCLBD,X2=-1 D C^%DTC S APCLSD=X

LOC ;Enter facility

 S DIC("A")="Select Facility: ",DIC="^AUTTLOC(",DIC(0)="AEMQ",DIC("B")=$P(^DIC(4,DUZ(2),0),U) D ^DIC K DIC,DA G:Y<0 BD

 S APCLLOC=+Y

CLIN ;Select Clinic(s)

 S DIR(0)="YO",DIR("A")="Include visits from ALL Clinics",DIR("B")="NO",DIR("?")="If you wish to include visits from ALL of clinics answer Yes.  If you wish to tabulate for a single clinic enter NO." D ^DIR K DIR

 G:$D(DIRUT) BD

 I Y=1 S APCLCLN="" G AGE

CLIN1 ;

 S DIC("A")="Select Clinic: ",DIC="^DIC(40.7,",DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 CLIN

 S APCLCLN=+Y

AGE ;Age Screening

 K APCLAGE,APCLAGET

 W ! S DIR(0)="YO",DIR("A")="Would you like to restrict the report by Patient age range",DIR("B")="YES"

 S DIR("?")="If you wish to include visits from ALL age ranges, anwser No.  If you wish to include visits for only patients within a particular age range, enter Yes."

 D ^DIR K DIR

 G:$D(DIRUT) CLIN

 I 'Y G PROV

AGER ;Age Screening

W !

 S DIR(0)="FO^1:7",DIR("A")="Enter an Age Range (e.g. 5-12,1-1)" D ^DIR

 I Y="" W !!,"No age range entered." G AGE

 I Y'?1.3N1"-"1.3N W !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20." G AGER

 S APCLAGET=Y

PROV ;Provider Screening

 S DIR(0)="YO",DIR("A")="Include visits from ALL Providers",DIR("B")="NO",DIR("?")="If you wish to include visits from ALL of Providers answer Yes.  If you wish to tabulate for a single Provider enter NO." D ^DIR K DIR

 G:$D(DIRUT) BD

 I Y=1 S APCLPROV="" G ZIS

PROV1 ;Provider Screening

 S DIC("A")="Select Provider: ",DIC=$S($P(^DD(9000010.06,.01,0),U,2)[200:"^VA(200,",1:"^DIC(6,"),DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 PROV

 S APCLPROV=+Y

ZIS ;

DEMO ;

 D DEMOCHK^APCLUTL(.APCLDEMO)

 I APCLDEMO=-1 G PROV

 W !!,$C(7),$C(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!!

 S XBRP="^APCLWL1P",XBRC="^APCLWL11",XBRX="XIT^APCLWL1",XBNS="APCL"

 D ^XBDBQUE

 D XIT

ERR W $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Q

XIT ;

 K APCL132S,APCLBD,APCLBDD,APCLCLN,APCLCLNT,APCLDT,APCLED,APCLEDD,APCLTAB,APCLGTOT,APCLODAT,APCLPG,APCLSD,APCLSITE,APCLSRT2,APCLTIME,APCLET,APCLAGET

 K APCLVDFN,APCLVLOC,APCLVREC,APCLBT,APCLLENG,APCLLOC,APCLLOCT,APCLQUIT,APCLJOB,APCLDATE,APCL1,APCL2,APCLDOW,APCLCLIN,APCLPROV,APCLFILE

 K X,Y,ZTSK,X1,X2,XBNS,XBRC,XBRP,XBRX,DIC,DA,DIG,DIH,DIR,DIRUT,DIU,DIV

APCLWL1   ; IHS/CMI/LAB - CLINIC HOURLY WORKLOAD REPORT ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

DOC       ;See INFORM section for documentation notes for this routine

 +1       ;

 +2       ;List of VARIABLES with brief descriptions:

 +3       ;

START     ;Start of routine

 +1        IF '$GET(DUZ(2))

               WRITE $CHAR(7),$CHAR(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!

               KILL APCLSITE

               QUIT

 +2        SET APCLSITE=DUZ(2)

INFORM    ;

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !,"  ******* TALLY OF DAILY VISITS BY 24-HOUR TIME FRAMES *******"

 +3        WRITE !,"- This report will generate an hourly visit count, by clinic,",!,"  for a date range that you specify.",!

 +4        WRITE "- ALL visits in the database will be included in the tabulation with",!,"  the exception of the following:  "

 +5        WRITE !,"    VISIT TYPES:  Contract, VA",!,"    VISIT SERVICE CATEGORIES:  Chart Review, In-Hospital, Ancillary,",!?31,"Hospitalizations, Events, Telecommunications",!

 +6        WRITE "- Visits MUST have a Primary Provider and Purpose of Visit.",!

 +7        WRITE "- The report will be totaled by hourly time frames.",!

 +8       ;

GETDATES  ;This section gets BEGINNING and ENDING dates:

BD        ;Get beginning date

 +1        WRITE !

           SET DIR(0)="D^:DT:EP"

           SET DIR("A")="Enter Beginning Visit Date"

           DO ^DIR

 +2        KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO XIT

 +4        SET APCLBD=Y

ED        ;Get ending date

 +1        WRITE !

           SET DIR(0)="DA^"_APCLBD_":DT:EP"

           SET DIR("A")="Enter Ending Visit Date:  "

 +2        SET Y=APCLBD

           DO DD^%DT

           SET Y=""

           DO ^DIR

 +3        KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               GOTO BD

 +5        SET APCLED=Y

           SET X1=APCLBD

           SET X2=-1

 +6        SET X1=APCLBD

           SET X2=-1

           DO C^%DTC

           SET APCLSD=X

 +7       ;

LOC       ;Enter facility

 +1        SET DIC("A")="Select Facility: "

           SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           SET DIC("B")=$PIECE(^DIC(4,DUZ(2),0),U)

           DO ^DIC

           KILL DIC,DA

           IF Y<0

               GOTO BD

 +2        SET APCLLOC=+Y

 +3       ;

CLIN      ;Select Clinic(s)

 +1        SET DIR(0)="YO"

           SET DIR("A")="Include visits from ALL Clinics"

           SET DIR("B")="NO"

           SET DIR("?")="If you wish to include visits from ALL of clinics answer Yes.  If you wish to tabulate for a single clinic enter NO."

           DO ^DIR

           KILL DIR

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        IF Y=1

               SET APCLCLN=""

               GOTO AGE

CLIN1     ;

 +1        SET DIC("A")="Select Clinic: "

           SET DIC="^DIC(40.7,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC,DA

           IF Y<0

               GOTO CLIN

 +2        SET APCLCLN=+Y

AGE       ;Age Screening

 +1        KILL APCLAGE,APCLAGET

 +2        WRITE !

           SET DIR(0)="YO"

           SET DIR("A")="Would you like to restrict the report by Patient age range"

           SET DIR("B")="YES"

 +3        SET DIR("?")="If you wish to include visits from ALL age ranges, anwser No.  If you wish to include visits for only patients within a particular age range, enter Yes."

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO CLIN

 +6        IF 'Y

               GOTO PROV

 +7       ;

AGER      ;Age Screening

 +1        WRITE !

 +2        SET DIR(0)="FO^1:7"

           SET DIR("A")="Enter an Age Range (e.g. 5-12,1-1)"

           DO ^DIR

 +3        IF Y=""

               WRITE !!,"No age range entered."

               GOTO AGE

 +4        IF Y'?1.3N1"-"1.3N

               WRITE !!,$CHAR(7),$CHAR(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."

               GOTO AGER

 +5        SET APCLAGET=Y

 +6       ;

PROV      ;Provider Screening

 +1       ;

 +2        SET DIR(0)="YO"

           SET DIR("A")="Include visits from ALL Providers"

           SET DIR("B")="NO"

           SET DIR("?")="If you wish to include visits from ALL of Providers answer Yes.  If you wish to tabulate for a single Provider enter NO."

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO BD

 +4        IF Y=1

               SET APCLPROV=""

               GOTO ZIS

PROV1     ;Provider Screening

 +1       ;

 +2        SET DIC("A")="Select Provider: "

           SET DIC=$SELECT($PIECE(^DD(9000010.06,.01,0),U,2)[200:"^VA(200,",1:"^DIC(6,")

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC,DA

           IF Y<0

               GOTO PROV

 +3        SET APCLPROV=+Y

ZIS       ;

DEMO      ;

 +1        DO DEMOCHK^APCLUTL(.APCLDEMO)

 +2        IF APCLDEMO=-1

               GOTO PROV

 +3        WRITE !!,$CHAR(7),$CHAR(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!!

 +4        SET XBRP="^APCLWL1P"

           SET XBRC="^APCLWL11"

           SET XBRX="XIT^APCLWL1"

           SET XBNS="APCL"

 +5        DO ^XBDBQUE

 +6        DO XIT

 +7        QUIT

ERR        WRITE $CHAR(7),$CHAR(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"

           QUIT

XIT       ;

 +1        KILL APCL132S,APCLBD,APCLBDD,APCLCLN,APCLCLNT,APCLDT,APCLED,APCLEDD,APCLTAB,APCLGTOT,APCLODAT,APCLPG,APCLSD,APCLSITE,APCLSRT2,APCLTIME,APCLET,APCLAGET

 +2        KILL APCLVDFN,APCLVLOC,APCLVREC,APCLBT,APCLLENG,APCLLOC,APCLLOCT,APCLQUIT,APCLJOB,APCLDATE,APCL1,APCL2,APCLDOW,APCLCLIN,APCLPROV,APCLFILE

 +3        KILL X,Y,ZTSK,X1,X2,XBNS,XBRC,XBRP,XBRX,DIC,DA,DIG,DIH,DIR,DIRUT,DIU,DIV

 +4        QUIT

 +5       ;

APCLWL1.m