ABMDES1 ; IHS/ASDST/DMJ - Display Summarized UB-82/92 Info ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;
; IHS/SD/SDR - v2.5 p9 - IM16660
; 4-digit revenue codes
;
; IHS/SD/SDR - v2.5 p10 - IM20227
; Changed hardset of 001 rev code to 0001
;
; IHS/SD/SDR - v2.5 p10 - IM21581
; Added line to print active insurer in summary
;
UB82 ;EP for printing UB-82/92 charge summary
;
D HD
S ABMS="" F ABMS("I")=0:1 S ABMS=$O(ABMS(ABMS)) Q:'ABMS D Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)
.I $Y>(IOSL-7) S DIR(0)="EO" D ^DIR Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT) D HD
.W !,$S($P($G(ABMP("FLAT")),U,6)]"":$P(ABMP("FLAT"),U,6),1:$P($G(^AUTTREVN(ABMS,0)),U,2)),?29,"|"
.W $S($D(ABMS("CPT")):$P(ABMS("CPT",1),U,2),$P($G(ABMP("FLAT")),U,7)]"":$P(ABMP("FLAT"),U,7),$P(ABMS(ABMS),U,3)]"":$J($P(ABMS(ABMS),U,3),7,2),1:"")
.W ?43,$$GETREV^ABMDUTL(ABMS),?51,$J($P(ABMS(ABMS),U,2),3),?58,$J($FN($P(ABMS(ABMS),U),",",2),9)
.I $D(ABMP("FLAT")),'ABMS("I") W ?70,$J($FN($P(ABMS(ABMS),U,5),",",2),9)
I $D(ABMS("CPT")) S ABMS=1 F S ABMS=$O(ABMS("CPT",ABMS)) Q:ABMS="" W !,$P(ABMS("CPT",ABMS),U),?29,"|",$P(ABMS("CPT",ABMS),U,2),?43,$P(ABMS("CPT",ABMS),U,3),?51,$J($P(ABMS("CPT",ABMS),U,4),3),?58,$J($FN($P(ABMS("CPT",ABMS),U,5),",",2),9)
W !?58,"---------"
TOT ;
W !?10,"TOTAL CHARGE",?43,"0001",?58,$J($FN(ABMS("TOT"),",",2),9)
S ABMP("TOT")=ABMP("TOT")+ABMS("TOT")
F W ! Q:$Y+4>IOSL
S DIR(0)="E" D ^DIR K DIR
Q
;
D PREV^ABMDFUTL
I $D(ABMP("FLAT")) S ABMP("RESP")=ABMP("RESP")-$P(ABMS($P(ABMP("FLAT"),U,2)),U,5) W !?39,"Non-Covd Charges:",?57,$J("("_$FN($P(ABMS($P(ABMP("FLAT"),U,2)),U,5),",",2),10),")"
S:ABMP("RESP")<1 ABMP("RESP")=0
I ABMP("PD")!ABMP("WO") D
.W !?38,"Previous Payments:",?57,$J("("_$FN(ABMP("PD"),",",2),10),")"
.W:ABMP("WO") !?39,"Write-off Amount:",?57,$J("("_$FN(ABMP("WO"),",",2),10),")"
.W !?58,"---------",!,?37,"Est. Responsibility:",?58,$J(($FN(ABMP("RESP"),",",2)),9)
Q
;
HD ;HEADER
W $$EN^ABMVDF("IOF")
S ABMP("FORM")=$P(^ABMDEXP(ABMP("EXP"),0),U)
S ABMP("HEADER")="***** "_ABMP("FORM")_" CHARGE SUMMARY *****"
W !?22,ABMP("HEADER")
W !!,"Active Insurer: ",$P($G(^AUTNINS(ABMP("INS"),0)),U),!
W !?42,"Revn",?60,"Total" I $D(ABMP("FLAT")) W ?71,"Non-cvd"
W !?10," Description",?42,"Code",?50,"Units",?59,"Charges" I $D(ABMP("FLAT")) W ?71,"Charges"
S ABMS("I")="",$P(ABMS("I"),"-",80)="" W !,ABMS("I")
Q
ABMDES1 ; IHS/ASDST/DMJ - Display Summarized UB-82/92 Info ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;
+3 ; IHS/SD/SDR - v2.5 p9 - IM16660
+4 ; 4-digit revenue codes
+5 ;
+6 ; IHS/SD/SDR - v2.5 p10 - IM20227
+7 ; Changed hardset of 001 rev code to 0001
+8 ;
+9 ; IHS/SD/SDR - v2.5 p10 - IM21581
+10 ; Added line to print active insurer in summary
+11 ;
UB82 ;EP for printing UB-82/92 charge summary
+1 ;
+2 DO HD
+3 SET ABMS=""
FOR ABMS("I")=0:1
SET ABMS=$ORDER(ABMS(ABMS))
IF 'ABMS
QUIT
Begin DoDot:1
+4 IF $Y>(IOSL-7)
SET DIR(0)="EO"
DO ^DIR
IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)
QUIT
DO HD
+5 WRITE !,$SELECT($PIECE($GET(ABMP("FLAT")),U,6)]"":$PIECE(ABMP("FLAT"),U,6),1:$PIECE($GET(^AUTTREVN(ABMS,0)),U,2)),?29,"|"
+6 WRITE $SELECT($DATA(ABMS("CPT")):$PIECE(ABMS("CPT",1),U,2),$PIECE($GET(ABMP("FLAT")),U,7)]"":$PIECE(ABMP("FLAT"),U,7),$PIECE(ABMS(ABMS),U,3)]"":$JUSTIFY($PIECE(ABMS(ABMS),U,3),7,2),1:"")
+7 WRITE ?43,$$GETREV^ABMDUTL(ABMS),?51,$JUSTIFY($PIECE(ABMS(ABMS),U,2),3),?58,$JUSTIFY($FNUMBER($PIECE(ABMS(ABMS),U),",",2),9)
+8 IF $DATA(ABMP("FLAT"))
IF 'ABMS("I")
WRITE ?70,$JUSTIFY($FNUMBER($PIECE(ABMS(ABMS),U,5),",",2),9)
End DoDot:1
IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)
QUIT
+9 IF $DATA(ABMS("CPT"))
SET ABMS=1
FOR
SET ABMS=$ORDER(ABMS("CPT",ABMS))
IF ABMS=""
QUIT
WRITE !,$PIECE(ABMS("CPT",ABMS),U),?29,"|",$PIECE(ABMS("CPT",ABMS),U,2),?43,$PIECE(ABMS("CPT",ABMS),U,3),?51,$JUSTIFY($PIECE(ABMS("CPT",ABMS),U,4),3),?58,$JUSTIFY($FNUMBER($PIECE(ABMS("CPT",ABMS),U,5),",",2),9)
+10 WRITE !?58,"---------"
TOT ;
+1 WRITE !?10,"TOTAL CHARGE",?43,"0001",?58,$JUSTIFY($FNUMBER(ABMS("TOT"),",",2),9)
+2 SET ABMP("TOT")=ABMP("TOT")+ABMS("TOT")
+3 FOR
WRITE !
IF $Y+4>IOSL
QUIT
+4 SET DIR(0)="E"
DO ^DIR
KILL DIR
+5 QUIT
+6 ;
+7 DO PREV^ABMDFUTL
+8 IF $DATA(ABMP("FLAT"))
SET ABMP("RESP")=ABMP("RESP")-$PIECE(ABMS($PIECE(ABMP("FLAT"),U,2)),U,5)
WRITE !?39,"Non-Covd Charges:",?57,$JUSTIFY("("_$FNUMBER($PIECE(ABMS($PIECE(ABMP("FLAT"),U,2)),U,5),",",2),10),")"
+9 IF ABMP("RESP")<1
SET ABMP("RESP")=0
+10 IF ABMP("PD")!ABMP("WO")
Begin DoDot:1
+11 WRITE !?38,"Previous Payments:",?57,$JUSTIFY("("_$FNUMBER(ABMP("PD"),",",2),10),")"
+12 IF ABMP("WO")
WRITE !?39,"Write-off Amount:",?57,$JUSTIFY("("_$FNUMBER(ABMP("WO"),",",2),10),")"
+13 WRITE !?58,"---------",!,?37,"Est. Responsibility:",?58,$JUSTIFY(($FNUMBER(ABMP("RESP"),",",2)),9)
End DoDot:1
+14 QUIT
+15 ;
HD ;HEADER
+1 WRITE $$EN^ABMVDF("IOF")
+2 SET ABMP("FORM")=$PIECE(^ABMDEXP(ABMP("EXP"),0),U)
+3 SET ABMP("HEADER")="***** "_ABMP("FORM")_" CHARGE SUMMARY *****"
+4 WRITE !?22,ABMP("HEADER")
+5 WRITE !!,"Active Insurer: ",$PIECE($GET(^AUTNINS(ABMP("INS"),0)),U),!
+6 WRITE !?42,"Revn",?60,"Total"
IF $DATA(ABMP("FLAT"))
WRITE ?71,"Non-cvd"
+7 WRITE !?10," Description",?42,"Code",?50,"Units",?59,"Charges"
IF $DATA(ABMP("FLAT"))
WRITE ?71,"Charges"
+8 SET ABMS("I")=""
SET $PIECE(ABMS("I"),"-",80)=""
WRITE !,ABMS("I")
+9 QUIT
