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

Package: Surgery

Routine: SROOPRM


Information

SROOPRM ;B'HAM ISC/KKA - UPDATE NORMAL O.R. HOURS ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROOPRM.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
LKUPRM ;*****get internal entry number of o.r.*****
FDAY ;*****start with sunday and follow w/ consec days until user changes
RPTRM
END
DAY ;*****get internal entry number of day to be edited*****
EDIT ;*****dispay heading and choices*****
CHOICE ;*****find out user's choice*****
JUMP
PL ;*****update more than one characteristic*****
UPDATE ;*****update one characteristic*****
CHNG ;*****loop through days of week starting with user's day of choice***
DEL ; delete absurd times
SETUP ; add the days of the week if they do not exist

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,SRLINE,!,?15,"Normal Daily Schedules for Operating Rooms",!,SRLINE,!
  • Line Location: LKUPRM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LKUPRM+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: SRANS
  • Timeout: DTIME
  • Line Location: DAY+2
Function Call: WRITE
  • Prompt: !!,"Day entered not valid.",!,"Press RETURN to continue: "
  • Line Location: DAY+2
Function Call: WRITE
  • Prompt: @IOF,!,?10,"Editing the ",SREXT," Schedule for the ",$P(^SC($P(SRREC,"^",1),0),"^",1)," Operating Room",!,SRLINE,!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"1. Normal Start Time: ",?24,SRNST,!,"2. Normal End Time: ",?24,SRNET,!,"3. Inactive (Y/N):",?24,SRIN,!!,SRLINE,!
  • Line Location: EDIT+4
Function Call: READ
  • Variable: SRCH
  • Timeout: DTIME
  • Line Location: CHOICE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: JUMP+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: JUMP+7
Function Call: WRITE
  • Prompt: !!,"Normal Starting Time must be earlier than Normal Ending Time.",!
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: !!,"Normal Ending Time must be later than Normal Starting Time.",!
  • Line Location: UPDATE+3
Info |  Source |  Entry Points |  Interaction Calls