APCDFOS2 ; IHS/CMI/LAB - PRINT FORMS TRACKING SUMMARY ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
AMB ;EP
I $Y>(IOSL-8) D HEAD^APCDFOSP Q:APCDQUIT
W !!!,"AMBULATORY CARE VISITS (non-chs, excludes events, hospitalizations,in-hosp)",!
W !,"There were ",$S($G(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TOTAL")):^("TOTAL"),1:" 0")," ambulatory documents during this period."
G:'$G(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TOTAL")) DEP
D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
W !!?2,"By TYPE:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TYPE",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TYPE",X),8)
.Q
Q:APCDQUIT
D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By LOCATION:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","LOC",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","LOC",X),8)
.Q
D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By SERVICE CATEGORY:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CAT",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CAT",X),8)
.Q
D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By CLINIC Type:"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CLN",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CLN",X),8)
.Q
D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By PROVIDER DISCIPLINE (Primary and Secondary Providers):"
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","PROV",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","PROV",X),8)
.Q
DEP ;
I $Y>(IOSL-9) D HEAD^APCDFOSP Q:APCDQUIT
W !!,"DEPENDENT ENTRY COUNT",!
W !,"There were ",$S($G(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","TOTAL")):^("TOTAL"),1:" 0")," visit related data items entered during",!,"this period. They are broken down below by data type. Labs, Medications,",!
W "Dental and Radiology data items are excluded because in general, these are",!,"entered through the ancillary package.",!
S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","FILE",X)) Q:X=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","FILE",X),8)
.Q
OPER ;
I $Y>(IOSL-8) D HEAD^APCDFOSP Q:APCDQUIT
W !!!!?20,"FORMS PROCESSED BY EACH OPERATOR"
S O="" F S O=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O)) Q:O=""!(APCDQUIT) D
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"OPERATOR: ",O
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !?2,"TOTAL Number of Forms Processed: ",$J(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TOTAL"),8)
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By TYPE:"
.S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TYPE",X)) Q:X=""!(APCDQUIT) D
..D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
..W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TYPE",X),8)
..Q
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By LOCATION:"
.S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"LOC",X)) Q:X=""!(APCDQUIT) D
..D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
..W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"LOC",X),8)
..Q
.D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By SERVICE CATEGORY:"
.S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"CAT",X)) Q:X=""!(APCDQUIT) D
..D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
..W !,?5,$E(X,1,30),?35,$J(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"CAT",X),8)
..Q
LOC ;
D LOC^APCDFOS3
Q
APCDFOS2 ; IHS/CMI/LAB - PRINT FORMS TRACKING SUMMARY ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
AMB ;EP
+1 IF $Y>(IOSL-8)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+2 WRITE !!!,"AMBULATORY CARE VISITS (non-chs, excludes events, hospitalizations,in-hosp)",!
+3 WRITE !,"There were ",$SELECT($GET(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TOTAL")):^("TOTAL"),1:" 0")," ambulatory documents during this period."
+4 IF '$GET(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TOTAL"))
GOTO DEP
+5 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+6 WRITE !!?2,"By TYPE:"
+7 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TYPE",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+8 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+9 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","TYPE",X),8)
+10 QUIT
End DoDot:1
+11 IF APCDQUIT
QUIT
+12 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By LOCATION:"
+13 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","LOC",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+14 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+15 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","LOC",X),8)
+16 QUIT
End DoDot:1
+17 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By SERVICE CATEGORY:"
+18 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CAT",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+19 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+20 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CAT",X),8)
+21 QUIT
End DoDot:1
+22 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By CLINIC Type:"
+23 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CLN",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+24 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+25 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","CLN",X),8)
+26 QUIT
End DoDot:1
+27 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By PROVIDER DISCIPLINE (Primary and Secondary Providers):"
+28 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","PROV",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+29 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+30 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"AMB","PROV",X),8)
+31 QUIT
End DoDot:1
DEP ;
+1 IF $Y>(IOSL-9)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+2 WRITE !!,"DEPENDENT ENTRY COUNT",!
+3 WRITE !,"There were ",$SELECT($GET(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","TOTAL")):^("TOTAL"),1:" 0")," visit related data items entered during",!,"this period. They are broken down below by data type. Labs, Medications,",!
+4 WRITE "Dental and Radiology data items are excluded because in general, these are",!,"entered through the ancillary package.",!
+5 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","FILE",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:1
+6 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+7 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"DEP","FILE",X),8)
+8 QUIT
End DoDot:1
OPER ;
+1 IF $Y>(IOSL-8)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+2 WRITE !!!!?20,"FORMS PROCESSED BY EACH OPERATOR"
+3 SET O=""
FOR
SET O=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O))
IF O=""!(APCDQUIT)
QUIT
Begin DoDot:1
+4 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"OPERATOR: ",O
+5 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !?2,"TOTAL Number of Forms Processed: ",$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TOTAL"),8)
+6 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+7 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By TYPE:"
+8 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TYPE",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:2
+9 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+10 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"TYPE",X),8)
+11 QUIT
End DoDot:2
+12 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By LOCATION:"
+13 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"LOC",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:2
+14 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+15 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"LOC",X),8)
+16 QUIT
End DoDot:2
+17 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
WRITE !!?2,"By SERVICE CATEGORY:"
+18 SET X=""
FOR
SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"CAT",X))
IF X=""!(APCDQUIT)
QUIT
Begin DoDot:2
+19 IF $Y>(IOSL-6)
DO HEAD^APCDFOSP
IF APCDQUIT
QUIT
+20 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"OPER",O,"CAT",X),8)
+21 QUIT
End DoDot:2
End DoDot:1
LOC ;
+1 DO LOC^APCDFOS3
+2 QUIT
