Routine: XUGOT1

Information

XUGOT1 ; BT/OAK-BP - COMPARE LOCAL/NATIONAL CHECKSUMS REPORT ;10/20/2006

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	7	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$TRIM^XLFSTR $$SUMB^XPDRSUM ($$GETSL,$$NPL2,$$PACK,$$RT,$$SL,$$XUN4)^XUGOT

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: 1

Package	Total	Caller Graph
Kernel	1	XU CHECKSUM REPORT

Entry Points

Name	Comments	DBIA/ICR reference
REPORT	;
ENT	;
PRT
END
PG(XUN)	;
HEADER	;
CN
LSUM(RTN)	;Get the new Checksum LOCAL
NSUM(IEN)	; get national checksum
NPLIST(IEN)	; get list patches from the field #7.3
NPL(IEN)	; get list patches from Patch multiple
NPL1(IEN,SUM,LPN)	; get list patches from Patch multiple
LPLIST(SL)	; get list of patch Number from the second line
LPATCH(PLIST)	; get the last patch number of the patch list from the second line
NLPATCH(IEN)	;get national last patch name
TRACK(IEN)	; get national information

External References

Name	Field # of Occurrence
^%ZIS	REPORT+4
^%ZISC	REPORT+4, REPORT+9, END
^%ZTLOAD	REPORT+9
$$FMTE^XLFDT	PG+1
$$TRIM^XLFSTR	NPLIST+5, LPLIST+4
$$SUMB^XPDRSUM	LSUM+4
$$GETSL^XUGOT	ENT+16
$$NPL2^XUGOT	ENT+23
$$PACK^XUGOT	ENT+22
$$RT^XUGOT	ENT+41
$$SL^XUGOT	ENT+43, ENT+46, ENT+47, ENT+57, ENT+58
$$XUN4^XUGOT	ENT+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> This processing will take about thirty minutes." Line Location: REPORT+1
Function Call: WRITE	Prompt: !," It will save your time if you send this report" Line Location: REPORT+2
Function Call: WRITE	Prompt: !," to a printer.",! Line Location: REPORT+3
Function Call: WRITE	Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued" Line Location: REPORT+10
Function Call: WRITE	Prompt: !,$$PG(Y4) Line Location: PRT+3
Function Call: WRITE	Prompt: !,"ROUTINE FILE TOTAL ENTRIES COUNT (",CKRTP(1),")",! Line Location: PRT+6
Function Call: WRITE	Prompt: !,"ROUTINES NOT FOUND IN THE SYSTEM (",CKRTP(2),")" Line Location: PRT+7
Function Call: WRITE	Prompt: ! Line Location: PRT+7
Function Call: WRITE	Prompt: !,"ROUTINES NOT MARKED FOR TRACKING (",CKRTP(3),")",! Line Location: PRT+8
Function Call: WRITE	Prompt: !,"ROUTINES WITH MATCHING CHECKSUMS (",CKRTP(4),")",! Line Location: PRT+9
Function Call: WRITE	Prompt: "ROUTINES MARKED FOR LOCAL TRACKING (",CKRTP(5),")",! Line Location: PRT+10
Function Call: WRITE	Prompt: !,"ROUTINES WITH THE CHECKSUM OFF(",CKRTP(6),")" Line Location: PRT+11
Function Call: WRITE	Prompt: ! Line Location: PRT+11
Function Call: WRITE	Prompt: !,"ROUTINES WITH VERSION OFF(",CKRTP(7),")" Line Location: PRT+12
Function Call: WRITE	Prompt: ! Line Location: PRT+12
Function Call: WRITE	Prompt: !,"ROUTINES WITH MORE THAN 8 CHARACTERS NAME(",CKRTP(8),")" Line Location: PRT+13
Function Call: WRITE	Prompt: ! Line Location: PRT+13
Function Call: WRITE	Prompt: !,"ROUTINES WITH NO PACKAGE ASSOCIATED WITH(",CKRTP(9),")" Line Location: PRT+14
Function Call: WRITE	Prompt: ! Line Location: PRT+14
Function Call: WRITE	Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),! Line Location: PRT+19
Function Call: WRITE	Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),?35,$E($P(Y3,"^",3),1,11),?48,$P(Y3,"^",4),?57,$E($P(Y3,"^",5),1,23),! Line Location: PRT+20
Function Call: WRITE	Prompt: " ",RTN,?11,$P(Y3,"^",1),?24,$P(Y3,"^",2),?37,$P(Y3,"^",3),! Line Location: PRT+21
Function Call: WRITE	Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),! Line Location: PRT+22
Function Call: WRITE	Prompt: " ",RTN,! Line Location: PRT+23
Function Call: WRITE	Prompt: " ",RTN,! Line Location: PRT+24
Function Call: WRITE	Prompt: #,$$FMTE^XLFDT(DT),?(IOM\2),"Page: ",XUN,!! Line Location: PG+1
Function Call: WRITE	Prompt: HDR1,! Line Location: HEADER+8
Function Call: WRITE	Prompt: HDR2,! Line Location: HEADER+9
Function Call: READ	Prompt: "Enter RETURN to continue or '^' to exit: " Variable: ST Timeout: 60 Line Location: HEADER+12
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+12
Function Call: WRITE	Prompt: $$PG(Y4) Line Location: CN+0
Routine Call	%ZIS Line Location: REPORT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	LSUM+3
^%ZOSF("TEST"	ENT+14
^DIC(9.8 - [#9.8]	ENT+5, ENT+6, ENT+7, NSUM+3, NPLIST+3, NPL+1, NPL+3, NPL+5, NPL1+1, NPL1+3 , NPL1+5, NLPATCH+3, NLPATCH+4, TRACK+2
^TMP($J	ENT+1!, ENT+10, ENT+14, ENT+17, ENT+19, ENT+35, ENT+36, ENT+37, ENT+43, ENT+52* , ENT+63, ENT+65, PRT+16, PRT+18, END!

Label References

Name	Line Occurrences
$$LPATCH	ENT+25
$$LPLIST	ENT+24, ENT+33, ENT+37, ENT+50, ENT+61
$$LSUM	ENT+17
$$NLPATCH	ENT+11, ENT+28
$$NPL1	ENT+27
$$NSUM	ENT+11
$$PG	PRT+3, CN
$$TRACK	ENT+9
%Z1	CN
CN	PRT+7, PRT+11, PRT+13, PRT+17
END	REPORT+4, REPORT+6
HEADER	PRT+7, PRT+10, PRT+11, PRT+13, CN
PRT	ENT+66

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END!
%ZIS	REPORT+4*, END!
CKRTP	ENT+2~*
CKRTP(	ENT+2*
CKRTP(1	ENT+8*, PRT+6
CKRTP(2	ENT+14, ENT+17, PRT+7
CKRTP(3	ENT+9*, PRT+8
CKRTP(4	ENT+18*, PRT+9
CKRTP(5	ENT+19*, PRT+10
CKRTP(6	ENT+35, ENT+36, ENT+37, ENT+52, ENT+63, ENT+65, PRT+11
CKRTP(8	ENT+10*, PRT+13
CKRTP(9	ENT+43*
DIF	LSUM+2~, LSUM+3*
DT	PG+1
HDR1	PRT+4~, HEADER+1, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+8
HDR2	PRT+4~, HEADER+1, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+9
IEN	NSUM~, NSUM+1, NSUM+3, NPLIST~, NPLIST+1, NPLIST+3, NPL~, NPL+1, NPL+3, NPL+5 , NPL1~, NPL1+1, NPL1+3, NPL1+5, NLPATCH~, NLPATCH+1, NLPATCH+3, NLPATCH+4, TRACK~, TRACK+2
IO	PRT+1, PRT+2
IO("Q"	REPORT+6, REPORT+11!
IO(0	PRT+1
IOC	PRT+1~*, CN
IOC1	PRT+1~*, PRT+2, CN
IOF	PRT+2, %Z1
IOM	PG+1
IOSL	CN
IOST	PRT+1
LPN	NPL1~, NPL1+6
LSUM	ENT+17~*, ENT+18, ENT+19, ENT+27, ENT+35, ENT+36, ENT+37, ENT+52, ENT+63, ENT+65
NLPATCH	ENT+11~*, ENT+14, ENT+17
NPL2	ENT+23~*, ENT+34, ENT+48, ENT+51, ENT+59, ENT+62
NSUM	ENT+11~*, ENT+12, ENT+14, ENT+17, ENT+18, ENT+19, ENT+35, ENT+36, ENT+37, ENT+52 , ENT+63, ENT+65
PLIST	LPATCH~, LPATCH+1, LPATCH+3, LPATCH+4
PLIST1	LPATCH+2~, LPATCH+3*
>> POP	REPORT+4
RPTYP	PRT+4~, PRT+5*, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11, PRT+13, PRT+16 , PRT+18, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23, HEADER+2, HEADER+3, HEADER+4, HEADER+5 , HEADER+6
RTN	ENT+6~, ENT+10, ENT+14, ENT+17, ENT+19, ENT+22, ENT+35, ENT+36, ENT+37, ENT+41 , ENT+43, ENT+52, ENT+63, ENT+65, PRT+16, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22 , PRT+23, LSUM~, LSUM+1, LSUM+3
RTNL	LSUM+2~, LSUM+4
SL	ENT+3~, ENT+16*, ENT+22, ENT+23, ENT+24, ENT+33, ENT+37, ENT+41, ENT+43, ENT+46 , ENT+47, ENT+50, ENT+57, ENT+58, ENT+61, LPLIST~, LPLIST+1, LPLIST+3
SLX	ENT+3~*, ENT+15
ST	PRT~, PRT+5, PRT+16, PRT+17, %Z1, CN
SUM	NPL1~, NPL1+6
TRACK	ENT+9~*, ENT+12, ENT+13, ENT+19
U	ENT+3*, ENT+6, ENT+7, NSUM+3
X	ENT+6~, ENT+16, LSUM+2~, LSUM+3
XCNP	LSUM+2~, LSUM+3*
XUA	ENT+21~, ENT+34, ENT+51, ENT+62, NPL1+2~, NPL1+5, NPL1+6, NLPATCH+2~, NLPATCH+3, NLPATCH+4 , NLPATCH+5, TRACK+1~, TRACK+2, TRACK+3, TRACK+4, TRACK+5, TRACK+6
XUB	NPL1+2~, NPL1+6, NPL1+8
XUC	NPL1+2~, NPL1+6, NPL1+8
XUFLP	NPL+2~, NPL+5, NPL1+2~, NPL1+5
XUI	NSUM+2~, NSUM+3, LPATCH+2~, LPATCH+3, LPATCH+4
XUIEN	ENT+5~, ENT+6, ENT+7, ENT+9, ENT+11, ENT+23, ENT+27, ENT+28, NPL+2~, NPL+3* , NPL+5, NPL1+2~, NPL1+3, NPL1+5
XUK	ENT+44~, ENT+52, ENT+53, ENT+55~, ENT+63, ENT+64
XUL1	ENT+21~
XUL2	ENT+21~, ENT+24, ENT+25, ENT+26, ENT+27, ENT+33, ENT+34, ENT+35, ENT+36, ENT+37 , ENT+38, ENT+39, ENT+40, ENT+49, ENT+50, ENT+51, ENT+60, ENT+61, ENT+62
XUL3	ENT+21~, ENT+26, ENT+35, ENT+36, ENT+37, ENT+49, ENT+50, ENT+52, ENT+60*, ENT+61 , ENT+63, ENT+65
XUL3A	ENT+46~, ENT+47, ENT+48, ENT+49, ENT+57~, ENT+58, ENT+59, ENT+60
XULM	ENT+21~, ENT+31, ENT+32, ENT+33, ENT+38, ENT+46, ENT+50, ENT+52, ENT+57, ENT+61* , ENT+63, ENT+65
XULP	NPL+2~, NPL+4, NPL+5, NPL+6, NPL1+2~, NPL1+4, NPL1+5, NPL1+6, NPL1+7
XULV	ENT+41~*, ENT+46, ENT+56, ENT+57
XUN	PG~, PG+1
XUN1	ENT+21~, ENT+27*, ENT+31, ENT+32, ENT+34, ENT+37, ENT+40, ENT+51, ENT+62
XUN2	ENT+21~, ENT+29*, ENT+33, ENT+35, ENT+37, ENT+39, ENT+40, ENT+50, ENT+61
XUN3	ENT+21~, ENT+28*, ENT+29, ENT+30, ENT+37, ENT+39, ENT+47, ENT+58
XUN4	ENT+21~, ENT+30, ENT+42, ENT+56
XUNV	ENT+41~*, ENT+42, ENT+43, ENT+45
XUP	ENT+21~, ENT+22, ENT+23, ENT+26, ENT+33, ENT+34, ENT+40, ENT+51, ENT+62
XUPC	NPL+2~, NPL+4, NPL+6, NPL+7, NPL1+2~, NPL1+4, NPL1+7, NPL1+8
XUPLIST	NPLIST+2~, NPLIST+3, NPLIST+4, NPLIST+5, LPLIST+2~, LPLIST+3, LPLIST+4, LPLIST+5
XUPN	ENT+21~, ENT+33, ENT+34, ENT+39, ENT+40, ENT+46, ENT+50, ENT+51, ENT+52, ENT+57* , ENT+61, ENT+62, ENT+63, ENT+65
XUSUM	NSUM+2~, NSUM+3, NSUM+4, NSUM+5*, NSUM+6
Y	LSUM+2~, LSUM+4*, LSUM+5
Y3	PRT+18~*, PRT+19, PRT+20, PRT+21, PRT+22
Y4	PRT~, PRT+3, CN
ZTDESC	REPORT+7~, REPORT+8*
ZTIO	REPORT+7~
ZTRTN	REPORT+7~, REPORT+8*
ZTSAVE	REPORT+7~
ZTSK	REPORT+7~, REPORT+10

Customize PDF page

Package: Kernel