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 |