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

Package: Surgery

Routine: SROATT


Information

SROATT ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT ; [ 09/22/98 11:30 AM ]

Source Information

Source file <SROATT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 5 ^SROATT0  ^SROATT1  ^SROATT2  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 SROATT  

Entry Points

Name Comments DBIA/ICR reference
DATE
ATT
REPORT
BREAK
SPEC
EN ; entry when queued
END
SP ; select specialty
HELP ; print help message

External References

Name Field # of Occurrence
^%ZIS SPEC+6
^%ZISC END+2
^%ZTLOAD SPEC+7
^DIC SP+1
^DIR BREAK
^SROATT0 ATT+3
^SROATT1 EN+2
^SROATT2 EN+3
DATE^SROUTL DATE
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Attending Surgeon Report",!
  • Line Location: SROATT+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ATT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ATT+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print the report for all attending surgeons, or 'NO' to select",!,"a specific person.",!!,"Press RETURN to continue "
  • Line Location: ATT+2
Function Call: WRITE
  • Prompt: @IOF,!,"Attending Surgeon Reports",!!,"1. Attending Surgeon Report",!,"2. Attending Surgeon Cumulative Report",!,"3. Attending Surgeon Report and Attending Surgeon Cumulative Report"
  • Line Location: REPORT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REPORT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BREAK+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to print this report for all Surgical Specialties, or 'NO' to ",!,"select a specific specialty.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"The Attending Surgeon Report was designed to use a 132 column format."
  • Line Location: SPEC+4
Function Call: WRITE
  • Prompt: !!,"The Attending Surgeon Cumulative Report was designed to use an 80 column format."
  • Line Location: SPEC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+6
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
Function Call: WRITE
  • Prompt: !!,"Enter '1' if you want to print the Attending Surgeon Report only. If you only want to print the Attending Surgeon Cumulative Report, enter '2'. Enter '3' to",!,"print both reports."
  • Line Location: HELP+1
Routine Call
  • %ZIS
  • Line Location:
    • SPEC+6
Routine Call
  • DIC
  • Line Location:
    • SP+1
Routine Call
  • DIR
  • Line Location:
    • BREAK

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ATT ATT+2
END DATE, ATT, REPORT+1, BREAK, SPEC, SPEC+3, SPEC+6, SPEC+7, EN+2
HELP REPORT+2
REPORT REPORT+2
SP SPEC+3
SPEC SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SPEC+6!*
%ZIS("A" SPEC+6*
DIC SP+1!*
DIC("A" SP+1*
DIC("S" SP+1*
DIC(0 SP+1*
DIR BREAK!
DIR("A" BREAK*
DIR("B" BREAK*
DIR(0 BREAK*
DT EN+1
DTIME ATT, ATT+2, REPORT+1, REPORT+2, SPEC, SPEC+2, END
>> DTOUT BREAK
>> DUOUT BREAK
IO EN+1
IO("Q" SPEC+6!, SPEC+7!
IOF SROATT+2, ATT, REPORT, SPEC, END+1, END+2
IOP SPEC+6!
IOST END, END+1
POP SPEC+6!
>> SRB SROATT+2*, BREAK*
>> SRBOTH REPORT*, REPORT+3*, BREAK, SPEC+4, SPEC+5
>> SRED DATE, EN+1
>> SRFRTO EN+1*
>> SRINST EN+1*
>> SRINSTP EN+1*
>> SRPRINT EN+1*
>> SRSD DATE, EN+1
>> SRSITE("DIV" EN+1
>> SRSITE("SITE" EN+1
>> SRSOUT SROATT+2*, DATE, ATT*, REPORT+1*, BREAK*, SPEC*, SPEC+3, SPEC+6*, EN+1*, END
, SP+1*
>> SRSS SPEC+1*, EN+2, SP+2*
SRTN END+2!
>> SRYN ATT*, ATT+1*, ATT+2, ATT+3, SPEC*, SPEC+1*, SPEC+2, SPEC+3
>> X ATT+2*, REPORT+1*, REPORT+2*, REPORT+3, SPEC+2*, END*, HELP+1
>> Y BREAK, EN+1*, SP+1, SP+2
>> ZTDESC SPEC+7*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN SPEC+7*
>> ZTSAVE("SRB" SPEC+7*
>> ZTSAVE("SRBOTH" SPEC+7*
>> ZTSAVE("SRED" SPEC+7*
>> ZTSAVE("SRSD" SPEC+7*
>> ZTSAVE("SRSITE*" SPEC+7*
>> ZTSAVE("SRSS" SPEC+7*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All