Routine: SROWC

Package	Total	Call Graph
Surgery	4	DATE^SROUTL $$INST^SROUTL0 ^SROWC1 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC HELP^DIE ^DIR

Package

Total

Call Graph

Surgery

DATE^SROUTL $$INST^SROUTL0 ^SROWC1 ^SRSKILL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIC HELP^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SROWC

Package

Total

Caller Graph

Surgery

SROWC

Name	Field # of Occurrence
^%ZIS	DEVICE
^%ZISC	END+1
^%ZTLOAD	DEVICE+1
^DIC	SP, MORE+1
HELP^DIE	CLIST+1
^DIR	CLASS+5
DATE^SROUTL	DATE
$$INST^SROUTL0	DATE+1
^SROWC1	DEVICE+2
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Wound Classification Report",! Line Location: SROWC+3
Function Call: WRITE	Prompt: @IOF,!,"Print which of the following ?",!!,"1. Wound Classification Report (Summary)",!,"2. List of Operations by Wound Classification",!,"3. Clean Wound Infection Summary" Line Location: RPT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RPT+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty." Line Location: SPEC+2
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !! Line Location: SP+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"Enter '1' or press RETURN to print the Wound Classification Report",!,"which summarizes wound classifications entered for surgical cases performed" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"during the selected date range. Enter '2' to print the list of operations",!,"sorted by wound classification and by surgical specialty performed during",!,"the selected date range. " Line Location: HELP+1
Function Call: WRITE	Prompt: "Enter '3' to print the summary of clean wound",!,"infections." Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: CLASS+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to print this report for all wound classifications, or",!,"enter 'NO' to select a specific wound classification." Line Location: CLASS+2
Routine Call	DIE Line Location: CLIST+1
Routine Call	DIC Line Location: SP MORE+1
Routine Call	DIR Line Location: CLASS+5
Routine Call	%ZIS Line Location: DEVICE

FileNo	Call Tags
^SRF - [#130]	HELP^DIE

Name	Line Occurrences
CLASS	RPT+3, CLASS+2
CLIST	CLASS+4
END	DATE, DATE+1, RPT+1, RPT+2, SPEC, SPEC+3, DEVICE, DEVICE+1, CLASS, CLASS+5
HELP	RPT+2
MORE	MORE+1
RPT	RPT+2
SP	SPEC+3
SPEC	SPEC+2, CLASS+3, CLASS+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE!*
%ZIS("A"	DEVICE*
DIC	SP!, MORE+1!
DIC("A"	SP, MORE+1
DIC("S"	SP, MORE+1
DIC(0	SP, MORE+1
DIR	CLASS+4!, CLASS+5!
DIR("?"	CLASS+5*
DIR("A"	CLASS+4, CLASS+5
DIR(0	CLASS+5*
DTIME	RPT+1, SPEC, END, HELP+3, CLASS
>> DTOUT	CLASS+5
>> DUOUT	CLASS+5
>> I	CLIST+2*, CLIST+3
IO("Q"	DEVICE!, DEVICE+1!
IOF	SROWC+3, RPT, END+1
IOP	DEVICE!
J	CLIST+1~, CLIST+4*
POP	DEVICE!
SRC	CLIST+1~, CLIST+3*
>> SRCLASS	CLASS+3, CLASS+6
>> SRCNT	CLASS+4*, CLASS+5
>> SRCODE(	CLASS+6, CLIST+3, CLIST+5
>> SRCT	SP+1, MORE+1
>> SRED	DATE
>> SRFLG	RPT+3*
>> SRINST	DATE+1*
SRINSTP	DATE+1~*
SRLIST	CLIST+1~
SRLIST("DIHELP"	CLIST+2, CLIST+3
SRP	CLIST+1~, CLIST+4*
>> SRSD	DATE
>> SRSOUT	SROWC+2, DATE, RPT+2, SPEC, SPEC+3, DEVICE, SP, END, HELP+3, CLASS , CLASS+5*
>> SRSP	SROWC+2, SP
>> SRSP(	SP+1, MORE+1
>> SRWC(	CLASS+4, CLIST+4, CLIST+5
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3, CLASS, CLASS+1, CLASS+2, CLASS+3
U	DATE+1
X	RPT+1, RPT+2, RPT+3, END, HELP+3, CLIST+1~, CLIST+3*, CLIST+4
Y	SP, SP+1, MORE+1, CLASS+5, CLASS+6, CLIST+1~, CLIST+3*, CLIST+4
Z	CLASS+4, CLASS+5, CLIST+1~, CLIST+2*, CLIST+3, CLIST+4, CLIST+5
>> ZTDESC	DEVICE+1*
>> ZTRTN	DEVICE+1*
>> ZTSAVE("SRCLASS"	DEVICE+1*
>> ZTSAVE("SRED"	DEVICE+1*
>> ZTSAVE("SRFLG"	DEVICE+1*
>> ZTSAVE("SRINST"	DEVICE+1*
>> ZTSAVE("SRINSTP"	DEVICE+1*
>> ZTSAVE("SRSD"	DEVICE+1*
>> ZTSAVE("SRSP*"	DEVICE+1*

Customize PDF page

Package: Surgery

Routine: SROWC

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: