Routine: SROCMP

Name	Comments	DBIA/ICR reference
OPER	; break procedure if greater than 50 characters
SRC
SET	; set variables to print
END
OPS
COMP	; perioperative occurrences
PRNT3
BEG
UTIL	; set ^TMP
DATE
ATT
OTHER	; other operations
TEXT	; check for comments
WP	; print perioperative occurrence comments
PRINT	; print perioperative occurrence information
MORE

Name	Field # of Occurrence
^%ZISC	END+1
D^DIQ	SET+1
Y^DIQ	ATT+1, ATT+4, OPS+2, OPS+4
^DIWP	WP+1
FOOT^SROCMP2	BEG+7
HDR^SROCMP2	BEG+3, BEG+5, PRINT+1, SRC+1, WP+3
BEG^SROMORT	BEG+8
$$MANDIV^SROUTL0	BEG+2
$$SITE^SROUTL0	ATT+2, OPS+3
^SRSKILL	END+1
DEM^VADPT	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no perioperative occurrences recorded for the selected date range." Line Location: BEG+5
Function Call: WRITE	Prompt: ! Line Location: BEG+6
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,SRNM,?29,$S(SRSEL=2:SRSPEC,1:SRATT) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?80,$P(SRC(SRC),"^") Line Location: PRINT+2
Function Call: WRITE	Prompt: ?80,$P(SRC(SRC),"^") Line Location: PRINT+2
Function Call: WRITE	Prompt: !,VA("PID"),?29,SRP(1),?80,$P(SRC(SRC),"^",4) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,SROD Line Location: PRINT+5
Function Call: WRITE	Prompt: ?29,SRP(2) Condition for execution: $D(SRP(2)) Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Condition for execution: $D(SRP(3))!SRT Line Location: PRINT+5
Function Call: WRITE	Prompt: ?29,SRP(3) Condition for execution: $D(SRP(3)) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?129,$P(SRC(SRC),"^",2),!,?80,$P(SRC(SRC),"^",4),! Line Location: SRC+2
Function Call: WRITE	Prompt: ! Line Location: SRC+2
Function Call: WRITE	Prompt: !,VA("PID"),?29,SRSPEC,?80,$P(SRC(SRC),"^",4) Line Location: PRNT3+0
Function Call: WRITE	Prompt: !,SROD Line Location: PRNT3+1
Function Call: WRITE	Prompt: ?29,SRP(1) Line Location: PRNT3+1
Function Call: WRITE	Prompt: ! Condition for execution: $D(SRP(2))!SRT Line Location: PRNT3+1
Function Call: WRITE	Prompt: ?29,SRP(2) Condition for execution: $D(SRP(2)) Line Location: PRNT3+1
Function Call: WRITE	Prompt: ! Line Location: WP+3
Function Call: WRITE	Prompt: ?80,">>> Comments:" Line Location: TEXT+1
Function Call: WRITE	Prompt: " /"_SRSEP Line Location: DATE+1
Function Call: WRITE	Prompt: " ("_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_")" Line Location: DATE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG, BEG+1
^DD(130	ATT+1, ATT+4, OPS+2, OPS+4
^SRF - [#130]	BEG+2, ATT, ATT+3, UTIL+2, UTIL+6, SET+1, OPS, OPS+2, OPS+4, OPS+6 , COMP+1, COMP+2, COMP+3, COMP+4, WP+1, TEXT+1, OTHER+1, OTHER+2
^SRF("AC"	BEG+2
^SRO(133 - [#133]	ATT+2, OPS+3
^SRO(136.5 - [#136.5]	UTIL+8
^SRO(137.45 - [#137.45]	UTIL+3, OPS+6
^TMP("SR"	BEG!, BEG+3, BEG+5, END!, MORE, ATT+7, UTIL+4, UTIL+9*
^UTILITY($J	WP+1!, WP+2, WP+4

Name	Line Occurrences
ATT	UTIL+5
DATE	PRINT+2, SRC+2
END	BEG+4, BEG+5
MORE	BEG+3
OPER	OPS+1
OTHER	OPS
PRNT3	PRINT+3
SET	MORE
SRC	PRNT3+2
TEXT	PRINT+5, SRC+2, PRNT3+1
UTIL	BEG+2
WP	PRINT+5, SRC+2, PRNT3+1

Name	Field # of Occurrence
^(	COMP+1
^(0	COMP+1, COMP+3
^(2	COMP+1, COMP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	ATT+1, ATT+4, OPS+2, OPS+4
>> CM	WP+1*
>> DFN	SET+1*
>> DIWL	WP+1*
>> DIWR	WP+1*
DT	BEG
>> I	BEG+6*
IO	BEG
IOF	END, END+1
IOSL	BEG+6, PRINT+1, SRC+1, WP+3
IOST	END
>> J	WP+2*, WP+4
>> LOOP	OPER+1*
>> M	OPS+1*, OPER+1
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	BEG*
>> SRATT	OPS+2, OPS+3, OPS+4, OPS+5*, PRINT+2
>> SRBOTH	BEG+8
SRC	SET+1!, PRINT+2, PRINT+4, SRC, SRC+2, PRNT3, TEXT+1, DATE+1, DATE+2
SRC(	COMP+1, COMP+3, COMP+4*, PRINT+2, PRINT+4, SRC, SRC+2, PRNT3, TEXT+1, DATE+1 , DATE+2
SRC(0	PRINT+2
SRDIV	ATT~, ATT+2, OPS+3
>> SRDT	DATE+2*
>> SRED	BEG, BEG+1
>> SREDT	BEG*, BEG+2
>> SRFG	COMP+1, COMP+3, COMP+4
SRFRTO	BEG+1~*
>> SRHDR	BEG+3, PRINT+2
>> SRI	UTIL+6*
>> SRIC	COMP+1*
>> SRINSTP	BEG+2
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	SET+1*, PRINT+2
>> SROCC	UTIL+6*
>> SROD	SET+1*, PRINT+5, PRNT3+1
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, OPER+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SRP	OPS+1!
SRP(	OPER+1*
SRP(1	OPS+1*, PRINT+4, PRNT3+1
SRP(2	PRINT+5, PRNT3+1
SRP(3	PRINT+5
>> SRPC	COMP+1, COMP+2, COMP+3, COMP+4
>> SRPRINT	BEG*
>> SRSD	BEG, BEG+1
>> SRSDATE	BEG+3*, MORE
>> SRSDT	BEG, BEG+2, ATT+7, UTIL+4, UTIL+9
>> SRSEL	UTIL+1, UTIL+5, UTIL+6, PRINT+2, PRINT+3
SRSEP	DATE~, DATE+1*
>> SRSOUT	BEG, BEG+2, BEG+3, BEG+4, BEG+5, BEG+8, PRINT+1, SRC, SRC+1, WP+3
>> SRSP	ATT+5, UTIL+2, UTIL+7
>> SRSP(	ATT+5, UTIL+2, UTIL+7
>> SRSPEC	OPS+6*, PRINT+2, PRNT3
>> SRSS	BEG+3, MORE, ATT+1, ATT+4, ATT+6, ATT+7, UTIL+3, UTIL+4, UTIL+8, UTIL+9
>> SRSSN	SET+1*
>> SRT	PRINT+5, SRC+2, PRNT3+1, TEXT+1*
SRTN	BEG+2, END+1!, MORE, ATT, ATT+2, ATT+3, ATT+7, UTIL+2, UTIL+4, UTIL+6 , UTIL+9, SET+1, OPS, OPS+2, OPS+3, OPS+4, OPS+6, COMP+1, COMP+2, COMP+3 , COMP+4, WP+1, TEXT+1, OTHER+1, OTHER+2
>> SRX	WP+1, TEXT+1*
SRY	ATT~, ATT+1, ATT+2, ATT+3, ATT+4, ATT+5, ATT+6, WP+1, TEXT+1
>> VA("PID"	SET+1, PRINT+4, PRNT3
>> VADM(1	SET+1
>> X	BEG+7, WP+1, DATE+1*
>> Y	BEG, BEG+1, ATT+1, ATT+4, UTIL+2, UTIL+3, UTIL+6, UTIL+7, UTIL+8, SET+1* , OPS+2, OPS+4, OPS+6*
Z	OPS+1!, OPER+1*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROCMP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: