ABME5HI.m

ABME5HI ; IHS/ASDST/DMJ - 837 HI Segment 

 ;;2.6;IHS Third Party Billing System;**6,8,9,10,11,14,16,18**;NOV 12, 2009;Build 289

 ;Transaction Set Header

 ;IHS/SD/SDR - 2.6*14 - ICD10 002F - Added code to put A for ICD10 codes

 ;IHS/SD/SDR - 2.6*16 - HEAT217211 - Fixed typo for HI02

 ;IHS/SD/SDR - 2.6*16 - HEAT231506 - Added code so second DX will print for 837D

 ;IHS/SD/SDR - 2.6*18 - HEAT242924 - Made 4 DXs print for 837D; was only printing 2

 ;

EP(X) ;EP

 K ABMREC("HI"),ABMR("HI")

 S ABME("RTYPE")="HI"

 S ABMEIC=X

 D LOOP

 K ABME,ABM

 Q

LOOP ;LOOP HERE

 F I=10:10:130 D

 .D @I

 .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))

 .I $G(ABMREC("HI"))'="" S ABMREC("HI")=ABMREC("HI")_"*"

 .S ABMREC("HI")=$G(ABMREC("HI"))_ABMR("HI",I)

 Q

10 ;segment

 S ABMR("HI",10)="HI"

 Q

20 ;HI01 - Health Care Code Information

 S ABMR("HI",20)=""

 I ABMEIC="BK" S ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))

 I ABMEIC="BF" S ABMR("HI",20)=$G(ABMDX(2))

 ;I ABMEIC="BJ"!(ABMEIC="PR") S ABMR("HI",20)=ABMEIC_":"_$G(ABMDX("ADM"))  ;abm*2.6*14 ICD10 002F

 I ABMEIC="BJ"!(ABMEIC="PR") S ABMR("HI",20)=$S((+$G(ABMDX("ADMTYP"))>1):"A"_ABMEIC,1:ABMEIC)_":"_$G(ABMDX("ADM"))  ;abm*2.6*14 ICD10 002F

 I ABMEIC="BN" S ABMR("HI",20)=$G(ABMDXE(1))

 I ABMEIC="BR" S ABMR("HI",20)=$G(ABMPX(1))

 I ABMEIC="BQ" S ABMR("HI",20)=$G(ABMPX(2))

 I ABMEIC="BI" S ABMR("HI",20)=$G(ABMOS(1))

 I ABMEIC="BH" S ABMR("HI",20)=$G(ABMOC(1))

 I ABMEIC="BE" S ABMR("HI",20)=$G(ABMVA(1))

 I ABMEIC="BG" S ABMR("HI",20)=$G(ABMCD(1))

 I ABMEIC="BZ" S ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))

 Q

30 ;HI02 - Health Care Code Information

 S ABMR("HI",30)=""

 ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",30)=$G(ABMDX(2))  ;abm*2.6*16 IHS/SD/SDR HEAT231506

 I ABMEIC="BK",(ABMP("EXP")=32!(ABMP("EXP")=33)) S ABMR("HI",30)=$G(ABMDX(2))  ;abm*2.6*16 IHS/SD/SDR HEAT231506

 I ABMEIC="BF",$D(ABMDX(2)) S ABMR("HI",30)=$G(ABMDX(3))

 I ABMEIC="BQ",$D(ABMPX(3)) S ABMR("HI",30)=$G(ABMPX(3))

 ;I ABMEIC="BN",$D(ABMDXE(2)) S ABMR("HI",30)=$G(ABMDXE(2))  ;abm*2.6*10 NOHEAT

 ;I ABMEIC="BN",$D(ABMDXE(2)),(ABMR("HI",20)'=ABMDXE(2)) S ABMR("HI",30)=$G(ABMDXE(2))  ;abm*2.6*10 NOHEAT don't print E-code if entry is same E-code  ;abm*2.6*16 IHS/SD/SDR HEAT217211

 I ABMEIC="BN",$D(ABMDXE(2)),(ABMR("HI",30)'=ABMDXE(2)) S ABMR("HI",30)=$G(ABMDXE(2))  ;abm*2.6*10 NOHEAT don't print E-code if entry is same E-code  ;abm*2.6*16 IHS/SD/SDR HEAT217211

 I ABMEIC="BH" S ABMR("HI",30)=$G(ABMOC(2))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",30)=$G(ABMVA(2))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

40 ;HI03 - Health Care Code Information

 S ABMR("HI",40)=""

 ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",40)=$G(ABMDX(3))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 I ABMEIC="BK",(ABMP("EXP")=32!(ABMP("EXP")=33)) S ABMR("HI",40)=$G(ABMDX(3))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 I ABMEIC="BF",$D(ABMDX(3)) S ABMR("HI",40)=$G(ABMDX(4))

 I ABMEIC="BQ",$D(ABMPX(4)) S ABMR("HI",40)=$G(ABMPX(4))

 I ABMEIC="BN",$D(ABMDXE(3)) S ABMR("HI",40)=$G(ABMDXE(3))

 I ABMEIC="BH" S ABMR("HI",40)=$G(ABMOC(3))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",40)=$G(ABMVA(3))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

50 ;HI04 - Health Care Code Information

 S ABMR("HI",50)=""

 ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",50)=$G(ABMDX(4))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 I ABMEIC="BK",(ABMP("EXP")=32!(ABMP("EXP")=33)) S ABMR("HI",50)=$G(ABMDX(4))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 I ABMEIC="BF",$D(ABMDX(4)) S ABMR("HI",50)=$G(ABMDX(5))

 I ABMEIC="BQ",$D(ABMPX(5)) S ABMR("HI",50)=$G(ABMPX(5))

 I ABMEIC="BN",$D(ABMDXE(4)) S ABMR("HI",50)=$G(ABMDXE(4))

 I ABMEIC="BH" S ABMR("HI",50)=$G(ABMOC(4))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",50)=$G(ABMVA(4))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

60 ;HI05 - Health Care Code Information

 S ABMR("HI",60)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",60)=$G(ABMDX(5))

 I ABMEIC="BF",$D(ABMDX(5)) S ABMR("HI",60)=$G(ABMDX(6))

 I ABMEIC="BQ",$D(ABMPX(6)) S ABMR("HI",60)=$G(ABMPX(6))

 I ABMEIC="BN",$D(ABMDXE(5)) S ABMR("HI",60)=$G(ABMDXE(5))

 I ABMEIC="BH" S ABMR("HI",60)=$G(ABMOC(5))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",60)=$G(ABMVA(5))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

70 ;HI06 - Health Care Code Information

 S ABMR("HI",70)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",70)=$G(ABMDX(6))

 I ABMEIC="BF",$D(ABMDX(6)) S ABMR("HI",70)=$G(ABMDX(7))

 I ABMEIC="BQ",$D(ABMPX(7)) S ABMR("HI",70)=$G(ABMPX(7))

 I ABMEIC="BN",$D(ABMDXE(6)) S ABMR("HI",70)=$G(ABMDXE(6))

 I ABMEIC="BH" S ABMR("HI",70)=$G(ABMOC(6))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",70)=$G(ABMVA(6))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

80 ;HI07 - Health Care Code Information

 S ABMR("HI",80)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",80)=$G(ABMDX(7))

 I ABMEIC="BF",$D(ABMDX(7)) S ABMR("HI",80)=$G(ABMDX(8))

 I ABMEIC="BQ",$D(ABMPX(8)) S ABMR("HI",80)=$G(ABMPX(8))

 I ABMEIC="BN",$D(ABMDXE(7)) S ABMR("HI",80)=$G(ABMDXE(7))

 I ABMEIC="BH" S ABMR("HI",80)=$G(ABMOC(7))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",80)=$G(ABMVA(7))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

90 ;HI08 - Health Care Code Information

 S ABMR("HI",90)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",90)=$G(ABMDX(8))

 I ABMEIC="BF",$D(ABMDX(8)) S ABMR("HI",90)=$G(ABMDX(9))

 I ABMEIC="BQ",$D(ABMPX(9)) S ABMR("HI",90)=$G(ABMPX(9))

 I ABMEIC="BN",$D(ABMDXE(8)) S ABMR("HI",90)=$G(ABMDXE(8))

 I ABMEIC="BH" S ABMR("HI",90)=$G(ABMOC(8))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",90)=$G(ABMVA(8))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

100 ;HI09 - Health Care Code Information

 S ABMR("HI",100)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",100)=$G(ABMDX(9))

 I ABMEIC="BF",$D(ABMDX(9)) S ABMR("HI",100)=$G(ABMDX(10))

 I ABMEIC="BQ",$D(ABMPX(10)) S ABMR("HI",100)=$G(ABMPX(10))

 I ABMEIC="BN",$D(ABMDXE(9)) S ABMR("HI",100)=$G(ABMDXE(9))

 I ABMEIC="BH" S ABMR("HI",100)=$G(ABMOC(9))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",100)=$G(ABMVA(9))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

110 ;HI10 - Health Care Code Information

 S ABMR("HI",110)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",110)=$G(ABMDX(10))

 I ABMEIC="BF",$D(ABMDX(10)) S ABMR("HI",110)=$G(ABMDX(11))

 I ABMEIC="BQ",$D(ABMPX(11)) S ABMR("HI",110)=$G(ABMPX(11))

 I ABMEIC="BN",$D(ABMDXE(10)) S ABMR("HI",110)=$G(ABMDXE(10))

 I ABMEIC="BH" S ABMR("HI",110)=$G(ABMOC(10))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",110)=$G(ABMVA(10))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

120 ;HI11 - Health Care Code Information

 S ABMR("HI",120)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",120)=$G(ABMDX(11))

 I ABMEIC="BF",$D(ABMDX(11)) S ABMR("HI",120)=$G(ABMDX(12))

 I ABMEIC="BQ",$D(ABMPX(12)) S ABMR("HI",120)=$G(ABMPX(12))

 I ABMEIC="BN",$D(ABMDXE(11)) S ABMR("HI",120)=$G(ABMDXE(11))

 I ABMEIC="BH" S ABMR("HI",120)=$G(ABMOC(11))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",120)=$G(ABMVA(11))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

130 ;HI12 - Health Care Code Information

 S ABMR("HI",130)=""

 I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",130)=$G(ABMDX(12))

 I ABMEIC="BF",$D(ABMDX(12)) S ABMR("HI",130)=$G(ABMDX(13))

 I ABMEIC="BQ",$D(ABMPX(13)) S ABMR("HI",130)=$G(ABMPX(13))

 I ABMEIC="BN",$D(ABMDXE(12)) S ABMR("HI",130)=$G(ABMDXE(12))

 I ABMEIC="BH" S ABMR("HI",130)=$G(ABMOC(12))  ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

 I ABMEIC="BE" S ABMR("HI",130)=$G(ABMVA(12))  ;abm*2.6*11 IHS/SD/AML HEAT89676

 Q

ABME5HI   ; IHS/ASDST/DMJ - 837 HI Segment 

 +1       ;;2.6;IHS Third Party Billing System;**6,8,9,10,11,14,16,18**;NOV 12, 2009;Build 289

 +2       ;Transaction Set Header

 +3       ;IHS/SD/SDR - 2.6*14 - ICD10 002F - Added code to put A for ICD10 codes

 +4       ;IHS/SD/SDR - 2.6*16 - HEAT217211 - Fixed typo for HI02

 +5       ;IHS/SD/SDR - 2.6*16 - HEAT231506 - Added code so second DX will print for 837D

 +6       ;IHS/SD/SDR - 2.6*18 - HEAT242924 - Made 4 DXs print for 837D; was only printing 2

 +7       ;

EP(X)     ;EP

 +1        KILL ABMREC("HI"),ABMR("HI")

 +2        SET ABME("RTYPE")="HI"

 +3        SET ABMEIC=X

 +4        DO LOOP

 +5        KILL ABME,ABM

 +6        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:130

               Begin DoDot:1

 +2                DO @I

 +3                IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),ABME("RTYPE"),I))

                       DO @(^(I))

 +4                IF $GET(ABMREC("HI"))'=""

                       SET ABMREC("HI")=ABMREC("HI")_"*"

 +5                SET ABMREC("HI")=$GET(ABMREC("HI"))_ABMR("HI",I)

               End DoDot:1

 +6        QUIT 

10        ;segment

 +1        SET ABMR("HI",10)="HI"

 +2        QUIT 

20        ;HI01 - Health Care Code Information

 +1        SET ABMR("HI",20)=""

 +2        IF ABMEIC="BK"

               SET ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))

 +3        IF ABMEIC="BF"

               SET ABMR("HI",20)=$GET(ABMDX(2))

 +4       ;I ABMEIC="BJ"!(ABMEIC="PR") S ABMR("HI",20)=ABMEIC_":"_$G(ABMDX("ADM"))  ;abm*2.6*14 ICD10 002F

 +5       ;abm*2.6*14 ICD10 002F

           IF ABMEIC="BJ"!(ABMEIC="PR")

               SET ABMR("HI",20)=$SELECT((+$GET(ABMDX("ADMTYP"))>1):"A"_ABMEIC,1:ABMEIC)_":"_$GET(ABMDX("ADM"))

 +6        IF ABMEIC="BN"

               SET ABMR("HI",20)=$GET(ABMDXE(1))

 +7        IF ABMEIC="BR"

               SET ABMR("HI",20)=$GET(ABMPX(1))

 +8        IF ABMEIC="BQ"

               SET ABMR("HI",20)=$GET(ABMPX(2))

 +9        IF ABMEIC="BI"

               SET ABMR("HI",20)=$GET(ABMOS(1))

 +10       IF ABMEIC="BH"

               SET ABMR("HI",20)=$GET(ABMOC(1))

 +11       IF ABMEIC="BE"

               SET ABMR("HI",20)=$GET(ABMVA(1))

 +12       IF ABMEIC="BG"

               SET ABMR("HI",20)=$GET(ABMCD(1))

 +13       IF ABMEIC="BZ"

               SET ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))

 +14       QUIT 

30        ;HI02 - Health Care Code Information

 +1        SET ABMR("HI",30)=""

 +2       ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",30)=$G(ABMDX(2))  ;abm*2.6*16 IHS/SD/SDR HEAT231506

 +3       ;abm*2.6*16 IHS/SD/SDR HEAT231506

           IF ABMEIC="BK"

               IF (ABMP("EXP")=32!(ABMP("EXP")=33))

                   SET ABMR("HI",30)=$GET(ABMDX(2))

 +4        IF ABMEIC="BF"

               IF $DATA(ABMDX(2))

                   SET ABMR("HI",30)=$GET(ABMDX(3))

 +5        IF ABMEIC="BQ"

               IF $DATA(ABMPX(3))

                   SET ABMR("HI",30)=$GET(ABMPX(3))

 +6       ;I ABMEIC="BN",$D(ABMDXE(2)) S ABMR("HI",30)=$G(ABMDXE(2))  ;abm*2.6*10 NOHEAT

 +7       ;I ABMEIC="BN",$D(ABMDXE(2)),(ABMR("HI",20)'=ABMDXE(2)) S ABMR("HI",30)=$G(ABMDXE(2))  ;abm*2.6*10 NOHEAT don't print E-code if entry is same E-code  ;abm*2.6*16 IHS/SD/SDR HEAT217211

 +8       ;abm*2.6*10 NOHEAT don't print E-code if entry is same E-code  ;abm*2.6*16 IHS/SD/SDR HEAT217211

           IF ABMEIC="BN"

               IF $DATA(ABMDXE(2))

                   IF (ABMR("HI",30)'=ABMDXE(2))

                       SET ABMR("HI",30)=$GET(ABMDXE(2))

 +9       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",30)=$GET(ABMOC(2))

 +10      ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",30)=$GET(ABMVA(2))

 +11       QUIT 

40        ;HI03 - Health Care Code Information

 +1        SET ABMR("HI",40)=""

 +2       ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",40)=$G(ABMDX(3))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 +3       ;abm*2.6*18 IHS/SD/SDR HEAT242924

           IF ABMEIC="BK"

               IF (ABMP("EXP")=32!(ABMP("EXP")=33))

                   SET ABMR("HI",40)=$GET(ABMDX(3))

 +4        IF ABMEIC="BF"

               IF $DATA(ABMDX(3))

                   SET ABMR("HI",40)=$GET(ABMDX(4))

 +5        IF ABMEIC="BQ"

               IF $DATA(ABMPX(4))

                   SET ABMR("HI",40)=$GET(ABMPX(4))

 +6        IF ABMEIC="BN"

               IF $DATA(ABMDXE(3))

                   SET ABMR("HI",40)=$GET(ABMDXE(3))

 +7       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",40)=$GET(ABMOC(3))

 +8       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",40)=$GET(ABMVA(3))

 +9        QUIT 

50        ;HI04 - Health Care Code Information

 +1        SET ABMR("HI",50)=""

 +2       ;I ABMEIC="BK",ABMP("EXP")=32 S ABMR("HI",50)=$G(ABMDX(4))  ;abm*2.6*18 IHS/SD/SDR HEAT242924

 +3       ;abm*2.6*18 IHS/SD/SDR HEAT242924

           IF ABMEIC="BK"

               IF (ABMP("EXP")=32!(ABMP("EXP")=33))

                   SET ABMR("HI",50)=$GET(ABMDX(4))

 +4        IF ABMEIC="BF"

               IF $DATA(ABMDX(4))

                   SET ABMR("HI",50)=$GET(ABMDX(5))

 +5        IF ABMEIC="BQ"

               IF $DATA(ABMPX(5))

                   SET ABMR("HI",50)=$GET(ABMPX(5))

 +6        IF ABMEIC="BN"

               IF $DATA(ABMDXE(4))

                   SET ABMR("HI",50)=$GET(ABMDXE(4))

 +7       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",50)=$GET(ABMOC(4))

 +8       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",50)=$GET(ABMVA(4))

 +9        QUIT 

60        ;HI05 - Health Care Code Information

 +1        SET ABMR("HI",60)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",60)=$GET(ABMDX(5))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(5))

                   SET ABMR("HI",60)=$GET(ABMDX(6))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(6))

                   SET ABMR("HI",60)=$GET(ABMPX(6))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(5))

                   SET ABMR("HI",60)=$GET(ABMDXE(5))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",60)=$GET(ABMOC(5))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",60)=$GET(ABMVA(5))

 +8        QUIT 

70        ;HI06 - Health Care Code Information

 +1        SET ABMR("HI",70)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",70)=$GET(ABMDX(6))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(6))

                   SET ABMR("HI",70)=$GET(ABMDX(7))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(7))

                   SET ABMR("HI",70)=$GET(ABMPX(7))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(6))

                   SET ABMR("HI",70)=$GET(ABMDXE(6))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",70)=$GET(ABMOC(6))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",70)=$GET(ABMVA(6))

 +8        QUIT 

80        ;HI07 - Health Care Code Information

 +1        SET ABMR("HI",80)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",80)=$GET(ABMDX(7))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(7))

                   SET ABMR("HI",80)=$GET(ABMDX(8))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(8))

                   SET ABMR("HI",80)=$GET(ABMPX(8))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(7))

                   SET ABMR("HI",80)=$GET(ABMDXE(7))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",80)=$GET(ABMOC(7))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",80)=$GET(ABMVA(7))

 +8        QUIT 

90        ;HI08 - Health Care Code Information

 +1        SET ABMR("HI",90)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",90)=$GET(ABMDX(8))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(8))

                   SET ABMR("HI",90)=$GET(ABMDX(9))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(9))

                   SET ABMR("HI",90)=$GET(ABMPX(9))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(8))

                   SET ABMR("HI",90)=$GET(ABMDXE(8))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",90)=$GET(ABMOC(8))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",90)=$GET(ABMVA(8))

 +8        QUIT 

100       ;HI09 - Health Care Code Information

 +1        SET ABMR("HI",100)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",100)=$GET(ABMDX(9))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(9))

                   SET ABMR("HI",100)=$GET(ABMDX(10))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(10))

                   SET ABMR("HI",100)=$GET(ABMPX(10))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(9))

                   SET ABMR("HI",100)=$GET(ABMDXE(9))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",100)=$GET(ABMOC(9))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",100)=$GET(ABMVA(9))

 +8        QUIT 

110       ;HI10 - Health Care Code Information

 +1        SET ABMR("HI",110)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",110)=$GET(ABMDX(10))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(10))

                   SET ABMR("HI",110)=$GET(ABMDX(11))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(11))

                   SET ABMR("HI",110)=$GET(ABMPX(11))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(10))

                   SET ABMR("HI",110)=$GET(ABMDXE(10))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",110)=$GET(ABMOC(10))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",110)=$GET(ABMVA(10))

 +8        QUIT 

120       ;HI11 - Health Care Code Information

 +1        SET ABMR("HI",120)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",120)=$GET(ABMDX(11))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(11))

                   SET ABMR("HI",120)=$GET(ABMDX(12))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(12))

                   SET ABMR("HI",120)=$GET(ABMPX(12))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(11))

                   SET ABMR("HI",120)=$GET(ABMDXE(11))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",120)=$GET(ABMOC(11))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",120)=$GET(ABMVA(11))

 +8        QUIT 

130       ;HI12 - Health Care Code Information

 +1        SET ABMR("HI",130)=""

 +2        IF ABMEIC="BK"

               IF ABMP("EXP")=32

                   SET ABMR("HI",130)=$GET(ABMDX(12))

 +3        IF ABMEIC="BF"

               IF $DATA(ABMDX(12))

                   SET ABMR("HI",130)=$GET(ABMDX(13))

 +4        IF ABMEIC="BQ"

               IF $DATA(ABMPX(13))

                   SET ABMR("HI",130)=$GET(ABMPX(13))

 +5        IF ABMEIC="BN"

               IF $DATA(ABMDXE(12))

                   SET ABMR("HI",130)=$GET(ABMDXE(12))

 +6       ;abm*2.6*9 IHS/SD/AML 2/15/2012 HEAT59363

           IF ABMEIC="BH"

               SET ABMR("HI",130)=$GET(ABMOC(12))

 +7       ;abm*2.6*11 IHS/SD/AML HEAT89676

           IF ABMEIC="BE"

               SET ABMR("HI",130)=$GET(ABMVA(12))

 +8        QUIT