Routine: SROTRPT0

Package	Total	Call Graph
Surgery	2	^SROSTOP $$SITE^SROVAR
VA Fileman	2	D^DIQ ^DIWP
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROTRPT

Entry Points

Name	Comments	DBIA/ICR reference
OTHER	; other operations
HDR	; print heading
LOOP	; break procedure if greater than 70 characters
OPS

External References

Name	Field # of Occurrence
D^DIQ	SROTRPT0+6
^DIWP	OPS+5, OPS+12
^SROSTOP	HDR+1
$$SITE^SROVAR	SROTRPT0+2
DEM^VADPT	SROTRPT0+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "SURGERY CASE # "_SRTN,! Line Location: OPS+2
Function Call: WRITE	Prompt: "-" Line Location: OPS+2
Function Call: WRITE	Prompt: !,?3,SRSPEC Line Location: OPS+3
Function Call: WRITE	Prompt: ! Line Location: OPS+4
Function Call: WRITE	Prompt: "-" Line Location: OPS+4
Function Call: WRITE	Prompt: ! Line Location: OPS+6
Function Call: WRITE	Prompt: "-" Line Location: OPS+6
Function Call: WRITE	Prompt: !,"Operative Procedure(s):",!,?3,SROP(1) Line Location: OPS+8
Function Call: WRITE	Prompt: !,?3,SROP(2) Line Location: OPS+8
Function Call: WRITE	Prompt: !,?3,SROP(2) Line Location: OPS+8
Function Call: WRITE	Prompt: !,?3,SROP(2) Line Location: OPS+8
Function Call: WRITE	Prompt: ! Line Location: OPS+9
Function Call: WRITE	Prompt: "-" Line Location: OPS+9
Function Call: WRITE	Prompt: !,"Preoperative Diagnosis: ",!,?3,SRPRE,! Line Location: OPS+11
Function Call: WRITE	Prompt: "-" Line Location: OPS+11
Function Call: WRITE	Prompt: ! Line Location: OPS+13
Function Call: WRITE	Prompt: "-" Line Location: OPS+13
Function Call: WRITE	Prompt: !,"Postoperative Diagnosis:",?50,"Signature and Title",!,?3,SRPOST,?50,SRSURG,! Line Location: OPS+14
Function Call: WRITE	Prompt: "-" Line Location: OPS+14
Function Call: WRITE	Prompt: !,"Attending "_$S(SRNONOR:"Provider",1:"Surgeon")_": ",SRATT,! Line Location: OPS+15
Function Call: WRITE	Prompt: "-" Line Location: OPS+15
Function Call: WRITE	Prompt: !,?30,"PATHOLOGY REPORT",! Line Location: OPS+17
Function Call: WRITE	Prompt: "-" Line Location: OPS+17
Function Call: WRITE	Prompt: !,"Name of Laboratory",?50,"Accession Number(s)",!! Line Location: OPS+18
Function Call: WRITE	Prompt: "-" Line Location: OPS+18
Function Call: WRITE	Prompt: !,"Gross Description, Histologic Examination and Diagnosis" Line Location: OPS+20
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: !!!! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?5,"MEDICAL RECORD \|",?43,"TISSUE EXAMINATION",! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SROTRPT0+2
^DPT - [#2]	SROTRPT0+5
^SC - [#44]	SROTRPT0+7
^SRF - [#130]	SROTRPT0+2, SROTRPT0+3, SROTRPT0+8, SROTRPT0+9, SROTRPT0+10, SROTRPT0+11, OPS, OPS+3, OPS+5, OPS+12 , OPS+15, OTHER+1, OTHER+2
^SRS - [#131.7]	SROTRPT0+7
^UTILITY($J	OPS+5!, OPS+12!
^VA(200 - [#200]	SROTRPT0+11, OPS+15

Name	Field # of Occurrence
^(	SROTRPT0+5
^(33	SROTRPT0+8
^(34	SROTRPT0+8
^(8	SROTRPT0+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	SROTRPT0+3*, SROTRPT0+5
>> DIWF	OPS+5, OPS+12
>> DIWL	OPS+5, OPS+12
>> DIWR	OPS+5, OPS+12
DTIME	HDR+2
>> I	OPS, OPS+3, OPS+5, OPS+12
IO	SROTRPT0+2
IOF	HDR+3
IOSL	OPS+7, OPS+10, OPS+16, OPS+19
IOST	HDR+2
>> LINE	OPS+2, OPS+4, OPS+6, OPS+9, OPS+11, OPS+13, OPS+14, OPS+15, OPS+17, OPS+18 , HDR+3, HDR+4
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> SR(0	SROTRPT0+3*
SRAPROV	SROTRPT0+10*, OPS+15!
>> SRATT	OPS+15*
>> SRDATE	SROTRPT0+3, SROTRPT0+6, OPS+2
>> SRFIND	OPS+12*
>> SRH	OPS+5*
>> SRHALT	HDR+1
>> SRHDR	SROTRPT0+2, SROTRPT0+3, HDR+2, HDR+3*
>> SRINST	SROTRPT0+2*
>> SRLONG	OTHER+1*, OTHER+2
>> SRNON	SROTRPT0+9*, SROTRPT0+10
SRNONOR	SROTRPT0+9, SROTRPT0+10, SROTRPT0+11, OPS+15!
>> SROOM	SROTRPT0+5*
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*, OPS+8
SROP(2	OPS+8
SROP(3	OPS+8
SROP(4	OPS+8
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SROR	SROTRPT0+3, SROTRPT0+7, OPS+2
>> SRPOST	SROTRPT0+8, SROTRPT0+10, OPS+14
>> SRPRE	SROTRPT0+8, SROTRPT0+10, OPS+11
>> SRPROV	SROTRPT0+10*, SROTRPT0+11
>> SRSOUT	OPS+7, OPS+10, OPS+16, OPS+19, HDR+1, HDR+2
>> SRSPEC	OPS+3*
>> SRSURG	SROTRPT0+11*, OPS+14
>> SRTN	SROTRPT0+2, SROTRPT0+3, SROTRPT0+8, SROTRPT0+9, SROTRPT0+10, SROTRPT0+11, OPS, OPS+2, OPS+3, OPS+5 , OPS+12, OPS+15, OTHER+1, OTHER+2
>> SRWARD	SROTRPT0+5*
>> X	SROTRPT0+2, OPS+3, OPS+5, OPS+12, HDR+2*
>> Y	SROTRPT0+6*
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery

Routine: SROTRPT0

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: