©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
ABME570 ; IHS/ASDST/DMJ - UB92 V5 EMC RECORD 70-1 (Medical) ;
Source file <ABME570.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 4 | ($$CPT,$$DX,$$ICDOP)^ABMCVAPI $$Y2KD2^ABMDUTL ^ABME570A ($$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 | ;Other Surgical Procedure Code #1, 94-100 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 210 | ;Other Surgical Procedure Code #4, 139-145 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 140 | ;Principle Surgical Procedure Date, 86-93 (SOURCE: FILE=9002274.4 FIELD=)
; form locator #80 |
|
| 200 | ;Other Surgical Procedure Date #3, 131-138 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 230 | ;Other Surgical Procedure Code #5, 154-160 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 260 | ;External Cause of Injury, 175-180 (SOURCE: FILE=9002274.4, FIELD=)
; form locator #77 |
|
| SCODE | ;SURGICAL PROCEDURE CODES
|
|
| 190 | ;Other Surgical Procedure Code #3, 124-130 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| DIQ1 | ;GET INFO FROM FILE 9002274.4
|
|
| 270 | ;Procedure Coding Method Used, 181-181 (SOURCE: FILE=9999999.18, FIELD=)
; form locator #79 |
|
| START | ;START HERE
|
|
| 180 | ;Other Surgical Procedure Date #2, 116-123 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 130 | ;Principle Surgical Procedure Code, 79-85 (SOURCE: FILE=9002274.4 FIELD=)
; form locator #80 |
|
| 240 | ;Other Surgical Procedure Date #5, 161-168 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 280 | ;Filler (National Use), 182-192
|
|
| 250 | ;Admitting Diagnosis, 169-174 (SOURCE: FILE=9002274.4, FIELD=.59)
; form locator #76 |
|
| 220 | ;Other Surgical Procedure Date #4, 146-153 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| 160 | ;Other Surgical Procedure Date #1, 101-108 (SOURCE: FILE=9002274.4)
; form locator #81 |
|
| EX(ABMX,ABMY) | ;EXTRINSIC FUNCTION HERE
|
|
| LOOP | ;LOOP HERE
|
|
| 170 | ;Other Surgical Procedure Code #2, 109-115 (SOURCE: FILE=9002274.4)
; form locator #81 |
| Name | Field # of Occurrence |
|---|---|
| $$CPT^ABMCVAPI | SCODE+20 |
| $$DX^ABMCVAPI | 260+7 |
| $$ICDOP^ABMCVAPI | SCODE+16 |
| $$Y2KD2^ABMDUTL | 140+4, 160+4, 180+4, 200+4, 220+4, 240+4 |
| ^ABME570A | LOOP+1 |
| $$FMT^ABMERUTL | 130+4, 140+5, 150+4, 160+5, 170+4, 180+5, 190+4, 200+5, 210+4, 220+5 , 230+4, 240+5, 250+5, 260+9, 270+3, 280+2 |
| S90^ABMERUTL | START+4 |
| SET^ABMERUTL | START+3 |
| EN^DIQ1 | DIQ1+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | 260+4, SCODE+8, SCODE+12, SCODE+14 |
| ^ABMDEXP - [#9002274.08] | SCODE+17 |
| ^ABMEXLM("AA" | LOOP+4 |
| ^ABMNINS( | 270+2, SCODE+4 |
| Name | Line Occurrences |
|---|---|
| @( | LOOP+3, LOOP+4, EX+8 |
| DIQ1 | 250+2 |
| LOOP | START+3 |
| SCODE | 130+2, 140+2, 150+2, 160+2, 170+2, 180+2, 190+2, 200+2, 210+2, 220+2 , 230+2, 240+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | START+5! |
| ABM( | 250+2, 250+3 |
| ABM("SC" | 130+3, 140+3, 150+3, 160+3, 170+3, 180+3, 190+3, 200+3, 210+3, 220+3 , 230+3, 240+3, SCODE+1, SCODE+16*, SCODE+18*, SCODE+20*, SCODE+21* |
| ABM("SUB" | SCODE+4*, SCODE+8, SCODE+12, SCODE+14, SCODE+15, SCODE+20 |
| ABM("ZERO" | SCODE+14*, SCODE+16, SCODE+20 |
| ABME | START+5! |
| ABME("RTYPE" | START+2* |
| >> ABMP("BDFN" | 250+2, 250+3, 260+4, SCODE+8, SCODE+12, SCODE+14, DIQ1+2 |
| >> ABMP("EXP" | LOOP+4, SCODE+17 |
| >> ABMP("FMT" | EX+7*, EX+10* |
| >> ABMP("INS" | LOOP+4, 270+2, SCODE+4 |
| >> ABMP("NOFMT" | LOOP+5, EX+7 |
| >> ABMP("VDT" | 260+7, SCODE+16, SCODE+20 |
| >> ABMP("VTYP" | 270+2, SCODE+4 |
| >> ABMR(70 | START+1!, LOOP+5, 130+3*, 130+4*, 140+4*, 140+5*, 150+3*, 150+4*, 160+4*, 160+5* , 170+3*, 170+4*, 180+4*, 180+5*, 190+3*, 190+4*, 200+4*, 200+5*, 210+3*, 210+4* , 220+4*, 220+5*, 230+3*, 230+4*, 240+4*, 240+5*, 250+3*, 250+4*, 250+5*, 260+5 , 260+7*, 260+8*, 260+9*, 270+2*, 270+3*, 280+1*, 280+2*, EX+9, EX+11! |
| >> ABMREC(70 | START+1!, LOOP+5* |
| ABMX | EX~, EX+8, EX+9, EX+11! |
| ABMY | EX~, EX+11! |
| >> CNT | SCODE+6*, SCODE+13*, SCODE+16, SCODE+18, SCODE+20 |
| >> DA | DIQ1+2* |
| >> DIC | DIQ1+6* |
| DIQ | DIQ1+4*, DIQ1+8! |
| DIQ(0 | DIQ1+5* |
| >> DR | DIQ1+3* |
| DUZ(2 | 260+4, 270+2, SCODE+4, SCODE+8, SCODE+12, SCODE+14 |
| I | LOOP+2*, LOOP+3, LOOP+4, LOOP+5, 260+2~, 260+3*, 260+4*, 260+7, SCODE+5~, SCODE+6* , SCODE+8*, SCODE+12, SCODE+21*, DIQ1+1~ |
| J | SCODE+9~, SCODE+10*, SCODE+12*, SCODE+14 |
| U | 130+3, 150+3, 170+3, 190+3, 210+3, 230+3, 260+7, SCODE+16, SCODE+20 |
| >> Y | 140+3*, 140+4, 160+3*, 160+4, 180+3*, 180+4, 200+3*, 200+4, 220+3*, 220+4 , 240+3*, 240+4, EX+9*, EX+12 |