Routine: XTVSLNA1

Information

XTVSLNA1 ;BHAM/MAM/GTS - VistA Package Sizing Manager;

Name	Comments	DBIA/ICR reference
PKGEXT()	; Extract Package Data and return indication of prior existence of extract
SETXTMP	; set ^XTMP global with PACKAGE data
XTMPORD(XDOLRJ,RPT,XTSZARY)	; Read ^XTMP("XTSIZE) array and create ^TMP globals for listing/reporting ; INPUT: ; XDOLRJ - $JOB for selected Package File Extract ; RPT - Information to include on correction report ; 0: No report ; 3: Report both no files and added ranges [Default] ; XTSZARY - Create ^TMP("XTSIZE") global for XTVSSVR ; 0: Do not create global [Default] ; 1: Create global
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("XTSIZE") node ; PKGVAL - Package reporting from ^XTMP("XTSIZE") node ; RPT - >0 : 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("XTVS-FILERPT") for each file added to ranges ; INPUT : PKGVAL - Package reporting from ^XTMP("XTSIZE") node ; TYPE - FILE : File Multiple ; - HL : High/Low range fields ; - RNGUPDT : Range Multiple ; - NOLISTF : File List Multiple not defined

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