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

Package: Integrated Billing

Routine: IBECEA51


Information

IBECEA51 ;ALB/CPM - Cancel/Edit/Add... Update Event Actions ; 05-MAY-93

Source Information

Source file <IBECEA51.m>

Entry Points

Name Comments DBIA/ICR reference
CS ; 'Change Status' Entry Action
CSQ
HCS ; Help for 'Change Status'
LC ; 'Last Date Calc' Entry Action
LCQ
LCO ; Update Last Calc Date for a Single Event.
LCP
LCOQ
HLC ; Help for 'Last Calc Date'
FEE(IBN) ; If the Event Record is for Fee, it is uneditable.
; Input: IBN -- Pointer to an event record in file #350
; Output: IBFEE -- 1 = record is uneditable
; 0 = record is editable
FEEQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This event will remain "_IBSTAT_"."
  • Line Location: CS+10
Function Call: WRITE
  • Prompt: !,"An error occured while changing the status - event is still ",IBSTAT,"."
  • Line Location: CS+12
Function Call: WRITE
  • Prompt: !,"The status has been changed to ",IBDEST,"."
  • Line Location: CS+13
Function Call: WRITE
  • Prompt: !!,"Please enter 'Y' or 'YES' to change the status of this event from ",IBSTAT
  • Line Location: HCS+1
Function Call: WRITE
  • Prompt: !,"to ",IBDEST,", or 'N', 'NO', or '^' to quit."
  • Line Location: HCS+2
Function Call: WRITE
  • Prompt: !!,"If the status of this event is changed to open, and the patient is still an"
  • Line Location: HCS+3
Function Call: WRITE
  • Prompt: !,"inpatient in this ward (on the specified admission date), charges will be"
  • Line Location: HCS+4
Function Call: WRITE
  • Prompt: !,"billed starting the day after the Date Last Calculated. If the status is"
  • Line Location: HCS+5
Function Call: WRITE
  • Prompt: !,"changed to closed, no further charges will be associated with this event."
  • Line Location: HCS+6
Function Call: WRITE
  • Prompt: !!,"Processing Event #",IBNBR,":"
  • Line Location: LCO+4
Function Call: WRITE
  • Prompt: !,"Date Last Calculated: "
  • Line Location: LCP+0
Function Call: WRITE
  • Prompt: $$DAT2^IBOUTL(IBLCAL),"// "
  • Condition for execution: IBLCAL
  • Line Location: LCP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LCP+1
Function Call: WRITE
  • Prompt: " (",$$DAT2^IBOUTL(IBLCAL),")",!,"No change!"
  • Line Location: LCP+2
Function Call: WRITE
  • Prompt: !,"An error occured while changing the Last Calc Date - no change made!"
  • Line Location: LCP+7
Function Call: WRITE
  • Prompt: !,"The Date Last Calculated has been changed to ",$$DAT1^IBOUTL(IBNEWV),"."
  • Line Location: LCP+8
Function Call: WRITE
  • Prompt: !!,"The Date Last Calculated is used to record the last date for which Means Test"
  • Line Location: HLC+1
Function Call: WRITE
  • Prompt: !,"charges were billed for an admission."
  • Line Location: HLC+2
Function Call: WRITE
  • Prompt: !!,"This date cannot be deleted. Please enter a date not less than the Event"
  • Line Location: HLC+3
Function Call: WRITE
  • Prompt: !,"Date (",$$DAT1^IBOUTL(IBEVDT),") and not greater than yesterday (",$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-1)),").",!
  • Line Location: HLC+4
Function Call: WRITE
  • Prompt: !,*7,"Fee Admissions cannot be edited!"
  • Line Location: FEE+5

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