XTVSLNA1 ;BHAM/MAM/GTS - VistA Package Sizing Manager;
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() | ; 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | SETXTMP+13, SETXTMP+15, SETXTMP+17, SETXTMP+18, SETXTMP+20, SETXTMP+21, SETXTMP+24, SETXTMP+27, SETXTMP+28, SETXTMP+29 , SETXTMP+33, SETXTMP+35, SETXTMP+37, SETXTMP+42 |
| ^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+10, SETXTMP+38*, SETXTMP+44*, 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+11~ |
| DIR("A" | PKGEXT+12*, PKGEXT+13*, PKGEXT+14* |
| DIR("B" | PKGEXT+15* |
| DIR(0 | PKGEXT+16* |
| DOLRJ | LINEAGE~, LINEAGE+3, LINEAGE+4 |
| >> DTOUT | PKGEXT+19 |
| >> DUOUT | PKGEXT+19 |
| DUZ | PKGEXT+8, PKGEXT+23 |
| 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+42*, SETXTMP+44 |
| 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+7~, PKGEXT+9*, PKGEXT+10, PKGEXT+17*, PKGEXT+21*, PKGEXT+24 |
| 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+15* |
| VPEXCPT | SETXTMP+10~, SETXTMP+14*, SETXTMP+21*, SETXTMP+44 |
| VPFNUM | SETXTMP+11~, SETXTMP+36*, SETXTMP+37*, SETXTMP+38 |
| VPHIGH | SETXTMP+10~, SETXTMP+15*, SETXTMP+44 |
| VPHNUM | SETXTMP+11~, SETXTMP+29*, SETXTMP+30, SETXTMP+36* |
| >> VPIEN | SETXTMP+13, SETXTMP+15, SETXTMP+17, SETXTMP+18, SETXTMP+20, SETXTMP+21, SETXTMP+24, SETXTMP+27, SETXTMP+28, SETXTMP+29 , SETXTMP+33, SETXTMP+35, SETXTMP+37 |
| VPIEN2 | SETXTMP+11~, SETXTMP+18*, SETXTMP+21*, SETXTMP+26*, SETXTMP+27*, SETXTMP+28, SETXTMP+29, SETXTMP+34*, SETXTMP+35*, SETXTMP+37 |
| VPLNUM | SETXTMP+11~, SETXTMP+28*, SETXTMP+30, SETXTMP+36* |
| VPLOW | SETXTMP+10~, SETXTMP+15*, SETXTMP+44 |
| >> VPN | SETXTMP+44 |
| >> VPNAME | SETXTMP+38, SETXTMP+44 |
| VPNUM | SETXTMP+11~ |
| VPOTHER | SETXTMP+10~, SETXTMP+14*, SETXTMP+18*, SETXTMP+44 |
| VPPARPKG | SETXTMP+10~, SETXTMP+13*, SETXTMP+41, SETXTMP+42 |
| VPRNGE | SETXTMP+10~, SETXTMP+14*, SETXTMP+25*, SETXTMP+30*, SETXTMP+44 |
| X | PKGEXT+11~ |
| 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+7~, PKGEXT+8* |
| Y | PKGEXT+11~, PKGEXT+19 |