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: IBCNS3

Package: Integrated Billing

Routine: IBCNS3


Information

IBCNS3 ;ALB/ARH - DISPLAY EXTENDED INSURANCE ; 01-DEC-04

Source Information

Source file <IBCNS3.m>

Entry Points

Name Comments DBIA/ICR reference
DISP(DFN,DATE,DISPLAY) ; Display all insurance company information
; input: DFN = pointer to patient
; DATE = date to check for coverage and riders
; DISPLAY = contain indicators of data to display (1234)
; 1 : first line of display ins company and plan data
; 2 : extended data (Plan Filing Timeframe, Plan Coverage, Conditional Coverage Comments, and Riders)
; 3 : ins. policy comments and plan comments
; 4 : eIV eligibility/benefit information (IB*2*416)
DISPQ
PRINT ; display compiled array of patient insurance information in ^TMP($J,"IBCNS3")
SETLN(LINE) ; set line as next line for current policy
GETLN(IBPOL0,IBDATE) ; get single line of primary data on insurance policy
; input: IBPOL0 = line from array, zero node of patient policy (2,.312)
; IBDATE = date to check coverage, default today
; output: formatted line of data for insurance policy in TMP($J,"IBCNS")
GETLNQ
GETEXT(DFN,IBPOLFN,IBPOL0,DATE) ; display extended insurance information
; Plan Filing Timeframe, Plan Coverage, Conditional Coverage Comments, and Riders
; input: DFN = pointer to patient (2)
; IBPOLFN = pointer to patient insurance policy in 2.312
; IBPOL0 = line from array, zero node of patient policy (2,.312)
; DATE = date to check coverage, default today
; DISPARR = array to pass data back in, pass by reference
; output: array of extended data in TMP($J,"IBCNS")
GETCOM(IBPLNFN,IBPOL1) ; get patient insurance and plan insurance comments in TMP($J,"IBCNS")
GETNOTES(DFN) ; get final notes/warnings in TMP($J,"IBCNS")
EB(DFN,IBCDFN) ; Build eIV elig/benefit display for ?INX screen display
EBX ;
FRMLN(FIELD,IBLINE,FLNG,COL) ; format line data fields, returns IBLINE with FIELD of length FLNG at column COL
FNDCOV(IBINSFN,IBPLNFN,IBDATE) ; -- return group/plan coverage limitations indications
; input: IBINSFN = pointer to insurance company entry in 36
; IBPLNFN = pointer to insurance plan entry in 355.3
; IBDATE = date to check coverage, default today
; output: if insurance company will not reimburse = WNR, if all covered then returns null
; otherwise list of first characters of types covered, if conditional then character in lower case
;
FNDCOVQ
FNDGRP(IBPLNFN) ; -- return group name/group policy
; input: IBPLNFN = pointer to insurance plan entry in 355.3
; output: group name or group number, if both group NUMBER, check for Individual plans
FNDGRPQ ;
HDR ; -- print header
EOP() ; ask user for return at end of page, return 1 if '^' entered

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,IBDASH
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Insurance",?13,"COB",?17,"Subscriber ID",?35,"Group",?47,"Holder",?55,"Effectve",?65,"Expires",?75,"Only"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+1
Info |  Source |  Entry Points |  Interaction Calls