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

Package: Surgery

Routine: SROTRPT


Information

SROTRPT ;B'HAM ISC/MAM - TISSUE EXAM REPORT ; 16 JULY 1990 10:00

Source Information

Source file <SROTRPT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 4 ^SROPS  ^SROTRPT0  ^SROVAR  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

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 SROTRPT  

Entry Points

Name Comments DBIA/ICR reference
RPT ; entry when queued
END
FOOT ; print footer
WRAP ;Wrap multiple race entries so that wrapped line

External References

Name Field # of Occurrence
^%ZIS SROTRPT+5
^%ZISC END+2
^%ZTLOAD SROTRPT+6
^SROPS SROTRPT+4
^SROTRPT0 RPT+2
^SROVAR SROTRPT+3
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
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: FOOT+19
Function Call: WRITE
  • Prompt: !,?30,"(Continue on reverse side)",!
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: !,"PATHOLOGIST'S SIGNATURE",?58,"DATE: ",!
  • Line Location: FOOT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+21
Function Call: WRITE
  • Prompt: !,VADM(1),?30,"AGE: "_VADM(4),?40,"SEX: "_$P(VADM(5),"^",2),?58,"ID # "_VA("PID"),!,"ETHNICITY: "_SROETH
  • Line Location: FOOT+22
Function Call: WRITE
  • Prompt: ?58,"REGISTER NO. "
  • Line Location: FOOT+23
Function Call: WRITE
  • Prompt: !,"RACE: "
  • Line Location: FOOT+24
Function Call: WRITE
  • Prompt: ?7,"UNANSWERED"
  • Line Location: FOOT+28
Function Call: WRITE
  • Prompt: !,"WARD: "_SRWARD,?30,"ROOM-BED: "_SROOM
  • Line Location: FOOT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+33
Function Call: WRITE
  • Prompt: "-"
  • Line Location: FOOT+33
Function Call: WRITE
  • Prompt: !,SRINST,?58,"REPLACEMENT FORM 515"
  • Line Location: FOOT+34
Routine Call
  • %ZIS
  • Line Location:
    • SROTRPT+5

Label References

Name Line Occurrences
END SROTRPT+4, SROTRPT+5, SROTRPT+6
FOOT RPT+2
WRAP FOOT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SROTRPT+5!*
>> C FOOT+8*, FOOT+9, FOOT+10, FOOT+11, FOOT+12, FOOT+13*
>> D FOOT+25*, FOOT+26, FOOT+27
DTIME END
>> E WRAP+3*, WRAP+4, WRAP+7, WRAP+8*
>> I WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+11, WRAP+12
IO("Q" SROTRPT+5!, SROTRPT+6!
IOF END+1, END+2
IOP SROTRPT+5!
IOSL FOOT+19
IOST RPT+1, END, END+1
>> K WRAP+5*, WRAP+6, WRAP+7
>> N FOOT+8*, FOOT+16
POP SROTRPT+5!
>> SRINST FOOT+34
>> SRLINE FOOT+20*, FOOT+21*, FOOT+33*
SRNEWOP SROTRPT+4!
>> SRNUM WRAP+15*, WRAP+16*, WRAP+17
SRNUM1 FOOT+16*, FOOT+25, FOOT+30!, WRAP+15*, WRAP+17, WRAP+18*
>> SROETH FOOT+3*, FOOT+4*, FOOT+5*, FOOT+22
SROL FOOT+8*, FOOT+30!, WRAP+3*
SROL( FOOT+16*, FOOT+26, FOOT+27, WRAP+17*
SROLINE FOOT+8*, FOOT+11*, FOOT+12*, FOOT+16, FOOT+17, FOOT+30!, WRAP+3, WRAP+4
SROLN FOOT+30!, WRAP+3*
SROLN( WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+11, WRAP+12
SROLN1 FOOT+30!, WRAP+3*
SROLN1( WRAP+6*, WRAP+11*, WRAP+12*, WRAP+16, WRAP+17
>> SROLNGTH WRAP+3*, WRAP+4
>> SROOM FOOT+32
SRORACE FOOT+8*, FOOT+30!
SRORACE( FOOT+10*, FOOT+11, FOOT+12
SRORC FOOT+8*, FOOT+9*, FOOT+10, FOOT+30!
SROWRAP FOOT+30!, WRAP+3*, WRAP+4, WRAP+7*, WRAP+11, WRAP+12
>> SRSITE SROTRPT+3
>> SRSITE("KILL" SROTRPT+3*
>> SRSOUT SROTRPT+2*, SROTRPT+4*, SROTRPT+5*, SROTRPT+6*, RPT+1*, END, FOOT+19
>> SRT RPT+1*
>> SRTN SROTRPT+4
>> SRWARD FOOT+32
U FOOT+4, FOOT+10
>> VA("PID" FOOT+22
>> VADM(1 FOOT+22
>> VADM(11 FOOT+4, FOOT+5
>> VADM(12 FOOT+9, FOOT+10, FOOT+25, FOOT+28
>> VADM(4 FOOT+22
>> VADM(5 FOOT+22
>> X END*, FOOT+19*
>> ZTDESC SROTRPT+6*
>> ZTQUEUED RPT+1, END+1
>> ZTREQ END+1*
>> ZTRTN SROTRPT+6*
>> ZTSAVE("SRSITE*" SROTRPT+6*
>> ZTSAVE("SRT" SROTRPT+6*
>> ZTSAVE("SRTN" SROTRPT+6*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All