ABMDRXC2 ; IHS/SD/SDR - Closed claims-132 Width ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;
PRINT ;EP for printing data
W:$D(ABM("PRINT",16)) @ABM("PRINT",16) S ABM("PG")=0 D HDB
S (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0,(ABM("CLOS"),ABM("LOC"),ABM("VT"))=""
S ABM("Z")="TMP(""ABM-CLS"","_$J,ABM="^"_ABM("Z")_")" I '$D(@ABM) Q
F S ABM=$Q(@ABM) Q:ABM'[ABM("Z") D G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) XIT
.I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) D SUBHD W " (cont)"
.S ABM("T")=$P(ABM,"ABM-CLS",2),ABM("TXT")=$P($P(ABM("T"),",",3,99),"""",2),ABM("TXT")=+$P(ABM("T"),",",3)_U_ABM("TXT")
.S ABM("PDFN")=$G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)) Q:ABM("PDFN")="" S ABM("CDT")=$P($G(^(1)),U,5)
.I ABM("CLOS")'=$P(ABM("TXT"),U,2) S ABM("CLOS")="" D SUB,SUBHD S ABM("LOC")=""
.I ABM("LOC")'=$P(ABM("TXT"),U,3) D SUB:ABM("LOC")]"" W:ABM("LOC")'="" ! W !?3,"Visit Location: ",$P(ABM("PDFN"),U,3) S ABM("VT")=""
.S ABM("CLOS")=$P(ABM("TXT"),U,2)
.S ABM("LOC")=$P(ABM("TXT"),U,3)
.I ABM("VT")'=$P(ABM("TXT"),U,4) D SUB2:ABM("VT")]"" W:ABM("VT")]"" ! W !?7,$S(ABMY("SORT")="C":" Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,4),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,4),0),U))
.S ABM("VT")=$P(ABM("TXT"),U,4)
.W !
.W $E($P(^DPT($P(ABM("PDFN"),U),0),U),1,35) ;pat name
.S ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,ABM("LOC"),0)),U,2) ;HRN
.S:ABM("HRN")="" ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,DUZ(2),0)),U,2) ;HRN
.W ?37,ABM("HRN")
.W ?47,$E($P(^AUTNINS($P($G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)),U,8),0),U),1,24) ;ins
.W ?73,$P(ABM("TXT"),U,7) ;claim number
.W ?81,$$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)),U,2)) ;visit date
.I ABMY("SORT")="VT" W:+$P(ABM("PDFN"),U,10) ?92,$E($P(^DIC(40.7,$P(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0),U,6),0),U),1,18) ;clinic
.E W ?92,$P(^ABMDVTYP($P(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0),U,7),0),U) ;visit
.W ?102,$E($P($G(^ABMCLCLM($P(ABM("TXT"),U,5),0)),U),1,30) ;reason
.S ABM("CNT1")=ABM("CNT1")+1,ABM("CNT2")=ABM("CNT2")+1,ABM("CNT")=ABM("CNT")+1,ABM("TOT")=ABM("TOT")+ABM("T")
.S ABM("TOT1")=ABM("TOT1")+ABM("T"),ABM("TOT2")=ABM("TOT2")+ABM("T")
D SUB
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 !,"An ""*"" beside the claim number means the claim has been closed multiple times"
W !,?47,"Active",?73,"Claim",?81,"Visit"
W !?5,"Patient",?37,"HRN",?47,"Insurer",?73,"Number",?81,"Date",?94,$S(ABMY("SORT")="VT":"Clinic",1:"Visit Type"),?110,"Reason"
S $P(ABM("LINE"),"-",132)="" W !,ABM("LINE") K ABM("LINE")
Q
;
SUBHD W !!,"Closing Official: ",$P(^VA(200,$P(ABM("TXT"),U,2),0),U)
Q
;
SUB2 Q:'ABM("CNT2")
W !?32,"------",?121,"----------"
W !?5,"Sub-total:",?32,ABM("CNT2"),?121,$J($FN(ABM("TOT2"),",",2),10)
S ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
Q
;
SUB Q:'ABM("CNT1") D SUB2:ABM("CNT1")'=ABM("CNT2")
W !?32,"------"
W !?9,"Total:",?32,ABM("CNT1")
S ABM("CNT1")=0,ABM("TOT1")=0,ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
Q
XIT ;EXIT POINT
Q
ABMDRXC2 ; IHS/SD/SDR - Closed claims-132 Width ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;
PRINT ;EP for printing data
+1 IF $DATA(ABM("PRINT",16))
WRITE @ABM("PRINT",16)
SET ABM("PG")=0
DO HDB
+2 SET (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0
SET (ABM("CLOS"),ABM("LOC"),ABM("VT"))=""
+3 SET ABM("Z")="TMP(""ABM-CLS"","_$JOB
SET ABM="^"_ABM("Z")_")"
IF '$DATA(@ABM)
QUIT
+4 FOR
SET ABM=$QUERY(@ABM)
IF ABM'[ABM("Z")
QUIT
Begin DoDot:1
+5 IF $Y>(IOSL-5)
DO HD
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
QUIT
DO SUBHD
WRITE " (cont)"
+6 SET ABM("T")=$PIECE(ABM,"ABM-CLS",2)
SET ABM("TXT")=$PIECE($PIECE(ABM("T"),",",3,99),"""",2)
SET ABM("TXT")=+$PIECE(ABM("T"),",",3)_U_ABM("TXT")
+7 SET ABM("PDFN")=$GET(^ABMDCLM(DUZ(2),+$PIECE(ABM("TXT"),U,7),0))
IF ABM("PDFN")=""
QUIT
SET ABM("CDT")=$PIECE($GET(^(1)),U,5)
+8 IF ABM("CLOS")'=$PIECE(ABM("TXT"),U,2)
SET ABM("CLOS")=""
DO SUB
DO SUBHD
SET ABM("LOC")=""
+9 IF ABM("LOC")'=$PIECE(ABM("TXT"),U,3)
IF ABM("LOC")]""
DO SUB
IF ABM("LOC")'=""
WRITE !
WRITE !?3,"Visit Location: ",$PIECE(ABM("PDFN"),U,3)
SET ABM("VT")=""
+10 SET ABM("CLOS")=$PIECE(ABM("TXT"),U,2)
+11 SET ABM("LOC")=$PIECE(ABM("TXT"),U,3)
+12 IF ABM("VT")'=$PIECE(ABM("TXT"),U,4)
IF ABM("VT")]""
DO SUB2
IF ABM("VT")]""
WRITE !
WRITE !?7,$SELECT(ABMY("SORT")="C":" Clinic: "_$PIECE(^DIC(40.7,$PIECE(ABM("TXT"),U,4),0),U),1:"Visit Type: "_$PIECE(^ABMDVTYP($PIECE(ABM("TXT"),U,4),0),U))
+13 SET ABM("VT")=$PIECE(ABM("TXT"),U,4)
+14 WRITE !
+15 ;pat name
WRITE $EXTRACT($PIECE(^DPT($PIECE(ABM("PDFN"),U),0),U),1,35)
+16 ;HRN
SET ABM("HRN")=$PIECE($GET(^AUPNPAT($PIECE(ABM("PDFN"),U),41,ABM("LOC"),0)),U,2)
+17 ;HRN
IF ABM("HRN")=""
SET ABM("HRN")=$PIECE($GET(^AUPNPAT($PIECE(ABM("PDFN"),U),41,DUZ(2),0)),U,2)
+18 WRITE ?37,ABM("HRN")
+19 ;ins
WRITE ?47,$EXTRACT($PIECE(^AUTNINS($PIECE($GET(^ABMDCLM(DUZ(2),+$PIECE(ABM("TXT"),U,7),0)),U,8),0),U),1,24)
+20 ;claim number
WRITE ?73,$PIECE(ABM("TXT"),U,7)
+21 ;visit date
WRITE ?81,$$SDT^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),+$PIECE(ABM("TXT"),U,7),0)),U,2))
+22 ;clinic
IF ABMY("SORT")="VT"
IF +$PIECE(ABM("PDFN"),U,10)
WRITE ?92,$EXTRACT($PIECE(^DIC(40.7,$PIECE(^ABMDCLM(DUZ(2),+$PIECE(ABM("TXT"),U,7),0),U,6),0),U),1,18)
+23 ;visit
IF '$TEST
WRITE ?92,$PIECE(^ABMDVTYP($PIECE(^ABMDCLM(DUZ(2),+$PIECE(ABM("TXT"),U,7),0),U,7),0),U)
+24 ;reason
WRITE ?102,$EXTRACT($PIECE($GET(^ABMCLCLM($PIECE(ABM("TXT"),U,5),0)),U),1,30)
+25 SET ABM("CNT1")=ABM("CNT1")+1
SET ABM("CNT2")=ABM("CNT2")+1
SET ABM("CNT")=ABM("CNT")+1
SET ABM("TOT")=ABM("TOT")+ABM("T")
+26 SET ABM("TOT1")=ABM("TOT1")+ABM("T")
SET ABM("TOT2")=ABM("TOT2")+ABM("T")
End DoDot:1
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
GOTO XIT
+27 DO SUB
+28 QUIT
+29 ;
HD DO PAZ^ABMDRUTL
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
QUIT
HDB SET ABM("PG")=ABM("PG")+1
SET ABM("I")=""
DO WHD^ABMDRHD
+1 WRITE !,"An ""*"" beside the claim number means the claim has been closed multiple times"
+2 WRITE !,?47,"Active",?73,"Claim",?81,"Visit"
+3 WRITE !?5,"Patient",?37,"HRN",?47,"Insurer",?73,"Number",?81,"Date",?94,$SELECT(ABMY("SORT")="VT":"Clinic",1:"Visit Type"),?110,"Reason"
+4 SET $PIECE(ABM("LINE"),"-",132)=""
WRITE !,ABM("LINE")
KILL ABM("LINE")
+5 QUIT
+6 ;
SUBHD WRITE !!,"Closing Official: ",$PIECE(^VA(200,$PIECE(ABM("TXT"),U,2),0),U)
+1 QUIT
+2 ;
SUB2 IF 'ABM("CNT2")
QUIT
+1 WRITE !?32,"------",?121,"----------"
+2 WRITE !?5,"Sub-total:",?32,ABM("CNT2"),?121,$JUSTIFY($FNUMBER(ABM("TOT2"),",",2),10)
+3 SET ABM("CNT2")=0
SET ABM("TOT2")=0
SET ABM("I")=""
+4 QUIT
+5 ;
SUB IF 'ABM("CNT1")
QUIT
IF ABM("CNT1")'=ABM("CNT2")
DO SUB2
+1 WRITE !?32,"------"
+2 WRITE !?9,"Total:",?32,ABM("CNT1")
+3 SET ABM("CNT1")=0
SET ABM("TOT1")=0
SET ABM("CNT2")=0
SET ABM("TOT2")=0
SET ABM("I")=""
+4 QUIT
XIT ;EXIT POINT
+1 QUIT
