Routine: SR93UTL

Package	Total	Call Graph
Surgery	3	^SROPRIN $$SITE^SROUTL0 $$SITE^SROVAR
VA FileMan	3	(C,NOW)^%DTC $$GET1^DIQ EN^DIQ1
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Registration	1	(ADD,DEM,IN5)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; transmit transfer sites, address & phone number
END
EN2	; transmit intubated ? (y/n) for fy2000 cases
STUFF	; stuff entries into ^TMP("SRA"
TS
MSG	; create mail message to Denver
POST	; post-install action for SR393

External References

Name	Field # of Occurrence
C^%DTC	STUFF+3
NOW^%DTC	POST+2
^%ZTLOAD	POST+2
$$GET1^DIQ	EN2+5, TS, TS+1
EN^DIQ1	TS, TS+1, TS+2
^SROPRIN	EN2+6
$$SITE^SROUTL0	EN2+5
$$SITE^SROVAR	EN1+1, EN2+1
ADD^VADPT	STUFF+1
DEM^VADPT	EN2+4, STUFF+1
IN5^VADPT	STUFF+2, STUFF+3
^XMD	EN2+14, MSG+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	STUFF+3
^SRF - [#130]	EN2+2, EN2+4, EN2+6, EN2+7, STUFF+1, STUFF+3
^SRF("AC"	EN2+2
^SRF("ARS"	EN1+2
^SRO(133 - [#133]	EN2+5
^TMP("SR93"	EN1+1!, EN1+2*, EN1+3, END!
^TMP("SRA"	EN1+1!, END!, EN2+9, EN2+15!, TS+3, TS+4, TS+5, TS+6*
^XMB("NETNAME"	EN2+10, EN2+11, EN2+13, MSG+1, MSG+2, MSG+4, POST+1

Label References

Name	Line Occurrences
END	EN1+4
MSG	EN1+5
STUFF	EN1+3
TS	STUFF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	POST+2
DA	END!, TS!, TS+1!, TS+2!*
DFN	END!, EN2+4, STUFF+1, STUFF+3
DIC	END!, TS!, TS+1!, TS+2!*
DIQ	END!, TS!, TS+1!, TS+2!*
DIQ(0	TS, TS+1, TS+2*
DR	END!, TS!, TS+1!, TS+2!*
DUZ	EN2+13, MSG+4
I	END!, EN2+3, EN2+8, EN2+14~, MSG+5~
ISC	END!, EN2+10, EN2+11, EN2+12, MSG+1, MSG+2, MSG+3
NAME	END!, EN2+10, MSG+1
>> SITE	EN2+1*, EN2+4, EN2+5, EN2+13
SR	END!, STUFF+1*
SR24	END!, STUFF+3*
>> SRA	EN2+4*
SRACNT	EN1+1, EN1+4, END!, TS+3, TS+4, TS+5, TS+6*
SRADFN	EN1+2*, END!
SRASITE	EN1+1*, END!, TS+3, TS+4, TS+5, TS+6, MSG+4
SRD	END!, EN2+13, MSG+4, POST+1~*
>> SRDIV	EN2+5*
SRDT	END!, STUFF+3*
SRFOL	END!, STUFF+2, TS+1, TS+6
SRFOLP	END!, STUFF+2, TS+1, TS+6
>> SRI	EN2+1, EN2+9
>> SROPD	EN2+1, EN2+2
SRP	EN2+3!
SRP(	EN2+3*, EN2+8
SRP(1	EN2+4*, EN2+8
SRP(2	EN2+4*
SRP(3	EN2+5*
SRP(4	EN2+4*
SRP(5	EN2+4*
SRP(6	EN2+7*
SRP(7	EN2+7*
SRREF	END!, STUFF+2, TS, TS+5
SRREFP	END!, STUFF+2, TS, TS+3
SRSDATE	END!, STUFF+1*, STUFF+2, STUFF+3, TS+3
>> SRT	EN2+6*, EN2+7
SRTECH	EN2+6!, EN2+7
>> SRTMP	EN2+8*, EN2+9
SRTN	EN1+2, EN1+3, END!, EN2+2*, EN2+4, EN2+5, EN2+6, EN2+7, STUFF+1, STUFF+3 , TS+3, TS+4, TS+5, TS+6
SRX	END!, TS+2*, TS+5
SRY	END!, TS+1!, TS+2!
SRY(405	TS, TS+1
SRY(5	TS+2
SRZ	EN2+6!
>> SRZIP	STUFF+1*, TS+5
VA	END!
VA("PID"	EN2+4, TS+3
VAIP	END!
VAIP("D"	STUFF+2, STUFF+3
VAIP(13	STUFF+3, TS
VAIP(17	TS+1
VAPA	END!
VAPA(1	TS+3
VAPA(11	STUFF+1
VAPA(2	TS+4
VAPA(3	TS+4
VAPA(4	TS+5
VAPA(5	TS+2
VAPA(6	STUFF+1
VAPA(8	TS+6
X	END!, EN2+5*, STUFF+3
>> X1	STUFF+3*
>> X2	STUFF+3*
>> XMDUZ	EN2+13, MSG+4
XMSUB	END!, EN2+13, MSG+4
XMTEXT	END!, EN2+14, MSG+5
>> XMY("G.CARDIA	C RISK ASSESSMENTS@DENVER.DOMAIN.EXT" , MSG+3*
>> XMY("G.RISK A	SSESSMENT@" , EN2+11, MSG+2
>> XMY("G.SRCARDIAC@ISC-CHICAGO.DOMAIN.EXT"	MSG+3*
>> XMY("G.SRCOSERV@ISC-CHICAGO.DOMAIN.EXT"	EN2+12*
>> ZTDESC	POST+2*
>> ZTDTH	POST+2*
>> ZTIO	POST+2*
>> ZTREQ	EN2+15*
>> ZTRTN	POST+2*

Customize PDF page

Package: Surgery

Routine: SR93UTL

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: