ABMDRBR.m

ABMDRBR ; IHS/ASDST/DMJ - Brief Claims Listing ;

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

 ;Original;TMD;

 ;

 ; IHS/SD/SDR - v2.5 p13 - NO IM

 ;

 K ABM,ABMY

 S ABM("RTYP")=1,ABM("RTYP","NM")="BRIEF LISTING (80 Width)"

 S ABM("STA")="F"

 S ABM("STA","NM")="Flagged as Billable"

 ;

SEL S ABM("NODX")="" D ^ABMDRSEL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)

 S ABM("HD",0)="BRIEF LISTING of CLAIMS "_ABM("STA","NM")

 D ^ABMDRHD

 S ABMQ("RC")="COMPUTE^ABMDRBR",ABMQ("RX")="POUT^ABMDRUTL",ABMQ("NS")="ABM"

 S ABMQ("RP")="PRINT^ABMDRBR"_ABM("RTYP")

 ;S ABM("$J")=DUZ_"-"_$P($H,",",1)_"-"_$P($H,",",2)

 D ^ABMDRDBQ

 Q

 ;

COMPUTE ;EP - Entry Point for Setting up Data

 S ABM("SUBR")="ABM-BR" K ^TMP("ABM-BR",$J) Q:'$D(ABM("STA"))  S ABM("PG")=0

ALL ;ALL STATUS

 I ABM("STA")="" D  Q

 .;F ABM("STA")="E","F","U","R","C" D SLOOP  ;abm*2.5*13 NO IM

 .F ABM("STA")="E","F","U","R","C","O" D SLOOP  ;abm*2.5*13 NO IM

 I ABM("STA")="F" D  Q

 .F ABM("STA")="E","F" D SLOOP

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

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

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

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

 ;LOOP THROUGH STATUS

 S ABM="" F  S ABM=$O(^ABMDCLM(DUZ(2),"AS",ABM("STA"),ABM)) Q:'ABM  D DATA

 Q

 ;

DATA S ABMP("HIT")=0 D CLM^ABMDRCHK Q:'ABMP("HIT")

 S ABM("SORT")=$S(ABMY("SORT")="C":ABM("C"),1:ABM("V"))

 S ABM("L")=$P(^DIC(4,ABM("L"),0),U)

 S ^TMP("ABM-BR",$J,ABM("L")_U_ABM("SORT")_U_$P(^DPT(ABM("P"),0),U)_U_ABM)=""

 S ABM("ST",ABM("L"),ABM("SORT"))=$G(ABM("ST",ABM("L"),ABM("SORT")))+1

 Q

ABMDRBR   ; IHS/ASDST/DMJ - Brief Claims Listing ;

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

 +2       ;Original;TMD;

 +3       ;

 +4       ; IHS/SD/SDR - v2.5 p13 - NO IM

 +5       ;

 +6        KILL ABM,ABMY

 +7        SET ABM("RTYP")=1

           SET ABM("RTYP","NM")="BRIEF LISTING (80 Width)"

 +8        SET ABM("STA")="F"

 +9        SET ABM("STA","NM")="Flagged as Billable"

 +10      ;

SEL        SET ABM("NODX")=""

           DO ^ABMDRSEL

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

               QUIT 

 +1        SET ABM("HD",0)="BRIEF LISTING of CLAIMS "_ABM("STA","NM")

 +2        DO ^ABMDRHD

 +3        SET ABMQ("RC")="COMPUTE^ABMDRBR"

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

           SET ABMQ("NS")="ABM"

 +4        SET ABMQ("RP")="PRINT^ABMDRBR"_ABM("RTYP")

 +5       ;S ABM("$J")=DUZ_"-"_$P($H,",",1)_"-"_$P($H,",",2)

 +6        DO ^ABMDRDBQ

 +7        QUIT 

 +8       ;

COMPUTE   ;EP - Entry Point for Setting up Data

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

           KILL ^TMP("ABM-BR",$JOB)

           IF '$DATA(ABM("STA"))

               QUIT 

           SET ABM("PG")=0

ALL       ;ALL STATUS

 +1        IF ABM("STA")=""

               Begin DoDot:1

 +2       ;F ABM("STA")="E","F","U","R","C" D SLOOP  ;abm*2.5*13 NO IM

 +3       ;abm*2.5*13 NO IM

                   FOR ABM("STA")="E","F","U","R","C","O"

                       DO SLOOP

               End DoDot:1

               QUIT 

 +4        IF ABM("STA")="F"

               Begin DoDot:1

 +5                FOR ABM("STA")="E","F"

                       DO SLOOP

               End DoDot:1

               QUIT 

SLOOP      IF $DATA(ABMY("DT"))

               Begin DoDot:1

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

 +2                FOR 

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

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

                           QUIT 

                       Begin DoDot:2

 +3                        SET ABM=""

                           FOR 

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

                               IF 'ABM

                                   QUIT 

                               DO DATA

                       End DoDot:2

               End DoDot:1

               QUIT 

 +4       ;LOOP THROUGH STATUS

 +5        SET ABM=""

           FOR 

               SET ABM=$ORDER(^ABMDCLM(DUZ(2),"AS",ABM("STA"),ABM))

               IF 'ABM

                   QUIT 

               DO DATA

 +6        QUIT 

 +7       ;

DATA       SET ABMP("HIT")=0

           DO CLM^ABMDRCHK

           IF 'ABMP("HIT")

               QUIT 

 +1        SET ABM("SORT")=$SELECT(ABMY("SORT")="C":ABM("C"),1:ABM("V"))

 +2        SET ABM("L")=$PIECE(^DIC(4,ABM("L"),0),U)

 +3        SET ^TMP("ABM-BR",$JOB,ABM("L")_U_ABM("SORT")_U_$PIECE(^DPT(ABM("P"),0),U)_U_ABM)=""

 +4        SET ABM("ST",ABM("L"),ABM("SORT"))=$GET(ABM("ST",ABM("L"),ABM("SORT")))+1

 +5        QUIT