IBCNSU ;ALB/AAS - INSURANCE UTILITY ROUTINE ;19-MAY-93
Source file <IBCNSU.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 |
|---|---|---|
| AB(IBCPOL,IBYR,IBASK) | ; -- Return entry in Annual Benefits file
; Input: IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, Default = dt ; IBASK = 1 if want to ask okay to add new entry |
|
| ABQ | ||
| ADDB(IBCPOL,IBYR) | ; -- add entries to Annual Benefits file
; Input: IBCPOL = pointer to health insurance policy file ; IBYR = fileman internal date, Default = dt |
|
| ADDBQ | ||
| CHIP(IBCDFND) | ; -- convert node with no hip pointer to one with hip pointer
; Input: IBCDFND = zeroth node of insurance type multiple ; = ^dpt(dfn,.312,ibcdfn,0) |
|
| CHIPQ | ||
| HIP(IBCNS,IBGRP,IBGRNA,IBGRNU) | ; -- find internal entry number in policy file
; Input: IBCNS = pointer to ins co file ; IBGRP = 1 if group policy, 0 if not ; IBGRNA = group name ; IBGRNU = group number |
|
| HIPQ | ||
| ADDH(IBCNS,IBGRP,IBGNA,IBGNU) | ; -- add entries to health insurance policy file (355.3)
; Input: IBCNS = pointer to ins co file ; IBGRP = 1 if group policy, 0 if no |
|
| ADDHQ | ||
| ODELP(DFN,INS) | ; -- can an insurance policy be deleted
; -- called by ^dd(2.312,0,"del",.01) and by ibcnsm ; -- input dfn: ien of patient in file 2. ; ins: ien of ins. co in file 36 |
|
| ODELPQ | ||
| STRIP(X,X1) | ; -- strip characters from string
; input: x = string ; x1 = character to strip (default is ";" |
|
| DELP(DFN,INS,IBC) | ; -- can an insurance policy be deleted
; -- called by ^dd(2.312,0,"del",.01) and by ibcnsm ; -- input dfn: ien of patient in file 2. ; ins: ien of ins. co in file 36 ; ibc: ien of policy in file 2.312 to do a match |
|
| DELPQ | ||
| DUPADDRL(DATA,IBCNS,FLD1,FLD2) | ; Insurance address lines can not be duplicated
; DATA - Value being compared ; FLD1 - First field to check against ; FLD2 - Second field to check against (OPTIONAL) |
|
| ZIPCHK9(ZIP) | ;AITC/JRA - IB*2.0*576 Check if ZIP is in proper 9-digit format
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.3 - [#355.3] | Classic Fileman Calls |
| ^IBA(355.4 - [#355.4] | Classic Fileman Calls |
| ^DIC(36 - [#36] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ODELP+10, DELP+23, DELP+26 |
| ^DIC(36 - [#36] | HIP+10 |
| ^DPT - [#2] | DELP+17 |
| ^DPT("AB" | DELP+17 |
| ^IBA(355.3 - [#355.3] | HIP+15, HIP+16, HIP+19, HIP+20 |
| ^IBA(355.4 - [#355.4] | AB+14 |
| Name | Field # of Occurrence |
|---|---|
| ^("M" | DELP+26 |
| ^("MP" | DELP+26 |
| ^("S" | DELP+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ADDB+6~, HIP+8~, ADDH+6~ |
| ARR | DELP+9~ |
| ARR( | DELP+17*, DELP+18, DELP+38, DELP+45 |
| ARRP | DELP+25~ |
| ARRP( | DELP+41* |
| ARRP(0 | DELP+45 |
| DA | ADDB+6~, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+12*, ADDH+16! |
| DATA | DUPADDRL~, DUPADDRL+8, DUPADDRL+10*, DUPADDRL+15, DUPADDRL+16 |
| DD | ADDB+6~, ADDB+10!, ADDH+6~, ADDH+9! |
| DFN | ADDH+13, ODELP~, ODELP+10, DELP~, DELP+12, DELP+17, DELP+23 |
| DIC | ADDB+6~, ADDB+10!*, ADDB+15!, HIP+26!, ADDH+6~, ADDH+9!*, ADDH+16! |
| DIC(0 | ADDB+10*, ADDH+9* |
| DIE | ADDB+6~, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+12*, ADDH+16! |
| DIR | AB+7~ |
| DIR("A" | AB+18* |
| DIR("B" | AB+18* |
| DIR(0 | AB+18* |
| >> DIRUT | AB+18 |
| DLAYGO | ADDB+6~, ADDB+10*, ADDH+6~, ADDH+9* |
| DO | ADDB+6~, ADDB+10!, ADDH+6~, ADDH+9! |
| DR | ADDB+6~, ADDB+10!, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+9!, ADDH+12*, ADDH+13* , ADDH+14*, ADDH+15*, ADDH+16! |
| DT | AB+10, ADDB+9 |
| FLD1 | DUPADDRL~, DUPADDRL+11 |
| FLD2 | DUPADDRL~, DUPADDRL+13 |
| I | ODELP+7~, STRIP+3~, STRIP+6* |
| IBASK | AB~, AB+18 |
| IBC | DELP~, DELP+16, DELP+17, DELP+49, DELP+53, DELP+54 |
| IBCAB | AB+7~, AB+8*, AB+14*, AB+17, AB+19*, ABQ, ADDB+6~, ADDB+7*, ADDB+14*, ADDBQ , ADDH+6~ |
| IBCDFND | CHIP~, CHIP+7 |
| IBCNS | CHIP+6~, CHIP+7*, CHIP+9, HIP~, HIP+10, HIP+12, HIP+15, HIP+19, HIP+22, ADDH~ , ADDH+8, ADDH+11, DUPADDRL~, DUPADDRL+9, DUPADDRL+11, DUPADDRL+13 |
| >> IBCNTP | ADDH+17* |
| IBCPOL | AB~, AB+9, AB+14, AB+19, ADDB~, ADDB+8, ADDB+14, CHIP+9*, CHIPQ, HIP+9* , HIP+12*, HIP+15*, HIP+16, HIP+19*, HIP+20, HIP+22*, HIP+25, HIPQ, ADDH+7*, ADDH+12* , ADDHQ |
| IBGNA | ADDH~, ADDH+15 |
| IBGNU | ADDH~, ADDH+14 |
| IBGRNA | CHIP+6~, CHIP+7*, CHIP+8, CHIP+9, HIP~, HIP+16, HIP+18*, HIP+19, HIP+23, HIP+24* , HIP+25 |
| IBGRNU | CHIP+6~, CHIP+7*, CHIP+8, CHIP+9, HIP~, HIP+14*, HIP+15, HIP+20, HIP+23, HIP+24* , HIP+25 |
| IBGRP | CHIP+6~, CHIP+7*, CHIP+8*, CHIP+9, HIP~, HIP+11*, HIP+12, HIP+22, ADDH~, ADDH+12 , ADDH+13 |
| IBN1 | ADDB+6~, ADDH+6~ |
| IBYR | AB~, AB+10*, AB+14, AB+19, ADDB~, ADDB+9*, ADDB+13 |
| INS | ODELP~, ODELP+10, DELP~, DELP+12, DELP+23 |
| J | ODELP+10*, DELP+9~, DELP+17*, DELP+18*, DELP+23*, DELP+26 |
| K | DELP+25~, DELP+38*, DELP+41 |
| L | DELP+25~, DELP+45*, DELP+49 |
| M | DELP+25~, DELP+26*, DELP+35, DELP+54 |
| MP | DELP+25~, DELP+26*, DELP+35, DELP+53 |
| ONEPOL | DELP+9~, DELP+18*, DELP+19*, DELP+32 |
| POL | DELP+25~, DELP+38*, DELP+39, DELP+40 |
| S | DELP+25~, DELP+26*, DELP+29 |
| >> VALMQUIT | AB+18* |
| X | ADDB+13*, ADDH+11*, ODELP+7~*, ODELP+10*, ODELPQ, STRIP~, STRIP+6, DELP+9~, DELP+12*, DELP+23* , DELP+32*, DELP+49*, DELP+53*, DELP+54*, DELPQ |
| X1 | STRIP~, STRIP+4*, STRIP+5*, STRIP+6 |
| X2 | STRIP+3~, STRIP+4*, STRIP+6*, STRIP+7 |
| Y | AB+18, ADDB+13, ADDB+14, ADDH+11, ADDH+12, ODELP+7~ |
| Z | DELP+25~, DELP+26*, DELP+39, DELP+40 |
| Z1 | DUPADDRL+7~, DUPADDRL+11*, DUPADDRL+12*, DUPADDRL+15 |
| Z2 | DUPADDRL+7~, DUPADDRL+13*, DUPADDRL+14*, DUPADDRL+16 |
| ZIP | ZIPCHK9~, ZIPCHK9+4, ZIPCHK9+5, ZIPCHK9+6 |
| ZIP4 | ZIPCHK9+3~, ZIPCHK9+5* |
