ABMDRAP1 ; IHS/ASDST/DMJ - Approved Bills Summary Report ;
;;2.6;IHS 3P BILLING SYSTEM;**21**;NOV 12, 2009;Build 379
;Original;TMD;
;IHS/SD/SDR - 2.6*21 - HEAT166818 - Fix for programming error <UNDEFINED>PRINT+7^ABMDRAP1
;
COMPUTE ;EP - Entry Point for setting up data
K ABMP("APP")
S ABM=0
F S ABM=$O(^ABMDBILL(DUZ(2),"AC","A",ABM)) Q:'ABM D DATA
Q
;
DATA S ABMP("HIT")=0 D ^ABMDRCHK Q:'ABMP("HIT")
Q:"RA"'[$P(^ABMDBILL(DUZ(2),ABM,0),U,4) S ABM("VAR")=$S(ABMP("VAR")=2:$P(^(0),U,8),1:$P(^(0),U,6)),ABM("DT")=$P($G(^(1)),U,5) Q:'ABM("VAR")!'ABM("DT")
S:'$D(ABMP("APP",ABM("VAR"))) ABMP("APP",ABM("VAR"))=""
S $P(ABMP("APP",ABM("VAR")),U)=$P(ABMP("APP",ABM("VAR")),U)+1
S X2=ABM("DT"),X1=DT D ^%DTC
S $P(ABMP("APP",ABM("VAR")),U,2)=$P(ABMP("APP",ABM("VAR")),U,2)+X
S $P(ABMP("APP",ABM("VAR")),U,3)=$P(ABMP("APP",ABM("VAR")),U,3)+$G(^ABMDBILL(DUZ(2),ABM,2))
Q
;
PRINT ;EP for printing data
U IO S ABM("PG")=0
S ABM("TOT")=0
D HDB S ABM("F")="" F S ABM("F")=$O(ABMP("APP",ABM("F"))) Q:'ABM("F") D Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
.I $Y>(IOSL-7) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
.S $P(ABM("TOT"),U)=$P(ABM("TOT"),U)+ABMP("APP",ABM("F"))
.S $P(ABM("TOT"),U,2)=$P(ABM("TOT"),U,2)+$P(ABMP("APP",ABM("F")),U,3)
.I $G(^ABMDEXP(ABM("F"),0))="" Q ;abm*2.6*21 IHS/SD/SDR HEAT166818
.W !?3,$S(ABMP("VAR")=2:$P(^AUTNINS(ABM("F"),0),U),1:$P(^ABMDEXP(ABM("F"),0),U))
.W ?35,$J($FN($P(ABMP("APP",ABM("F")),U),",",0),4)
.W ?45,$J($FN($P(ABMP("APP",ABM("F")),U,2)\+ABMP("APP",ABM("F")),",",0),5)
.W ?56,$J($FN($P(ABMP("APP",ABM("F")),U,3),",",2),10)
W !?35,"=====",?56,"==========="
W !,?35,$J($FN($P(ABM("TOT"),U),",",0),4)
W ?56,$J($FN($P(ABM("TOT"),U,2),",",2),10)
Q
;
HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
HDB S ABM("PG")=ABM("PG")+1,ABM("I")="" D WHD^ABMDRHD
W !?45,"Avg Days"
W !?35,"Number",?45,"Awaiting",?60,"Total"
W !?3,$S(ABMP("VAR")=2:"Insurer",1:"Export Mode"),?35,"Bills",?45," Export",?59,"Charges"
W !,"-------------------------------------------------------------------------------"
Q
ABMDRAP1 ; IHS/ASDST/DMJ - Approved Bills Summary Report ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**21**;NOV 12, 2009;Build 379
+2 ;Original;TMD;
+3 ;IHS/SD/SDR - 2.6*21 - HEAT166818 - Fix for programming error <UNDEFINED>PRINT+7^ABMDRAP1
+4 ;
COMPUTE ;EP - Entry Point for setting up data
+1 KILL ABMP("APP")
+2 SET ABM=0
+3 FOR
SET ABM=$ORDER(^ABMDBILL(DUZ(2),"AC","A",ABM))
IF 'ABM
QUIT
DO DATA
+4 QUIT
+5 ;
DATA SET ABMP("HIT")=0
DO ^ABMDRCHK
IF 'ABMP("HIT")
QUIT
+1 IF "RA"'[$PIECE(^ABMDBILL(DUZ(2),ABM,0),U,4)
QUIT
SET ABM("VAR")=$SELECT(ABMP("VAR")=2:$PIECE(^(0),U,8),1:$PIECE(^(0),U,6))
SET ABM("DT")=$PIECE($GET(^(1)),U,5)
IF 'ABM("VAR")!'ABM("DT")
QUIT
+2 IF '$DATA(ABMP("APP",ABM("VAR")))
SET ABMP("APP",ABM("VAR"))=""
+3 SET $PIECE(ABMP("APP",ABM("VAR")),U)=$PIECE(ABMP("APP",ABM("VAR")),U)+1
+4 SET X2=ABM("DT")
SET X1=DT
DO ^%DTC
+5 SET $PIECE(ABMP("APP",ABM("VAR")),U,2)=$PIECE(ABMP("APP",ABM("VAR")),U,2)+X
+6 SET $PIECE(ABMP("APP",ABM("VAR")),U,3)=$PIECE(ABMP("APP",ABM("VAR")),U,3)+$GET(^ABMDBILL(DUZ(2),ABM,2))
+7 QUIT
+8 ;
PRINT ;EP for printing data
+1 USE IO
SET ABM("PG")=0
+2 SET ABM("TOT")=0
+3 DO HDB
SET ABM("F")=""
FOR
SET ABM("F")=$ORDER(ABMP("APP",ABM("F")))
IF 'ABM("F")
QUIT
Begin DoDot:1
+4 IF $Y>(IOSL-7)
DO HD
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+5 SET $PIECE(ABM("TOT"),U)=$PIECE(ABM("TOT"),U)+ABMP("APP",ABM("F"))
+6 SET $PIECE(ABM("TOT"),U,2)=$PIECE(ABM("TOT"),U,2)+$PIECE(ABMP("APP",ABM("F")),U,3)
+7 ;abm*2.6*21 IHS/SD/SDR HEAT166818
IF $GET(^ABMDEXP(ABM("F"),0))=""
QUIT
+8 WRITE !?3,$SELECT(ABMP("VAR")=2:$PIECE(^AUTNINS(ABM("F"),0),U),1:$PIECE(^ABMDEXP(ABM("F"),0),U))
+9 WRITE ?35,$JUSTIFY($FNUMBER($PIECE(ABMP("APP",ABM("F")),U),",",0),4)
+10 WRITE ?45,$JUSTIFY($FNUMBER($PIECE(ABMP("APP",ABM("F")),U,2)\+ABMP("APP",ABM("F")),",",0),5)
+11 WRITE ?56,$JUSTIFY($FNUMBER($PIECE(ABMP("APP",ABM("F")),U,3),",",2),10)
End DoDot:1
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
+12 WRITE !?35,"=====",?56,"==========="
+13 WRITE !,?35,$JUSTIFY($FNUMBER($PIECE(ABM("TOT"),U),",",0),4)
+14 WRITE ?56,$JUSTIFY($FNUMBER($PIECE(ABM("TOT"),U,2),",",2),10)
+15 QUIT
+16 ;
HD DO PAZ^ABMDRUTL
IF $DATA">DATA">DATA">DATA(DTOUT)!$DATA">DATA">DATA">DATA(DUOUT)!$DATA">DATA">DATA">DATA(DIROUT)
QUIT
HDB SET ABM("PG")=ABM("PG")+1
SET ABM("I")=""
DO WHD^ABMDRHD
+1 WRITE !?45,"Avg Days"
+2 WRITE !?35,"Number",?45,"Awaiting",?60,"Total"
+3 WRITE !?3,$SELECT(ABMP("VAR")=2:"Insurer",1:"Export Mode"),?35,"Bills",?45," Export",?59,"Charges"
+4 WRITE !,"-------------------------------------------------------------------------------"
+5 QUIT
