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

Package: Integrated Billing

Routine: IBECEA31


Information

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

Source Information

Source file <IBECEA31.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 4 EVADD^IBAUTL3  SPEC^IBECEA32  NOEVT^IBECEA34  ($$DAT1,$$DAT2)^IBOUTL  
Kernel 1 $$FMADD^XLFDT  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Integrated Billing 4 IBATLM1B  IBECEA3  IBECEA32  IBECEA35  

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

External References

Name Field # of Occurrence
^DIE ADEV+6, ADEV+7
EVADD^IBAUTL3 ADEV+3
SPEC^IBECEA32 NOEV+11
NOEVT^IBECEA34 NOEV+3
$$DAT1^IBOUTL ADEV+5, NOEV+1
$$DAT2^IBOUTL DISEL+2, DISEL+3
$$FMADD^XLFDT ADEV+4

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
Routine Call
  • DIE
  • Line Location:
    • ADEV+6
    • ADEV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DIS+4, ADSEL+7, DISEL+1, DISEL+3, ASKAD+4
^DGPM("ATID1" ADSEL+5, ADSEL+7
^DGPT - [#45] DIS+5
^DIC(42 - [#42] DISEL+2
^IB - [#350] EVF+12
^IB("AFDT" EVF+12
^IBE(351.2 - [#351.2] NOEV+11

Label References

Name Line Occurrences
$$ADSEL NOEV+5
$$DIS EVS+1
ADSELQ ADSEL+7, ADSEL+8
ASKAD ADSEL+7, ADSEL+10, ASKAD+2, ASKAD+6
ASKADQ ASKAD+1, ASKAD+3, ASKAD+5
DISEL ADSEL+7
EVFQ EVF+12
EVS EVF+12
UNAB NOEV+1, NOEV+2

Naked Globals

Name Field # of Occurrence
^( ADSEL+7
^(0 ADSEL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR ADSEL+6~, ADSEL+8, ADSELQ
ARR( ADSEL+7*, ASKAD+2, ASKAD+3, ASKAD+4, ASKAD+5
DA ADEV+2~, ADEV+6*, ADEV+7*
DFN EVF~, EVF+9, EVF+12, ADSEL~, ADSEL+5, ADSEL+7, NOEV+5
DG ADSEL+6~, ADSEL+7*, DISEL+1
DGPM DISEL+1~*, DISEL+2, DISEL+3
DIE ADEV+2~, ADEV+6*, ADEV+7*
DIS EVF+11~, EVS+1*, EVS+2, DIS+3~, DIS+4*, DIS+5*, DIS+6
DR ADEV+2~, ADEV+6*, ADEV+7*
DT ASKAD+4
DTIME ASKAD+1
EVD EVF+11~*, EVF+12*, EVS+2
IBD ADSEL+6~*, ADSEL+7*
>> IBDG ADEV+7, NOEV+5*, NOEV+6, NOEV+7, NOEV+11, NOEV+14
IBDIS ASKAD+4*, ASKAD+5, ASKADQ!
>> IBEVDA ADEV+6, ADEV+7, NOEV+1, NOEV+2
IBEVDT ADEV+3!, NOEV+14*
IBFR EVF~, EVF+9, EVF+12, ASKAD+5, ADEV+4
IBLAST ADEV+2~, ADEV+4*, ADEV+5, ADEV+6
IBN EVF+11~*, EVF+12*, EVS+2, ADEV+3!
>> IBND EVF+12*, EVS+1
IBNH EVF~, EVF+10*, EVF+12, NOEV+3
IBQ ADSEL+6~*, ADSEL+7, ADSELQ, ASKAD+1*
>> IBSL NOEV+14*
IBTO EVF~, EVF+9, EVS+2, ASKAD+5, ADEV+4, NOEV+1
>> IBXA EVS+2, ASKAD+3, ADEV+4, NOEV+11
>> IBY ADEV+3, NOEV+6*, NOEV+7*
J ADSEL+6~, ADSEL+7*, ADSEL+9, ADSEL+10*, ASKAD+1, ASKAD+2
SEL ADSEL+6~, ADSEL+7, ADSELQ, ASKAD+3*, ASKAD+5*
X DIS~, DIS+4, DIS+5, ADSEL+6~, ASKAD+1*, ASKAD+2, ASKAD+3, ASKAD+4, ASKAD+5
Y EVF+11~*, EVFQ, EVS+2*
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