Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^IBA(355.33 - [#355.33] FIELD^DID,  GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call