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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SRORHRS0  ^SROSTOP  ^SRSKILL  
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: 2

Package Total Caller Graph
Surgery 2 SR OR HOURS  SRORHRS0  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE, DATE+2
^%ZIS ZIS
^%ZISC END+2
^%ZTLOAD ZIS+1
^DIC ROOMS+5
^SRORHRS0 EN+2
^SROSTOP HDR+1
^SRSKILL END+2

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
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)
^DD("DD" EN+1
^SC - [#44] HDR+7
^SRS - [#131.7] HDR+7
^TMP("SR" END+1!

Label References

Name Line Occurrences
DATE DATE+3
END DATE, DATE+2, ROOMS+1, ROOMS+5, ZIS, ZIS+1
ROOMS ROOMS+3
ZIS ROOMS+4

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, END, HDR+2
IO("Q" ZIS!, ZIS+1!
IOF SRORHRS+2, ROOMS+1, END+1, END+2, HDR+3
IOP ZIS!
IOST END, END+1, HDR+2, HDR+3
>> LINE HDR+5*
POP ZIS!
>> SRDT HDR+6
>> SRED DATE+4*, EN+1
SRFRTO EN+1~*, HDR+4
>> SRHALT HDR+1
>> SRHDR HDR+2, HDR+6, HDR+8*
>> SRINST HDR+3
>> SROR ROOMS+1*, ROOMS+6*, HDR+5, HDR+6, HDR+7
>> SRPAGE HDR+3, HDR+8*
>> SRSD DATE+1*, DATE+3, EN+1
>> SRSOUT SRORHRS+2*, DATE*, DATE+2*, ROOMS+1*, ROOMS+5*, END, HDR+1*, HDR+2*
>> SRYN ROOMS+1*, ROOMS+2*, ROOMS+3, ROOMS+4
>> X ROOMS+3*, END*, HDR+2*
>> Y DATE, DATE+1, DATE+2, DATE+3, DATE+4, ROOMS+5, ROOMS+6, EN+1*
>> ZTDESC ZIS+1*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN ZIS+1*
>> ZTSAVE("SRED" ZIS+1*
>> ZTSAVE("SROR" ZIS+1*
>> ZTSAVE("SRSD" ZIS+1*
>> ZTSAVE("SRSITE*" ZIS+1*
>> ZTSTOP END+1
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