Routine: SROPECS

Package	Total	Call Graph
Surgery	4	^SROPECS1 DATE^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC Y^DIQ ^DIR

Package

Total

Call Graph

Surgery

^SROPECS1 DATE^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

NOW^%DTC Y^DIQ ^DIR

Package	Total	Caller Graph
Surgery	1	SRO ECS COMPLIANCE

Package

Total

Caller Graph

Surgery

SRO ECS COMPLIANCE

Entry Points

Name	Field # of Occurrence
NOW^%DTC	EN+3
^%ZIS	DEVICE
^%ZISC	END+2
^%ZTLOAD	DEVICE+1
Y^DIQ	UTIL+5
^DIR	ASK+2, END+1, SORT+2, SPEC+1, SP, MORE+1
^SROPECS1	EN+9
DATE^SROUTL	DATE
$$INST^SROUTL0	DATE+2
$$MANDIV^SROUTL0	EN+8
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?18,"Ensuring Correct Surgery Compliance Report" Line Location: SROPECS+2
Function Call: WRITE	Prompt: !!,?2,"This two-part report includes a summary of the rate of compliance and/or a",!,?2,"list of surgical cases that are non-compliant in documenting the process" Line Location: SROPECS+3
Function Call: WRITE	Prompt: !,?2,"for ensuring correct surgery for operations performed by the selected",!,?2,"surgical specialties during the selected date range.",! Line Location: SROPECS+4
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: " "_$S(Y=1:"Compliance Summary Only",Y=2:"List of Non-Compliant Cases",1:"Both Parts") Line Location: ASK+3
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: SORT+1
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: SP+0
Function Call: WRITE	Prompt: ! Line Location: MORE+1
Routine Call	DIR Line Location: ASK+2 END+1 SORT+2 SPEC+1 SP MORE+1
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+1, EN+3
^DD(130	UTIL+5
^SRF - [#130]	EN+8, UTIL+1, UTIL+2, UTIL+3
^SRF("AC"	EN+8
^TMP("SRLIST"	EN+6!, END+2!, UTIL+6, UTIL+7

Name	Line Occurrences
END	ASK+2, DATE, DATE+1, DATE+2, DEVICE, DEVICE+1
IC	UTIL+3
MORE	MORE+2
MRK	UTIL+3
SORT	DATE+1
SPEC	SORT
TOV	UTIL+3
UTIL	EN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3
%ZIS	DEVICE!*
%ZIS("A"	DEVICE*
%ZIS("B"	DEVICE*
>> C	UTIL+5*
DIR	ASK!, ASK+2!, END+1!, SORT+2!, SPEC+1!, SP!, MORE+1!
DIR("?"	SORT+1, SPEC
DIR("A"	ASK, ASK+1, END+1, SORT+2, SPEC+1, SP, MORE+1*
DIR("B"	ASK+1, SORT+2, SPEC+1*
DIR(0	ASK+2, END+1, SORT+2, SPEC+1, SP, MORE+1
>> DTOUT	ASK+2, SORT+2, SPEC+1, SP, MORE+1
>> DUOUT	ASK+2, SORT+2, SPEC+1, SP
>> EDATE	DATE, EN+1
>> ENDATE	EN+1*, EN+2
IO	EN+1
IO("Q"	DEVICE!, DEVICE+1!
IOF	SROPECS+2, END, END+2
IOP	DEVICE!
IOST	END, END+1
POP	DEVICE!
>> SDATE	DATE, EN+1
SR0	EN+4~, UTIL+2*, UTIL+6, UTIL+7
SR71	EN+4~, UTIL+4, UTIL+6, UTIL+7, TOV+1*, TOV+2
SR72	EN+4~, UTIL+4, UTIL+6, UTIL+7, IC+1*, IC+2, IC+3
SR73	EN+4~, UTIL+4, UTIL+6, UTIL+7, MRK+1*, MRK+2, MRK+3
SRCIRC	EN+4~
>> SRFLG	ASK+3*, EN+5, EN+6, UTIL+3, SORT
SRFRTO	SROPECS+5~, EN+2*
>> SRHDR	EN+1*
SRHDRL	EN+4~
SRICNE	EN+4~, EN+7, IC+4
SRICNO	EN+4~, EN+7, IC+3
SRICNR	EN+4~, EN+7, IC+2
SRICY	EN+4~, EN+7, IC+1
>> SRINST	DATE+2*
SRINSTP	SROPECS+5~, DATE+2*, EN+8
SRORD	SROPECS+5~, UTIL+2, UTIL+6, SORT, SORT+3*
>> SRPAGE	EN+1*
>> SRPRINT	EN+3*
SRRPT	SROPECS+5~, EN+2*
SRSCNE	EN+4~, EN+7, MRK+4
SRSCNO	EN+4~, EN+7, MRK+3
SRSCNR	EN+4~, EN+7, MRK+2
SRSCY	EN+4~, EN+7, MRK+1
>> SRSDT	EN+1, EN+8, UTIL+6, UTIL+7
>> SRSEDT	EN+1*, EN+8
>> SRSOUT	SROPECS+5, ASK+2, DATE, DATE+1, DEVICE, DEVICE+1, EN+1, EN+8, END+1, SORT+2 , SPEC+1, SP, MORE+1*
>> SRSP	SROPECS+5, UTIL+2, SPEC+2
>> SRSP(	UTIL+2, SP+1, MORE+2
>> SRSS	UTIL+2, UTIL+5, UTIL+6, UTIL+7
SRTAG	EN+4~, EN+5*
SRTN	EN+8*, END+2!, UTIL+1, UTIL+2, UTIL+3, UTIL+6, UTIL+7
SRTONE	EN+4~, EN+7, TOV+3
SRTONO	EN+4~, EN+7, TOV+2
SRTOT	EN+4~, EN+7, UTIL+3
SRTOV	EN+4~, EN+7, TOV+1
SRVER	EN+4~, UTIL+3*, TOV+1, IC+1, MRK+1
>> STARTDT	EN+1*, EN+2
U	DATE+2
>> Y	ASK+3, EN+1, EN+3, UTIL+5*, SORT+3, SPEC+2, SP+1, MORE+2
>> ZTDESC	DEVICE+2*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEVICE+2*
>> ZTSAVE("EDATE"	DEVICE+3*
>> ZTSAVE("SDATE"	DEVICE+3*
>> ZTSAVE("SRFLG"	DEVICE+3*
>> ZTSAVE("SRINST"	DEVICE+3*
>> ZTSAVE("SRINSTP"	DEVICE+3*
>> ZTSAVE("SRORD"	DEVICE+3*
>> ZTSAVE("SRSP*"	DEVICE+3*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROPECS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SORT
EN	; entry point when queued
DEVICE
SP
TOV	; process time out verified field
UTIL	; process case
DATE
MRK	; process mark on surgical site confirmed field
ASK
END
IC	; process preoperative imaging confirmed field
SPEC
MORE	; asK for more surgical specialties