ABMER80 ; IHS/ASDST/DMJ - UB92 EMC RECORD 80 (PHYSICIAN DATA) ;
Source file <ABMER80.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 4 | $$ENVOY^ABMEF16 $$REPLNOT^ABMER10 $$EX^ABMER20 ($$FMT,$$RCID,$$SLN,S90,SET)^ABMERUTL |
VA Fileman | 1 | EN^DIQ1 |
Package | Total | Caller Graph |
---|---|---|
Third Party Billing | 5 | ABMEF10 ABMEF13 ABMEF16 ABMEF17 ABMEH10 |
Local Area Programs | 1 | AZAXSND |
Name | Comments | DBIA/ICR reference |
---|---|---|
10 | ;Record type
|
|
20 | ;Sequence
|
|
GP | ;GIVEN DA GET PROVIDER NAME AND NUMBER
|
|
120 | ;Other Physician Name 2 (SOURCE: FILE=9002274.4017, FIELD=.01)
|
|
EX(ABMX,ABMY) | ;EXTRINSIC FUNCTION HERE
|
|
30 | ;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
|
|
50 | ;Attending Physician Number (SOURCE: FILE=9002274.4041, FIELD=)
|
|
40 | ;Physician Number Qualifying Codes (SOURCE: FILE=9002274.4041 FIELD=)
|
|
DIQ1 | ;GET PROVIDER INFO
|
|
60 | ;Operating or Other Physician Number (SOURCE: FILE=9002274.4041, FIELD=)
|
|
START | ;START HERE
|
|
130 | ;Filler
|
|
110 | ;Other Physician Name 1 (SOURCE: FILE=9002274.4017, FIELD=.01)
|
|
70 | ;Other Physician Number 1 (SOURCE: FILE=9002274.4041, FIELD=)
|
|
90 | ;Attending Physician Name (SOURCE: FILE=9002274.4041, FIELD=)
|
|
80 | ;Other Physician Number 2 (SOURCE: FILE=9002274.4041, FIELD=)
|
|
GET41 | ;EP - get provider information
|
|
100 | ;Operating or Other Physician Name (SOURCE: FILE=9002274.4041, FIELD=)
|
|
LOOP | ;LOOP HERE
|
Name | Field # of Occurrence |
---|---|
$$ENVOY^ABMEF16 | 50+3 |
$$REPLNOT^ABMER10 | 50+4 |
$$EX^ABMER20 | 30+1 |
$$FMT^ABMERUTL | 20+3, 30+2, 40+2, 50+5, 60+3, 70+3, 80+3, 90+2, 100+2, 110+2 , 120+2, 130+2 |
$$RCID^ABMERUTL | START+7, START+9, 20+2, 50+2, 60+2, 70+2, 80+2 |
$$SLN^ABMERUTL | GP+16 |
S90^ABMERUTL | START+12 |
SET^ABMERUTL | START+3 |
EN^DIQ1 | DIQ1+1 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | GET41+3, GET41+6, GET41+8, GET41+9 |
^ABMEXLM("AA" | LOOP+3 |
^AUTTLOC - [#9999999.06] | GP+14, GP+15 |
^VA(200 - [#200] | GP+7 |
Name | Line Occurrences |
---|---|
@( | LOOP+2, LOOP+3, EX+3 |
DIQ1 | GP+1 |
GET41 | 50+1, 60+1, 70+1, 80+1, 90+1, 100+1, 110+1, 120+1 |
GP | GET41+4, GET41+7, GET41+10 |
LOOP | START+11 |
Name | Field # of Occurrence |
---|---|
^( | LOOP+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABM | START+13!, EX+6! |
ABM("FNAME" | GP+3*, GP+5*, GP+17 |
ABM("LNAME" | GP+2*, GP+3*, GP+4*, GP+17 |
ABM("LSTATE" | GP+14*, GP+15*, GP+16 |
ABM("MI" | GP+6*, GP+17 |
ABM("P#" | GP+7*, GP+8, GP+9*, GP+11*, GP+12*, GP+16*, GP+17 |
ABM(200 | GP+2, GP+6, GP+9, GP+11, DIQ1+2* |
ABM(41 | 50+1, 60+1, 70+1, 80+1, 90+1, 100+1, 110+1, 120+1, GET41+1, GET41+3* , GET41+11*, GP+17* |
ABME | START+13!, EX+6! |
ABME("NTYPE" | START+8*, START+9, START+10*, 40+1, GP+9, GP+10, GP+13 |
ABME("RTYPE" | START+2* |
ABME("S#" | START+4*, START+5, START+7, START+8, LOOP+4, 20+1 |
>> ABMP("BDFN" | 30+1, GET41+3, GET41+6, GET41+8, GET41+9 |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("FMT" | EX+2*, EX+5* |
>> ABMP("INS" | START+5, START+7, START+8, START+9, LOOP+3, 20+2, 50+2, 60+2, 70+2, 80+2 , GP+7 |
>> ABMP("LDFN" | GP+14, GP+15 |
>> ABMP("NOFMT" | LOOP+4, EX+2 |
>> ABMP("SPACES" | GP+4, GP+5 |
>> ABMR(80 | START+1!, LOOP+4, 10+1*, 20+1*, 20+2*, 20+3*, 30+1*, 30+2*, 40+1*, 40+2* , 50+1*, 50+2*, 50+4*, 50+5*, 60+1*, 60+2*, 60+3*, 70+1*, 70+2*, 70+3* , 80+1*, 80+2*, 80+3*, 90+1*, 90+2*, 100+1*, 100+2*, 110+1*, 110+2*, 120+1* , 120+2*, 130+1*, 130+2*, EX+4, EX+6! |
>> ABMREC(80 | START+1!, LOOP+4* |
ABMX | EX~, EX+3, EX+4, EX+6! |
ABMY | EX~, EX+6! |
ABMZ | EX+6! |
>> CNT | GET41+2*, GET41+5*, GET41+8, GET41+10*, GP+17 |
>> DA | GET41+3*, GET41+4, GET41+6*, GET41+7, GET41+9*, GP+2, GP+6, GP+7, GP+9, GP+11 , GP+16, DIQ1+2 |
>> DIC | DIQ1+1* |
DIQ | DIQ1+1*! |
DIQ(0 | DIQ1+1* |
>> DR | DIQ1+1* |
DUZ(2 | GET41+3, GET41+6, GET41+8, GET41+9 |
I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, GET41+3~*, GET41+6*, GET41+8*, GET41+9, GET41+11*, DIQ1+1~ |
U | 50+1, 60+1, 70+1, 80+1, GET41+3, GET41+6, GET41+9 |
>> Y | EX+4*, EX+7 |