ABMDCCL3.m

ABMDCCL3 ; IHS/ASDST/DMJ - Cancelled claim Stats ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Original;TMD;

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM20737

 ;   Fixed <UNDEF>SUBHDR^ABMDCCL3; occurs when no

 ;   data for selected range

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM20911

 ;   Fixed totals

 ;

PRINT ;EP for writing data

 S ABM("PG")=0

 D HDB

 S ABM("CNT")=0,ABM("AMT")=0,ABM("O")="",ABM("OL")=""

 S ABM("TOTCNT")=0

 F  S ABM("O")=$O(ABM("ST",ABM("O"))) Q:'ABM("O")!($G(ABM("F1")))  D

 .W !!?5,"Cancelling Official: ",$P(^VA(200,ABM("O"),0),U)

 .S ABM("L")="",ABM("OL")="",(ABM("SUBCNT"),ABM("V"),ABM("SUBAMT"))=0

 .F  S ABM("L")=$O(ABM("ST",ABM("O"),ABM("L"))) Q:ABM("L")=""!($G(ABM("F1")))  D

 ..S (ABM("SSCNT"),ABM("V"),ABM("SSAMT"))=0

 ..F  S ABM("V")=$O(ABM("ST",ABM("O"),ABM("L"),ABM("V"))) Q:'ABM("V")!($G(ABM("F1")))  D

 ...I $Y>(IOSL-5) D HD Q:$G(ABM("F1"))  S ABM("OL")=""

 ...I ABM("L")'=ABM("OL") W !!,$E(ABM("L"),1,30) S ABM("OL")=ABM("L")

 ...E  W !

 ...I ABMY("SORT")="V" W ?32,$E($P(^ABMDVTYP(ABM("V"),0),U),1,26)

 ...I ABMY("SORT")="C" W ?32,$E($P(^DIC(40.7,ABM("V"),0),U),1,26)

 ...S ABM("T")=$P(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,1)

 ...S ABM("A")=$P(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,2)

 ...W ?60,$J($FN(ABM("T"),",",0),5)

 ...S ABM("CNT")=ABM("CNT")+ABM("T"),ABM("SUBCNT")=ABM("SUBCNT")+ABM("T")

 ...S ABM("TOTCNT")=ABM("TOTCNT")+ABM("T")

 ...S ABM("AMT")=ABM("AMT")+ABM("A"),ABM("SUBAMT")=ABM("SUBAMT")+ABM("A")

 ...S ABM("SSAMT")=ABM("SSAMT")+ABM("A"),ABM("SSCNT")=ABM("SSCNT")+ABM("T")

 .D SUBHDR

 D TOTHDR

 W !!,"E N D  O F  R E P O R T"

 D PAZ^ABMDRUTL

 Q

 ;

HD D PAZ^ABMDRUTL I $D(DTOUT)!$D(DUOUT)!$D(DIROUT) S ABM("F1")=1 Q

HDB S ABM("PG")=ABM("PG")+1 D WHD^ABMDRHD

 W !,?58,"Number of"

 W !,"Location",?32,$S(ABMY("SORT")="C":"Clinic",1:"Visit Type"),?60,"Claims"

 S $P(ABM("LINE"),"-",80)="" W !,ABM("LINE") K ABM("LINE")

 Q

 ;

SUBHDR ;

 Q:+$G(ABM("SUBCNT"))=0

 W !?60,"------"

 W !?16,"Subtotal:",?60,$J($FN(ABM("SUBCNT"),",",0),5)

 S ABM("SUBCNT")=0

 Q

 ;

TOTHDR ;

 Q:+$G(ABM("TOTCNT"))=0

 W !?60,"------"

 W !?19,"Total:",?60,$J($FN(ABM("TOTCNT"),",",0),5)

 S ABM("T")=0

 Q

XIT ;EXIT POINT

 Q

ABMDCCL3  ; IHS/ASDST/DMJ - Cancelled claim Stats ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Original;TMD;

 +3       ;

 +4       ; IHS/SD/SDR - v2.5 p10 - IM20737

 +5       ;   Fixed <UNDEF>SUBHDR^ABMDCCL3; occurs when no

 +6       ;   data for selected range

 +7       ;

 +8       ; IHS/SD/SDR - v2.5 p10 - IM20911

 +9       ;   Fixed totals

 +10      ;

PRINT     ;EP for writing data

 +1        SET ABM("PG")=0

 +2        DO HDB

 +3        SET ABM("CNT")=0

           SET ABM("AMT")=0

           SET ABM("O")=""

           SET ABM("OL")=""

 +4        SET ABM("TOTCNT")=0

 +5        FOR 

               SET ABM("O")=$ORDER(ABM("ST",ABM("O")))

               IF 'ABM("O")!($GET(ABM("F1")))

                   QUIT 

               Begin DoDot:1

 +6                WRITE !!?5,"Cancelling Official: ",$PIECE(^VA(200,ABM("O"),0),U)

 +7                SET ABM("L")=""

                   SET ABM("OL")=""

                   SET (ABM("SUBCNT"),ABM("V"),ABM("SUBAMT"))=0

 +8                FOR 

                       SET ABM("L")=$ORDER(ABM("ST",ABM("O"),ABM("L")))

                       IF ABM("L")=""!($GET(ABM("F1")))

                           QUIT 

                       Begin DoDot:2

 +9                        SET (ABM("SSCNT"),ABM("V"),ABM("SSAMT"))=0

 +10                       FOR 

                               SET ABM("V")=$ORDER(ABM("ST",ABM("O"),ABM("L"),ABM("V")))

                               IF 'ABM("V")!($GET(ABM("F1")))

                                   QUIT 

                               Begin DoDot:3

 +11                               IF $Y>(IOSL-5)

                                       DO HD

                                       IF $GET(ABM("F1"))

                                           QUIT 

                                       SET ABM("OL")=""

 +12                               IF ABM("L")'=ABM("OL")

                                       WRITE !!,$EXTRACT(ABM("L"),1,30)

                                       SET ABM("OL")=ABM("L")

 +13                              IF '$TEST

                                       WRITE !

 +14                               IF ABMY("SORT")="V"

                                       WRITE ?32,$EXTRACT($PIECE(^ABMDVTYP(ABM("V"),0),U),1,26)

 +15                               IF ABMY("SORT")="C"

                                       WRITE ?32,$EXTRACT($PIECE(^DIC(40.7,ABM("V"),0),U),1,26)

 +16                               SET ABM("T")=$PIECE(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,1)

 +17                               SET ABM("A")=$PIECE(ABM("ST",ABM("O"),ABM("L"),ABM("V")),U,2)

 +18                               WRITE ?60,$JUSTIFY($FNUMBER(ABM("T"),",",0),5)

 +19                               SET ABM("CNT")=ABM("CNT")+ABM("T")

                                   SET ABM("SUBCNT")=ABM("SUBCNT")+ABM("T")

 +20                               SET ABM("TOTCNT")=ABM("TOTCNT")+ABM("T")

 +21                               SET ABM("AMT")=ABM("AMT")+ABM("A")

                                   SET ABM("SUBAMT")=ABM("SUBAMT")+ABM("A")

 +22                               SET ABM("SSAMT")=ABM("SSAMT")+ABM("A")

                                   SET ABM("SSCNT")=ABM("SSCNT")+ABM("T")

                               End DoDot:3

                       End DoDot:2

 +23               DO SUBHDR

               End DoDot:1

 +24       DO TOTHDR

 +25       WRITE !!,"E N D  O F  R E P O R T"

 +26       DO PAZ^ABMDRUTL

 +27       QUIT 

 +28      ;

HD         DO PAZ^ABMDRUTL

           IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)

               SET ABM("F1")=1

               QUIT 

HDB        SET ABM("PG")=ABM("PG")+1

           DO WHD^ABMDRHD

 +1        WRITE !,?58,"Number of"

 +2        WRITE !,"Location",?32,$SELECT(ABMY("SORT")="C":"Clinic",1:"Visit Type"),?60,"Claims"

 +3        SET $PIECE(ABM("LINE"),"-",80)=""

           WRITE !,ABM("LINE")

           KILL ABM("LINE")

 +4        QUIT 

 +5       ;

SUBHDR    ;

 +1        IF +$GET(ABM("SUBCNT"))=0

               QUIT 

 +2        WRITE !?60,"------"

 +3        WRITE !?16,"Subtotal:",?60,$JUSTIFY($FNUMBER(ABM("SUBCNT"),",",0),5)

 +4        SET ABM("SUBCNT")=0

 +5        QUIT 

 +6       ;

TOTHDR    ;

 +1        IF +$GET(ABM("TOTCNT"))=0

               QUIT 

 +2        WRITE !?60,"------"

 +3        WRITE !?19,"Total:",?60,$JUSTIFY($FNUMBER(ABM("TOTCNT"),",",0),5)

 +4        SET ABM("T")=0

 +5        QUIT 

XIT       ;EXIT POINT

 +1        QUIT