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

Package: Surgery

Routine: SROAR


Information

SROAR ;B'HAM ISC/MAM - ANNUAL REPORT OF SURGICAL PROCEDURES ; [ 09/22/98 11:28 AM ]

Source Information

Source file <SROAR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 ^SROAR1  ^SROAR2  DATE^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^DIC  ^DIR  

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 SROARSP  

Entry Points

Name Comments DBIA/ICR reference
BEG
DATE
ALL
PTR
EN
END
PRESS

External References

Name Field # of Occurrence
^%ZIS PTR
^%ZISC PTR+1, END+2
^%ZTLOAD PTR+2
^DIC ALL+3
^DIR PRESS
^SROAR1 EN+1
^SROAR2 EN+2
DATE^SROUTL DATE
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Annual Report of Surgical Procedures"
  • Line Location: BEG+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ALL+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Surgical Specialty.",!!,"Press RETURN to continue "
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format, and must be run",!,"on a printer.",!!
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !!,"This report must be run on a printer. Please select another device.",!
  • Line Location: PTR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PTR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
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: PRESS+0
Routine Call
  • %ZIS
  • Line Location:
    • PTR
Routine Call
  • DIC
  • Line Location:
    • ALL+3
Routine Call
  • DIR
  • Line Location:
    • PRESS

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ALL ALL+2
END DATE, ALL, ALL+3, PTR, PTR+1, PTR+2, EN+1
PRESS PTR+1
PTR PTR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PTR!*
%ZIS("A" PTR*
DIC ALL+3!*
DIC("A" ALL+3*
DIC("S" ALL+3*
DIC(0 ALL+3*
DIR PRESS!
DIR("A" PRESS*
DIR(0 PRESS*
DT EN
DTIME ALL, ALL+2, END
>> DTOUT PRESS
>> DUOUT PRESS
>> EDATE DATE, EN, EN+1
>> EDATE1 EN+1*
IO EN
IO("Q" PTR!, PTR+2!
IOF BEG+1, PTR+1, END+1, END+2
IOP PTR!
IOST PTR+1, END, END+1
POP PTR!
>> SDATE DATE, EN, EN+1
>> SDATE1 EN+1*
SRFRTO EN~*
>> SRHALT EN+1*
>> SRINST EN+1*
>> SRPRINT EN*
>> SRSITE("SITE" EN+1
>> SRSOUT BEG*, DATE, ALL*, ALL+3*, PTR*, PTR+1, EN+1*, END, PRESS*
>> SRSS ALL+3*, EN+1
SRTN END+2!
>> SRYN ALL*, ALL+1*, ALL+2, ALL+3
>> X ALL+2*, END*
>> Y ALL+3, EN*
>> ZTDESC PTR+2*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN PTR+2*
>> ZTSAVE("EDATE" PTR+2*
>> ZTSAVE("SDATE" PTR+2*
>> ZTSAVE("SRSITE*" PTR+2*
>> ZTSAVE("SRSS" PTR+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