©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
ABME520A ; IHS/ASDST/DMJ - UB92 EMC RECORD 20 (Patient) cont'd ;
Source file <ABME520A.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 3 | $$Y2KD2^ABMDUTL $$EX^ABMER20 ($$FMT,SET)^ABMERUTL |
| VA Fileman | 1 | EN^DIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 10 | ;Record type, 1-2
|
|
| 20 | ;Filler (National Use), 3-4
|
|
| EX(ABMX,ABMY) | ; EP
; Extrincic function here |
|
| 30 | ;Patient Control Number, 5-24 (SOURCE: FILE=9000001.41,FIELD=.02)
|
|
| 50 | ;Patient First Name, 45-53 (SOURCE: FILE=2, FIELD=.01)
; form locator #12 |
|
| 40 | ;Patient Last Name, 25-44 (SOURCE: FILE=2, FIELD=.01)
; form locator #12 |
|
| DIQ1 | ;PULL BILL DATA VIA DIQ1
|
|
| 60 | ;Patient Middle Initial, 54 (SOURCE: FILE=2, FIELD=.01)
; form locator #12 |
|
| PNM | ; EP
; Patient name |
|
| 110 | ;Source of Admission, 66 (SOURCE: FILE=9002274.4, FIELD=.52)
; form locator #20 |
|
| 70 | ;Patient Sex Code, 55 (SOURCE: FILE=2, FIELD=.02)
; form locator #15 |
|
| 90 | ;Marital Status Code, 64 (SOURCE: FILE=2, FIELD=.05)
; form locator #16 |
|
| 80 | ;Patient's Birth Date, 56-63 (SOURCE: FILE=2, FIELD=.03)
; form locator #14 |
|
| 100 | ;Type of Admission, 65 (SOURCE: FILE=9002274.4, FIELD=.51)
; form locator #19 |
|
| LOOP | ;LOOP HERE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDEXP - [#9002274.08] | 40+4 |
| ^ABMEXLM("AA" | LOOP+3 |
| ^AUPNMCD - [#9000004] | PNM+19, PNM+20 |
| ^AUPNMCR - [#9000003] | PNM+8, PNM+9 |
| ^AUPNRRE - [#9000005] | PNM+13, PNM+14 |
| ^AUTNINS - [#9999999.18] | PNM+6, PNM+11 |
| ^DPT - [#2] | PNM+23, PNM+24, PNM+26 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, EX+11 |
| DIQ1 | 100+3, 110+3 |
| PNM | 40+2, 50+2, 60+2, 70+2, 80+2, 90+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| ^(0 | PNM+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABM( | 100+4, 110+4, DIQ1+1 |
| >> ABMCDNUM | PNM+18, PNM+19, PNM+20 |
| >> ABME("DOB" | 80+2, 80+3, PNM+2!, PNM+9*, PNM+14*, PNM+20*, PNM+24* |
| >> ABME("FLD" | 100+2*, 110+2*, DIQ1+1 |
| >> ABME("MS" | 90+2, 90+3, PNM+26* |
| >> ABME("PNM" | 40+2, 40+3, 50+2, 50+3, 60+2, 60+3, PNM+2!, PNM+8*, PNM+13*, PNM+19* , PNM+23* |
| >> ABME("SEX" | 70+2, 70+3, PNM+26* |
| >> ABMP("BDFN" | 30+1, 100+4, 110+4, DIQ1+1, DIQ1+6, EX+8* |
| >> ABMP("EXP" | LOOP+3, 40+4 |
| >> ABMP("FMT" | EX+10*, EX+14* |
| >> ABMP("INS" | LOOP+3, PNM+6, PNM+11 |
| >> ABMP("ITYPE" | 100+7, 110+7, PNM+4, PNM+17 |
| >> ABMP("NOFMT" | LOOP+4, EX+10 |
| >> ABMP("PDFN" | PNM+8, PNM+9, PNM+13, PNM+14, PNM+23, PNM+24, PNM+26 |
| >> ABMP("VTYP" | 100+7 |
| >> ABMR(20 | LOOP+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 40+3*, 40+4*, 40+5*, 50+3* , 50+5, 50+6, 50+7*, 50+8*, 60+3*, 60+4*, 60+5*, 60+6*, 60+7*, 60+8* , 70+3*, 80+3*, 90+3*, 100+4*, 100+7*, 100+8*, 100+9*, 110+4*, 110+7*, 110+8* , 110+9*, EX+12, EX+13! |
| >> ABMREC(20 | LOOP+4* |
| ABMX | EX~, EX+11, EX+12, EX+13! |
| ABMY | EX~, EX+8, EX+13! |
| >> DA | DIQ1+6* |
| >> DIC | DIQ1+5* |
| DIQ | DIQ1+3*, DIQ1+9! |
| DIQ(0 | DIQ1+4* |
| >> DR | DIQ1+7* |
| I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, DIQ1+2~ |
| U | PNM+6, PNM+8, PNM+11, PNM+13, PNM+19, PNM+23 |
| >> Y | EX+12*, EX+15 |