Routine: XUVPS

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ($$DEFDIR,CLOSE,OPEN)^%ZISH ^%ZTLOAD $$NOW^XLFDT LOOP^XUVPS
VA FileMan	5	DD^%DT NOW^%DTC ^DIC FILE^DID ^DIR

Package	Total	Caller Graph
Kernel	2	XU PACKAGE SIZE REPORT XUVPS

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;;
ALL	;
SORT	;
DEVICE	;
LOOP	;
DISALL	; ; display option 4 has no formatting, and is used for creating ; spreadsheets, for which the following heading lines are not needed
DAD	;
PDAD(XUVPSORT,DATA,D1,D2,D3)	; print actual data (finally)
SELPKG	;
QUIT	;
PRINT(Y)	;
ROUTINE(PKGPFX,TLCNT)	; Returns total of all characters in all routines, including line feeds on each line of each routine ; Input - PKGPFX : Prefix for routine in package ; - TLCNT : Sum of routine sizes in package
PROTOCOL(PKGPFX,PKGIEN)	; ;;TO DO: GTS - REMOVE NOTE UNIT TESTED
REMPROC(PKGPFX)	;;TO DO: GTS - REMOVE NOTE UNIT TESTED
OPTION(PKGPFX)	;;TO DO: GTS - REMOVE NOTE UNIT TESTED
LPVAR(PKGIEN,PKGNAME,CLASS)	;Set Package Name and Class for loop ; Input: PKGIEN - Package file 9.4 IEN
CHKHOST()	;Function to prompt user - indicate host file need
SELFILE(FILENME,STORPATH)	; Select Filename and Directory location
FILABORT(CRTHOST,FILENME,STORPATH)	;Host file selected but File name and path not entered
RSIZE(RTN)	; Compute routine size (# characters plus line feeds) [^%ZOSF("SIZE") algorithm]
RLOAD(PKGPFX)	; Load a routine into ^XTMP("XUVPS") for parsing

External References

Name	Field # of Occurrence
DD^%DT	PRINT+29
NOW^%DTC	PRINT+29
^%ZIS	DEVICE+18
HOME^%ZIS	DEVICE+18
$$DEFDIR^%ZISH	SELFILE+5, SELFILE+16
CLOSE^%ZISH	DAD+16
OPEN^%ZISH	DAD+8
^%ZTLOAD	DEVICE+12, DEVICE+22
^DIC	SELPKG+2
FILE^DID	LOOP+12
^DIR	ALL+4, SORT+10, CHKHOST+10, SELFILE+12, SELFILE+23, FILABORT+10
$$NOW^XLFDT	SELFILE+20
LOOP^XUVPS	DEVICE+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUZ must be defined." Line Location: INIT+14
Function Call: WRITE	Prompt: !!,"VistA Package Sizing Report",! Line Location: ALL+1
Function Call: WRITE	Prompt: !!,"It will take a considerable amount of time to run this report for ALL",!,"PACKAGES as you have requested. Therefore it is highly recommended that",!,"you QUEUE this report. The report can be queued to run NOW and queuing " Line Location: DEVICE+16
Function Call: WRITE	Prompt: "this",!,"report will free up your terminal, allowing you to continue working while",!,"this report runs." Line Location: DEVICE+17
Function Call: WRITE	Prompt: ! Line Location: DEVICE+18
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED." Line Location: DEVICE+18
Function Call: WRITE	Prompt: !!,"Display ",$S($D(ZTSK)#2:"Queued.",1:"Aborted.") Line Location: DEVICE+22
Function Call: WRITE	Prompt: !!,"ERROR: "_FILENME_" file creation in "_STORPATH_" FAILED!!" Line Location: DAD+20
Function Call: WRITE	Prompt: !," >>Check path and filename.<<" Line Location: DAD+21
Function Call: WRITE	Prompt: !,DATANDE Line Location: PDAD+6
Function Call: WRITE	Prompt: !,D1,?31,$J(D3,6)," ",$J(D4,9)," ",$J(D5,4)," ",$J(D6,6)," ",$J(D7,6)," ",$J(D8,6)," ",$J(D9,6) Line Location: PDAD+10
Function Call: WRITE	Prompt: !,"(",D2,")",!,"--------------------------------------------------------------------------------" Line Location: PDAD+11
Function Call: WRITE	Prompt: ! Line Location: SELPKG+2
Function Call: WRITE	Prompt: !!!!,"...working..." Line Location: SELPKG+3
Function Call: WRITE	Prompt: !!,"PREFIX not found for package selected. Unable to continue." Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"...counting...",!," ...files..." Line Location: PRINT+9
Function Call: WRITE	Prompt: !," ...routines..." Line Location: PRINT+13
Function Call: WRITE	Prompt: !," ...options..." Line Location: PRINT+17
Function Call: WRITE	Prompt: !," ...remote procedures..." Line Location: PRINT+24
Function Call: WRITE	Prompt: !!!,"VistA Application Sizing Information" Line Location: PRINT+28
Function Call: WRITE	Prompt: !,"Run Date: " Line Location: PRINT+29
Function Call: WRITE	Prompt: Y Line Location: PRINT+29
Function Call: WRITE	Prompt: !,"VistA Application: ",PKGNAME Line Location: PRINT+30
Function Call: WRITE	Prompt: !,"==========================================" Line Location: PRINT+31
Function Call: WRITE	Prompt: !,"Number of Routines: ",RTOT Line Location: PRINT+32
Function Call: WRITE	Prompt: !,"Size of Routines: ",TLCNT Line Location: PRINT+33
Function Call: WRITE	Prompt: !,"Number of Files: ",FTOT Line Location: PRINT+34
Function Call: WRITE	Prompt: !,"Number of Fields: TBD" Line Location: PRINT+35
Function Call: WRITE	Prompt: !,"Number of Options: ",OTOT Line Location: PRINT+36
Function Call: WRITE	Prompt: !,"Number of Protocols: ",PRCTOT Line Location: PRINT+37
Function Call: WRITE	Prompt: !,"Number of RPCs: ",RPTOT Line Location: PRINT+38
Function Call: WRITE	Prompt: !! Line Location: PRINT+39
Routine Call	DIC Line Location: SELPKG+2
Routine Call	DIR Line Location: ALL+4 SORT+10 CHKHOST+10 SELFILE+12 SELFILE+23 FILABORT+10
Routine Call	%ZIS Line Location: DEVICE+18
Routine Call	%ZIS Line Location: DEVICE+18

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	RLOAD+1
^%ZOSF("TEST"	ROUTINE+12, RLOAD+1
^DIC(19 - [#19]	OPTION+5, OPTION+6
^DIC(9.4 - [#9.4]	LOOP+5, LOOP+9, LOOP+11, LOOP+20, PRINT+3, PRINT+7, PRINT+11, LPVAR+6, LPVAR+7
^DIC(9.8 - [#9.8]	ROUTINE+9, ROUTINE+10
^ORD(101 - [#101]	PROTOCOL+5
^TMP("XUVPS"	LOOP+1!, LOOP+25, LOOP+27*, LOOP+28, LOOP+29, DAD+13, DAD+14, DAD+22!
^TMP("XUVPS0"	LOOP+1!, LOOP+28, LOOP+29, DAD+1, DAD+22!
^XTMP("XUVPS"	RLOAD+1*
^XWB(8994 - [#8994]	REMPROC+4, REMPROC+5

Label References

Name	Line Occurrences
$$CHKHOST	DEVICE+5
$$OPTION	LOOP+15, LOOP+23, PRINT+18, PRINT+19
$$PROTOCOL	LOOP+16, PRINT+21, PRINT+22
$$REMPROC	LOOP+17, LOOP+24, PRINT+25, PRINT+26
$$ROUTINE	LOOP+14, LOOP+22, PRINT+14, PRINT+15
$$RSIZE	ROUTINE+12
FILABORT	DEVICE+8
LPVAR	LOOP+5
PDAD	DAD+1, DAD+15
PRINT	SELPKG+3
QUIT	ALL+4, SORT+10, DEVICE+18, DEVICE+19
SELFILE	DEVICE+7
SELPKG	ALL+5

Naked Globals

Name	Field # of Occurrence
^(	LOOP+20, LOOP+28, LOOP+29, DAD+1, DAD+15, PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1!*
%ZIS("B"	DEVICE+1*
ADP	LOOP+3~, LOOP+18!, LOOP+19, LOOP+20, LOOP+21, PRINT+1~, PRINT+6, PRINT+7, PRINT+15, PRINT+19 , PRINT+22, PRINT+26
ADP(	LOOP+20, LOOP+21, LOOP+22, LOOP+23, LOOP+24, PRINT+7, PRINT+15, PRINT+19, PRINT+22, PRINT+26
CLASS	LOOP+2~, LOOP+5, LPVAR~, LPVAR+7*
CNT	ROUTINE+6~, ROUTINE+8, ROUTINE+12, ROUTINE+13, PROTOCOL+1~, PROTOCOL+2, PROTOCOL+5, PROTOCOL+6, REMPROC+1~, REMPROC+3* , REMPROC+5, REMPROC+6, OPTION+2~, OPTION+4, OPTION+6*, OPTION+7
CRTHOST	DEVICE+2~, DEVICE+3, DEVICE+5, DEVICE+6, DEVICE+8, DEVICE+15, FILABORT~, FILABORT+11
CT	RSIZE+1~, RSIZE+2*
D1	LOOP+2~, LOOP+4, LOOP+25, LOOP+26, LOOP+28, LOOP+29, DAD+1, DAD+4, DAD+13*, DAD+14 , DAD+15, PDAD~, PDAD+5, PDAD+10
D2	LOOP+2~, LOOP+4, LOOP+28, LOOP+29, DAD+1, DAD+13, DAD+14, DAD+15, PDAD~, PDAD+5 , PDAD+11
D3	LOOP+2~, LOOP+4, LOOP+26, LOOP+27, DAD+1, PDAD~, PDAD+2, PDAD+5, PDAD+7*, PDAD+10
D4	LOOP+2~, LOOP+4, LOOP+26, LOOP+27, PDAD+1~, PDAD+2, PDAD+5, PDAD+7, PDAD+10
D5	LOOP+2~, LOOP+4, LOOP+26, LOOP+27, PDAD+1~, PDAD+2, PDAD+5, PDAD+7, PDAD+10
D6	LOOP+2~, LOOP+4, LOOP+27, PDAD+1~, PDAD+5, PDAD+10
D7	LOOP+2~, LOOP+26, LOOP+27, PDAD+1~, PDAD+2, PDAD+5, PDAD+7*, PDAD+10
D8	LOOP+2~, LOOP+25, LOOP+27, PDAD+1~, PDAD+2, PDAD+5, PDAD+7*, PDAD+10
D9	LOOP+2~, LOOP+25, PDAD+1~, PDAD+2, PDAD+5, PDAD+7*, PDAD+10
DATA	PDAD~, PDAD+2, PDAD+7
DATANDE	PDAD+1~, PDAD+4, PDAD+5, PDAD+6
>> DIC	SELPKG+1*
>> DIC("S"	SELPKG+1*
>> DIC(0	SELPKG+1*
>> DIF	RLOAD+1*
DIR	ALL+2~, SORT+1~, CHKHOST+3~, SELFILE+1~, SELFILE+3~, FILABORT+3~
DIR("?"	CHKHOST+9, SELFILE+8, SELFILE+9, SELFILE+10, SELFILE+11, SELFILE+21, SELFILE+22*
DIR("A"	ALL+3, SORT+2, CHKHOST+5, CHKHOST+6, CHKHOST+7, SELFILE+5, SELFILE+6, SELFILE+18, SELFILE+19, FILABORT+5 , FILABORT+6, FILABORT+7, FILABORT+8, FILABORT+9
DIR("B"	ALL+2, CHKHOST+8, SELFILE+7, SELFILE+20
DIR("L"	SORT+4, SORT+5, SORT+6, SORT+7, SORT+8, SORT+9
DIR(0	ALL+2, SORT+3, CHKHOST+4, SELFILE+4, SELFILE+17, FILABORT+4
>> DIROUT	SELFILE+14, SELFILE+24, SELFILE+26
>> DTOUT	SELFILE+14, SELFILE+24, SELFILE+26
>> DUOUT	SELFILE+14, SELFILE+24, SELFILE+26
DUZ	INIT+14
FILENME	DEVICE+2~, DEVICE+3, DEVICE+7, DEVICE+8, DEVICE+9, DAD+7, DAD+8, DAD+16, DAD+20, SELFILE~ , SELFILE+2, SELFILE+25, SELFILE+26, FILABORT~, FILABORT+11*
FLDTOT	LOOP+3~, LOOP+7*
FNUM	LOOP+2~, LOOP+11*, LOOP+12
FTOT	LOOP+3~, LOOP+7, LOOP+13, LOOP+27, PRINT+1~, PRINT+10, PRINT+11, PRINT+34
I	ROUTINE+6~
IO	DAD+11
IO("Q"	DEVICE+1!, DEVICE+19, DEVICE+23
IOF	DISALL+4
IOP	DEVICE+1!
LINE	RSIZE+1~, RSIZE+3*
LPPFX	ROUTINE+6~, ROUTINE+9, ROUTINE+10, ROUTINE+11, ROUTINE+12, REMPROC+1~, REMPROC+4, REMPROC+5, OPTION+2~, OPTION+5* , OPTION+6*
ORDIEN	PROTOCOL+1~, PROTOCOL+4, PROTOCOL+5
OTOT	LOOP+3~, LOOP+7, LOOP+15, LOOP+23, LOOP+27, PRINT+1~, PRINT+18, PRINT+19*, PRINT+36
PFXLN	ROUTINE+6~, ROUTINE+7, ROUTINE+10, REMPROC+1~, REMPROC+2, REMPROC+5, OPTION+2~, OPTION+3*, OPTION+6
PKGIEN	LOOP+3~, LOOP+6, LOOP+9, LOOP+11, LOOP+16, LOOP+20, PRINT+1~, PRINT+2, PRINT+3, PRINT+7 , PRINT+11, PRINT+21, PRINT+22, PROTOCOL~, PROTOCOL+5, LPVAR~, LPVAR+6, LPVAR+7
PKGNAME	LOOP+3~, LOOP+5, LOOP+6, LOOP+25, LOOP+27, PRINT+1~, PRINT+2, PRINT+30, LPVAR~, LPVAR+6*
PKGPFX	LOOP+3~, LOOP+6, LOOP+14, LOOP+15, LOOP+16, LOOP+17, LOOP+25, LOOP+27, PRINT+1~, PRINT+3 , PRINT+4, PRINT+14, PRINT+18, PRINT+21, PRINT+25, ROUTINE~, ROUTINE+7, ROUTINE+9, ROUTINE+10, PROTOCOL~ , PROTOCOL+3, REMPROC~, REMPROC+2, REMPROC+4, REMPROC+5, OPTION~, OPTION+3, OPTION+5, OPTION+6, RLOAD~ , RLOAD+1
>> POP	DEVICE+18, DAD+9
POPERR	DAD+3~, DAD+4, DAD+7, DAD+9, DAD+10, DAD+19
PRCTOT	PRINT+1~, PRINT+21, PRINT+22, PRINT+37
PTOT	LOOP+3~, LOOP+7, LOOP+16, LOOP+27
Q	PRINT+1~, PRINT+6, PRINT+7, PRINT+10, PRINT+11, PRINT+15, PRINT+19, PRINT+22, PRINT+26, PROTOCOL+1~ , PROTOCOL+3*
QA	LOOP+2~, LOOP+8, LOOP+9, LOOP+11, LOOP+19, LOOP+20, LOOP+21*, LOOP+22, LOOP+23, LOOP+24
QL	PROTOCOL+1~, PROTOCOL+3*
RPTOT	LOOP+3~, LOOP+7, LOOP+17, LOOP+24, LOOP+27, PRINT+1~, PRINT+25, PRINT+26*, PRINT+38
RSIZEVAL	RSIZE+1~, RSIZE+2*, RSIZE+5
RTN	RSIZE~
RTOT	LOOP+3~, LOOP+7, LOOP+14, LOOP+22, LOOP+27, PRINT+1~, PRINT+14, PRINT+15*, PRINT+32
S1	LOOP+2~, LOOP+4, LOOP+5
S2	LOOP+2~, LOOP+5*, LOOP+6
>> S3	DAD+1*
STORPATH	DEVICE+2~, DEVICE+3, DEVICE+7, DEVICE+8, DEVICE+9, DAD+8, DAD+20, SELFILE~, SELFILE+2, SELFILE+15* , SELFILE+16, SELFILE+18, SELFILE+22, SELFILE+26, FILABORT~, FILABORT+11*
TLCNT	LOOP+3~, LOOP+7, LOOP+14, LOOP+22, LOOP+27, PRINT+14, PRINT+15, PRINT+33, ROUTINE~, ROUTINE+12*
TSKD	DEVICE+2~, DEVICE+4, DEVICE+20, LOOP+5
VPSFAT	LOOP+3~, LOOP+10!
VPSFAT("NAME"	LOOP+13
X	INIT+16~, LOOP+28, LOOP+29, PRINT+29, ROUTINE+6~, ROUTINE+11, CHKHOST+3~, SELFILE+1~, SELFILE+3~, SELFILE+15 , SELFILE+16, FILABORT+3~, RLOAD+1
>> XCNP	RLOAD+1*
XUVPSORT	SORT+1~, SORT+10*, DEVICE+5, DEVICE+15, LOOP+28, LOOP+29, DISALL+3, DISALL+6, DAD+1, DAD+2 , DAD+15, DAD+19, PDAD~, PDAD+2, PDAD+3, PDAD+7
Y	INIT+16~, ALL+4, ALL+5, SORT+10, SELPKG+3, PRINT~, PRINT+2, PRINT+29*, ROUTINE+6~, CHKHOST+3~ , SELFILE+1~, SELFILE+3~, SELFILE+25, FILABORT+3~
Y(0	CHKHOST+11
>> ZTDESC	DEVICE+11, DEVICE+21
>> ZTIO	DEVICE+10*
>> ZTRTN	DEVICE+11, DEVICE+21
>> ZTSAVE("*"	DEVICE+12, DEVICE+22
>> ZTSK	DEVICE+13, DEVICE+22

Customize PDF page

Package: Kernel

Routine: XUVPS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: