©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
ABMER31 ; IHS/ASDST/DMJ - UB92 EMC RECORD 31 (Third Party Payor Address) ;
Source file <ABMER31.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 4 | $$EX^ABMER20 (DIQ1,DIQ2,DIQ3,DIQ4)^ABMER31A ISET^ABMERINS ($$FMT,S90,SET)^ABMERUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 10 | ;EP - Record type
|
|
| 20 | ;EP - Payor Priority (SOURCE: FILE=9002274.4013, FIELD=.02)
|
|
| 140 | ;EP - Form Locator 37 (ICN/DCN) (SOURCE: FILE=, FIELD=)
|
|
| 150 | ;EP - Filler (National Use)
|
|
| 120 | ;EP - Employer State (SOURCE: FILE=9999999.75, FIELD=.04)
; form locator #66 |
|
| 30 | ;EP - Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
|
|
| 50 | ;EP - Insured's Address Line 2 (SOURCE: FILE= FIELD=)
|
|
| 40 | ;EP - Insured's Address Line 1 (SOURCE: FILE=2 or 9000003.1 FIELD=)
|
|
| EX(ABMX,ABMY,ABMZ) | ;EXTRINSIC FUNCTION HERE
|
|
| 60 | ;EP - Insured's City (SOURCE: FILE=, FIELD=)
|
|
| START | ;START HERE
|
|
| 130 | ;EP - Employer Zip (SOURCE: FILE=9999999.75, FIELD=.05)
|
|
| 110 | ;EP - Employer City (SOURCE: FILE=9999999.75, FIELD=.03)
; form locator #66 |
|
| 70 | ;EP - Insured's State (SOURCE: FILE=, FIELD=)
|
|
| 90 | ;EP - Employer Name (SOURCE: FILE=9999999.75, FIELD=.01)
|
|
| 80 | ;EP - Insured's Zip (SOURCE: FILE=9999999.18, FIELD=.01)
|
|
| 100 | ;EP - Employer Address (SOURCE: FILE=9999999.75, FIELD=.02)
|
|
| LOOP | ;LOOP HERE
|
| Name | Field # of Occurrence |
|---|---|
| $$EX^ABMER20 | 30+1 |
| DIQ1^ABMER31A | 40+8, 60+8, 70+9, 80+8, 90+8 |
| DIQ2^ABMER31A | 100+8, 110+9, 120+8, 130+8 |
| DIQ3^ABMER31A | 90+4, 100+4, 110+5, 120+4, 130+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+10, 100+10, 110+11 , 120+11, 130+10, 140+2, 150+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, 120+10 |
| 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, 90+5, 90+9, 100+5, 100+9, 110+6, 110+10 , 120+5, 120+9, 130+5, 130+9 |
| ABM(2 | 40+5, 50+5, 60+5, 70+6, 80+5 |
| ABME | EX+17! |
| ABME("EMP" | 100+9, 110+10, 120+9, 130+9 |
| ABME("ESTATE" | 120+5*, 120+6, 120+9*, 120+10 |
| ABME("FLD" | 40+3*, 40+7*, 50+3*, 60+3*, 60+7*, 70+4*, 70+8*, 80+3*, 80+7*, 90+3* , 90+7*, 100+3*, 100+7*, 110+4*, 110+8*, 120+3*, 120+7*, 130+3*, 130+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, 90+6, 90+9 , 100+6, 110+7, 120+6, 130+6 |
| ABME("PPP" | 40+2, 40+5, 50+2, 50+5, 60+2, 60+5, 70+3, 70+6, 80+2, 80+5 , 90+2, 100+2, 110+3, 120+2, 130+2 |
| ABME("RTYPE" | START+2* |
| ABME("S#" | START+1, LOOP+4, 20+1 |
| >> ABMP("BDFN" | 30+1, EX+8*, EX+11 |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("FMT" | EX+13*, EX+16* |
| >> ABMP("INS" | LOOP+3 |
| >> ABMP("NOFMT" | LOOP+4, EX+13 |
| >> ABMR(31 | 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+5*, 90+6, 90+9*, 90+10*, 100+1*, 100+5*, 100+6, 100+9*, 100+10*, 110+2* , 110+6*, 110+7, 110+10*, 110+11*, 120+10*, 120+11*, 130+1*, 130+5*, 130+6, 130+9* , 130+10*, 140+1*, 140+2*, 150+1*, 150+2*, EX+15, EX+17! |
| >> ABMREC(31 | 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 | 90+5, 100+5, 110+6, 120+5, 130+5 |
| DUZ(2 | EX+11 |
| >> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4 |
| >> Y | EX+11*, EX+15*, EX+18 |