XTVSLPR1 ;ALBANY FO/GTS - VistA Package Sizing Manager; 18-DEC-2018
Source file <XTVSLPR1.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 |
|---|---|---|
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XTVS-ERROR" | CHKPFX+12, CHKFILE+18, CHKFILE+30, CHKFILE+41*, CHKFILE+44*, MLTPFX+6*, MLTPFX+9, MLTPFX+16*, MLTPFX+18*, MLTPFX+23* , MLTPFX+30*, MLTPFX+33*, MLTPFX+36*, MLTPFX+47*, MLTPFX+48*, CMBARST+1*, SETFLHDR+1*, SETFLHDR+3*, SETFLHDR+5*, SETFLHDR+7* , SETFLHDR+9*, SETFLHDR+11*, SETFLHDR+13*, SETFLHDR+15*, SPLITNDE+4*, NOPKGRT+3*, NOPKGRT+8*, NOPKGRT+14*, NOPKGRT+21*, NOPKGRT+25* |
| ^TMP("XTVS-PKGEDIT" | CHKFILE+34, CHKFILE+35, MLTPFX+12, MLTPFX+38 |
| ^TMP("XTVS-PKGRPT-CMB-IDX" | INCONSCK+16!, MLTPFX+21, PKGERHDR+4*, NOPKGRT+7 |
| ^TMP("XTVS-PKGRPT-FRNG-IDX" | INCONSCK+16!, PKGERHDR+3*, NOPKGRT+6 |
| ^TMP("XTVS-PKGRPT-PFX-IDX" | INCONSCK+16!, MLTPFX+20, PKGERHDR+2* |
| Name | Line Occurrences |
|---|---|
| $$RNGCHK | CHKFILE+25 |
| $$SPLITNDE | CHKFILE+40, CHKFILE+43, MLTPFX+45, MLTPFX+46, NOPKGRT+20, NOPKGRT+23 |
| CHKFILE | FLDDATLP+15, FLDDATLP+18, FLDDATLP+21 |
| CHKPFX | INCONSCK+12, FLDDATLP+13 |
| CMBARST | CHKFILE+31, MLTPFX+10 |
| FLDDATLP | INCONSCK+15 |
| MLTPFX | CHKPFX+18, CHKPFX+19 |
| NOPKGRT | CHKFILE+33 |
| PKGERHDR | MLTPFX+20, MLTPFX+25, NOPKGRT+6, NOPKGRT+10 |
| SETFLHDR | CHKFILE+28, CMBARST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDREMPX | CHKPFX+8~, CHKPFX+11*, CHKPFX+19 |
| ADPFXIND | INCONSCK+2~, INCONSCK+5*, INCONSCK+12, INCONSCK+13*, INCONSCK+15, FLDDATLP~, FLDDATLP+13* |
| CMBARCT | CHKFILE+13~, CHKFILE+30*, CHKFILE+31, CHKFILE+33, CHKFILE+42*, CHKFILE+43, CHKFILE+44, MLTPFX+1~, MLTPFX+9*, MLTPFX+10 , MLTPFX+17*, MLTPFX+22*, MLTPFX+23, MLTPFX+24*, MLTPFX+25, MLTPFX+29*, MLTPFX+30, MLTPFX+35*, MLTPFX+36, MLTPFX+41* , MLTPFX+46, MLTPFX+48, CMBARST~, CMBARST+2*, CMBARST+3, NOPKGRT~, NOPKGRT+5*, NOPKGRT+8, NOPKGRT+9*, NOPKGRT+10 , NOPKGRT+14, NOPKGRT+15*, NOPKGRT+22*, NOPKGRT+23, NOPKGRT+25, NOPKGRT+26* |
| CMBHDR | MLTPFX+1~, MLTPFX+2*, MLTPFX+26*, MLTPFX+28 |
| DATASUB | FLDDATLP+6~, FLDDATLP+10*, FLDDATLP+11*, FLDDATLP+13, FLDDATLP+15, FLDDATLP+18, FLDDATLP+19, FLDDATLP+21, FLDDATLP+22 |
| ENDSUB | CHKFILE+12~, CHKFILE+22*, CHKFILE+25, CHKFILE+38, RNGCHK~, RNGCHK+13, RNGCHK+14, RNGCHK+15, RNGCHK+16 |
| ERRARYCT | CHKPFX+8~, CHKPFX+12*, CHKPFX+18, CHKPFX+19, CHKFILE+12~, CHKFILE+18*, CHKFILE+27*, CHKFILE+28, CHKFILE+33, CHKFILE+40 , CHKFILE+41, MLTPFX~, MLTPFX+4*, MLTPFX+5, MLTPFX+7*, MLTPFX+16, MLTPFX+18, MLTPFX+19*, MLTPFX+20, MLTPFX+33 , MLTPFX+34*, MLTPFX+45, MLTPFX+47, PKGERHDR~, PKGERHDR+7, PKGERHDR+8*, PKGERHDR+9, PKGERHDR+11*, PKGERHDR+12, PKGERHDR+13* , SETFLHDR~, SETFLHDR+1, SETFLHDR+2*, SETFLHDR+3, SETFLHDR+4*, SETFLHDR+5, SETFLHDR+6*, SETFLHDR+7, SETFLHDR+8*, SETFLHDR+9 , SETFLHDR+10*, SETFLHDR+11, SETFLHDR+12*, SETFLHDR+13, SETFLHDR+14*, SETFLHDR+15, SETFLHDR+16*, SPLITNDE~, SPLITNDE+4, SPLITNDE+5* , NOPKGRT~, NOPKGRT+3, NOPKGRT+4*, NOPKGRT+6, NOPKGRT+19*, NOPKGRT+20, NOPKGRT+21, NOPKGRT+24* |
| ERRAYRT | PKGERHDR~, PKGERHDR+2, PKGERHDR+3, PKGERHDR+4, PKGERHDR+7, PKGERHDR+9, PKGERHDR+12 |
| FILERPRT | CHKPFX+8~, CHKPFX+9*, CHKPFX+18, CHKPFX+19, MLTPFX~, MLTPFX+15, MLTPFX+37* |
| FLDSUB | FLDDATLP+6~, FLDDATLP+8*, FLDDATLP+9*, FLDDATLP+11, FLDDATLP+13, FLDDATLP+14, FLDDATLP+17, FLDDATLP+19, FLDDATLP+20, FLDDATLP+22 |
| FLEHDR | NOPKGRT+1~, NOPKGRT+2*, NOPKGRT+11*, NOPKGRT+13 |
| FLERNG | CHKFILE~, CHKFILE+16, CHKFILE+17, NOPKGRT+17 |
| FLERNGFD | FLDDATLP+6~, FLDDATLP+7*, FLDDATLP+16*, FLDDATLP+17, FLDDATLP+19*, FLDDATLP+20, FLDDATLP+22* |
| FSRC | CHKFILE~, CHKFILE+15 |
| FTYPE | CHKFILE+13~, CHKFILE+15*, CHKFILE+33, NOPKGRT~, NOPKGRT+17 |
| IDXROOT | CHKPFX+8~, CHKPFX+10*, CHKPFX+11, CHKPFX+13*, CHKPFX+14, CHKPFX+17, CHKFILE+12~, CHKFILE+19*, CHKFILE+20*, CHKFILE+21 , CHKFILE+22, CHKFILE+23, CHKFILE+36 |
| IDXRT3 | CHKPFX+16~, CHKPFX+17*, CHKPFX+18, CHKPFX+19 |
| INRNG | RNGCHK+11~, RNGCHK+12*, RNGCHK+13*, RNGCHK+14*, RNGCHK+15*, RNGCHK+16*, RNGCHK+17 |
| NDTXTCMB | CHKFILE+13~, CHKFILE+39*, CHKFILE+43, MLTPFX+43~, MLTPFX+44*, MLTPFX+46, NOPKGRT+1~, NOPKGRT+18*, NOPKGRT+23 |
| NODESUB | SPLITNDE~, SPLITNDE+4 |
| NODETXT | CHKFILE+13~, CHKFILE+38*, CHKFILE+39, CHKFILE+40*, CHKFILE+41, CHKFILE+43*, CHKFILE+44, MLTPFX+1~, MLTPFX+32*, MLTPFX+33 , MLTPFX+36, MLTPFX+40*, MLTPFX+42, MLTPFX+44, MLTPFX+45*, MLTPFX+46*, MLTPFX+47, MLTPFX+48, SPLITNDE+6*, SPLITNDE+7 , NOPKGRT+1~, NOPKGRT+17*, NOPKGRT+18, NOPKGRT+20*, NOPKGRT+21, NOPKGRT+23*, NOPKGRT+25 |
| NODETXTG | SPLITNDE+1~ |
| NODETYPE | SETFLHDR~, SETFLHDR+1, SETFLHDR+3, SETFLHDR+5, SETFLHDR+7, SETFLHDR+9, SETFLHDR+11, SETFLHDR+13, SETFLHDR+15 |
| OLDPKG | INCONSCK+2~, INCONSCK+4*, INCONSCK+10, INCONSCK+14* |
| OPFTCODE | CHKFILE+13~, CHKFILE+36*, CHKFILE+37, CHKFILE+38 |
| OPFTYPE | CHKFILE+13~, CHKFILE+37*, CHKFILE+38 |
| PARENT | CHKFILE+12~, CHKFILE+35*, CHKFILE+38, MLTPFX+1~, MLTPFX+3*, MLTPFX+38*, MLTPFX+40, PKGERHDR+10*, PKGERHDR+12 |
| >> PKGHDOUT | MLTPFX+2* |
| PKGNME | INCONSCK+2~, INCONSCK+7*, INCONSCK+10, INCONSCK+12, INCONSCK+14, INCONSCK+15, FLDDATLP~, FLDDATLP+13, FLDDATLP+15, FLDDATLP+18 , FLDDATLP+21, CHKPFX~, CHKPFX+11, CHKPFX+15, CHKPFX+18, CHKPFX+19, CHKFILE~, CHKFILE+24, CHKFILE+33, MLTPFX~ , MLTPFX+20, MLTPFX+21, MLTPFX+25, PKGERHDR~, PKGERHDR+2, PKGERHDR+3, PKGERHDR+4, PKGERHDR+9, NOPKGRT~, NOPKGRT+6 , NOPKGRT+7, NOPKGRT+10 |
| PKGPFX | CHKPFX~, CHKFILE~, CHKFILE+33, MLTPFX+12*, MLTPFX+38, PKGERHDR+1~, PKGERHDR+6*, PKGERHDR+9, NOPKGRT~ |
| PKGRPRT | CHKFILE+12~, CHKFILE+14*, CHKFILE+33, NOPKGRT~, NOPKGRT+28* |
| PKGSUB | CHKPFX+8~, CHKPFX+14*, CHKPFX+15, CHKPFX+18, CHKPFX+19, CHKFILE+12~, CHKFILE+23*, CHKFILE+24, CHKFILE+34, CHKFILE+35 , CHKFILE+38, MLTPFX~, MLTPFX+12, MLTPFX+38, MLTPFX+40 |
| PREFIX | INCONSCK+2~, INCONSCK+8*, INCONSCK+12, INCONSCK+15, FLDDATLP~, FLDDATLP+13, FLDDATLP+15, FLDDATLP+18, FLDDATLP+21, CHKPFX~ , CHKPFX+10, CHKPFX+13, CHKPFX+18, CHKPFX+19, CHKFILE+12~, CHKFILE+34*, CHKFILE+35, MLTPFX+32 |
| RNGBEG | CHKFILE+12~, CHKFILE+16*, CHKFILE+25, RNGCHK~, RNGCHK+13, RNGCHK+15, RNGCHK+16 |
| RNGEND | CHKFILE+12~, CHKFILE+17*, CHKFILE+25, RNGCHK~, RNGCHK+14, RNGCHK+15, RNGCHK+16 |
| RNGIND | CHKFILE+12~, CHKFILE+25*, CHKFILE+26 |
| SPLITPLC | SPLITNDE+1~, SPLITNDE+2*, SPLITNDE+3, SPLITNDE+6 |
| SPTEXT | SPLITNDE~, SPLITNDE+2 |
| STARTSUB | CHKFILE+12~, CHKFILE+21*, CHKFILE+25, CHKFILE+38, RNGCHK~, RNGCHK+13, RNGCHK+14, RNGCHK+15, RNGCHK+16 |
| SUBPFX | MLTPFX~, MLTPFX+40 |
| TEXT | SPLITNDE~, SPLITNDE+2, SPLITNDE+3, SPLITNDE+6 |
| TMPROOT | INCONSCK+2~, INCONSCK+3*, INCONSCK+4, INCONSCK+6*, INCONSCK+7, INCONSCK+8, INCONSCK+15, FLDDATLP~, FLDDATLP+9, FLDDATLP+11 , FLDDATLP+13, FLDDATLP+15, FLDDATLP+17, FLDDATLP+18, FLDDATLP+19, FLDDATLP+21, FLDDATLP+22, CHKPFX~, CHKPFX+18, CHKPFX+19 , CHKFILE~, CHKFILE+33, MLTPFX~, MLTPFX+20, MLTPFX+25, PKGERHDR~, PKGERHDR+6, PKGERHDR+10, NOPKGRT~, NOPKGRT+6 , NOPKGRT+10 |
| TXTSLICE | SPLITNDE+1~, SPLITNDE+3*, SPLITNDE+4 |