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

Package: Integrated Billing

Routine: IBCNBLA1


Information

IBCNBLA1 ;ALB/ARH - Ins Buffer: LM action calls (cont) ;1 Jun 97

Source Information

Source file <IBCNBLA1.m>

Call Graph

Call Graph

Call Graph Total: 27

Package Total Call Graph
Integrated Billing 18 $$ACCEPT^IBCNBAA  REJECT^IBCNBAR  (ELIG,GRP,INS,POLICY)^IBCNBCD  (GRP,GRPHELP,INS,INSHELP,POLHELP,POLICY)^IBCNBEE  ($$ADDSTF,EDITSTF)^IBCNBES  $$SEL^IBCNBLA  (HDR,INIT)^IBCNBLE  $$SIDERR^IBCNBLE1  
($$SYMBOL,HDR,INIT,UPDLN)^IBCNBLL  (HDR,INIT)^IBCNBLP  ($$DICINS,$$LOCK,DISPBUF,UNLOCK)^IBCNBU1  WAIT^IBCNBUH  ($$OUT,R100)^IBCNERP1  ($$AMLOOK,$$AMSEL)^IBCNEUT1  BUFF^IBCNEUT2  $$INSERROR^IBCNEUT3  
CLEAR^IBCNEUT4  $$EXPAND^IBTRE  
VA FileMan 5 ^DIC  ($$GET1,FIELD)^DID  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
List Manager 2 (FULL,PAUSE)^VALM1  CLEAN^VALM10  

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

Package Total Caller Graph
Integrated Billing 11 IBCNB ENTRY EDIT ALL  IBCNB ENTRY EDIT GROUP  IBCNB ENTRY EDIT INSURANCE  IBCNB ENTRY EDIT POLICY  IBCNB ENTRY ESCALATE  IBCNB ENTRY RESPONSE REPORT  IBCNB LIST ADD  IBCNB PROCESS ACCEPT  
IBCNB PROCESS COMPARE/EDIT  IBCNB PROCESS REJECT  IBCNBLA  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ADDBUF ; add a new buffer entry protocol
INS ; Insurance company lookup
INSEDIT(IBBUFDA) ; edit the Insurance data of a buffer entry
GRPEDIT(IBBUFDA) ; edit the Group/Plan data of a buffer entry
POLEDIT(IBBUFDA) ; edit the Subscriber Policy data of a buffer entry
ALLEDIT(IBBUFDA) ; edit All data of a buffer entry
CMPEDIT(IBBUFDA) ; display a buffer entry and an existing ins entry for comparison, allow edit of buffer data
CEINS
CEGRP
CEPOL
CELIG
CMPQ
VERIFY(IBBUFDA) ; verify a buffer entry
REJECT(IBBUFDA,DIRUT) ; process a reject and then delete a buffer entry
; Output parameter DIRUT is optional and passed in by reference. This
; variable will be defined if the user enters a leading up-arrow,
; times out, or enters a null response. This is so the calling routine
; can detect if the user did something other than say Yes or No to
; this question.
REJX ;
ACCEPT(IBBUFDA) ; process a buffer entry for acceptance
ACCPTQ ;IB*737/CKB - if the Buffer entry wasn't Accepted (see IBBUFABORT), display warning message and return to Buffer
RESP(BUFF) ; List Response Report for Trace # associated with this entry
; BUFF = buffer IEN
RESPX
INPTTR(FILE,FLD,X) ; Does value X pass input transform for file, field?
ICB(IBBUFDA) ;called by ICB to update eIV status flag (symbol) in the insurance buffer entry
  • ICR #4505
    • Status: Pending
    • Usage: Private
    ESC(IBBUFDA,IBKEYS) ; Escalate to user with ability to edit Insurance/Group data
    ESCX ;

    External References

    Name Field # of Occurrence
    ^DIC ADDBUF+5
    $$GET1^DID INPTTR+2
    FIELD^DID INS+17
    ^DIE ESC+18
    $$GET1^DIQ ACCEPT+20, ICB+3
    ^DIR INS+8, INS+20, CEINS+5, CEGRP+6, CEPOL+5, VERIFY+10, REJECT+16, ESC+13
    $$ACCEPT^IBCNBAA ACCEPT+23
    REJECT^IBCNBAR REJECT+18
    ELIG^IBCNBCD CELIG+1
    GRP^IBCNBCD CEGRP+3
    INS^IBCNBCD CEINS+2
    POLICY^IBCNBCD CEPOL+2
    GRP^IBCNBEE INS+27, GRPEDIT+3, ALLEDIT+4, CEGRP+7
    GRPHELP^IBCNBEE INS+27, GRPEDIT+3, ALLEDIT+4, CEGRP+7
    INS^IBCNBEE INS+26, INSEDIT+3, ALLEDIT+3, CEINS+6
    INSHELP^IBCNBEE INS+26, INSEDIT+3, ALLEDIT+3, CEINS+6
    POLHELP^IBCNBEE INS+28, POLEDIT+3, ALLEDIT+5, CEPOL+6
    POLICY^IBCNBEE INS+28, POLEDIT+3, ALLEDIT+5, CEPOL+6
    $$ADDSTF^IBCNBES INS+23
    EDITSTF^IBCNBES VERIFY+14
    $$SEL^IBCNBLA CMPEDIT+6, ACCEPT+8
    HDR^IBCNBLE INSEDIT+5, GRPEDIT+5, POLEDIT+5, ALLEDIT+7, VERIFY+15
    INIT^IBCNBLE INSEDIT+5, GRPEDIT+5, POLEDIT+5, ALLEDIT+7, VERIFY+15
    $$SIDERR^IBCNBLE1 ICB+11
    $$SYMBOL^IBCNBLL ICB+4
    HDR^IBCNBLL INS+32
    INIT^IBCNBLL INS+32
    UPDLN^IBCNBLL INSEDIT+5, POLEDIT+5, ALLEDIT+7, CMPQ, VERIFY+15, REJECT+18, ACCPTQ+6, ESC+19
    HDR^IBCNBLP CMPQ
    INIT^IBCNBLP CMPQ
    $$DICINS^IBCNBU1 INS+8
    $$LOCK^IBCNBU1 INS+25
    DISPBUF^IBCNBU1 VERIFY+4, REJECT+9, ESC+3
    UNLOCK^IBCNBU1 INS+30
    WAIT^IBCNBUH ACCEPT+10, ACCEPT+17
    $$OUT^IBCNERP1 RESP+11
    R100^IBCNERP1 RESP+12
    $$AMLOOK^IBCNEUT1 INS+15
    $$AMSEL^IBCNEUT1 INS+15
    BUFF^IBCNEUT2 INS+29, ICB+14
    $$INSERROR^IBCNEUT3 INS+29, ICB+9
    CLEAR^IBCNEUT4 VERIFY+13, ICB+12
    $$EXPAND^IBTRE VERIFY+6, REJECT+12, ESC+9
    FULL^VALM1 ADDBUF+2, INSEDIT+2, GRPEDIT+2, POLEDIT+2, ALLEDIT+2, CMPEDIT+4, VERIFY+3, REJECT+8, ACCEPT+6, RESP+4
    , ESC+2
    PAUSE^VALM1 ACCPTQ+4, RESP+9, ESC+6
    CLEAN^VALM10 INSEDIT+5, GRPEDIT+5, POLEDIT+5, ALLEDIT+7, CMPQ
    $$FMTE^XLFDT VERIFY+6, REJECT+12, ESC+9
    $$UP^XLFSTR INS+16, INS+22

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADDBUF+5
    Function Call: WRITE
    • Prompt: !?5,IBHELP("HELP-PROMPT")
    • Line Location: INS+18
    Function Call: WRITE
    • Prompt: !,"Buffer Patient doesn't match Policy Patient, can't continue."
    • Line Location: CMPEDIT+7
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CEINS+0
    Function Call: WRITE
    • Prompt: !,"No Insurance Company Selected for Comparison."
    • Line Location: CEINS+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEINS+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEINS+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CEGRP+0
    Function Call: WRITE
    • Prompt: !,"No Insurance Group/Plan Selected for Comparison."
    • Line Location: CEGRP+1
    Function Call: WRITE
    • Prompt: !,?14,"Patient is "_$S(+IBPOLDA:"",1:"NOT ")_"a member of this Insurance Group/Plan",!
    • Line Location: CEGRP+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEGRP+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEGRP+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CEPOL+0
    Function Call: WRITE
    • Prompt: !,"No Patient Policy Selected for Comparison."
    • Line Location: CEPOL+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEPOL+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: CEPOL+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CELIG+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: CELIG+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: VERIFY+4
    Function Call: WRITE
    • Prompt: !!,"This entry already verified by ",$$EXPAND^IBTRE(355.33,.11,$P(IBX,U,11))," on ",$$FMTE^XLFDT($P(IBX,U,10)),"."
    • Line Location: VERIFY+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: VERIFY+8
    Function Call: WRITE
    • Prompt: " Coverage Verified ..."
    • Line Location: VERIFY+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: REJECT+9
    Function Call: WRITE
    • Prompt: !!,"This action will delete all insurance and patient specific data from a buffer ",!,"entry without first saving that data to the insurance files, leaving a stub ",!,"entry for reporting purposes.",!
    • Line Location: REJECT+10
    Function Call: WRITE
    • Prompt: !!,"This entry has been verified by ",$$EXPAND^IBTRE(355.33,.11,$P(IBX,U,11))," on ",$$FMTE^XLFDT($P(IBX,U,10)),".",!!
    • Line Location: REJECT+12
    Function Call: WRITE
    • Prompt: !,"Buffer Patient doesn't match Policy Patient, can't continue."
    • Line Location: ACCEPT+9
    Function Call: WRITE
    • Prompt: !!,"Error: the selected policy has no associated plan. Can not continue."
    • Line Location: ACCEPT+10
    Function Call: WRITE
    • Prompt: !!,"Sorry, but you do not have the required privileges to add",!,"new Insurance Companies."
    • Line Location: ACCEPT+16
    Function Call: WRITE
    • Prompt: !,"*** Unable to process entry, if accepted it would corrupt the Effective Date of the policy ***"
    • Line Location: ACCPTQ+2
    Function Call: WRITE
    • Prompt: !!,"*** Unable to process entry, the Effective Date is required ***"
    • Line Location: ACCPTQ+3
    Function Call: WRITE
    • Prompt: !!,"This entry does not have an associated eIV response."
    • Line Location: RESP+9
    Function Call: WRITE
    • Prompt: !,!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",!
    • Line Location: RESP+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: ESC+3
    Function Call: WRITE
    • Prompt: !!,"This action can only be taken by users that do not have either the IB INSURANCE",!,"COMPANY EDIT security key or the IB GROUP PLAN EDIT security key.",!
    • Line Location: ESC+5
    Function Call: WRITE
    • Prompt: !!,"This action will escalate the buffer entry to a level with the ability to edit",!,"insurance and/or group data.",!
    • Line Location: ESC+7
    Function Call: WRITE
    • Prompt: !!,"This entry has been verified by ",$$EXPAND^IBTRE(355.33,.11,$P(IBX,U,11))," on ",$$FMTE^XLFDT($P(IBX,U,10)),".",!!
    • Line Location: ESC+9
    Routine Call
    • DIC
    • Line Location:
      • ADDBUF+5
    Routine Call
    • DIE
    • Line Location:
      • ESC+18
    Routine Call
    • DIR
    • Line Location:
      • INS+8
      • INS+20
      • CEINS+5
      • CEGRP+6
      • CEPOL+5
      • VERIFY+10
      • REJECT+16
      • ESC+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^IBA(355.33 - [#355.33] FIELD^DID,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^IBA(355.33 - [#355.33] CMPEDIT+7, VERIFY+6, REJECT+12, ACCEPT+9, ESC+9
    ^IBCN(365 - [#365] RESP+7, RESP+8
    ^IBE(365.15 - [#365.15] ICB+6
    ^XUSEC("IB INSURANCE COMPANY ADD" ACCEPT+15

    Label References

    Name Line Occurrences
    $$INPTTR INS+16
    ACCPTQ ACCEPT+9, ACCEPT+10, ACCEPT+15, ACCEPT+21
    CEGRP CEGRP+7
    CEINS CEINS+6
    CEPOL CEPOL+6
    CMPQ CMPEDIT+6, CMPEDIT+7, CEINS+5, CEGRP+6, CEPOL+5
    ESCX ESC+4, ESC+14
    INS INS+16
    REJX REJECT+17
    RESPX RESP+9, RESP+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AMLIST ADDBUF+1~, INS+15
    BUFEFFDT ACCEPT+20~*, ACCEPT+21
    BUFF RESP~, RESP+6, RESP+7
    CODE ESC+1~, ESC+16*
    DA ESC+1~, ESC+16*
    DFN ADDBUF+1~, ADDBUF+5*, INS+22, INS+23
    DIC ADDBUF+1~, ADDBUF+5*
    DIC(0 ADDBUF+5*
    DIE ESC+1~, ESC+16*
    DIR ADDBUF+1~, INS+8!, INS+20!, CMPEDIT+2~, CEINS+5!, CEGRP+6!, CEPOL+5!, VERIFY+2~, REJECT+7~, ESC+1~
    DIR("?" INS+2*, INS+3*, INS+4*, CEINS+3*, CEGRP+4*, CEPOL+3*, VERIFY+8*, REJECT+14*, ESC+11*
    DIR("??" CEINS+3*, CEGRP+4*, CEPOL+3*
    DIR("A" INS+1*, INS+20*, CEINS+4*, CEGRP+5*, CEPOL+4*, VERIFY+9*, REJECT+15*, ESC+12*
    DIR("B" INS+20*, VERIFY+9*, REJECT+15*, ESC+12*
    DIR(0 INS+1*, INS+20*, CEINS+4*, CEGRP+5*, CEPOL+4*, VERIFY+9*, REJECT+15*, ESC+12*
    DIRUT ADDBUF+1~, INS+8, CMPEDIT+2~, CEINS+5, CEGRP+6, CEPOL+5, VERIFY+2~, REJECT~, REJECT+17, ESC+14
    DR ESC+1~, ESC+17*
    DUOUT ADDBUF+1~
    DUZ VERIFY+14, ACCEPT+15
    ERR ICB+2~, ICB+9*, ICB+11*, ICB+12, ICB+14
    FILE INPTTR~, INPTTR+2
    FLD INPTTR~, INPTTR+2
    IBACCEPT ACCEPT+3~*, ACCEPT+23*, ACCPTQ+6
    IBBUFABORT ACCEPT+4~*, ACCEPT+21*, ACCPTQ+1, ACCPTQ+2, ACCPTQ+3
    IBBUFDA ADDBUF+1~, INS+23*, INS+25, INS+26, INS+27, INS+28, INS+29, INS+30, INSEDIT~, INSEDIT+2
    , INSEDIT+3, INSEDIT+5, GRPEDIT~, GRPEDIT+2, GRPEDIT+3, POLEDIT~, POLEDIT+2, POLEDIT+3, POLEDIT+5, ALLEDIT~
    , ALLEDIT+2, ALLEDIT+3, ALLEDIT+4, ALLEDIT+5, ALLEDIT+7, CMPEDIT~, CMPEDIT+1, CMPEDIT+7, CEINS+2, CEINS+3
    CEINS+6, CEGRP+3, CEGRP+4, CEGRP+7, CEPOL+2, CEPOL+3, CEPOL+6, CELIG+1, CMPQ, VERIFY~
    , VERIFY+2, VERIFY+4, VERIFY+6, VERIFY+13, VERIFY+14, VERIFY+15, REJECT~, REJECT+7, REJECT+9, REJECT+12
    , REJECT+18, ACCEPT~, ACCEPT+2, ACCEPT+9, ACCEPT+20, ACCEPT+23, ACCPTQ+6, ICB~, ICB+3, ICB+4
    , ICB+9, ICB+11, ICB+12, ICB+14, ESC~, ESC+1, ESC+3, ESC+9, ESC+16, ESC+19
    IBCNERTN RESP+2~, RESP+10*
    IBCNESPC RESP+2~
    IBCNESPC("TRCN" RESP+10*
    IBDA CMPEDIT+2~, CMPEDIT+6*, CMPEDIT+7, CMPEDIT+8, ACCEPT+3~, ACCEPT+8*, ACCEPT+9, ACCEPT+10, ACCEPT+12
    IBDATA ADDBUF+1~, INS+23!
    IBDATA( INS+22*
    IBGRPDA CMPEDIT+2~, CMPEDIT+8*, CEGRP+1, CEGRP+2, CEGRP+3, CEGRP+4, ACCEPT+3~, ACCEPT+12*, ACCEPT+13*, ACCEPT+23
    IBHELP ADDBUF+1~
    IBHELP("HELP-PROMPT" INS+18
    IBIN ADDBUF+1~, INS+8*, INS+15*, INS+16, INS+22
    IBINSDA CMPEDIT+2~, CMPEDIT+8*, CEINS+1, CEINS+2, CEINS+3, ACCEPT+3~, ACCEPT+12*, ACCEPT+13, ACCEPT+15, ACCEPT+23
    IBKEYS ESC~, ESC+4
    IBOUT RESP+2~, RESP+11*
    IBPOLDA CMPEDIT+2~, CMPEDIT+8*, CEGRP+2, CEPOL+1, CEPOL+2, CEPOL+3, CELIG+1, ACCEPT+3~, ACCEPT+12*, ACCEPT+13*
    , ACCEPT+23
    IBRSP RESP+2~, RESP+7*, RESP+8, RESP+10
    IBSTR RESP+2~, RESP+8*
    IBTRC RESP+2~, RESP+8*, RESP+10
    IBX VERIFY+2~, VERIFY+6*, VERIFY+14!, REJECT+7~, REJECT+12*, ESC+1~, ESC+9*
    IBX( VERIFY+14*
    IBY VERIFY+2~, VERIFY+6*, VERIFY+9
    IIVERR VERIFY+13!
    IOF CEINSCEGRPCEPOLCELIG
    NG RESP+2~, RESP+5*, RESP+6*, RESP+7*, RESP+8*, RESP+9
    POP RESP+2~
    STOP RESP+2~, RESP+10*
    SYM ICB+2~, ICB+3*, ICB+6
    U CMPEDIT+7, CMPEDIT+8, VERIFY+6, REJECT+12, ACCEPT+9, ACCEPT+10, ACCEPT+12, RESP+8, RESP+10, ICB+6
    , ICB+11, ICB+14, ESC+9
    >> VALMBCK ADDBUF+2*, INS+32*, INSEDIT+5*, GRPEDIT+5*, POLEDIT+5*, ALLEDIT+7*, CMPQ*, VERIFY+3*, VERIFY+15*, REJECT+8*
    , REJECT+18*, ACCPTQ+5*, ACCPTQ+6*, RESPX*, ESC+2*, ESC+19*
    X ADDBUF+1~, CMPEDIT+2~, VERIFY+2~, REJECT+7~, INPTTR~, INPTTR+4, ESC+1~
    XCUTE INPTTR+1~, INPTTR+2*, INPTTR+3
    Y ADDBUF+1~, ADDBUF+5, INS+8*, INS+15*, INS+20, CMPEDIT+2~, CEINS+5, CEINS+6, CEGRP+6, CEGRP+7
    CEPOL+5, CEPOL+6, VERIFY+2~, VERIFY+11, REJECT+7~, REJECT+18, ESC+1~, ESC+15
    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