IBCNSMM2 ;ALB/CMS -MEDICARE INSURANCE INTAKE (CONT) ; 18-MAY-99
Source file <IBCNSMM2.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | D^DIQ ^DIR |
Integrated Billing | 1 | OK^IBCNSMM1 |
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 | 1 | IBCNSMM |
Name | Comments | DBIA/ICR reference |
---|---|---|
MII | ; -- Ask Medicare Insurance Card questions
; ; Output Variables: ; IBNAME = Name of Insured ; IBHICN = Subscriber ID as of IB*601 could also be a MBI Number ; IBAEFF = Effective Date for Part A ; IBBEFF = Effective Date for Part B ; IBCOB/IBCOBI = Coordination of Benefits ; IBQUIT=1 User timed-out or entered ^ |
|
MIIA | ; -- Ask user for Information
|
|
MIIPB | ; - don't allow editing Part B date if more than one policy
|
|
MIIC | ; - check effective dates before COB prompt
|
|
MIIQ | ||
HICH | ; Help text for the HIC number prompt.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | MIIA+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | MIIA+4 |
DIR | MII+10~, MIIA+7!, MIIA+18!, MIIA+30!, MIIPB+8!, MIIC+11!, MIIC+16! |
DIR("?" | MIIA+6*, MIIA+17*, MIIA+29*, MIIPB+7*, MIIC+10* |
DIR("A" | MIIA+2*, MIIA+11*, MIIA+24*, MIIPB+2*, MIIC+5* |
DIR("B" | MIIA+4*, MIIA+13*, MIIA+14*, MIIA+26*, MIIA+27*, MIIPB+4*, MIIPB+5*, MIIC+8* |
DIR(0 | MIIA+5*, MIIA+16*, MIIA+28*, MIIPB+6*, MIIC+9* |
DIROUT | MII+10~, MIIA+8!, MIIA+19!, MIIA+31!, MIIPB+9!, MIIC+12! |
DIRUT | MII+10~, MIIA+8!, MIIA+19!, MIIA+31!, MIIPB+9!, MIIC+12! |
DTOUT | MII+10~, MIIA+8!, MIIA+19!, MIIA+31!, MIIPB+9!, MIIC+12! |
DUOUT | MII+10~, MIIA+8!, MIIA+19!, MIIA+31!, MIIPB+9!, MIIC+12! |
>> IBAEFF | MIIA+26, MIIA+32*, MIIC+1 |
>> IBARR("A" | MIIA+3, MIIA+12, MIIA+23, MIIA+25, MIIC+6 |
>> IBARR("B" | MIIA+3, MIIA+12, MIIPB+1, MIIPB+3, MIIC+6 |
>> IBBEFF | MIIPB+4, MIIPB+10*, MIIC+1 |
>> IBCOB | MIIC+8, MIIC+13* |
>> IBCOBI | MIIC+13* |
>> IBHICN | MIIA+13, MIIA+20* |
>> IBNAME | MIIA+4, MIIA+9* |
>> IBOK | MIIC+16*, MIIC+17 |
>> IBPOLA | MIIA+23 |
>> IBPOLB | MIIPB+1 |
>> IBQUIT | MIIA+8*, MIIA+19*, MIIA+31*, MIIPB+9*, MIIC+1*, MIIC+12*, MIIC+17* |
IBX | MII+10~, MIIA+3*, MIIA+4, MIIA+12*, MIIA+14, MIIA+25*, MIIA+27, MIIPB+3*, MIIPB+5, MIIC+6* , MIIC+7*, MIIC+8 |
U | MIIA+4 |
X | MII+10~ |
Y | MII+10~, MIIA+9, MIIA+20, MIIA+26*, MIIA+27*, MIIA+32, MIIPB+4*, MIIPB+5*, MIIPB+10, MIIC+13 , MIIC+16! |