IBCNINSL ;AITC/TAZ/VAD - GENERAL INSURANCE UTILITIES - LOOKUP ;8/20/20 12:46p.m.
Source file <IBCNINSL.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 |
|---|---|---|
| DIVISION | ;
|
|
| CLINIC | ;
|
|
| PATIENT | ;
|
|
| INST(ARRAY,PROMPT) | ; Institution/Facility Lookup
|
|
| INSTS(IEN) | ;Screen for Institution IA #2171
|
|
| INSTSQ | ;Exit Screen
|
|
| PAYER(APP,ARRAY) | ;Payer Lookup
|
|
| LOOKUP(FILE,IBPROMPT,ARRAY,IBALL,IBONE,SCREEN) | ; Perform a lookup on the selected Dictionary
|
|
| FIRST | ||
| SET | ;Set into or remove from ARRAY
|
|
| SETQ | ;
|
|
| ;Display Help
|
||
| ERR | ||
| QUIT |
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | LOOKUP+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APP | PAYER~, PAYER+8 |
| ARRAY | INST~, INST+8*, INSTS+7~, PAYER~, PAYER+10*, LOOKUP~, LOOKUP+15*, LOOKUP+16*, FIRST+3, SET+4 , SET+6, SET+7, SET+8, SET+9, SET+10, QQ+7, QQ+10 |
| DIC | LOOKUP+14~, FIRST+1*, FIRST+4*, FIRST+19*, QQ+1~, QQ+12* |
| DIC("S" | FIRST+1*, FIRST+5*, FIRST+20*, QQ+12* |
| DIC(0 | FIRST+1*, FIRST+4*, FIRST+19*, QQ+12* |
| DIR | LOOKUP+14~, FIRST+2!, FIRST+15! |
| DIR("?" | FIRST*, FIRST+14* |
| DIR("A" | FIRST*, FIRST+14* |
| DIR("B" | FIRST* |
| DIR(0 | FIRST*, FIRST+14* |
| FAC | INST+5~, INST+8 |
| FILE | LOOKUP~, FIRST+1, FIRST+4, FIRST+19, QQ+12 |
| IBALL | LOOKUP~, FIRST, FIRST+3, FIRST+9*, QQ+4 |
| IBI | LOOKUP+14~, LOOKUP+16*, FIRST+6*, FIRST+12* |
| IBJ | QQ+1~, QQ+10* |
| IBJ1 | QQ+1~, QQ+10* |
| IBONE | LOOKUP~, FIRST+8 |
| IBPROMPT | LOOKUP~, LOOKUP+15, FIRST, FIRST+14, SET+7, QQ+2, QQ+5 |
| IBUTNI | INST+5~, PAYER+7~, LOOKUP+16*, SET+3, SET+8, SET+9, QQ+10 |
| IEN | INSTS~, INSTS+9, INSTS+10, INSTS+11 |
| J | SET+1~, SET+3*, SET+4, SET+6 |
| OK | INSTS+7~, INSTS+8*, INSTS+13*, INSTSQ+1 |
| PAYER | PAYER+7~, PAYER+10 |
| PRNT | INSTS+7~, INSTS+12*, INSTS+13 |
| PROMPT | INST~, INST+7, QQ+1~, QQ+2*, QQ+4, QQ+6 |
| PSTA | INSTS+7~, INSTS+12*, INSTS+13 |
| QUIT | LOOKUP+14~, LOOKUP+16*, FIRST+12, FIRST+16* |
| REMOVE | LOOKUP+14~, FIRST+13*, FIRST+18*, SET+2 |
| SCREEN | INST+6*, INST+7, PAYER+7~, PAYER+8*, PAYER+9, LOOKUP~, FIRST+1, FIRST+5, FIRST+20, QQ+12 |
| STA | INSTS+7~, INSTS+10*, INSTS+12, INSTS+13 |
| U | INSTS+12, SET+7, SET+8, SET+9, SET+10 |
| X | LOOKUP+14~, FIRST+3, FIRST+6*, FIRST+16, FIRST+17, FIRST+18* |
| Y | LOOKUP+14~, LOOKUP+16*, FIRST+6, FIRST+21, SET+3, SET+7, SET+8, SET+9, SET+10, ERR* , QUIT* |
| Y(0 | SET+3, SET+7, SET+8, SET+9, SET+10 |