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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SRODLT

Package: Surgery

Routine: SRODLT


Information

SRODLT ;B'HAM ISC/MAM - REPORT OF DELAY TIME ; [ 04/05/00 2:37 PM ]

Source Information

Source file <SRODLT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 ^SRODLT0  DATE^SROUTL  $$INST^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%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: 1

Package Total Caller Graph
Surgery 1 SRO DELAY TIME  

Entry Points

Name Comments DBIA/ICR reference
DATE
REAS
SPEC
DEVICE
END
SP
MORE ; ask for more surgical specialties
DELAY
ADD ; ask for additional delay reasons

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZISC END+1
^%ZTLOAD DEVICE+1
^DIC SP, MORE+1, DELAY, ADD+1
^SRODLT0 DEVICE+2
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+1
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report of Delay Time",!
  • Line Location: SRODLT+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: REAS+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print this report for all delay reasons, or 'NO' to select",!,"a specific delay reason."
  • Line Location: REAS+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty."
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DELAY+0
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • DIC
  • Line Location:
    • SP
    • MORE+1
    • DELAY
    • ADD+1

Label References

Name Line Occurrences
ADD ADD+1
DELAY REAS+3
END DATE, DATE+1, REAS, REAS+3, SPEC, SPEC+3, DEVICE, DEVICE+1
MORE MORE+1
REAS REAS+2
SP SPEC+3
SPEC SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SRODLT+2!
%ZIS DEVICE!*
%ZIS("A" DEVICE*
DIC SP!*, MORE+1!*, DELAY!*, ADD+1!*
DIC("A" SP*, MORE+1*, DELAY*, ADD+1*
DIC("S" SP*, MORE+1*
DIC(0 SP*, MORE+1*, DELAY*, ADD+1*
DTIME REAS, SPEC, END
IO("Q" DEVICE!, DEVICE+1!
IOF SRODLT+2, END+1
IOP DEVICE!
IOST END
POP DEVICE!
>> SRCT SP+1*, MORE+1*, DELAY+1*, ADD+1*
>> SRDL SRODLT+2*, DELAY*
>> SRDL( DELAY+1*, ADD+1*
>> SRED DATE
>> SRINST DATE+1*
SRINSTP DATE+1~*
>> SRSD DATE
>> SRSOUT SRODLT+2*, DATE, REAS*, REAS+3, SPEC*, SPEC+3, DEVICE*, END, SP*, DELAY*
>> SRSP SRODLT+2*, SP*
>> SRSP( SP+1*, MORE+1*
>> SRSS SPEC+3*
SRTN END+1!
>> SRYN REAS*, REAS+1*, REAS+2, REAS+3, SPEC*, SPEC+1*, SPEC+2, SPEC+3
U DATE+1
>> X END*
>> Y SP, SP+1, MORE+1, DELAY, DELAY+1, ADD+1
>> ZTDESC DEVICE+1*
>> ZTRTN DEVICE+1*
>> ZTSAVE("SRDL*" DEVICE+1*
>> ZTSAVE("SRED" DEVICE+1*
>> ZTSAVE("SRINST" DEVICE+1*
>> ZTSAVE("SRINSTP" DEVICE+1*
>> ZTSAVE("SRSD" DEVICE+1*
>> ZTSAVE("SRSP*" DEVICE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All