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
Q
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
Q
Q
;
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.",!
Q
;
;
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 ;
