Routine: SRSDIS1

Information

SRSDIS1 ;B'HAM ISC/MAM - DISPLAY ONE ROOM ; [ 09/29/03 10:23 AM ]

Source file <SRSDIS1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"Display of Available Operating Room Time",!!,"1. Display Availability (12:00 AM - 12:00 PM)",!,"2. Display Availability (06:00 AM - 08:00 PM)",!,"3. Display Availability (12:00 PM - 12:00 AM)" Line Location: PICK+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: PICK+1
Function Call: WRITE	Prompt: @IOF,!!,"Operating Room: "_SROOM,?25,$S(SRDTYPE=2:" (6:00 AM - 8:00 PM)",SRDTYPE=1:" (12:00 AM - 12:00 PM)",1:" (12:00 PM - 12:00 AM)"),!!,"DATE " Line Location: HDR+0
Function Call: WRITE	Prompt: " 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20" Line Location: HDR+1
Function Call: WRITE	Prompt: " 12 1 2 3 4 5 6 7 8 9 10 11 12" Line Location: HDR+2
Function Call: WRITE	Prompt: " 12 13 14 15 16 17 18 19 20 21 22 23 24" Line Location: HDR+3
Function Call: WRITE	Prompt: !,SRDATE,$E(^SRS(SROR,"S",SRSDATE,1),START,END) Line Location: LINE+3
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to portion of the display graph of available",!,"operating room time that you want to view. If you want to view the room" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"between the hours of 6:00 AM and 8:00 PM, enter '2'. A display of available",!,"operating room time will then appear on your screen." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: HELP+2