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