IBCEP0 ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
Source file <IBCEP0.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 | 10 | IBCE PRVFAC MAINT IBCE PRVINS FROM INS MAINT IBCE PRVINS ID IBCE PRVINS ID FROM INS MAINT IBCEP0A IBCEP1 IBCEP3 IBCEP4 IBCEP6 IBCEP9 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBCE PRV INS ID
|
|
EN1(IBINS) | ; Entrypoint from insurance co maintenance
|
|
HDR | ; -- header code
|
|
INIT | ; Initialization
|
|
INSID(IBINS,IBDSP,IBSORT) | ;
|
|
INSIDQ | ||
BLD(IBINS,IBDSP,IBSORT) | ; Build display for Insurance co level provider ID's
|
|
BLDQ | ||
EXPND | ;
|
|
HELP | ;
|
|
EXIT | ;
|
|
SEL(IBDA,MANY) | ; Select from provider id list
; IBDA is passed by reference and IBDA(1) returned containing ; ien's of the provider id records selected (file 355.9). ; If > 1 entry can be selected, MANY is set to 1 |
|
ENX(IBINS1) | ; Insurance co level defaults for all providers or
; for all providers by care unit |
|
ENQ | ||
PPTYP(IBINS) | ; Returns the ien of the default performing provider type for
; insurance company IBINS (ien file 36) |
|
SCREEN(WHICH) | ; This screen is used the menu protocol to screen out the ID functions if it is a child ins co
|
Name | Field # of Occurrence |
---|---|
^DIC | INSID+4, INSID+40, ENX+4 |
^DIE | ENX+6 |
GETS^DIQ | SCREEN+5, SCREEN+12 |
^DIR | INSID+15, INSID+33, INSID+47 |
$$EMCID^IBCEP | HDR+12 |
COPYPROV^IBCEP5A | EXIT+2 |
$$EXPAND^IBTRE | BLD+17, BLD+18, BLD+27, BLD+35, BLD+48 |
EN^VALM | EN+4, EN1+3 |
FULL^VALM1 | EN+3, EN1+2 |
CLEAN^VALM10 | EXIT+4 |
SET^VALM10 | BLD+26, BLD+27, BLD+40, BLD+46, BLD+49 |
EN^VALM2 | SEL+6 |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBA(355.91 - [#355.91] | Classic Fileman Calls |
^IBE(355.97 - [#355.97] | Classic Fileman Calls |
^DIC(36 - [#36] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | HDR+6, HDR+8, PPTYP+2, SCREEN+17 |
^IBA(355.9 - [#355.9] | BLD+14 |
^IBA(355.91 - [#355.91] | BLD+7, BLD+8, BLD+9 |
^IBA(355.95 - [#355.95] | BLD+39 |
^IBA(355.96 - [#355.96] | HDR+17, BLD+39 |
^TMP("IBPRV_INS_ID" | BLD+2!, BLD+41*, BLD+42, EXIT+3!, SEL+7 |
^TMP("IBPRV_INS_SORT" | BLD+2!, BLD+9*, BLD+19*, BLD+22, BLD+24, BLD+30, BLD+31, BLD+43! |
^TMP("IB_EDITED_IDS" | INIT+1! |
Name | Field # of Occurrence |
---|---|
^( | BLD+31, BLD+41*, BLD+42*, SEL+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CT | BLD+1~, BLD+8*, BLD+9, BLD+30*, BLD+31, BLD+38 |
CU | BLD+1~, BLD+7*, BLD+8, BLD+9, BLD+31*, BLD+39 |
DA | INSID+1~, INSID+45~, ENX+2~, ENX+6*, SCREEN+1, SCREEN+4 |
DA(1 | SCREEN+2, SCREEN+4 |
DIC | INSID+1~, INSID+4*, INSID+38*, INSID+40!, ENX+2~, ENX+4* |
DIC("A" | INSID+39* |
DIC("S" | INSID+38* |
DIC(0 | INSID+4*, INSID+38*, ENX+4* |
DIE | ENX+2~, ENX+6* |
DIR | INSID+1~, INSID+15!, INSID+33!, INSID+47! |
DIR("?" | INSID+12*, INSID+13*, INSID+14*, INSID+22*, INSID+23*, INSID+28*, INSID+29* |
DIR("A" | INSID+11*, INSID+21*, INSID+27*, INSID+46* |
DIR("B" | INSID+11*, INSID+32* |
DIR(0 | INSID+10*, INSID+32*, INSID+46* |
DLAYGO | ENX+2~, ENX+4* |
DR | ENX+2~, ENX+6* |
DTOUT | INSID+1~, INSID+16, INSID+34, INSID+42, INSID+49 |
DUOUT | INSID+1~, INSID+16, INSID+34, INSID+42, INSID+49 |
FIELD | SCREEN+3~, SCREEN+4*, SCREEN+5, SCREEN+8, SCREEN+10*, SCREEN+12, SCREEN+14 |
FILE | SCREEN+3~, SCREEN+4*, SCREEN+5, SCREEN+8, SCREEN+10*, SCREEN+12, SCREEN+14 |
FLAG | SCREEN+3~, SCREEN+4*, SCREEN+5, SCREEN+8, SCREEN+10*, SCREEN+12, SCREEN+14 |
FT | BLD+1~, BLD+7*, BLD+8, BLD+9, BLD+30*, BLD+31, BLD+38 |
IB | BLD+1~, BLD+9*, BLD+14*, BLD+15, BLD+16, BLD+17, BLD+18, BLD+19, BLD+31*, BLD+40 , BLD+41 |
IB1 | BLD+13~, BLD+17*, BLD+19 |
IB2 | BLD+13~, BLD+18*, BLD+19 |
IBCT | HDR+1~, HDR+2*, HDR+19*, HDR+20, HDR+21*, HDR+22*, BLD+1~, BLD+4*, BLD+26, BLD+27 , BLD+32*, BLD+33, BLD+40, BLD+41 |
IBDA | SEL~, SEL+5*, SEL+7* |
IBDA( | SEL+7* |
IBDSP | EN+1~, EN1+1~, HDR+13, HDR+22, INIT+2, INIT+3, INSID~, INSID+17*, INSID+18, INSID+20 , INSID+26, INSID+37, INSID+44, INSID+53, BLD~, BLD+6, BLD+8, BLD+11, BLD+16, BLD+17 , BLD+18, BLD+27, BLD+34, BLD+35, BLD+42, BLD+47, BLD+48 |
IBEMCTYP | HDR+1~, HDR+12*, HDR+13, HDR+15*, HDR+16, HDR+17 |
IBENT | BLD+1~, BLD+4* |
IBFASTXT | EN+2!, EXIT+1! |
IBINS | EN+1~, EN1~, HDR+4, HDR+6, HDR+8, HDR+10, HDR+17, INIT+2, INIT+4, INSID~ , INSID+3, INSID+6*, INSID+7, INSID+53, BLD~, BLD+7, BLD+8, BLD+9, BLD+14, EXIT+2 , PPTYP~, PPTYP+2, SCREEN+15, SCREEN+17 |
IBINS1 | ENX~, ENX+3, ENX+5*, ENX+6 |
IBLCT | BLD+1~, BLD+4*, BLD+26*, BLD+27*, BLD+32*, BLD+40, BLD+42, BLD+45, BLD+50*, BLDQ |
IBOK | INSID+1~, INSID+2*, INSID+5*, INSID+7*, INSID+8, INSID+16*, INSID+18, INSID+34*, INSID+42*, INSID+49* , INSID+50*, INSID+52, INSIDQ |
IBOSRT1 | BLD+1~, BLD+21*, BLD+25, BLD+26, BLD+28* |
IBOSRT2 | BLD+1~, BLD+23*, BLD+34, BLD+35, BLD+36* |
IBPPTYP | HDR+1~, HDR+10*, HDR+13, HDR+15, HDR+16*, HDR+17 |
IBPRV | EN+1~, INIT+3*, BLD+1~, BLD+12*, BLD+14*, BLD+16, BLD+17, BLD+18, BLD+19 |
IBSORT | EN+1~, EN1+1~, HDR+13, HDR+15, HDR+16, INIT+2, INIT+3, INSID~, INSID+17*, INSID+18 , INSID+35*, INSID+41*, INSID+48*, INSID+53, BLD~, BLD+8, BLD+16, BLD+48 |
IBSRT1 | BLD+1~, BLD+22*, BLD+24, BLD+25, BLD+27, BLD+28, BLD+30, BLD+31, BLD+42 |
IBSRT2 | BLD+1~, BLD+23*, BLD+24*, BLD+27, BLD+30, BLD+31, BLD+34, BLD+35, BLD+36 |
IEN | SCREEN+7~, SCREEN+8*, SCREEN+9, SCREEN+12, SCREEN+14 |
IENS | SCREEN+3~, SCREEN+4*, SCREEN+5, SCREEN+8 |
MANY | SEL~, SEL+6 |
PCDISP | HDR+5~, HDR+7*, HDR+8 |
PCF | HDR+5~, HDR+6*, HDR+7, SCREEN+16~, SCREEN+17*, SCREEN+18 |
PT | BLD+1~, BLD+8*, BLD+9 |
TARGET | SCREEN+3~, SCREEN+6, SCREEN+11!, SCREEN+13 |
TARGET( | SCREEN+8, SCREEN+14 |
U | HDR+6, HDR+8, BLD+9, BLD+15, BLD+16, BLD+17, BLD+18, BLD+19, BLD+27, BLD+34 , BLD+39, BLD+40, BLD+41, SEL+7, SCREEN+17 |
>> VALMBG | BLDQ* |
>> VALMCNT | BLDQ* |
VALMHDR | HDR+3! |
VALMHDR( | HDR+20*, HDR+21*, HDR+22* |
VALMHDR(1 | HDR+8* |
>> VALMQUIT | INIT+4*, INSIDQ* |
>> VALMY( | SEL+7 |
WHICH | SCREEN~, SCREEN+14 |
X | INSID+1~, ENX+2~ |
>> XQORNOD(0 | SEL+6 |
Y | INSID+1~, INSID+5, INSID+6, INSID+16, INSID+17, INSID+35, INSID+41, INSID+48, ENX+2~, ENX+5 |
Z | HDR+1~, BLD+1~, BLD+9*, BLD+14*, BLD+19, BLD+31*, BLD+41, BLD+47*, BLD+48*, BLD+49 , SEL+4~, SEL+7* |
Z( | HDR+17* |
Z("E" | HDR+18, HDR+20, HDR+21 |
Z("P" | HDR+18, HDR+20, HDR+21 |
Z0 | HDR+1~, HDR+17*, BLD+1~, BLD+33*, BLD+34*, BLD+35*, BLD+38*, BLD+39*, BLD+40 |
Z1 | HDR+1~, HDR+17* |