Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBCNSOK1

Package: Integrated Billing

Routine: IBCNSOK1


Information

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

Source Information

Source file <IBCNSOK1.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls