©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
ABMDRPX ; IHS/ASDST/DMJ - CPT Summary Report ;
Source file <ABMDRPX.m>
| Package | Total | Call Graph |
|---|---|---|
| Third Party Billing | 6 | $$CPT^ABMCVAPI ^ABMDRCHK ^ABMDRDBQ ^ABMDRHD ^ABMDRSEL LOOP^ABMDRUTL |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMPUTE | ;EP - Entry Point for Setting up Data
; Loop through bill file |
|
| ONE | ;
; ONE CATEGORY |
|
| TL | ;
|
|
| XIT | ;
|
|
| RSEL | ;
; Select exclusion parameters |
|
| SEL | ;
; Ask the user what category they would like to list procedures |
|
| DATA | ;
; for each bill. . . gather data (called from ABMDRUTL) |
|
| HD | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18, DATA+19, ONE+4, ONE+5, ONE+6 |
| ^AUTTADA - [#9999999.31] | ONE+8, ONE+13 |
| ^AUTTREVN - [#9999999.72] | DATA+15, DATA+20, ONE+13 |
| ^PSDRUG - [#50] | ONE+13 |
| ^TMP( | COMPUTE+3! |
| ^TMP("ABM-PX" | ABMDRPX+10!, TL+2*, TL+3*, TL+4* |
| ^TMP($J | ABMDRPX+11!, DATA+6, DATA+7* |
| Name | Line Occurrences |
|---|---|
| ONE | DATA+8, DATA+11 |
| TL | DATA+16, DATA+21, ONE+28 |
| XIT | SEL+7, RSEL+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | TL+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABM | ABMDRPX+10!, SEL+9*, SEL+11, HD+1, DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18 , DATA+19, ONE+4, ONE+5, ONE+6, XIT+1! |
| ABM("ALL" | SEL+12*, DATA+9, ONE+25 |
| ABM("CAT" | SEL+8* |
| ABM("CD" | DATA+14*, DATA+15, DATA+19*, DATA+20, ONE+8*, ONE+9, ONE+10, ONE+13, ONE+14, ONE+24* , ONE+27*, TL+4 |
| ABM("CL" | DATA+5*, DATA+6, DATA+7 |
| ABM("D" | ONE+8, ONE+13 |
| ABM("FEE" | DATA+13*, DATA+18*, ONE+16*, ONE+17*, ONE+18*, ONE+19*, ONE+20*, ONE+21*, ONE+23*, TL+3 , TL+4 |
| ABM("HD" | HD+2* |
| ABM("HDCAT" | HD+1*, HD+2 |
| ABM("NM" | DATA+15*, DATA+20*, ONE+13*, ONE+14*, ONE+26*, TL+4 |
| ABM("PX" | ONE+3*, ONE+4*, ONE+5, ONE+6 |
| ABM("SUB" | SEL+11*, SEL+12, DATA+8, DATA+10*, DATA+11, ONE+2, ONE+4, ONE+5, ONE+6, ONE+8 , ONE+13, ONE+14, ONE+16, ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+22, ONE+27 |
| ABM("SUBR" | COMPUTE+2*, COMPUTE+3 |
| ABM(0 | ONE+6*, ONE+8, ONE+13, ONE+16, ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+23 |
| ABMP | XIT+1! |
| ABMP("HIT" | DATA+2*, DATA+4 |
| ABMP("RTN" | COMPUTE+4* |
| >> ABMQ("NS" | HD+7* |
| >> ABMQ("RC" | HD+4* |
| >> ABMQ("RP" | HD+5* |
| >> ABMQ("RX" | HD+6* |
| ABMY | ABMDRPX+10!, XIT+1! |
| ABMY("PX" | DATA+12, DATA+17, ONE+2, ONE+9, ONE+10 |
| DIR | SEL+3! |
| DIR("A" | SEL+5* |
| DIR(0 | SEL+4* |
| >> DIROUT | SEL+7, RSEL+3 |
| >> DIRUT | SEL+7 |
| >> DTOUT | RSEL+3 |
| >> DUOUT | RSEL+3 |
| DUZ(2 | DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18, DATA+19, ONE+4, ONE+5, ONE+6 |
| U | DATA+12, DATA+13, DATA+15, DATA+17, DATA+18, DATA+19, DATA+20, ONE+8, ONE+13, ONE+16 , ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+23, TL+2, TL+3, TL+4 |
| >> Y | SEL+9 |
| >> Y(0 | SEL+8 |