Routine: IBCNSOK1

Information

IBCNSOK1 ;ALB/AAS - Insurance consisitency stuff ; 2/22/93

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	Prompt: !," The previous entry is active." Line Location: DUPCO+35
Function Call: WRITE	Prompt: !," The WHOSE INSURANCE are the same." Line Location: DUPCO+36
Function Call: WRITE	Prompt: !," The Effective and Expiration dates may cover overlapping dates." Line Location: DUPCO+37
Function Call: WRITE	Prompt: !," The Group Plans are the same." Line Location: DUPCO+38
Function Call: WRITE	Prompt: !," WHOSE INSURANCE is Spouse, patient marital Status Inconsistent." Line Location: DUPCO+39
Function Call: WRITE	Prompt: !," WHOSE INSURANCE is Spouse but no Employer listed." Line Location: DUPCO+40
Function Call: WRITE	Prompt: !!,"Warning: There is another policy with the same Group Name." Line Location: DUPPOL+8
Function Call: WRITE	Prompt: !!,"Warning: There is another policy with the same Group Number." Line Location: DUPPOL+9