XTVSLPR1 ;ALBANY FO/GTS - VistA Package Sizing Manager; 18-DEC-2018
Source file <XTVSLPR1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INCONSCK | ;Check for overlaps in Forum Package file data
|
|
FLDDATLP(TMPROOT,PKGNME,PREFIX,ADPFXIND) | ;Check Fields and Data for 'ADDPFX' and 'FLERNG' Nodes
; Input: TMPROOT - Package "XTVS-PKGEDIT" array root [^TMP("XTVS-PKGEDIT",$J,PKGNME,PREFIX)] ; PKGNME - Package Name using Prefix ; PREFIX - Additional Prefix used by Package ; ADPFXIND - Indicates that prefix has been checked |
|
CHKPFX(PKGNME,PREFIX,TMPROOT,PKGPFX) | ; Check Prefix for multiple use
; Input: PKGNME - Package Name using Prefix ; PREFIX - Additional Prefix used by Package ; TMPROOT - Package "XTVS-PKGEDIT" array root [^TMP("XTVS-PKGEDIT",J,PKGNME,PREFIX)] ; PKGPFX - Package Prefix |
|
CHKFILE(PKGNME,FLERNG,TMPROOT,PKGPFX,FSRC) | ; Check File range for multiple use
; Input: PKGNME - Package Name using Prefix ; FILRNG - File Range used by Package Name ; TMPROOT - Package "XTVS-PKGEDIT" array root ; PKGPFX - Package Prefix ; FSRC - File Source ; F1 : File Range multiple ; F2 : *LOW/*HIGH fields ; F3 : File List multiple |
|
MLTPFX(TMPROOT,PKGSUB,PKGNME,SUBPFX,ERRARYCT,FILERPRT) | ; Report multiple use of prefix
|
|
PKGERHDR(TMPROOT,ERRAYRT,PKGNME,ERRARYCT) | ; Output Header info for PREFIX and FILE RANGE overlap arrays
|
|
CMBARST(CMBARCT) | ;Add Header to Combined Prefix and File Range overlap error array
|
|
SETFLHDR(NODETYPE,ERRARYCT) | ;Set File Header
|
|
SPLITNDE(TEXT,NODESUB,ERRARYCT,SPTEXT) | ;Split Error Node
|
|
NOPKGRT(TMPROOT,PKGNME,PKGPFX,FTYPE,ERRARYCT,CMBARCT,PKGRPRT) | ;Report Package for File section
|
|
RNGCHK(RNGBEG,RNGEND,STARTSUB,ENDSUB) | ;Check Package file ranges against Range index
|