ABMDRUN3.m

ABMDRUN3 ; IHS/ASDST/DMJ - Unpaid Bills Stats ;

 ;;2.6;IHS 3P BILLING SYSTEM;**10,21**;NOV 12, 2009;Build 379

 ;Original;TMD;

 ;IHS/SD/SDR - 2.6*21 - HEAT195285 - Updated so it will print all headers fro report, not just UNPAID BILLS part.

 ;

PRINT ;EP for printing data

 D ^ABMDRHD  ;abm*2.6*21 IHS/SD/SDR HEAT195285

 S ABM("PG")=0

 D HDB

 S (ABM("SUBCNT"),ABM("SUBAMT"))=0

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

 ;F  S ABM("L")=$O(^TMP(ABM("SUBR"),"ST",$J,ABM("L"))) Q:ABM("L")=""  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

 F  S ABM("L")=$O(^TMP(ABM("SUBR"),$J,"ST",ABM("L"))) Q:ABM("L")=""  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

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

 .;F  S ABM("V")=$O(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"))) Q:'ABM("V")  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

 .F  S ABM("V")=$O(^TMP(ABM("SUBR"),$J,"ST",ABM("L"),ABM("V"))) Q:'ABM("V")  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

 ..I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)  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)

 ..;start old code abm*2.6*10 HEAT65629

 ..;S ABM("T")=$P(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"),0,0),U,1)

 ..;S ABM("A")=$P(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"),0,0),U,2)

 ..;end old code start new code HEAT65629

 ..S ABM("T")=$P(^TMP(ABM("SUBR"),$J,"ST",ABM("L"),ABM("V"),0,0),U,1)

 ..S ABM("A")=$P(^TMP(ABM("SUBR"),$J,"ST",ABM("L"),ABM("V"),0,0),U,2)

 ..;end new code HEAT65629

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

 ..W ?67,$J($FN(ABM("A"),",",2),12)

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

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

 .W !?60,"-----",?69,"----------",!?52,"Total:",?60,$J($FN(ABM("SUBCNT"),",",0),5)

 .W ?67,$J($FN(ABM("SUBAMT"),",",2),12)

 I ABM("CNT")'=ABM("SUBCNT") W !?59,"======",?68,"===========",!?46,"Grand Total:",?59,$J($FN(ABM("CNT"),",",0),6),?67,$J($FN(ABM("AMT"),",",2),12)

 K ^TMP(ABM("SUBR"),"ST",$J) Q

 ;

HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)

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

 W !,?58,"Number of",?72,"Amount"

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

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

 Q

ABMDRUN3  ; IHS/ASDST/DMJ - Unpaid Bills Stats ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**10,21**;NOV 12, 2009;Build 379

 +2       ;Original;TMD;

 +3       ;IHS/SD/SDR - 2.6*21 - HEAT195285 - Updated so it will print all headers fro report, not just UNPAID BILLS part.

 +4       ;

PRINT     ;EP for printing data

 +1       ;abm*2.6*21 IHS/SD/SDR HEAT195285

           DO ^ABMDRHD

 +2        SET ABM("PG")=0

 +3        DO HDB

 +4        SET (ABM("SUBCNT"),ABM("SUBAMT"))=0

 +5        SET ABM("CNT")=0

           SET ABM("AMT")=0

           SET ABM("L")=""

           SET ABM("OL")=""

 +6       ;F  S ABM("L")=$O(^TMP(ABM("SUBR"),"ST",$J,ABM("L"))) Q:ABM("L")=""  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

 +7       ;abm*2.6*10 HEAT65629

           FOR 

               SET ABM("L")=$ORDER(^TMP(ABM("SUBR"),$JOB,"ST",ABM("L")))

               IF ABM("L")=""

                   QUIT 

               Begin DoDot:1

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

 +9       ;F  S ABM("V")=$O(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"))) Q:'ABM("V")  D  Q:$D(DUOUT)!$D(DTOUT)  ;abm*2.6*10 HEAT65629

 +10      ;abm*2.6*10 HEAT65629

                   FOR 

                       SET ABM("V")=$ORDER(^TMP(ABM("SUBR"),$JOB,"ST",ABM("L"),ABM("V")))

                       IF 'ABM("V")

                           QUIT 

                       Begin DoDot:2

 +11                       IF $Y>(IOSL-5)

                               DO HD

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

                                   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      ;start old code abm*2.6*10 HEAT65629

 +17      ;S ABM("T")=$P(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"),0,0),U,1)

 +18      ;S ABM("A")=$P(^TMP(ABM("SUBR"),"ST",$J,ABM("L"),ABM("V"),0,0),U,2)

 +19      ;end old code start new code HEAT65629

 +20                       SET ABM("T")=$PIECE(^TMP(ABM("SUBR"),$JOB,"ST",ABM("L"),ABM("V"),0,0),U,1)

 +21                       SET ABM("A")=$PIECE(^TMP(ABM("SUBR"),$JOB,"ST",ABM("L"),ABM("V"),0,0),U,2)

 +22      ;end new code HEAT65629

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

 +24                       WRITE ?67,$JUSTIFY($FNUMBER(ABM("A"),",",2),12)

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

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

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

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

                       End DoDot:2

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

                           QUIT 

 +27               WRITE !?60,"-----",?69,"----------",!?52,"Total:",?60,$JUSTIFY($FNUMBER(ABM("SUBCNT"),",",0),5)

 +28               WRITE ?67,$JUSTIFY($FNUMBER(ABM("SUBAMT"),",",2),12)

               End DoDot:1

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

                   QUIT 

 +29       IF ABM("CNT")'=ABM("SUBCNT")

               WRITE !?59,"======",?68,"===========",!?46,"Grand Total:",?59,$JUSTIFY($FNUMBER(ABM("CNT"),",",0),6),?67,$JUSTIFY($FNUMBER(ABM("AMT"),",",2),12)

 +30       KILL ^TMP(ABM("SUBR"),"ST",$JOB)

           QUIT 

 +31      ;

HD         DO PAZ^ABMDRUTL

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

               QUIT 

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

           DO WHD^ABMDRHD

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

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

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

           WRITE !,ABM("LINE")

           KILL ABM("LINE")

 +4        QUIT