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

Package: Integrated Billing

Routine: IBECEA34


Information

IBECEA34 ;ALB/CPM - Cancel/Edit/Add... Fee Support ; 12-FEB-96

Source Information

Source file <IBECEA34.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 2 EVADD^IBAUTL3  $$DAT2^IBOUTL  
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 IBECEA21  IBECEA3  IBECEA31  IBECEA33  

Entry Points

Name Comments DBIA/ICR reference
NOEVT ; No event in Integrated Billing - ask user to select a Non-VA ptf ;IB*2.0*734 messages at tag +1,+3,&+4
NOEVTQ
ADSEL(DFN) ; Select a Non-VA PTF as an admission to use to build an event.
; Input: DFN -- Pointer to the patient in file #2
; Output: >1 -- ien of ptf entry (in file #45) to link event
; 0 -- no feee ptf entries for the patient, or
; -1 -- user decided to quit.
DISEL ; Display admission data.
ASKAD ; Prompt the user to select an admission.
ASKADQ
ADEV ; Add a new event entry for the Non-VA PTF in file #350.
MED ; Is the Fee Charge for a CNH or Contract Hospital Admission?
MEDQ
HMED ; Help for the 'C(N)H or Contract (H)ospital' prompt

External References

Name Field # of Occurrence
^DIE ADEV+4
EVADD^IBAUTL3 ADEV+3
$$DAT2^IBOUTL DISEL+2, DISEL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You may link this charge to one of the patient's Non-VA PTF entries..."
  • Line Location: NOEVT+1
Function Call: WRITE
  • Prompt: !!,"This patient has no Non-VA PTF entries -- this charge cannot be added."
  • Line Location: NOEVT+3
Function Call: WRITE
  • Prompt: !!,"No Non-VA PTF entry selected -- transaction cannot be completed."
  • Line Location: NOEVT+4
Function Call: WRITE
  • Prompt: !!,"I will need to build an event record in Integrated Billing for this charge."
  • Line Location: NOEVT+5
Function Call: WRITE
  • Prompt: !!?3,"End of list.",!
  • Line Location: ADSEL+13
Function Call: WRITE
  • Prompt: ?7,$$DAT2^IBOUTL($P(DGPT,"^",2))
  • Line Location: DISEL+2
Function Call: WRITE
  • Prompt: ?32,"(Discharged: ",$$DAT2^IBOUTL(+^(70)),")"
  • 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+5
Function Call: WRITE
  • Prompt: !!,"Building the Non-VA Care PTF event record... "
  • Line Location: ADEV+1
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADEV+3
Function Call: WRITE
  • Prompt: $S("nN"[X:" CNH",1:" CONTRACT HOSPITAL")
  • Line Location: MED+5
Function Call: WRITE
  • Prompt: !!?6,"Enter: '<CR>' - If the charge is for a CNH Admission"
  • Line Location: HMED+1
Function Call: WRITE
  • Prompt: !?14,"'H' - If the charge is for a Contract Hospital Admission"
  • Line Location: HMED+2
Function Call: WRITE
  • Prompt: !?14,"'^' - To quit this option",!
  • Line Location: HMED+3
Routine Call
  • DIE
  • Line Location:
    • ADEV+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] ADSEL+8, DISEL+1, DISEL+3, ASKAD+3
^DGPT("AFEE" ADSEL+5, ADSEL+7
^IB - [#350] ADEV+5*

Label References

Name Line Occurrences
$$ADSEL NOEVT+2
ASKAD ADSEL+10, ADSEL+14, ASKAD+2, ASKAD+5
ASKADQ ASKAD+1, ASKAD+4
DISEL ADSEL+10
HMED MED+4
MED MED+4
MEDQ MED+2
NOEVTQ NOEVT+3, NOEVT+4

Naked Globals

Name Field # of Occurrence
^( ADSEL+8
^(70 DISEL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR ADSEL+6~, ADSEL+11, ADSEL+15
ARR( ADSEL+10*, ASKAD+2, ASKAD+3, ASKAD+4
DA ADEV+2~, ADEV+4*
DFN NOEVT+2, ADSEL~, ADSEL+5, ADSEL+7
DGPT DISEL+1~*, DISEL+2
DIE ADEV+2~, ADEV+4*
DR ADEV+2~, ADEV+4*
DT ASKAD+3
DTIME ASKAD+1, MED+1
>> IBADJMED MED+6*
IBD ADSEL+6~*, ADSEL+7*, ADSEL+8, ADSEL+10
>> IBDG NOEVT+2*, NOEVT+3, NOEVT+4, NOEVT+8
IBDIS ASKAD+3*, ASKAD+4, ASKADQ!
>> IBEVDA ADEV+4, ADEV+5
IBEVDT NOEVT+8*, ADEV+3!
>> IBFEEV NOEVT+8*
>> IBFR ASKAD+4
>> IBMED MED+6*
IBN ADEV+3!
IBQ ADSEL+6~*, ADSEL+10, ADSEL+15, ASKAD+1*
>> IBSL NOEVT+8*
>> IBTO ASKAD+4
>> IBY NOEVT+3*, NOEVT+4*, ADEV+3, MED+2*
J ADSEL+6~, ADSEL+7*, ADSEL+9, ADSEL+10, ADSEL+13, ADSEL+14*, ASKAD+1, ASKAD+2
PTF ADSEL+6~, ADSEL+8*, ADSEL+10, DISEL+1, DISEL+3
QF ADSEL+6~*, ADSEL+10*, ADSEL+11*, ADSEL+12
SEL ADSEL+6~, ADSEL+10, ADSEL+15, ASKAD+4*
X ADSEL+6~, ASKAD+1*, ASKAD+2, ASKAD+3, ASKAD+4, MED+1*, MED+2, MED+3*, MED+4, MED+5
MED+6
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