Routine: APCLCV

APCLCV ; IHS/CMI/LAB - Indian Beneficiary Calendar Year Visit Summary ;

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

 ;IHS/CMI/LAB - fixed per California Area

START ;

 D INFORM

 K DUOUT,DTOUT

YEAR ;Calendar Year Default

 S APCLYEAR="01/01/"_(1700+$E(DT,1,3)) ;IHS/CMI/LAB - fixed to 4 digit year

BD ;get beginning date

 W ! K DIR,X,Y S DIR(0)="D^:DT:EP",DIR("A")="Enter Beginning Visit Date for search" S DIR("B")=APCLYEAR D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) D EOJ Q

 S APCLBD=Y

ED ;get ending date

 W ! K DIR,X,Y S DIR(0)="DA^"_APCLBD_":DT:EP",DIR("A")="Enter Ending Visit Date for search: " D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 G:Y="" BD

 S APCLED=Y

 S X1=APCLBD,X2=-1 D C^%DTC S APCLSD=X S Y=APCLBD D DD^%DT S APCLBDD=Y S Y=APCLED D DD^%DT S APCLEDD=Y

 I $D(DIRUT) G YEAR

 W !!,"This report will be run for ",APCLBDD," to ",APCLEDD,".",!

F ;

 S APCLLOC=""

 S DIR(0)="S^A:All Locations;O:One Location: ",DIR("A")="Do you want to include Visits to",DIR("B")="A" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 G:$D(DIRUT) YEAR

 S APCLVFL=Y

 I APCLVFL="A" G CLINIC

 S DIC("A")="Run for which Facility of Encounter: ",DIC="^AUTTLOC(",DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 F

 S APCLLOC=+Y

CLINIC ;

 W !!

 S APCLCL="" S APCLCLIN=""

 S DIR(0)="Y",DIR("A")="Print for ALL clinics",DIR("B")="Y" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 G:$D(DIRUT) F

 I Y=1 G ZIS

CLINIC1 ;Get Multiple Clinics in Search

 K APCLCLNT

 S X="CLINIC",DIC="^AMQQ(5,",DIC(0)="FM",DIC("S")="I $P(^(0),U,14)" D ^DIC K DIC,DA I Y=-1 W "OPPS - QMAN NOT CURRENT - QUITTING" G EOJ

 D PEP^AMQQGTX0(+Y,"APCLCLNT(")

 I '$D(APCLCLNT) G CLINIC

 I $D(APCLCLNT("*")) K APCLCLNT

 ;K DIC S DIC=40.7,DIC(0)="AEQMZ",DIC("A")="Which Clinic:  " D ^DIC

 G CLINIC:Y<1

 ;S APCLCL=+Y

ZIS ;

DEMO ;

 D DEMOCHK^APCLUTL(.APCLDEMO)

 I APCLDEMO=-1 G CLINIC

 S XBRP="^APCLCVP",XBRC="^APCLCV1",XBRX="EOJ^APCLCV",XBNS="APCL"

 D ^XBDBQUE

 D EOJ

ERR W $C(7),$C(7),!,"Must be a valid Year.  Enter a year only!!" Q

EOJ K APCLFY,APCLLOC,APCLSD,APCLVDFN,APCLVREC,APCLSKIP,APCL1,APCL2,APCLDISC,APCLAP,APCLPPOV,APCLX,APCLDPTR,APCLVLOC,APCLMOL,APCLFYD,APCLMOS,APCLBT,APCLJOB,APCLTRIB,APCL1N,APCL2N,APCL3N,APCL4N,APCLGN,APCLSDD ;IHS/CMI/LAB

 K APCLDT,APCLAREA,APCLLOCP,APCLLOC,APCLAREC,APCLSU,APCLSUC,APCLGRAN,APCLPG,APCLQUIT,APCLMON,APCLTAB,APCLJ,APCLDISN,APCLPRIM,APCLP,APCLT,APCLPRIT,APCL132,APCLFYE,APCLLOCC,DFN

 K X,X1,X2,IO("Q"),%,Y,%DT,%Y,%W,%T,%H,DUOUT,DTOUT,POP,ZTSK,ZTQUEUED,H,S,TS,M

 K APCLFAC,APCLLOC,APCLBD,APCLBDD,APCLCLAS,APCLDTE,APCLED,APCLEDD,APCLET,APCLVFL,APCLVIEN,APCLCL,APCLCLIN,APCLCLNT,APCLCLP,APCLLOCP,APCLYEAR

INFORM ;

 W:$D(IOF) @IOF

 W !,?10,"**********  INDIAN/ALASKA NATIVE VISIT COUNTSS  **********",!

 W !,"This report will print Visit Counts for the Facility and Clinic and",!,"Time Frame that you select.  Visit Counts are summarized according to"

 W !,"Indian/Alaska Native and All Other Beneficiaries.",! W !,"Each Classification is Sub-Totaled by the following:  "

 W "(1) New Patient's 1st",!,"(2) Established Patient's 1st and (3) All additional Patient's Visits.",!

 W !,"NOTE:  Calendar Year Reports must be inclusive & begin with the 1st Day of the",!,?7,"the desired Calendar Year.",!

APCLCV    ; IHS/CMI/LAB - Indian Beneficiary Calendar Year Visit Summary ;

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

 +2       ;IHS/CMI/LAB - fixed per California Area

START     ;

 +1        DO INFORM

 +2        KILL DUOUT,DTOUT

YEAR      ;Calendar Year Default

 +1       ;IHS/CMI/LAB - fixed to 4 digit year

           SET APCLYEAR="01/01/"_(1700+$EXTRACT(DT,1,3))

BD        ;get beginning date

 +1        WRITE !

           KILL DIR,X,Y

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

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

           SET DIR("B")=APCLYEAR

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               DO EOJ

               QUIT

 +3        SET APCLBD=Y

ED        ;get ending date

 +1        WRITE !

           KILL DIR,X,Y

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

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

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        IF Y=""

               GOTO BD

 +4        SET APCLED=Y

 +5        SET X1=APCLBD

           SET X2=-1

           DO C^%DTC

           SET APCLSD=X

           SET Y=APCLBD

           DO DD^%DT

           SET APCLBDD=Y

           SET Y=APCLED

           DO DD^%DT

           SET APCLEDD=Y

 +6        IF $DATA(DIRUT)

               GOTO YEAR

 +7       ;

 +8        WRITE !!,"This report will be run for ",APCLBDD," to ",APCLEDD,".",!

F         ;

 +1        SET APCLLOC=""

 +2        SET DIR(0)="S^A:All Locations;O:One Location: "

           SET DIR("A")="Do you want to include Visits to"

           SET DIR("B")="A"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO YEAR

 +4        SET APCLVFL=Y

 +5        IF APCLVFL="A"

               GOTO CLINIC

 +6        SET DIC("A")="Run for which Facility of Encounter: "

           SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC,DA

           IF Y<0

               GOTO F

 +7        SET APCLLOC=+Y

 +8       ;

CLINIC    ;

 +1        WRITE !!

 +2        SET APCLCL=""

           SET APCLCLIN=""

 +3        SET DIR(0)="Y"

           SET DIR("A")="Print for ALL clinics"

           SET DIR("B")="Y"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               GOTO F

 +5        IF Y=1

               GOTO ZIS

 +6       ;

CLINIC1   ;Get Multiple Clinics in Search

 +1        KILL APCLCLNT

 +2       ;

 +3        SET X="CLINIC"

           SET DIC="^AMQQ(5,"

           SET DIC(0)="FM"

           SET DIC("S")="I $P(^(0),U,14)"

           DO ^DIC

           KILL DIC,DA

           IF Y=-1

               WRITE "OPPS - QMAN NOT CURRENT - QUITTING"

               GOTO EOJ

 +4        DO PEP^AMQQGTX0(+Y,"APCLCLNT(")

 +5        IF '$DATA(APCLCLNT)

               GOTO CLINIC

 +6        IF $DATA(APCLCLNT("*"))

               KILL APCLCLNT

 +7       ;K DIC S DIC=40.7,DIC(0)="AEQMZ",DIC("A")="Which Clinic:  " D ^DIC

 +8        IF Y<1

               GOTO CLINIC

 +9       ;S APCLCL=+Y

 +10      ;

ZIS       ;

DEMO      ;

 +1        DO DEMOCHK^APCLUTL(.APCLDEMO)

 +2        IF APCLDEMO=-1

               GOTO CLINIC

 +3        SET XBRP="^APCLCVP"

           SET XBRC="^APCLCV1"

           SET XBRX="EOJ^APCLCV"

           SET XBNS="APCL"

 +4        DO ^XBDBQUE

 +5        DO EOJ

 +6        QUIT

ERR        WRITE $CHAR(7),$CHAR(7),!,"Must be a valid Year.  Enter a year only!!"

           QUIT

EOJ       ;IHS/CMI/LAB

           KILL APCLFY,APCLLOC,APCLSD,APCLVDFN,APCLVREC,APCLSKIP,APCL1,APCL2,APCLDISC,APCLAP,APCLPPOV,APCLX,APCLDPTR,APCLVLOC,APCLMOL,APCLFYD,APCLMOS,APCLBT,APCLJOB,APCLTRIB,APCL1N,APCL2N,APCL3N,APCL4N,APCLGN,APCLSDD

 +1        KILL APCLDT,APCLAREA,APCLLOCP,APCLLOC,APCLAREC,APCLSU,APCLSUC,APCLGRAN,APCLPG,APCLQUIT,APCLMON,APCLTAB,APCLJ,APCLDISN,APCLPRIM,APCLP,APCLT,APCLPRIT,APCL132,APCLFYE,APCLLOCC,DFN

 +2        KILL X,X1,X2,IO("Q"),%,Y,%DT,%Y,%W,%T,%H,DUOUT,DTOUT,POP,ZTSK,ZTQUEUED,H,S,TS,M

 +3        KILL APCLFAC,APCLLOC,APCLBD,APCLBDD,APCLCLAS,APCLDTE,APCLED,APCLEDD,APCLET,APCLVFL,APCLVIEN,APCLCL,APCLCLIN,APCLCLNT,APCLCLP,APCLLOCP,APCLYEAR

 +4        QUIT

 +5       ;

INFORM    ;

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !,?10,"**********  INDIAN/ALASKA NATIVE VISIT COUNTSS  **********",!

 +3        WRITE !,"This report will print Visit Counts for the Facility and Clinic and",!,"Time Frame that you select.  Visit Counts are summarized according to"

 +4        WRITE !,"Indian/Alaska Native and All Other Beneficiaries.",!

           WRITE !,"Each Classification is Sub-Totaled by the following:  "

 +5        WRITE "(1) New Patient's 1st",!,"(2) Established Patient's 1st and (3) All additional Patient's Visits.",!

 +6        WRITE !,"NOTE:  Calendar Year Reports must be inclusive & begin with the 1st Day of the",!,?7,"the desired Calendar Year.",!

 +7        QUIT

 +8       ;

 +9       ;

APCLCV.m