IBCNINSU ;AITC/TAZ - GENERAL INSURANCE UTILITIES ;8/20/20 12:46p.m.
Source file <IBCNINSU.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 |
|---|---|---|
| PAYER(PIEN,APP,FLDS,FLGS,ARRAY) | ;Payer Data Retrieval
|
|
| PAYERX | ; Exit subroutine
|
|
| PYRDEACT(PIEN) | ;Check if payer is deactivated
|
|
| STOP() | ; Determine if user wants to exit out of the whole option
; Init vars |
|
| STOPX | ; STOP exit pt
|
|
| FOREIGN(VALUE,PIECES,BLANK) | ; check for ASCII chars outside (32-126 inclusive)
|
|
| FILTER(STR,FLT) | ; Filter Insurance Name, Group Name or Number
|
|
| FILTERX | ; Exit
|
|
| VALIDDT(X) | ; Check for validate date (internal form of the date) ;IB*737/CKB
; Input: X - internal date, FM format ; Returns: Y - if date if NOT valid, returns -1 ; if the date is "" (null), returns a "" (null) ; if valid date, returns the internal date |
|
| INSSUB(IBINS,IBRET,IBLER,IBPLNTYP,IBINSACT,IBPTACTV) | ; IB*822/DTG look up subscribers by plan for an Insurance
|
|
| INSSUBQ | ; exit point for ins, plan, subscriber collect
|
|
| DTC5(IBDTCK) | ; check date return external with 4 digit year if valid
|
|
| DTCO | ; date check exit
|
|
| IER(IBMS) | ; set error return
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | VALIDDT+7 |
| $$FIND1^DIC | PAYER+28 |
| $$GET1^DIQ | INSSUB+50, INSSUB+80, INSSUB+91, INSSUB+95, INSSUB+110, INSSUB+113, INSSUB+115 |
| GETS^DIQ | PAYER+32, PAYER+35, PAYER+37, INSSUB+40, INSSUB+57 |
| ^DIR | STOP+10 |
| $$ZND^IBCNS1 | INSSUB+84 |
| $$PT^IBEFUNC | INSSUB+85 |
| $$FMTE^XLFDT | DTC5+4 |
| $$UP^XLFSTR | FILTER+18, FILTER+20, FILTER+21 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GETS^DIQ |
| ^DIC(36 - [#36] | GETS^DIQ |
| ^IBE(365.12 - [#365.12] | GETS^DIQ |
| 365.121 | GETS^DIQ |
| ^IBE(365.13 - [#365.13] | FIND1^DIC |
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("AB" | INSSUB+77, INSSUB+78 |
| ^IBA(355.3 - [#355.3] | INSSUB+56 |
| ^IBE(365.12 - [#365.12] | PAYER+29 |
| ^TMP("IBCNINSUL" | INSSUB+26!, INSSUB+52*, INSSUB+55!, INSSUB+71*, INSSUB+72*, INSSUB+82, INSSUB+152, INSSUB+153*, INSSUB+155*, INSSUBQ+2 , INSSUBQ+5! |
| Name | Line Occurrences |
|---|---|
| $$DTC5 | INSSUB+95, INSSUB+101, INSSUB+104 |
| DTCO | DTC5+3, DTC5+6 |
| FILTERX | FILTER+25, FILTER+27, FILTER+30, FILTER+33, FILTER+36 |
| IER | INSSUB+36, INSSUB+37, INSSUB+41, INSSUB+45, INSSUB+46 |
| INSSUBQ | INSSUB+36, INSSUB+37, INSSUB+41, INSSUB+45, INSSUB+46 |
| PAYER | PYRDEACT+11 |
| PAYERX | PAYER+24, PAYER+25, PAYER+27 |
| STOPX | STOP+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | VALIDDT+5~, VALIDDT+7* |
| APP | PAYER~, PAYER+25, PAYER+27, PAYER+28 |
| APPIEN | PAYER+23~, PAYER+28*, PAYER+29 |
| APPIENI | PAYER+23~, PAYER+29*, PAYER+34 |
| ARRAY | PAYER~ |
| ARRAY(0 | PAYER+24*, PAYER+25*, PAYER+28* |
| BAD | FOREIGN+10~, FOREIGN+11*, FOREIGN+17*, FOREIGN+19 |
| BEG | FILTER+17~, FILTER+20*, FILTER+31, FILTER+34, FILTER+38, FILTER+39, FILTER+42 |
| BLANK | FOREIGN~, FOREIGN+18 |
| CHR | FILTER+17~ |
| 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 |
| DONE | FOREIGN+10~, FOREIGN+14*, FOREIGN+15, FOREIGN+17* |
| DT | INSSUB+140, INSSUB+144 |
| END | FILTER+17~, FILTER+21*, FILTER+40, FILTER+43, FILTER+44, FILTER+45 |
| FLDS | PAYER~, PAYER+25, PAYER+31*, PAYER+32, PAYER+34*, PAYER+35, PAYER+37 |
| FLGS | PAYER~, PAYER+26*, PAYER+32, PAYER+35, PAYER+37 |
| FLT | FILTER~, FILTER+19, FILTER+20, FILTER+21 |
| >> HLECH | FOREIGN+14, FOREIGN+18 |
| IBA | INSSUB+27~ |
| IBACT | INSSUB+27~, INSSUB+61*, INSSUB+62, INSSUB+63, INSSUB+71 |
| IBB | INSSUB+27~ |
| IBBK | DTC5+2~ |
| IBDOB | INSSUB+27~, INSSUB+95*, INSSUB+96 |
| IBDT | DTC5+2~*, DTC5+4*, DTCO+2 |
| IBDTCK | DTC5~, DTC5+3, DTC5+4 |
| IBEFFDT | INSSUB+27~, INSSUB+101*, INSSUB+102, INSSUB+136, INSSUB+144 |
| IBEPT | INSSUB+27~, INSSUB+66* |
| IBEPTN | INSSUB+27~, INSSUB+67* |
| IBEXPDT | INSSUB+27~, INSSUB+104*, INSSUB+105, INSSUB+138, INSSUB+140 |
| IBGNAM | INSSUB+27~, INSSUB+65*, INSSUB+71, INSSUB+72 |
| IBGNUM | INSSUB+27~, INSSUB+64*, INSSUB+71, INSSUB+72 |
| IBGOI | INSSUB+27~, INSSUB+60*, INSSUB+71, INSSUB+72 |
| IBI | FOREIGN+10~, FOREIGN+15* |
| IBIA | INSSUB+27~, INSSUB+40!, INSSUB+57! |
| IBIA( | INSSUB+58 |
| IBIA(36 | INSSUB+41, INSSUB+42 |
| IBIB | INSSUB+28~, INSSUB+40!, INSSUB+42*, INSSUB+57!, INSSUB+58* |
| IBIB( | INSSUB+44, INSSUB+49, INSSUB+50, INSSUB+51, INSSUB+59, INSSUB+60, INSSUB+61, INSSUB+64, INSSUB+65, INSSUB+66 , INSSUB+67, INSSUB+68, INSSUB+69 |
| IBIFO | INSSUB+28~, INSSUB+49*, INSSUB+51*, INSSUB+52 |
| IBIND | INSSUB+28~, INSSUB+84*, INSSUB+98, INSSUB+101, INSSUB+104, INSSUB+108 |
| IBINS | INSSUB~, INSSUB+30*, INSSUB+36, INSSUB+40, INSSUB+41, INSSUB+42, INSSUB+49, INSSUB+52, INSSUB+56, INSSUB+59 , INSSUB+77, INSSUB+78, INSSUB+152, INSSUB+153, INSSUB+155 |
| IBINSAC | INSSUB+28~, INSSUB+44*, INSSUB+45, INSSUB+46, INSSUB+51 |
| IBINSACT | INSSUB~, INSSUB+31*, INSSUB+32*, INSSUB+45, INSSUB+46 |
| IBLER | INSSUB~, INSSUB+30*, IER+3, IER+4 |
| IBMS | IER~, IER+2, IER+4 |
| IBNAM | INSSUB+28~, INSSUB+86*, INSSUB+87*, INSSUB+88 |
| IBPLN | INSSUB+28~, INSSUB+56*, INSSUB+57, INSSUB+58, INSSUB+71, INSSUB+72 |
| IBPLNAT | INSSUB+28~, INSSUB+61*, INSSUB+62*, INSSUB+71, INSSUB+72 |
| IBPLNIT | INSSUB+28~, INSSUB+61*, INSSUB+63*, INSSUB+71, INSSUB+72 |
| IBPLNTYP | INSSUB~, INSSUB+30*, INSSUB+33*, INSSUB+82, INSSUB+153 |
| IBPTAC | INSSUB+28~, INSSUB+134*, INSSUB+142*, INSSUB+146*, INSSUB+149, INSSUB+150 |
| IBPTACTV | INSSUB~, INSSUB+31*, INSSUB+34*, INSSUB+149, INSSUB+150 |
| IBPTDA | INSSUB+28~, INSSUB+79*, INSSUB+80 |
| IBPTDFN | INSSUB+28~, INSSUB+76*, INSSUB+77*, INSSUB+78, INSSUB+79, INSSUB+84, INSSUB+85, INSSUB+87, INSSUB+91, INSSUB+95 , INSSUB+110, INSSUB+113, INSSUB+115, INSSUB+155 |
| IBPTHOLD | INSSUB+28~, INSSUB+88*, INSSUB+93*, INSSUB+96*, INSSUB+99*, INSSUB+102*, INSSUB+105*, INSSUB+109*, INSSUB+111*, INSSUB+114* , INSSUB+134*, INSSUB+136, INSSUB+138, INSSUB+144, INSSUB+155 |
| IBPTIC | INSSUB+29~, INSSUB+134*, INSSUB+136*, INSSUB+140*, INSSUB+144* |
| IBPTINS | INSSUB+29~, INSSUB+77*, INSSUB+78*, INSSUB+79, INSSUB+84, INSSUB+110, INSSUB+113, INSSUB+115, INSSUB+155 |
| IBPTPLAN | INSSUB+29~, INSSUB+80*, INSSUB+81, INSSUB+82, INSSUB+152, INSSUB+153, INSSUB+155 |
| IBRET | INSSUB~, INSSUB+30*, INSSUB+37, INSSUB+38, INSSUBQ+2 |
| IBTOP | INSSUB+29~, INSSUB+68*, INSSUB+71, INSSUB+72 |
| IBTOPN | INSSUB+29~, INSSUB+69*, INSSUB+71, INSSUB+72 |
| IBVERDT | INSSUB+29~, INSSUB+113*, INSSUB+114 |
| IBVERUSR | INSSUB+29~, INSSUB+115* |
| IBY | FOREIGN+10~, FOREIGN+11*, FOREIGN+15*, FOREIGN+16 |
| IENS | PAYER+23~, PAYER+31*, PAYER+32, PAYER+34*, PAYER+35, PAYER+36*, PAYER+37, PYRDEACT+9~, PYRDEACT+10*, PYRDEACT+13 |
| OK | FILTER+17~, FILTER+22*, FILTER+25*, FILTER+28*, FILTER+31*, FILTER+34*, FILTER+41*, FILTER+44*, FILTER+46*, FILTERX+1 |
| PCE | FOREIGN+10~, FOREIGN+13* |
| PIECES | FOREIGN~, FOREIGN+12*, FOREIGN+13 |
| PIEN | PAYER~, PAYER+24, PAYER+29, PAYER+31, PAYER+36, PYRDEACT~, PYRDEACT+10, PYRDEACT+11 |
| PYRARR | PYRDEACT+9~, PYRDEACT+11 |
| PYRARR( | PYRDEACT+13 |
| STOP | STOP+2~, STOP+11*, STOP+12* |
| STR | FILTER~, FILTER+18*, FILTER+28, FILTER+31, FILTER+34, FILTER+38, FILTER+40, FILTER+43 |
| STRNG | FOREIGN+10~, FOREIGN+14*, FOREIGN+15 |
| TYPE | FILTER+17~, FILTER+19*, FILTER+25, FILTER+27, FILTER+30, FILTER+33, FILTER+36 |
| U | PYRDEACT+13, FILTER+19, FILTER+20, FILTER+21, INSSUB+49, INSSUB+51, INSSUB+71, INSSUB+72, INSSUB+96, INSSUB+102 , INSSUB+134, INSSUB+136, INSSUB+138, INSSUB+144 |
| VALUE | FOREIGN~, FOREIGN+14, FOREIGN+18* |
| X | STOP+2~, VALIDDT~, VALIDDT+6, INSSUB+29~, INSSUB+50*, INSSUB+85*, INSSUB+86 |
| XX | FOREIGN+10~, FOREIGN+13*, FOREIGN+14, FOREIGN+18, FILTER+37~, FILTER+38*, FILTER+39, FILTER+42, FILTER+43*, FILTER+44 , FILTER+45, INSSUB+29~, INSSUB+50*, INSSUB+51, INSSUB+91*, INSSUB+92*, INSSUB+93, INSSUB+95*, INSSUB+96, INSSUB+98* , INSSUB+99, INSSUB+101*, INSSUB+102, INSSUB+104*, INSSUB+105, INSSUB+108*, INSSUB+109, INSSUB+110*, INSSUB+111 |
| Y | STOP+2~, STOP+11*, STOP+12, STOPX+1, VALIDDT+5~, VALIDDT+8 |
| YY | FILTER+17~, FILTER+40* |