IBTRE5 ;ALB/AAS - CLAIMS TRACKING EDIT PROVIDER ; 1-SEP-93
Source file <IBTRE5.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(IBTRN) | ; -- entry point for protocols
; must do own rebuild actions ; -- Input - pointer to 356 |
|
ENQ | ;
|
|
APRVD(IBTRN,IBETYP) | ; -- add admitting provider
|
|
APRVDQ | ||
PRVD(IBTRN,IBETYP) | ; -- add/edit provider
|
|
PRVDQ | ||
ADD(IBTRN,TYPE) | ; -- Add a new provider
|
|
NXT | ||
ADDQ | ||
NEW(VA200,IBTRN,TYPE) | ; -- file new entry
|
|
NEWQ | ||
EDT(IBAPR,IBDR) | ; -- edit entry
|
|
EDTQ | ||
SET(IBTRN) | ; -- set array
|
|
SETQ | ||
LIST(IBXY) | ;List Provider Array
; Input -- IBXY Provider Array Subscripted by a Number ; Output -- List Provider Array |
|
DICS(Y) | ; -- called by input transform and screen logic for type of provider
|
|
DICSQ | ||
DTCHK(DA,X) | ; -- input transform for 356.94;.01. date not before admission or after discharge
|
|
DTCHKQ |
Name | Field # of Occurrence |
---|---|
ENDR^%ZISS | APRVD+7, PRVD+6 |
^DIC | NXT+3 |
FILE^DICN | NEW+7 |
^DIE | EDT+7 |
IX1^DIK | NEW+8 |
$$DAT1^IBOUTL | LIST+8 |
$$CDT^IBTODD1 | DTCHK+6 |
LOCKED^IBTRCD1 | EDT+6 |
^IBTRE | % |
$$EXPAND^IBTRE | LIST+8 |
$$TRTP^IBTRE1 | EN+9 |
$$DGPM^IBTRE3 | NEW+8, SET+2 |
$$ASK^IBTRE4 | PRVD+9 |
ASK^IBTUTL4 | EN+14 |
FULL^VALM1 | EN+5 |
PAUSE^VALM1 | EN+10, EN+15, APRVD+5, PRVD+4 |
$$FMADD^XLFDT | DTCHK+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^IBT(356.94 - [#356.94] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBT(356 - [#356] | EN+7, NEW+5, DTCHK+4 |
^IBT(356.94 - [#356.94] | EN+22, APRVD+8, APRVD+11, NEW+8*, EDT+5, EDT+6, EDT+8, SET+4, SET+5, LIST+6 , DICS+4, DTCHK+4 |
^VA(200 - [#200] | APRVD+9, LIST+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | APRVD+2~, PRVD+3~, NEW+2~, NEW+8*, EDT+2~, EDT+4*, EDT+5, DICS+4, DTCHK~, DTCHK+3 , DTCHK+4 |
DD | APRVD+2~, NEW+2~ |
DIC | APRVD+2~, PRVD+3~, ADD+2~, NXT+2*, NXT+3!, NEW+2~, NEW+6* |
DIC("A" | NXT* |
DIC("S" | NXT+1* |
DIC(0 | NXT+2*, NEW+6* |
DIDEL | EDT+2~, EDT+3* |
DIE | APRVD+2~, PRVD+3~, EDT+2~, EDT+4* |
DIK | NEW+2~, NEW+6* |
DINUM | NEW+2~ |
DLAYGO | NEW+2~, NEW+6* |
DO | APRVD+2~, NEW+2~ |
DR | APRVD+2~, PRVD+3~, EDT+2~, EDT+3* |
DT | DTCHK+9 |
DTOUT | ADD+2~, ADDQ |
>> DUOUT | ADDQ |
DUTOU | ADD+2~ |
I | NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+8 |
IBAPR | APRVD+2~, APRVD+3*, APRVD+8*, APRVD+9, APRVD+10, NXT+5*, NXT+6, NEW+7*, NEW+8, NEWQ , EDT~, EDT+4, EDT+6, EDT+8 |
IBCDT | DTCHK+1~, DTCHK+6*, DTCHK+7, DTCHK+8 |
IBCNT | EN+4~, PRVD+9, ADD+3*, NXT, NXT+3, NXT+4*, SET+3*, SET+6*, SET+7 |
>> IBDA | APRVD+8*, APRVD+10, SET+4*, SET+5, SET+7 |
IBDGPM | EN+4~, EN+7*, EN+20, EN+22, APRVD+5, APRVD+8, APRVD+11, PRVD+4, SET+1~, SET+2* , SET+4 |
IBDR | EDT~, EDT+3 |
IBETYP | EN+4~, EN+9*, EN+10, EN+13, EN+19, EN+22, EN+26, APRVD~, APRVD+5, PRVD~ , PRVD+2, PRVD+4 |
IBOK | DTCHK+1~, DTCHK+2*, DTCHK+7*, DTCHK+8*, DTCHK+9*, DTCHKQ |
IBPRV | SET+1~, SET+3*, SET+4* |
>> IBQUIT | PRVD+10* |
>> IBSEL | EN+23, PRVD+8*, PRVD+9*, PRVD+10, PRVD+11, PRVD+12, ADDQ* |
IBTNOD | LIST+3~, LIST+6*, LIST+7, LIST+8 |
IBTRN | EN~, EN+7, EN+9, EN+14, EN+22, EN+26, APRVD~, APRVD+11, PRVD~, PRVD+1 , PRVD+9, PRVD+11, ADD~, NXT+5, NEW~, NEW+5, NEW+8, SET~, SET+2, DTCHK+1~ , DTCHK+4*, DTCHK+5, DTCHK+6 |
IBTRND | EN+4~, EN+7*, EN+14, EN+15 |
IBXD | LIST+3~, LIST+7*, LIST+8 |
IBXY | EN+4~, PRVD+9, LIST~ |
IBXY( | PRVD+12, SET+7*, LIST+5, LIST+6 |
IBY | DICS+1~, DICS+2*, DICS+3*, DICS+4*, DICSQ |
IOINHI | APRVD+2~, APRVD+9, PRVD+7 |
IOINORM | APRVD+2~, APRVD+9, PRVD+7 |
J | NEW+2~ |
TYPE | ADD~, ADD+4*, NXT, NXT+5, NXT+6, NEW~, NEW+8 |
U | DICS+4 |
VA200 | NEW~, NEW+8 |
>> VALMBCK | EN+6*, EN+16*, EN+27* |
X | APRVD+7*, PRVD+6*, ADD+2~, NXT+2*, NEW+2~, NEW+5*, DTCHK~, DTCHK+3, DTCHK+7, DTCHK+8 , DTCHK+9 |
Y | ADD+2~, NXT+3, NXT+5, NEW+2~, NEW+7, DICS~, DICS+3, DICS+4 |