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

Package: Surgery

Routine: SROSPEC


Information

SROSPEC ;B'HAM ISC/MAM - CASES WITHOUT SPECIMENS ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SROSPEC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 5 ^SROSPC1  ^SROSPSS  DATE^SROUTL  $$INST^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROSPEC  

Entry Points

Name Comments DBIA/ICR reference
SORT
EN ; entry when queued
END
SP ; select specialty
DEV
DATE
SPEC
MORE ; more specialties?

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC END+2
^%ZTLOAD DEV+2
^DIC SP+1, MORE+1
^SROSPC1 EN+3
^SROSPSS EN+2
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+1
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report of Cases Without Specimens",!
  • Line Location: SROSPEC+2
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: SORT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SORT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: SPEC+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to print this report for a specific surgical specialty, or RETURN",!,"to print the report, sorted by the date of operation, for all specialties.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format."
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SP+1
Routine Call
  • DIC
  • Line Location:
    • SP+1
    • MORE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DEV SORT+3
END DATE, DATE+1, SORT, SPEC, SPEC+3, DEV+1, DEV+2, EN+2
MORE MORE+1
SORT SORT+2
SP SPEC+3
SPEC SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*
%ZIS("A" DEV+1*
DIC SP+1!*, MORE+1!*
DIC("A" SP+1*, MORE+1*
DIC("S" SP+1*, MORE+1*
DIC(0 SP+1*, MORE+1*
DT EN+1
DTIME SORT, SORT+2, SPEC, SPEC+2, END
IO EN+1
IO("Q" DEV+1!, DEV+2!
IOF SROSPEC+2, SORT, END+1, END+2
IOP DEV+1!
IOST END, END+1
POP DEV+1!
>> SRED DATE, EN+1
SRFRTO EN+1~*
>> SRINST DATE+1*
SRINSTP DATE+1~*
>> SRORD SROSPEC+2*, SORT+3*, EN+2
>> SRPRINT EN+1*
>> SRSD DATE, EN+1
>> SRSOUT SROSPEC+2*, DATE, SORT*, SORT+2*, SPEC*, SPEC+3, DEV+1*, END, SP+1*
>> SRSP SROSPEC+2*, SP+1*
>> SRSP( SP+2*, MORE+1*
SRTN END+2!
>> SRYN SORT*, SORT+1*, SORT+2, SORT+3, SPEC*, SPEC+1*, SPEC+2, SPEC+3
U DATE+1
>> X SORT+2*, SPEC+2*, END*
>> Y EN+1*, SP+1, SP+2, MORE+1
>> ZTDESC DEV+2*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+2*
>> ZTSAVE("SRED" DEV+2*
>> ZTSAVE("SRINST" DEV+2*
>> ZTSAVE("SRINSTP" DEV+2*
>> ZTSAVE("SRORD" DEV+2*
>> ZTSAVE("SRSD" DEV+2*
>> ZTSAVE("SRSP*" DEV+2*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All