IBCNSOK1 ;ALB/AAS - Insurance consisitency stuff ; 2/22/93
Source file <IBCNSOK1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DUPCO(DFN,IBCNS,IBCDFN,IBTALK) | ; -- is this a duplicate company for this patient
; -- make this call after selecting a company ; -- input DFN = patient file pointer (required) ; IBCNS = new insurance company selected ; IBCDFN = if added to patient ins type mult is required as enter number in multiple ; IBTALK = (optional) if defined and true will write messages to current device if not queued ; -- output = $p1 - 0 if no other entry 1 if possible dup. ; $p2 - 1 if another active entry for same company ; $p3 - 1 if same co, same subscriber ; $p4 - 1 if same co, same dates ; $p5 - 1 if same co, same plan ; $p6 - 1 if spouse insurer but not listed ; $p7 - 1 if spouse insurer but no employer |
|
DUPCOQ | ||
DUPPOL(IBCPOL,IBTALK) | ; -- is this a duplicate policy for this company
|
|
DUPPOLQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|