©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
IBCSC5C ;ALB/ARH - ADD/EDIT RX REFILLS (CONTINUED) ; 3/4/94
Source file <IBCSC5C.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | FILE^DICN ^DIE ^DIR |
| Integrated Billing | 1 | $$ADD^IBCSC5A |
| Kernel | 1 | $$FMTE^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWRX(IBX) | ;
|
|
| NEWRXE | ||
| ADDNEW(IBIFN,LIST,IBPR,IBPRO) | ;
|
|
| DEFAULT(IFN) | ; add default DX and CPT to a Rx bill
|
|
| NEWRX1 | ||
| RXDISP(DFN,DT1,DT2,ARRAY,POARR,RXARR) | ; display all re refills for a patient and date range
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(362.3 - [#362.3] | Classic Fileman Calls |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | DEFAULT+2, DEFAULT+5, DEFAULT+7* |
| ^IBA(362.3 - [#362.3] | DEFAULT+4 |
| ^IBA(362.4 - [#362.4] | DEFAULT+3, ADDNEW+5 |
| ^IBE(350.9 - [#350.9] | DEFAULT+1 |
| ^PS(55 - [#55] | RXDISP+7, RXDISP+8 |
| ^PSDRUG - [#50] | RXDISP+12, RXDISP+19 |
| ^PSRX - [#52] | RXDISP+9, RXDISP+10, RXDISP+11 |
| Name | Line Occurrences |
|---|---|
| NEWRX1 | NEWRX1+7 |
| NEWRXE | NEWRX1+2, NEWRX1+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | RXDISP~, RXDISP+4! |
| ARRAY( | RXDISP+12*, RXDISP+13, RXDISP+19 |
| DA | DEFAULT+4!, DEFAULT+6*!, DEFAULT+8! |
| DA(1 | DEFAULT+8* |
| DD | DEFAULT+4!, DEFAULT+8! |
| DFN | RXDISP~, RXDISP+5, RXDISP+7, RXDISP+8 |
| DIC | DEFAULT+4*!, DEFAULT+6!, DEFAULT+8*! |
| DIC("DR" | DEFAULT+4*, DEFAULT+8* |
| DIC(0 | DEFAULT+4*, DEFAULT+8* |
| DIE | DEFAULT+6*! |
| DIR | NEWRX1+2!, NEWRX1+6! |
| DIR("?" | NEWRX1* |
| DIR("A" | NEWRX1+1*, NEWRX1+5* |
| DIR("B" | NEWRX1+5* |
| DIR(0 | NEWRX1+2*, NEWRX1+6* |
| >> DIRUT | NEWRX1+2, NEWRX1+6 |
| DO | DEFAULT+4!, DEFAULT+8! |
| DR | DEFAULT+4!, DEFAULT+6*!, DEFAULT+8! |
| DT1 | RXDISP~, RXDISP+5*, RXDISP+7, RXDISP+9 |
| DT2 | RXDISP~, RXDISP+5*, RXDISP+9 |
| DTE | RXDISP+4~, RXDISP+7*, RXDISP+8 |
| DTR | RXDISP+4~, RXDISP+9*, RXDISP+10, RXDISP+17*, RXDISP+18, RXDISP+19 |
| IBBIL | DEFAULT+1~, DEFAULT+2*, DEFAULT+6 |
| IBCNT | RXDISP+4~, RXDISP+5*, RXDISP+14*, RXDISP+17*, RXDISP+19 |
| IBCPT | DEFAULT+1~*, DEFAULT+5, DEFAULT+8 |
| IBDT | DEFAULT+1~, DEFAULT+3*, DEFAULT+8, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+6 |
| IBDX | DEFAULT+1~*, DEFAULT+4 |
| IBI | ADDNEW+1~, ADDNEW+2* |
| IBIFN | ADDNEW~, ADDNEW+5, ADDNEW+6 |
| IBLIST | NEWRX+1!, NEWRX1+3*, NEWRX1+5, NEWRX1+6! |
| IBPAR1 | DEFAULT+1~* |
| IBPIFN | ADDNEW+1~, ADDNEW+5* |
| IBPR | ADDNEW~ |
| IBPR( | ADDNEW+4, ADDNEW+6 |
| IBPRO | ADDNEW~ |
| IBPRO( | ADDNEW+2, ADDNEW+3 |
| IBQ | ADDNEW+1~, ADDNEW+4*, ADDNEW+5*, ADDNEW+6 |
| IBRX | ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+6 |
| IBX | DEFAULT+1~, DEFAULT+3*, RXDISP+4~, RXDISP+11*, RXDISP+12, RXDISP+13*, RXDISP+14, RXDISP+17*, RXDISP+18*, RXDISP+20 , NEWRX~, NEWRX+1, NEWRX1+2, ADDNEW+1~, ADDNEW+2*, ADDNEW+3 |
| IBY | RXDISP+4~, RXDISP+11*, RXDISP+12, RXDISP+13*, RXDISP+14, RXDISP+18*, RXDISP+19, ADDNEW+1~, ADDNEW+4* |
| IBZ | ADDNEW+1~, ADDNEW+6* |
| IFN | DEFAULT~, DEFAULT+2, DEFAULT+3, DEFAULT+4, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+8 |
| IOF | RXDISP+16 |
| LIST | ADDNEW~, ADDNEW+1, ADDNEW+2 |
| PIFN | RXDISP+4~, RXDISP+8*, RXDISP+9, RXDISP+10, RXDISP+11, RXDISP+12 |
| POARR | RXDISP~, RXDISP+4!*, RXDISP+14*, RXDISP+17, RXDISP+20* |
| POARR( | RXDISP+14*, RXDISP+17 |
| RIFN | RXDISP+4~, RXDISP+10*, RXDISP+11, RXDISP+12 |
| RX | RXDISP+4~, RXDISP+17*, RXDISP+18, RXDISP+19 |
| RXARR | RXDISP~ |
| RXARR( | RXDISP+18 |
| U | DEFAULT+1, DEFAULT+3, DEFAULT+6, RXDISP+12, RXDISP+14, RXDISP+17, RXDISP+19, RXDISP+20, ADDNEW+3, ADDNEW+5 , ADDNEW+6 |
| X | DEFAULT+4*, DEFAULT+8*, NEWRX+1~ |
| Y | NEWRX+1~, NEWRX1+2, NEWRX1+3, NEWRX1+7 |