Routine: SROSPC1

Information

SROSPC1 ;B'HAM ISC/MAM - CASES W/O SPECIMENS ; [ 07/27/98 2:33 PM ]

Package	Total	Call Graph
Surgery	2	^SROSTOP $$MANDIV^SROUTL0
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROSPEC

Name	Comments	DBIA/ICR reference
SET	; case information
HDR	; print heading
OPS
OTHER	; other operations
PAGE
LOOP	; break procedure if greater than 50 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TOTAL CASES WITHOUT SPECIMENS: ",TOTAL Line Location: SROSPC1+5
Function Call: WRITE	Prompt: !,SROD,?20,VADM(1),?55,SRSS,?110,SRSUR,!,SRTN,?20,VA("PID"),?55,SRDIAG,?110,SRATT,!,?55,SROP(1) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: ! Line Location: OPS+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue listing cases, or '^' to exit from this option." Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?55,"CASES WITHOUT SPECIMENS",?100,"DATE REVIEWED: " Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"DATE",?20,"PATIENT",?55,"SURGICAL SPECIALTY",?110,"SURGEON",!,"CASE #",?20,"PATIENT ID",?55,"POSTOPERATIVE DIAGNOSIS",?110,"ATTENDING SURGEON",!,?55,"OPERATIVE PROCEDURE" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROSPC1+3, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7, SET+8, OPS, OTHER+1 , OTHER+2
^SRF("AC"	SROSPC1+3
^SRO(137.45 - [#137.45]	SET+2
^VA(200 - [#200]	SET+9, SET+10

Name	Field # of Occurrence
^(	SET+8
^(34	SET+8

Name	Field # of Occurrence
>> DFN	SET+7*
DTIME	PAGE+1
>> I	OPS*
IOF	HDR+2
IOSL	SROSPC1+4, SET+6
IOST	PAGE
>> LINE	HDR+6*
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	SROSPC1+2, HDR+3, HDR+7
>> SR(	SET+8*
>> SRATT	SET+8, SET+10, OPS+2
>> SRDIAG	SET+8*, OPS+2
>> SRED	SROSPC1+2
>> SREDT	SROSPC1+2*, SROSPC1+3
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
>> SRINST	HDR+3
>> SRINSTP	SROSPC1+3
>> SRLONG	OTHER+1*, OTHER+2
>> SROD	SET+7*, OPS+2
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*, OPS+2
SROP(2	OPS+2
SROP(3	OPS+2
SROP(4	OPS+2
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRPRINT	HDR+4
>> SRSD	SROSPC1+2
>> SRSDATE	SROSPC1+2, SROSPC1+3, SET+7
>> SRSOUT	SROSPC1+2, SROSPC1+3, SROSPC1+4, SET+6, PAGE+1, HDR+1*
>> SRSS	SET+2*, OPS+2
>> SRSUR	SET+8, SET+9, OPS+2
>> SRTN	SROSPC1+3*, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7, SET+8, OPS, OPS+2 , OTHER+1, OTHER+2
>> TOTAL	SROSPC1+2, SROSPC1+5, OPS+3
>> VA("PID"	OPS+2
>> VADM(1	OPS+2
>> X	SET+2, PAGE+1, PAGE+2
>> ZTQUEUED	HDR+1