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

Package: Surgery

Routine: SRSBOUT


Information

SRSBOUT ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRSBOUT.m>

Entry Points

Name Comments DBIA/ICR reference
CNG
INT ; collision with service at the same time
S ; set up ^SRS
END
MNTH ; one day each month
SER ; select service
ROOM ; select operating room
DATE ; select date to begin
TIME ; select starting and ending times
PAT
MUL2 ;
CK1
CK2
CK0
CK3
CK5
CK4
UPDATE
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time collision with '"_$P(SRSSER1,"^",5)_"' which has reservations from "_STIME_" to "_ETIME_".",!
  • Line Location: INT+2
Function Call: WRITE
  • Prompt: !,"I will search for available openings. Please wait."
  • Line Location: INT+5
Function Call: WRITE
  • Prompt: !,?5,$E(SRSDT,4,5),"-",$E(SRSDT,6,7),"-",$E(SRSDT,2,3)," is not available"
  • Line Location: INT+7
Function Call: WRITE
  • Prompt: !,?5,$E(SRSDT,4,5),"-",$E(SRSDT,6,7),"-",$E(SRSDT,2,3)," is available"
  • Line Location: INT+8
Function Call: WRITE
  • Prompt: !!,"Your Service Block has not been set."
  • Line Location: INT+10
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: MNTH+1
Function Call: WRITE
  • Prompt: !!,"If this blockout should appear on the same day every month, on the last",!,"week of that month, enter 'YES'. Otherwise, enter RETURN."
  • Line Location: MNTH+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: SER+2
Function Call: WRITE
  • Prompt: !!,"You service abbreviation cannot include the equal sign."
  • Line Location: SER+4
Function Call: WRITE
  • Prompt: !!!,"Enter a 3 to 4 letter abbreviation for the service, i.e. card, gen, gi.",!!
  • Line Location: SER+5
Function Call: WRITE
  • Prompt: !!,"Your service abbreviation cannot include the letter 'X'."
  • Line Location: SER+6
Function Call: WRITE
  • Prompt: !!,"Abbreviation must be 3 to 4 characters. "
  • Line Location: SER+7
Function Call: WRITE
  • Prompt: !!,?5,"A Service Block for """,SRSSER,""" already exists. Please try agian."
  • Line Location: ROOM+2
Function Call: WRITE
  • Prompt: !!,"Past dates cannot be entered."
  • Line Location: DATE+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Number: "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"Enter 1, 2, or 3."
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !!,"Updating Schedules...",!
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: !!,"Enter '1' to create the blockout on the same day and time every week, '2' to",!,"create the blockout on the same day and time every other week, or '3' to "
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"create the blockout for the same day of the week and week of the month only."
  • Line Location: HELP+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