Routine: SROQ2

Package	Total	Call Graph
Surgery	6	^SROQ0 ^SROQ1 MORT^SROQ1A ($$INST,$$MANDIV)^SROUTL0 $$SITE^SROVAR ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	(,DD)^%DT $$GET1^DIQ

Package	Total	Caller Graph
Surgery	2	SROQ SROQT

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; examine case
SDATE	; enter starting date
SET	; collect data
END
IP	; determine related index procedure (if any)
KTMP
ZERO	; set counters to 0
EN	; entry point when queued
IO
DEATH	; tabulate deaths
EDATE	; enter ending date
SPEC	; determine related specialty
INOUT	; decide if death is in or out-pat surgery death

External References

Name	Field # of Occurrence
^%DT	SDATE+2, SDATE+3, EDATE+2, EDATE+3
DD^%DT	SDATE+5, SET+12
^%ZIS	IO
^%ZISC	END+4
^%ZTLOAD	IO+1
$$GET1^DIQ	SET+10
^SROQ0	CASE+2
^SROQ1	EN+1
MORT^SROQ1A	SET+12
$$INST^SROUTL0	EDATE+7
$$MANDIV^SROUTL0	SET+11
$$SITE^SROVAR	SET+2
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"SUMMARY REPORT FOR SURGICAL SERVICE" Line Location: SROQ2+6
Function Call: WRITE	Prompt: !!,"Enter date range for data to be included on report." Line Location: SROQ2+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: SDATE+1
Function Call: WRITE	Prompt: !,"Enter the EARLIEST date for data to be included in this report." Line Location: SDATE+2
Function Call: WRITE	Prompt: !!,"Cannot report on operations for future dates !",! Line Location: SDATE+4
Function Call: WRITE	Prompt: !!,"NOTE: ",$S(SRAC:"No surgical case data exists before "_SRAC1_".",1:"There are no surgical cases on record !") Line Location: SDATE+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDATE+1
Function Call: WRITE	Prompt: !,"Enter the LATEST date for data to be included in this report." Line Location: EDATE+2
Function Call: WRITE	Prompt: !!,"The ENDING date must be later than the BEGINNING date. Please try again.",! Line Location: EDATE+4
Function Call: WRITE	Prompt: !!,"Cannot report on operations for future dates !",! Line Location: EDATE+5
Function Call: WRITE	Prompt: ! Line Location: IO+0
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+4
Routine Call	%ZIS Line Location: IO

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SET+11, CASE+1, SPEC+1, IP+1, INOUT+1
^SRF("AC"	SDATE+5, SET+11
^TMP(	KTMP!
^TMP("SRDEATH"	DEATH+3, IP+1
^TMP("SREXP"	DEATH+1, SPEC+1
^TMP("SRINOUT"	INOUT+1, INOUT+2
^TMP("SRIOD"	DEATH+5, INOUT+1
^TMP("SRP"	IP+1, IP+2
^TMP("SRPROC"	ZERO+6, DEATH+4
^TMP("SRSP"	SPEC+1, SPEC+2
^TMP("SRSS"	ZERO+3, ZERO+4, DEATH+2*

Label References

Name	Line Occurrences
CASE	SET+11
DEATH	SET+12
EDATE	EDATE+2, EDATE+3, EDATE+5
END	SDATE+1, EDATE+1, EDATE+7, IO, IO+1, EN+1
INOUT	DEATH+5
IP	DEATH+3
KTMP	END+1, ZERO+2
SDATE	SDATE+2, SDATE+3, SDATE+4, EDATE+4
SET	EN+1
SPEC	DEATH+1
ZERO	SET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SDATE+2, SDATE+3, EDATE+2, EDATE+3
%ZIS	IO!*
%ZIS("A"	IO*
>> DFN	DEATH+1, DEATH+3, DEATH+5*, SPEC+1, SPEC+2, IP+1, IP+2, INOUT+1, INOUT+2
DT	SDATE+4, EDATE+5
DTIME	SDATE+1, EDATE+1, END
>> I	KTMP, ZERO+2, ZERO+3, ZERO+5, ZERO+7, ZERO+8
IO("Q"	IO!, IO+1!
IOF	SROQ2+6, END+1, END+4
IOST	END, END+1
>> J	DEATH+4*
POP	IO!
SR14	END+3!
>> SR60	ZERO+2*
SR71	END+3!
SR72	END+3!
SR73	END+3!
>> SRAC	SDATE+5*
>> SRAC1	SDATE+5*
SRADMT	END+3!, ZERO+2*
>> SRASA(	ZERO+2*
SRATT	ZERO+5!
SRATT(	ZERO+5*
SRATT("J"	ZERO+5*
SRATT("N"	ZERO+5*
>> SRC(	ZERO+7*
>> SRCASES	CASE+2, ZERO+2
>> SRCOMP	ZERO+2*
>> SRDEATH(	ZERO+6, DEATH+4, IP+1, IP+2*
>> SRDPT	ZERO+2*
>> SRDT	SPEC+1, SPEC+2, IP+1, IP+2, INOUT+1, INOUT+2
>> SRED	SET+1, SET+11, SET+12, DEATH+1*, SPEC+1, SPEC+2, IP+1, IP+2, INOUT+1, INOUT+2
>> SREMERG	ZERO+2*
>> SREND	EDATE+3*, EDATE+4, EDATE+5, SET+1, SET+12, DEATH+1
>> SREXP(	ZERO+3, DEATH+2, SPEC+1, SPEC+2*
>> SREXP("ZZ"	ZERO+4*
>> SRFLG	EDATE+6*, SET+3, SET+8, SET+12
SRHAIR	END+3!
SRHAIR(	ZERO+8*
SRHOSP	END+3!
SRICNE	END+3!, ZERO+1*
SRICNO	END+3!, ZERO+1*
SRICNR	END+3!, ZERO+1*
SRICY	END+3!, ZERO+1*
SRIDP	END+3!
>> SRIEN	SET+5
>> SRIN	ZERO+2*
>> SRINPAT	ZERO+2*
>> SRINST	EDATE+7, SET+5, SET+6, SET+7, SET+9, SET+10
SRINSTP	EDATE+7~, SET+6, SET+7*, SET+9, SET+10, SET+11, END+3!
SRINV	END+3!
SRINV("I"	ZERO+7*
SRINV("O"	ZERO+7*
SRIOSTAT	END+3!, INOUT+1, INOUT+2
>> SRIX	ZERO+2*
>> SRMAJOR	ZERO+2*
>> SRMORT	ZERO+2, SPEC+1, SPEC+2*
>> SRMULT	SET+4
>> SROPD	ZERO+2, INOUT+1, INOUT+2*
>> SRPROC	ZERO+6, IP+1, IP+2*
SRSCNE	END+3!, ZERO+1*
SRSCNO	END+3!, ZERO+1*
SRSCNR	END+3!, ZERO+1*
SRSCY	END+3!, ZERO+1*
>> SRSD	SET+1, SET+11, SET+12, DEATH+1, SPEC+1, SPEC+2, IP+1, IP+2, INOUT+1, INOUT+2
>> SRSOUT	SROQ2+6, SDATE+1, EDATE+1, IO, IO+1, END, ZERO+2
>> SRSPEC(	ZERO+3*
>> SRSS	ZERO+3, DEATH+2, SPEC+1, SPEC+2
>> SRSTART	SDATE+3*, SDATE+4, SDATE+5, EDATE+4, SET+1, SET+12, DEATH+1
>> SRSTATN	SET+5, SET+7, SET+9, SET+10
SRTN	SET+11, END+3!, CASE+1, SPEC+1, IP+1, INOUT+1
SRTONE	END+3!, ZERO+1*
SRTONO	END+3!, ZERO+1*
SRTOV	END+3!, ZERO+1*
SRVER	END+3!
>> SRWC	ZERO+2*
SRXX	SET+2~*, SET+5, SET+7, SET+9
>> SRYR	SET+12*
U	EDATE+7
>> X	SDATE+1, SDATE+2, EDATE+1, EDATE+2, END*
>> Y	SDATE+3, SDATE+5, EDATE+3, SET+12, SPEC+1, IP+1, INOUT+1*
>> ZTDESC	IO+1*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	IO+1*
>> ZTSAVE("SREND"	IO+1*
>> ZTSAVE("SRFLG"	IO+1*
>> ZTSAVE("SRINSTP"	IO+1*
>> ZTSAVE("SRSTART"	IO+1*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SROQ2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: