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

Package: Surgery

Routine: SRORHRS


Information

SRORHRS ;B'HAM ISC/ADM - O.R. NORMAL WORKING HOURS ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRORHRS.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
ROOMS ; all operating rooms ?
ZIS
EN ; entry when queued
END
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Operating Room Normal Working Hours Report",!
  • Line Location: SRORHRS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The ending date must be more recent than the starting date."
  • Line Location: DATE+3
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ROOMS+1
Function Call: WRITE
  • Prompt: @IOF,!,"Do you want to print the Operating Room Normal Working Hours Report for all",!,"operating rooms ? YES// "
  • Line Location: ROOMS+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ROOMS+3
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the normal working hours for every operating",!,"room, or 'NO' to print the report for one particular room.",!!,"Press RETURN to continue "
  • Line Location: ROOMS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ROOMS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(80-$L(SRINST)\2),SRINST,?76,"PAGE",!,?31,"SURGICAL SERVICE",?78,SRPAGE,!
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?22,"OPERATING ROOM NORMAL WORKING HOURS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,$S(SROR="ALL":"OPERATING ROOM",1:"DATE"),?20,"START TIME",?35,"END TIME",?62,"TOTAL TIME",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?31,"** "_SRDT_" **",!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?(80-$L("** OPERATING ROOM: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")_" **")\2),"** OPERATING ROOM: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")_" **",!!
  • Line Location: HDR+7

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