A1VSLNA1 ;BHAM/MAM/GTS - VistA Package Sizing Manager; 1-JUL-2016
Source file <A1VSLNA1.m>
| 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 |
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | FLDNUM^DILFD |
