©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
ABME520 ; IHS/ASDST/DMJ - UB92 V5 EMC RECORD 20 (Patient) ;
Source file <ABME520.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 3 | $$Y2KD2^ABMDUTL ^ABME520A ($$FMT,S90,SET)^ABMERUTL |
| VA Fileman | 1 | EN^DIQ1 |
| Package | Total | Caller Graph |
|---|---|---|
| Third Party Billing | 3 | ABMEF13 ABMEF16 ABMEF17 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 150 | ;EP - Patient's State, 112-113 (SOURCE: FILE=2, FIELD=.115)
; form locator #13 |
|
| ADR | ;GET PATIENT ADDRESS FROM FILE 2
; I = 1 - Mailing Address - Street ; 2 - Street Address [line 2] ; 3 - Street Address [line 3] ; 4 - Mailing Address - City ; 5 - Mailing Address - State ; 6 - Mailing Address - Zip |
|
| 210 | ;EP - Patient Status, 149-150 (SOURCE: FILE=9002274.4, FIELD=.53)
; form locator #22 |
|
| 140 | ;EP - Patient's City, 97-111 (SOURCE: FILE=2, FIELD=.114)
; form locator #13 |
|
| 200 | ;EP - Statement Covers Period Through, 141-148 (SOURCE: FILE=9002274.4, FIELD=.72)
; form locator #6 |
|
| 230 | ;EP - Payments Received (Patient line), 153-162 (SOURCE: FILE=9002274.4, FIELD=.99)
|
|
| 260 | ;EP - Filler (National Use), 190-192
|
|
| 30 | ;EP - Patient Control Number (SOURCE: FILE=9000001.41, FIELD=.02)
; form locator #3 |
|
| 190 | ;EP - Statement Covers Period From, 133-140 (SOURCE: FILE=9002274.4, FIELD=.71)
; form locator #6 |
|
| DIQ1 | ;PULL BILL DATA VIA DIQ1
|
|
| 120 | ;EP - Patient Address - Line 1, 67-84 (SOURCE: FILE=2, FIELD=.111)
; form locator #13 |
|
| START | ;START HERE
|
|
| 180 | ;EP - Admission Hour, 131-132 (SOURCE: FILE=9002274.4, FIELD=.62)
; form locator #18 |
|
| 130 | ;EP - Patient Address - Line 2, 85-96 (SOURCE: FILE=2, FIELD=.112)
; form locator #13 |
|
| 240 | ;EP - Estimated Amount Due (Patient line), 163-172 (SOURCE: FILE=, FIELD=)
|
|
| 250 | ;EP - Medical Record Number, 172-189 (SOURCE: FILE=9000001.41, FIELD=.02)
; form locator #23 |
|
| 220 | ;EP - Discharge Hour, 151-152 (SOURCE: FILE=9002274.4, FIELD=.64)
; form locator #21 |
|
| 160 | ;EP - Patient's Zip,114-122 (SOURCE: FILE=2, FIELD=.116)
; form locator #13 |
|
| EX(ABMX,ABMY) | ;EP - EXTRINSIC FUNCTION HERE
|
|
| LOOP | ;LOOP HERE
|
|
| 170 | ;EP - Admission/Start of Care Date, 123-130 (SOURCE: FILE=9002274.4, FIELD=.71)
; form locator #17 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | 30+2 |
| ^ABMDPARM( | 30+3, 30+5 |
| ^ABMEXLM("AA" | LOOP+4 |
| ^AUPNPAT - [#9000001] | 250+2 |
| ^DIC(5 - [#5] | ADR+9 |
| ^DPT - [#2] | ADR+8 |
| Name | Line Occurrences |
|---|---|
| 250 | 30+6 |
| @( | LOOP+3, LOOP+4, EX+10 |
| ADR | 120+2, 130+2, 140+2, 150+2, 160+2 |
| DIQ1 | 170+3, 180+3, 190+3, 200+3, 210+3, 220+3, 230+2, 240+2 |
| LOOP | START+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+4 |
| ^(2 | 30+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | START+7! |
| ABM( | 170+4, 180+4, 190+4, 200+4, 210+4, 220+4, 230+3, 240+3, DIQ1+1 |
| ABME | START+7! |
| ABME("AD" | ADR+8* |
| ABME("AD1" | 120+2, 120+3 |
| ABME("AD2" | 130+2, 130+3 |
| ABME("AD4" | 140+2, 140+3 |
| ABME("AD5" | 150+2, 150+3, ADR+9* |
| ABME("AD6" | 160+2, 160+3, 160+5*, 160+6 |
| ABME("FLD" | 170+2*, 180+2*, 190+2*, 200+2*, 210+2*, 220+2*, 230+1*, 240+1*, DIQ1+1 |
| ABME("RTYPE" | START+2* |
| >> ABMP("BDFN" | 30+2, 170+4, 180+4, 190+4, 200+4, 210+4, 220+4, 230+3, 240+3, DIQ1+1 , DIQ1+6, EX+7* |
| >> ABMP("EXP" | LOOP+4 |
| >> ABMP("FMT" | EX+9*, EX+13* |
| >> ABMP("INS" | LOOP+4 |
| >> ABMP("ITYPE" | 210+7 |
| >> ABMP("LDFN" | 250+2 |
| >> ABMP("NOFMT" | LOOP+5, 160+4, EX+9 |
| >> ABMP("PDFN" | ADR+8, 250+2 |
| >> ABMP("SET" | START+4! |
| >> ABMR(20 | START+1!, LOOP+5, 30+2*, 30+3*, 30+7*, 30+9*, 120+3*, 120+4*, 130+3*, 130+4* , 140+3*, 140+4*, 150+3*, 150+4*, 160+3*, 160+6*, 160+7*, 170+4*, 170+5*, 170+6* , 180+4*, 180+5*, 190+4*, 190+5*, 190+6*, 200+4*, 200+5*, 200+6*, 210+4*, 210+7* , 210+8*, 220+4*, 220+5*, 230+3*, 230+4*, 240+3*, 240+4*, 250+2*, 250+3*, 250+4* , 260+1*, 260+2*, EX+11, EX+12! |
| >> ABMRCID | 250+4 |
| >> ABMREC(20 | START+1!, LOOP+5* |
| >> ABMRT(95 | START+3* |
| ABMX | EX~, EX+10, EX+11, EX+12! |
| ABMY | EX~, EX+7, EX+12! |
| >> DA | DIQ1+6* |
| >> DIC | DIQ1+5* |
| DIQ | DIQ1+3*, DIQ1+9! |
| DIQ(0 | DIQ1+4* |
| >> DR | DIQ1+7* |
| DUZ(2 | 30+2, 30+3, 30+5 |
| I | LOOP+2*, LOOP+3, LOOP+4, LOOP+5, ADR+7~, ADR+8*, DIQ1+2~ |
| U | 30+2 |
| >> Y | EX+11*, EX+14 |