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