ABMEH10 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD BA0 (Provider) ;
Source file <ABMEH10.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 2 | GET41^ABMER80 ($$FMT,$$RCID,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
|
|
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 |
---|---|
GET41^ABMER80 | 190+3 |
$$FMT^ABMERUTL | 20+6, 40+2, 50+2, 60+3, 70+2, 80+2, 90+11, 110+2, 120+3, 130+3 , 140+8, 150+2, 160+2, 170+2, 180+4, 190+5, 200+2, 210+2, 220+2, 230+2 , 240+3, 250+2, 260+2, 270+2, 280+2 |
$$RCID^ABMERUTL | 20+4, 30+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 |
ABM("FNAME" | 200+1 |
ABM("LNAME" | 190+4 |
ABM("MI" | 210+1 |
ABM("P#" | 240+2 |
ABME | START+5!, EX+12! |
ABME("NTYPE" | 190+1*, 190+2* |
ABME("RTYPE" | START+2* |
>> ABMEF("BATCH#" | 40+1 |
>> ABMP("BCBS" | 140+2 |
>> ABMP("BDFN" | EX+7* |
>> ABMP("EMCPRID" | 20+5* |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("FMT" | EX+9*, EX+13* |
>> ABMP("INS" | LOOP+3, 20+1, 20+2, 20+3, 20+4, 30+2, 90+3, 90+4, 90+5, 140+4 , 140+5, 140+6 |
>> ABMP("ITYPE" | 90+2, 120+2, 190+1, 240+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+5* |
>> ABMP("VTYP" | 20+1, 20+2, 30+3, 30+4, 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, 20+6*, 30+1* , 30+3*, 30+4*, 30+5, 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*, 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+4*, 190+5*, 200+1*, 200+2*, 210+1* , 210+2*, 220+1*, 220+2*, 230+1*, 230+2*, 240+1*, 240+2*, 240+3*, 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 |