©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
ABMEBA0 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD BA0 (Provider) Envoy version ;
Source file <ABMEBA0.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 2 | ($$ENVSPEC,$$FNM,$$LNM,$$MI,$$SLN,$$UPIN)^ABMEEPRV ($$FMT,SET)^ABMERUTL |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 150 | ;120-134 Provider Commercial Number
|
|
| 210 | ;230-230 Provider MI
|
|
| EX(ABMX,ABMY) | ;EXTRINSIC FUNCTION HERE
|
|
| 190 | ;198-217 Provider Last Name
|
|
| 60 | ;32-40 Federal Tax ID or EIN
|
|
| 130 | ;90-104 Champus Insurer Provider Number
; (SOURCE: FILE=9999999.181501, FIELD=.02) |
|
| 110 | ;69-74 Filler
|
|
| 80 | ;47-47 Provider Tax ID Type
|
|
| 230 | ;234-248 Specialty License Number
|
|
| 250 | ;264-278 Dentist License Number
|
|
| 170 | ;Other Insurer Provider Number 2
|
|
| 20 | ;4-18 EMC Provider ID
|
|
| 40 | ;22-25 Batch Number
|
|
| 180 | ;165-197 Organization Name
|
|
| 280 | ;307-320 Filler (Local Use)
|
|
| 200 | ;218-229 Provider First Name
|
|
| 140 | ;105-119 Provider BC/BS Number
|
|
| 120 | ;75-89 Medicaid Provider Number (SOURCE: FILE=9999999.181501, FIELD=.02)
|
|
| START | ;START HERE
|
|
| 260 | ;279-293 Anesthesia License Number
|
|
| 240 | ;249-263 State License Number
|
|
| 70 | ;41-46 Filler
|
|
| 90 | ;48-62 Medicare Provider Number
|
|
| 100 | ;63-68 Provider UPIN-USIN ID
|
|
| 160 | ;135-149 Other Insurer Provider Number 1
|
|
| 220 | ;231-233 Provider Specialty
; ABM*2.4*9 IHS/FCS/DRS 09/21/01 ; Part 4b - call $$ENVSPEC instead of $$SPEC, |
|
| 10 | ;Record type
|
|
| 270 | ;294-306 Filler (National Use)
|
|
| 30 | ;19-21 Type of Batch
|
|
| DIQ2 | ;GET SITE PARAMETER INFO
|
|
| 50 | ;26-31 Batch ID
|
|
| DIQ1 | ;PULL LOCATION DATA VIA DIQ1
|
|
| LOOP | ;LOOP HERE
|
| Name | Field # of Occurrence |
|---|---|
| $$ENVSPEC^ABMEEPRV | 220+2 |
| $$FNM^ABMEEPRV | 200+1 |
| $$LNM^ABMEEPRV | 190+1 |
| $$MI^ABMEEPRV | 210+1 |
| $$SLN^ABMEEPRV | 240+1 |
| $$UPIN^ABMEEPRV | 100+1 |
| $$FMT^ABMERUTL | 20+5, 40+2, 50+2, 60+3, 70+2, 80+2, 90+11, 100+2, 110+2, 120+3 , 130+3, 140+8, 150+2, 160+2, 170+2, 180+4, 190+2, 200+2, 210+2, 220+3 , 230+2, 240+2, 250+2, 260+2, 270+2, 280+2 |
| SET^ABMERUTL | EX+8 |
| EN^DIQ1 | DIQ1+8, DIQ1+13, DIQ2+8 |
| FileNo | Call Tags |
|---|---|
| ^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDPARM( | DIQ1+9 |
| ^ABMEXLM("AA" | LOOP+3 |
| ^ABMNINS( | 20+1, 20+2, 90+3, 90+4, 140+4, 140+5 |
| ^AUTNINS - [#9999999.18] | 20+3, 90+5, 140+6 |
| ^AUTTLOC - [#9999999.06] | 180+3, DIQ1+10 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, EX+10 |
| DIQ1 | 60+1, 90+7, 140+3 |
| DIQ2 | 180+1 |
| LOOP | START+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | START+5!, EX+12! |
| ABM( | 60+2, 90+8, 140+7, 180+2, DIQ1+1, DIQ2+1 |
| >> ABMAPRV | 100+1, 190+1, 200+1, 210+1, 220+2, 240+1 |
| ABME | START+5!, EX+12! |
| ABME("RTYPE" | START+2* |
| >> ABMEF("BATCH#" | 40+1 |
| >> ABMP("BCBS" | 140+2 |
| >> ABMP("BDFN" | EX+7* |
| >> ABMP("EMCPRID" | 20+4* |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("FMT" | EX+9*, EX+13* |
| >> ABMP("INS" | LOOP+3, 20+1, 20+2, 20+3, 90+3, 90+4, 90+5, 140+4, 140+5, 140+6 |
| >> ABMP("ITYPE" | 90+2, 120+2 |
| >> ABMP("LDFN" | 20+1, 20+3, 60+2, 90+3, 90+5, 90+8, 140+4, 140+6, 140+7, DIQ1+1 , DIQ1+6, DIQ1+10 |
| >> ABMP("NOFMT" | LOOP+4, EX+9 |
| >> ABMP("PAYDFN" | DIQ1+9*, DIQ1+10*, DIQ1+11 |
| >> ABMP("TOB" | 30+4* |
| >> ABMP("VTYP" | 20+1, 20+2, 30+2, 30+3, 90+3, 90+4, 140+4, 140+5 |
| >> ABMR(1 | 50+1 |
| >> ABMR(10 | START+1!, LOOP+4, 10+1*, 20+1*, 20+2*, 20+3*, 20+4, 20+5*, 30+1*, 30+2* , 30+3*, 30+4, 40+1*, 40+2*, 50+1*, 50+2*, 60+2*, 60+3*, 60+4, 70+1* , 70+2*, 80+1*, 80+2*, 90+1*, 90+3*, 90+4*, 90+5*, 90+6, 90+8*, 90+10* , 90+11*, 100+1*, 100+2*, 110+1*, 110+2*, 120+1*, 120+2*, 120+3*, 130+2*, 130+3* , 140+1*, 140+4*, 140+5*, 140+6*, 140+7*, 140+8*, 150+1*, 150+2*, 160+1*, 160+2* , 170+1*, 170+2*, 180+2*, 180+3*, 180+4*, 190+1*, 190+2*, 200+1*, 200+2*, 210+1* , 210+2*, 220+2*, 220+3*, 230+1*, 230+2*, 240+1*, 240+2*, 250+1*, 250+2*, 260+1* , 260+2*, 270+1*, 270+2*, 280+1*, 280+2* |
| >> ABMR(20 | EX+11, EX+12! |
| >> ABMREC(10 | START+1!, LOOP+4* |
| >> ABMRT(95 | START+4*, 60+4* |
| ABMX | EX~, EX+10, EX+11, EX+12! |
| ABMY | EX~, EX+7, EX+12! |
| >> DA | DIQ1+6*, DIQ1+11*, DIQ2+6* |
| >> DIC | DIQ1+5*, DIQ2+5* |
| DIQ | DIQ1+3*, DIQ1+14!, DIQ2+3*, DIQ2+8! |
| DIQ(0 | DIQ1+4*, DIQ2+4* |
| >> DR | DIQ1+7*, DIQ1+12*, DIQ2+7* |
| DUZ(2 | 20+2, 90+4, 140+5, 180+3, DIQ1+9, DIQ2+1 |
| I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, DIQ1+2~, DIQ2+2~ |
| U | 20+1, 90+3, 140+4 |
| >> Y | EX+11*, EX+14 |