Routine: XUGOT

Information

XUGOT ; DBA/CJS - COMPARE LOCAL/NATIONAL CHECKSUMS REPORT ;10/20/2006

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	$$FIND1^DIC UPDATE^DIE ^DIK
Kernel	2	$$TRIM^XLFSTR ARRAY^XUMF

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	2	XU CHECKSUM LOAD XUGOT1

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	; -- use MFS to get ROUTINE file from FORUM (background job)
CLEAN	; clean all entries in subfile 9.818 if $G(^DIC(9.8,RTNIEN,6))=2 (national tracking)
CLN(RTNIEN)	; clean all entries in sub-file #9.818
INPUT	; input routines' information in Routine file
SETFLD6(NAME)	;
PACK(RTN,SL)	; get package name
XUN4(XUS)	;
NPL2(IEN)	; get Package name from Patch multiple
LSLPN(SL)	; return package name from the second line (piece 3rd of the second line)
SL(SL)	; get Prefix_Package from the second line
RT(RTN)	; get Package and Version base on routine name
GETSL(RTN)	;

External References

Name	Field # of Occurrence
$$FIND1^DIC	SETFLD6+2
UPDATE^DIE	INPUT+23
^DIK	CLN+2
$$TRIM^XLFSTR	LSLPN+1
ARRAY^XUMF	LOAD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>>This processing will take about thirty minutes. Please wait..." Line Location: LOAD+1
Routine Call	DIC Line Location: SETFLD6+2
Routine Call	DIE Line Location: INPUT+23

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	GETSL+3
^%ZOSF("UPPERCASE"	SL+3
^DIC(9.4 - [#9.4]	NPL2+5, SL+3, SL+4, RT+3, RT+4, RT+6
^DIC(9.8 - [#9.8]	CLEAN+2, CLEAN+3, CLEAN+5, CLN+1, SETFLD6+4, NPL2+1, NPL2+3, NPL2+4
^TMP("XUMF ARRAY"	INPUT+3, INPUT+4, INPUT+26!
^TMP($J	GETSL+2!, GETSL+4

Label References

Name	Line Occurrences
$$LSLPN	SL+2
$$RT	PACK+2
$$SL	PACK+4
CLEAN	LOAD+2
CLN	CLEAN+5
INPUT	LOAD+4
SETFLD6	INPUT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AAA	INPUT+1~, INPUT+12*, INPUT+21
BBB	INPUT+1~, INPUT+13*, INPUT+22
CCC	INPUT+1~, INPUT+14*, INPUT+20
DA	CLN+2~*
DA(1	CLN+2*
DIF	GETSL+2~, GETSL+3*
DIK	CLN+2~*
ERROR	INPUT+1~
FDA	INPUT+1~
FDA(1	INPUT+15, INPUT+16, INPUT+18, INPUT+19, INPUT+20, INPUT+21, INPUT+22*
HFLS	INPUT+1~
HLFS	INPUT+1~, INPUT+2*, INPUT+5, INPUT+7, INPUT+9, INPUT+10, INPUT+12, INPUT+13, INPUT+14
IDX98	INPUT+1~, INPUT+2, INPUT+3, INPUT+4
IEN	NPL2~, NPL2+1, NPL2+3, NPL2+4
NAME	INPUT+1~, INPUT+5*, INPUT+6, INPUT+15, INPUT+24, SETFLD6~, SETFLD6+2
NODE	INPUT+1~, INPUT+4*, INPUT+5, INPUT+7, INPUT+9, INPUT+10, INPUT+12, INPUT+13, INPUT+14
PCK	SL+1~, SL+2, SL+4, SL+5, RT+2~, RT+6, RT+7
PCKNAME	RT+2~, RT+6, RT+7
RTN	PACK~, PACK+2, RT~, RT+1, RT+3, RT+4, GETSL~
RTNIEN	CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+5, CLN~, CLN+1, CLN+2
SL	PACK~, PACK+4, LSLPN~, LSLPN+1, SL~, SL+2
VERSION	RT+2~, RT+6, RT+7
X	INPUT+1~, SL+1~, SL+3*
XCNP	GETSL+2~, GETSL+3*
XI	CLN+1~*, CLN+2
XUA	XUN4+1~, XUN4+5, XUN4+6, NPL2+4
XUB	XUN4+1~, XUN4+6*
XUC	XUN4+1~
XUI	RT+2~, RT+3*, RT+4
XUIEN	SETFLD6+1~, SETFLD6+2, SETFLD6+3, SETFLD6+4, NPL2+2~, NPL2+3, NPL2+4, SL+1~, SL+2, SL+3 , SL+4, RT+2~, RT+3, RT+4, RT+5*, RT+6, RT+7
XUN4	XUN4+1~, XUN4+3, XUN4+4, XUN4+6, XUN4+7
XUPK	NPL2+2~, NPL2+4, NPL2+5
XUPK1	NPL2+2~, NPL2+5, NPL2+6
XUPK2	NPL2+2~, NPL2+4, NPL2+5
XUQUIT	RT+2~
XUS	PACK+1~, PACK+2, PACK+3, PACK+5, XUN4~, XUN4+2, XUN4+3, XUN4+5, XUN4+6
XUS1	PACK+1~, PACK+4
XUS2	PACK+1~, PACK+3, PACK+4*, PACK+5
XUSIEN	INPUT+1~
XUSL	GETSL+1~
XUST	SL+1~, SL+2, SL+3, RT+2~, RT+6*
XUTR	CLEAN+1~, CLEAN+3, CLEAN+4, CLEAN+5
XXX	INPUT+1~, INPUT+7*, INPUT+8
Y	SL+1~, SL+3
YYY	INPUT+1~, INPUT+9*, INPUT+18
ZZZ	INPUT+1~, INPUT+10*, INPUT+11, INPUT+19

Customize PDF page

Package: Kernel