IBCNSJ12 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN (CON'T) ; 18-JAN-95
Source file <IBCNSJ12.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 |
|---|---|---|
| GETPL | ; Select an active group plan or add a new one.
; Required variable input: ; IBCNS -- Pointer to the company in file #36 offering the plan ; IBPLAN -- Pointer to the current plan in file #355.3 ; IBFG -- [Optional] -> set to 1 to force creation, if ; necessary, of a group plan |
|
| ADD | ; - propose to add a new plan to which the patient may subscribe
|
|
| NAC(IBPLAN,IBPR,IBDEL,IBQ) | ; Inactivate the plan.
; Input: IBPLAN -- Pointer to the plan in file #355.3 ; IBPR -- Prompt for the Reader call ; IBDEL -- [optional]: set to 1 if the plan may be deleted ; Output: IBQ -- set to 1 if the plan is not inactivated |
|
| NACQ | ||
| MSG(IBCNS,IBPLAN) | ; Send the subscription list to the user.
; Input: IBCNS -- Pointer to the company in file #36 offering the plan ; IBPLAN -- Pointer to the current plan in file #355.3 |
|
| MSGQ |
| Name | Field # of Occurrence |
|---|---|
| ^DIR | NAC+10 |
| $$ANYGP^IBCNSJ | GETPL+14 |
| $$SUBS^IBCNSJ | MSG+25 |
| COV^IBCNSJ | MSG+27 |
| IRACT^IBCNSJ | NAC+11 |
| DEL^IBCNSJ11 | NAC+12 |
| DELP^IBCNSJ11 | NAC+10 |
| NEW^IBCNSJ3 | ADD+4 |
| $$LK^IBCNSM31 | GETPL+17 |
| $$PT^IBEFUNC | MSG+28 |
| $$DAT1^IBOUTL | MSG+39, MSG+40 |
| $$EXPAND^IBTRE | MSG+34 |
| OAD^VADPT | MSG+37 |
| ^XMD | MSG+49 |
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | GETPL+14, MSG+12 |
| ^DPT - [#2] | MSG+32 |
| ^IBA(355.3 - [#355.3] | MSG+6 |
| ^TMP($J | MSG+10!, MSG+12*, MSG+13*, MSG+15*, MSG+16*, MSG+17*, MSG+18*, MSG+19*, MSG+20*, MSG+21* , MSG+24!, MSG+26, MSG+30*, MSG+31, MSG+33*, MSG+35, MSG+41*, MSG+44*, MSG+45*, MSG+46* , MSGQ! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | MSG+4~, MSG+26*, MSG+27, MSG+28, MSG+31, MSG+32 |
| DIR | NAC+6~ |
| DIR("?" | NAC+8* |
| DIR("A" | NAC+9* |
| DIR(0 | NAC+8* |
| DIROUT | NAC+6~ |
| DIRUT | NAC+6~ |
| DTOUT | NAC+6~ |
| DUOUT | NAC+6~ |
| DUZ | MSG+48 |
| IBALR | GETPL+12~, GETPL+13* |
| IBC | MSG+4~, MSG+21*, MSG+30*, MSG+33*, MSG+35, MSG+41, MSG+44*, MSG+45*, MSG+46* |
| IBCDFN | MSG+4~, MSG+31*, MSG+32 |
| IBCDFND | MSG+4~, MSG+32*, MSG+34, MSG+37, MSG+39, MSG+40 |
| IBCNS | GETPL+14, GETPL+17, ADD+4, MSG~, MSG+5, MSG+12, MSG+25 |
| >> IBCPOL | GETPL+13*, GETPL+17*, ADD+1, ADD+4, ADD+5 |
| IBDEL | NAC~, NAC+12 |
| >> IBFG | ADD+4 |
| >> IBM | MSG+28*, MSG+33* |
| >> IBNEWP | ADD+4* |
| IBPLAN | GETPL+13, GETPL+14, NAC~, NAC+7, NAC+11, NAC+12, MSG~, MSG+5, MSG+6, MSG+25 |
| IBPLAND | MSG+4~, MSG+6*, MSG+14, MSG+15 |
| IBPR | NAC~, NAC+9 |
| IBQ | NAC~, NAC+8*, NAC+10* |
| >> IBREP | ADD+2 |
| IBSUB1 | MSG+4~, MSG+25* |
| IBX | MSG+4~, MSG+14*, MSG+15, MSG+35*, MSG+36*, MSG+38*, MSG+39*, MSG+40*, MSG+41 |
| VA | MSG+4~ |
| VAERR | MSG+4~ |
| VAOA | MSG+4~ |
| VAOA("A" | MSG+37* |
| VAOA(9 | MSG+38 |
| >> X | MSG+28*, MSG+29*, MSG+30, MSG+34*, MSG+36 |
| XMDUZ | MSG+4~, MSG+47* |
| XMSUB | MSG+4~, MSG+11* |
| XMTEXT | MSG+4~, MSG+47* |
| XMY | MSG+4~, MSG+48! |
| XMY( | MSG+48* |
| >> Y | NAC+10 |
