IBCNRRP1 ;BHAM ISC/CMW - Group Plan Worksheet Report ;03-MAR-2004
Source file <IBCNRRP1.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 | 1 | IBCNR GROUP PLAN WORKSHEET |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
; Initialize variables |
|
P10 | ||
P30 | ||
P40 | ||
P100 | ||
EXIT | ; Quit this routine
; unlock global |
|
RESORT(RESORT) | ; check for prior compile
|
|
RESRTX | ;RESORT EXIT
|
|
COMPILE(IBCNRRTN,IBCNRSPC) | ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input params: ; IBCNRRTN = Routine name for ^TMP(... ; IBCNRSPC = Array passed by ref of the report params |
|
COMPILX | ; COMPILE exit pt
|
|
STOP() | ; Determine if user wants to exit out of the whole option
; Init vars |
|
STOPX | ; STOP exit pt
|
|
DTRANGE | ; Determine start and end dates for date range param
; Init vars |
|
DTRANG1 | ||
DTRANGX | ; DTRANGE exit pt
|
|
SORT | ; Prompt to allow users to sort the report
; by Insurance/Group, Max claims, Max charges |
|
SORTX | ; SORT exit point
|
|
DEVICE(IBCNRRTN,IBCNRSPC) | ; Device Handler and possible TaskManager calls
|
|
DEVICEX | ; DEVICE exit pt
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDT | RESORT+1~, RESORT+4*, RESORT+5, RESORT+16 |
DIR | RESORT+1~, RESORT+12!, STOP+2~, STOP+10!, DTRANGE+10!, DTRANG1+5!, SORT+2~, SORT+11!, SORT+19! |
DIR("?" | RESORT+10*, RESORT+11*, STOP+8*, STOP+9*, DTRANGE+8*, DTRANGE+9*, DTRANG1+2*, DTRANG1+3*, DTRANG1+4*, SORT+7* , SORT+8*, SORT+9*, SORT+10* |
DIR("A" | RESORT+8*, STOP+6*, DTRANGE+7*, DTRANG1+1*, SORT+5*, SORT+17* |
DIR("B" | RESORT+9*, STOP+7*, SORT+6*, SORT+18* |
DIR(0 | RESORT+7*, STOP+5*, DTRANGE+6*, DTRANG1*, SORT+4*, SORT+16* |
DIRUT | RESORT+1~, RESORT+13, STOP+2~, STOP+11, DTRANGE+2~, DTRANGE+11, DTRANG1+6, SORT+2~, SORT+12, SORT+20 |
EDT | RESORT+1~, RESORT+4*, RESORT+5, RESORT+17 |
HDR | RESORT+1~, RESORT+5*, RESORT+6 |
IBCNRRTN | EN+2~, EN+6*, EN+16, P10+2, P100, EXIT+2, RESORT+2, RESORT+3, COMPILE~, COMPILE+9 , COMPILE+12, DEVICE~, DEVICE+10 |
IBCNRSPC | EN+2~, P100, COMPILE~, COMPILE+9, COMPILE+12, DEVICE~ |
IBCNRSPC("BEGDT" | RESORT+16*, DTRANGE+12*, DTRANG1+7 |
IBCNRSPC("ENDDT" | RESORT+17*, DTRANG1+10* |
IBCNRSPC("MATCH" | SORT+21* |
IBCNRSPC("RESORT" | RESORT+15*, COMPILE+7 |
IBCNRSPC("SORT" | SORT+13* |
IBDT | RESORT+1~, RESORT+3*, RESORT+4 |
IBPXT | EN+5*, P100, EXIT+3! |
IOF | EN+3, EN+7 |
POP | DEVICE+7~, DEVICE+15 |
RDT | RESORT+1~, RESORT+4*, RESORT+6 |
RESORT | EN+2~, P10, P10+1, RESORT~, RESORT+4*, RESORT+14* |
STOP | EN+2~, EN+5*, P10, P30, P40, P100, RESORT+13*, STOP+11*, STOP+12*, DTRANGE+11* , DTRANG1+6*, SORT+12*, SORT+20*, DEVICE+15* |
U | RESORT+4 |
X | RESORT+1~, STOP+2~, DTRANGE+2~, SORT+2~ |
Y | RESORT+1~, RESORT+14, RESORT+15, STOP+2~, STOP+11*, STOP+12, STOPX+1, DTRANGE+2~, DTRANGE+12, DTRANG1+7 , DTRANG1+10, SORT+2~, SORT+13, SORT+21 |
ZTDESC | DEVICE+7~, DEVICE+11*, DEVICE+14 |
>> ZTQUEUED | COMPILE+17 |
>> ZTREQ | COMPILE+17* |
ZTRTN | DEVICE+7~, DEVICE+10*, DEVICE+14 |
ZTSAVE | DEVICE+7~, DEVICE+14 |
ZTSAVE("IBCNRRTN" | DEVICE+13* |
ZTSAVE("IBCNRSPC(" | DEVICE+12* |
>> ZTSTOP | COMPILE+11 |