Routine: SRODIS

Package	Total	Call Graph
Surgery	4	^SRODIS0 ^SROSTOP DATE^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Surgery	2	SRO CASES BY DISPOSITION SRODIS0

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEVICE
^%ZISC	END+1
^%ZTLOAD	DEVICE+1
^DIC	TYPE, SP, MORE+1
^DIR	DISP+4
^SRODIS0	DEVICE+2
^SROSTOP	HDR+1
DATE^SROUTL	DATE
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"List of Operations by Postoperative Disposition:",!! Line Location: BEG+0
Function Call: WRITE	Prompt: @IOF,!,"Print the List of Operations for which of the following ?",!!,?10,"1. All Dispositions",!,?10,"2. A Specific Disposition",!,?10,"3. No Disposition Entered",! Line Location: DISP+0
Function Call: WRITE	Prompt: ! Line Location: TYPE+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SORT+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to sort the report by surgical specialty, or 'N' to not sort",!,"by surgical specialty." Line Location: SORT+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SER+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to print the report for all surgical specialties, or 'N' to print",!,"the report for a specific specialty." Line Location: SER+2
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! 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: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue with the List of Surgical Cases sorted by Postop",!,"Disposition, or '^' if you do not want to review any additional information." Line Location: RET+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?127,$J(PAGE,3) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?46,"LIST OF OPERATIONS BY POSTOP DISPOSITION",?100,SRPRINT Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"REVIEWED BY:" Line Location: HDR+5
Function Call: WRITE	Prompt: !,?(132-$L(SRTP)\2),SRTP,?100,"DATE REVIEWED:" Line Location: HDR+7
Function Call: WRITE	Prompt: !,?100,"DATE REVIEWED:" Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"DATE",?13,"PATIENT",?38,"OPERATION(S)",?90,"SURGEON",?114,"ANESTHESIA TECH",!,"CASE #",?15,"ID#",?90,"1ST ASST",?114,"IN/OUT-PAT STATUS",!,?90,"2ND ASST",?114,"OP TIME" Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: !,?(132-$L(">> "_SRSPEC_" <<")\2),">> "_SRSPEC_" <<",! Line Location: HDR+10
Routine Call	DIC Line Location: TYPE SP MORE+1
Routine Call	DIR Line Location: DISP+4
Routine Call	%ZIS Line Location: DEVICE

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE!, DEVICE+1
%ZIS("A"	DEVICE*
DIC	TYPE!, SP!, MORE+1!*
DIC("A"	TYPE, SP, MORE+1*
DIC("S"	TYPE, SP, MORE+1*
DIC(0	TYPE, SP, MORE+1*
DIR	DISP+1!, DISP+4!
DIR("?"	DISP+2, DISP+3
DIR("A"	DISP+1*
DIR("B"	DISP+1*
DIR(0	DISP+1*
DTIME	SORT, SER, END, RET
>> DTOUT	DISP+4
>> DUOUT	DISP+4
>> I	HDR+9*
IO("Q"	DEVICE!, DEVICE+1!
IOF	BEG, DISP, END+1, HDR+3
IOP	DEVICE!
IOST	END, HDR+2
>> PAGE	HDR+3, HDR+11*
POP	DEVICE!
>> SRDISP	DISP+5, TYPE+1
>> SRDISP1	HDR+6*, HDR+7
>> SRED	DATE
>> SRFRTO	HDR+5
>> SRHALT	HDR+1
>> SRHDR	HDR+2, HDR+11*
>> SRINST	HDR+3
>> SRORD	BEG, SORT+3
>> SRP	HDR+6, HDR+7, HDR+8
>> SRPRINT	HDR+4
>> SRQ	BEG, DATE, DISP+4, TYPE, SORT, SER, SER+3, SP, END, RET* , HDR+1*, HDR+2
>> SRSD	DATE
>> SRSP	BEG, SP
>> SRSP(	SP+1, MORE+1
>> SRSPEC	HDR+10
SRTN	END+1!
>> SRTP	HDR+7*
>> SRYN	SORT, SORT+1, SORT+2, SORT+3, SER, SER+1, SER+2, SER+3
>> X	END, RET, RET+1
>> Y	DISP+5, TYPE, TYPE+1, SP, SP+1, MORE+1
>> ZTDESC	DEVICE+1*
>> ZTQUEUED	HDR+1
>> ZTRTN	DEVICE+1*
>> ZTSAVE("SRDISP"	DEVICE+1*
>> ZTSAVE("SRED"	DEVICE+1*
>> ZTSAVE("SRORD"	DEVICE+1*
>> ZTSAVE("SRSD"	DEVICE+1*
>> ZTSAVE("SRSITE*"	DEVICE+1*
>> ZTSAVE("SRSP*"	DEVICE+1*

Customize PDF page

Package: Surgery

Routine: SRODIS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
SORT
END
SER
SP
BEG
RET
HDR	; print heading
DEVICE
DATE
TYPE
MORE	; more specialties?

Name	Line Occurrences
DEVICE	SORT+3
END	DATE, DISP+4, TYPE, SORT, SER, SER+3, DEVICE, DEVICE+1
MORE	MORE+1
RET	RET+1, HDR+2
SER	SER+2
SORT	DISP+5, SORT+2
SP	SER+3