Routine: SROCAN0

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

Package

Total

Call Graph

Surgery

^SROSTOP $$MANDIV^SROUTL0 ^SRSKILL

Kernel

^%ZISC

Registration

DEM^VADPT

VA Fileman

D^DIQ

Package	Total	Caller Graph
Surgery	1	SROCAN

Package

Total

Caller Graph

Surgery

SROCAN

Name	Comments	DBIA/ICR reference
CASE	; print individual case
SRSP
SET	; set up ^TMP
END
HDR	; print heading
OPS
SUB1
OTHER	; other operations
PRINT	;
LOOP	; break procedure if greater than 55 characters
SUB	; print specialty sub-heading

Name	Field # of Occurrence
^%ZISC	END+2
D^DIQ	SROCAN0+3, CASE+2, CASE+4
^SROSTOP	HDR+1
$$MANDIV^SROUTL0	SROCAN0+4
^SRSKILL	END+2
DEM^VADPT	CASE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data for selected date range." Line Location: SROCAN0+6
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: SROCAN0+7
Function Call: WRITE	Prompt: !!,SROD,?15,$E(SRNM,1,28),?44,SROPS(1),?95,SRCD,!,SRTN,?15,VA("PID") Line Location: PRINT+1
Function Call: WRITE	Prompt: ?44,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?95,SRCR Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?44,SROPS(3) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?44,SROPS(4) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?44,SROPS(4) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?44,SROPS(4) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+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: !,?(132-$L(SRINST)\2),SRINST,?115,"PAGE: "_PAGE,!,?55,"REPORT OF CANCELLATIONS",?100,"REVIEWED BY:" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"PRINTED: ",SRPRINT,?53,"FROM ",$E(SRSD,4,5),"/",$E(SRSD,6,7),"/",$E(SRSD,2,3)," TO ",$E(SRED,4,5),"/",$E(SRED,6,7),"/",$E(SRED,2,3),?100,"DATE REVIEWED:" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"DATE",?15,"PATIENT",?44,"OPERATION(S)",?95,"CANCEL DATE",!,"CASE #",?15,"ID#",?95,"REASON",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !! Line Location: SUB+2
Function Call: WRITE	Prompt: "-" Line Location: SUB+2
Function Call: WRITE	Prompt: !,?(132-$L(SRSPEC)\2),SRSPEC Line Location: SUB1+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROCAN0+4, SET+1, CASE+2, CASE+3, CASE+4, CASE+5, OPS, OTHER+1, OTHER+2
^SRF("AC"	SROCAN0+4
^SRO(135 - [#135]	CASE+3
^SRO(137.45 - [#137.45]	SRSP
^TMP("SR"	SROCAN0+2!, SROCAN0+5, SROCAN0+6, SROCAN0+7, SET+2*, END!

Name	Line Occurrences
CASE	SROCAN0+5
END	SROCAN0+8
HDR	SROCAN0+5, SROCAN0+6, CASE+1, SUB+1
LOOP	OPS+1
OTHER	OPS
SET	SROCAN0+4
SRSP	SROCAN0+5, SROCAN0+6
SUB	SRSP
SUB1	HDR+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	CASE+5!*, OPS
>> DFN	CASE+2*
DT	SROCAN0+3
DTIME	END+1, HDR+2
>> I	HDR+5*
IO	SROCAN0+2
IOF	END, END+2, HDR+3
IOM	HDR+5
IOSL	SROCAN0+6, CASE+1, SUB+1
IOST	END, END+1, HDR+2
>> LINE	SUB+2*
>> 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	SROCAN0+2, HDR+3, HDR+6
>> S(0	CASE+2*
>> SRCD	CASE+4*, PRINT+1
>> SRCR	CASE+3*, PRINT+1
>> SRD	SROCAN0+2, SROCAN0+4
>> SRE	SROCAN0+2*, SROCAN0+4
>> SRED	SROCAN0+2, HDR+4
>> SRHALT	HDR+1
>> SRHDR	SROCAN0+2, HDR+2, HDR+6
>> SRINST	HDR+3
>> SRINSTP	SROCAN0+4
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	CASE+2*, PRINT+1
>> SROD	CASE+2*, PRINT+1
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, PRINT+1
SROPS(2	PRINT+1
SROPS(3	PRINT+2
SROPS(4	PRINT+2
SROPS(5	PRINT+2
SROPS(6	PRINT+2
>> SRPAGE	HDR+6, SUB+1, SUB+2, SUB1
>> SRPRINT	SROCAN0+3*, HDR+4
>> SRQ	SROCAN0+2, SROCAN0+4, SROCAN0+5, SROCAN0+6, CASE+1, END+1, HDR+1, HDR+2*, SUB+1
>> SRSD	SROCAN0+2, HDR+4
>> SRSP	SROCAN0+6, SROCAN0+7, SET+1
>> SRSP(	SROCAN0+6, SET+1
SRSPEC	SROCAN0+2!, SRSP*, HDR+6, SUB1
>> SRSS	SROCAN0+5, SROCAN0+6, SRSP, SET+1*, SET+2
>> SRSSN	CASE+2*
SRTN	SROCAN0+4, SROCAN0+5, SET+1, SET+2, CASE+2, CASE+3, CASE+4, CASE+5, OPS, PRINT+1 , END+2!, OTHER+1, OTHER+2
>> VA("PID"	CASE+2, PRINT+1
>> VADM(1	CASE+2
>> X	END+1, HDR+2
>> Y	SROCAN0+3, CASE+2, CASE+4*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROCAN0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: