Routine: SR95UTL

Package	Total	Call Graph
VA FileMan	5	(C,NOW)^%DTC (,ENALL)^DIK $$GET1^DIQ EN^DIQ1 EN^DIU2
Kernel	2	^%ZTLOAD MES^XPDUTL
Registration	2	RPC^DGPTFAPI (DEM,IN5,INP)^VADPT
Surgery	2	$$SITE^SROUTL0 $$SITE^SROVAR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; pre-install action for SR395 ; add new entried to file 136.5
LETR	; add text of 30-day letter to file 133
CLEAN	; delete file 132.8 if test site
EN1	; ASA Class conversion from set of codes to file
MSG	; send mail message notification that conversion is completed
QR	; transmit quarterly reports for FY2000
TSK
POST	; post-install action for SR395
TN1	; transmit historical data
END
STUFF	; stuff entries into ^TMP("SRA"
DSCHG	; find discharge date
NODS
TMSG	; create mail message to Denver
DAY30	;;

External References

Name	Field # of Occurrence
C^%DTC	DSCHG+2
NOW^%DTC	QR+1, POST+1
^%ZTLOAD	TSK, POST+1, POST+5, POST+6
RPC^DGPTFAPI	STUFF+6
^DIK	PRE+19
ENALL^DIK	PRE+24
$$GET1^DIQ	STUFF+12
EN^DIQ1	STUFF+3
EN^DIU2	CLEAN+1
$$SITE^SROUTL0	STUFF+12
$$SITE^SROVAR	TN1+1
DEM^VADPT	STUFF+1
IN5^VADPT	DSCHG+1, DSCHG+2
INP^VADPT	STUFF+5
^XMD	MSG+4, TMSG+5
MES^XPDUTL	POST+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(139.2 - [#139.2]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	DSCHG+2
^SRF - [#130]	EN1+1, EN1+8*, STUFF+1, DSCHG+2
^SRF("ARS"	TN1+2
^SRO(132.8 - [#132.8]	CLEAN+1
^SRO(133 - [#133]	LETR+1, LETR+2, LETR+3, STUFF+12
^SRO(136.5 - [#136.5]	PRE+2, PRE+3, PRE+4, PRE+5, PRE+6, PRE+7, PRE+8, PRE+9, PRE+10, PRE+11 , PRE+12, PRE+13, PRE+14, PRE+15, PRE+16*
^SRO(139.2 - [#139.2]	PRE+18, PRE+20, PRE+21, PRE+22, PRE+23
^TMP("SRA"	TN1+1!, TN1+2, TN1+3, END!, STUFF+15, STUFF+16*
^XMB("NETNAME"	POST+4, TMSG+1, TMSG+2, TMSG+4

Label References

Name	Line Occurrences
DSCHG	STUFF+4
END	TN1+4
NODS	DSCHG+2
STUFF	TN1+3
TMSG	TN1+5
TSK	QR+2, QR+3, QR+4, QR+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QR+1, POST+1
DA	PRE+19, PRE+24!, END!, STUFF+3!
DFN	END!, STUFF+1*, DSCHG+2
DIC	STUFF+3!*
DIK	PRE+19, PRE+24!
DIK(1	PRE+24*
DIQ	STUFF+3!*
DIQ(0	STUFF+3*
>> DIU	CLEAN+1*
>> DIU(0	CLEAN+1*
DR	STUFF+3!*
DT	QR+5
DUZ	MSG+1, TMSG+4
I	LETR+1~, LETR+3, MSG+4~, END!, STUFF+9, STUFF+10, TMSG+5~
ISC	END!, TMSG+1*, TMSG+2, TMSG+3
NAME	END!, TMSG+1*
SR	END!, STUFF+1*
>> SR24	DSCHG+2*
SRA	END!
SRA(208	STUFF+1*, STUFF+3, STUFF+4
SRACE	END!, STUFF+3*, STUFF+15
SRACNT	TN1+1, TN1+4, END!, STUFF+15, STUFF+16*
SRADFN	TN1+2*, END!
SRASA	EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9!
SRASITE	TN1+1*, END!, STUFF+12, STUFF+15, STUFF+16, TMSG+4
SRD	POST+4~, END!, TMSG+4
SRDISTYP	STUFF+2~, STUFF+14*, STUFF+16
SRDIV	LETR+1~, LETR+2, LETR+3, STUFF+12
>> SRDT	DSCHG+2*
>> SREND	QR+2, QR+3, QR+4, QR+5
>> SRFLG	QR+1*
SRICD9	STUFF+2~, STUFF+8, STUFF+9, STUFF+10, STUFF+11, STUFF+16
SRLINE	LETR+1~, LETR+3*
SRNEW	EN1+1, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9!
SRNOW	QR+1, TSK, POST+1, POST+5, POST+6, POST+7!
>> SRP(3	STUFF+12*, STUFF+15
SRPICD9	STUFF+2~, STUFF+7*, STUFF+15
SRPTF	STUFF+2~, STUFF+5*, STUFF+6
SRRES	STUFF+2~, STUFF+6*
SRRES(1	STUFF+7, STUFF+13
SRRES(2	STUFF+8, STUFF+9
SRSDATE	END!, STUFF+1*, STUFF+15, DSCHG+1, DSCHG+2
>> SRSTART	QR+2, QR+3, QR+4, QR+5
>> SRT	QR+1*
SRTN	EN1+1, EN1+8, EN1+9!, TN1+2, TN1+3*, END!, STUFF+1, STUFF+12, STUFF+15, STUFF+16 , DSCHG+2
>> SRTXT(1	MSG+2*
SRX	STUFF+2~, STUFF+3*
SRY	STUFF+2~
SRY(10	STUFF+3
U	STUFF+7, STUFF+13
VA	END!
VA("PID"	STUFF+15
>> VADM(8	STUFF+3
>> VAIN(10	STUFF+5
VAINDT	STUFF+2~, STUFF+4*
>> VAIP("D"	DSCHG+1, DSCHG+2
>> VAIP(13	DSCHG+2
>> VAIP(17	DSCHG+3
X	LETR+1~, LETR+3, END!, STUFF+2~, STUFF+4, STUFF+9, STUFF+10, STUFF+11, STUFF+12, STUFF+13* , STUFF+14, DSCHG+2, DSCHG+3, NODS
>> X1	DSCHG+2*
>> X2	DSCHG+2*
>> XMDUZ	MSG+3, TMSG+4
XMSUB	MSG+1, END!, TMSG+4
XMTEXT	MSG+3, END!, TMSG+5
>> XMY(	MSG+1*
>> XMY("G.CARDIA	C RISK ASSESSMENTS@DENVER.DOMAIN.EXT" , TMSG+3*
>> XMY("G.RISK A	SSESSMENT@" , TMSG+2*
>> XMY("G.SRCARDIAC@ISC-CHICAGO.DOMAIN.EXT"	TMSG+3*
>> ZTDESC	TSK, POST+1, POST+5, POST+6
>> ZTDTH	TSK, POST+1, POST+5, POST+6
>> ZTIO	TSK, POST+1, POST+5, POST+6
>> ZTREQ	MSG+4, QR+6, END*
>> ZTRTN	TSK, POST+1, POST+5, POST+6
>> ZTSAVE("SREND"	TSK*
>> ZTSAVE("SRFLG"	TSK*
>> ZTSAVE("SRSTART"	TSK*
>> ZTSAVE("SRT"	TSK*

Marked Items

Name	Field # of Occurrence
$T(DAY30+I	LETR+3

Customize PDF page

Package: Surgery

Routine: SR95UTL

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items