ABME570A ; IHS/ASDST/DMJ - UB92 V5 EMC RECORD 70-1 (Medical) cont'd ;
Source file <ABME570A.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 3 | $$DX^ABMCVAPI $$EX^ABMER20 $$FMT^ABMERUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 10 | ;Record type, 1-2
|
|
| 20 | ;Sequence , 3-4
|
|
| GET17 | ;GET DIAGNOSES CODES FROM BILL FILE
|
|
| 120 | ;Other Diagnosis Code #8, 73-78 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #75 |
|
| EX(ABMX,ABMY) | ||
| 30 | ;Patient Control Number, 5-24 (SOURCE: FILE=9000001.41,FIELD=.02)
|
|
| 50 | ;Other Diagnosis Code #1, 31-36 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #68 |
|
| 40 | ;Principle Diagnosis Code, 25-30 (SOURCE: FILE=9002274.4017 FIELD=.01)
; from locator #67 |
|
| 60 | ;Other Diagnosis Code #2, 37-42 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #69 |
|
| 110 | ;Other Diagnosis Code #7, 67-72 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #74 |
|
| 70 | ;Other Diagnosis Code #3, 43-48 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #70 |
|
| 90 | ;Other Diagnosis Code #5, 55-60 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #72 |
|
| 80 | ;Other Diagnosis Code #4, 49-54 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #71 |
|
| 100 | ;Other Diagnosis Code #6, 61-66 (SOURCE: FILE=9002274.4017, FIELD=.01)
; from locator #73 |
|
| LOOP | ;LOOP HERE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | GET17+4, GET17+6, GET17+8 |
| ^ABMDEXP - [#9002274.08] | GET17+10 |
| ^ABMEXLM("AA" | LOOP+3 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+2, LOOP+3, EX+8 |
| GET17 | 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 110+2, 120+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABM(17 | 40+3, 50+3, 60+3, 70+3, 80+3, 90+3, 100+3, 110+3, 120+3, GET17+1 , GET17+8*, GET17+9*, GET17+11*, GET17+12* |
| >> ABMP("BDFN" | 30+1, GET17+4, GET17+6, GET17+8 |
| >> ABMP("EXP" | LOOP+3, GET17+10 |
| >> ABMP("FMT" | EX+7*, EX+10* |
| >> ABMP("INS" | LOOP+3 |
| >> ABMP("NOFMT" | LOOP+4, EX+7 |
| >> ABMP("VDT" | GET17+9 |
| >> ABMR(70 | LOOP+4, 10+1*, 20+1*, 30+1*, 30+2*, 40+3*, 40+4*, 50+3*, 50+4*, 60+3* , 60+4*, 70+3*, 70+4*, 80+3*, 80+4*, 90+3*, 90+4*, 100+3*, 100+4*, 110+3* , 110+4*, 120+3*, 120+4*, EX+9, EX+11! |
| >> ABMREC(70 | LOOP+4* |
| ABMX | EX~, EX+8, EX+9, EX+11! |
| ABMY | EX~, EX+11! |
| >> CNT | GET17+3*, GET17+7*, GET17+8, GET17+9, GET17+11 |
| DUZ(2 | GET17+4, GET17+6, GET17+8 |
| I | LOOP+1*, LOOP+2, LOOP+3, LOOP+4, GET17+2~, GET17+3*, GET17+4*, GET17+6, GET17+12* |
| J | GET17+2~, GET17+5*, GET17+6*, GET17+8 |
| U | GET17+8, GET17+9 |
| >> Y | EX+9*, EX+12 |