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
Print Page as PDF
Routine: SRSREQ

Package: Surgery

Routine: SRSREQ


Information

SRSREQ ;BIR/MAM - MAKE REQUESTS ; [ 01/20/00 9:42 AM ]

Source Information

Source file <SRSREQ.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ; break procedure if greater than 70 characters
CONCUR ; check for concurrent case
CC
ASKCC
AVG ; update estimated case length
LATE ; check too see if it is too late to request
NEXT ; find request cutoff for previous day
MESS ; print message
PRESS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,VADM(1)_" has the following procedure already entered for this",!,"date: ",!!,"CASE #"_SRCTN_" "_SROPS(1)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !,?9,SROPS(2)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !,?9,SROPS(2)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: AVG+2
Function Call: WRITE
  • Prompt: !!,"Surgery requests not allowed for "_$S(SRDAY=1:"SUN",SRDAY=2:"MON",SRDAY=3:"TUES",SRDAY=4:"WEDNES",SRDAY=5:"THURS",SRDAY=6:"FRI",1:"SATUR")_"DAY !!",!
  • Line Location: LATE+3
Function Call: WRITE
  • Prompt: !!,"I'm sorry, but it is too late to make a request. If this case must",!,"be entered, use the option 'Schedule Unrequested Operations' under",!,"the 'Schedule Operations Menu'.",!!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Info |  Source |  Entry Points |  Interaction Calls