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

Package: Surgery

Routine: SRODLAY


Information

SRODLAY ;B'HAM ISC/MAM - REPORT OF DELAYS ; [ 04/04/00 11:36 AM ]

Source Information

Source file <SRODLAY.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 6 ^SRODLA1  ^SRODLA2  ^SROSTOP  DATE^SROUTL  $$INST^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SRODELA  SRODLA1  SRODLA2  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry when queued
END
HDR ; print heading
SP
PAGE
DATE
SPEC

External References

Name Field # of Occurrence
^%ZIS SPEC+5
^%ZISC END+3
^%ZTLOAD SPEC+6
^DIC SP
^SRODLA1 EN+3
^SRODLA2 EN+4
^SROSTOP HDR+1
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+1
^SRSKILL END+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report of Delayed Operations",!
  • Line Location: SRODLAY+2
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • 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: !!,"This report is designed to use a 132 column format."
  • Line Location: SPEC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+5
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: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SP+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to continue printing this report, or '^' to exit from this option."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?52,"REPORT OF DELAYED OPERATIONS",?100,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SPEC)\2),SPEC
  • Condition for execution: $D(SPEC)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?100,SRPRNT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"DATE",?12,"PATIENT",?44,"ATTENDING SURGEON",?84,"DELAY COMMENTS",!,"DELAY TIME",?14,"ID #",?44,"OPERATION(S)"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Routine Call
  • DIC
  • Line Location:
    • SP
Routine Call
  • %ZIS
  • Line Location:
    • SPEC+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+2
^TMP("SR" EN+1!, END+2!
^TMP("SRF" END+2!
^TMP("SRT" END+2!

Label References

Name Line Occurrences
END DATE, DATE+1, SPEC, SPEC+3, SPEC+5, SPEC+6, EN+3
HDR PAGE
PAGE PAGE+2
SP SPEC+3
SPEC SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SRODLAY+2!
%ZIS SPEC+5!*
%ZIS("A" SPEC+5*
DIC SP!*
DIC("A" SP*
DIC("S" SP*
DIC(0 SP*
DT EN+2
DTIME SPEC, END, PAGE+1
IO EN+1
IO("Q" SPEC+5!, SPEC+6!
IOF SRODLAY+2, END+1, END+3, HDR+2
IOP SPEC+5!
IOST END, END+1, PAGE+1, HDR+3, HDR+4
>> LINE HDR+6*
>> PAGE HDR+2*, HDR+3
POP SPEC+5!
>> SPEC HDR+4
>> SRED DATE, EN+2
SRFRTO EN+1~, EN+2*, HDR+4
>> SRHALT HDR+1
>> SRHDR PAGE*, HDR+7*
>> SRINST DATE+1*, HDR+3
SRINSTP DATE+1~*
SRPRNT EN+1~, EN+2*, HDR+4
>> SRSD DATE, EN+2
>> SRSOUT SRODLAY+2*, DATE, SPEC*, SPEC+3, SPEC+5*, EN+1*, END, SP*, PAGE+1*, HDR+1*
>> SRSS SPEC+3*, EN+3, SP+1*
SRTN END+3!
>> SRYN SPEC*, SPEC+1*, SPEC+2, SPEC+3
U DATE+1
>> X END*, PAGE+1*, PAGE+2
>> Y EN+2*, SP, SP+1
>> ZTDESC SPEC+6*
>> ZTQUEUED END+2, HDR+1
>> ZTREQ END+2*
>> ZTRTN SPEC+6*
>> ZTSAVE("SRED" SPEC+6*
>> ZTSAVE("SRINST" SPEC+6*
>> ZTSAVE("SRINSTP" SPEC+6*
>> ZTSAVE("SRSD" SPEC+6*
>> ZTSAVE("SRSS" SPEC+6*
>> ZTSTOP END+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All