Routine: SR62UTL

Package	Total	Call Graph
Surgery	3	(ADM,RS)^SROQ0A EN^SROQT $$SITE^SROVAR
VA Fileman	2	^DIK $$GET1^DIQ
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Registration	1	DEM^VADPT

Entry Points

External References

Name	Field # of Occurrence
^%ZTLOAD	POST
^DIK	DIK
$$GET1^DIQ	EN1+2
ADM^SROQ0A	ASSESS+2
RS^SROQ0A	ASSESS+1
EN^SROQT	QR+2
$$SITE^SROVAR	EN1
DEM^VADPT	EN1+4
^XMD	SEND+5, SEND+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	PRE+2, PRE+3, PRE+4
^DPT - [#2]	EXCLUDE+1
^ICPT - [#81]	EXCLUDE+6
^SRF - [#130]	TSK+2, TSK+3, TSK+4, EN1+2, EN1+3, EN1+4, EXCLUDE, EXCLUDE+2, EXCLUDE+3, EXCLUDE+4 , EXCLUDE+6, EXCLUDE+8, ASSESS, ASSESS+1, ASSESS+2, OCC+1, OCC+2, AQ+1
^SRF("AC"	TSK+1
^SRF("AQ"	AQ+1*
^SRO(133 - [#133]	QR+1*
^TMP("SR62"	TSK!, TSK+4*, EN1+1, SEND+10!
^TMP("SRAN"	OCC+9*, SEND+10!
^TMP("SRAY"	OCC+8*, SEND+10!
^XMB("NETNAME"	SEND+1, SEND+2, SEND+3, SEND+6, SEND+7

Label References

Name	Line Occurrences
AQ	TSK+3
AQDT	AQ+1
ASSESS	EN1+5
DIK	PRE+3
EXCLUDE	EN1+6
SEND	EN1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	EXCLUDE+6*
CPT	EXCLUDE+5!, SEND+10!
CPT(	EXCLUDE+5, EXCLUDE+6
CPT(1	EXCLUDE+7
CPT(10	EXCLUDE+7
CPT(2	EXCLUDE+7
CPT(3	EXCLUDE+7
CPT(4	EXCLUDE+7
CPT(5	EXCLUDE+7
CPT(6	EXCLUDE+7
CPT(7	EXCLUDE+7
CPT(8	EXCLUDE+7
CPT(9	EXCLUDE+7
DA	DIK!*
DA(1	DIK*
>> DATE	EXCLUDE+4*
DFN	EN1+4*, EXCLUDE+1, SEND+10!
DIK	DIK!*
I	EN1+4~, SEND+5~, SEND+9~
>> ISC	SEND+1*, SEND+3, SEND+4, SEND+7, SEND+8
>> NAME	SEND+1*
>> OPS	EXCLUDE+6*
SITE	EN1*, OCC+8, OCC+9, SEND+2, SEND+6, SEND+10!
SR14	SEND+10!
SRA	TSK~, TSK+3*
SRADMIT	ASSESS+2*, OCC+8, OCC+9, SEND+10!
SRADMT	ASSESS+2*, SEND+10!
>> SRAGE	EXCLUDE+4*, OCC+9
>> SRASA	ASSESS*, OCC+8, OCC+9
SRATT	ASSESS+1, SEND+10!
SRATTEND	ASSESS+1*, OCC+8, OCC+9, SEND+10!
SRCAR	SEND+10!
SRCNS	SEND+10!
SRCPT	EXCLUDE+7*, OCC+9, SEND+10!
SRCREATE	TSK~, TSK+3*
SRDA	SEND+10!
SRDAY	AQDT+1~, AQDT+2*
SRDEATH	EXCLUDE+1*, OCC+9, SEND+10!
SRDFN	SEND+10!
SRDIV	EN1+2*, OCC+8, OCC+9, SEND+10!
SRDTHUR	EXCLUDE+2*, OCC+9, SEND+10!
>> SREND	QR+2*
>> SRFLG	QR+2*
>> SRIOFLAG	OCC+1*, OCC+4, OCC+5, OCC+6, OCC+7
SRK	OCC, OCC+3, SEND+10!
SRM	PRE+1~, PRE+2*, PRE+3, PRE+4, DIK
SRMAJMIN	EXCLUDE*, OCC+9, SEND+10!
SRMQ	PRE+1~, PRE+3, PRE+4, DIK
SRN	EN1, OCC+9, SEND+10!
SRNODE	EN1+3*, EN1+5, EN1+6, OCC+8, OCC+9, SEND+10!
SROC	SEND+10!
SROC(	OCC, OCC+1, OCC+2*, OCC+3
>> SROCTYPE	OCC+3, OCC+4, OCC+5, OCC+6, OCC+7*, OCC+8, OCC+9
SRPO	OCC+1, OCC+2, SEND+10!
>> SRPOFLAG	OCC+2*, OCC+4, OCC+5, OCC+6, OCC+7
>> SRQM	PRE+4*
SRQOP	PRE+1~, PRE+2*, PRE+3
SRQTR	AQDT+1~, AQDT+2*, AQDT+3
SRRES	SEND+10!
SRSDATE	TSK~, TSK+1*, SEND+10!, AQDT+2
>> SRSTART	QR+2*
SRSTATUS	TSK~, TSK+3, TSK+4, EXCLUDE+3, OCC+9
SRSUB	OCC+1, OCC+2, SEND+10!
>> SRT	QR+2*
SRTD	AQ+1~, AQDT+3*
SRTDT	SEND+10!
SRTEMP	SEND+10!
SRTMP	OCC+3*, OCC+8, OCC+9, SEND+10!
SRTN	TSK~, TSK+1, TSK+2, TSK+3, TSK+4, EN1+1, EN1+2, EN1+3, EN1+4, EXCLUDE , EXCLUDE+2, EXCLUDE+3, EXCLUDE+4, EXCLUDE+6, EXCLUDE+8, ASSESS, ASSESS+1, ASSESS+2, OCC+1, OCC+2 , OCC+8, OCC+9, SEND+10!, AQ+1
SRTYPE	TSK~, TSK+3*
>> SRWOUND	EXCLUDE+8*, OCC+9
SRY	EN1, OCC+8, SEND+10!
SRYR	AQDT+1~, AQDT+2*, AQDT+3
SRZ	EXCLUDE+5*, SEND+10!
SRZZ	SEND+10!
U	EXCLUDE, EXCLUDE+1, EXCLUDE+2, EXCLUDE+3, ASSESS, ASSESS+1, ASSESS+2, OCC+1, OCC+2
>> VADM(3	EXCLUDE+4
>> X	QR+1, EXCLUDE+6
>> XMDUZ	SEND+2, SEND+6
>> XMSUB	SEND+2, SEND+6
>> XMTEXT	SEND+5, SEND+9
>> XMY("G.RISK A	SSESSMENT@" , SEND+3, SEND+7
>> XMY("G.SRCOSERV@ISC-CHICAGO.VA.GOV"	SEND+4, SEND+8
>> ZTDESC	POST*
>> ZTDTH	POST*
>> ZTIO	POST*
>> ZTREQ	SEND+11*
>> ZTRTN	POST*

Customize PDF page

Package: Surgery

Routine: SR62UTL

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRE	; pre-install process for SR362
AQ	; set ready to transmit field to ready
QR	; queue quarterly report for first quarter of FY97
TSK
AQDT	; get quarterly transmission date for this case
DIK
OCC
SEND	; send message to G.SRCOSERV RISK at Hines ISC
ASSESS
EN1
EXCLUDE
POST