Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SRORUT

Package: Surgery

Routine: SRORUT


Information

SRORUT ;B'HAM ISC/MAM - OPERATING ROOM UTILIZATION ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRORUT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 ^SRORIN  EN^SRORUT0  $$INST^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SR OR UTL1  

Entry Points

Name Comments DBIA/ICR reference
DATE
ROOMS ; all operating rooms ?
ZIS
END

External References

Name Field # of Occurrence
^%DT DATEDATE+2
^%ZIS ZIS
^%ZISC END
^%ZTLOAD ZIS+2
^DIC ROOMS+5
^SRORIN DATE+7
EN^SRORUT0 ZIS+3
$$INST^SROUTL0 DATE+6
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Operating Room Utilization Report",!
  • Line Location: SRORUT+3
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 Utilization 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 utilization information 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: !!,"This report is designed to use a 132 column format, and must be run",!,"on a printer.",!
  • Line Location: ROOMS+7
Function Call: WRITE
  • Prompt: !!,"This report must be run on a printer. Please select another device.",!
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Routine Call
  • DIC
  • Line Location:
    • ROOMS+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRS - [#131.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XUSEC("SROCHIEF" DATE+5, DATE+6

Label References

Name Line Occurrences
DATE DATE+3
END DATEDATE+2, DATE+6, DATE+7, ROOMS+1, ROOMS+5, ZISZIS+2
ROOMS ROOMS+3
ZIS ROOMS+4, ZIS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*, DATE+2!*
%DT("A" DATE*, DATE+2*
%ZIS ZIS!*
%ZIS("A" ZIS*
DIC ROOMS+5!*
DIC("A" ROOMS+5*
DIC("S" ROOMS+5*
DIC(0 ROOMS+5*
DTIME ROOMS+1, ROOMS+3
DUZ DATE+5, DATE+6
IO("Q" ZIS!, ZIS+2!
IOF SRORUT+3, ROOMS+1, END
IOP ZIS!
IOST ZIS+1
POP ZIS!
SRDIV DATE+5~*, DATE+6*
>> SRED DATE+4*
>> SRED1 DATE+4*
>> SRINST DATE+5*, DATE+6*
SRINSTP DATE+5~*, DATE+6*
>> SROR ROOMS+1*, ROOMS+6*
>> SRSD DATE+1*, DATE+3
>> SRSD1 DATE+1*
>> SRSITE("DIV" DATE+5
>> SRSITE("SITE" DATE+5
>> SRSOUT SRORUT+2*, DATE*, DATE+2*, DATE+7*, ROOMS+1*, ROOMS+5*, ZIS*
>> SRYN DATE+7, ROOMS+1*, ROOMS+2*, ROOMS+3, ROOMS+4
U DATE+6
>> X ROOMS+3*
>> Y DATEDATE+1, DATE+2, DATE+3, DATE+4, ROOMS+5, ROOMS+6
>> ZTDESC ZIS+2*
>> ZTRTN ZIS+2*
>> ZTSAVE("SRDIV" ZIS+2*
>> ZTSAVE("SRED*" ZIS+2*
>> ZTSAVE("SRINST" ZIS+2*
>> ZTSAVE("SRINSTP" ZIS+2*
>> ZTSAVE("SROR" ZIS+2*
>> ZTSAVE("SRSD*" ZIS+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All