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

Package: Integrated Billing

Routine: IBECEA34


Information

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

Source Information

Source file <IBECEA34.m>

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

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

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