Routine: SROACMP

Package	Total	Call Graph
Surgery	3	(END,HDR,HDR2)^SROACMP1 CPTS^SROAUTL0 ($$DIV,$$MANDIV)^SROUTL0
VA Fileman	2	C^%DTC ^DIWP
DRG Grouper	1	$$ICDDX^ICDCODE
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROACMP1

Entry Points

Name	Comments	DBIA/ICR reference
OPER	; break procedure if greater than 48 characters
DATE
SET	; set variables to print
OPS
SS	; set up ^TMP for selected specialties
COMP	; perioperative occurrences
DWP	; print review of death comments
UTIL	; list all cases within 30 days prior to postop occurrence and/or 90 days prior to death
PRIOR	; list cases in 30 days before this occurrence or 90 days before death
TEXT	; check for occurrence comments
RA	; risk assessment type and status
WP	; print occurrence comments
PRINT	; print case information

External References

Name	Field # of Occurrence
C^%DTC	PRIOR+1, OPS+3
^DIWP	WP+1, DWP+1
$$ICDDX^ICDCODE	COMP+3, COMP+10
END^SROACMP1	SROACMP+9, SROACMP+10
HDR^SROACMP1	SROACMP+4, SROACMP+7, PRINT+1, PRINT+8, WP+3, DWP+3
HDR2^SROACMP1	SROACMP+10
CPTS^SROAUTL0	OPS+2
$$DIV^SROUTL0	PRIOR+3
$$MANDIV^SROUTL0	PRIOR+2
DEM^VADPT	UTIL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SROACMP+4
Function Call: WRITE	Prompt: "-" Line Location: SROACMP+4
Function Call: WRITE	Prompt: !!,"There are no perioperative occurrences or deaths recorded for ",$S(SRFORM=1:"surgeries performed in the selected date range.",1:"completed assessments not yet transmitted.") Line Location: SROACMP+9
Function Call: WRITE	Prompt: !!,SRSDATE,?11,SRTN,?25,SRSS,?80,SRTYPE,?98,SRSTATUS,?116,SRREL Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?11,SRP(1) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?11,SRP(2) Condition for execution: $D(SRP(2)) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?11,"CPT Codes: ",SRPROC(1) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?24,SRPROC(2) Condition for execution: $D(SRPROC(2)) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?24,$P(SRC(SRI),"^") Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: !,?11,"Date of Death: "_$E(SRNDTH,4,5)_"/"_$E(SRNDTH,6,7)_"/"_$E(SRNDTH,2,3) Line Location: PRINT+12
Function Call: WRITE	Prompt: "@"_$E(X,1,2)_":"_$E(X,3,4) Line Location: PRINT+12
Function Call: WRITE	Prompt: "NONE ENTERED" Line Location: PRINT+14
Function Call: WRITE	Prompt: ! Line Location: WP+3
Function Call: WRITE	Prompt: !,?26,">>> Comments:" Line Location: TEXT+1
Function Call: WRITE	Prompt: ! Line Location: DWP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	UTIL+1, PRIOR+4, PRIOR+5, PRIOR+6, SET+2, OPS, OPS+4, COMP+1, COMP+3, COMP+5 , COMP+10, RA+1, PRINT+10, PRINT+14, SS+3, WP+1, TEXT+1, DWP+1
^SRF("B"	PRIOR+1
^SRO(136.5 - [#136.5]	COMP+2, COMP+8
^SRO(137.45 - [#137.45]	SET+2
^TMP("SR"	SROACMP+2, SROACMP+4, SROACMP+8, SROACMP+9, PRIOR+1, PRIOR+6*, SS+2, SS+4!
^TMP("SRPAT"	SROACMP+4, UTIL+2*, SS+1, SS+4!
^TMP("SRSP"	SS+1!, SS+3*, SS+4
^UTILITY($J	WP+1!, WP+2, WP+4, DWP+1!, DWP+2, DWP+4
^XUSEC("SROCHIEF"	PRIOR+2, PRIOR+3

Label References

Name	Line Occurrences
DATE	COMP+2, COMP+6
DWP	PRINT+15
OPER	OPS+1
PRIOR	UTIL+1, UTIL+3
SET	SROACMP+8
SS	SROACMP+3
TEXT	PRINT+9
UTIL	SROACMP+2
WP	PRINT+9

Naked Globals

Name	Field # of Occurrence
^(	SROACMP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CM	WP+1~, DWP+1~
>> DFN	SROACMP+2, SROACMP+8, UTIL+2, PRIOR+1, PRIOR+6, SS+1, SS+2, SS+3, SS+4
>> DIWL	WP+1, DWP+1
>> DIWR	WP+1, DWP+1
DUZ	PRIOR+2, PRIOR+3
IOSL	SROACMP+4, SROACMP+7, PRINT+1, PRINT+8, WP+3, DWP+3
>> J	WP+2, WP+4, DWP+2, DWP+4
>> LINE	SROACMP+4*
>> LOOP	OPER+1*
>> M	OPS+1*, OPER+1
>> SDATE	PRIOR+1*, PRIOR+5
>> SR(0	SET+2*
>> SRA	RA+1*
>> SRBACK	UTIL+1, UTIL+3, PRIOR+1
SRC	COMP+1!
SRC(	COMP+2, COMP+3, COMP+4, COMP+8, COMP+10, COMP+11, PRINT+6, PRINT+7, TEXT+1
SRC(1	PRINT+5*
>> SRCASE	PRIOR+1*, PRIOR+4, PRIOR+5, PRIOR+6
>> SRCAT	COMP+2, COMP+6, COMP+7, COMP+8
>> SRCHK	OPS+3*, OPS+4
>> SRD	SET+2*, OPS+3, COMP+2
>> SRDATE	UTIL+1, UTIL+3, PRIOR+1, PRIOR+5
>> SRDEATH	SROACMP+5*, SROACMP+6, OPS+3, OPS+4, PRINT+11
>> SRE	RA+1*
>> SRFG	COMP+1, COMP+2, COMP+3, COMP+4, COMP+5, COMP+8, COMP+10, COMP+11
>> SRFORM	SROACMP+3, SROACMP+9
>> SRI	PRINT+6*, PRINT+7, TEXT+1
>> SRIC	COMP+1*, COMP+4
>> SRICD	COMP+1, COMP+3, COMP+5, COMP+10
SRICDN	SET+1~, COMP+3, COMP+10
>> SRINSTP	PRIOR+2
SRL	OPS+2~*
>> SRNAME	SROACMP+5, SROACMP+6, SROACMP+8, SS+1, SS+4
SRNDTH	PRINT+10*, PRINT+11!, PRINT+12
>> SRNM	SROACMP+4, SROACMP+8
>> SRO	COMP+1, COMP+2, COMP+5, COMP+6, COMP+7, COMP+9
>> SROPER	OPS, OPS+1, OPER+1*
SRP	OPS+1!
SRP(	OPER+1*
SRP(1	OPS+1*, PRINT+3
SRP(2	PRINT+3
>> SRPAT	SROACMP+4*, SROACMP+5
>> SRPC	COMP+5*, COMP+11
>> SRPOST	UTIL+1*
>> SRPROC(1	OPS+2*, PRINT+4
>> SRPROC(2	PRINT+4
>> SRQ	SS+1, SS+2, SS+3
>> SRREL	OPS+3, OPS+4, PRINT+2
>> SRSDATE	SET+2*, PRINT+2
SRSEP	SET+1~, COMP+7, COMP+8, COMP+9
>> SRSOUT	SROACMP+4, SROACMP+7, SROACMP+8, SROACMP+9, PRINT+1, PRINT+8, WP+3, DWP+3
>> SRSP	SROACMP+3
>> SRSP(	SS+3
>> SRSS	SET+2*, PRINT+2
>> SRSTATUS	RA+1, RA+4, PRINT+2
>> SRT	PRINT+9, TEXT+1*
>> SRTN	SROACMP+2, SROACMP+8, UTIL+1, PRIOR+2, PRIOR+3, SET+2, OPS, OPS+4, COMP+1, COMP+3 , COMP+5, COMP+10, RA+1, PRINT+2, PRINT+10, PRINT+14, SS+1, SS+2, SS+3, WP+1 , TEXT+1, DWP+1
>> SRTYPE	RA+1, RA+2, RA+3*, PRINT+2
>> SRX	SROACMP+5, SROACMP+8, PRIOR+5, TEXT+1*
>> SRY	COMP+2, COMP+8, DATE, WP+1, TEXT+1
>> SRYN	RA+1*, RA+3
>> SRZ	WP+1, TEXT+1*
>> VA("PID"	UTIL+2
>> VADM(1	UTIL+2
>> VADM(6	UTIL+2, UTIL+3
>> X	SROACMP+6, PRIOR+1, OPS+3, OPS+4, COMP+7, COMP+9, PRINT+12, WP+1, DWP+1*
>> X1	PRIOR+1, OPS+3
>> X2	PRIOR+1, OPS+3
>> Y	SET+2, COMP+2, COMP+6, DATE, SS+3
Z	OPS+1!, OPER+1*

Customize PDF page

Package: Surgery

Routine: SROACMP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: