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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBE(365.12 - [#365.12] | GETS^DIQ |
365.121 | GETS^DIQ |
^IBE(365.13 - [#365.13] | FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBE(365.12 - [#365.12] | PAYER+29 |
>> | 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* |
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 |
IBI | FOREIGN+10~, FOREIGN+15* |
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 |
VALUE | FOREIGN~, FOREIGN+14, FOREIGN+18* |
X | STOP+2~, VALIDDT~, VALIDDT+6 |
XX | FOREIGN+10~, FOREIGN+13*, FOREIGN+14, FOREIGN+18, FILTER+37~, FILTER+38*, FILTER+39, FILTER+42, FILTER+43*, FILTER+44 , FILTER+45 |
Y | STOP+2~, STOP+11*, STOP+12, STOPX+1, VALIDDT+5~, VALIDDT+8 |
YY | FILTER+17~, FILTER+40* |