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

Package: Surgery

Routine: SRSUP1


Information

SRSUP1 ;BIR/MAM - UPDATE SCHEDULED OPERATION;[JAN 29,2001@14:13]

Source Information

Source file <SRSUP1.m>

Entry Points

Name Comments DBIA/ICR reference
CON
CHANGE
EDIT
DATE
DIS
SCHED
END ;
NODATE ; new date not entered
PRC
DIE
RT ; start RT logging
CHECK
OERR ; update status in ORDER file (100)
SRDYN

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' if you need to add a case to be performed concurrently with this",!,"case. Press RETURN to update other information related to this case."
  • Line Location: CON+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: CHANGE+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' if you need to change the ",$S(SRC:"date, ",1:""),"time or operating room for this",!,"case. Enter RETURN to update other information related to this case."
  • Line Location: CHANGE+4
Function Call: WRITE
  • Prompt: !!,"Another user changed the schedule for this case ... please review."
  • Line Location: EDIT+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue... "
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Since no date has been entered, I must assume that you want to re-schedule",!,"this case for the same date. If you have made a mistake and want to",!,"leave this case scheduled for the same operating room at the same times,"
  • Line Location: NODATE+1
Function Call: WRITE
  • Prompt: !,"enter RETURN when prompted to select an operating room."
  • Line Location: NODATE+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRC+0
Function Call: WRITE
  • Prompt: !!,"Scheduling not allowed for "_$S(SRDAY=1:"SUNDAY",SRDAY=2:"MONDAY",SRDAY=3:"TUESDAY",SRDAY=4:"WEDNESDAY",SRDAY=5:"THURSDAY",SRDAY=6:"FRIDAY",1:"SATURDAY")_" !!",!
  • Line Location: CHECK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRS - [#131.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call