Routine: SROWC2

Information

SROWC2 ;B'HAM ISC/ADM - WOUND CLASSIFICATION REPORT (CONT.) ; [ 07/27/98 2:33 PM ]

Package	Total	Call Graph
Surgery	3	^SROSTOP $$MANDIV^SROUTL0 ^SRSKILL
VA Fileman	2	HELP^DIE D^DIQ
Kernel	1	^%ZISC
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROWC1

Name	Comments	DBIA/ICR reference
CASE	; print individual cases
END
HDR	; print heading
OPS	; print operations
UTIL	; set ^TMP
CLIST	; get list of wound class codes
SPEC
LOOP	; break procedure if greater than 59 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: SROWC2+6
Function Call: WRITE	Prompt: !,SRSDATE,?18,SRNM,?50,SRSUR,!,SRCASE,?18,VA("PID"),! Line Location: CASE+6
Function Call: WRITE	Prompt: ! Line Location: CASE+7
Function Call: WRITE	Prompt: "-" Line Location: CASE+8
Function Call: WRITE	Prompt: ?18,SROPS(1) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2
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: !,?17,"List of Surgical Cases by Wound Classification",?75,"Page:" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO,?77,PAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(80-$L(SRWD)\2),SRWD,!,SRPRINT Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"Operation Date",?18,"Patient",?50,"Surgeon/Provider",!,"Case #",?18,"ID #",! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?(80-$L(">> "_SRSPEC_" <<")\2),">> "_SRSPEC_" <<",! Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIE Line Location: CLIST+1

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

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROWC2+3, UTIL+1, UTIL+2, UTIL+3, UTIL+4, CASE+2, CASE+3, CASE+4, CASE+5
^SRF("AC"	SROWC2+3
^SRO(137.45 - [#137.45]	SPEC
^TMP("SR"	SROWC2+2!, SROWC2+5, SROWC2+6, SPEC+1, UTIL+5*, END!
^VA(200 - [#200]	CASE+5

Name	Field # of Occurrence
>> CNT	CASE+4, CASE+7
>> DFN	CASE+2*
DTIME	HDR+2, END+1
I	CLIST+1~, CLIST+2*
IOF	HDR+3, END, END+2
IOSL	CASE+1
IOST	HDR+2, END, END+1
J	CLIST+1~, CLIST+2*
>> LINE	CASE+8, HDR+6
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OP	CASE+4*
>> PAGE	SROWC2+2, HDR+4, HDR+8
>> S(0	CASE+2*
SRC	CLIST+1~, CLIST+2*
>> SRCASE	SROWC2+3, SPEC+1, UTIL+1, UTIL+2, UTIL+3, UTIL+4, UTIL+5, CASE+2, CASE+3, CASE+4 , CASE+5, CASE+6
>> SRCLASS	UTIL+4
>> SRCODE(	HDR+5, CLIST+2*
>> SRCODE("ZZ"	CLIST+3*
>> SRED	SROWC2+3
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
>> SRHDR	SROWC2+2, HDR+2, HDR+8
>> SRINSTP	SROWC2+3
SRLIST	CLIST+1~
SRLIST("DIHELP"	CLIST+2
>> SRNM	CASE+2*, CASE+6
SROP	CASE+3!
SROP(	CASE+4*, CASE+7
SROP(1	CASE+3*
>> SROPER	CASE+7, OPS+1, LOOP+1*
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, OPS+2
SROPS(2	OPS+2
SROPS(3	OPS+2
SROPS(4	OPS+2
SRP	CLIST+1~, CLIST+2*
>> SRPRINT	HDR+5
>> SRSD	SROWC2+3*
>> SRSDATE	CASE+2*, CASE+6
>> SRSOUT	SROWC2+2, SROWC2+5, SPEC+1, CASE+1, HDR+1, HDR+2*, END+1
>> SRSP	UTIL+3
>> SRSP(	UTIL+3
>> SRSPEC	SPEC*, HDR+7
>> SRSS	SROWC2+5, SPEC, SPEC+1, UTIL+3, UTIL+5
>> SRSSN	CASE+2*
>> SRSUR	CASE+5*, CASE+6
>> SRWC	SROWC2+5, SPEC+1, UTIL+4, UTIL+5*, HDR+5
>> SRWD	HDR+5*
>> VA("PID"	CASE+2, CASE+6
>> VADM(1	CASE+2
X	HDR+2, END+1, CLIST+1~, CLIST+2*
Y	CASE+2, CLIST+1~, CLIST+2
>> ZTQUEUED	HDR+1, END
>> ZTREQ	END*
>> ZTSTOP	END