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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNSM2

Package: Integrated Billing

Routine: IBCNSM2


Information

IBCNSM2 ;ALB/AAS - INSURANCE MANAGEMENT - EDIT ROUTINE ;22-OCT-92

Source Information

Source file <IBCNSM2.m>

Entry Points

Name Comments DBIA/ICR reference
BU ; -- Enter Edit benefits already used
EP ; -- Enter Edit Patient Insurance Policy Information
EI ; -- Enter Edit Insurance Company Information
; -- if coming from benefit screen
; ibcns=insurance co number
EIQ
VC ; -- Verify Insurance Coverage
EXIT ; -- Kill variables, refresh screen
VFY ; -- Display most recent verification
REVASK ; -- Determine whether user wishes to re-verify
REVFY ; -- Re-verify
VCN ; -- Ask to verifiy patient has no coverage
EPOL(DFN) ; Does the patient have any effective policies?
; Input: DFN -- Pointer to the patient in file #2
; Output: 0 -- The patient has no effective policies
; 1 -- The patient has at least one effective policy
MSG ;If there is a change in the status of the covered by health insurance

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," "_IBCH_" LAST VERIFIED BY "_$P($G(^VA(200,+IBDUZ,0)),U)_" ON "_$$DAT1^IBOUTL($P($G(^DPT(DFN,.312,$P(IBPPOL,U,4),1)),U,3))_". . ."
  • Line Location: VFY+19
Function Call: WRITE
  • Prompt: !,"COVERAGE VERIFIED TODAY, "_$$DAT1^IBOUTL(DT)
  • Line Location: VFY+20
Function Call: WRITE
  • Prompt: !," "_IBCH_" VERIFIED BY "_$P($G(^VA(200,+DUZ,0)),U)_" ON "_$$DAT1^IBOUTL($P($G(^DPT(DFN,.312,$P(IBPPOL,U,4),1)),U,3))
  • Line Location: REVFY+4
Function Call: WRITE
  • Prompt: !!,?5,"Patient has no effective insurance coverage on file."
  • Line Location: VCN+3
Function Call: WRITE
  • Prompt: " <Try again Later>"
  • Line Location: VCN+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBA(354 - [#354] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call