Routine: SROPPC

Package	Total	Call Graph
Surgery	4	^SROSTOP DATE^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROPPC

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set variables
END
HDR	; print heading
EN1	; entry when queued
CHK	; compare pre and postop diagnosis
ASK
EN	; entry point
PRINT	; print case

External References

Name	Field # of Occurrence
^%ZIS	EN+5
^%ZISC	END+1
^%ZTLOAD	EN+6
^SROSTOP	HDR+1
DATE^SROUTL	EN+2
$$INST^SROUTL0	EN+4
$$MANDIV^SROUTL0	EN1+2
^SRSKILL	END+1
DEM^VADPT	SET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SROD,?10,SRNM,?42,SRPRE(""),?84,SRPOST("") Line Location: PRINT+3
Function Call: WRITE	Prompt: ?126,SRWC,!,SRTN,?10,VA("PID") Line Location: PRINT+3
Function Call: WRITE	Prompt: ?42,SRPRE(1) Condition for execution: $D(SRPRE(1)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?84,SRPOST(1) Condition for execution: $D(SRPOST(1)) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?10,SRTS,! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?42,SRPRE(2) Condition for execution: $D(SRPRE(2)) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?84,SRPOST(2) Condition for execution: $D(SRPOST(2)) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?46,"COMPARISON OF PREOP AND POSTOP DIAGNOSIS",?100,"DATE REVIEWED: " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"DATE",?10,"PATIENT",?42,"PREOPERATIVE DIAGNOSIS",?84,"POSTOPERATIVE DIAGNOSIS",?121,"WOUND CLASS",!,"CASE #",?10,"ID #",!,?10,"SURGICAL SPECIALTY",! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+4
Function Call: WRITE	Prompt: @IOF,!,"Comparison of Preoperative and Postoperative Diagnosis",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: EN+5
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: EN1+5
Function Call: WRITE	Prompt: "-" Line Location: EN1+5
Function Call: WRITE	Prompt: !,"WOUND CLASSIFICATION CODES: ",!,"C: CLEAN, CC: CLEAN/CONTAMINATED, D: CONTAMINATED, I: INFECTED" Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: EN1+7
Routine Call	%ZIS Line Location: EN+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+1
^SRF - [#130]	CHK+1, CHK+2, CHK+3, CHK+4, SET+2, SET+3, EN1+2
^SRF("AC"	EN1+2
^SRO(137.45 - [#137.45]	SET+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+5!*
%ZIS("A"	EN+5*
>> CNT	CHK+3, CHK+4
>> DFN	SET+2*
DT	EN1+1
DTIME	ASK, EN1+7
>> I	HDR+4, EN1+5
IO	EN1+1
IO("Q"	EN+5!, EN+6!
IOF	END, END+1, HDR+2, EN+1
IOM	HDR+4, EN1+5
IOP	EN+5!
IOSL	PRINT+1, EN1+4
IOST	END, ASK, EN1+7
>> J	EN1+1, EN1+2
>> K	CHK+1, CHK+2, SET+2, SET+3, EN1+2*
POP	EN+5!
>> S(0	SET+2*, SET+3, SET+4
>> SRD	EN+3*, EN1+1
>> SRDG	CHK+3, CHK+4
>> SRED	EN+2, EN1+1, EN1+2
>> SRF	CHK+5, EN1+2
SRFRTO	HDR+3, EN1+1~*
>> SRHALT	HDR+1
>> SRINST	HDR+2, EN+4*
SRINSTP	EN+4~*, EN1+2
>> SRNM	SET+2*, PRINT+3
>> SROD	SET+3*, PRINT+3
SRPOST	CHK+2!
SRPOST(	CHK+4*
SRPOST("*"	CHK+2, CHK+5, SET+1, PRINT+3
SRPOST(1	PRINT+3
SRPOST(2	PRINT+4
SRPRE	CHK+2!
SRPRE(	CHK+3*
SRPRE("*"	CHK+2, CHK+5, SET+1, PRINT+3
SRPRE(1	PRINT+3
SRPRE(2	PRINT+4
>> SRPRINT	HDR+3, EN1+1*
>> SRQ	PRINT+1, ASK, HDR+1, EN+2, EN1+1*, EN1+2, EN1+4, EN1+7
>> SRSD	EN+2, EN+3, EN1+1
>> SRT	EN1+1, EN1+2, EN1+3
SRTN	CHK+2, CHK+3, CHK+4, SET+2, PRINT+3, END+1!
>> SRTS	SET+4, SET+5, PRINT+2*, PRINT+4
>> SRWC	SET+3*, PRINT+3
U	EN+4
>> VA("PID"	PRINT+3
>> VADM(1	SET+2
>> X	ASK, EN1+7
>> Y	EN1+1*
>> Z	EN1+4*
>> ZTDESC	EN+6*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	EN+6*
>> ZTSAVE("SRD"	EN+6*
>> ZTSAVE("SRED"	EN+6*
>> ZTSAVE("SRINST"	EN+6*
>> ZTSAVE("SRINSTP"	EN+6*
>> ZTSAVE("SRSD"	EN+6*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROPPC

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ASK	PRINT+1
CHK	EN1+2
END	EN+2, EN+4, EN+5, EN+6, EN1+4, EN1+8
HDR	ASK+1, EN1+2
SET	EN1+2