IBCSC5C ;ALB/ARH - ADD/EDIT PRESCRIPTION FILLS (CONTINUED) ;3/4/94
Source file <IBCSC5C.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 7 | ($$BDATE,$$ICD9SYS)^IBACSV ($$ADD,$$FINDREV)^IBCSC5A $$RXSTAT^IBCU1 $$RXDUP^IBCU3 $$GETSPEC^IBEFUNC ($$FILE,$$RXSEC,$$RXZERO,$$ZEROSUB,DATA,ZERO)^IBRXUTL $$ICD^IBRXUTL1 |
VA FileMan | 3 | FILE^DICN ^DIE ^DIR |
Outpatient Pharmacy | 2 | (PROF,RX)^PSO52API $$GETNDC^PSONDCUT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 5 | IBCRBC3 IBCSC5A IBCU7 IBEFUR PROCEDURES |
Name | Comments | DBIA/ICR reference |
---|---|---|
DEFAULT(IFN,IBRX) | ; add default DX and CPT to a prescription bill
; if one is not in PSO. If there is, use it instead. ; IFN = ien of bill entry |
|
RXDISP(DFN,DT1,DT2,ARRAY,POARR,RXARR,IBRXALL,NODISP) | ; display all rx fills for a patient and date range
|
|
DATE(X) | ||
NEWRX(IBX) | ;
|
|
NEWRX1 | ||
NEWRXE | ||
ADDNEW(IBIFN,LIST,IBPR,IBPRO) | ;
|
|
HTEXT() | ;
|
|
RXLINK(IBIFN,CPIEN) | ; Function returns the ien of the Rx rev code the proc
; code is linked to or 0 if no link found. |
|
EXEMPT(RX) | ; Used to look up exemption if any on rx, the return value
; will be only the first exemption reason found. |
|
EREASON | ;
|
Name | Field # of Occurrence |
---|---|
FILE^DICN | DEFAULT+26, DEFAULT+29, DEFAULT+40 |
^DIE | DEFAULT+35, DEFAULT+44 |
^DIR | NEWRX1+2, NEWRX1+6 |
$$BDATE^IBACSV | DEFAULT+6 |
$$ICD9SYS^IBACSV | DEFAULT+6 |
$$ADD^IBCSC5A | ADDNEW+8 |
$$FINDREV^IBCSC5A | DEFAULT+43 |
$$RXSTAT^IBCU1 | RXDISP+44 |
$$RXDUP^IBCU3 | RXDISP+48 |
$$GETSPEC^IBEFUNC | DEFAULT+36 |
$$FILE^IBRXUTL | DEFAULT+10, EXEMPT+3 |
$$RXSEC^IBRXUTL | RXDISP+12 |
$$RXZERO^IBRXUTL | RXDISP+12 |
$$ZEROSUB^IBRXUTL | RXDISP+26 |
DATA^IBRXUTL | RXDISP+15, RXDISP+28 |
ZERO^IBRXUTL | RXDISP+46 |
$$ICD^IBRXUTL1 | DEFAULT+16, EXEMPT+11 |
PROF^PSO52API | RXDISP+9 |
RX^PSO52API | DEFAULT+13, RXDISP+24, EXEMPT+6 |
$$GETNDC^PSONDCUT | RXDISP+18, RXDISP+31 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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+7, DEFAULT+8, DEFAULT+32, DEFAULT+35, DEFAULT+36, RXDISP+48, RXLINK+2 |
^IBA(362.3 - [#362.3] | DEFAULT+23, DEFAULT+29 |
^IBA(362.4 - [#362.4] | DEFAULT+8, DEFAULT+9, DEFAULT+20, ADDNEW+5 |
^IBE(350.9 - [#350.9] | DEFAULT+5, DEFAULT+6 |
^TMP($J | DEFAULT+14, DEFAULT+15, DEFAULT+18!, RXDISP+10, RXDISP+11, RXDISP+19!, RXDISP+25, RXDISP+32!, RXDISP+34!, RXDISP+35! , RXDISP+47, RXDISP+49!, EXEMPT+7, EXEMPT+10, EXEMPT+12! |
Name | Field # of Occurrence |
---|---|
^( | DEFAULT+32 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | RXDISP~, RXDISP+4! |
ARRAY( | RXDISP+18*, RXDISP+31*, RXDISP+37, RXDISP+44, RXDISP+46, RXDISP+47 |
CPIEN | RXLINK~, RXLINK+2 |
DA | DEFAULT+26!, DEFAULT+29!, DEFAULT+35*!, DEFAULT+40!, DEFAULT+44* |
DA(1 | DEFAULT+40*, DEFAULT+44* |
DD | DEFAULT+26!, DEFAULT+29!, DEFAULT+40! |
DFN | RXDISP~, RXDISP+5, RXDISP+9, RXDISP+12, RXDISP+24, RXDISP+25, RXDISP+26 |
DIC | DEFAULT+25*, DEFAULT+26!, DEFAULT+29*!, DEFAULT+35!, DEFAULT+40*! |
DIC("DR" | DEFAULT+25*, DEFAULT+29*, DEFAULT+37*, DEFAULT+38*, DEFAULT+39* |
DIC("P" | DEFAULT+36* |
DIC(0 | DEFAULT+25*, DEFAULT+29*, DEFAULT+40* |
DIE | DEFAULT+35*!, DEFAULT+44* |
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 |
DLAYGO | DEFAULT+25*, DEFAULT+26!, DEFAULT+29*!, DEFAULT+37*, DEFAULT+40! |
DO | DEFAULT+26!, DEFAULT+29!, DEFAULT+40! |
DR | DEFAULT+26!, DEFAULT+29!, DEFAULT+35*!, DEFAULT+40!, DEFAULT+44* |
DT1 | RXDISP~, RXDISP+5*, RXDISP+9, RXDISP+14, RXDISP+27 |
DT2 | RXDISP~, RXDISP+5*, RXDISP+14, RXDISP+27 |
DTE | RXDISP+4~, RXDISP+10*, RXDISP+11 |
DTR | RXDISP+4~, RXDISP+14*, RXDISP+18, RXDISP+43*, RXDISP+44, RXDISP+45, RXDISP+46, RXDISP+47, RXDISP+48 |
DUP | DEFAULT+31~, DEFAULT+32*, DEFAULT+33*, DEFAULT+34 |
IB52 | DEFAULT+3~, DEFAULT+9*, DEFAULT+10, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16 |
IBBIL | DEFAULT+3~, DEFAULT+7* |
IBC | DEFAULT+3~, DEFAULT+22*, DEFAULT+24*, DEFAULT+25, DEFAULT+27 |
IBCNT | RXDISP+4~, RXDISP+5*, RXDISP+38*, RXDISP+39, RXDISP+43*, RXDISP+47 |
IBCPT | DEFAULT+3~, DEFAULT+5*, DEFAULT+19, DEFAULT+30, DEFAULT+40, DEFAULT+44 |
IBCPTIFN | DEFAULT+3~ |
IBDT | DEFAULT+3~, DEFAULT+20*, DEFAULT+37, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+8 |
IBDX | DEFAULT+3~, DEFAULT+6*, DEFAULT+19, DEFAULT+22*, DEFAULT+29 |
IBDX( | DEFAULT+16*, DEFAULT+17!, DEFAULT+22, DEFAULT+23, DEFAULT+25 |
IBDXIFN | DEFAULT+3~, DEFAULT+4*, DEFAULT+29*, DEFAULT+38, DEFAULT+39 |
IBDXIFN( | DEFAULT+27*, DEFAULT+39 |
IBI | ADDNEW+1~, ADDNEW+2* |
IBIFN | RXDISP+48, ADDNEW~, ADDNEW+5, ADDNEW+8, RXLINK~, RXLINK+2 |
IBLIST | NEWRX+1!, NEWRX1+3*, NEWRX1+5, NEWRX1+6!, NEWRX1+7! |
>> IBP | EXEMPT+11* |
IBPAR1 | DEFAULT+3~, DEFAULT+5*, DEFAULT+6 |
IBPIFN | ADDNEW+1~, ADDNEW+5* |
IBPR | ADDNEW~ |
IBPR( | ADDNEW+4, ADDNEW+8 |
IBPRO | ADDNEW~ |
IBPRO( | ADDNEW+2, ADDNEW+3 |
IBQ | ADDNEW+1~, ADDNEW+4*, ADDNEW+5*, ADDNEW+8 |
IBR | EXEMPT+2~, EXEMPT+8*, EXEMPT+11*, EXEMPT+13 |
>> IBREV | DEFAULT+43 |
IBRX | DEFAULT~, DEFAULT+8, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, ADDNEW+5, ADDNEW+8 |
IBRX0 | RXDISP+4~, RXDISP+12*, RXDISP+15, RXDISP+18, RXDISP+28, RXDISP+31 |
IBRX2 | RXDISP+4~, RXDISP+12*, RXDISP+14 |
IBRXALL | RXDISP~, RXDISP+14 |
IBS | RXDISP+4~, RXDISP+37*, RXDISP+38*, RXDISP+39, RXDISP+44*, RXDISP+47, EXEMPT+2~, EXEMPT+8*, EXEMPT+10, EXEMPT+11* |
IBX | DEFAULT+3~, DEFAULT+8*, DEFAULT+9, DEFAULT+20, DEFAULT+33, DEFAULT+43, RXDISP+4~, RXDISP+37*, RXDISP+38, NEWRX~ , NEWRX+1, NEWRX1+2, ADDNEW+1~, ADDNEW+2*, ADDNEW+3, EXEMPT+2~, EXEMPT+8*, EXEMPT+10*, EXEMPT+11 |
IBY | DEFAULT+3~, DEFAULT+9*, DEFAULT+15*, DEFAULT+16, DEFAULT+17, DEFAULT+22*, DEFAULT+23, DEFAULT+25, DEFAULT+39*, RXDISP+4~ , RXDISP+26*, RXDISP+27, RXDISP+31, RXDISP+37*, RXDISP+38, RXDISP+45*, RXDISP+47, RXDISP+48*, ADDNEW+1~, ADDNEW+4* |
IBZ | DEFAULT+42~, DEFAULT+43*, DEFAULT+44, ADDNEW+1~, ADDNEW+8*, EXEMPT+2~, EXEMPT+11* |
ICDCT | EXEMPT+2~, EXEMPT+7*, EXEMPT+9 |
IFN | DEFAULT~, DEFAULT+6, DEFAULT+7, DEFAULT+8, DEFAULT+23, DEFAULT+25, DEFAULT+29, DEFAULT+32, DEFAULT+35, DEFAULT+36 , DEFAULT+40, DEFAULT+43, DEFAULT+44 |
IOF | RXDISP+42 |
LIST | DEFAULT+3~, DEFAULT+11*, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16, DEFAULT+18, RXDISP+4~, RXDISP+8*, RXDISP+9 , RXDISP+10, RXDISP+11, RXDISP+35, ADDNEW~, ADDNEW+1, ADDNEW+2, EXEMPT+2~, EXEMPT+4*, EXEMPT+6, EXEMPT+7 , EXEMPT+10, EXEMPT+11, EXEMPT+12 |
LIST2 | RXDISP+4~, RXDISP+22*, RXDISP+24, RXDISP+25, RXDISP+34 |
NODE | DEFAULT+3~, DEFAULT+12*, DEFAULT+13, RXDISP+23*, RXDISP+24, EXEMPT+2~, EXEMPT+5*, EXEMPT+6 |
NODISP | RXDISP~, RXDISP+4*, RXDISP+41 |
PDFN | DEFAULT+3~, DEFAULT+10*, DEFAULT+13, DEFAULT+14, DEFAULT+15, DEFAULT+16, EXEMPT+2~, EXEMPT+3*, EXEMPT+6, EXEMPT+7 , EXEMPT+10, EXEMPT+11 |
PIFN | RXDISP+4~, RXDISP+11*, RXDISP+12, RXDISP+18, RXDISP+24, RXDISP+25, RXDISP+26, RXDISP+31 |
POARR | RXDISP~, RXDISP+4!*, RXDISP+38*, RXDISP+39* |
POARR( | RXDISP+38*, RXDISP+43 |
RIFN | RXDISP+4~, RXDISP+25*, RXDISP+26, RXDISP+31 |
RX | RXDISP+4~, RXDISP+43*, RXDISP+44, RXDISP+45, RXDISP+46, RXDISP+47, RXDISP+48, EXEMPT~, EXEMPT+3, EXEMPT+6 , EXEMPT+7, EXEMPT+10, EXEMPT+11 |
RXARR | RXDISP~ |
RXARR( | RXDISP+38, RXDISP+45 |
U | DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFAULT+20, DEFAULT+33, DEFAULT+35, RXDISP+14, RXDISP+15, RXDISP+18, RXDISP+28 , RXDISP+31, RXDISP+38, RXDISP+39, RXDISP+43, RXDISP+44, RXDISP+46, RXDISP+47, RXDISP+48, ADDNEW+3, ADDNEW+5 , ADDNEW+8 |
X | DEFAULT+25*, DEFAULT+29*, DEFAULT+40*, DATE~, NEWRX+1~, HTEXT+1~*, HTEXT+2 |
Y | DEFAULT+27, DEFAULT+29, DEFAULT+41, DEFAULT+43, NEWRX+1~, NEWRX1+2, NEWRX1+3, NEWRX1+7 |
Z | DEFAULT+31~, DEFAULT+32*, DEFAULT+42~, DEFAULT+43*, DEFAULT+44 |
Z0 | DEFAULT+31~, DEFAULT+32*, DEFAULT+33 |
Name | Field # of Occurrence |
---|---|
$T(EREASON+(3) | EXEMPT+11 |