IBCNSJ53 ;AITC/DTG - INSURANCE PLAN MAINTENANCE ACTION VIEW SUBSCRIBER ; 15-MAY-2023
Source file <IBCNSJ53.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 |
|---|---|---|
| VP | ; -- Edit/View Plan (VS entry point)
|
|
| VSUBS | ; entry from list template protocol 'IBCNSJ PLAN VIEW SUBSCRIBERS' from the 'IBCNSC PLAN DETAIL' menu
|
|
| VSUBX | ; quit back
|
|
| DTC(IBDTCK) | ; check date return external if valid
|
|
| DTCO | ; date check exit
|
|
| DTC5(IBDTCK) | ; check date return external if valid ;IB*804/DTG 4 digit year for sort's
|
|
| DTC5O | ; date check exit
|
|
| EXIT | ; -- exit code
|
|
| HELP | ; -- help code
|
|
| INIT | ; -- Load the plan detail segments
|
|
| ACINI | ; active subscribers
|
|
| ININI | ; inactive subscribers
|
|
| ALLINI | ; all subscribers
|
|
| HDR(IBDIS) | ; -- Plan Subscribers
|
|
| BVA | ; Build ALL subscribers
|
|
| BPAS | ; build items from base into valm display
|
|
| AC | ; active subscriber entry
|
|
| IS | ; inactive subscriber entry
|
|
| SORT | ; ask sort questions if sort selected then re-build ^TMP("IBCNSJ53I",$J,
|
|
| SORTQ | ; sort exit point
|
|
| IBSRTNM | ; subscriber name sort type and order
|
|
| IBSRQU(IBSRNM,IBSRF,IBSRR) | ; get the type
|
|
| IBSRTCOM(IBSORTA,IBWORK) | ; go thru the compiled and sort for display
|
|
| IBSV | ; save in selected item order to temp area
|
|
| IBSVA | ; save invalid dates in selected item order to temp area
|
|
| IBSRTMV | ; move from temp and place in viewing order
|
|
| IBSRTA | ; pick up blank and bad date items
|
|
| IBSRTA1 | ; loop through bad/blank dates
|
|
| IBASE | ; reset levels to base
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | INIT+8 |
| DT^DILF | IBSRTCOM+26 |
| $$GET1^DIQ | VSUBS+34, VSUBS+36, VSUBS+38, VSUBS+41, VSUBS+45, VSUBS+48, VSUBS+63, VSUBS+71, VSUBS+74, VSUBS+88 |
| ^DIR | HELP+13, SORT+11, IBSRQU+12 |
| $$ZND^IBCNS1 | VSUBS+64 |
| $$PT^IBEFUNC | VSUBS+66 |
| $$DAT2^IBOUTL | INIT+9 |
| EN^VALM | VP+2 |
| $$SETFLD^VALM1 | BPAS+12, BPAS+13, BPAS+14, BPAS+15, BPAS+16, BPAS+17, BPAS+18, BPAS+19, BPAS+20 |
| CLEAR^VALM1 | EXIT+2 |
| FULL^VALM1 | VP+1, HELP+3, ACINI+3, ININI+3, ALLINI+3, SORT+4, SORTQ+3 |
| CLEAN^VALM10 | EXIT+2 |
| KILL^VALM10 | INIT+14 |
| $$FMTE^XLFDT | DTC+4, DTC5+4 |
| DISP^XQORM1 | HELP+2 |
| Name | Line Occurrences |
|---|---|
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | VSUBS+11, VSUBS+12 |
| ^DIC(5 - [#5] | VSUBS+14 |
| ^DPT("AB" | VSUBS+61, VSUBS+62 |
| ^IBA(355.3 - [#355.3] | VSUBS+54 |
| ^TMP("IBCNSJ53" | EXIT+1!, INIT+2! |
| ^TMP("IBCNSJ53I" | EXIT+1!, HDR+4, BVA+8, AC+8, IS+8, IBSRTCOM+17!, IBSRTCOM+19!, IBSRTCOM+20, IBSRTCOM+21, IBSRTCOM+22 , IBSRTCOM+30!, IBSV+2*, IBSVA+2*, IBSRTMV+5, IBSRTMV+8, IBSRTMV+10, IBSRTMV+11, IBSRTMV+12*, IBSRTA1+3, IBSRTA1+5 , IBSRTA1+6, IBSRTA1+7*, IBASE+5!, IBASE+6, IBASE+7, IBASE+8, IBASE+9* |
| Name | Line Occurrences |
|---|---|
| $$DTC | VSUBS+74, VSUBS+79, VSUBS+82 |
| $$DTC5 | VSUBS+76, VSUBS+81, VSUBS+84 |
| $$IBSRQU | SORT+18, IBSRTNM+3 |
| AC | ACINI+5, SORTQ+6 |
| BPAS | BVA+13, AC+13, IS+13 |
| BVA | INIT+18, ALLINI+5, SORTQ+5 |
| DTC5O | DTC5+6 |
| DTCO | DTC+3, DTC+6, DTC5+3 |
| HDR | ACINI+4, ININI+4, ALLINI+4, SORTQ+5, SORTQ+6, SORTQ+7 |
| IBASE | VSUBS+124, ACINI+2, ININI+2, ALLINI+2, SORTQ+2 |
| IBSRTA | IBSRTMV+4, IBSRTMV+13 |
| IBSRTA1 | IBSRTA+4, IBSRTA+6 |
| IBSRTCOM | SORT+20, IBSRTNM+5 |
| IBSRTMV | IBSRTCOM+20 |
| IBSRTNM | SORT+15 |
| IBSV | IBSRTCOM+23, IBSRTCOM+27 |
| IBSVA | IBSRTCOM+28 |
| IS | ININI+5, SORTQ+7 |
| SORTQ | SORT+13, SORT+14, SORT+15, SORT+17, SORT+19, SORT+20 |
| VSUBS | INIT+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | INIT+9 |
| DIR | VSUBS+2~, HELP+4~, HELP+14!, SORT+2~, SORT+7!, IBSRQU+6~, IBSRQU+7! |
| DIR("?" | SORT+9*, IBSRQU+11* |
| DIR("A" | HELP+12*, SORT+8*, IBSRQU+10* |
| DIR("B" | SORT+10*, IBSRQU+9* |
| DIR(0 | HELP+12*, SORT+7*, IBSRQU+8* |
| DIROUT | SORT+2~, SORT+12, IBSRQU+6~, IBSRQU+14 |
| DIRUT | SORT+2~, SORT+12, IBSRQU+6~, IBSRQU+14 |
| DT | VSUBS+98, VSUBS+102 |
| DTOUT | SORT+2~, SORT+12, IBSRQU+6~, IBSRQU+14 |
| DUOUT | SORT+2~, SORT+12, IBSRQU+6~, IBSRQU+14 |
| FIEN | VSUBS+2~ |
| FTF | VSUBS+2~ |
| FTFV | VSUBS+2~ |
| IB1 | HDR+2~, HDR+3*, HDR+10*, HDR+16, HDR+19, HDR+21*, HDR+23, HDR+27, HDR+29*, HDR+31 , HDR+35 |
| IB2 | HDR+2~, HDR+3*, HDR+16*, HDR+19, HDR+24*, HDR+27, HDR+32*, HDR+35 |
| IB3 | HDR+2~, HDR+3*, HDR+18*, HDR+19, HDR+26*, HDR+27, HDR+34*, HDR+35 |
| >> IB3553 | VSUBS+34, VSUBS+36, VSUBS+38, VSUBS+41, VSUBS+45, VSUBS+48, VSUBS+54, VSUBS+63, VSUBS+117, VSUBS+118 , INIT+4*, INIT+11 |
| >> IB36 | VSUBS+11, VSUBS+12, VSUBS+61, VSUBS+62, INIT+4*, INIT+11 |
| IB5 | HDR+12~*, HDR+13*, HDR+14*, HDR+16 |
| IBA | VSUBS+2~, VSUBS+58*, VSUBS+63*, HDR+2~, HDR+4*, HDR+10, HDR+21, HDR+29, BPAS+2~, BPAS+8* , BPAS+9*, BPAS+10, BPAS+11, IBSRTCOM+9~, IBSRTCOM+20*, IBSRTCOM+21, IBSRTCOM+22, IBSV+2, IBSVA+2, IBSRTA+2~ , IBSRTA+4*, IBSRTA+6*, IBSRTA1+3, IBSRTA1+5, IBSRTA1+6, IBASE+4~, IBASE+5*, IBASE+6*, IBASE+7, IBASE+8 , IBASE+9 |
| >> IBACCT | VSUBS+8*, VSUBS+106*, VSUBS+120, INIT+5* |
| >> IBACT | VSUBS+92*, VSUBS+100*, VSUBS+104*, VSUBS+106, VSUBS+118 |
| IBB | VSUBS+2~, HDR+2~, HDR+4*, HDR+5, HDR+6, HDR+22, HDR+30, BPAS+2~, IBSRTCOM+21*, IBSRTCOM+22 , IBSV+2, IBSVA+2, IBSRTA+2~, IBSRTA1+2*, IBSRTA1+3*, IBSRTA1+5, IBSRTA1+6, IBSRTA1+7, IBASE+4~, IBASE+6* , IBASE+7*, IBASE+8, IBASE+9 |
| IBBK | DTC+2~, DTC5+2~ |
| IBC | VSUBS+2~, HDR+2~, HDR+4*, HDR+18, HDR+26, HDR+34, BPAS+2~, BPAS+11*, BPAS+12, BPAS+13 , BPAS+14, BPAS+15, BPAS+16, BPAS+17, BPAS+18, BPAS+19, BPAS+20, IBSRTCOM+9~, IBSRTCOM+22*, IBSRTCOM+23 , IBSRTCOM+25, IBSV+2, IBSVA+2, IBSRTA+2~, IBSRTA1+4*, IBSRTA1+5*, IBSRTA1+6, IBSRTA1+7, IBASE+4~ |
| >> IBCNS | INIT+4 |
| IBCNT | IBASE+4~, IBASE+6*, IBASE+8*, IBASE+9 |
| IBCNTR | BPAS+6~, BPAS+7*, BPAS+8, BPAS+9, BPAS+11 |
| >> IBCPOL | INIT+4 |
| >> IBCST | VSUBS+8*, VSUBS+65*, VSUBS+120, INIT+5* |
| IBCT | IBSRTMV+2~, IBSRTMV+3*, IBSRTMV+12*, IBSRTA1+7* |
| IBD | VSUBS+2~, HDR+2~, BPAS+2~, BPAS+20*, IBSRTCOM+9~, IBSRTCOM+22*, IBSRTCOM+23*, IBSRTCOM+24*, IBSRTCOM+25*, IBSRTCOM+26* , IBSRTCOM+27, IBSRTCOM+28, IBSV+2, IBSVA+2, IBSRTA+2~, IBSRTA1+6*, IBSRTA1+7, IBASE+4~, IBASE+8*, IBASE+9 |
| IBDFN | BPAS+2~, BPAS+10* |
| IBDIS | HDR~, HDR+7*, HDR+8 |
| IBDOB | VSUBS+2~, VSUBS+74*, VSUBS+76 |
| IBDT | DTC+2~*, DTC+4*, DTCO+2, DTC5+2~*, DTC5+4*, DTC5O+2 |
| IBDTCK | VSUBS+2~, DTC~, DTC+3, DTC+4, DTC5~, DTC5+3, DTC5+4 |
| IBE | VSUBS+2~, HDR+2~, HDR+22*, HDR+24, HDR+25, HDR+30*, HDR+32, HDR+33, BPAS+2~, IBSRTCOM+9~ , IBSRTA+2~ |
| IBEFFDT | VSUBS+2~, VSUBS+79*, VSUBS+81, VSUBS+94, VSUBS+102 |
| IBERR | VSUBS+2~ |
| IBEXPDT | VSUBS+2~, VSUBS+82*, VSUBS+84, VSUBS+96, VSUBS+98 |
| IBF | VSUBS+2~, BVA+2~, BVA+8*, BVA+9, AC+2~, AC+8*, AC+9, IS+2~, IS+8*, IS+9 , IBSRTCOM+9~ |
| IBF1 | HDR+2~, HDR+6*, HDR+30, HDR+31, HDR+33 |
| IBF2 | HDR+2~, HDR+5*, HDR+22, HDR+23, HDR+25 |
| IBFL1 | VSUBS+33~, VSUBS+37*, VSUBS+43 |
| IBFL2 | VSUBS+33~, VSUBS+39*, VSUBS+40 |
| IBG | BPAS+6~, BPAS+7*, BPAS+8*, BPAS+9, BPAS+11, IBSRTMV+2~, IBSRTMV+7*, IBSRTMV+8*, IBSRTMV+10, IBSRTMV+11 , IBSRTMV+12 |
| IBH | IBSRTMV+2~, IBSRTMV+9*, IBSRTMV+10*, IBSRTMV+11, IBSRTMV+12 |
| >> IBHDT | INIT+9* |
| IBI | IBSRTCOM+9~, IBSRTCOM+17*, IBSRTCOM+19*, IBSRTCOM+20, IBSRTCOM+21, IBSRTCOM+22, IBSRTMV+12, IBSRTA1+7, IBASE+4~, IBASE+6* , IBASE+7, IBASE+8, IBASE+9 |
| >> IBINACCT | VSUBS+8*, VSUBS+106*, VSUBS+120, INIT+5* |
| >> IBINACT | VSUBS+92*, VSUBS+94*, VSUBS+98*, VSUBS+102*, VSUBS+106 |
| IBIND | VSUBS+3~, VSUBS+64*, VSUBS+77, VSUBS+79, VSUBS+82, VSUBS+86 |
| IBINS0 | VSUBS+3~, VSUBS+54* |
| IBJ | SORT+2~, SORT+16*, SORT+17, SORT+18, IBSRTCOM+9~, IBSRTCOM+22*, IBSRTCOM+25*, IBSRTCOM+26, IBSRTMV+2~, IBSRTMV+11* , IBSRTMV+12 |
| IBK | IBSRTCOM+9~, IBSRTCOM+24*, IBSRTCOM+25, IBSRTMV+2~, IBSRTMV+3*, IBSRTMV+5*, IBSRTMV+6, IBSRTMV+8, IBSRTMV+10, IBSRTMV+11 |
| IBL | HDR+2~, HDR+16*, HDR+23*, HDR+24, HDR+25*, HDR+26, HDR+31*, HDR+32, HDR+33*, HDR+34 |
| IBLA | HDR+12~*, HDR+16* |
| >> IBLCNT | INIT+3* |
| IBLINE | BVA+2~, BVA+6*, BPAS+11*, AC+2~, AC+6*, IS+2~, IS+6* |
| IBNAM | VSUBS+3~, VSUBS+67*, VSUBS+68*, VSUBS+69, VSUBS+117, VSUBS+118 |
| IBNM | BPAS+2~, BPAS+10* |
| IBNODE | BPAS+2~, BPAS+10* |
| >> IBOSRT | INIT+6*, SORT+6*, SORT+10, SORTQ+2 |
| IBPTDFN | VSUBS+3~, VSUBS+60*, VSUBS+61*, VSUBS+62, VSUBS+63, VSUBS+64, VSUBS+66, VSUBS+68, VSUBS+71, VSUBS+74 , VSUBS+88, VSUBS+117, VSUBS+118 |
| IBPTHOLD | VSUBS+3~, VSUBS+69*, VSUBS+73*, VSUBS+75*, VSUBS+76*, VSUBS+78*, VSUBS+80*, VSUBS+81*, VSUBS+83*, VSUBS+84* , VSUBS+87*, VSUBS+89*, VSUBS+92*, VSUBS+94, VSUBS+96, VSUBS+102, VSUBS+117, VSUBS+118 |
| IBPTINS | VSUBS+3~, VSUBS+61*, VSUBS+62*, VSUBS+63, VSUBS+64, VSUBS+88, VSUBS+117, VSUBS+118 |
| IBQUIT | SORT+2~, SORT+3*, SORT+13*, SORT+14*, SORT+17*, SORT+19*, SORTQ+2, IBSRTNM+4*, IBSRQU+6~ |
| >> IBSACT | INIT+6*, ACINI+2*, ININI+2*, ALLINI+2*, SORT+5*, SORTQ+5, SORTQ+6, SORTQ+7, IBSRTCOM+17, IBSRTCOM+19 |
| IBSORTA | INIT+6*, ACINI+2*, ININI+2*, ALLINI+2*, HDR+13, HDR+14, SORT+6, SORT+14*, SORT+15, SORT+16 , SORT+20, SORTQ+2*, IBSRTNM+5, IBSRTCOM~, IBSRTCOM+10, IBSRTCOM+23, IBSRTCOM+24 |
| >> IBSPACE | INIT+10*, HDR+16, HDR+18, HDR+24, HDR+26, HDR+32, HDR+34 |
| IBSRF | SORT+2~, IBSRQU~, IBSRQU+7*, IBSRQU+9, IBSRQU+13 |
| IBSRNM | SORT+2~, IBSRQU~, IBSRQU+8, IBSRQU+11 |
| IBSRR | IBSRQU~, IBSRQU+8 |
| >> IBTMP | VSUBS+6*, VSUBS+7, VSUBS+25, VSUBS+53, VSUBS+58, VSUBS+117, VSUBS+118, VSUBS+120, INIT+5*, INIT+7 |
| IBTMP1 | BVA+2~, BVA+5*, BPAS+7, BPAS+8, BPAS+9, BPAS+11, AC+2~, AC+5*, IS+2~, IS+5* |
| IBVPCLBG | EXIT+1! |
| IBVPCLEN | EXIT+1! |
| IBWORK | SORT+2~, SORT+20, IBSRTNM+5, IBSRQU+15*, IBSRQU+16*, IBSRTCOM~, IBSRTMV+3, IBSRTMV+4, IBSRTMV+5, IBSRTMV+7 , IBSRTMV+8, IBSRTMV+9, IBSRTMV+10, IBSRTMV+13, IBSRTA+3, IBSRTA+5, IBSRTA1+2, IBSRTA1+3, IBSRTA1+4, IBSRTA1+5 |
| >> LENEP | VSUBS+8*, VSUBS+46*, VSUBS+50*, INIT+5* |
| >> LENPT | VSUBS+8*, INIT+5* |
| NAME | VSUBS+33~, VSUBS+41*, VSUBS+42*, VSUBS+43 |
| NUM | VSUBS+3~, VSUBS+33~, VSUBS+34*, VSUBS+35*, VSUBS+40 |
| ST | VSUBS+4~, VSUBS+14*, VSUBS+19 |
| U | VSUBS+18, VSUBS+22, VSUBS+92, VSUBS+94, VSUBS+96, VSUBS+102, VSUBS+120, HDR+5, HDR+6, HDR+10 , HDR+18, HDR+21, HDR+22, HDR+26, HDR+29, HDR+30, HDR+34, BPAS+14, BPAS+16, BPAS+17 , BPAS+20, AC+9, IS+9, SORT+12, SORT+13, SORT+19, IBSRTNM+4, IBSRQU+14, IBSRTCOM+23, IBSRTCOM+25 |
| >> VALM("TITLE" | HDR+8* |
| >> VALMANS | HELP+2 |
| >> VALMAR | BVA+7, BVA+10, BVA+11, BPAS+21, AC+7, AC+10, AC+11, IS+7, IS+10, IS+11 |
| VALMBCK | VP+3*, EXIT+1!, EXIT+3*, HELP+15*, INIT+19*, ACINI+6*, ININI+6*, ALLINI+6*, SORTQ+8* |
| >> VALMBG | VP+3*, EXIT+3*, INIT+3*, INIT+19*, ACINI+6*, ININI+6*, ALLINI+6*, BVA+6*, AC+6*, IS+6* , SORTQ+8* |
| >> VALMCNT | INIT+3*, BVA+6*, BVA+10*, BPAS+11*, BPAS+21, AC+6*, AC+10*, IS+6*, IS+10* |
| >> VALMHDR(1 | HDR+19* |
| >> VALMHDR(2 | HDR+27* |
| >> VALMHDR(3 | HDR+35* |
| X | VSUBS+4~, VSUBS+16*, VSUBS+17*, VSUBS+18*, VSUBS+19*, VSUBS+20*, VSUBS+21*, VSUBS+22*, VSUBS+25, VSUBS+66* , VSUBS+67, HELP+2*, HELP+4~, HELP+14!, BPAS+2~, BPAS+8*, BPAS+11*, BPAS+12*, BPAS+13*, BPAS+14* , BPAS+15*, BPAS+16*, BPAS+17*, BPAS+18*, BPAS+19*, BPAS+20*, BPAS+21, SORT+2~, IBSRTNM+2~, IBSRQU+6~ |
| X0 | VSUBS+4~, VSUBS+11*, VSUBS+15, VSUBS+16 |
| X11 | VSUBS+4~, VSUBS+12*, VSUBS+13, VSUBS+14, VSUBS+17, VSUBS+18 |
| XX | VSUBS+4~, VSUBS+15*, VSUBS+16, VSUBS+33~, VSUBS+36*, VSUBS+37, VSUBS+40*, VSUBS+43*, VSUBS+44*, VSUBS+47* , VSUBS+51*, VSUBS+53, VSUBS+71*, VSUBS+72*, VSUBS+73, VSUBS+74*, VSUBS+75, VSUBS+76*, VSUBS+77*, VSUBS+78 , VSUBS+79*, VSUBS+80, VSUBS+81*, VSUBS+82*, VSUBS+83, VSUBS+84*, VSUBS+86*, VSUBS+87, VSUBS+88*, VSUBS+89 |
| Y | VSUBS+4~, HELP+4~, HELP+14!, SORT+2~, SORT+12*, SORT+13, SORT+14, SORT+18*, SORT+19, IBSRTNM+2~ , IBSRTNM+3*, IBSRTNM+4, IBSRQU+6~, IBSRQU+13*, IBSRQU+14*, IBSRQU+16, IBSRQU+17 |
| Z | VSUBS+4~, VSUBS+13*, VSUBS+20 |
| ZZ | VSUBS+33~, VSUBS+38*, VSUBS+39, VSUBS+45*, VSUBS+46, VSUBS+47, VSUBS+48*, VSUBS+49*, VSUBS+50, VSUBS+51 |