Routine: SROA30

Name	Field # of Occurrence
^%DT	SDATE+1, SDATE+2, EDATE+1, EDATE+2
C^%DTC	SDATE+2, EDATE+2, EN+2
^%ZIS	IO+3
^%ZISC	END+2
^%ZTLOAD	IO+4
^DIE	SROA30+3
^DIR	SROA30+2, ONE+1
^SROALET	BEG+1, BEG+3, SRTN+1
^SROASS	ONE+2
^SROSTOP	SRTN
$$DIV^SROUTL0	BEG+3
^SRSKILL	END+2
^XMD	MSG+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SROA30+2
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(X)\2),X,! Line Location: SROA30+3
Function Call: WRITE	Prompt: @IOF Line Location: ONE+0
Function Call: WRITE	Prompt: !!,"This option will allow you to reprint the 30 day follow up letters for the date",!,"that they were originally printed. When printed automatically, the letters",!,"print 25 days after the date of operation." Line Location: ONE+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: SDATE+0
Function Call: WRITE	Prompt: !,"Enter the EARLIEST date for which you want letters printed." Line Location: SDATE+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDATE+0
Function Call: WRITE	Prompt: !,"Enter the LATEST date for which you want letters printed." Line Location: EDATE+1
Function Call: WRITE	Prompt: !!,"The ENDING date must be later than the BEGINNING date. Please try again." Line Location: EDATE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: IO+0
Function Call: WRITE	Prompt: !!,"The 30 Day Letter will not print because the case selected has been cancelled.",!!,"Press <RET> to continue " Line Location: IO+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: IO+1
Function Call: WRITE	Prompt: !!,"The 30 Day Letter will not print because for the case selected,",!,"the field, TIME PATIENT OUT OF OR, has not been filled in.",!!,"Press <RET> to continue " Line Location: IO+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: IO+2
Function Call: WRITE	Prompt: !!,"The 30 Day Letter will not print because the patient has a date of death.",!!,"Press <RET> to continue " Line Location: IO+2
Function Call: WRITE	Prompt: ! Line Location: IO+3
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIE Line Location: SROA30+3
Routine Call	DIR Line Location: SROA30+2 ONE+1
Routine Call	%ZIS Line Location: IO+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	IO+2
^SRF - [#130]	IO, IO+1, MSG+1
^SRF("AC"	BEG+2, BEG+3, EN+2, SRTN+1
^XMB("NETNAME"	MSG+2

Name	Line Occurrences
ADD	MSG+3
EDATE	EDATE+1, EDATE+2
END	SROA30+2, ONE, ONE+1, ONE+2, SDATE, EDATE, IO, IO+1, IO+2, IO+3 , IO+4, BEG+1, BEG+4, EN+3
IO	ONE+2
MSG	BEG+3, SRTN+1
SDATE	SDATE+1, SDATE+2, EDATE+3
SRTN	EN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SDATE+1, SDATE+2, EDATE+1, EDATE+2
%ZIS	IO+3!*
%ZIS("A"	IO+3*
DA	SROA30+3!*
>> DFN	IO+2
DIE	SROA30+3!*
DIR	SROA30+2!, ONE+1!
DIR("?"	ONE*
DIR("A"	SROA30+2, ONE+1
DIR("B"	SROA30+2, ONE+1
DIR(0	SROA30+2, ONE+1
DR	SROA30+3!*
DT	EN+2
DTIME	SDATE, EDATE, IO, IO+1, IO+2
>> DTOUT	SROA30+2, ONE+1
>> DUOUT	SROA30+2, ONE+1
I	MSG+5*, MSG+8~
IO	BEG+1, EN+1
IO("Q"	IO+3!, IO+4!
IOF	SROA30+2, SROA30+3, ONE, END+1, END+2
IOST	END
POP	IO+3!
>> SEX	MSG+6*, MSG+7
>> SRADATE	MSG+1*, MSG+3
>> SRAMAN	ONE+3*, BEG+3, SRTN+1
SRAMSG	MSG+3!
SRAMSG(	MSG+4, MSG+5, MSG+7*
SRAMSG(1	MSG+3*
SRAMSG(2	MSG+3*
SRAMSG(3	MSG+3*
SRAMSG(4	MSG+3*
SRAMSG(5	MSG+3*
SRAMSG(6	ADD+1*
SRAMSG(7	ADD+2*
>> SRCNT	MSG+3, MSG+4, MSG+5, MSG+7, ADD+1, ADD+2
>> SREND	EDATE+2, EDATE+3, BEG+2, EN+2*
>> SRHALT	SRTN
>> SRNM	MSG+3, MSG+7
>> SRPRINT	END*, END+1
>> SRSDATE	BEG+2, BEG+3, EN+2, SRTN+1
>> SRSITE	SROA30+3
>> SRSITE("DIV"	SROA30+3
>> SRSITE("SITE"	SROA30+3
>> SRSOUT	SROA30+2, ONE, ONE+1, ONE+2, SDATE, EDATE, IO+3, IO+4, BEG+2, EN+1* , EN+2, SRTN*
>> SRSTART	SDATE+2*, EDATE+3, BEG+2
SRTN	ONE+2, IO, IO+1, IO+2, BEG+1, BEG+3, SRTN+1, MSG+1, MSG+3, END+2!
>> SRYN	EN+1*
>> STATE	MSG+4
>> VADM(1	BEG+3, SRTN+1, MSG
>> VADM(5	MSG+6
VAIN	END+2!
VAINDT	END+2!
>> VAPA(1	MSG+3
>> VAPA(2	MSG+3, ADD+1
>> VAPA(3	ADD+2
>> VAPA(4	MSG+4
>> VAPA(6	MSG+4
>> X	SROA30+3, SDATE, SDATE+1, SDATE+2, EDATE, EDATE+1, EDATE+2, IO, IO+1, IO+2 , EN+2
>> X1	SDATE+2, EDATE+2, EN+2*
>> X2	SDATE+2, EDATE+2, EN+2*
>> XMDUZ	MSG*
>> XMSUB	MSG*
>> XMTEXT	MSG+8*
>> XMY("G.RISK A	SSESSMENT@" , MSG+2*
>> Y	SROA30+3, ONE+2, SDATE+2, EDATE+2, MSG+1*
>> ZTDESC	IO+4*
>> ZTQUEUED	SRTN, END+1
>> ZTREQ	END+1*
>> ZTRTN	IO+4*
>> ZTSAVE("SR*"	IO+4*
>> ZTSTOP	END+1

Customize PDF page

Package: Surgery

Routine: SROA30

Information

Source Information

Call Graph

Call Graph Total: 13

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
SDATE
EN	; Entry point when tasked daily
END
BEG	; Entry point when manually queued
ONE
ADD	; Lines 2 and 3 of street address
SRTN
IO
MSG
EDATE