IBCRLI ;ALB/ARH - RATES: DISPLAY CHARGE ITEMS ; 16-MAY-1996
Source file <IBCRLI.m>
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 | 2 | IBCR CHARGE ITEM IBCRLA1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBCR CHARGE ITEM
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array IBCSFN required
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
BLD | ; build array for display for Charge Item display: charge set required
|
|
DATE(X) | ; date in external format
|
|
SET(X) | ; set up list manager screen array
|
|
SORTCI(IBCSFN,IBITM,IBDT1,IBDT2) | ; sort a charge sets items by item name and inverse effective date
; if ITEM is not defined than dates should be, if ITEM or dates not defined then assumes all should be included ; ^TMP("IBCRCI",$J, item name, - effective date, ITEM IFN)="" |
|
GET(IBCSFN) | ; get item to display on screen for specific charge set, set up general variables required
; (returns 0 if error, -1 if ^) all active bedsections or all entries for a specific CPT or NDC # |
|
GETQ |
Name | Field # of Occurrence |
---|---|
$$EXPAND^IBCRU1 | BLD+12, BLD+13, SORTCI+13, SORTCI+14, GET+11 |
$$GETCPT^IBCRU1 | GET+15 |
$$GETCS^IBCRU1 | INIT+2 |
$$GETDRG^IBCRU1 | GET+17 |
$$GETMISC^IBCRU1 | GET+18 |
$$GETNDC^IBCRU1 | GET+16 |
EN^VALM | EN+1 |
$$SETFLD^VALM1 | BLD+14, BLD+15, BLD+16, BLD+17, BLD+18, BLD+20 |
CLEAR^VALM1 | EXIT+2 |
CLEAN^VALM10 | EXIT+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.2 - [#399.2] | HDR+3, BLD+17 |
^IBA(363.2 - [#363.2] | BLD+11, BLD+25, BLD+26, SORTCI+10, SORTCI+11, SORTCI+12, SORTCI+13 |
^IBE(363.1 - [#363.1] | GET+9 |
^IBE(363.3 - [#363.3] | GET+10 |
^TMP("IBCRLI" | INIT+1!, EXIT+1!, SET+2* |
^TMP($J | BLD+1!, BLD+7, BLD+8, BLD+9, BLD+31!, SORTCI+16* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DT | GET+14 |
IBBDT | SORTCI+4~, SORTCI+8*, SORTCI+11, SORTCI+15 |
IBBITM | SORTCI+4~, SORTCI+7*, SORTCI+10 |
IBBRBI | EXIT+1!, BLD+4, BLD+24, BLD+27, GET+8*, GET+10*, GET+11, GET+12, GET+14, GET+15 , GET+16, GET+17, GET+18 |
IBBRBIN | HDR+5, EXIT+1!, BLD+26, BLD+29, GET+8*, GET+11*, GET+12 |
IBCIFN | BLD+1~, BLD+9*, BLD+11, SORTCI+4~, SORTCI+12*, SORTCI+13, SORTCI+16 |
IBCS0 | HDR+3, HDR+7, EXIT+1!, GET+9*, GET+10, GET+12 |
IBCSFN | INIT+2*, INIT+3, BLD+4, BLD+25, BLD+26, SORTCI~, SORTCI+6, GET~, GET+9 |
IBDT1 | BLD+1~, BLD+8*, BLD+9, SORTCI~, SORTCI+8 |
IBDT2 | SORTCI~, SORTCI+8 |
IBEDT | SORTCI+4~, SORTCI+8*, SORTCI+11 |
IBEFDT | SORTCI+4~, SORTCI+11*, SORTCI+12, SORTCI+16 |
IBEITM | SORTCI+4~, SORTCI+7*, SORTCI+10 |
IBI | HDR+1~* |
IBITEM | BLD+1~, BLD+7*, BLD+8, BLD+9, SORTCI+4~, SORTCI+10*, SORTCI+11, SORTCI+12 |
IBITEMN | SORTCI+4~, SORTCI+13*, SORTCI+14*, SORTCI+16 |
IBITM | SORTCI~, SORTCI+7 |
IBK | HDR+1~*, HDR+3*, HDR+15 |
IBLN | BLD+1~, BLD+11*, BLD+12, BLD+13, BLD+15, BLD+16, BLD+17, BLD+18, BLD+19, SORTCI+4~ , SORTCI+13*, SORTCI+14, SORTCI+15 |
IBSRNBDT | HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, EXIT+1!, BLD+2*, BLD+4, GET+8*, GET+14* |
IBSRNEDT | HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, EXIT+1!, BLD+2*, BLD+4, GET+8*, GET+14* |
IBSRNITM | HDR+5, EXIT+1!, BLD+2*, BLD+4, BLD+26, BLD+27, BLD+28, BLD+29, GET+8*, GET+15* , GET+16*, GET+17*, GET+18* |
IBX | HDR+1~*, HDR+7*, HDR+8*, HDR+13, HDR+14, BLD+1~, BLD+12*, BLD+13*, BLD+14, BLD+15* , BLD+16*, BLD+17*, BLD+18*, BLD+19*, BLD+20*, GET+8~*, GET+9*, GET+10*, GET+15*, GET+16* , GET+17*, GET+18*, GETQ |
IBXRF | SORTCI+4~, SORTCI+6*, SORTCI+10, SORTCI+11, SORTCI+12 |
IBY | HDR+1~*, HDR+8*, HDR+9*, HDR+10*, HDR+11*, HDR+14*, HDR+15, BLD+1~, BLD+11*, BLD+14* , BLD+15*, BLD+16*, BLD+17*, BLD+18*, BLD+20*, BLD+21 |
IBZ | HDR+1~*, HDR+5*, HDR+13, HDR+14 |
U | HDR+3, HDR+5, HDR+7, BLD+12, BLD+13, BLD+15, BLD+16, BLD+17, BLD+18, BLD+19 , BLD+26, BLD+29, SORTCI+13, SORTCI+14, SORTCI+15, GET+10, GET+12 |
>> VALMCNT | BLD+1*, BLD+23, SET+1*, SET+2 |
>> VALMHDR(1 | HDR+1*, HDR+13*, HDR+14* |
>> VALMHDR(2 | HDR+1*, HDR+15* |
>> VALMQUIT | INIT+2*, INIT+3* |
X | HELP+1*, DATE~, DATE+1, SET~, SET+2 |
Y | DATE+1~*, DATE+2 |