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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 5 ADDP^IBAUTL6  $$ZND^IBCNS1  BLD^IBCNSM  $$GETWNR^IBCNSMM1  $$DAT1^IBOUTL  
List Manager 3 EN^VALM  (FULL,PAUSE)^VALM1  EN^VALM2  
VA FileMan 2 ^DIE  ^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: 8

Package Total Caller Graph
Integrated Billing 7 IBCNSBL  IBCNSM BENEFITS USED  IBCNSM UPDATE INS BENEFITS  IBCNSM UPDATE INS CO.  IBCNSM UPDATE POLICY  IBCNSM VERIFY INS  IBCNSP1  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^DIE REVFY+2, VCN+10
^DIR REVASK+5, VCN+7
ADDP^IBAUTL6 VCN+9
$$ZND^IBCNS1 VFY+10
BLD^IBCNSM EXIT+2
$$GETWNR^IBCNSMM1 VFY+5
$$DAT1^IBOUTL VFY+19, VFY+20, REVFY+4
EN^VALM BU+8, EI+4, EI+12
FULL^VALM1 BU+1, EI+3, VC+1, VFY+3
PAUSE^VALM1 REVFY+5
EN^VALM2 BU+3, EI+8, VC+7

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
Routine Call
  • DIE
  • Line Location:
    • REVFY+2
    • VCN+10
Routine Call
  • DIR
  • Line Location:
    • REVASK+5
    • VCN+7
Routine Call
  • VALM
  • Line Location:
    • BU+8
    • EI+4
    • EI+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBA(354 - [#354] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] VFY+13, VFY+14, VFY+17, VFY+19, VFY+20, REVFY+3, REVFY+4, VCN+10, VCN+11*, VCN+12*
, EPOL+6
^IBA(354 - [#354] VCN+5, VCN+9
^TMP("IBNSM" BU+5, EI+10, VC+9
^TMP("IBNSMDX" BU+5, EI+10, VC+9
^VA(200 - [#200] VFY+19, REVFY+4

Label References

Name Line Occurrences
$$EPOL VC+5
EIQ EI+4
EXIT VC+5
MSG VCN+11, VCN+12
REVASK VFY+18, VFY+21
REVFY REVASK+6
VCN VC+5
VFY VC+11

Naked Globals

Name Field # of Occurrence
^( EPOL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CON VC+2~
DA EXIT+3!, VFY+2~, REVFY+2*, VCN+2~, VCN+10*
DA(1 REVFY+2*
DFN VC+5, VFY+10, VFY+13, VFY+14, VFY+17, VFY+19, VFY+20, REVFY+2, REVFY+3, REVFY+4
, VCN+5, VCN+9, VCN+10, VCN+11, VCN+12, EPOL~, EPOL+6
DIE REVFY+2*!, VCN+2~, VCN+10*
DIOUT VCN+2~
DIR REVASK+5!, VCN+2~
DIR("?" VCN+6*
DIR("A" REVASK+4*, VCN+5*
DIR("B" REVASK+4*, VCN+4*
DIR(0 REVASK+4*, VCN+4*
DIRUT REVASK+5, VCN+2~
DLAYGO VCN+2~
DR EXIT+3!, VFY+2~, REVFY+2*, VCN+2~, VCN+10*
DT VFY+20, REVFY+2, EPOL+8
DTOUT VCN+2~
DUOUT VCN+2~
DUZ REVFY+2, REVFY+4
I BU+2~, EI+7~, EI+10*, EI+11, VC+2~, EXIT+3!
IB0 VFY+2~, VFY+10*, VFY+11, VFY+12, VFY+13, VFY+15
IBADD VCN+2~, VCN+9
IBCDFN BU+2~, BU+7*
>> IBCH VFY+4*, VFY+19, REVASK+4, REVFY+4
IBCNS BU+2~, BU+7*, EI+4, EI+7~, EI+11*
IBCPOL BU+2~, BU+7*
IBDUZ VFY+2~, VFY+17*, VFY+18, VFY+19, REVASK+3, REVASK+4, REVFY+3*
IBDUZZ EXIT+3!
IBEXERR VCN+2~
>> IBPPOL BU+5*, BU+6, BU+7, VC+9*, VC+10, VFY+4, VFY+10, VFY+17, VFY+19, VFY+20
, REVFY+2, REVFY+3, REVFY+4
IBWHER VCN+2~
IBWNR VFY+2~, VFY+5*, VFY+11, VFY+15
IBX VCN+10~*, VCN+11*, VCN+12*, MSG+2
IBXX BU+2~, BU+4*, BU+5, EI+7~, EI+9*, EI+10, VC+2~, VC+8*, VC+9, EXIT+3!
J BU+2~, EI+7~, VC+2~, EXIT+3!, EPOL+5~, EPOL+6*
U %*, VFY+4, VFY+10, VFY+12, VFY+13, VFY+14, VFY+15, VFY+17, VFY+19, VFY+20
, REVFY+2, REVFY+3, REVFY+4
>> VALMBCK BU+10*, EP+2*, EIQ*, EXIT+4*
>> VALMSG MSG+2*
VALMY BU+2~, BU+4, EI+7~, EI+9, VC+2~, VC+8
VALMY( BU+4, EI+9, VC+8
X VCN+2~, VCN+11, VCN+12, EPOL+5~, EPOL+6*, EPOL+7, EPOL+8
>> XQORNOD(0 BU+3, EI+8, VC+7
Y REVASK+2~, REVASK+6, VCN+2~, VCN+8, VCN+10, EPOL+5~*, EPOL+6, EPOL+7*, EPOL+8*, EPOL+9
>> ZTQUEUED MSG+2
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 |  Naked Globals |  Local Variables  | All