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 Total: 5

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBECEA3  IBECEA32  

Entry Points

Name Comments DBIA/ICR reference
ADEV ; Add a new event entry in file #350.
ASKADQ
EVF(DFN,IBFR,IBTO,IBNH) ; Find the matching event for a copay or per diem.
NOEV ; No event in Integrated Billing - ask user to select an admission
DIS(X) ; Find the discharge date for an admission.
ADSELQ
UNAB
ASKAD ; Prompt the user to select an admission.
EVFQ
ADSEL(DFN) ; Select an admission to use to build an event.
DISEL ; Display admission data.
EVS ; Set the output variable Y for the most recent (applicable) event.

External References

Name Field # of Occurrence
^DIE ADEV+6, ADEV+7
EVADD^IBAUTL3 ADEV+3
SPEC^IBECEA32 NOEV+10
$$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: ?52,"(Discharged: ",$$DAT2^IBOUTL(+$G(^DGPM(+$P(DGPM,"^",17),0))\1),")"
  • Line Location: DISEL+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKAD+1
Function Call: WRITE
  • Prompt: !!?3,*7,"Enter a NUMBER from 1-",J,".",!
  • Line Location: ASKAD+2
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADEV+3
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: !,"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: !!,"This patient has no admissions -- this charge cannot be added."
  • Line Location: NOEV+5
Function Call: WRITE
  • Prompt: !!,"No admission selected -- transaction cannot be completed."
  • Line Location: NOEV+6
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+3
^DGPM("ATID1" ADSEL+5, ADSEL+7
^DIC(42 - [#42] DISEL+2
^IB - [#350] EVF+11
^IB("AFDT" EVF+11
^IBE(351.2 - [#351.2] NOEV+10

Label References

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