Routine: SROTRPT

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

Package	Total	Caller Graph
Surgery	1	SROTRPT

Entry Points

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

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

Customize PDF page

Package: Surgery

Routine: SROTRPT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: