ABMDE8G ; IHS/ASDST/DMJ - Page 8 - ANESTHESIA ;
;;2.6;IHS Third Party Billing;**1,3,6,8,9**;NOV 12, 2009
;
; IHS/ASDS/DMJ - v2.4 p7 - 9/7/01 NOIS HQW-0701-100066
; Modifications made related to Medicare Part B.
;
; IHS/SD/SDR - 11/4/02 - V2.5 P2 - ZZZ-0301-210046 - Modified to capture modifiers from PCC
; IHS/SD/SDR - V2.5 P8 - IM10618/IM11164 - Prompt/display provider
; IHS/SD/SDR - v2.5 p9 - IM16660 - 4-digit revenue codes
; IHS/SD/SDR - v2.5 p9 - task 1 - Use new service line provider multiple
; IHS/SD/SDR - v2.5 p10 - IM21539 - Made changes to correct display and calculations to be
; correct amounts (was doing stuff that the payer does and we shouldn't be)
; IHS/SD/SDR - v2.5 p11 - NPI
; IHS/SD/SDR - v2.5 p12 - IM24277 - Added code for 2nd and 3rd modifier
;
; IHS/SD/SDR - v2.6 CSV
; IHS/SD/SDR - abm*2.6*1 - HEAT6566 - Added code to do anes. one way for Medicare and another for everyone else.
; IHS/SD/SDR - abm*2.6*3 - HEAT12742 - corrections to MCR/non-MCR; Adrian spoke with Medicare; they said
; it should be like it was; removed all changes for 6566 so it was back to original code
; IHS/SD/SDR - 2.6*9 - Updates to code from heat 6566; it is commented out because it is only needed for MT Mcd.
; Site that needs the changes should comment out nat'l code and uncomment the other 6566 lines.
;
DISP K ABMZ S ABMZ("TITL")="ANESTHESIA SERVICES",ABMZ("PG")="8G",ABMZ("ADD1")=""
I $D(ABMP("DDL")),$Y>(IOSL-9) D PAUSE^ABMDE1 G:$D(DUOUT)!$D(DTOUT)!$D(DIROUT) XIT I 1
E D SUM^ABMDE1
;
D G^ABMDE8X
FEE S ABMZ("CAT")=23
;S ABMP("ITYP")=$P($G(^AUTNINS(ABMP("INS"),2)),U) ;abm*2.6*1 HEAT6566 ;abm*2.6*8
S:ABMP("INS") ABMP("ITYP")=$P($G(^AUTNINS(ABMP("INS"),2)),U) ;abm*2.6*1 HEAT6566 ;abm*2.6*8
;S ABMZ("DICS")="I ($P(^ICPT(Y,0),""^"")<70000)&($P($$CPT^ABMCVAPI(Y,ABMP(""VDT"")),""^"",7)'=1)" ;CSV-c ;abm*2.6*6
S ABMZ("DICS")="I ($P(^ICPT(Y,0),""^"")<70000)&($P($$CPT^ABMCVAPI(Y,ABMP(""VDT"")),""^"",7)=1)" ;CSV-c ;abm*2.6*6
S ABMZ("SUB")=39
D MODE^ABMDE8X
S:((^ABMDEXP(ABMMODE(7),0)["HCFA")!(^ABMDEXP(ABMMODE(7),0)["CMS")) ABMZ("DIAG")=";.1"
S ABMZ("DR")=""
;start old code abm*2.6*6 NOHEAT
;D
;.S ABMDPRV=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C","R",0))
;.S ABMDPRV=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,+ABMDPRV,0)),U)
;.K ABMDPRV
;end old code NOHEAT
S ABMZ("CHRG")=";W !;.04"
S ABMZ("MOD")=.06_U_2_U_.14_U_2_U_.19
S ABMZ("ITEM")="Anesthesia (CPT Code)"
S ABMZ("DIC")="^ICPT(",ABMZ("X")="X",ABMZ("TOTL")=0,ABMZ("ANTH")=""
I ^ABMDEXP(ABMMODE(7),0)["UB" S ABMZ("DR")=ABMZ("DR")_";W !;.02//370" ;abm*2.6*1 HEAT6566
;I ^ABMDEXP(ABMMODE(7),0)["UB",(ABMP("ITYP")'="R") S ABMZ("DR")=";W !;.02//370"_ABMZ("DR") ;abm*2.6*1 HEAT6566
;I ^ABMDEXP(ABMMODE(7),0)["UB",(ABMP("ITYP")="R") S ABMZ("DR")=ABMZ("DR")_";W !;.02//370" ;abm*2.6*1 HEAT6566
D HD G LOOP
HD ;
;start old code abm*2.6*1 HEAT6566
W !?5,"REVN",?72,"TOTAL"
W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?66,"MIN",?72,"CHARGE"
W !?5,"====",?10,"======================================================",?66,"===",?71,"========"
;end old code start new code HEAT6566
;I ABMP("ITYP")'="R" D
;.;W !?5,"REVN",?55,"BASE",?64,"TIME",?72,"TOTAL" ;IHS/SD/SDR 4/27/10 HEAT12742
;.W !?5,"REVN",?60,"BASE",?64,?72,"TOTAL" ;IHS/SD/SDR 4/27/10 HEAT12742
;.;W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?54,"CHARGE",?63,"CHARGE",?72,"CHARGE" ;IHS/SD/SDR 4/27/10 HEAT12742
;.W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?59,"CHARGE",?72,"CHARGE" ;IHS/SD/SDR 4/27/10 HEAT12742
;.;W !?5,"====",?10,"===========================================",?53,"========",?62,"========",?71,"========" ;IHS/SD/SDR 4/27/10 HEAT12742
;.W !?5,"====",?10,"===========================================",?58,"========",?71,"========" ;IHS/SD/SDR 4/27/10 HEAT12742
;I ABMP("ITYP")="R" D
;.W !?5,"REVN",?72,"TOTAL"
;.W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?66,"MIN",?72,"CHARGE"
;.W !?5,"====",?10,"======================================================",?66,"===",?71,"========"
;end new code HEAT6566
Q
LOOP S (ABMZ("LNUM"),ABMZ("NUM"),ABMZ(1),ABM)=0 F ABM("I")=1:1 S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM)) Q:'ABM D
.S ABM("X")=ABM,D1=ABM
.S ABMZ("NUM")=ABM("I")
.D PC1
I ABMZ("NUM")>0 W !?69,"==========",!?69,$J("$"_($FN(ABMZ("TOTL"),",",2)),10)
I +$O(ABME(0)) S ABME("CONT")="" D ^ABMDERR K ABME("CONT")
G XIT
;
PC1 S ABM("X0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM("X"),0)
S ABMZ(ABM("I"))=$P($$CPT^ABMCVAPI($P(ABM("X0"),U),ABMP("VDT")),U,2)_U_ABM("X")_U_$P(ABM("X0"),U,3) ;CSV-c
I $Y>(IOSL-5) D PAUSE^ABMDE1,HD
W !,"[",ABM("I"),"]",?5,$$GETREV^ABMDUTL($P(ABM("X0"),U,2))
W ?10,$P(ABMZ(ABM("I")),U)
W:$P($G(ABM("X0")),U,6)'="" "-",$P(ABM("X0"),U,6)
W:$P($G(ABM("X0")),U,14)'="" "-",$P(ABM("X0"),U,14)
W:$P($G(ABM("X0")),U,19)'="" "-",$P(ABM("X0"),U,19)
W " "
;start old code abm*2.6*1 HEAT6566
K ABMU
S ABMU(1)="?66"_U_$$TM^ABMDUTL($P(ABM("X0"),U,7),$P(ABM("X0"),U,8))
S ABMU(2)="?71"_U_$J($FN($P(ABM("X0"),U,4),",",2),8)
S ABMZ("TOTL")=$P(ABM("X0"),U,4)+ABMZ("TOTL")
;end old code start new code HEAT6566
;I ABMP("ITYP")="R" D
;.S ABMU(1)="?66"_U_$$TM^ABMDUTL($P(ABM("X0"),U,7),$P(ABM("X0"),U,8))
;.S ABMU(2)="?71"_U_$J($FN(($P(ABM("X0"),U,4)+$P(ABM("X0"),U,3)),",",2),8)
;.S ABMZ("TOTL")=$P(ABM("X0"),U,4)+$P(ABM("X0"),U,3)+ABMZ("TOTL")
;I ABMP("ITYP")'="R" D
;.;K ABMU S ABMU(1)="?53"_U_$J($FN($P(ABM("X0"),U,4),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
;.K ABMU S ABMU(1)="?58"_U_$J($FN($P(ABM("X0"),U,4),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
;.;S ABM("AN")=+$P(ABM("X0"),"^",3),ABMU(2)="?62"_U_$J($FN(ABM("AN"),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
;.S ABM("AN")=+$P(ABM("X0"),"^",3) ;IHS/SD/SDR 4/27/10 HEAT12742
;.;S ABMU(3)="?71"_U_$J($FN((ABM("AN")+$P(ABM("X0"),U,4)),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
;.S ABMU(2)="?71"_U_$J($FN((+$P(ABM("X0"),U,4)),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
;.;S ABMZ("TOTL")=ABM("AN")+$P(ABM("X0"),U,4)+ABMZ("TOTL") ;IHS/SD/SDR 4/27/10 HEAT12742
;.S ABMZ("TOTL")=+$P(ABM("X0"),U,4)+ABMZ("TOTL") ;IHS/SD/SDR 4/27/10 HEAT12742
;end new code HEAT6566
I $P(^ABMDPARM(DUZ(2),1,0),U,14)'="Y" S ABMU("TXT")=$P($$CPT^ABMCVAPI($P(ABM("X0"),U),ABMP("VDT")),U,3) ;CSV-c
;start CSV-c
E D
.S ABMU("TXT")=""
.K ABMZCPTD
.D IHSCPTD^ABMCVAPI($P(ABM("X0"),U),"ABMZCPTD","",ABMP("VDT"))
.S ABM("CP")=0
.F S ABM("CP")=$O(ABMZCPTD(ABM("CP"))) Q:(+ABM("CP")=0) D
..Q:($G(ABMZCPTD(ABM("CP")))="")
..S ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABM("CP"))_" "
;end CSV-c
S ABMU("RM")=51,ABMU("LM")=$S(ABMZ("MOD"):19,1:16) S:ABMZ("MOD") ABMU("TAB")=3 D ^ABMDWRAP
S ABMRPRV=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P","C","D",0))
S:ABMRPRV="" ABMRPRV=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P","C","R",0))
I ABMRPRV'="" D ;rendering provider on line item
.W !?11," ("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566
.;I ABMP("ITYP")'="R" W "("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566 ;IHS/SD/SDR 4/27/10 HEAT12742
.;I ABMP("ITYP")'="R" W !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566 ;IHS/SD/SDR 4/27/10 HEAT12742
.;I ABMP("ITYP")="R" W !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566
W !,?11,"Start Date/Time: ",$$MDT^ABMDUTL($P(ABM("X0"),"^",7)),!,?12,"Stop Date/Time: ",$$MDT^ABMDUTL($P(ABM("X0"),"^",8))
S ABMZ("MOD")=".06"_U_2_U_".14"_U_".19" Q
;
XIT K ABM,ABMMODE
Q
;
DICS I $D(ABMP("FEE"))
Q
ABMDE8G ; IHS/ASDST/DMJ - Page 8 - ANESTHESIA ;
+1 ;;2.6;IHS Third Party Billing;**1,3,6,8,9**;NOV 12, 2009
+2 ;
+3 ; IHS/ASDS/DMJ - v2.4 p7 - 9/7/01 NOIS HQW-0701-100066
+4 ; Modifications made related to Medicare Part B.
+5 ;
+6 ; IHS/SD/SDR - 11/4/02 - V2.5 P2 - ZZZ-0301-210046 - Modified to capture modifiers from PCC
+7 ; IHS/SD/SDR - V2.5 P8 - IM10618/IM11164 - Prompt/display provider
+8 ; IHS/SD/SDR - v2.5 p9 - IM16660 - 4-digit revenue codes
+9 ; IHS/SD/SDR - v2.5 p9 - task 1 - Use new service line provider multiple
+10 ; IHS/SD/SDR - v2.5 p10 - IM21539 - Made changes to correct display and calculations to be
+11 ; correct amounts (was doing stuff that the payer does and we shouldn't be)
+12 ; IHS/SD/SDR - v2.5 p11 - NPI
+13 ; IHS/SD/SDR - v2.5 p12 - IM24277 - Added code for 2nd and 3rd modifier
+14 ;
+15 ; IHS/SD/SDR - v2.6 CSV
+16 ; IHS/SD/SDR - abm*2.6*1 - HEAT6566 - Added code to do anes. one way for Medicare and another for everyone else.
+17 ; IHS/SD/SDR - abm*2.6*3 - HEAT12742 - corrections to MCR/non-MCR; Adrian spoke with Medicare; they said
+18 ; it should be like it was; removed all changes for 6566 so it was back to original code
+19 ; IHS/SD/SDR - 2.6*9 - Updates to code from heat 6566; it is commented out because it is only needed for MT Mcd.
+20 ; Site that needs the changes should comment out nat'l code and uncomment the other 6566 lines.
+21 ;
DISP KILL ABMZ
SET ABMZ("TITL")="ANESTHESIA SERVICES"
SET ABMZ("PG")="8G"
SET ABMZ("ADD1")=""
+1 IF $DATA(ABMP("DDL"))
IF $Y>(IOSL-9)
DO PAUSE^ABMDE1
IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)
GOTO XIT
IF 1
+2 IF '$TEST
DO SUM^ABMDE1
+3 ;
+4 DO G^ABMDE8X
FEE SET ABMZ("CAT")=23
+1 ;S ABMP("ITYP")=$P($G(^AUTNINS(ABMP("INS"),2)),U) ;abm*2.6*1 HEAT6566 ;abm*2.6*8
+2 ;abm*2.6*1 HEAT6566 ;abm*2.6*8
IF ABMP("INS")
SET ABMP("ITYP")=$PIECE($GET(^AUTNINS(ABMP("INS"),2)),U)
+3 ;S ABMZ("DICS")="I ($P(^ICPT(Y,0),""^"")<70000)&($P($$CPT^ABMCVAPI(Y,ABMP(""VDT"")),""^"",7)'=1)" ;CSV-c ;abm*2.6*6
+4 ;CSV-c ;abm*2.6*6
SET ABMZ("DICS")="I ($P(^ICPT(Y,0),""^"")<70000)&($P($$CPT^ABMCVAPI(Y,ABMP(""VDT"")),""^"",7)=1)"
+5 SET ABMZ("SUB")=39
+6 DO MODE^ABMDE8X
+7 IF ((^ABMDEXP(ABMMODE(7),0)["HCFA")!(^ABMDEXP(ABMMODE(7),0)["CMS"))
SET ABMZ("DIAG")=";.1"
+8 SET ABMZ("DR")=""
+9 ;start old code abm*2.6*6 NOHEAT
+10 ;D
+11 ;.S ABMDPRV=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C","R",0))
+12 ;.S ABMDPRV=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,+ABMDPRV,0)),U)
+13 ;.K ABMDPRV
+14 ;end old code NOHEAT
+15 SET ABMZ("CHRG")=";W !;.04"
+16 SET ABMZ("MOD")=.06_U_2_U_.14_U_2_U_.19
+17 SET ABMZ("ITEM")="Anesthesia (CPT Code)"
+18 SET ABMZ("DIC")="^ICPT("
SET ABMZ("X")="X"
SET ABMZ("TOTL")=0
SET ABMZ("ANTH")=""
+19 ;abm*2.6*1 HEAT6566
IF ^ABMDEXP(ABMMODE(7),0)["UB"
SET ABMZ("DR")=ABMZ("DR")_";W !;.02//370"
+20 ;I ^ABMDEXP(ABMMODE(7),0)["UB",(ABMP("ITYP")'="R") S ABMZ("DR")=";W !;.02//370"_ABMZ("DR") ;abm*2.6*1 HEAT6566
+21 ;I ^ABMDEXP(ABMMODE(7),0)["UB",(ABMP("ITYP")="R") S ABMZ("DR")=ABMZ("DR")_";W !;.02//370" ;abm*2.6*1 HEAT6566
+22 DO HD
GOTO LOOP
HD ;
+1 ;start old code abm*2.6*1 HEAT6566
+2 WRITE !?5,"REVN",?72,"TOTAL"
+3 WRITE !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?66,"MIN",?72,"CHARGE"
+4 WRITE !?5,"====",?10,"======================================================",?66,"===",?71,"========"
+5 ;end old code start new code HEAT6566
+6 ;I ABMP("ITYP")'="R" D
+7 ;.;W !?5,"REVN",?55,"BASE",?64,"TIME",?72,"TOTAL" ;IHS/SD/SDR 4/27/10 HEAT12742
+8 ;.W !?5,"REVN",?60,"BASE",?64,?72,"TOTAL" ;IHS/SD/SDR 4/27/10 HEAT12742
+9 ;.;W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?54,"CHARGE",?63,"CHARGE",?72,"CHARGE" ;IHS/SD/SDR 4/27/10 HEAT12742
+10 ;.W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?59,"CHARGE",?72,"CHARGE" ;IHS/SD/SDR 4/27/10 HEAT12742
+11 ;.;W !?5,"====",?10,"===========================================",?53,"========",?62,"========",?71,"========" ;IHS/SD/SDR 4/27/10 HEAT12742
+12 ;.W !?5,"====",?10,"===========================================",?58,"========",?71,"========" ;IHS/SD/SDR 4/27/10 HEAT12742
+13 ;I ABMP("ITYP")="R" D
+14 ;.W !?5,"REVN",?72,"TOTAL"
+15 ;.W !?5,"CODE",?10," CPT - ANESTHESIA SERVICES",?66,"MIN",?72,"CHARGE"
+16 ;.W !?5,"====",?10,"======================================================",?66,"===",?71,"========"
+17 ;end new code HEAT6566
+18 QUIT
LOOP SET (ABMZ("LNUM"),ABMZ("NUM"),ABMZ(1),ABM)=0
FOR ABM("I")=1:1
SET ABM=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM))
IF 'ABM
QUIT
Begin DoDot:1
+1 SET ABM("X")=ABM
SET D1=ABM
+2 SET ABMZ("NUM")=ABM("I")
+3 DO PC1
End DoDot:1
+4 IF ABMZ("NUM")>0
WRITE !?69,"==========",!?69,$JUSTIFY("$"_($FNUMBER(ABMZ("TOTL"),",",2)),10)
+5 IF +$ORDER(ABME(0))
SET ABME("CONT")=""
DO ^ABMDERR
KILL ABME("CONT")
+6 GOTO XIT
+7 ;
PC1 SET ABM("X0")=^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM("X"),0)
+1 ;CSV-c
SET ABMZ(ABM("I"))=$PIECE($$CPT^ABMCVAPI($PIECE(ABM("X0"),U),ABMP("VDT")),U,2)_U_ABM("X")_U_$PIECE(ABM("X0"),U,3)
+2 IF $Y>(IOSL-5)
DO PAUSE^ABMDE1
DO HD
+3 WRITE !,"[",ABM("I"),"]",?5,$$GETREV^ABMDUTL($PIECE(ABM("X0"),U,2))
+4 WRITE ?10,$PIECE(ABMZ(ABM("I")),U)
+5 IF $PIECE($GET(ABM("X0")),U,6)'=""
WRITE "-",$PIECE(ABM("X0"),U,6)
+6 IF $PIECE($GET(ABM("X0")),U,14)'=""
WRITE "-",$PIECE(ABM("X0"),U,14)
+7 IF $PIECE($GET(ABM("X0")),U,19)'=""
WRITE "-",$PIECE(ABM("X0"),U,19)
+8 WRITE " "
+9 ;start old code abm*2.6*1 HEAT6566
+10 KILL ABMU
+11 SET ABMU(1)="?66"_U_$$TM^ABMDUTL($PIECE(ABM("X0"),U,7),$PIECE(ABM("X0"),U,8))
+12 SET ABMU(2)="?71"_U_$JUSTIFY($FNUMBER($PIECE(ABM("X0"),U,4),",",2),8)
+13 SET ABMZ("TOTL")=$PIECE(ABM("X0"),U,4)+ABMZ("TOTL")
+14 ;end old code start new code HEAT6566
+15 ;I ABMP("ITYP")="R" D
+16 ;.S ABMU(1)="?66"_U_$$TM^ABMDUTL($P(ABM("X0"),U,7),$P(ABM("X0"),U,8))
+17 ;.S ABMU(2)="?71"_U_$J($FN(($P(ABM("X0"),U,4)+$P(ABM("X0"),U,3)),",",2),8)
+18 ;.S ABMZ("TOTL")=$P(ABM("X0"),U,4)+$P(ABM("X0"),U,3)+ABMZ("TOTL")
+19 ;I ABMP("ITYP")'="R" D
+20 ;.;K ABMU S ABMU(1)="?53"_U_$J($FN($P(ABM("X0"),U,4),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
+21 ;.K ABMU S ABMU(1)="?58"_U_$J($FN($P(ABM("X0"),U,4),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
+22 ;.;S ABM("AN")=+$P(ABM("X0"),"^",3),ABMU(2)="?62"_U_$J($FN(ABM("AN"),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
+23 ;.S ABM("AN")=+$P(ABM("X0"),"^",3) ;IHS/SD/SDR 4/27/10 HEAT12742
+24 ;.;S ABMU(3)="?71"_U_$J($FN((ABM("AN")+$P(ABM("X0"),U,4)),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
+25 ;.S ABMU(2)="?71"_U_$J($FN((+$P(ABM("X0"),U,4)),",",2),8) ;IHS/SD/SDR 4/27/10 HEAT12742
+26 ;.;S ABMZ("TOTL")=ABM("AN")+$P(ABM("X0"),U,4)+ABMZ("TOTL") ;IHS/SD/SDR 4/27/10 HEAT12742
+27 ;.S ABMZ("TOTL")=+$P(ABM("X0"),U,4)+ABMZ("TOTL") ;IHS/SD/SDR 4/27/10 HEAT12742
+28 ;end new code HEAT6566
+29 ;CSV-c
IF $PIECE(^ABMDPARM(DUZ(2),1,0),U,14)'="Y"
SET ABMU("TXT")=$PIECE($$CPT^ABMCVAPI($PIECE(ABM("X0"),U),ABMP("VDT")),U,3)
+30 ;start CSV-c
+31 IF '$TEST
Begin DoDot:1
+32 SET ABMU("TXT")=""
+33 KILL ABMZCPTD
+34 DO IHSCPTD^ABMCVAPI($PIECE(ABM("X0"),U),"ABMZCPTD","",ABMP("VDT"))
+35 SET ABM("CP")=0
+36 FOR
SET ABM("CP")=$ORDER(ABMZCPTD(ABM("CP")))
IF (+ABM("CP")=0)
QUIT
Begin DoDot:2
+37 IF ($GET(ABMZCPTD(ABM("CP")))="")
QUIT
+38 SET ABMU("TXT")=ABMU("TXT")_ABMZCPTD(ABM("CP"))_" "
End DoDot:2
End DoDot:1
+39 ;end CSV-c
+40 SET ABMU("RM")=51
SET ABMU("LM")=$SELECT(ABMZ("MOD"):19,1:16)
IF ABMZ("MOD")
SET ABMU("TAB")=3
DO ^ABMDWRAP
+41 SET ABMRPRV=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P","C","D",0))
+42 IF ABMRPRV=""
SET ABMRPRV=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P","C","R",0))
+43 ;rendering provider on line item
IF ABMRPRV'=""
Begin DoDot:1
+44 ;abm*2.6*1 HEAT6566
WRITE !?11," ("_$PIECE($GET(^VA(200,$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")"
+45 ;I ABMP("ITYP")'="R" W "("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566 ;IHS/SD/SDR 4/27/10 HEAT12742
+46 ;I ABMP("ITYP")'="R" W !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566 ;IHS/SD/SDR 4/27/10 HEAT12742
+47 ;I ABMP("ITYP")="R" W !?11,"("_$P($G(^VA(200,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U),0)),U)_"-"_$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),39,ABM,"P",ABMRPRV,0),U,2)_")" ;abm*2.6*1 HEAT6566
End DoDot:1
+48 WRITE !,?11,"Start Date/Time: ",$$MDT^ABMDUTL($PIECE(ABM("X0"),"^",7)),!,?12,"Stop Date/Time: ",$$MDT^ABMDUTL($PIECE(ABM("X0"),"^",8))
+49 SET ABMZ("MOD")=".06"_U_2_U_".14"_U_".19"
QUIT
+50 ;
XIT KILL ABM,ABMMODE
+1 QUIT
+2 ;
DICS IF $DATA(ABMP("FEE"))
+1 QUIT
