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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNBLL

Package: Integrated Billing

Routine: IBCNBLL


Information

IBCNBLL ;ALB/ARH - Ins Buffer: LM main screen, list buffer entries ;1 Jun 97

Source Information

Source file <IBCNBLL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 2 $$INSERROR^IBCNEUT3  ($$INSURED,ALL)^IBCNS1  
List Manager 2 EN^VALM  ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1  
Registration 2 $$LST^DGMTU  (DEM,INP)^VADPT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Integrated Billing 20 IBCN INSURANCE BUFFER PROCESS  IBCNB INSURANCE BUFFER LIST  IBCNB LIST BUFFER REFRESH  IBCNB LIST COMPLETE VIEW  IBCNB LIST EPHARMACY VIEW  IBCNB LIST FAILURE VIEW  IBCNB LIST MEDICARE VIEW  IBCNB LIST NEGATIVE VIEW  
IBCNB LIST POSITIVE VIEW  IBCNB LIST TRICARE/CHAMPVA VIEW  IBCNBAR  IBCNBLA  IBCNBLA1  IBCNBLE1  IBCNEDE1  IBCNEDST  
IBCNERP8  IBCNERTQ  IBCNEUT4  IBCNOR2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; - main entry point for screen
EN1(V) ; entry point from view changing actions
HDR ; header code for list manager display
INIT ; initialization for list manager list
HELP ; list manager help
EXIT ; exit list manager option and clean up
BLD ; build screen display
BLDLN(IBBUFDA,IBCNT,DFLG) ; build line to display on List screen for one Buffer entry
BLDLNQ ; IB*2*506/taz Tag added
FLAGS(DFN,IBY) ;Build flag set for line
SET(LINE,CNT) ; set up list manager screen display array
SORT ; set up sort for list screen
; IB*2.0*737/DTG remove "8^Verified" reference
; Line below is the relationship between the sort order and the external description.
; 1^Patient Name, 2^Ins Name, 3^Source Of Info, 4^Date Entered, 5^Inpatient (Y/N), 6^Means Test (Y/N), 7^On Hold, 8^Verified, 9^eIV Status, 10^Positive Response
; 1^Patient Name, 2^Ins Name, 3^Source Of Info, 4^Date Entered, 5^Inpatient (Y/N), 6^Means Test (Y/N), 7^On Hold, 8^eIV Status, 10^Positive Response
INCL(VIEW,SYM,IB0) ;
INCLQ ;
DATE(X) ;
HOLD(DFN) ; returns true if patient has bills On Hold
  • ICR #5307
    • Status: Active
    • Usage: Private
    SYMBOL(IBBUFDA) ; Returns the symbol for this buffer entry
  • ICR #5307
    • Status: Active
    • Usage: Private
    UPDLN(IBBUFDA,ACTION) ; *** called by any action that modifies a buffer entry, so list screen can be updated if screen not recompiled
    ; modifies a single line in the display array for a buffer entry that has been modified in some way
    ; ACTION = REJECTED, ACCEPTED, EDITED
    SRCCNV(SRC) ; convert Source of Info acronym from field 355.12/.03 into 1 char code
    ; IB*2*595/DM T,U,B,O,N,S,A,K,J translations added
    ; IB*2*664/DW updated "U" for Community Care Network - should be CCN and not PCC
    ; IB*2*664/VD added "W" for Electronic Health Record
    ; IB*2*668/DW added "G" for Adv Med Cost Mgmt Solution
    GETKEYS(DUZ) ;
    ACTIVE(DFN) ;Check for active insurance
    GTMFLG(IBBUFDA) ;Check if Medicare
    ; IB*2.0*549 Added method
    REFRESH ; IB*794/DJW Refresh the buffer data but keep the selected view and sort

    External References

    Name Field # of Occurrence
    $$LST^DGMTU FLAGS+15, SORT+24
    $$GET1^DIQ BLDLN+25
    $$INSERROR^IBCNEUT3 GTMFLG+6
    $$INSURED^IBCNS1 FLAGS+12
    ALL^IBCNS1 ACTIVE+2
    DEM^VADPT BLDLN+5, FLAGS+11
    INP^VADPT BLDLN+5, FLAGS+11, SORT+23
    EN^VALM EN+4
    $$SETSTR^VALM1 BLDLN+13, BLDLN+20, BLDLN+21, BLDLN+22, BLDLN+23, BLDLN+24, BLDLN+25, BLDLN+26, BLDLN+28
    CLEAR^VALM1 EXIT+3
    FULL^VALM1 HELP+1
    PAUSE^VALM1 HELP+12, HELP+39, HELP+77, HELP+89

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !,"Flags displayed on screen if they apply to the Buffer entry:"
    • Line Location: HELP+4
    Function Call: WRITE
    • Prompt: !," i - Patient has other currently effective Insurance"
    • Line Location: HELP+5
    Function Call: WRITE
    • Prompt: !," I - Patient is currently admitted as an Inpatient"
    • Line Location: HELP+6
    Function Call: WRITE
    • Prompt: !," E - Patient has Expired"
    • Line Location: HELP+7
    Function Call: WRITE
    • Prompt: !," Y - Means Test Copay Patient"
    • Line Location: HELP+8
    Function Call: WRITE
    • Prompt: !," H - Patient has Bills On Hold"
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !," * - Buffer entry Verified by User"
    • Line Location: HELP+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+11
    Function Call: WRITE
    • Prompt: !,"Sources displayed on the screen if they apply to the Buffer entry:"
    • Line Location: HELP+13
    Function Call: WRITE
    • Prompt: !," I - Interview"
    • Line Location: HELP+14
    Function Call: WRITE
    • Prompt: !," D - Data Match"
    • Line Location: HELP+15
    Function Call: WRITE
    • Prompt: !," V - IVM"
    • Line Location: HELP+16
    Function Call: WRITE
    • Prompt: !," P - Pre-Registration"
    • Line Location: HELP+17
    Function Call: WRITE
    • Prompt: !," E - eIV"
    • Line Location: HELP+18
    Function Call: WRITE
    • Prompt: !," H - HMS"
    • Line Location: HELP+19
    Function Call: WRITE
    • Prompt: !," M - Medicare"
    • Line Location: HELP+20
    Function Call: WRITE
    • Prompt: !," R - ICB Card Reader"
    • Line Location: HELP+21
    Function Call: WRITE
    • Prompt: !," C - Contract Services"
    • Line Location: HELP+22
    Function Call: WRITE
    • Prompt: !," X - e-Pharmacy"
    • Line Location: HELP+23
    Function Call: WRITE
    • Prompt: !," K - Kiosk"
    • Line Location: HELP+25
    Function Call: WRITE
    • Prompt: !," F - Interfacility Insurance Update"
    • Line Location: HELP+26
    Function Call: WRITE
    • Prompt: !," T - Insurance Import"
    • Line Location: HELP+27
    Function Call: WRITE
    • Prompt: !," U - Community Care Network"
    • Line Location: HELP+29
    Function Call: WRITE
    • Prompt: !," B - Purchased Care Fee-Basis"
    • Line Location: HELP+30
    Function Call: WRITE
    • Prompt: !," O - Purchased Care Other"
    • Line Location: HELP+31
    Function Call: WRITE
    • Prompt: !," N - Insurance Intake"
    • Line Location: HELP+32
    Function Call: WRITE
    • Prompt: !," S - Insurance Verification"
    • Line Location: HELP+33
    Function Call: WRITE
    • Prompt: !," A - Veteran Appt Request"
    • Line Location: HELP+34
    Function Call: WRITE
    • Prompt: !," J - MYVA Health Journal"
    • Line Location: HELP+35
    Function Call: WRITE
    • Prompt: !," W - Electronic Health Record"
    • Line Location: HELP+37
    Function Call: WRITE
    • Prompt: !," G - Adv Med Cost Mgmt Solution"
    • Line Location: HELP+38
    Function Call: WRITE
    • Prompt: !,"eIV Electronic Insurance Verification Status"
    • Line Location: HELP+42
    Function Call: WRITE
    • Prompt: !!,"The following eIV Status indicators may appear to the left of the patient name:",!
    • Line Location: HELP+43
    Function Call: WRITE
    • Prompt: !," * - Previously an active policy."
    • Line Location: HELP+49
    Function Call: WRITE
    • Prompt: !," * - Previously an not active policy."
    • Line Location: HELP+53
    Function Call: WRITE
    • Prompt: !," * - Previously either an active or not active policy."
    • Line Location: HELP+59
    Function Call: WRITE
    • Prompt: !," e-Pharmacy buffer entries are not applicable for e-IV processing."
    • Line Location: HELP+74
    Function Call: WRITE
    • Prompt: !,"When an entry is Processed it is either:"
    • Line Location: HELP+78
    Function Call: WRITE
    • Prompt: !," Accepted - the Buffer entry's data is stored in the main Insurance files."
    • Line Location: HELP+79
    Function Call: WRITE
    • Prompt: !," - the modified Insurance entry is flagged as Verified."
    • Line Location: HELP+80
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+81
    Function Call: WRITE
    • Prompt: !," Rejected - the Buffer entry's data is not stored in the main Insurance files."
    • Line Location: HELP+82
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+83
    Function Call: WRITE
    • Prompt: !,"Once an entry is processed (either accepted or rejected) most of the data in"
    • Line Location: HELP+84
    Function Call: WRITE
    • Prompt: !,"the Buffer File entry is deleted leaving only a stub entry for tracking"
    • Line Location: HELP+85
    Function Call: WRITE
    • Prompt: !,"and reporting purposes."
    • Line Location: HELP+86
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+87
    Function Call: WRITE
    • Prompt: !,"The IB INSURANCE SUPERVISOR key is required to either Accept or Reject an entry."
    • Line Location: HELP+88
    Function Call: WRITE
    • Prompt: !,"Building display "
    • Line Location: BLD+5
    Function Call: WRITE
    • Prompt: !,"Gathering and sorting the records "
    • Line Location: SORT+11
    Function Call: WRITE
    • Prompt: "|"
    • Line Location: SORT+48
    Routine Call
    • VALM
    • Line Location:
      • EN+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBE(355.12 - [#355.12] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(19.1 - [#19.1] GETKEYS+4, GETKEYS+5
    ^DPT - [#2] BLDLN+20, SORT+16
    ^IB("AH" HOLD+1
    ^IBA(355.33 - [#355.33] BLDLN+3, BLDLN+4, SORT+12, SORT+13, SORT+15, SYMBOL+2
    ^IBE(350.9 - [#350.9] GTMFLG+4
    ^IBE(365.15 - [#365.15] SYMBOL+3
    ^TMP("IBCNBLL" INIT+1!, EXIT+1!, SET+2*, SET+3*, UPDLN+6, UPDLN+12*, UPDLN+18*
    ^TMP("IBCNBLLX" INIT+1!, EXIT+1!, SET+4*
    ^TMP("IBCNBLLY" INIT+1!, EXIT+1!, SET+5*, UPDLN+5
    ^TMP("IBCNERTQ" EN+3!
    ^TMP($J INIT+1!, EXIT+1!, BLD+6, BLD+7, BLD+8, BLD+9, SORT+8!, SORT+44*
    ^VA(200 - [#200] GETKEYS+4, GETKEYS+5

    Label References

    Name Line Occurrences
    $$ACTIVE BLDLN+11
    $$BLDLN BLD+11, UPDLN+17
    $$DATE BLDLN+26
    $$GETKEYS INIT+7
    $$GTMFLG BLDLN+3, INCL+4
    $$HOLD FLAGS+17, SORT+25
    $$INCL SORT+44
    $$SRCCNV BLDLN+25
    $$SYMBOL BLDLN+18, SORT+32
    BLD INIT+8
    BLDLNQ BLDLN+11
    FLAGS BLDLN+28
    HDR EN1+2, REFRESH+1
    INCLQ INCL+5, INCL+6, INCL+7, INCL+8, INCL+9, INCL+10, INCL+11, INCL+12, INCL+13, INCL+14
    INIT EN1+2, REFRESH+1
    SET BLD+12, BLD+14
    SORT BLD+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTION UPDLN~, UPDLN+10, UPDLN+11, UPDLN+16
    APPTNUM SORT+5~
    AVIEW EN+1~, EN+2*, EN1+1*
    CNT SET~, SET+2, SET+3, SET+4, SET+5
    CODE SRCCNV+5~, SRCCNV+8*, SRCCNV+9
    DFLG EN+1~, BLD+9*, BLD+11, BLDLN~, BLDLN+21, SORT+43*, SORT+44
    DFN EXIT+2!, BLDLN+1~, BLDLN+5*, BLDLN+11, BLDLN+20, BLDLN+28, FLAGS~, FLAGS+12, FLAGS+15, FLAGS+17
    , SORT+5~, SORT+23*, HOLD~, HOLD+1, ACTIVE~, ACTIVE+2
    DT FLAGS+12, SORT+42, ACTIVE+2
    DUZ INIT+7, GETKEYS~, GETKEYS+4, GETKEYS+5
    IB0 BLDLN+1~, BLDLN+4*, BLDLN+25, BLDLN+26, SORT+5~, SORT+15*, SORT+21, SORT+22, SORT+36, SORT+44
    , INCL~, INCL+8, INCL+9, SYMBOL+1~, SYMBOL+2*, SYMBOL+3
    IB20 BLDLN+1~, BLDLN+4*, BLDLN+23, SORT+5~, SORT+15*, SORT+17
    IB40 BLDLN+1~, BLDLN+3*
    IB60 BLDLN+1~, BLDLN+4*, BLDLN+5, BLDLN+24, SORT+5~, SORT+15*, SORT+16
    IBARRN UPDLN+3~, UPDLN+5*, UPDLN+6, UPDLN+12, UPDLN+17, UPDLN+18
    IBBUFDA EXIT+2!, BLD+1~, BLD+3*, BLD+8*, BLD+9, BLD+11, BLDLN~, BLDLN+2*, BLDLN+3, BLDLN+4
    , BLDLN+18, SET+4, SET+5, SORT+5~, SORT+13*, SORT+15, SORT+32, SORT+44, INCL+4, SYMBOL~
    , SYMBOL+2, UPDLN~, UPDLN+5, UPDLN+17, GTMFLG~, GTMFLG+6
    IBCNDFN SORT+5~, SORT+16*, SORT+23, SORT+24, SORT+25, SORT+42
    IBCNDT SORT+5~, SORT+12*, SORT+13
    IBCNPAT SORT+5~, SORT+16*, SORT+19, SORT+38, SORT+40
    IBCNS1 BLD+1~, BLD+6*, BLD+7, BLD+8, BLD+9
    IBCNS2 BLD+1~, BLD+7*, BLD+8, BLD+9
    IBCNSCRN EXIT+2!
    IBCNSORT HDR+1, HDR+2, INIT+6*, EXIT+2!, SORT+8*, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23
    , SORT+24, SORT+25, SORT+36, SORT+38
    IBCNSORT(1 SORT+36
    IBCNT BLD+1~, BLD+3*, BLD+10*, BLD+11*, BLD+12, BLDLN~, BLDLN+13, SORT+5~, SORT+6*, SORT+14*
    IBCSORT1 SORT+5~, SORT+19*, SORT+20*, SORT+21*, SORT+22*, SORT+23*, SORT+24*, SORT+25*, SORT+36*, SORT+38*
    , SORT+40*, SORT+44, SORT+45!
    IBCSORT2 SORT+5~, SORT+38*, SORT+40*, SORT+44, SORT+45!
    IBEBI INCL+1~
    IBFASTXT EXIT+2!
    IBINSCO ACTIVE+1~
    IBINSCO(0 ACTIVE+3
    IBINSDA EXIT+2!
    IBKEYS EN+1~, INIT+7*, BLDLN+11, INCL+5
    IBLINE BLD+1~, BLD+11*, BLD+12, BLDLN+1~, BLDLN+2*, BLDLN+13*, BLDLN+20*, BLDLN+21*, BLDLN+22*, BLDLN+23*
    , BLDLN+24*, BLDLN+25*, BLDLN+26*, BLDLN+28*, BLDLNQ+1
    IBMTS BLDLN+1~, FLAGS+10~, FLAGS+15*, FLAGS+16
    IBN UPDLN+3~*, UPDLN+11
    IBNEW UPDLN+3~, UPDLN+11*, UPDLN+12, UPDLN+17*, UPDLN+18
    IBO UPDLN+3~*, UPDLN+11
    IBOLD UPDLN+3~, UPDLN+6*, UPDLN+11, UPDLN+17
    IBSDA SORT+5~
    IBSDA("FLDS" SORT+42*
    IBSDA(1 SORT+42*
    IBSDA(3 SORT+42*
    IBSDA(4 SORT+42*
    IBX SORT+5~, SORT+24*, SORT+25*
    IBY BLDLN+1~, BLDLN+13*, BLDLN+18*, BLDLN+20*, BLDLN+22*, BLDLN+23*, BLDLN+24*, BLDLN+25*, BLDLN+26*, BLDLN+28*
    , FLAGS~, FLAGS+12*, FLAGS+13*, FLAGS+14*, FLAGS+16*, FLAGS+17*
    IENS INCL+1~
    INAME SORT+5~, SORT+17*, SORT+20, INCL+7
    INCL INCL+1~, INCL+2*, INCL+6*, INCL+7*, INCL+8*, INCL+10*, INCL+12*, INCL+13*, INCL+14*, INCLQ+1
    IOF HELP+3
    KEY1 GETKEYS+3~, GETKEYS+4*, GETKEYS+6
    KEY2 GETKEYS+3~, GETKEYS+5*, GETKEYS+6
    LINE SET~, SET+2
    MCFLAG BLDLN+1~, BLDLN+3*, BLDLN+11, INCL+1~, INCL+4*, INCL+5, INCL+10, INCL+11
    MWNRFLG GTMFLG+2~, GTMFLG+3*, GTMFLG+5*, GTMFLG+6*, GTMFLG+7
    MWNRIEN GTMFLG+2~, GTMFLG+4*, GTMFLG+6
    SRC SRCCNV~, SRCCNV+6, SRCCNV+8
    SRCSTR SRCCNV+5~, SRCCNV+7*, SRCCNV+8
    SYM SORT+5~, SORT+32*, SORT+36, SORT+38, SORT+44, INCL~, INCL+5, INCL+12, INCL+13, INCL+14
    , SYMBOL+1~, SYMBOL+2*, SYMBOL+3*, SYMBOL+6*, SYMBOL+7
    U HDR+1, HDR+2, BLDLN+20, BLDLN+23, BLDLN+24, BLDLN+25, FLAGS+15, SET+4, SET+5, SORT+16
    , SORT+17, SORT+21, SORT+24, INCL+8, INCL+9, SYMBOL+3, UPDLN+17, SRCCNV+8, GTMFLG+4, GTMFLG+6
    V EN1~, EN1+1
    VA BLDLN+1~, FLAGS+10~, SORT+5~
    VA("BID" BLDLN+22
    VADM BLDLN+1~, FLAGS+10~
    VADM(6 FLAGS+14
    VAERR BLDLN+1~, FLAGS+10~, SORT+5~
    VAIN BLDLN+1~, FLAGS+10~, SORT+5~, SORT+45!
    VAIN(1 FLAGS+13, SORT+23
    >> VALM("TITLE" HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13*, HDR+14*, HDR+15*
    >> VALMBCK EN1+3*, HELP+2*, REFRESH+2*
    >> VALMBG EN1+3*, REFRESH+2*
    >> VALMCNT BLD+3*, BLD+14, SET+1*, SET+2, SET+3, SET+4, SET+5
    >> VALMHDR(1 HDR+1*, HDR+2*
    >> VALMSG HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13*, HDR+14*, HDR+15*
    VIEW EN+1~, EN+2*, EN1+1*, HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15
    , HELP+41, HELP+46, HELP+51, HELP+55, HELP+68, HELP+73, SORT+44, INCL~, INCL+6, INCL+7
    , INCL+8, INCL+10, INCL+12, INCL+13, INCL+14
    X BLDLN+1~, SORT+5~, DATE~, DATE+1
    Y HELP+12, HELP+39, HELP+77, BLDLN+1~, SORT+5~
    >> ZTQUEUED BLD+5, BLD+10, SORT+11, SORT+14
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All