©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
ABME650 ; IHS/ASDST/DMJ - UB92 EMC RECORD 50 (INPATIENT ACCOMMODATIONS) ;
Source file <ABME650.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 3 | FRATE^ABMDF11 $$EX^ABMER20 ($$FMT,S90,SET)^ABMERUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EX(ABMX,ABMY) | ;EXTRINSIC FUNCTION HERE
|
|
| 60 | ;42-45 Accommodation Days 1
|
|
| 130 | ;152-192 Accommodations Revenue Code 4
|
|
| 110 | ;70-110 Accommodations Revenue Code 2
|
|
| 80 | ;56-65 Accommodations Non-Covered Charges 1
|
|
| 20 | ;3-5 Sequence
|
|
| GET25 | ;GET INFO FOR ROOM AND BOARD CHARGES
|
|
| 40 | ;29-32 Accommodations Revenue Code 1
|
|
| 120 | ;111-151 Accommodations Revenue Code 3
|
|
| START | ;START HERE
|
|
| 70 | ;46-55 Accommodation Total Charges 1
|
|
| 90 | ;66-69 Form Locator 49 1
|
|
| 10 | ;1-2 Record type
|
|
| 30 | ;6-25 Patient Control Number
|
|
| 50 | ;33-41 Accommodations Rate 1
|
|
| 35 | ;26-28, Filler (National Use)
|
|
| 1106 | ;Form Locator 49
|
|
| 1104 | ;Total Charges
|
|
| 1105 | ;Non-Covered Charges
|
|
| 1102 | ;Rate
|
|
| 1103 | ;Days
|
|
| 1101 | ;Revenue Code
|
|
| LOOP | ;LOOP HERE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | GET25+5, GET25+7, GET25+18 |
| ^ABMEXLM("AA" | LOOP+3 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, 110+3, 120+3, 130+3, EX+4 |
| GET25 | 40+1, 50+1, 60+1, 70+1, 80+1, 110+1, 120+1, 130+1 |
| LOOP | START+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | START+6!, EX+7! |
| ABM("NCDAYS" | GET25+18*, GET25+19 |
| ABM("RC#" | 110+2*, 120+2*, 130+2*, 1101+1, 1102+1, 1103+1, 1104+1, 1105+2 |
| ABM("T2" | GET25+3*, GET25+9*, GET25+14*, GET25+23 |
| ABM("T4" | GET25+3*, GET25+9*, GET25+14*, GET25+15, GET25+16, GET25+17, GET25+23 |
| ABM(25 | 40+1, 50+1, 60+1, 70+1, 1101+1, 1102+1, 1103+1, 1104+1, 1105+2, GET25+1 , GET25+7*, GET25+8*, GET25+9, GET25+13*, GET25+14, GET25+19, GET25+23*, GET25+24* |
| ABME | EX+7! |
| ABME("RTYPE" | START+2* |
| ABME("S#" | START+4*, LOOP+4, 20+1 |
| >> ABMP("BDFN" | 30+1, GET25+5, GET25+7, GET25+18, EX+2* |
| >> ABMP("EXP" | LOOP+3 |
| >> ABMP("FLAT" | GET25+2!, GET25+4, GET25+10, GET25+11, GET25+13 |
| >> ABMP("FMT" | EX+3*, EX+6* |
| >> ABMP("INS" | LOOP+3 |
| >> ABMP("NOFMT" | LOOP+4, EX+3 |
| >> ABMR(50 | START+1!, LOOP+4, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 35+1*, 35+2*, 40+1* , 40+2*, 50+1*, 50+2*, 60+1*, 60+2*, 70+1*, 70+2*, 80+2*, 90+1*, 90+2* , 110+3*, 120+3*, 130+3*, 1101+1*, 1101+2*, 1102+1*, 1102+2*, 1103+1*, 1103+2*, 1104+1* , 1104+2*, 1105+1*, 1105+2*, 1105+3*, 1106+1*, 1106+2*, GET25+18*, GET25+19*, GET25+20, GET25+21 , GET25+22, EX+5, EX+7! |
| >> ABMREC(50 | START+1!, LOOP+4* |
| >> ABMRT(90 | GET25+15*, GET25+20* |
| >> ABMRT(95 | GET25+16*, GET25+21* |
| >> ABMRT(99 | GET25+17*, GET25+22* |
| ABMX | EX~, EX+4, EX+5, EX+7! |
| ABMY | EX~, EX+2, EX+7! |
| ABMZ | EX+7! |
| >> CNT | GET25+5*, GET25+6*, GET25+7, GET25+8, GET25+9, GET25+12*, GET25+23* |
| DUZ(2 | GET25+5, GET25+7, GET25+18 |
| I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, 110+3~*, 120+3~*, 130+3~*, 1101+1, 1101+2, 1102+1 , 1102+2, 1103+1, 1103+2, 1104+1, 1104+2, 1105+1, 1105+2, 1105+3, 1106+1, 1106+2 , GET25+2~, GET25+5~*, GET25+7, GET25+24* |
| U | 40+1, 1101+1, 1105+2, GET25+13 |
| >> Y | EX+5*, EX+8 |