ABMDE8G.m

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