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