Routine: XTVSRFL

Information

XTVSRFL ;Bham FO/CML3{Albany FO/GTS} - VistA Package Sizing Manager; 27-JUN-2016

Package	Total	Call Graph
Toolkit	5	$$GET^XPAR (ADD,HANGCHAR,RMTPKGMG)^XTVSLAPI SCAPARY^XTVSLP $$SELPKG^XTVSLPDC ($$COUNTFLS,$$MULTX,$$PROTOCOL,$$ROUTINE,CNTR,KIDSIDX,ONERPT,PARAMIDX)^XTVSRFL1
Kernel	2	($$STATUS,CLOSE,OPEN)^%ZISH APPERROR^%ZTER
MailMan	2	^XMD $$NETNAME^XMXUTIL
VA FileMan	1	^DIR

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
Toolkit	2	XTVSLR XTVSSVR

Entry Points

Name	Comments	DBIA/ICR reference
INIT(VALMCNT,XTVPSPRM)	;;VistA Size Report entry point
ALL	; Select All or Single report
SORT	; Select Sort for All report
LOOP(DISSORT,VALMCNT)	; Loop through all entries in the Package parameters file
DISALL	; Set report into display array ; display option 4 & 5 have no formatting, and are used for creating spreadsheets, ; for which the following heading lines are not needed
DAD	; Add report lines to display array
KWIT	; QUIT Report
PDAD(DISSORT,DATA,D1,D2,D3,VALMCNT)	; print actual data (finally)
TALLYRPT(DISSORT,XTVSSILN,SELPKGNM)	; Compile component totals ; INPUT: ; DISSORT - ; 1: Sorted on PACKAGE NAME [Default] ; 2: Sorted on NUMBER of ROUTINES (Highest to Lowest) ; 3: Sorted on TOTAL ROUTINE SIZE (Highest to Lowest) ; 4: Delimited (^) Data, Sorted on PACKAGE NAME ; 5: Delimited (^) Data with PARENT PKG, Sorted by PACKAGE NAME
COMPNTCT(PKGNAME,PKGIEN,LINEITEM,DISSORT)	;Count components for package
PKGFLCK	; Check for Package File entries matching Parameter names, send report message
ONEPKG	; Select a package to report

External References

Name	Field # of Occurrence
$$STATUS^%ZISH	LOOP+8, ONEPKG+6
CLOSE^%ZISH	LOOP+12, ONEPKG+8
OPEN^%ZISH	LOOP+3, ONEPKG+3
APPERROR^%ZTER	PKGFLCK+32
^DIR	ALL+15, SORT+13
^XMD	PKGFLCK+29
$$NETNAME^XMXUTIL	TALLYRPT+62, PKGFLCK+26, PKGFLCK+31
$$GET^XPAR	ALL+2
ADD^XTVSLAPI	DISALL+4, DISALL+5, DISALL+6, DISALL+7, DISALL+8, DISALL+9, DAD+10, DAD+16, PDAD+9, PDAD+17 , PDAD+22, PDAD+23
HANGCHAR^XTVSLAPI	TALLYRPT+52
RMTPKGMG^XTVSLAPI	TALLYRPT+62
SCAPARY^XTVSLP	ONEPKG+7
$$SELPKG^XTVSLPDC	ONEPKG+12
$$COUNTFLS^XTVSRFL1	COMPNTCT+14
$$MULTX^XTVSRFL1	COMPNTCT+28
$$PROTOCOL^XTVSRFL1	COMPNTCT+36, COMPNTCT+37
$$ROUTINE^XTVSRFL1	COMPNTCT+30, COMPNTCT+31
CNTR^XTVSRFL1	COMPNTCT+33, COMPNTCT+34, COMPNTCT+39, COMPNTCT+40, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50
KIDSIDX^XTVSRFL1	LOOP+14, ONEPKG+10
ONERPT^XTVSRFL1	ONEPKG+18
PARAMIDX^XTVSRFL1	ONEPKG+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUZ must be defined." Line Location: INIT+19
Function Call: WRITE	Prompt: !!,"VistA Package Sizing Report",! Line Location: ALL+1
Function Call: WRITE	Prompt: !!,"VistA Package Not Selected!" Line Location: ONEPKG+14
Routine Call	DIR Line Location: ALL+15 SORT+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	PKGFLCK+17, PKGFLCK+28
^DIC(9.4 - [#9.4]	TALLYRPT+58, TALLYRPT+59, TALLYRPT+60, PKGFLCK+11, PKGFLCK+12, PKGFLCK+13
^TMP("XTVS-FORUM-PFXS"	DAD+23!, TALLYRPT+37, TALLYRPT+45, ONEPKG+2!, ONEPKG+20!
^TMP("XTVS-FORUM2TMP"	DAD+24!
^TMP("XTVS-FORUMPKG"	LOOP+11*, DAD+25!, TALLYRPT+32, TALLYRPT+33, TALLYRPT+52, TALLYRPT+54, PKGFLCK+6, PKGFLCK+8
^TMP("XTVS-IDX-PKG"	DAD+25!, TALLYRPT+39, TALLYRPT+40, TALLYRPT+47*, ONEPKG+2!, ONEPKG+21!
^TMP("XTVS-KIDSPFX-IDX"	DAD+24!, TALLYRPT+39, TALLYRPT+40, TALLYRPT+47, ONEPKG+20!
^TMP("XTVS-LOCAL-ERROR"	PKGFLCK+4!, PKGFLCK+17, PKGFLCK+18, PKGFLCK+19, PKGFLCK+20, PKGFLCK+21, PKGFLCK+23, PKGFLCK+34!
^TMP("XTVS-PARAM-CAP"	ONEPKG+2!, ONEPKG+21!
^TMP("XTVS-PREFIX-IDX"	DAD+23!, TALLYRPT+36*, ONEPKG+2!, ONEPKG+20!
^TMP("XTVS-VPS"	DAD+11, DAD+12, DAD+18, DAD+19, DAD+20, DAD+23!, TALLYRPT+65, TALLYRPT+66, COMPNTCT+52, COMPNTCT+55
^TMP("XTVS-VPS0"	DAD+4, DAD+24!, TALLYRPT+65, TALLYRPT+66

Label References

Name	Line Occurrences
COMPNTCT	TALLYRPT+63
KWIT	ALL+15, SORT+13
LOOP	SORT+15
ONEPKG	ALL+16
PDAD	DAD+4, DAD+13, DAD+21
PKGFLCK	LOOP+20
TALLYRPT	LOOP+17

Naked Globals

Name	Field # of Occurrence
^(	DAD+4, DAD+13, DAD+21, TALLYRPT+65, TALLYRPT+66

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDPRFX	TALLYRPT+42*, TALLYRPT+44, COMPNTCT+7~
ADP	COMPNTCT+19!, COMPNTCT+26, COMPNTCT+28, COMPNTCT+30, COMPNTCT+31, COMPNTCT+33, COMPNTCT+34, COMPNTCT+37, COMPNTCT+39, COMPNTCT+40 , COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+57!
ADP(	COMPNTCT+28*, COMPNTCT+31, COMPNTCT+34, COMPNTCT+37, COMPNTCT+40, COMPNTCT+44, COMPNTCT+47, COMPNTCT+50
APFX	COMPNTCT+7~, COMPNTCT+28*
APFXLST	COMPNTCT+7~, COMPNTCT+25*, COMPNTCT+28
D1	DAD+4, DAD+6, DAD+11, DAD+12, DAD+13, DAD+18, DAD+19, DAD+20, DAD+21, PDAD~ , PDAD+8, PDAD+17, TALLYRPT+26~, TALLYRPT+28, TALLYRPT+65, TALLYRPT+66
D10	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
D2	DAD+4, DAD+11, DAD+12, DAD+13, DAD+19, DAD+20, DAD+21, PDAD~, PDAD+8, PDAD+19 , TALLYRPT+26~, TALLYRPT+28, TALLYRPT+65, TALLYRPT+66
D3	DAD+4, PDAD~, PDAD+3, PDAD+8, PDAD+15, PDAD+21, TALLYRPT+26~, TALLYRPT+28
D4	PDAD+1~, PDAD+3, PDAD+8, PDAD+14, PDAD+15*, PDAD+21
D5	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
D6	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
D7	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
D8	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
D9	PDAD+1~, PDAD+3, PDAD+8, PDAD+13, PDAD+21
DATA	PDAD~, PDAD+3, PDAD+8, PDAD+13, PDAD+14, PDAD+15
DATANDE	PDAD+1~, PDAD+7, PDAD+8, PDAD+9, PDAD+18, PDAD+19, PDAD+20, PDAD+21, PDAD+22
DIR	ALL+3~, SORT+1~
DIR("?"	ALL+5, ALL+6, ALL+7, ALL+8, ALL+9, ALL+10, ALL+11, ALL+12, ALL+13, ALL+14
DIR("A"	ALL+4, SORT+1
DIR("B"	ALL+3*
DIR("L"	SORT+6, SORT+7, SORT+8, SORT+9, SORT+10, SORT+11, SORT+12*
DIR(0	ALL+3, SORT+2, SORT+3, SORT+4, SORT+5*
DISSORT	INIT+21~, SORT+13, SORT+15, LOOP~, LOOP+17, DISALL+3, DISALL+4, DAD+2, DAD+4, DAD+5 , DAD+8, DAD+9, DAD+13, DAD+15, DAD+21, PDAD~, PDAD+2, PDAD+6, PDAD+12, PDAD+14 , PDAD+15, TALLYRPT~, TALLYRPT+23, TALLYRPT+63, TALLYRPT+65, TALLYRPT+66, COMPNTCT~, COMPNTCT+52, COMPNTCT+53
DUZ	INIT+19, TALLYRPT+62, PKGFLCK+26, PKGFLCK+31
>> ERRTEXT	PKGFLCK+31*
EXTDIR	INIT+21~, ALL+2*, ALL+7, LOOP+3, ONEPKG+3
FFCTRSLT	TALLYRPT+27~, COMPNTCT+14*, COMPNTCT+15, COMPNTCT+16
FLDTOT	COMPNTCT+8~, COMPNTCT+12, COMPNTCT+16, COMPNTCT+52, COMPNTCT+55
FTOT	COMPNTCT+8~, COMPNTCT+12, COMPNTCT+15, COMPNTCT+52, COMPNTCT+55
IO	LOOP+6, ONEPKG+4
LINECNT	TALLYRPT+26~
LINEITEM	LOOP+8, LOOP+9, LOOP+11, TALLYRPT+26~, TALLYRPT+33, TALLYRPT+34, TALLYRPT+35, TALLYRPT+42, TALLYRPT+54, TALLYRPT+55 , TALLYRPT+63, COMPNTCT~, COMPNTCT+10, COMPNTCT+14, COMPNTCT+20, COMPNTCT+25, COMPNTCT+54, COMPNTCT+55, ONEPKG+1~, ONEPKG+6 , ONEPKG+7
>> LNNUM	LOOP+7, LOOP+10, LOOP+11
LPA	COMPNTCT+7~, COMPNTCT+31, COMPNTCT+34, COMPNTCT+37, COMPNTCT+40, COMPNTCT+44, COMPNTCT+47, COMPNTCT+50*
>> LPCNT	TALLYRPT+43*
MSGNDENM	PKGFLCK+3~, PKGFLCK+5, PKGFLCK+16, PKGFLCK+20, PKGFLCK+21
OTOT	COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+33, COMPNTCT+34, COMPNTCT+52, COMPNTCT+55
PCENUM	TALLYRPT+26~, TALLYRPT+44, COMPNTCT+7~, COMPNTCT+21, COMPNTCT+22, COMPNTCT+26, COMPNTCT+28*
PKGIEN	TALLYRPT+27~, TALLYRPT+53, TALLYRPT+58, TALLYRPT+59, TALLYRPT+60, TALLYRPT+62, TALLYRPT+63, COMPNTCT~, COMPNTCT+36, COMPNTCT+37 , PKGFLCK+3~, PKGFLCK+7, PKGFLCK+11, PKGFLCK+12, PKGFLCK+13, PKGFLCK+15
PKGNAME	TALLYRPT+26~, TALLYRPT+34, TALLYRPT+36, TALLYRPT+39, TALLYRPT+40, TALLYRPT+47, TALLYRPT+55, TALLYRPT+57, TALLYRPT+58, TALLYRPT+59 , TALLYRPT+60, TALLYRPT+62, TALLYRPT+63, COMPNTCT~, COMPNTCT+28, COMPNTCT+52, COMPNTCT+55, PKGFLCK+3~, PKGFLCK+8, PKGFLCK+10 , PKGFLCK+11, PKGFLCK+12, PKGFLCK+13, PKGFLCK+21, ONEPKG+1~, ONEPKG+12, ONEPKG+14, ONEPKG+15, ONEPKG+18
PKGPFX	TALLYRPT+26~, TALLYRPT+35, TALLYRPT+36, TALLYRPT+37, TALLYRPT+39, TALLYRPT+40, COMPNTCT+7~, COMPNTCT+10, COMPNTCT+14, COMPNTCT+30 , COMPNTCT+33, COMPNTCT+36, COMPNTCT+39, COMPNTCT+43, COMPNTCT+46, COMPNTCT+49, COMPNTCT+52, COMPNTCT+55
>> POP	LOOP+4
POPERR	LOOP+1~, LOOP+2, LOOP+4, LOOP+5
PREFIX	TALLYRPT+27~, TALLYRPT+44*, TALLYRPT+45, TALLYRPT+47
PRNTPKG	COMPNTCT+7~, COMPNTCT+54*, COMPNTCT+55
PTOT	COMPNTCT+8~, COMPNTCT+12, COMPNTCT+36, COMPNTCT+37*, COMPNTCT+52, COMPNTCT+55
RDP	COMPNTCT+19!, COMPNTCT+21, COMPNTCT+23, COMPNTCT+30, COMPNTCT+31, COMPNTCT+33, COMPNTCT+34, COMPNTCT+36, COMPNTCT+37, COMPNTCT+39 , COMPNTCT+40, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+57!
RDP(	COMPNTCT+23*
RPFX	COMPNTCT+7~, COMPNTCT+22*, COMPNTCT+23
RPFXLST	COMPNTCT+7~, COMPNTCT+20*, COMPNTCT+22
RPTOT	COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+39, COMPNTCT+40, COMPNTCT+52, COMPNTCT+55
RTOT	COMPNTCT+8~, COMPNTCT+12, COMPNTCT+30, COMPNTCT+31*, COMPNTCT+52, COMPNTCT+55
S3	DAD+1~, DAD+3, DAD+4
SELPKGNM	TALLYRPT~, TALLYRPT+62
SPCT	PDAD+1~, PDAD+20*
TLCNT	COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+30, COMPNTCT+31, COMPNTCT+52, COMPNTCT+55
TMPSUB	DAD+17, DAD+18, DAD+19, DAD+20, TALLYRPT+26~, TALLYRPT+31, TALLYRPT+32, TALLYRPT+33, TALLYRPT+51, TALLYRPT+52 , TALLYRPT+54, COMPNTCT+55, PKGFLCK+3~, PKGFLCK+5, PKGFLCK+6, PKGFLCK+8
TPLTTOT	COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+52, COMPNTCT+55
VALMCNT	INIT~, SORT+15, LOOP~, DISALL+4, DISALL+5, DISALL+6, DISALL+7, DISALL+8, DISALL+9, DAD+4 , DAD+10, DAD+13, DAD+16, DAD+21, PDAD~, PDAD+9, PDAD+17, PDAD+22, PDAD+23, ONEPKG+5* , ONEPKG+18
X	INIT+21~, TALLYRPT+65, TALLYRPT+66
XMDUZ	PKGFLCK+24~, PKGFLCK+25*
XMSUB	PKGFLCK+24~, PKGFLCK+28*
XMTEXT	PKGFLCK+24~, PKGFLCK+27*
XMY	PKGFLCK+24~
XMY(	PKGFLCK+26*
>> XMZ	PKGFLCK+30
XTCHAR	TALLYRPT+26~, TALLYRPT+51*, TALLYRPT+52
XTVPSPRM	INIT~, ALL+6, ALL+9, LOOP+3, ONEPKG+3
XTVSSILN	TALLYRPT~, TALLYRPT+24*, TALLYRPT+50, TALLYRPT+52
>> XTVSSNDR	TALLYRPT+62
Y	INIT+21~, ALL+15, ALL+16, SORT+13

Customize PDF page

Package: Toolkit