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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROWRQ

Package: Surgery

Routine: SROWRQ


Information

SROWRQ ;B'HAM ISC/MAM - REQUESTS BY WARD ; 07/08/88 08:11

Source Information

Source file <SROWRQ.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SROSTOP  ^SROWRQ1  ^SRSKILL  
Kernel 2 ^%ZIS  ^%ZTLOAD  
VA FileMan 1 ^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 SROWRQ  SROWRQ1  

Entry Points

Name Comments DBIA/ICR reference
BEG
DEVICE
HELP
END
HDR
CON ; print concurrent case
LOOP ; break procedure if greater than 60 characters

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZTLOAD DEVICE+1
^DIC BEG+2
^SROSTOP HDR
^SROWRQ1 DEVICE+2
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to print the requests for all wards ? NO// "
  • Variable: SRALL
  • Timeout: DTIME
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"Answer 'YES' if you want to print the requests for all wards, or RETURN",!,"if you want a specific ward."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?28,"Requests for Operations",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?33,"Ward: "_SRWARD,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !," Procedure: ",?15,SROPS(1)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !," "_^SRF(SRSCC,5,COMMENT,0)
  • Line Location: CON+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • DIC
  • Line Location:
    • BEG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CON+1, CON+3

Label References

Name Line Occurrences
BEG BEG, BEG+1
END BEG, BEG+2, DEVICE, DEVICE+1
HELP BEG, BEG+1
LOOP CON+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE!*
%ZIS("A" DEVICE*
>> COMMENT CON+3*
>> DIC BEG+2*
>> DIC("A" BEG+2*
>> DIC(0 BEG+2*
DTIME BEG
>> I HDR+2*
IO("Q" DEVICE!, DEVICE+1!
IOF END, HDR+1
IOP DEVICE!
>> LINE HDR+1*
>> LOOP LOOP+1*
>> M CON+1*, LOOP+1
MM CON+1!, LOOP+1*
MMM CON+1!, LOOP+1*
POP DEVICE!
>> SRALL BEG*, BEG+1*, BEG+2
>> SRHALT HDR
>> SROPER CON+1*, LOOP+1*
SROPS CON+1!
SROPS( LOOP+1*
SROPS(1 CON+1*, CON+2
SROPS(2 CON+2
SROPS(3 CON+2
SROPS(4 CON+2
>> SRQ HDR*
>> SRSCC CON+1, CON+3
SRTN END!
>> SRWARD BEG+2*, BEG+3*, DEVICE+1, HDR+2
>> Y BEG+2
>> Y(0 BEG+2
>> ZTDESC DEVICE+1*
>> ZTQUEUED HDR
>> ZTRTN DEVICE+1*
>> ZTSAVE("SRWARD" DEVICE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All