APCDFOS3.m

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