Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 7 $$BUFFER^IBCNBU1  INIT^IBCNES  $$GRP^IBCNS  ALL^IBCNS1  ($$PLCOV,RIDERS)^IBCNSU3  $$FTFN^IBCNSU31  $$DAT1^IBOUTL  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCSCH  

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

External References

Name Field # of Occurrence
HOME^%ZIS DISP+9
^DIR EOP+1
$$BUFFER^IBCNBU1 GETNOTES+4
INIT^IBCNES EB+2
$$GRP^IBCNS FNDGRPQ+2
ALL^IBCNS1 DISP+13
$$PLCOV^IBCNSU3 GETEXT+25, FNDCOV+12
RIDERS^IBCNSU3 GETEXT+34
$$FTFN^IBCNSU31 GETEXT+16
$$DAT1^IBOUTL GETLN+12, GETLN+13, GETEXT+13
$$FMTE^XLFDT GETNOTES+3

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
Routine Call
  • %ZIS
  • Line Location:
    • DISP+9
Routine Call
  • DIR
  • Line Location:
    • EOP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] GETLN+7, GETEXT+20, FNDCOV+9
^DPT - [#2] GETEXT+13
^IBA(354 - [#354] GETNOTES+3
^IBA(355.3 - [#355.3] GETEXT+10, GETCOM+5, GETCOM+6
^IBE(355.31 - [#355.31] GETEXT+24, FNDCOV+11
^TMP("?INX" EB+6, EB+7, EB+12!
^TMP($J DISP+11!, DISP+19*, DISP+27*, DISPQ!, PRINT+5, PRINT+6, PRINT+10, PRINT+12, SETLN+2, SETLN+3*
, SETLN+5, SETLN+6*, SETLN+7*

Label References

Name Line Occurrences
$$EOP PRINT+8, PRINT+14, PRINT+18
$$FNDCOV GETLN+14
$$FNDGRP GETLN+10
$$FRMLN GETLN+7, GETLN+8, GETLN+9, GETLN+10, GETLN+11, GETLN+12, GETLN+13, GETLN+14, GETEXT+27, GETEXT+29
, GETEXT+36, GETNOTES+3, GETNOTES+4
EB DISP+24
FNDCOVQ FNDCOV+7, FNDCOV+9
GETCOM DISP+23
GETEXT DISP+22
GETLN DISP+21
GETNOTES DISP+27
HDR PRINT+3, PRINT+8
PRINT DISP+29
SETLN DISP+15, GETLN+16, GETEXT+13, GETEXT+17, GETEXT+20, GETEXT+30, GETEXT+31, GETEXT+34, GETEXT+36, GETCOM+3
, GETCOM+5, GETCOM+6, GETNOTES+6, EB+3, EB+4, EB+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR GETEXT+9~, GETEXT+23!, GETEXT+25, GETEXT+34!
ARR( GETEXT+28, GETEXT+35
ARR("" GETEXT+34
ARR1 GETEXT+9~
ARR1( GETEXT+29*, GETEXT+31
ARR1("" GETEXT+31
CNT SETLN+1~, SETLN+5*, SETLN+6, SETLN+7
COL FRMLN~, FRMLN+1*, FRMLN+3, FRMLN+5
DATE DISP~, DISP+10*, DISP+13, DISP+21, DISP+22, GETEXT~, GETEXT+9*, GETEXT+25
DFN DISP~, DISP+9, DISP+13, DISP+22, DISP+24, DISP+27, GETEXT~, GETEXT+13, GETEXT+34, GETNOTES~
, GETNOTES+1, GETNOTES+3, GETNOTES+4, EB~, EB+2
DIR EOP+1~!
DIR(0 EOP+1*
DIRUT EOP+1~
DISPLAY DISP~, DISP+10*, DISP+22, DISP+23, DISP+24, PRINT+1*, PRINT+16
DT DISP+10, GETEXT+9, FNDCOV+7
DTOUT EOP+1~
DUOUT EOP+1~
FIELD FRMLN~, FRMLN+1*, FRMLN+4
FLNG FRMLN~, FRMLN+1*, FRMLN+4, FRMLN+5
IBC GETEXT+9~, GETEXT+27*, GETEXT+29
IBCAT GETEXT+9~, GETEXT+23*, GETEXT+24, GETEXT+26, GETEXT+27, FNDCOV+7~, FNDCOV+10*, FNDCOV+11, FNDCOV+13
IBCATFN GETEXT+9~, GETEXT+24*, GETEXT+25, FNDCOV+7~, FNDCOV+11*, FNDCOV+12
IBCDFN EB~, EB+2
IBCNTLN PRINT+1~, PRINT+6*, PRINT+8
IBCOUNT PRINT+1~, PRINT+3*, PRINT+8*, PRINT+14*, PRINT+16*, PRINT+18
IBCOVRD GETEXT+9~, GETEXT+22*, GETEXT+26*, GETEXT+30, GETEXT+31
IBDASH PRINT+1~*, PRINT+16
IBDATE GETLN~, GETLN+14, FNDCOV~, FNDCOV+7*, FNDCOV+12
IBFND GETNOTES+1~*, GETNOTES+3*, GETNOTES+4*, GETNOTES+6
IBINS DISP+10~, DISP+15
IBINS( DISP+17, DISP+18, DISP+23
IBINSFN GETEXT+9~, GETEXT+10*, GETEXT+20, FNDCOV~, FNDCOV+7, FNDCOV+9
IBL FRMLN+1~, FRMLN+3*, FRMLN+4*
IBLEVEL PRINT+1~, PRINT+5*, PRINT+6, PRINT+10, PRINT+12
IBLINE PRINT+1~, PRINT+12*, PRINT+14, GETLN+5~*, GETLN+7*, GETLN+8*, GETLN+9*, GETLN+10*, GETLN+11*, GETLN+12*
, GETLN+13*, GETLN+14*, GETLN+16, GETEXT+9~, GETEXT+12*, GETEXT+13*, GETEXT+15*, GETEXT+17*, GETEXT+19*, GETEXT+20*
, GETEXT+22*, GETEXT+27*, GETEXT+28*, GETEXT+29*, GETEXT+30*, GETEXT+33*, GETEXT+35*, GETEXT+36*, FRMLN~, FRMLN+1*
, FRMLN+3, FRMLN+5
IBLINE1 GETNOTES+1~*, GETNOTES+3*, GETNOTES+6
IBLINE2 GETNOTES+1~*, GETNOTES+4*, GETNOTES+6
IBLNX PRINT+1~, PRINT+10*, PRINT+12
IBNEW FRMLN+1~, FRMLN+3*, FRMLN+4*, FRMLN+5*, FRMLN+6
IBOUT FNDCOV+7~*, FNDCOV+9*, FNDCOV+13*, FNDCOV+14*, FNDCOVQ
IBPLN0 GETEXT+9~, GETEXT+10*, GETEXT+16
IBPLNFN DISP+10~, DISP+18*, DISP+23, GETEXT+9~, GETEXT+10*, GETEXT+16, GETEXT+25, GETCOM~, GETCOM+5, GETCOM+6
, FNDCOV~, FNDCOV+7, FNDCOV+12, FNDGRP~, FNDGRPQ+2
IBPOL0 DISP+10~, DISP+18*, DISP+21, DISP+22, GETLN~, GETLN+5*, GETLN+7, GETLN+8, GETLN+9, GETLN+10
, GETLN+11, GETLN+12, GETLN+13, GETLN+14, GETEXT~, GETEXT+10
IBPOL1 GETCOM~, GETCOM+3
IBPOLFN DISP+10~, DISP+17*, DISP+18, DISP+19, DISP+22, DISP+23, DISP+24, GETEXT~, GETEXT+13, GETEXT+34
IBQ EOP+1~*, EOP+2
IBQUIT PRINT+1~, PRINT+3*, PRINT+5, PRINT+8*, PRINT+10, PRINT+14*, PRINT+16, PRINT+18*
IBSUB PRINT+1~, PRINT+3*, PRINT+5, PRINT+6, PRINT+10, PRINT+12
IBU GETEXT+9~, GETEXT+22*, GETEXT+26*
IBX GETLN+5~, GETLN+7*, GETLN+8*, GETLN+9*, GETLN+10*, GETLN+11*, GETLN+12*, GETLN+13*, GETLN+14*, GETEXT+9~
, GETEXT+12*, GETEXT+13*, GETEXT+17, GETEXT+27*, GETEXT+28*, GETEXT+29, GETEXT+31*, GETEXT+35*, GETEXT+36, GETCOM+1~
, GETCOM+3*, GETCOM+5*, GETCOM+6*, GETNOTES+1~, GETNOTES+3*, EB+1~, EB+5*, EB+6*, EB+7, FNDCOV+7~
, FNDCOV+13*, HDR+1~, HDR+3*
IBY GETEXT+9~, GETEXT+12*, GETEXT+13*, GETEXT+16*, GETEXT+17, GETEXT+25*, GETEXT+26, GETCOM+1~, GETCOM+3*, GETCOM+6*
, GETNOTES+1~, GETNOTES+3*, GETNOTES+4*, EB+1~, EB+7*, EB+8, FNDCOV+7~, FNDCOV+12*, FNDCOV+13
IBZ GETEXT+9~, GETEXT+28*, GETEXT+29, GETEXT+31*, GETEXT+35*
IOF DISP+9, PRINT+14, HDR+1
IOSL PRINT+8, PRINT+14
LINE SETLN~, SETLN+1*, SETLN+7
POL SETLN+1~, SETLN+2*, SETLN+3*, SETLN+5, SETLN+6, SETLN+7
U DISP+18, GETLN+7, GETLN+8, GETLN+9, GETLN+10, GETLN+11, GETLN+12, GETLN+13, GETLN+14, GETEXT+10
, GETEXT+13, GETEXT+16, GETEXT+20, GETCOM+3, FNDCOV+9
X EOP+1~
Y EOP+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All