ABMRDNYD.m

ABMRDNYD ; IHS/SD/SDR - Bill Status Report ;

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

 ; IHS/SD/SDR - 2.6*21 - HEAT241429 - New Report

 ;

 K ABM,ABMY

 S ABM("RFOR")=1  ;printer or comma-delimited

 S ABM("RFOR","NM")="Printer"

 S ABM("PG")=0

 S ABM("DNYDT")=""

 ;

SEL ;

 S ABM("NODX")=""

 S ABM("NOSTAT")=""

 D ^ABMDRSEL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)

 S ABM("HD",0)="Bill Status Report"

 D ^ABMDRHD

 S ABMQ("RC")="COMPUTE^ABMRDNYD"

 S ABMQ("RX")="POUT^ABMDRUTL"

 S ABMQ("NS")="ABM"

 S ABMQ("RP")="PRINT^ABMRDNY"_ABM("RFOR")

 D ^ABMDRDBQ

 Q

 ;

COMPUTE ;EP - Entry Point for Setting up Data

 S ABM("SUBR")="ABM-RDNY"

 K ^TMP("ABM-RDNY",$J)

SLOOP ;

 I $D(ABMY("DT")) D  Q

 .S ABM("RD")=ABMY("DT",1)-1

 .F  S ABM("RD")=$O(^ABMDBILL(DUZ(2),"AD",ABM("RD"))) Q:'+ABM("RD")!(ABM("RD")>ABMY("DT",2))  D

 ..S ABM=""

 ..F  S ABM=$O(^ABMDBILL(DUZ(2),"AD",ABM("RD"),ABM)) Q:'ABM  D DATA

 ;LOOP THROUGH STATUS

 S ABM("RD")=0

 F  S ABM("RD")=$O(^ABMDBILL(DUZ(2),"AD",ABM("RD"))) Q:'ABM("RD")  D

 .S ABM=""

 .F  S ABM=$O(^ABMDBILL(DUZ(2),"AD",ABM("RD"),ABM)) Q:'ABM  D DATA

 Q

 ;

DATA ;

 S ABMP("HIT")=0

 D BILL^ABMDRCHK Q:'ABMP("HIT")

 I '$D(ABMY("PRV")) D

 .S ABMT=$O(^ABMDBILL(DUZ(2),ABM,41,"C","A",0))

 .I +ABMT=0 S ABMT=$O(^ABMDBILL(DUZ(2),ABM,41,"C","R",0))

 .I +ABMT=0 S ABMT("PRV")="NO PROVIDER"

 .I +ABMT>0 S ABMT("PRV")=$$GET1^DIQ(200,$P($G(^ABMDBILL(DUZ(2),ABM,41,ABMT,0)),U),".01","E")

 I $D(ABMY("PRV")) S ABMT("PRV")=$$GET1^DIQ(200,ABMY("PRV"),".01","E")

 S ^TMP("ABM-RDNY",$J,ABMT("PRV"),ABM)=""

 Q

ABMRDNYD  ; IHS/SD/SDR - Bill Status Report ;

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

 +2       ; IHS/SD/SDR - 2.6*21 - HEAT241429 - New Report

 +3       ;

 +4        KILL ABM,ABMY

 +5       ;printer or comma-delimited

           SET ABM("RFOR")=1

 +6        SET ABM("RFOR","NM")="Printer"

 +7        SET ABM("PG")=0

 +8        SET ABM("DNYDT")=""

 +9       ;

SEL       ;

 +1        SET ABM("NODX")=""

 +2        SET ABM("NOSTAT")=""

 +3        DO ^ABMDRSEL

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

               QUIT 

 +4        SET ABM("HD",0)="Bill Status Report"

 +5        DO ^ABMDRHD

 +6        SET ABMQ("RC")="COMPUTE^ABMRDNYD"

 +7        SET ABMQ("RX")="POUT^ABMDRUTL"

 +8        SET ABMQ("NS")="ABM"

 +9        SET ABMQ("RP")="PRINT^ABMRDNY"_ABM("RFOR")

 +10       DO ^ABMDRDBQ

 +11       QUIT 

 +12      ;

COMPUTE   ;EP - Entry Point for Setting up Data

 +1        SET ABM("SUBR")="ABM-RDNY"

 +2        KILL ^TMP("ABM-RDNY",$JOB)

SLOOP     ;

 +1        IF $DATA(ABMY("DT"))

               Begin DoDot:1

 +2                SET ABM("RD")=ABMY("DT",1)-1

 +3                FOR 

                       SET ABM("RD")=$ORDER(^ABMDBILL(DUZ(2),"AD",ABM("RD")))

                       IF '+ABM("RD")!(ABM("RD")>ABMY("DT",2))

                           QUIT 

                       Begin DoDot:2

 +4                        SET ABM=""

 +5                        FOR 

                               SET ABM=$ORDER(^ABMDBILL(DUZ(2),"AD",ABM("RD"),ABM))

                               IF 'ABM

                                   QUIT 

                               DO DATA

                       End DoDot:2

               End DoDot:1

               QUIT 

 +6       ;LOOP THROUGH STATUS

 +7        SET ABM("RD")=0

 +8        FOR 

               SET ABM("RD")=$ORDER(^ABMDBILL(DUZ(2),"AD",ABM("RD")))

               IF 'ABM("RD")

                   QUIT 

               Begin DoDot:1

 +9                SET ABM=""

 +10               FOR 

                       SET ABM=$ORDER(^ABMDBILL(DUZ(2),"AD",ABM("RD"),ABM))

                       IF 'ABM

                           QUIT 

                       DO DATA

               End DoDot:1

 +11       QUIT 

 +12      ;

DATA      ;

 +1        SET ABMP("HIT")=0

 +2        DO BILL^ABMDRCHK

           IF 'ABMP("HIT")

               QUIT 

 +3        IF '$DATA(ABMY("PRV"))

               Begin DoDot:1

 +4                SET ABMT=$ORDER(^ABMDBILL(DUZ(2),ABM,41,"C","A",0))

 +5                IF +ABMT=0

                       SET ABMT=$ORDER(^ABMDBILL(DUZ(2),ABM,41,"C","R",0))

 +6                IF +ABMT=0

                       SET ABMT("PRV")="NO PROVIDER"

 +7                IF +ABMT>0

                       SET ABMT("PRV")=$$GET1^DIQ(200,$PIECE($GET(^ABMDBILL(DUZ(2),ABM,41,ABMT,0)),U),".01","E")

               End DoDot:1

 +8        IF $DATA(ABMY("PRV"))

               SET ABMT("PRV")=$$GET1^DIQ(200,ABMY("PRV"),".01","E")

 +9        SET ^TMP("ABM-RDNY",$JOB,ABMT("PRV"),ABM)=""

 +10       QUIT