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

Package: Integrated Billing

Routine: IBCNSU41


Information

IBCNSU41 ;ALB/CPM - SPONSOR UTILITIES (CON'T) ; 5/9/03 1:25pm

Source Information

Source file <IBCNSU41.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^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: 7

Package Total Caller Graph
Integrated Billing 6 IBACUS  IBCNBAR  IBCNSJ13  IBCNSM  IBCNSM32  IBCSC3  
Registration 1 DGRP15  

Entry Points

Name Comments DBIA/ICR reference
SPON(DFN) ; Add/edit sponsor/sponsor relationships for a patient.
; Input: DFN -- Pointer to the patient in file #2
  • ICR #2037
    • Status: Active
    • Usage: Private
    SPONQ
    LSP ; Main loop to collect sponsor and relation data.
    LSPC ; - allow edit of non-patient sponsor name/dob/ssn
    ; Start of Sponsor changes for IB*2.0*654
    LSPQ
    LSPCX ; - allow edit of non-patient sponsor name/dob/ssn
    LSPQX
    POL(DFN) ; Update TRICARE policies with Sponsor information.
    ; Input: DFN -- Pointer to the patient in file #2
    POLQ
    HELP ; Sponsor Delete Help
    SPTXT(IBTXT2,IBTXT3) ;
    ; Function to split IBTXT2 into 2 lines each <=80 chars.

    External References

    Name Field # of Occurrence
    ^DIC LSP+6
    FILE^DICN LSP+17, LSP+22, LSPC+58, LSPCX+20
    ^DIE LSPC+42, LSPC+47, LSPC+61, LSPCX+4, LSPCX+9, LSPCX+23, POL+53
    ^DIK LSPC+33
    $$GET1^DIQ LSPC+8, LSPC+10
    ^DIR LSP+1, LSP+12, LSPC+26, LSPC+32, LSPC+55, LSPCX+17

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"New sponsors must be in the format LAST,FIRST.",!
    • Line Location: LSP+8
    Function Call: WRITE
    • Prompt: !,"Unable to add a new sponsor!"
    • Line Location: LSP+18
    Function Call: WRITE
    • Prompt: !,"Unable to add a new sponsor!"
    • Line Location: LSP+23
    Function Call: WRITE
    • Prompt: !,IBTXT3
    • Line Location: LSPC+23
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPC+55
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPC+62
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPCX+17
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPCX+24
    Function Call: WRITE
    • Prompt: !!,"Answering Yes will only remove this Sponsor from this Patient."
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !,"The Sponsor will remain in the Sponsor file and will be"
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !,"available for selection for other Patients."
    • Line Location: HELP+3
    Routine Call
    • DIC
    • Line Location:
      • LSP+6
    Routine Call
    • DIE
    • Line Location:
      • LSPC+42
      • LSPC+47
      • LSPC+61
      • LSPCX+4
      • LSPCX+9
      • LSPCX+23
      • POL+53
    Routine Call
    • DIR
    • Line Location:
      • LSP+1
      • LSP+12
      • LSPC+26
      • LSPC+32
      • LSPC+55
      • LSPCX+17

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
    ^IBA(355.8 - [#355.8] Classic Fileman Calls,  GET1^DIQ
    ^IBA(355.81 - [#355.81] Classic Fileman Calls
    ^IBA(355.82 - [#355.82] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] POL+17, POL+29, POL+39
    ^IBA(355.3 - [#355.3] POL+32
    ^IBA(355.8 - [#355.8] LSP+7, POL+12
    ^IBA(355.81 - [#355.81] LSPC+5, LSPC+50, LSPCX+12, POL+6, POL+7
    ^IBA(355.82 - [#355.82] POL+20
    ^IBE(355.1 - [#355.1] POL+32

    Label References

    Name Line Occurrences
    LSP SPON+5, LSP+8, LSP+13
    LSPC LSP+7
    LSPQ LSP+2, LSP+18, LSP+23, LSPC+36, LSPC+51, LSPCX+13
    POLQ POL+3, POL+26
    SPONQ SPON+3
    SPTXT LSPC+20

    Naked Globals

    Name Field # of Occurrence
    ^( POL+29
    ^(7 POL+29

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA LSPC+2~, LSPC+33*, LSPC+40*, LSPC+42!, LSPC+45*, LSPC+47!, LSPC+61*!, LSPCX+2*, LSPCX+4!, LSPCX+7*
    LSPCX+9!, LSPCX+23*!, POL+53*!
    DA(1 POL+53*
    DFN SPON~, SPON+3, LSPC+5, LSPC+8, LSPC+50, LSPC+57, LSPCX+12, LSPCX+19, POL~, POL+3
    , POL+6, POL+29, POL+39, POL+53
    DIC LSP+6*!, LSP+16*, LSP+21*, LSPC+57*, LSPCX+19*
    DIC("DR" LSPC+57*, LSPCX+19*
    DIC(0 LSP+6*, LSP+16*, LSP+21*, LSPC+57*, LSPCX+19*
    DIE LSPC+2~, LSPC+40*, LSPC+42!, LSPC+45*, LSPC+47!, LSPC+61*!, LSPCX+2*, LSPCX+4!, LSPCX+7*, LSPCX+9!
    LSPCX+23*!, POL+53*!
    DIK LSPC+33*!
    DIR LSP+1!, LSP+12!, LSPC+2~, LSPC+55!, LSPCX+17!
    DIR("?" LSPC+54*, LSPCX+16*
    DIR("??" LSPC+25*, LSPC+30*
    DIR("A" LSP+1*, LSP+11*, LSPC+24*, LSPC+28*, LSPC+29*, LSPC+53*, LSPCX+15*
    DIR("B" LSPC+6*, LSPC+31*
    DIR(0 LSP+1*, LSP+11*, LSPC+6*, LSPC+31*, LSPC+53*, LSPCX+15*
    DIROUT LSP+2!, LSP+13!, LSPQ!, LSPQX!
    DIRUT LSP+2!, LSP+13!, LSPQ!, LSPQX!
    DLAYGO LSP+6*!, LSP+16*, LSP+17!, LSP+21*, LSP+22!, LSPC+57*, LSPC+58!, LSPCX+19*, LSPCX+20!
    DR LSPC+2~, LSPC+41*, LSPC+42!, LSPC+46*, LSPC+47!, LSPC+61*!, LSPCX+3*, LSPCX+4!, LSPCX+8*, LSPCX+9!
    LSPCX+23*!, POL+42*, POL+44*, POL+45*, POL+46*, POL+47*, POL+48*, POL+50, POL+51*, POL+53!
    DTOUT LSP+2!, LSP+13!, LSPQ!, LSPQX!
    DUOUT LSP+2!, LSP+13!, LSPQ!, LSPQX!
    IBFLAG LSPC+2~, LSPC+33*, LSPC+36, LSPQ!
    IBIEN LSPC+2~, LSPC+3*, LSPC+5*, LSPC+33, LSPQ!
    IBNAM LSP+7*, LSP+16*, LSPC+52, LSPQ!, LSPCX+14, LSPQX!
    IBPAT LSPC+2~, LSPC+8*, LSPC+14, LSPC+15, LSPC+19, LSPQ!
    IBQ SPON+4~*, SPON+5, LSP+2*
    IBQQ LSPC+51*, LSPC+55*, LSPC+58*, LSPQ!, LSPCX+13*, LSPCX+17*, LSPCX+20*, LSPQX!
    IBQUIT SPTXT+3~, SPTXT+4*, SPTXT+5, SPTXT+7*
    IBSP LSP+7*, LSP+22*, LSP+23, LSPC+5, LSPC+10, LSPC+45, LSPC+50, LSPC+57, LSPQ!, LSPCX+7
    LSPCX+12, LSPCX+19, LSPQX!
    IBSPD LSP+7*, LSP+21*, LSPC+39, LSPC+40, LSPQ!, LSPCX+1, LSPCX+2, LSPQX!
    IBSPON LSPC+2~, LSPC+10*, LSPC+12, LSPQ!
    IBSPP LSP+17*, LSP+18, LSP+21, LSPQ!, LSPQX!
    IBSPR LSPC+50*, LSPC+51, LSPC+58*, LSPC+61, LSPQ!, LSPCX+12*, LSPCX+13, LSPCX+20*, LSPCX+23, LSPQX!
    IBTXT1 LSPC+2~, LSPC+11*, LSPC+12*, LSPC+14, LSPC+15*, LSPC+21
    IBTXT2 LSPC+2~, LSPC+11*, LSPC+16*, LSPC+18, LSPC+19*, LSPC+20, LSPC+22, SPTXT~, SPTXT+2, SPTXT+6
    , SPTXT+8, SPTXT+9*
    IBTXT3 LSPC+2~, LSPC+11*, LSPC+20, LSPC+23, SPTXT~, SPTXT+8*
    IBX LSP+3*, LSP+8, LSP+11, LSP+16, LSPQ!, LSPQX!, POL+4~, POL+29*, POL+39, POL+53
    IBY POL+4~, POL+29*, POL+32, POL+35
    IBY7 POL+4~, POL+29*, POL+44
    ICNT SPTXT+3~, SPTXT+5*, SPTXT+6, SPTXT+8, SPTXT+9
    SPON POL+4~, POL+12*, POL+16, POL+17, POL+20, POL+23
    U LSPC+5
    X LSP+3, LSP+16*, LSP+21*, LSPC+57*, LSPQ!, LSPCX+19*, LSPQX!, POL+4~, POL+6*, POL+7
    X1 POL+4~, POL+17*, POL+18, POL+20*, POL+21
    X3 POL+4~, POL+39*, POL+40, POL+45, POL+46, POL+47, POL+48
    Y LSP+7, LSP+13, LSP+17, LSP+22, LSPC+26, LSPC+32, LSPC+55, LSPC+58, LSPQ!, LSPCX+17
    LSPCX+20, LSPQX!, POL+4~, POL+7*, POL+10, POL+12
    Y(0 LSP+7
    Z POL+4~, POL+6, POL+26
    Z("BRAN" POL+23*, POL+46
    Z("DOB" POL+18*, POL+21*, POL+40, POL+45
    Z("NAME" POL+18*, POL+21*, POL+44
    Z("RANK" POL+23*, POL+47
    Z("SSN" POL+18*, POL+21*, POL+48
    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