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 |