Routine: A1VSLNA1

Package	Total	Call Graph
VA FileMan	2	$$FLDNUM^DILFD ^DIR
Kernel	1	$$NOW^XLFDT
VistA Package Sizing Utility	1	JUSTPAWS^A1VSLAPI

Package	Total	Caller Graph
VistA Package Sizing Utility	2	A1VSLAPI A1VSLN

Entry Points

Name	Comments	DBIA/ICR reference
PKGEXT()	;Entry point - Package File extract (ACTION Protocol: A1VS PKG EXTRACT CREATE ACTION)
SETXTMP	; set ^XTMP global with PACKAGE data
XTMPORD(XDOLRJ)	; Read ^XTMP("A1SIZE) array and create ^TMP globals for listing/reporting
FAMINDEX(XDOLRJ)	; Create a package family tree ^TMP global=pkg^parentpkg^grndparentpkg^etc.
ANCESTRY(PKGVAL,XDOLRJ)	; Return list of package-parent-grandparent-etc. relationships
LINEAGE(PKG,DOLRJ)	; Return a family tree subscript string
FLRNGCLN(LINEITEM,PKGVAL,RPT)	;Cleanup File Ranges received from Forum Package file ; INPUT : LINEITEM - Value of ^XTMP("A1SIZE") node ; PKGVAL - Package reporting from ^XTMP("A1SIZE") node ; RPT - 1 : Report Range additions ; 0 : Do not report Range additions
SETRNG(FILENUM,PLACE)	; Either add to or subtract a fraction from the range number ; PLACE - UPPER: Add a fraction to number ; - LOWER: Subract a fraction from number
RPTFLADD(PKGVAL,TYPE,RANGE)	; Write a node in ^TMP("A1VS-FILERPT) for each file added to ranges ; INPUT : PKGVAL - Package reporting from ^XTMP("A1SIZE") node ; TYPE - FILE : File Multiple ; - HL : High/Low range fields ; - RNGUPDT : Range Multiple ; - NOLISTF : File List Multiple not defined

Name	Field # of Occurrence
JUSTPAWS^A1VSLAPI	PKGEXT+18
$$FLDNUM^DILFD	SETXTMP+22, SETXTMP+31
^DIR	PKGEXT+16
$$NOW^XLFDT	PKGEXT+21

FileNo	Call Tags
^DIC(9.4 - [#9.4]	FLDNUM^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	PKGEXT+21
^DIC(9.4 - [#9.4]	PKGEXT+23, PKGEXT+24, SETXTMP+9, SETXTMP+11, SETXTMP+13, SETXTMP+15, SETXTMP+16, SETXTMP+18, SETXTMP+19, SETXTMP+22 , SETXTMP+25, SETXTMP+26, SETXTMP+27, SETXTMP+31, SETXTMP+33, SETXTMP+35, SETXTMP+40
^TMP("A1SIZE"	XTMPORD+27, FAMINDEX+6, FAMINDEX+8*, LINEAGE+3, LINEAGE+4
^TMP("A1VS-FILERPT"	XTMPORD+12!, RPTFLADD+12, RPTFLADD+13, RPTFLADD+23
^XTMP("A1SIZE"	PKGEXT+8, PKGEXT+21!, SETXTMP+36, SETXTMP+42*, XTMPORD+18, XTMPORD+20, XTMPORD+22, FAMINDEX+4, ANCESTRY+4

Name	Line Occurrences
$$ANCESTRY	FAMINDEX+7
$$FLRNGCLN	XTMPORD+36
$$LINEAGE	XTMPORD+24
$$SETRNG	FLRNGCLN+35, FLRNGCLN+37
FAMINDEX	XTMPORD+15
RPTFLADD	XTMPORD+50, FLRNGCLN+16, FLRNGCLN+27, FLRNGCLN+45
SETXTMP	PKGEXT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDRNGE	FLRNGCLN+11~
BEGFLNM	FLRNGCLN+10~, FLRNGCLN+23, FLRNGCLN+26, FLRNGCLN+27, FLRNGCLN+34, FLRNGCLN+35*, FLRNGCLN+38
CHILDPKG	XTMPORD+16~
CHKLVL	LINEAGE+1~
DATARY	XTMPORD+13~, XTMPORD+27, XTMPORD+31, XTMPORD+32*, XTMPORD+37
DECVAL	SETRNG+3~, SETRNG+4*, SETRNG+5
DELTA	SETRNG+3~, SETRNG+6, SETRNG+7, SETRNG+8*, SETRNG+9, SETRNG+10
DIR	PKGEXT+9~
DIR("A"	PKGEXT+10, PKGEXT+11, PKGEXT+12*
DIR("B"	PKGEXT+13*
DIR(0	PKGEXT+14*
DOLRJ	LINEAGE~, LINEAGE+3, LINEAGE+4
>> DTOUT	PKGEXT+17
>> DUOUT	PKGEXT+17
END	FLRNGCLN+11~, FLRNGCLN+41, FLRNGCLN+42, FLRNGCLN+43, FLRNGCLN+44, FLRNGCLN+45, FLRNGCLN+46, FLRNGCLN+47
ENDFLNM	FLRNGCLN+10~, FLRNGCLN+20, FLRNGCLN+21, FLRNGCLN+24, FLRNGCLN+25, FLRNGCLN+36, FLRNGCLN+37, FLRNGCLN+38
ENDFNDC	FLRNGCLN+10~, FLRNGCLN+21*, FLRNGCLN+22
FAMTREE	XTMPORD+13~, XTMPORD+24, XTMPORD+26, FAMINDEX+2~, FAMINDEX+5, FAMINDEX+7, FAMINDEX+8, ANCESTRY+1~, ANCESTRY+3, ANCESTRY+4 , ANCESTRY+6*, ANCESTRY+7, LINEAGE+1~
FILELIST	FLRNGCLN+11~, FLRNGCLN+15*, FLRNGCLN+16
FILENUM	XTMPORD+16~, XTMPORD+21, XTMPORD+22, XTMPORD+23, FLRNGCLN+10~, FLRNGCLN+31*, FLRNGCLN+38, FLRNGCLN+40, FLRNGCLN+41, SETRNG~ , SETRNG+4, SETRNG+9, SETRNG+10
FILEPCE	FLRNGCLN+10~, FLRNGCLN+30*, FLRNGCLN+31
FILERNG	FLRNGCLN+10~
FIRSTNUM	XTMPORD+16~
>> FLERNG	FLRNGCLN+25*, FLRNGCLN+26, FLRNGCLN+27
>> FLERNGE	FLRNGCLN+19, FLRNGCLN+20, FLRNGCLN+33, FLRNGCLN+34, FLRNGCLN+36
FNNEWRNG	FLRNGCLN+11~, FLRNGCLN+32, FLRNGCLN+38, FLRNGCLN+39
FNUMLNG	FLRNGCLN+11~, FLRNGCLN+40*, FLRNGCLN+42, FLRNGCLN+43, FLRNGCLN+44
HIGH	XTMPORD+40~, XTMPORD+44*, XTMPORD+45
LASTPRNT	ANCESTRY+1~, ANCESTRY+4*
LINEITEM	XTMPORD+16~, XTMPORD+19, XTMPORD+20, XTMPORD+23, XTMPORD+36, XTMPORD+37, XTMPORD+41, XTMPORD+43, XTMPORD+44, FLRNGCLN~ , FLRNGCLN+15, FLRNGCLN+18, FLRNGCLN+30
LINERNG	XTMPORD+40~, XTMPORD+41*, XTMPORD+42
LOW	XTMPORD+40~, XTMPORD+43*, XTMPORD+45
LPCNT	XTMPORD+13~, XTMPORD+26, XTMPORD+28, XTMPORD+29, XTMPORD+30, FLRNGCLN+11~, FLRNGCLN+43, SETRNG+3~, SETRNG+7*
NODEVAL	RPTFLADD+11~, RPTFLADD+15, RPTFLADD+16, RPTFLADD+18, RPTFLADD+19, RPTFLADD+20, RPTFLADD+21, RPTFLADD+23
PARENT	ANCESTRY+1~, ANCESTRY+2, ANCESTRY+4, ANCESTRY+5, ANCESTRY+6
PARNTNME	SETXTMP+7~, SETXTMP+9, SETXTMP+40, SETXTMP+42
PARNTPKG	FAMINDEX+1~
PCENUM	FLRNGCLN+10~, FLRNGCLN+31*
PKG	LINEAGE~, LINEAGE+3, LINEAGE+4
PKGVAL	XTMPORD+16~, XTMPORD+17, XTMPORD+18, XTMPORD+20, XTMPORD+22, XTMPORD+24, XTMPORD+36, XTMPORD+50, FAMINDEX+2~, FAMINDEX+3* , FAMINDEX+4*, FAMINDEX+6, FAMINDEX+7, FAMINDEX+8, ANCESTRY~, ANCESTRY+2, ANCESTRY+3, FLRNGCLN~, FLRNGCLN+16, FLRNGCLN+27 , FLRNGCLN+45, RPTFLADD~, RPTFLADD+12, RPTFLADD+13, RPTFLADD+23
PLACE	SETRNG~, SETRNG+9, SETRNG+10
PLCS	SETRNG+3~, SETRNG+5*, SETRNG+7
RANGE	FLRNGCLN+10~, FLRNGCLN+18, FLRNGCLN+19, FLRNGCLN+23, FLRNGCLN+26, FLRNGCLN+33, FLRNGCLN+46, FLRNGCLN+47, FLRNGCLN+48, RPTFLADD~ , RPTFLADD+16, RPTFLADD+18, RPTFLADD+19, RPTFLADD+20
RESULT	SETRNG+3~, SETRNG+9, SETRNG+10, SETRNG+11
RNGPCE	FLRNGCLN+10~, FLRNGCLN+19, FLRNGCLN+23, FLRNGCLN+26, FLRNGCLN+33
RPT	XTMPORD+13~, XTMPORD+35, XTMPORD+36, XTMPORD+39, FLRNGCLN~, FLRNGCLN+14, FLRNGCLN+16, FLRNGCLN+27, FLRNGCLN+45
RPTARYND	RPTFLADD+11~, RPTFLADD+12, RPTFLADD+13, RPTFLADD+14*, RPTFLADD+23
RPTRNG	XTMPORD+40~, XTMPORD+45, XTMPORD+46, XTMPORD+47, XTMPORD+48, XTMPORD+49, XTMPORD+50
START	FLRNGCLN+11~, FLRNGCLN+41*, FLRNGCLN+45, FLRNGCLN+46, FLRNGCLN+47
STOPKILL	PKGEXT+6~, PKGEXT+7, PKGEXT+8, PKGEXT+15, PKGEXT+19*, PKGEXT+27
SUB	LINEAGE+1~
SUB(	LINEAGE+5*!, LINEAGE+7, LINEAGE+8
SUBLVL	LINEAGE+1~, LINEAGE+5, LINEAGE+6, LINEAGE+7*, LINEAGE+8
SUBS	XTMPORD+25!, XTMPORD+52!
SUBS(	XTMPORD+26*, XTMPORD+29, XTMPORD+30
SUBSCPT	XTMPORD+13~, XTMPORD+26, XTMPORD+30, XTMPORD+31, LINEAGE+1~, LINEAGE+2, LINEAGE+4, LINEAGE+5, LINEAGE+6, LINEAGE+7 , LINEAGE+8*, LINEAGE+9
TYPE	RPTFLADD~, RPTFLADD+16, RPTFLADD+17, RPTFLADD+20, RPTFLADD+21
>> VP11	SETXTMP+13*
>> VPEXCPT	SETXTMP+12, SETXTMP+19, SETXTMP+42
>> VPFNUM	SETXTMP+34, SETXTMP+35, SETXTMP+36
VPHIGH	PKGEXT+26!, SETXTMP+13*, SETXTMP+42
>> VPHNUM	SETXTMP+27, SETXTMP+28, SETXTMP+34
>> VPIEN	PKGEXT+23*, PKGEXT+24, SETXTMP+9, SETXTMP+11, SETXTMP+13, SETXTMP+15, SETXTMP+16, SETXTMP+18, SETXTMP+19, SETXTMP+22 , SETXTMP+25, SETXTMP+26, SETXTMP+27, SETXTMP+31, SETXTMP+33, SETXTMP+35
>> VPIEN2	SETXTMP+16, SETXTMP+19, SETXTMP+24, SETXTMP+25, SETXTMP+26, SETXTMP+27, SETXTMP+32, SETXTMP+33, SETXTMP+35
>> VPLNUM	SETXTMP+26, SETXTMP+28, SETXTMP+34
VPLOW	PKGEXT+26!, SETXTMP+13*, SETXTMP+42
VPN	PKGEXT+26!, SETXTMP+11*, SETXTMP+42
VPNAME	PKGEXT+23*, PKGEXT+26!, SETXTMP+36, SETXTMP+42
VPNAT	PKGEXT+26!, SETXTMP+9*, SETXTMP+10
VPOTHER	PKGEXT+26!, SETXTMP+12, SETXTMP+16, SETXTMP+42
VPPARPKG	SETXTMP+7~, SETXTMP+9*, SETXTMP+39, SETXTMP+40
VPRNGE	PKGEXT+26!, SETXTMP+12, SETXTMP+23, SETXTMP+28*, SETXTMP+42
X	PKGEXT+9~
XDOLRJ	XTMPORD~, XTMPORD+15, XTMPORD+18, XTMPORD+20, XTMPORD+22, FAMINDEX~, FAMINDEX+4, FAMINDEX+7, ANCESTRY~, ANCESTRY+4
Y	PKGEXT+9~, PKGEXT+17

Customize PDF page

Package: VistA Package Sizing Utility

Routine: A1VSLNA1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: