APCLOSP4.m

APCLOSP4 ; IHS/CMI/LAB - CONT. PRINT OP SUMM ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

DENTAL ;ENTRY POINT

 I $Y>(IOSL-12) D HEAD^APCLOSP Q:$D(APCLQUIT)

 W !!!,"DENTAL"

 I '$D(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTPATCOUNT")) W !?10,"[ NO DENTAL VISITS TO REPORT ]",! Q

 S X=$S($D(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTPATCOUNT")):^("DENTPATCOUNT"),1:0),Y=$S($D(^XTMP("APCLOSP",APCLJOB,APCLBTH,"DENTPATCOUNT")):^("DENTPATCOUNT"),1:0) D CALC^APCLOSUT

 W !!,"There were ",X," patients (",Z,") seen for Dental Care.  They accounted for",!

 S X=$S($D(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTVCOUNT")):^("DENTVCOUNT"),1:0),Y=$S($D(^XTMP("APCLOSP",APCLJOB,APCLBTH,"DENTVCOUNT")):^("DENTVCOUNT"),1:0) D CALC^APCLOSUT

 W X," visits (",Z,").  The seven leading service categories were:"

 S APCL1="DENTPOV",APCL2="DENTPOVC",APCLMAX=7,APCLGLOB="^AUTTADA(",APCLPIEC=2

 Q

APCLOSP4  ; IHS/CMI/LAB - CONT. PRINT OP SUMM ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

DENTAL    ;ENTRY POINT

 +1        IF $Y>(IOSL-12)

               DO HEAD^APCLOSP

               IF $DATA(APCLQUIT)

                   QUIT 

 +2        WRITE !!!,"DENTAL"

 +3        IF '$DATA(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTPATCOUNT"))

               WRITE !?10,"[ NO DENTAL VISITS TO REPORT ]",!

               QUIT 

 +4        SET X=$SELECT($DATA(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTPATCOUNT")):^("DENTPATCOUNT"),1:0)

           SET Y=$SELECT($DATA(^XTMP("APCLOSP",APCLJOB,APCLBTH,"DENTPATCOUNT")):^("DENTPATCOUNT"),1:0)

           DO CALC^APCLOSUT

 +5        WRITE !!,"There were ",X," patients (",Z,") seen for Dental Care.  They accounted for",!

 +6        SET X=$SELECT($DATA(^XTMP("APCLOS",APCLJOB,APCLBTH,"DENTVCOUNT")):^("DENTVCOUNT"),1:0)

           SET Y=$SELECT($DATA(^XTMP("APCLOSP",APCLJOB,APCLBTH,"DENTVCOUNT")):^("DENTVCOUNT"),1:0)

           DO CALC^APCLOSUT

 +7        WRITE X," visits (",Z,").  The seven leading service categories were:"

 +8        SET APCL1="DENTPOV"

           SET APCL2="DENTPOVC"

           SET APCLMAX=7

           SET APCLGLOB="^AUTTADA("

           SET APCLPIEC=2

 +9        QUIT