ABMRSTI3 ; IHS/SD/SDR - Split Claim Billing - split report (part 3);
;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
;
PRINT ;EP
S ABM("HD",1)="with "_$S(ABMY("DT")="V":"Visit",1:"Approval")_" Dates from "_$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2))
S ABM("HD",1)=ABM("HD",1)_" AND for page"_$S(($L(ABMY("PGS"),"^")>3):"s",1:"")_" "_$E($TR($G(ABMY("PGS")),"^",","),2,$L(ABMY("PGS"))-1)
S ABM("HD",2)="for insurer"_$S((+$G(ABMY("INS"))>1):"s",1:"")_" "
S ABMI=0
S ABMJ=0
F S ABMI=$O(ABMY("INS",ABMI)) Q:'ABMI S ABM("HD",2)=ABM("HD",2)_$S(ABMJ=1:", ",1:"")_$P($G(^AUTNINS(ABMI,0)),U) S ABMJ=1
S ABM("PG")=0
;
PRINT2 ;EP
D HDB
S ABMCDFN=0
S ABMOCNT=0
S ABMNCNT=0
F S ABMCDFN=$O(^TMP("ABM-STIN",$J,"NEWCLMLST",ABMCDFN)) Q:'ABMCDFN D
.I $Y>(IOSL-9) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) W " (cont)"
.W !,ABMCDFN ;original claim#
.W ?12,$P($G(^AUTNINS($P($G(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,8),0)),U) ;active insurer
.S ABMVLOC=$P($G(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,3)
.S ABMPT=$P($G(^ABMDCLM(DUZ(2),ABMCDFN,0)),U)
.S ABMHRN=$P($G(^AUPNPAT(ABMPT,41,ABMVLOC,0)),U,2)
.W ?45,ABMHRN ;HRN
.W ?53,$$SDTO^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,2)) ;visit date
.W ?65,$E($P($G(^DIC(40.7,$P($G(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,6),0)),U),1,14) ;clinic
.S ABMOCNT=+$G(ABMOCNT)+1
.S ABMCDFN2=0
.F S ABMCDFN2=$O(^TMP("ABM-STIN",$J,"NEWCLMLST",ABMCDFN,ABMCDFN2)) Q:'ABMCDFN2 D
..W !?15,ABMCDFN2 ;new claim#
..S ABMNCNT=+$G(ABMNCNT)+1
..S ABMPG=""
..F S ABMPG=$O(^TMP("ABM-STIN",$J,"NEWCLMLST",ABMCDFN,ABMCDFN2,ABMPG)) Q:$G(ABMPG)="" D
...S ABMMLT=$S(ABMPG="8D":23,ABMPG="8E":37,ABMPG="8F":35,1:43)
...S ABMJ=0
...F S ABMJ=$O(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ)) Q:'ABMJ D
....I ABMMLT=23 D
.....S ABMCODE=$S($P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,6)'="":$P(^(0),U,6),$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,22):$$GET1^DIQ(52,$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,22),".01","E"),1:ABMJ_"NORX#") ;RX#
.....S ABMDESC=$S($P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,24):$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,24),1:"<NO NDC>")_" "_$$GET1^DIQ(50,$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U),".01","E")
....I ABMMLT'=23 D
.....S ABMCODE=$P($$CPT^ABMCVAPI($P($G(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U),$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,0)),U,2)),U,2)
.....S ABMDESC=$P($$CPT^ABMCVAPI(ABMCODE,$P($G(^ABMDCLM(DUZ(2),ABMCDFN2,0)),U,2)),U,3)
....I ABMCODE["NORX" S ABMCODE="NORX#"
....W ?26,ABMCODE ;Ref#
....W ?37,$E(ABMDESC,1,40) ;description
....I $G(ABMY("SPLITHOW"))'=1 W !
I $G(ABMY("SPLIT"))="A" W !!,"<End of Report>"
Q
HD ;
D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
HDB ;
I $G(ABMY("SPLIT"))="A" S ABM("PG")=ABM("PG")+1 D WHD^ABMDRHD
W !,"Orig Clm#",?12,"Active Insurer",?45,"HRN",?53,"Visit Date",?65,"Clinic"
W !?15,"New Clm#",?26,"Ref#",?37,"Description",!
F I=1:1:80 W "-"
Q
ABMRSTI3 ; IHS/SD/SDR - Split Claim Billing - split report (part 3);
+1 ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
+2 ;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
+3 ;
PRINT ;EP
+1 SET ABM("HD",1)="with "_$SELECT(ABMY("DT")="V":"Visit",1:"Approval")_" Dates from "_$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2))
+2 SET ABM("HD",1)=ABM("HD",1)_" AND for page"_$SELECT(($LENGTH(ABMY("PGS"),"^")>3):"s",1:"")_" "_$EXTRACT($TRANSLATE($GET(ABMY("PGS")),"^",","),2,$LENGTH(ABMY("PGS"))-1)
+3 SET ABM("HD",2)="for insurer"_$SELECT((+$GET(ABMY("INS"))>1):"s",1:"")_" "
+4 SET ABMI=0
+5 SET ABMJ=0
+6 FOR
SET ABMI=$ORDER(ABMY("INS",ABMI))
IF 'ABMI
QUIT
SET ABM("HD",2)=ABM("HD",2)_$SELECT(ABMJ=1:", ",1:"")_$PIECE($GET(^AUTNINS(ABMI,0)),U)
SET ABMJ=1
+7 SET ABM("PG")=0
+8 ;
PRINT2 ;EP
+1 DO HDB
+2 SET ABMCDFN=0
+3 SET ABMOCNT=0
+4 SET ABMNCNT=0
+5 FOR
SET ABMCDFN=$ORDER(^TMP("ABM-STIN",$JOB,"NEWCLMLST",ABMCDFN))
IF 'ABMCDFN
QUIT
Begin DoDot:1
+6 IF $Y>(IOSL-9)
DO HD
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
QUIT
WRITE " (cont)"
+7 ;original claim#
WRITE !,ABMCDFN
+8 ;active insurer
WRITE ?12,$PIECE($GET(^AUTNINS($PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,8),0)),U)
+9 SET ABMVLOC=$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,3)
+10 SET ABMPT=$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN,0)),U)
+11 SET ABMHRN=$PIECE($GET(^AUPNPAT(ABMPT,41,ABMVLOC,0)),U,2)
+12 ;HRN
WRITE ?45,ABMHRN
+13 ;visit date
WRITE ?53,$$SDTO^ABMDUTL($PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,2))
+14 ;clinic
WRITE ?65,$EXTRACT($PIECE($GET(^DIC(40.7,$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN,0)),U,6),0)),U),1,14)
+15 SET ABMOCNT=+$GET(ABMOCNT)+1
+16 SET ABMCDFN2=0
+17 FOR
SET ABMCDFN2=$ORDER(^TMP("ABM-STIN",$JOB,"NEWCLMLST",ABMCDFN,ABMCDFN2))
IF 'ABMCDFN2
QUIT
Begin DoDot:2
+18 ;new claim#
WRITE !?15,ABMCDFN2
+19 SET ABMNCNT=+$GET(ABMNCNT)+1
+20 SET ABMPG=""
+21 FOR
SET ABMPG=$ORDER(^TMP("ABM-STIN",$JOB,"NEWCLMLST",ABMCDFN,ABMCDFN2,ABMPG))
IF $GET(ABMPG)=""
QUIT
Begin DoDot:3
+22 SET ABMMLT=$SELECT(ABMPG="8D":23,ABMPG="8E":37,ABMPG="8F":35,1:43)
+23 SET ABMJ=0
+24 FOR
SET ABMJ=$ORDER(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ))
IF 'ABMJ
QUIT
Begin DoDot:4
+25 IF ABMMLT=23
Begin DoDot:5
+26 ;RX#
SET ABMCODE=$SELECT($PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,6)'="":$PIECE(^(0),U,6),$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,22):$$GET1^DIQ(52,...
... $PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,22),".01","E"),1:ABMJ_"NORX#")
+27 SET ABMDESC=$SELECT($PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,24):$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U,24),1:"<NO NDC>")_" "_$$GET1^DIQ(50,$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDF
N2,ABMMLT,ABMJ,0)),U),".01","E")
End DoDot:5
+28 IF ABMMLT'=23
Begin DoDot:5
+29 SET ABMCODE=$PIECE($$CPT^ABMCVAPI($PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,ABMMLT,ABMJ,0)),U),$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,0)),U,2)),U,2)
+30 SET ABMDESC=$PIECE($$CPT^ABMCVAPI(ABMCODE,$PIECE($GET(^ABMDCLM(DUZ(2),ABMCDFN2,0)),U,2)),U,3)
End DoDot:5
+31 IF ABMCODE["NORX"
SET ABMCODE="NORX#"
+32 ;Ref#
WRITE ?26,ABMCODE
+33 ;description
WRITE ?37,$EXTRACT(ABMDESC,1,40)
+34 IF $GET(ABMY("SPLITHOW"))'=1
WRITE !
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+35 IF $GET(ABMY("SPLIT"))="A"
WRITE !!,"<End of Report>"
+36 QUIT
HD ;
+1 DO PAZ^ABMDRUTL
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
QUIT
HDB ;
+1 IF $GET(ABMY("SPLIT"))="A"
SET ABM("PG")=ABM("PG")+1
DO WHD^ABMDRHD
+2 WRITE !,"Orig Clm#",?12,"Active Insurer",?45,"HRN",?53,"Visit Date",?65,"Clinic"
+3 WRITE !?15,"New Clm#",?26,"Ref#",?37,"Description",!
+4 FOR I=1:1:80
WRITE "-"
+5 QUIT
