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

Package: Integrated Billing

Routine: IBCNBU1


Information

IBCNBU1 ;ALB/ARH-Ins Buffer: Utilities ;1 Jun 97

Source Information

Source file <IBCNBU1.m>

Entry Points

Name Comments DBIA/ICR reference
BUFFER(DFN) ; returns IFN of first buffer entry found for the patient, 0 otherwise
SELINS() ; user select an insurance company
SELGRP(IBINSDA) ; given a specific insurance company, allow user to choose a group/plan
SELEXT(DFN) ; user select existing ins co, group, and if the patient is a member of the group also return the policy
PTGRP(DFN,IBINSDA,IBGRPDA) ; return policy ifn if patient is a member of this group plan
DISPBUF(IBBUFDA) ; display summary info on a buffer entry
LOCK(IBBUFDA,DISP,TO) ; return true if able to lock the buffer entry, if not an DISP is true then will display a message
; TO - lock attempt time out & hang time in seconds, default to 4
UNLOCK(IBBUFDA) ; unlock a Buffer entry
DICINS(INSNAME,IBSCACT,IBLISTN) ; user search/selection of existing Insurance Company Names, does not list duplicates, based on names and synonyms
DINSQ
DIR(MAX) ; DIR call for DICINS search for insurance company name
DICBUF(INSNAME,DFN,IBDUZ) ; display list of editable buffer entries based on insurance name, may specify patient and/or enterer
; (non-MCCR people: only the person that created an entry should be able to edit it, everyone else should create new ones)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IBINSNM
  • Line Location: SELGRP+3
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DISPBUF+6
Function Call: WRITE
  • Prompt: !,?2,"Entered: ",?15,$$FMTE^XLFDT(+IB0,2),?50,"Source: ",?60,$$EXPAND^IBTRE(355.33,.03,$P(IB0,U,3))
  • Line Location: DISPBUF+7
Function Call: WRITE
  • Prompt: !,?2,"Entered By: ",?15,$$EXPAND^IBTRE(355.33,.02,+$P(IB0,U,2)),?50,"Verified: ",?60,$$FMTE^XLFDT($P(IB0,U,10),2)
  • Line Location: DISPBUF+8
Function Call: WRITE
  • Prompt: !,?50,"Verif By: ",?60,$E($$EXPAND^IBTRE(355.33,.11,$P(IB0,U,11)),1,20)
  • Line Location: DISPBUF+9
Function Call: WRITE
  • Prompt: !!,?2,"Patient: ",?15,$$EXPAND^IBTRE(355.33,60.01,$P(IB60,U,1)),?50,"Sub Id: ",?60,$E($P(IB90,U,3),1,19)
  • Line Location: DISPBUF+10
Function Call: WRITE
  • Prompt: !,?2,"Insurance: ",?15,$P($G(^IBA(355.33,+IBBUFDA,20)),U,1),?50,"Group #: ",?60,$E($P(IB90,U,2),1,19)
  • Line Location: DISPBUF+11
Function Call: WRITE
  • Prompt: !,?15,$P($G(^IBA(355.33,+IBBUFDA,21)),U,1)
  • Line Location: DISPBUF+12
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DISPBUF+13
Function Call: WRITE
  • Prompt: !!,"Another user is currently editing/processing this entry, please try again later.",!
  • Line Location: LOCK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] Classic Fileman Calls
^IBA(355.33 - [#355.33] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call