©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
IBCD3 ;ALB/ARH - AUTOMATED BILLER (ADD NEW BILL - CREATE BILL ENTRY) ; 9/5/93
Source file <IBCD3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 5 | VST^IBCCPT IPRC^IBCD4 OPTDX^IBCSC4D DEFAULT^IBCSC5C ^IBCU6 |
| VA Fileman | 3 | FILE^DICN ^DIE IX1^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| RX | ; file rx refills, add default CPT and Dx if defined
|
|
| INPT | ||
| Q | ||
| WHERE | ;;.01^0^1;.02^0^2;.03^0^3;.04^0^4;.05^0^5;.06^0^6;.07^0^7;.08^0^8;.09^0^9;.11^0^11;.17^0^17;.16^0^16;.18^0^18;.19^0^19;.2^0^20;112^M^12;151^U^1;152^U^2;155^U^5;101^M^1;158^U^8;159^U^9;160^U^10;161^U^11;162^U^12;
|
|
| OUTPT | ;file outpatient visit dates and find/store outpatient procedures and diagnosis
|
| FileNo | Call Tags |
|---|---|
| ^IBA(362.3 - [#362.3] | Classic Fileman Calls |
| ^IBA(362.4 - [#362.4] | Classic Fileman Calls |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | IBCD3+7*, IBCD3+8*, OUTPT+3*, OUTPT+7*, INPT+7*, END |
| ^DPT - [#2] | END |
| ^TMP("IBDX" | INPT+1!, INPT+2 |
| ^TMP("IBIPRC" | INPT+6!, INPT+8, INPT+9 |
| ^UTILITY($J | OUTPT+6, OUTPT+8, OUTPT+11! |
| Name | Line Occurrences |
|---|---|
| END | RX+1, OUTPT+1, INPT |
| WHERE | IBCD3+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | OUTPT+8 |
| ^(0 | IBCD3+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | Q! |
| %DT | Q! |
| DA | IBCD3+9*!, RX+4!, RX+5*!, OUTPT+4!, OUTPT+10*!, OUTPT+16*!, INPT+4*!, INPT+11*!, Q! |
| DA(1 | OUTPT+4*, OUTPT+9*, INPT+10* |
| DD | RX+4!, OUTPT+4!, OUTPT+9!, OUTPT+10!, OUTPT+15!, OUTPT+16!, INPT+3!, INPT+4!, INPT+10!, INPT+11! |
| >> DFN | OUTPT+13 |
| DGCNT | OUTPT+11! |
| DGCPT | OUTPT+11! |
| DGCPTS | OUTPT+11! |
| DGDIR0 | Q! |
| DGDIRA | Q! |
| DGDIRB | Q! |
| DGDIV | OUTPT+11! |
| DGNOD | OUTPT+11! |
| DGPTUPDT | END+2*, Q! |
| DGRVRCAL | Q! |
| DGXRF1 | Q! |
| DIC | RX+4*, RX+5!, OUTPT+4*!, OUTPT+9*, OUTPT+10!, OUTPT+15*, OUTPT+16!, INPT+3*, INPT+4!, INPT+10* , INPT+11!, Q! |
| DIC(0 | RX+4*, OUTPT+4*, OUTPT+9*, OUTPT+15*, INPT+3*, INPT+10* |
| DIE | RX+5*!, OUTPT+10*!, OUTPT+16*!, INPT+4*!, INPT+11*! |
| DIK | IBCD3+9*! |
| DINUM | RX+4!, OUTPT+4*!, OUTPT+10!, OUTPT+16!, INPT+4!, INPT+11!, Q! |
| DIR | Q! |
| DO | RX+4!, OUTPT+4!, OUTPT+9!, OUTPT+10!, OUTPT+15!, OUTPT+16!, INPT+3!, INPT+4!, INPT+10!, INPT+11! |
| DR | RX+5*!, OUTPT+10*, OUTPT+16*, INPT+4*, INPT+11* |
| I | IBCD3+5~, IBCD3+6*, IBCD3+7*, OUTPT+11! |
| I1 | OUTPT+11! |
| I2 | OUTPT+11! |
| I7 | OUTPT+11! |
| >> IB( | IBCD3+6, RX+1, RX+2, RX+3, OUTPT+1, INPT, INPT+1, INPT+6 |
| >> IB(151 | OUTPT+13, INPT+6 |
| >> IB(152 | OUTPT+13, INPT+6 |
| >> IB(43 | OUTPT+2, OUTPT+3 |
| IBAC | IBCD3+5~* |
| >> IBAUTO | END+2* |
| IBCHK | Q! |
| >> IBDFN | END |
| IBDR | IBCD3+5!, Q! |
| IBDR( | IBCD3+6*, IBCD3+7 |
| IBDX | OUTPT+13! |
| IBDX( | OUTPT+14 |
| IBI | IBCD3+5~, INPT+2*, INPT+4, INPT+9* |
| >> IBIFN | IBCD3+7, IBCD3+8, IBCD3+9, RX+5, RX+7, OUTPT+3, OUTPT+4, OUTPT+7, OUTPT+9, OUTPT+16 , INPT+4, INPT+7, INPT+10, END |
| IBINDT | Q! |
| IBOPV1 | OUTPT+11! |
| IBOPV2 | OUTPT+11! |
| >> IBRX | RX+2*, RX+3, RX+5 |
| IBX | IBCD3+5~, RX+3*, RX+4, RX+5, OUTPT+3*, OUTPT+4, OUTPT+8*, OUTPT+9, OUTPT+10, OUTPT+14* , OUTPT+15, INPT+2*, INPT+3, INPT+8*, INPT+9, INPT+11, END* |
| IBY | IBCD3+5~, RX+2*, RX+3, OUTPT+8*, OUTPT+14*, INPT+9* |
| >> IBZ | INPT+9*, INPT+10 |
| U | RX+4, RX+5, OUTPT+10, INPT+9, END |
| V | OUTPT+11! |
| X | IBCD3+5~, IBCD3+6*, RX+4*, OUTPT+4*, OUTPT+9*, OUTPT+15*, INPT+3*, INPT+10* |
| X1 | IBCD3+6*, Q! |
| X2 | Q! |
| X3 | Q! |
| X4 | Q! |
| Y | RX+5, OUTPT+10, OUTPT+16, INPT+4, INPT+11, Q! |
| Name | Field # of Occurrence |
|---|---|
| $T(WHERE | IBCD3+6 |