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

Package: Integrated Billing

Routine: IBCNSP2


Information

IBCNSP2 ;ALB/AAS - PATIENT INSURANCE INTERFACE FOR REGISTRATION ;21-JUNE-93

Source Information

Source file <IBCNSP2.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 13 (FEE,PREG,REG)^IBCNBME  DISP^IBCNS  $$INSURED^IBCNS1  IX^IBCNS2  (PAT,POL,SEL)^IBCNSEH  (,AFTER,BEFORE)^IBCNSEVT  NEW^IBCNSJ3  DP1^IBCNSM1  
EDPOL^IBCNSM3  ($$LK,COVERED)^IBCNSM31  PATPOL^IBCNSM32  $$DUPCO^IBCNSOK1  $$WNRBILL^IBEFUNC  
VA FileMan 2 ^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Integrated Billing 5 IB20PT87  IB20PT8C  IBCNBME  IBCNSP1  IBCSCE  
Fee Basis 1 FBUINS  

Entry Points

Name Comments DBIA/ICR reference
DISP ; -- Display Patient insurance policy information for registrations
UPDCLM(IBIFN,DFN,IBCDFN) ; Update the claim's insurance nodes when edits are made
; to the patient insurance file.
; This procedure is called when a claim is being edited from IB billing
; screen#3 and also when the patient insurance is being edited directly.
FEE ; -- fee entry point to add patient insurance.
  • ICR #396
    • Status: Active
    • Usage: Private
    R1
    REGQ ; -- exit logic and checks
    ; -- if no policy pointer delete
    DISPQ
    MCCR ; -- called from screen 3 of the edit bill option in mccr
    REG ; --Edit Patient insurance from registration, fee and mccr, allow new entries
    ; only edit policy if new policy
    ; call event driver if adding a new policy
  • ICR #396
    • Status: Active
    • Usage: Private
    ASKCOVD(DFN,IBCOV,IBCOVP) ; ask user if patient covered by insurance (2,.3192), returns true if answered yes

    External References

    Name Field # of Occurrence
    ^DIC REG+13, R1+6
    ^DIE R1+24, MCCR+4, ASKCOVD+10
    FEE^IBCNBME FEE+1
    PREG^IBCNBME REG+6
    REG^IBCNBME REG+7
    DISP^IBCNS DISP+2
    $$INSURED^IBCNS1 ASKCOVD+4
    IX^IBCNS2 UPDCLM+13
    PAT^IBCNSEH R1+29
    POL^IBCNSEH R1+32
    SEL^IBCNSEH R1+18
    ^IBCNSEVT REGQ+8
    AFTER^IBCNSEVT REGQ+8
    BEFORE^IBCNSEVT R1+9
    NEW^IBCNSJ3 R1+20
    DP1^IBCNSM1 REGQ+3
    EDPOL^IBCNSM3 R1+32
    $$LK^IBCNSM31 R1+19
    COVERED^IBCNSM31 REGQ+12
    PATPOL^IBCNSM32 R1+29
    $$DUPCO^IBCNSOK1 R1+8
    $$WNRBILL^IBEFUNC MCCR+3, MCCR+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Insurance conversion not complete, NO EDITING ALLOWED",!!
    • Line Location: R1+13
    Function Call: WRITE
    • Prompt: !,"INVALID ENTRY, DELETE AND RE-ENTER, NO EDITING ALLOWED",!!
    • Line Location: R1+14
    Function Call: WRITE
    • Prompt: !,"<DELETED> GROUP INSURANCE PLAN REQUIRED BUT NOT ENTERED"
    • Line Location: REGQ+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: REGQ+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKCOVD+4
    Function Call: WRITE
    • Prompt: !!,"Covered By Health Insurance indicates 'YES' but none currently Active.",!,"Please Review!",!!
    • Line Location: ASKCOVD+7
    Routine Call
    • DIE
    • Line Location:
      • R1+24
      • MCCR+4
      • ASKCOVD+10
    Routine Call
    • DIC
    • Line Location:
      • REG+13
      • R1+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^DGCR(399 - [#399] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] UPDCLM+6, UPDCLM+7, UPDCLM+11
    ^DIC(36 - [#36] R1+3
    ^DPT - [#2] R1+3, R1+5*, R1+12, REGQ+2, REGQ+6, UPDCLM+8, ASKCOVD+4, ASKCOVD+12
    ^IBE(350.9 - [#350.9] R1+10, R1+13, R1+14
    ^XUSEC("IB INSURANCE SUPERVISOR" R1+32

    Label References

    Name Line Occurrences
    $$ASKCOVD REG+17
    MCCR MCCR+6
    R1 REGQ+11, MCCR+6
    REGQ REG+12, REG+15, REG+17, R1+6, R1+12, R1+16, R1+17, R1+28
    UPDCLM R1+29

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    D REG+10~, MCCR+1~
    DA REG+10~, R1+24*, R1+25!, MCCR+1~, MCCR+4*!, ASKCOVD+2~, ASKCOVD+10*!
    DA(1 R1+4*, R1+24*
    DE REG+10~, MCCR+1~
    DFN REG+6, REG+7, REG+12, REG+14*, REG+15, REG+17, R1+1, R1+3, R1+4, R1+5
    , R1+8, R1+12, R1+24, R1+29, REGQ+2, REGQ+6, REGQ+12, FEE+1, UPDCLM~, UPDCLM+5
    , UPDCLM+6, UPDCLM+8, DISP+1, ASKCOVD~, ASKCOVD+4, ASKCOVD+10, ASKCOVD+12
    >> DGPRFLG REG+6, R1+23
    >> DGRVRCAL MCCR+7*
    DIC REG+10~, REG+13*, R1+1*, R1+6!, R1+25!, MCCR+1~, MCCR+4!, ASKCOVD+2~, ASKCOVD+10!
    DIC("A" R1+1*
    DIC("B" R1+3*
    DIC("W" R1+2*
    DIC(0 REG+13*, R1+1*
    DIE REG+10~, R1+24*, R1+25!, MCCR+1~, MCCR+4*!, ASKCOVD+2~, ASKCOVD+10*!
    DIH REG+10~, MCCR+1~
    DIR REG+10~, MCCR+1~
    DIV REG+10~, MCCR+1~
    DIY REG+10~, MCCR+1~
    DLAYGO MCCR+1~
    DQ REG+10~, MCCR+1~
    DR REG+10~, R1+23*, R1+25!, MCCR+1~, MCCR+4*!, ASKCOVD+2~, ASKCOVD+10*!
    DTOUT ASKCOVD+2~, ASKCOVD+10
    DUZ R1+23, R1+32
    I REG+10~, MCCR+1~
    IBADI MCCR+6!
    IBCDFN REG+10~, R1+7*, R1+8, R1+12, R1+24, R1+29, R1+32, REGQ+2, REGQ+6, REGQ+10!
    , MCCR+1~, UPDCLM~, UPDCLM+5, UPDCLM+8, UPDCLM+10, UPDCLM+11
    IBCNP REG+10~, REG+11*, R1+3, R1+11*, MCCR+1~, MCCR+3*
    IBCNRTN MCCR+6*, MCCR+8!
    IBCNS REG+10~, R1+7*, R1+8, R1+19, R1+20, REGQ+10!, MCCR+1~
    IBCNSEH REG+10~, R1+10*, MCCR+1~
    IBCNT REG+10~
    IBCOV REG+17, ASKCOVD~, ASKCOVD+4*, ASKCOVD+7
    IBCOVP REG+10~, REG+17, REGQ+12, ASKCOVD~, ASKCOVD+12*
    IBCPOL REG+10~, R1+19*, R1+20, R1+23, MCCR+1~
    IBD REG+10~, MCCR+1~
    IBDD REG+10~, MCCR+1~
    IBDT REG+10~, MCCR+1~
    IBEVT1 REG+10~
    IBEVTA REG+10~
    >> IBFEE R1+16
    IBIFN R1+29, MCCR+3, MCCR+4, MCCR+7, UPDCLM~, UPDCLM+5, UPDCLM+6, UPDCLM+7, UPDCLM+11, UPDCLM+13
    IBINSD ASKCOVD+2~, ASKCOVD+4*, ASKCOVD+7, ASKCOVD+12
    IBMCR MCCR+1~, MCCR+3*, MCCR+7
    IBNEW REG+10~, R1*, R1+8*, R1+12, R1+16, R1+17, REGQ+2, REGQ+3!, REGQ+7!, REGQ+10!
    , MCCR+1~
    IBNEWP REG+10~, R1*, R1+20*, R1+32, REGQ+10!, MCCR+1~
    IBOK REG+10~, MCCR+1~
    IBQUIT REG+10~, REG+15*, REG+17*, R1*, R1+6*, R1+13*, R1+14*, R1+17, R1+20*, R1+28
    , R1+32, R1+33*, REGQ+11, REGQ+13!, MCCR+1~
    IBREG R1+28*, R1+33!
    IBSEL REG+10~, MCCR+1~
    IBX ASKCOVD+2~, ASKCOVD+4*, ASKCOVD+10*, ASKCOVD+12*, ASKCOVD+14
    J REG+10~, MCCR+1~
    L REG+10~, MCCR+1~
    NODE UPDCLM+9~, UPDCLM+12*, UPDCLM+13
    U UPDCLM+6, UPDCLM+7, UPDCLM+11
    VAERR REG+10~
    VALMQUIT REG+10~, REG+12, REG+15*, R1+6*, MCCR+1~
    X REG+10~, R1+3*, MCCR+1~, UPDCLM+9~, UPDCLM+10*, ASKCOVD+2~
    Y REG+10~, REG+14, R1+6, R1+7, R1+8, MCCR+1~, ASKCOVD+2~, ASKCOVD+10
    Z UPDCLM+9~, UPDCLM+11*, UPDCLM+12
    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