IBCNSU ;ALB/AAS - INSURANCE UTILITY ROUTINE ;19-MAY-93
Source file <IBCNSU.m>
| 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 |
