XTVSLNA1 ;BHAM/MAM/GTS - VistA Package Sizing Manager; 1-JUL-2016
Source file <XTVSLNA1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
PKGEXT() | ;Entry point - Package File extract (ACTION Protocol: XTVS PKG EXTRACT CREATE ACTION)
|
|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("PROD" | PKGEXT+24 |
^DIC(9.4 - [#9.4] | PKGEXT+26, PKGEXT+27, SETXTMP+13, SETXTMP+15, SETXTMP+17, SETXTMP+19, SETXTMP+20, SETXTMP+22, SETXTMP+23, SETXTMP+26 , SETXTMP+29, SETXTMP+30, SETXTMP+31, SETXTMP+35, SETXTMP+37, SETXTMP+39, SETXTMP+44 |
^TMP("XTSIZE" | XTMPORD+39, XTMPORD+69!, FAMINDEX+6, FAMINDEX+8*, LINEAGE+3, LINEAGE+4 |
^TMP("XTVS-FILERPT" | XTMPORD+21!, RPTFLADD+12, RPTFLADD+13*, RPTFLADD+23* |
^TMP("XTVS-FORUMPKG" | XTMPORD+53* |
^XTMP("XTSIZE" | PKGEXT+9, PKGEXT+22!, PKGEXT+24*, SETXTMP+40*, SETXTMP+46*, XTMPORD+29, XTMPORD+32, XTMPORD+34, FAMINDEX+4, ANCESTRY+4 |
Name | Line Occurrences |
---|---|
$$ANCESTRY | FAMINDEX+7 |
$$FLRNGCLN | XTMPORD+48 |
$$LINEAGE | XTMPORD+36 |
$$SETRNG | FLRNGCLN+36, FLRNGCLN+38 |
FAMINDEX | XTMPORD+26 |
RPTFLADD | XTMPORD+67, FLRNGCLN+16, FLRNGCLN+28, FLRNGCLN+46 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADDRNGE | FLRNGCLN+11~ |
BEGFLNM | FLRNGCLN+10~, FLRNGCLN+24*, FLRNGCLN+27, FLRNGCLN+28, FLRNGCLN+35*, FLRNGCLN+36*, FLRNGCLN+39 |
CHILDPKG | XTMPORD+27~ |
CHKLVL | LINEAGE+1~ |
DATARY | XTMPORD+24~, XTMPORD+39*, XTMPORD+43*, XTMPORD+44*, XTMPORD+49 |
DECVAL | SETRNG+3~, SETRNG+4*, SETRNG+5 |
DELTA | SETRNG+3~, SETRNG+6*, SETRNG+7*, SETRNG+8*, SETRNG+9, SETRNG+10 |
DIR | PKGEXT+10~ |
DIR("A" | PKGEXT+11*, PKGEXT+12*, PKGEXT+13* |
DIR("B" | PKGEXT+14* |
DIR(0 | PKGEXT+15* |
DOLRJ | LINEAGE~, LINEAGE+3, LINEAGE+4 |
>> DTOUT | PKGEXT+18 |
>> DUOUT | PKGEXT+18 |
DUZ | PKGEXT+7, PKGEXT+30 |
END | FLRNGCLN+11~, FLRNGCLN+42*, FLRNGCLN+43*, FLRNGCLN+44*, FLRNGCLN+45*, FLRNGCLN+46, FLRNGCLN+47, FLRNGCLN+48 |
ENDFLNM | FLRNGCLN+10~, FLRNGCLN+21*, FLRNGCLN+22, FLRNGCLN+25*, FLRNGCLN+26, FLRNGCLN+37*, FLRNGCLN+38*, FLRNGCLN+39 |
ENDFNDC | FLRNGCLN+10~, FLRNGCLN+22*, FLRNGCLN+23 |
FAMTREE | XTMPORD+24~, XTMPORD+36*, XTMPORD+38, 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+27~, XTMPORD+33*, XTMPORD+34*, XTMPORD+35, FLRNGCLN+10~, FLRNGCLN+32*, FLRNGCLN+39, FLRNGCLN+41, FLRNGCLN+42, SETRNG~ , SETRNG+4, SETRNG+9, SETRNG+10 |
FILEPCE | FLRNGCLN+10~, FLRNGCLN+31*, FLRNGCLN+32 |
FILERNG | FLRNGCLN+10~ |
FIRSTNUM | XTMPORD+27~ |
>> FLERNG | FLRNGCLN+26*, FLRNGCLN+27, FLRNGCLN+28 |
>> FLERNGE | FLRNGCLN+20*, FLRNGCLN+21, FLRNGCLN+34*, FLRNGCLN+35, FLRNGCLN+37 |
FNNEWRNG | FLRNGCLN+11~, FLRNGCLN+33*, FLRNGCLN+39*, FLRNGCLN+40 |
FNUMLNG | FLRNGCLN+11~, FLRNGCLN+41*, FLRNGCLN+43, FLRNGCLN+44, FLRNGCLN+45 |
HIGH | XTMPORD+57~, XTMPORD+61*, XTMPORD+62 |
LASTPRNT | ANCESTRY+1~, ANCESTRY+4* |
LINEITEM | XTMPORD+27~, XTMPORD+30*, XTMPORD+32*, XTMPORD+35*, XTMPORD+48*, XTMPORD+49, XTMPORD+53, XTMPORD+58, XTMPORD+60, XTMPORD+61 , FLRNGCLN~, FLRNGCLN+15, FLRNGCLN+19, FLRNGCLN+31 |
LINERNG | XTMPORD+57~, XTMPORD+58*, XTMPORD+59 |
LOW | XTMPORD+57~, XTMPORD+60*, XTMPORD+62 |
LPCNT | XTMPORD+24~, XTMPORD+38*, XTMPORD+40*, XTMPORD+41*, XTMPORD+42, FLRNGCLN+11~, FLRNGCLN+44*, 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+10~, SETXTMP+13*, SETXTMP+44*, SETXTMP+46 |
PARNTPKG | FAMINDEX+1~ |
PCENUM | FLRNGCLN+10~, FLRNGCLN+32* |
PKG | LINEAGE~, LINEAGE+3, LINEAGE+4 |
PKGVAL | XTMPORD+27~, XTMPORD+28*, XTMPORD+29*, XTMPORD+32, XTMPORD+34, XTMPORD+36, XTMPORD+48, XTMPORD+67, FAMINDEX+2~, FAMINDEX+3* , FAMINDEX+4*, FAMINDEX+6, FAMINDEX+7, FAMINDEX+8, ANCESTRY~, ANCESTRY+2, ANCESTRY+3, FLRNGCLN~, FLRNGCLN+16, FLRNGCLN+28 , FLRNGCLN+46, RPTFLADD~, RPTFLADD+12, RPTFLADD+13, RPTFLADD+23 |
PLACE | SETRNG~, SETRNG+9, SETRNG+10 |
PLCS | SETRNG+3~, SETRNG+5*, SETRNG+7 |
RANGE | FLRNGCLN+10~, FLRNGCLN+19*, FLRNGCLN+20, FLRNGCLN+24, FLRNGCLN+27*, FLRNGCLN+34, FLRNGCLN+47*, FLRNGCLN+48*, FLRNGCLN+49, RPTFLADD~ , RPTFLADD+16, RPTFLADD+18, RPTFLADD+19, RPTFLADD+20 |
RESULT | SETRNG+3~, SETRNG+9*, SETRNG+10*, SETRNG+11 |
RNGPCE | FLRNGCLN+10~, FLRNGCLN+20*, FLRNGCLN+24, FLRNGCLN+27, FLRNGCLN+34* |
RPT | XTMPORD~, XTMPORD+47*, XTMPORD+48, XTMPORD+56, FLRNGCLN~, FLRNGCLN+14*, FLRNGCLN+16, FLRNGCLN+28, FLRNGCLN+46 |
RPTARYND | RPTFLADD+11~, RPTFLADD+12*, RPTFLADD+13*, RPTFLADD+14*, RPTFLADD+23 |
RPTRNG | XTMPORD+57~, XTMPORD+62*, XTMPORD+63*, XTMPORD+64, XTMPORD+65*, XTMPORD+66*, XTMPORD+67 |
START | FLRNGCLN+11~, FLRNGCLN+42*, FLRNGCLN+46, FLRNGCLN+47, FLRNGCLN+48 |
STOPKILL | PKGEXT+6~, PKGEXT+8*, PKGEXT+9, PKGEXT+16*, PKGEXT+20*, PKGEXT+33 |
SUB | LINEAGE+1~ |
SUB( | LINEAGE+5*!, LINEAGE+7, LINEAGE+8 |
SUBLVL | LINEAGE+1~, LINEAGE+5*, LINEAGE+6*, LINEAGE+7*, LINEAGE+8 |
SUBS | XTMPORD+37!, XTMPORD+69! |
SUBS( | XTMPORD+38*, XTMPORD+41, XTMPORD+42 |
SUBSCPT | XTMPORD+24~, XTMPORD+38*, XTMPORD+42*, XTMPORD+43, 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+11~, SETXTMP+17* |
VPEXCPT | SETXTMP+10~, SETXTMP+16*, SETXTMP+23*, SETXTMP+46 |
VPFNUM | SETXTMP+11~, SETXTMP+38*, SETXTMP+39*, SETXTMP+40 |
VPHIGH | SETXTMP+10~, SETXTMP+17*, SETXTMP+46 |
VPHNUM | SETXTMP+11~, SETXTMP+31*, SETXTMP+32, SETXTMP+38* |
VPIEN | PKGEXT+6~, PKGEXT+26*, PKGEXT+27, SETXTMP+13, SETXTMP+15, SETXTMP+17, SETXTMP+19, SETXTMP+20, SETXTMP+22, SETXTMP+23 , SETXTMP+26, SETXTMP+29, SETXTMP+30, SETXTMP+31, SETXTMP+35, SETXTMP+37, SETXTMP+39 |
VPIEN2 | SETXTMP+11~, SETXTMP+20*, SETXTMP+23*, SETXTMP+28*, SETXTMP+29*, SETXTMP+30, SETXTMP+31, SETXTMP+36*, SETXTMP+37*, SETXTMP+39 |
VPLNUM | SETXTMP+11~, SETXTMP+30*, SETXTMP+32, SETXTMP+38* |
VPLOW | SETXTMP+10~, SETXTMP+17*, SETXTMP+46 |
VPN | SETXTMP+10~, SETXTMP+15*, SETXTMP+46 |
VPNAME | PKGEXT+6~, PKGEXT+26*, PKGEXT+28, PKGEXT+29*, PKGEXT+30, SETXTMP+40, SETXTMP+46 |
VPNAT | SETXTMP+10~, SETXTMP+13*, SETXTMP+14 |
VPNUM | SETXTMP+11~ |
VPOTHER | SETXTMP+10~, SETXTMP+16*, SETXTMP+20*, SETXTMP+46 |
VPPARPKG | SETXTMP+10~, SETXTMP+13*, SETXTMP+43, SETXTMP+44 |
VPRNGE | SETXTMP+10~, SETXTMP+16*, SETXTMP+27*, SETXTMP+32*, SETXTMP+46 |
X | PKGEXT+10~ |
XDOLRJ | XTMPORD~, XTMPORD+26, XTMPORD+29, XTMPORD+32, XTMPORD+34, FAMINDEX~, FAMINDEX+4, FAMINDEX+7, ANCESTRY~, ANCESTRY+4 |
XTSZARY | XTMPORD~, XTMPORD+22*, XTMPORD+51 |
XTSZNUM | XTMPORD+24~, XTMPORD+52*, XTMPORD+53 |
XTVSUNME | PKGEXT+6~, PKGEXT+7*, PKGEXT+24 |
Y | PKGEXT+10~, PKGEXT+18 |