APCDFOSP ; IHS/CMI/LAB - PRINT FORMS TRACKING SUMMARY ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
S (APCDPAGE,APCDQUIT)=0 S Y=DT D DD^%DT S APCDDT=Y S Y=APCDBD D DD^%DT S APCDBDT=Y S Y=APCDED D DD^%DT S APCDEDT=Y
I '$D(^XTMP("APCDFOS",APCDJ,APCDBT)) D HEAD W !!,"NO DATA TO REPORT",!! G XIT
D HEAD
D PROC
D XIT
Q
PROC ;
W !!,"This report will include counts on Visits created or appended to during the",!,"data entry process. Data entered via the option ENTER NON-VISIT DATA are not"
W !,"counted because no visit file is created. The count of these forms must be",!,"tallied manually. The counts are taken from the forms tracking file.",!,"Therefore, you must be "
W "running forms tracking for this report to have any data.",!
TOT ;
D:$Y>(IOSL-6) HEAD Q:APCDQUIT
W !,"There were a total of ",APCDTOT," visits processed during the time period.",!,"specified. Below is a further breakdown of these visits.",!
CHS ;
G HOSP
D:$Y>(IOSL-6) HEAD Q:APCDQUIT
W !,"CONTRACT HEALTH SERVICES",!
W !,"There were ",$S($G(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","TOTAL")):^("TOTAL"),1:" 0")," medical authorizations processed during this period."
G:'$G(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","TOTAL")) HOSP
D:$Y>(IOSL-6) HEAD Q:APCDQUIT W !!?2,"By SERVICE CATEGORY:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","CAT",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","CAT",X),8)
.Q
Q:APCDQUIT
D:$Y>(IOSL-6) HEAD Q:APCDQUIT W !!?2,"By LOCATION:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","LOC",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","LOC",X),8)
.Q
Q:APCDQUIT
HOSP ;
I $Y>(IOSL-8) D HEAD Q:APCDQUIT
W !!!,"HOSPITALIZATIONS (HSA-44)",!
W !,"There were ",$S($G(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TOTAL")):^("TOTAL"),1:" 0")," hospitalization documents during this period."
G:'$G(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TOTAL")) INHOSP
D:$Y>(IOSL-5) HEAD Q:APCDQUIT W !!?2,"By TYPE:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TYPE",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TYPE",X),8)
.Q
Q:APCDQUIT
D:$Y>(IOSL-6) HEAD Q:APCDQUIT W !!?2,"By LOCATION:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","LOC",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","LOC",X),8)
.Q
Q:APCDQUIT
INHOSP ;
I $Y>(IOSL-8) D HEAD Q:APCDQUIT
W !!!,"IN-HOSPITAL VISITS (NON-CHS):",!
W !,"There were ",$S($G(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TOTAL")):^("TOTAL"),1:" 0")," in-hospital documents during this period."
G:'$G(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TOTAL")) AMB
I $Y>(IOSL-5) D HEAD Q:APCDQUIT
W !!?2,"By TYPE:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TYPE",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TYPE",X),8)
.Q
Q:APCDQUIT
D:$Y>(IOSL-6) HEAD Q:APCDQUIT W !!?2,"By LOCATION:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","LOC",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","LOC",X),8)
.Q
Q:$G(APCDQUIT)
AMB ;
D AMB^APCDFOS2
Q:APCDQUIT
Q
XIT ;
I 'APCDQUIT,$E(IOST)="C",IO=IO(0) S DIR("A")="End of report. Press return.",DIR(0)="E" D ^DIR K DIR
W:$D(IOF) @IOF
K ^XTMP("APCDFOS",APCDJ,APCDBT)
K APCDJ,APCDBT
Q
HEAD ;EP
I 'APCDPAGE G HEAD1
NEW X
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCDQUIT=1 Q
S APCDPAGE=APCDPAGE+1
W:$D(IOF) @IOF W !,?35,"Data Entry Forms Summary Page ",APCDPAGE,!
Q
HEAD1 ;
W:$D(IOF) @IOF S APCDPAGE=APCDPAGE+1
W !,"Report Run Date: ",APCDDT,?70,"Page ",APCDPAGE
W !!?15,"SUMMARY COUNT OF VISITS PROCESSED BY DATA ENTRY",!
W ?20,"FOR: ",APCDBDT," TO ",APCDEDT,!
S L=$L($P(^DIC(4,DUZ(2),0),U)) W ?((80-L)/2),$P(^DIC(4,DUZ(2),0),U),!
Q
APCDFOSP ; IHS/CMI/LAB - PRINT FORMS TRACKING SUMMARY ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 SET (APCDPAGE,APCDQUIT)=0
SET Y=DT
DO DD^%DT
SET APCDDT=Y
SET Y=APCDBD
DO DD^%DT
SET APCDBDT=Y
SET Y=APCDED
DO DD^%DT
SET APCDEDT=Y
+3 IF '$DATA(^XTMP("APCDFOS",APCDJ,APCDBT))
DO HEAD
WRITE !!,"NO DATA TO REPORT",!!
GOTO XIT
+4 DO HEAD
+5 DO PROC
+6 DO XIT
+7 QUIT
PROC ;
+1 WRITE !!,"This report will include counts on Visits created or appended to during the",!,"data entry process. Data entered via the option ENTER NON-VISIT DATA are not"
+2 WRITE !,"counted because no visit file is created. The count of these forms must be",!,"tallied manually. The counts are taken from the forms tracking file.",!,"Therefore, you must be "
+3 WRITE "running forms tracking for this report to have any data.",!
TOT ;
+1 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+2 WRITE !,"There were a total of ",APCDTOT," visits processed during the time period.",!,"specified. Below is a further breakdown of these visits.",!
CHS ;
+1 GOTO HOSP
+2 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+3 WRITE !,"CONTRACT HEALTH SERVICES",!
+4 WRITE !,"There were ",$SELECT($GET(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","TOTAL")):^("TOTAL"),1:" 0")," medical authorizations processed during this period."
+5 IF '$GET(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","TOTAL"))
GOTO HOSP
+6 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
WRITE !!?2,"By SERVICE CATEGORY:"
+7 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","CAT",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+8 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+9 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","CAT",X),8)
+10 QUIT
End DoDot:1
+11 IF APCDQUIT
QUIT
+12 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
WRITE !!?2,"By LOCATION:"
+13 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","LOC",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+14 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+15 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"CHS","LOC",X),8)
+16 QUIT
End DoDot:1
+17 IF APCDQUIT
QUIT
HOSP ;
+1 IF $Y>(IOSL-8)
DO HEAD
IF APCDQUIT
QUIT
+2 WRITE !!!,"HOSPITALIZATIONS (HSA-44)",!
+3 WRITE !,"There were ",$SELECT($GET(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TOTAL")):^("TOTAL"),1:" 0")," hospitalization documents during this period."
+4 IF '$GET(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TOTAL"))
GOTO INHOSP
+5 IF $Y>(IOSL-5)
DO HEAD
IF APCDQUIT
QUIT
WRITE !!?2,"By TYPE:"
+6 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TYPE",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+7 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+8 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","TYPE",X),8)
+9 QUIT
End DoDot:1
+10 IF APCDQUIT
QUIT
+11 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
WRITE !!?2,"By LOCATION:"
+12 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","LOC",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+13 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+14 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"HOSP","LOC",X),8)
+15 QUIT
End DoDot:1
+16 IF APCDQUIT
QUIT
INHOSP ;
+1 IF $Y>(IOSL-8)
DO HEAD
IF APCDQUIT
QUIT
+2 WRITE !!!,"IN-HOSPITAL VISITS (NON-CHS):",!
+3 WRITE !,"There were ",$SELECT($GET(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TOTAL")):^("TOTAL"),1:" 0")," in-hospital documents during this period."
+4 IF '$GET(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TOTAL"))
GOTO AMB
+5 IF $Y>(IOSL-5)
DO HEAD
IF APCDQUIT
QUIT
+6 WRITE !!?2,"By TYPE:"
+7 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TYPE",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+8 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+9 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","TYPE",X),8)
+10 QUIT
End DoDot:1
+11 IF APCDQUIT
QUIT
+12 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
WRITE !!?2,"By LOCATION:"
+13 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","LOC",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+14 IF $Y>(IOSL-6)
DO HEAD
IF APCDQUIT
QUIT
+15 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"INHOSP","LOC",X),8)
+16 QUIT
End DoDot:1
+17 IF $GET(APCDQUIT)
QUIT
AMB ;
+1 DO AMB^APCDFOS2
+2 IF APCDQUIT
QUIT
+3 QUIT
XIT ;
+1 IF 'APCDQUIT
IF $EXTRACT(IOST)="C"
IF IO=IO(0)
SET DIR("A")="End of report. Press return."
SET DIR(0)="E"
DO ^DIR
KILL DIR
+2 IF $DATA(IOF)
WRITE @IOF
+3 KILL ^XTMP("APCDFOS",APCDJ,APCDBT)
+4 KILL APCDJ,APCDBT
+5 QUIT
HEAD ;EP
+1 IF 'APCDPAGE
GOTO HEAD1
+2 NEW X
+3 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET APCDQUIT=1
QUIT
+4 SET APCDPAGE=APCDPAGE+1
+5 IF $DATA(IOF)
WRITE @IOF
WRITE !,?35,"Data Entry Forms Summary Page ",APCDPAGE,!
+6 QUIT
HEAD1 ;
+1 IF $DATA(IOF)
WRITE @IOF
SET APCDPAGE=APCDPAGE+1
+2 WRITE !,"Report Run Date: ",APCDDT,?70,"Page ",APCDPAGE
+3 WRITE !!?15,"SUMMARY COUNT OF VISITS PROCESSED BY DATA ENTRY",!
+4 WRITE ?20,"FOR: ",APCDBDT," TO ",APCDEDT,!
+5 SET L=$LENGTH($PIECE(^DIC(4,DUZ(2),0),U))
WRITE ?((80-L)/2),$PIECE(^DIC(4,DUZ(2),0),U),!
+6 QUIT
