ABME8HI ; IHS/ASDST/DMJ - 837 HI Segment
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;Transaction Set Header
;
; IHS/SD/SDR 3/10/2004 - V2.5 P5
; Put fix to retrieve 6th Dx code
;
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" D
.S ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))
I ABMEIC="BF" D
.S ABMR("HI",20)=$G(ABMDX(2))
I ABMEIC="BP" D
.S ABMR("HI",20)=$G(ABMPX(1))
I ABMEIC="BO" D
.S ABMR("HI",20)=$G(ABMPX(2))
I ABMEIC="BI" D
.S ABMR("HI",20)=$G(ABMOS(1))
I ABMEIC="BH" D
.S ABMR("HI",20)=$G(ABMOC(1))
I ABMEIC="BE" D
.S ABMR("HI",20)=$G(ABMVA(1))
I ABMEIC="BG" D
.S ABMR("HI",20)=$G(ABMCD(1))
I ABMEIC="BZ" D
.S ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))
Q
30 ;HI02 - Health Care Code Information
S ABMR("HI",30)=""
I ABMEIC="BK" D
.S ABMR("HI",30)=$$DXA^ABMUTL8(ABMP("BDFN"))
I ABMEIC="BF" D
.S ABMR("HI",30)=$G(ABMDX(3))
I ABMEIC="BO" D
.S ABMR("HI",30)=$G(ABMPX(3))
I ABMEIC="BI" D
.S ABMR("HI",30)=$G(ABMOS(2))
I ABMEIC="BH" D
.S ABMR("HI",30)=$G(ABMOC(2))
I ABMEIC="BE" D
.S ABMR("HI",30)=$G(ABMVA(2))
I ABMEIC="BG" D
.S ABMR("HI",30)=$G(ABMCD(2))
I ABMEIC="BZ" D
.S ABMR("HI",30)=$G(ABMDX(2))
Q
40 ;HI03 - Health Care Code Information
S ABMR("HI",40)=""
I ABMEIC="BK" D
.S ABMR("HI",40)=$$DXE^ABMUTL8(ABMP("BDFN"))
I ABMEIC="BF" D
.S ABMR("HI",40)=$G(ABMDX(4))
I ABMEIC="BO" D
.S ABMR("HI",40)=$G(ABMPX(4))
I ABMEIC="BI" D
.S ABMR("HI",40)=$G(ABMOS(3))
I ABMEIC="BH" D
.S ABMR("HI",40)=$G(ABMOC(3))
I ABMEIC="BE" D
.S ABMR("HI",40)=$G(ABMVA(3))
I ABMEIC="BG" D
.S ABMR("HI",40)=$G(ABMCD(3))
I ABMEIC="BZ" D
.S ABMR("HI",40)=$G(ABMDX(3))
Q
50 ;HI04 - Health Care Code Information
S ABMR("HI",50)=""
I ABMEIC="BF" D
.S ABMR("HI",50)=$G(ABMDX(5))
I ABMEIC="BO" D
.S ABMR("HI",50)=$G(ABMPX(5))
I ABMEIC="BI" D
.S ABMR("HI",50)=$G(ABMOS(4))
I ABMEIC="BH" D
.S ABMR("HI",50)=$G(ABMOC(4))
I ABMEIC="BE" D
.S ABMR("HI",50)=$G(ABMVA(4))
I ABMEIC="BG" D
.S ABMR("HI",50)=$G(ABMCD(4))
I ABMEIC="BZ" D
.S ABMR("HI",50)=$G(ABMDX(4))
Q
60 ;HI05 - Health Care Code Information
S ABMR("HI",60)=""
I ABMEIC="BF" D
.S ABMR("HI",60)=$G(ABMDX(6))
I ABMEIC="BO" D
.S ABMR("HI",60)=$G(ABMPX(6))
I ABMEIC="BI" D
.S ABMR("HI",60)=$G(ABMOS(5))
I ABMEIC="BH" D
.S ABMR("HI",60)=$G(ABMOC(5))
I ABMEIC="BE" D
.S ABMR("HI",60)=$G(ABMVA(5))
I ABMEIC="BG" D
.S ABMR("HI",60)=$G(ABMCD(5))
I ABMEIC="BZ" D
.S ABMR("HI",60)=$G(ABMDX(5))
Q
70 ;HI06 - Health Care Code Information
S ABMR("HI",70)=""
I ABMEIC="BF" D
.S ABMR("HI",70)=$G(ABMDX(7))
I ABMEIC="BO" D
.S ABMR("HI",70)=$G(ABMPX(7))
I ABMEIC="BI" D
.S ABMR("HI",70)=$G(ABMOS(6))
I ABMEIC="BH" D
.S ABMR("HI",70)=$G(ABMOC(6))
I ABMEIC="BE" D
.S ABMR("HI",70)=$G(ABMVA(6))
I ABMEIC="BG" D
.S ABMR("HI",70)=$G(ABMCD(6))
I ABMEIC="BZ" D
.S ABMR("HI",70)=$G(ABMDX(6))
Q
80 ;HI07 - Health Care Code Information
S ABMR("HI",80)=""
I ABMEIC="BF" D
.S ABMR("HI",80)=$G(ABMDX(8))
I ABMEIC="BO" D
.S ABMR("HI",80)=$G(ABMPX(8))
I ABMEIC="BI" D
.S ABMR("HI",80)=$G(ABMOS(7))
I ABMEIC="BH" D
.S ABMR("HI",80)=$G(ABMOC(7))
I ABMEIC="BE" D
.S ABMR("HI",80)=$G(ABMVA(7))
I ABMEIC="BG" D
.S ABMR("HI",80)=$G(ABMCD(7))
I ABMEIC="BZ" D
.S ABMR("HI",80)=$G(ABMDX(7))
Q
90 ;HI08 - Health Care Code Information
S ABMR("HI",90)=""
I ABMEIC="BF" D
.S ABMR("HI",90)=$G(ABMDX(9))
I ABMEIC="BO" D
.S ABMR("HI",90)=$G(ABMPX(9))
I ABMEIC="BI" D
.S ABMR("HI",90)=$G(ABMOS(8))
I ABMEIC="BH" D
.S ABMR("HI",90)=$G(ABMOC(8))
I ABMEIC="BE" D
.S ABMR("HI",90)=$G(ABMVA(8))
I ABMEIC="BG" D
.S ABMR("HI",90)=$G(ABMCD(8))
I ABMEIC="BZ" D
.S ABMR("HI",90)=$G(ABMDX(8))
Q
100 ;HI09 - Health Care Code Information
S ABMR("HI",100)=""
I ABMEIC="BF" D
.S ABMR("HI",100)=$G(ABMDX(10))
I ABMEIC="BO" D
.S ABMR("HI",100)=$G(ABMPX(10))
I ABMEIC="BI" D
.S ABMR("HI",100)=$G(ABMOS(9))
I ABMEIC="BH" D
.S ABMR("HI",100)=$G(ABMOC(9))
I ABMEIC="BE" D
.S ABMR("HI",100)=$G(ABMVA(9))
I ABMEIC="BG" D
.S ABMR("HI",100)=$G(ABMCD(9))
Q
110 ;HI10 - Health Care Code Information
S ABMR("HI",110)=""
I ABMEIC="BF" D
.S ABMR("HI",110)=$G(ABMDX(11))
I ABMEIC="BO" D
.S ABMR("HI",110)=$G(ABMPX(11))
I ABMEIC="BI" D
.S ABMR("HI",110)=$G(ABMOS(10))
I ABMEIC="BH" D
.S ABMR("HI",110)=$G(ABMOC(10))
I ABMEIC="BE" D
.S ABMR("HI",110)=$G(ABMVA(10))
I ABMEIC="BG" D
.S ABMR("HI",110)=$G(ABMCD(10))
Q
120 ;HI11 - Health Care Code Information
S ABMR("HI",120)=""
I ABMEIC="BF" D
.S ABMR("HI",120)=$G(ABMDX(12))
I ABMEIC="BO" D
.S ABMR("HI",120)=$G(ABMPX(12))
I ABMEIC="BI" D
.S ABMR("HI",120)=$G(ABMOS(11))
I ABMEIC="BH" D
.S ABMR("HI",120)=$G(ABMOC(11))
I ABMEIC="BE" D
.S ABMR("HI",120)=$G(ABMVA(11))
I ABMEIC="BG" D
.S ABMR("HI",120)=$G(ABMCD(11))
Q
130 ;HI12 - Health Care Code Information
S ABMR("HI",130)=""
I ABMEIC="BF" D
.S ABMR("HI",130)=$G(ABMDX(13))
I ABMEIC="BO" D
.S ABMR("HI",130)=$G(ABMPX(13))
I ABMEIC="BI" D
.S ABMR("HI",130)=$G(ABMOS(12))
I ABMEIC="BH" D
.S ABMR("HI",130)=$G(ABMOC(12))
I ABMEIC="BE" D
.S ABMR("HI",130)=$G(ABMVA(12))
I ABMEIC="BG" D
.S ABMR("HI",130)=$G(ABMCD(12))
Q
ABME8HI ; IHS/ASDST/DMJ - 837 HI Segment
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;Transaction Set Header
+3 ;
+4 ; IHS/SD/SDR 3/10/2004 - V2.5 P5
+5 ; Put fix to retrieve 6th Dx code
+6 ;
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"
Begin DoDot:1
+3 SET ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))
End DoDot:1
+4 IF ABMEIC="BF"
Begin DoDot:1
+5 SET ABMR("HI",20)=$GET(ABMDX(2))
End DoDot:1
+6 IF ABMEIC="BP"
Begin DoDot:1
+7 SET ABMR("HI",20)=$GET(ABMPX(1))
End DoDot:1
+8 IF ABMEIC="BO"
Begin DoDot:1
+9 SET ABMR("HI",20)=$GET(ABMPX(2))
End DoDot:1
+10 IF ABMEIC="BI"
Begin DoDot:1
+11 SET ABMR("HI",20)=$GET(ABMOS(1))
End DoDot:1
+12 IF ABMEIC="BH"
Begin DoDot:1
+13 SET ABMR("HI",20)=$GET(ABMOC(1))
End DoDot:1
+14 IF ABMEIC="BE"
Begin DoDot:1
+15 SET ABMR("HI",20)=$GET(ABMVA(1))
End DoDot:1
+16 IF ABMEIC="BG"
Begin DoDot:1
+17 SET ABMR("HI",20)=$GET(ABMCD(1))
End DoDot:1
+18 IF ABMEIC="BZ"
Begin DoDot:1
+19 SET ABMR("HI",20)=$$DXP^ABMUTL8(ABMP("BDFN"))
End DoDot:1
+20 QUIT
30 ;HI02 - Health Care Code Information
+1 SET ABMR("HI",30)=""
+2 IF ABMEIC="BK"
Begin DoDot:1
+3 SET ABMR("HI",30)=$$DXA^ABMUTL8(ABMP("BDFN"))
End DoDot:1
+4 IF ABMEIC="BF"
Begin DoDot:1
+5 SET ABMR("HI",30)=$GET(ABMDX(3))
End DoDot:1
+6 IF ABMEIC="BO"
Begin DoDot:1
+7 SET ABMR("HI",30)=$GET(ABMPX(3))
End DoDot:1
+8 IF ABMEIC="BI"
Begin DoDot:1
+9 SET ABMR("HI",30)=$GET(ABMOS(2))
End DoDot:1
+10 IF ABMEIC="BH"
Begin DoDot:1
+11 SET ABMR("HI",30)=$GET(ABMOC(2))
End DoDot:1
+12 IF ABMEIC="BE"
Begin DoDot:1
+13 SET ABMR("HI",30)=$GET(ABMVA(2))
End DoDot:1
+14 IF ABMEIC="BG"
Begin DoDot:1
+15 SET ABMR("HI",30)=$GET(ABMCD(2))
End DoDot:1
+16 IF ABMEIC="BZ"
Begin DoDot:1
+17 SET ABMR("HI",30)=$GET(ABMDX(2))
End DoDot:1
+18 QUIT
40 ;HI03 - Health Care Code Information
+1 SET ABMR("HI",40)=""
+2 IF ABMEIC="BK"
Begin DoDot:1
+3 SET ABMR("HI",40)=$$DXE^ABMUTL8(ABMP("BDFN"))
End DoDot:1
+4 IF ABMEIC="BF"
Begin DoDot:1
+5 SET ABMR("HI",40)=$GET(ABMDX(4))
End DoDot:1
+6 IF ABMEIC="BO"
Begin DoDot:1
+7 SET ABMR("HI",40)=$GET(ABMPX(4))
End DoDot:1
+8 IF ABMEIC="BI"
Begin DoDot:1
+9 SET ABMR("HI",40)=$GET(ABMOS(3))
End DoDot:1
+10 IF ABMEIC="BH"
Begin DoDot:1
+11 SET ABMR("HI",40)=$GET(ABMOC(3))
End DoDot:1
+12 IF ABMEIC="BE"
Begin DoDot:1
+13 SET ABMR("HI",40)=$GET(ABMVA(3))
End DoDot:1
+14 IF ABMEIC="BG"
Begin DoDot:1
+15 SET ABMR("HI",40)=$GET(ABMCD(3))
End DoDot:1
+16 IF ABMEIC="BZ"
Begin DoDot:1
+17 SET ABMR("HI",40)=$GET(ABMDX(3))
End DoDot:1
+18 QUIT
50 ;HI04 - Health Care Code Information
+1 SET ABMR("HI",50)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",50)=$GET(ABMDX(5))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",50)=$GET(ABMPX(5))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",50)=$GET(ABMOS(4))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",50)=$GET(ABMOC(4))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",50)=$GET(ABMVA(4))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",50)=$GET(ABMCD(4))
End DoDot:1
+14 IF ABMEIC="BZ"
Begin DoDot:1
+15 SET ABMR("HI",50)=$GET(ABMDX(4))
End DoDot:1
+16 QUIT
60 ;HI05 - Health Care Code Information
+1 SET ABMR("HI",60)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",60)=$GET(ABMDX(6))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",60)=$GET(ABMPX(6))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",60)=$GET(ABMOS(5))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",60)=$GET(ABMOC(5))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",60)=$GET(ABMVA(5))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",60)=$GET(ABMCD(5))
End DoDot:1
+14 IF ABMEIC="BZ"
Begin DoDot:1
+15 SET ABMR("HI",60)=$GET(ABMDX(5))
End DoDot:1
+16 QUIT
70 ;HI06 - Health Care Code Information
+1 SET ABMR("HI",70)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",70)=$GET(ABMDX(7))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",70)=$GET(ABMPX(7))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",70)=$GET(ABMOS(6))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",70)=$GET(ABMOC(6))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",70)=$GET(ABMVA(6))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",70)=$GET(ABMCD(6))
End DoDot:1
+14 IF ABMEIC="BZ"
Begin DoDot:1
+15 SET ABMR("HI",70)=$GET(ABMDX(6))
End DoDot:1
+16 QUIT
80 ;HI07 - Health Care Code Information
+1 SET ABMR("HI",80)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",80)=$GET(ABMDX(8))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",80)=$GET(ABMPX(8))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",80)=$GET(ABMOS(7))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",80)=$GET(ABMOC(7))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",80)=$GET(ABMVA(7))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",80)=$GET(ABMCD(7))
End DoDot:1
+14 IF ABMEIC="BZ"
Begin DoDot:1
+15 SET ABMR("HI",80)=$GET(ABMDX(7))
End DoDot:1
+16 QUIT
90 ;HI08 - Health Care Code Information
+1 SET ABMR("HI",90)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",90)=$GET(ABMDX(9))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",90)=$GET(ABMPX(9))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",90)=$GET(ABMOS(8))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",90)=$GET(ABMOC(8))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",90)=$GET(ABMVA(8))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",90)=$GET(ABMCD(8))
End DoDot:1
+14 IF ABMEIC="BZ"
Begin DoDot:1
+15 SET ABMR("HI",90)=$GET(ABMDX(8))
End DoDot:1
+16 QUIT
100 ;HI09 - Health Care Code Information
+1 SET ABMR("HI",100)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",100)=$GET(ABMDX(10))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",100)=$GET(ABMPX(10))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",100)=$GET(ABMOS(9))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",100)=$GET(ABMOC(9))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",100)=$GET(ABMVA(9))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",100)=$GET(ABMCD(9))
End DoDot:1
+14 QUIT
110 ;HI10 - Health Care Code Information
+1 SET ABMR("HI",110)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",110)=$GET(ABMDX(11))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",110)=$GET(ABMPX(11))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",110)=$GET(ABMOS(10))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",110)=$GET(ABMOC(10))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",110)=$GET(ABMVA(10))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",110)=$GET(ABMCD(10))
End DoDot:1
+14 QUIT
120 ;HI11 - Health Care Code Information
+1 SET ABMR("HI",120)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",120)=$GET(ABMDX(12))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",120)=$GET(ABMPX(12))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",120)=$GET(ABMOS(11))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",120)=$GET(ABMOC(11))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",120)=$GET(ABMVA(11))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",120)=$GET(ABMCD(11))
End DoDot:1
+14 QUIT
130 ;HI12 - Health Care Code Information
+1 SET ABMR("HI",130)=""
+2 IF ABMEIC="BF"
Begin DoDot:1
+3 SET ABMR("HI",130)=$GET(ABMDX(13))
End DoDot:1
+4 IF ABMEIC="BO"
Begin DoDot:1
+5 SET ABMR("HI",130)=$GET(ABMPX(13))
End DoDot:1
+6 IF ABMEIC="BI"
Begin DoDot:1
+7 SET ABMR("HI",130)=$GET(ABMOS(12))
End DoDot:1
+8 IF ABMEIC="BH"
Begin DoDot:1
+9 SET ABMR("HI",130)=$GET(ABMOC(12))
End DoDot:1
+10 IF ABMEIC="BE"
Begin DoDot:1
+11 SET ABMR("HI",130)=$GET(ABMVA(12))
End DoDot:1
+12 IF ABMEIC="BG"
Begin DoDot:1
+13 SET ABMR("HI",130)=$GET(ABMCD(12))
End DoDot:1
+14 QUIT
