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

Package: Integrated Billing

Routine: IBECEA31


Information

IBECEA31 ;ALB/CPM - Cancel/Edit/Add... Handle Events ; 02-APR-93

Source Information

Source file <IBECEA31.m>

Entry Points

Name Comments DBIA/ICR reference
EVF(DFN,IBFR,IBTO,IBNH) ; Find the matching event for a copay or per diem.
; Input: DFN -- Pointer to the patient in file #2
; IBFR -- Charge 'Bill From' date
; IBTO -- Charge 'Bill To' date
; IBNH -- 2 - Fee, 1 - NHCU charge, 0 - Hospital charge
; 3 - LTC
; Output: >1 -- ien of event ^ admission date ^ discharge date
; 0 -- an event is not found
; -1 -- an event is found, but can't be billed
EVFQ
EVS ; Set the output variable Y for the most recent (applicable) event.
DIS(X) ; Find the discharge date for an admission.
; Input: X -- Softlink from an entry in #350
; Output: Discharge date (if discharged), or 9999999 (still admitted)
ADSEL(DFN) ; Select an admission to use to build an event.
; Input: DFN -- Pointer to the patient in file #2
; Output: >1 -- ien of pt movement (in file #405) to link event
; 0 -- no admissions for the patient, or
; -1 -- user decided to quit.
ADSELQ
DISEL ; Display admission data.
ASKAD ; Prompt the user to select an admission.
ASKADQ
ADEV ; Add a new event entry in file #350.
NOEV ; No event in Integrated Billing - ask user to select an admission
UNAB

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"End of list.",!
  • Line Location: ADSEL+9
Function Call: WRITE
  • Prompt: ?7,$$DAT2^IBOUTL(+DGPM),?28,"to: ",$E($P($G(^DIC(42,+$P(DGPM,"^",6),0)),"^"),1,18)
  • Line Location: DISEL+2
Function Call: WRITE
  • Prompt: ?52,"(Discharged: ",$$DAT2^IBOUTL(+$G(^DGPM(+$P(DGPM,"^",17),0))\1),")"
  • Line Location: DISEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKAD+1
Function Call: WRITE
  • Prompt: !!?3,*7,"Enter a NUMBER from 1-",J,".",!
  • Line Location: ASKAD+2
Function Call: WRITE
  • Prompt: !!?3,*7,"The bill dates fall outside the admissions dates!",!
  • Line Location: ASKAD+6
Function Call: WRITE
  • Prompt: !!,"I have to build the event record first... "
  • Line Location: ADEV+1
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADEV+3
Function Call: WRITE
  • Prompt: !,"Updating the Date Last Calculated to ",$$DAT1^IBOUTL(IBLAST),"... "
  • Line Location: ADEV+5
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADEV+6
Function Call: WRITE
  • Prompt: !,"Since the patient has been discharged, let me 'close' the IB event... "
  • Line Location: ADEV+7
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADEV+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOEV+1
Function Call: WRITE
  • Prompt: !,"Tried to link the charge to an admission on ",$$DAT1^IBOUTL($P(IBEVDA,"^",2)),", but the Bill To date",!,"(",$$DAT1^IBOUTL(IBTO),") exceeds the discharge date of ",$$DAT1^IBOUTL($P(IBEVDA,"^",3)),"."
  • Line Location: NOEV+1
Function Call: WRITE
  • Prompt: !,"You may link this charge to one of the patient's admissions..."
  • Line Location: NOEV+4
Function Call: WRITE
  • Prompt: !!,"This patient has no admissions -- this charge cannot be added."
  • Line Location: NOEV+6
Function Call: WRITE
  • Prompt: !!,"No admission selected -- transaction cannot be completed."
  • Line Location: NOEV+7
Function Call: WRITE
  • Prompt: !!,"I will need to build an event record in Integrated Billing for this charge."
  • Line Location: NOEV+8
Function Call: WRITE
  • Prompt: "Unable to link this charge to an event in Integrated Billing!"
  • Line Location: UNAB+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call