Routine: APCLAP2

APCLAP2 ; IHS/CMI/LAB - All visit report driver ;

 ;;2.0;IHS PCC SUITE;**6,7**;MAY 14, 2009

START ;

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

 I '$D(APCLRPT) W !,$C(7),$C(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",! Q

 D GETINFO^APCLAP0 G:$D(APCLQUIT) XIT

 S APCLJOB=$J,APCLBTH=$H

 D INFORM

CHECK ;

 I APCLRPT'="P"&(APCLRPT'="DIS") G GETDATES

 S DIR(0)="SO^P:Primary Provider Only;A:All Providers (Primary and Secondary)",DIR("A")="Report should include"

 S DIR("?")="If you wish to count only the primary provider of service enter a 'P'.  To include ALL providers enter an 'A'." D ^DIR K DIR

 G:$D(DIRUT) XIT

 I Y="A" S APCLRPT=$S(APCLRPT="DIS":"ALLDISC",1:"ALLP")

 I Y="P" S APCLRPT=$S(APCLRPT="P":"PROV",1:"DISC")

 D GETINFO^APCLAP0

GETDATES ;

BD ;get beginning date

 W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter beginning Visit Date for Search" 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 for Search:  " 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

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

CR ;chart reviews?

 K APCLCRYN

 K DIR

 S DIR(0)="Y",DIR("A")="Do you want to include visits with a CHART REVIEW service category",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G BD

 S APCLCRYN=Y

LOC I APCLRPT="LOS" S APCLLOC=0 G TOTAL

 S APCLLOC=$$GETLOC^APCLOCCK

 I APCLLOC=-1 G CR

TOTAL ;

 S APCLTOTL=""

 S DIR(0)="Y",DIR("A")="Do you wish to include a total page which would include all Locations combined",DIR("B")="Y" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G LOC

 S APCLTOTL=Y

ZIS ;CALL TO XBDBQUE

DEMO ;

 D DEMOCHK^APCLUTL(.APCLDEMO)

 I APCLDEMO=-1 G LOC

 S XBRP="^APCLAP2P",XBRC="^APCLAP21",XBRX="XIT^APCLAP2",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 APCLSITE,APCLRPT,APCLINFO,APCLSORT,APCLPROC,APCLINF,APCLBD,APCLED,APCLSD,APCLDT,APCLLOC,APCLODAT,APCLVDFN,APCLVLOC,APCLVREC,APCLCLIN,APCLSKIP,APCL1,APCL2,APCLAP,APCLDISC,APCLPPOV,APCLX,APCLHIGH,APCLDATE,APCLADIS,APCLJOB

 K APCLDX,APCLLOW,APCLICD,APCLDA1,APCLDA2,APCLY,APCLTITL,APCL80S,APCLEDD,APCLHD1,APCLHD2,APCLLENG,APCLLOCT,APCLPG,APCLSRT2,APCLTOT,APCLBDD,APCLPROV,APCLSEC,APCLZ,APCLCAT,APCL80S,APCLSITE,APCLQUIT,APCLPRNT,APCLQUIT,APCLBT,APCLBTH

INFORM ;

 W:$D(IOF) @IOF

 W !,"***** VISIT COUNTS BY ",APCLTITL," *****",!

 W !,"This report will generate a count of visits by ",APCLINF,!,"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:  In-Hospital, Hospitalizations,",!,"Historical Events.",!

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

 W "The report will be sub-totaled by Location of Encounter.",!

APCLAP2   ; IHS/CMI/LAB - All visit report driver ;

 +1       ;;2.0;IHS PCC SUITE;**6,7**;MAY 14, 2009

 +2       ;

START     ;

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

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

               KILL APCLSITE

               QUIT

 +2        IF '$DATA(APCLRPT)

               WRITE !,$CHAR(7),$CHAR(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",!

               QUIT

 +3        DO GETINFO^APCLAP0

           IF $DATA(APCLQUIT)

               GOTO XIT

 +4        SET APCLJOB=$JOB

           SET APCLBTH=$HOROLOG

 +5        DO INFORM

CHECK     ;

 +1        IF APCLRPT'="P"&(APCLRPT'="DIS")

               GOTO GETDATES

 +2        SET DIR(0)="SO^P:Primary Provider Only;A:All Providers (Primary and Secondary)"

           SET DIR("A")="Report should include"

 +3        SET DIR("?")="If you wish to count only the primary provider of service enter a 'P'.  To include ALL providers enter an 'A'."

           DO ^DIR

           KILL DIR

 +4        IF $DATA(DIRUT)

               GOTO XIT

 +5        IF Y="A"

               SET APCLRPT=$SELECT(APCLRPT="DIS":"ALLDISC",1:"ALLP")

 +6        IF Y="P"

               SET APCLRPT=$SELECT(APCLRPT="P":"PROV",1:"DISC")

 +7        DO GETINFO^APCLAP0

GETDATES  ;

BD        ;get beginning date

 +1        WRITE !

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

           SET DIR("A")="Enter beginning Visit Date for Search"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO XIT

 +3        SET APCLBD=Y

ED        ;get ending date

 +1        WRITE !

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

           SET DIR("A")="Enter ending Visit Date for Search:  "

           SET Y=APCLBD

           DO DD^%DT

           SET Y=""

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        SET APCLED=Y

 +4        SET X1=APCLBD

           SET X2=-1

           DO C^%DTC

           SET APCLSD=X

 +5       ;

CR        ;chart reviews?

 +1        KILL APCLCRYN

 +2        KILL DIR

 +3        SET DIR(0)="Y"

           SET DIR("A")="Do you want to include visits with a CHART REVIEW service category"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +4        IF $DATA(DIRUT)

               GOTO BD

 +5        SET APCLCRYN=Y

 +6       ;

LOC        IF APCLRPT="LOS"

               SET APCLLOC=0

               GOTO TOTAL

 +1        SET APCLLOC=$$GETLOC^APCLOCCK

 +2        IF APCLLOC=-1

               GOTO CR

TOTAL     ;

 +1        SET APCLTOTL=""

 +2        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to include a total page which would include all Locations combined"

           SET DIR("B")="Y"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO LOC

 +4        SET APCLTOTL=Y

 +5       ;

ZIS       ;CALL TO XBDBQUE

DEMO      ;

 +1        DO DEMOCHK^APCLUTL(.APCLDEMO)

 +2        IF APCLDEMO=-1

               GOTO LOC

 +3        SET XBRP="^APCLAP2P"

           SET XBRC="^APCLAP21"

           SET XBRX="XIT^APCLAP2"

           SET XBNS="APCL"

 +4        DO ^XBDBQUE

 +5        DO XIT

 +6        QUIT

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

           QUIT

XIT       ;

 +1        KILL APCLSITE,APCLRPT,APCLINFO,APCLSORT,APCLPROC,APCLINF,APCLBD,APCLED,APCLSD,APCLDT,APCLLOC,APCLODAT,APCLVDFN,APCLVLOC,APCLVREC,APCLCLIN,APCLSKIP,APCL1,APCL2,APCLAP,APCLDISC,APCLPPOV,APCLX,APCLHIGH,APCLDATE,APCLADIS,APCLJOB

 +2        KILL APCLDX,APCLLOW,APCLICD,APCLDA1,APCLDA2,APCLY,APCLTITL,APCL80S,APCLEDD,APCLHD1,APCLHD2,APCLLENG,APCLLOCT,APCLPG,APCLSRT2,APCLTOT,APCLBDD,APCLPROV,APCLSEC,APCLZ,APCLCAT,APCL80S,APCLSITE,APCLQUIT,APCLPRNT,APCLQUIT,APCLBT,APCLBTH

 +3        QUIT

 +4        QUIT

 +5       ;

INFORM    ;

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !,"***** VISIT COUNTS BY ",APCLTITL," *****",!

 +3        WRITE !,"This report will generate a count of visits by ",APCLINF,!,"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:  In-Hospital, Hospitalizations,",!,"Historical Events.",!

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

 +7        WRITE "The report will be sub-totaled by Location of Encounter.",!

 +8        QUIT

 +9       ;

 +10      ;

APCLAP2.m