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