IBCMDT ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (DRIVER) ; 10-APR-15
Source file <IBCMDT.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 | ; Main Entry point.
; Initialize variables. |
|
| C0 | ; Start the Insurance Company Prompts.
|
|
| C10 | ||
| FILTERS | ; Begin the Filtering Questions.
|
|
| F0 | ; Start of Filters.
|
|
| F10 | ||
| F20 | ||
| F30 | ||
| F40 | ||
| F50 | ||
| F60 | ||
| F70 | ||
| F100 | ||
| EXIT | ; Exit point
|
|
| STOP() | ; Determine if user wants to exit out of the whole option
; Initialize Variables |
|
| STOPX | ; STOP Exit Point
|
|
| START | ; Gather the Insurance Companies and respective Plans
|
|
| GTSEL | ; Gather plans for all selected companies.
|
|
| GTALL | ; - gather all companies if required
|
|
| GTPLNS | ; - gather plans for selected companies
|
|
| STARTQ | ;
|
|
| DEVICE(IBMDTSPC) | ; Device Handler and possible TaskManager calls
; Input: IBMDTSPC - Array passed by reference of the report parameters ; See top of routine for a detailed explanation |
|
| DEVICEX | ; DEVICE Exit Point
|
|
| COMPILE(IBMDTSPC) | ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input: IBMDTSPC - Array passed by reference of the report parameters ; See top of routine for a detailed explanation |
|
| COMPILX | ; COMPILE Exit Point
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | GTSEL+11, GTALL+7 |
| ^DIR | STOP+10 |
| SLAI^IBCMDT1 | C10 |
| SLBIN^IBCMDT1 | F60 |
| SLCLM^IBCMDT1 | F50 |
| SLEPT^IBCMDT1 | F40 |
| SLGRN^IBCMDT1 | F10 |
| SLPCN^IBCMDT1 | F70 |
| SLPTY^IBCMDT1 | F20 |
| SLTFT^IBCMDT1 | F30 |
| EN^IBCMDT2 | COMPILE+23 |
| EN^IBCMDT3 | COMPILE+25 |
| EN^IBCNILK | GTSEL+6 |
| PAUSE^VALM1 | F70+8 |
| EN^XUTMDEVQ | DEVICE+13 |
| 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 |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$STOP | F10+1, F20+1, F30+1, F40+1, F50+1, F60+1, F70+1 |
| C0 | F10+1 |
| DEVICE | F100 |
| EXIT | C10+1, C10+6, C10+7, F10+1, F20+1, F30+1, F40+1, F50+1, F60+1, F70+1 , F70+6, F100+1 |
| F10 | F20+1 |
| F20 | F30+1 |
| F30 | F40+1 |
| F40 | F50+1 |
| F50 | F60+1 |
| F60 | F70+1 |
| FILTERS | F70+6 |
| GTALL | START+2 |
| GTPLNS | START+1, START+2 |
| GTSEL | START+1 |
| START | C10+5 |
| STARTQ | START+1, START+3 |
| STOPX | STOP+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CRT | COMPILE+7~* |
| DIR | STOP+2~, STOP+10! |
| DIR("?" | STOP+8*, STOP+9* |
| DIR("A" | STOP+6* |
| DIR("B" | STOP+7* |
| DIR(0 | STOP+5* |
| DIRUT | STOP+2~, STOP+11 |
| >> DUOUT | F70+6 |
| FLTRS | COMPILE+5~, COMPILE+9* |
| I | DEVICE+4~ |
| IBAI | EN+2~, C10+4*, START+1, COMPILE+5~, COMPILE+10* |
| IBAPL | COMPILE+5~, COMPILE+11* |
| IBBIN | COMPILE+5~, COMPILE+17* |
| IBCLM | COMPILE+5~, COMPILE+16* |
| IBCNS | GTSEL+1~, GTSEL+8*, GTSEL+9*, GTSEL+11, GTSEL+12, GTALL+1~, GTALL+5*, GTALL+6*, GTALL+7, GTALL+8 , GTPLNS+1~, GTPLNS+4*, GTPLNS+5*, GTPLNS+7, GTPLNS+8, STARTQ+1! |
| IBCT | GTSEL+2*, STARTQ+1! |
| IBEPT | COMPILE+5~, COMPILE+15* |
| IBGRN | COMPILE+5~, COMPILE+12* |
| IBIC | GTSEL+1~, GTSEL+11*, GTSEL+12, GTPLNS+1~, GTPLNS+2*, GTPLNS+3*, GTPLNS+5, GTPLNS+8, STARTQ+1! |
| IBIC1 | GTALL+1~, GTALL+3*, GTALL+4*, GTALL+6, GTALL+8 |
| IBMDTSPC | EN+2~, C0+1!, F100, DEVICE~, COMPILE~ |
| IBMDTSPC("FLTRS" | F0+1*, F10+4*, F20+3, F20+4*, F30+3, F30+4*, F40+3, F40+4*, F50+2*, F60+3 , F60+4*, F70+3, F70+4*, F70+6, F70+10, COMPILE+9 |
| IBMDTSPC("IBAI" | C10+4, COMPILE+10 |
| IBMDTSPC("IBAPL" | COMPILE+11 |
| IBMDTSPC("IBBIN" | F60+2, COMPILE+17 |
| IBMDTSPC("IBCLM" | F50+2, F70+9, COMPILE+16 |
| IBMDTSPC("IBEPT" | F40+2, COMPILE+15 |
| IBMDTSPC("IBGRN" | F10+2, COMPILE+12 |
| IBMDTSPC("IBNMSPC" | C0+2*, COMPILE+18 |
| IBMDTSPC("IBPCN" | F70+2, COMPILE+19 |
| IBMDTSPC("IBPTY" | F20+2, COMPILE+13 |
| IBMDTSPC("IBTFT" | F30+2, COMPILE+14 |
| IBMDTSPC("SUBHD" | F0+2*, F10+3*, F20+3*, F30+3*, F40+3*, F60+3*, F70+3*, F70+10*, F70+11*, COMPILE+20 |
| IBNMSPC | COMPILE+5~, COMPILE+18* |
| IBP | GTPLNS+1~, GTPLNS+6*, GTPLNS+7*, GTPLNS+8, STARTQ+1! |
| IBPCN | COMPILE+5~, COMPILE+19* |
| IBPTY | COMPILE+5~, COMPILE+13* |
| IBQUIT | C10+3~*, C10+6, GTSEL+2*, GTSEL+7*, GTPLNS+3, GTPLNS+5 |
| IBSEL | STARTQ+1! |
| IBTFT | COMPILE+5~, COMPILE+14* |
| IOF | C0+4 |
| IOST | COMPILE+7 |
| POP | EN+2~, DEVICE+4~, DEVICE+14 |
| STOP | EN+2~, C0+2*, C10+1, FILTERS+2~, F0+1*, F10+1, F20+1, F30+1, F40+1, F50+1 , F60+1, F70+1, F100+1, STOP+11*, STOP+12*, DEVICE+14* |
| SUBHD | COMPILE+5~, COMPILE+20* |
| X | STOP+2~ |
| Y | STOP+2~, STOP+11*, STOP+12, STOPX+1 |
| ZTDESC | DEVICE+4~, DEVICE+10*, DEVICE+13 |
| ZTRTN | DEVICE+4~, DEVICE+9*, DEVICE+13 |
| ZTSAVE | DEVICE+4~, DEVICE+13 |
| ZTSAVE("IBMDTSPC(" | DEVICE+11* |
| ZTSAVE("^TMP(""IBCMDT"",$J," | DEVICE+12* |