©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ABMEH32 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD DA2 (Insurance Information) ;
Source file <ABMEH32.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 3 | (DIQ1,DIQ2,DIQ3,DIQ4)^ABMER31A ISET^ABMERINS ($$FMT,S90,SET)^ABMERUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 150 | ;233-252 Employer City
|
|
| 190 | ;276-300 Filler (National)
|
|
| 60 | ;83-102 Insured's City
|
|
| 130 | ;173-202 Employer Address 1
|
|
| 110 | ;132-139 Insured Retire Date
|
|
| 80 | ;103-113 Insured's Zip
|
|
| 170 | ;255-263 Employer Zip
|
|
| 20 | ;4-5 Sequence #
|
|
| 40 | ;23-52 Insured's Address Line 1
|
|
| 180 | ;264-275 Employee ID #
|
|
| 200 | ;301-320 Filler (Local)
|
|
| 140 | ;203-232 Employer Address 2
|
|
| 120 | ;140-172 Employer Name
|
|
| START | ;START HERE
|
|
| 70 | ;103-104 Insured's State
|
|
| 90 | ;114-123 Insured Phone
|
|
| 100 | ;124-131 Insured Retire Date
|
|
| 160 | ;253-254 Employer State
|
|
| 10 | ;1-3 Record ID
|
|
| 30 | ;6-22 Patient Control Number
|
|
| 50 | ;53-82 Insured's Address Line 2
|
|
| EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE
|
|
| LOOP | ;LOOP HERE
|
| Name | Field # of Occurrence |
|---|---|
| DIQ1^ABMER31A | 40+8, 60+8, 70+9, 80+8, 120+8 |
| DIQ2^ABMER31A | 130+8, 150+8, 160+7, 170+8 |
| DIQ3^ABMER31A | 120+4, 130+4, 150+4, 160+3, 170+4 |
| DIQ4^ABMER31A | 40+4, 50+4, 60+4, 70+5, 80+4 |
| ISET^ABMERINS | EX+12 |
| $$FMT^ABMERUTL | 20+2, 30+2, 40+10, 50+6, 60+10, 70+12, 80+11, 90+2, 100+2, 110+2 , 120+10, 130+10, 140+2, 150+10, 160+10, 170+10, 180+2, 190+2, 200+2 |
| S90^ABMERUTL | START+4 |
| SET^ABMERUTL | START+3, EX+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | EX+11 |
| ^ABMEXLM("AA" | LOOP+3 |
| ^DIC(5 - [#5] | 70+11, 160+9 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, EX+14 |
| LOOP | START+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | EX+17! |
| ABM( | 40+9, 60+9, 70+10, 80+9, 120+5, 120+9, 130+5, 130+9, 150+5, 150+9 , 160+4, 160+8, 170+5, 170+9 |
| ABM(2 | 40+5, 50+5, 60+5, 70+6, 80+5 |
| ABME | EX+17! |
| ABME("EMP" | 130+9, 150+9, 160+8, 170+9 |
| ABME("ESTATE" | 160+4*, 160+5, 160+8*, 160+9 |
| ABME("FLD" | 40+3*, 40+7*, 50+3*, 60+3*, 60+7*, 70+4*, 70+8*, 80+3*, 80+7*, 120+3* , 120+7*, 130+3*, 130+7*, 150+3*, 150+7*, 160+2*, 160+6*, 170+3*, 170+7* |
| ABME("INS" | EX+10*, EX+11 |
| ABME("ISTATE" | 70+2*, 70+6*, 70+7, 70+10*, 70+11 |
| ABME("PH" | 40+6, 40+9, 60+6, 60+9, 70+7, 70+10, 80+6, 80+9, 120+6, 120+9 , 130+6, 150+6, 160+5, 170+6 |
| ABME("PPP" | 40+2, 40+5, 50+2, 50+5, 60+2, 60+5, 70+3, 70+6, 80+2, 80+5 , 120+2, 130+2, 150+2, 160+1, 170+2 |
| ABME("RTYPE" | START+2* |
| ABME("S#" | START+1, LOOP+4, 20+1 |
| >> ABMP("BDFN" | EX+8*, EX+11 |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("FMT" | EX+13*, EX+16* |
| >> ABMP("INS" | LOOP+3 |
| >> ABMP("NOFMT" | LOOP+4, EX+13 |
| >> ABMP("PCN" | 30+1 |
| >> ABMR(32 | START+1!, LOOP+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+1*, 40+5*, 40+6 , 40+9*, 40+10*, 50+1*, 50+5*, 50+6*, 60+1*, 60+5*, 60+6, 60+9*, 60+10* , 70+1*, 70+11*, 70+12*, 80+1*, 80+5*, 80+6, 80+9*, 80+10*, 80+11*, 90+1* , 90+2*, 100+1*, 100+2*, 110+1*, 110+2*, 120+1*, 120+5*, 120+6, 120+9*, 120+10* , 130+1*, 130+5*, 130+6, 130+9*, 130+10*, 140+1*, 140+2*, 150+1*, 150+5*, 150+6 , 150+9*, 150+10*, 160+9*, 160+10*, 170+1*, 170+5*, 170+6, 170+9*, 170+10*, 180+1* , 180+2*, 190+1*, 190+2*, 200+1*, 200+2*, EX+15, EX+17! |
| >> ABMREC(32 | START+1!, LOOP+4* |
| ABMX | EX~, EX+14, EX+15, EX+17! |
| ABMY | EX~, EX+8, EX+17! |
| ABMZ | EX~, EX+10, EX+17! |
| >> DA | 120+5, 130+5, 150+5, 160+4, 170+5 |
| DUZ(2 | EX+11 |
| >> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4 |
| >> Y | EX+11*, EX+15*, EX+18 |