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 |
| 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 |