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 |