IBCEPA ;ALB/WCJ - Provider ID functions - Care Units ;21-OCT-2005
Source file <IBCEPA.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 | 4 | IBCE 2ND PRVCARE ADD IBCE 2ND PRVCARE DELETE IBCE 2ND PRVCARE EDIT IBCE 2ND PRVID CARE UNIT MAINT |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBCE 2ND PRVID CARE UNIT MAINT
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| BLD | ;
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| NEW | ; Add care unit
; Assumes IBINS is defined as ins co ien (file 36) ; IB = 0 or null if called from list manager, 1 if not |
|
| ACU | ||
| NEWQ | ||
| CHANGE | ; Edit care unit
; Assumes IBINS is defined as ins co ien (file 36) |
|
| CHANGEQ | ||
| DEL | ; Delete a Care Unit
; Assumes IBINS is defined as ins co ien (file 36) ; |
|
| DELQ | ||
| DISPMESS(MESS) | ;
|
|
| SEL(DIV) | ; select care unit for a given division
; DIV - name of division ; returns ien of selected care unit, or 0 if nothing is selected |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | ACU+20, ACU+46 |
| LIST^DIC | BLD+11, NEW+20, CHANGE+8, DEL+7 |
| MIX^DIC1 | NEW+13, CHANGE+23, DEL+22 |
| FIELD^DID | ACU+28 |
| ^DIE | ACU+50, CHANGE+29 |
| ^DIK | DEL+43 |
| $$EXTERNAL^DILFD | NEW+10, NEW+16 |
| ^DIR | INIT+4, ACU+12, ACU+38, DEL+32, DEL+37, DISPMESS+4, SEL+10 |
| $$MAIN^IBCEP2B | NEW+9 |
| EN^VALM | EN+1 |
| FULL^VALM1 | NEW+5, CHANGE+3, DEL+3 |
| CLEAN^VALM10 | BLD+1, EXIT+1 |
| SET^VALM10 | BLD+14, BLD+23, BLD+31 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.92 - [#355.92] | EXTERNAL^DILFD |
| ^IBA(355.95 - [#355.95] | Classic Fileman Calls, FIELD^DID, LIST^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | HDR+3 |
| ^IBA(355.92 - [#355.92] | DEL+27 |
| ^TMP("IBPRV_CU" | BLD+2!, BLD+19*, BLD+20, BLD+24, BLD+25, EXIT+2!, SEL+6, SEL+7, SEL+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAREUNIT | ACU+14*, ACU+29, ACU+43, CHANGE+5~, DEL+4~, DEL+25*, DEL+41 |
| D | NEW+3~, NEW+12*, CHANGE+5~, CHANGE+22*, DEL+4~, DEL+21* |
| D0 | BLD+3~, BLD+24*, BLD+25 |
| DA | NEW+3~, ACU+48*, CHANGE+5~, CHANGE+26*, DEL+4~, DEL+41* |
| DD | NEW+3~, CHANGE+5~, DEL+4~ |
| DIC | NEW+3~, NEW+11*, ACU+18!, ACU+19*, ACU+44*, CHANGE+5~, CHANGE+18*, DEL+4~, DEL+17* |
| DIC("A" | NEW+11*, CHANGE+19*, DEL+18* |
| DIC("B" | NEW+11* |
| DIC("DR" | ACU+45* |
| DIC("S" | ACU+19*, ACU+44*, CHANGE+21*, DEL+20* |
| DIC(0 | NEW+11*, ACU+19*, ACU+44*, CHANGE+20*, DEL+19* |
| DIE | NEW+3~, ACU+48*, CHANGE+27* |
| DIK | CHANGE+5~, DEL+4~, DEL+42* |
| DIR | INIT+1~, INIT+4!, NEW+3~, ACU!, ACU+34!, CHANGE+5~, DEL+4~, DEL+32!, DEL+39!, DISPMESS+1~ , SEL+3~ |
| DIR("?" | INIT+3*, ACU+3*, ACU+4*, ACU+5*, ACU+7*, ACU+8*, ACU+9* |
| DIR("A" | INIT+3*, ACU+10*, ACU+35*, DEL+29*, DEL+30*, DEL+31*, DEL+34*, DISPMESS+2*, DISPMESS+3*, SEL+10* |
| DIR("B" | ACU+36*, DEL+35* |
| DIR(0 | INIT+3*, ACU+11*, ACU+37*, DEL+28*, DEL+36*, DISPMESS+2*, SEL+10* |
| >> DIROUT | ACU+13 |
| DIV | BLD+3~, BLD+20*, BLD+21, BLD+24, BLD+25, SEL~, SEL+4, SEL+6, SEL+7, SEL+12 |
| DIVISION | CHANGE+5~, DEL+4~ |
| DIVISION( | CHANGE+15*, DEL+14* |
| DLAYGO | NEW+3~, ACU+44* |
| DO | NEW+3~ |
| DR | NEW+3~, ACU+49*, CHANGE+28* |
| >> DTOUT | INIT+5, ACU+13, SEL+11 |
| >> DUOUT | INIT+5, ACU+13, SEL+11 |
| I | BLD+3~, NEW+18~, ACU+1*, ACU+4*, ACU+5, ACU+7, ACU+8, CHANGE+5~, CHANGE+14*, CHANGE+15 , DEL+13*, DEL+14, SEL+3~, SEL+6*, SEL+7*, SEL+8, SEL+12* |
| IB95 | NEW+3~ |
| IBADD | NEW+3~ |
| >> IBALL | HDR+3 |
| IBCT | BLD+3~, BLD+17*, BLD+22*, BLD+23, BLD+30*, BLD+31 |
| IBDIV | NEW+3~, NEW+15*, NEW+16, ACU+45, CHANGE+5~, CHANGE+25*, DEL+4~, DEL+24* |
| IBDIVNM | NEW+3~, NEW+16*, ACU+35 |
| >> IBINS | HDR+3, INIT+2, INIT+6*, ACU+45 |
| IBOK | NEW+3~ |
| IEN | SEL+3~, SEL+5*, SEL+8*, SEL+12*, SEL+14 |
| >> IN | BLD+25*, BLD+27, BLD+29 |
| MAIN | NEW+3~, NEW+9*, NEW+10*, NEW+11 |
| MAX | SEL+3~, SEL+7*, SEL+8, SEL+9, SEL+10 |
| MESS | NEW+18~, DISPMESS~, DISPMESS+2 |
| MIN | SEL+3~, SEL+6*, SEL+8, SEL+9, SEL+10 |
| MSG | BLD+3~ |
| SCREEN | BLD+3~, BLD+10*, BLD+11, NEW+18~, NEW+19*, NEW+20, CHANGE+5~, CHANGE+7*, CHANGE+8, DEL+4~ , DEL+6*, DEL+7 |
| TAR | BLD+3~, NEW+18~, CHANGE+5~, DEL+4~ |
| TAR("DILIST" | BLD+13, BLD+16, BLD+18, BLD+19, BLD+27, BLD+29, ACU+2, ACU+4, CHANGE+10, CHANGE+14 , CHANGE+15, DEL+9, DEL+13, DEL+14 |
| TAR2 | ACU+27~ |
| TAR2("INPUT T | RANSFORM" , ACU+30 |
| U | HDR+3, CHANGE+26, DEL+25 |
| >> VALMAR | BLD+34 |
| >> VALMBCK | NEWQ*, CHANGEQ*, DELQ* |
| >> VALMBG | BLD+5* |
| >> VALMCNT | BLD+18*, BLD+19, BLD+34* |
| VALMHDR | HDR+1! |
| VALMHDR(1 | HDR+2* |
| VALMHDR(2 | HDR+3* |
| >> VALMQUIT | INIT+2* |
| X | HELP+1*, NEW+3~, ACU+13, ACU+14, ACU+29*, ACU+31, ACU+35, ACU+43*, CHANGE+5~, DEL+4~ , DISPMESS+1~, SEL+3~ |
| Y | INIT+1~, INIT+2, INIT+5*, INIT+6, NEW+3~, NEW+14, NEW+15, ACU+23, ACU+39, ACU+40 , ACU+47, ACU+48, CHANGE+5~, CHANGE+24, CHANGE+25, CHANGE+26, DEL+4~, DEL+23, DEL+24, DEL+25 , DEL+27, DEL+38, DISPMESS+1~, SEL+3~, SEL+12 |
| Z | BLD+3~, BLD+21*, BLD+23, BLD+26*, BLD+27*, BLD+28*, BLD+29*, BLD+31, NEW+3~, CHANGE+5~ , DEL+4~ |