- APCDFOS3 ; IHS/CMI/LAB - FORMS TRKING SUMMARY ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;
- ;
- LOC ;EP
- D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT
- W !!!!?20,"FORMS PROCESSED BY EACH LOCATION"
- S O="" F S O=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O)) Q:O=""!(APCDQUIT) D
- .D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"LOCATION: ",O
- .D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !?2,"TOTAL Number of Forms Processed: ",$J(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"TOTAL"),8)
- .D:$Y>(IOSL-6) HEAD^APCDFOSP Q:APCDQUIT W !!?2,"By TYPE:"
- .S X="" F S X=$O(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",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,"LOC",O,"TYPE",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,"LOC",O,"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,"LOC",O,"CLN",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,"LOC",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,"LOC",O,"CAT",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,"LOC",O,"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,"LOC",O,"PROV",X),8)
- ..Q
- Q
- APCDFOS3 ; IHS/CMI/LAB - FORMS TRKING SUMMARY ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;
- +3 ;
- LOC ;EP
- +1 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- +2 WRITE !!!!?20,"FORMS PROCESSED BY EACH LOCATION"
- +3 SET O=""
- FOR
- SET O=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O))
- IF O=""!(APCDQUIT)
- QUIT
- Begin DoDot:1
- +4 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !!?2,"LOCATION: ",O
- +5 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !?2,"TOTAL Number of Forms Processed: ",$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"TOTAL"),8)
- +6 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !!?2,"By TYPE:"
- +7 SET X=""
- FOR
- SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"TYPE",X))
- IF X=""!(APCDQUIT)
- QUIT
- Begin DoDot:2
- +8 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- +9 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"TYPE",X),8)
- +10 QUIT
- End DoDot:2
- +11 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !!?2,"By CLINIC TYPE:"
- +12 SET X=""
- FOR
- SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"CLN",X))
- IF X=""!(APCDQUIT)
- QUIT
- Begin DoDot:2
- +13 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- +14 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"CLN",X),8)
- +15 QUIT
- End DoDot:2
- +16 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !!?2,"By SERVICE CATEGORY:"
- +17 SET X=""
- FOR
- SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"CAT",X))
- IF X=""!(APCDQUIT)
- QUIT
- Begin DoDot:2
- +18 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- +19 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"CAT",X),8)
- +20 QUIT
- End DoDot:2
- +21 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- WRITE !!?2,"By PROVIDER DISCIPLINE (Primary and Secondary Providers):"
- +22 SET X=""
- FOR
- SET X=$ORDER(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"PROV",X))
- IF X=""!(APCDQUIT)
- QUIT
- Begin DoDot:2
- +23 IF $Y>(IOSL-6)
- DO HEAD^APCDFOSP
- IF APCDQUIT
- QUIT
- +24 WRITE !,?5,$EXTRACT(X,1,30),?35,$JUSTIFY(^XTMP("APCDFOS",APCDJ,APCDBT,"LOC",O,"PROV",X),8)
- +25 QUIT
- End DoDot:2
- End DoDot:1
- +26 QUIT
