XTVSLP ;ALBANY FO/GTS - VistA Package Sizing Manager; 7-JUL-2016
Source file <XTVSLP.m>
Package | Total | Call Graph |
---|---|---|
Toolkit | 9 | $$GET^XPAR ^XTVSHLP1 ($$CHKPID,$$REQLOCK,$$SELXTMP,$$UNLCKPFL,JUSTPAWS,LISTOUT,SPLITADD)^XTVSLAPI ($$BLDNUM,$$VERNUM)^XTVSLM ($$PRMFLIST,EXIT)^XTVSLP EN^XTVSLPC EN^XTVSLPDC EN^XTVSLPER SELLIST^XTVSLPR2 |
List Manager | 3 | EN^VALM (CLEAR,FULL,PAUSE)^VALM1 (CLEAN,KILL)^VALM10 |
Kernel | 2 | ($$LIST,$$STATUS,CLOSE,OPEN)^%ZISH DISP^XQORM1 |
VA FileMan | 1 | ^DIR |
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 |
---|---|---|
EN | ; -- main entry point for XTVS PKG MGR PARAM DISPLAY
|
|
HDR | ; -- header code
|
|
BUILD | ; - Build local and global display arrays
|
|
INIT | ; -- init variables and list array
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
REFRESH | ; -- refresh display
|
|
MSG(TEXT) | ; -- set default message
|
|
KILL | ; - Cleanup local and global display arrays
|
|
LOADTMP(LINEITEM) | ;Store LineItem into ^TMP global
|
|
FILNDX(FLRNGE,PKGNAME,TYPE,FSET) | ; Set File Number Index [^TMP("XTVS-FRIDX",$J)]
|
|
PFXIDX(PKGPFX,PKGNAME,PFXLST) | ;Set ^TMP("XTVS-PFXIDX",$J,<namespace prefix>,<package name>)=<list of prefixes>
|
|
SCAPARY(LINEITEM) | ; Set single line Array & caption display array for action processing
|
|
CLNTMPGB | ;Kill temporary globals
|
|
PRMFLIST(FLESRCH,PAWSOUT) | ;List parameter files for selection
|
|
SELITEM(QSTHLP1,ITEMNUM,SELARY,PARAMSTR) | ; Select Package Parameter file from SELARY
; INPUT: QSTHLP1 - Help string for 1 question mark help [Optional] ; ITEMNUM - Number of items in SELARY ; SELARY - Array of Package Parameter files ; PARAMSTR - Array of string parameters as follows: ; PARAMSTR("ADDITM") - 0: Adding item to SELARY NOT Allowed; 1: Adding unique item to SELARY Allowed 1^1: Add duplicates allowed ; PARAMSTR("DEFANS") - Only pertains to Package selection. Not Null: Last selected Package ; PARAMSTR("MAXLNG") - Maximum length of entered string [default 30, or 10 more than MINLNG when MINLNG>MAXLNG] ; PARAMSTR("MINLNG") - Minumum length of entered string [default 10] - DEV NOTE: MINLNG must be > or = #Chars in PATRN begin & end strings ; PARAMSTR("PATRN") - Pattern match definition for text [default .ANP) ; PARAMSTR("XTUPCASE") - 0: case matters, 1: All item text translated to upper case [default] |
|
PRECHK(DEFANS,X,SELARY,ITEMNUM) | ; SELITEM X value DIR("PRE") pre-check
|
|
PARMMAP | ; Map of Parameter data elements
; |
|
PKGERR | ; -- Package Parameter Errors
; -- Protocol: XTVS PKG MGR PARAM ERR DISP ACTION |
|
PARAMRPT | ; -- Package Parameter Caption list
; -- Protocol: XTVS PKG MGR PARAM DISP CAPTION ACTION |
|
PARAMAP | ; -- Display Data Map for Parameter File
; -- Protocol: XTVS PKG MGR PARAM DATA MAP HELP ACTION |
|
PARAMCMP | ; -- Package Parameter Comparison report
; -- Protocol: XTVS PKG MGR PARAM COMPARE ACTION |
Name | Field # of Occurrence |
---|---|
$$LIST^%ZISH | PRMFLIST+6 |
$$STATUS^%ZISH | BUILD+7 |
CLOSE^%ZISH | BUILD+12 |
OPEN^%ZISH | BUILD+4 |
^DIR | SELITEM+40 |
EN^VALM | EN+1 |
CLEAR^VALM1 | HELP+5, HELP+14 |
FULL^VALM1 | INIT+2, HELP+6, EXIT+4, PARAMAP+3, PARAMCMP+3 |
PAUSE^VALM1 | HELP+14 |
CLEAN^VALM10 | KILL+1 |
KILL^VALM10 | KILL+2 |
$$GET^XPAR | HDR+3, BUILD+3, INIT+7, EXIT+2, PRMFLIST+2, PARAMRPT+4 |
DISP^XQORM1 | HELP+3, HELP+9 |
^XTVSHLP1 | HELP+13 |
$$CHKPID^XTVSLAPI | INIT+9, EXIT+3, PARAMRPT+4 |
$$REQLOCK^XTVSLAPI | INIT+10 |
$$SELXTMP^XTVSLAPI | INIT+5 |
$$UNLCKPFL^XTVSLAPI | EXIT+7 |
JUSTPAWS^XTVSLAPI | INIT+12, INIT+13, INIT+17, EXIT+9, EXIT+10, PRMFLIST+33, PRMFLIST+35, PARAMAP+5, PARAMCMP+7 |
LISTOUT^XTVSLAPI | PRMFLIST+22 |
SPLITADD^XTVSLAPI | BUILD+10 |
$$BLDNUM^XTVSLM | HDR+5 |
$$VERNUM^XTVSLM | HDR+5 |
$$PRMFLIST^XTVSLP | PARAMCMP+4 |
EXIT^XTVSLP | INIT+18 |
EN^XTVSLPC | PARAMCMP+6 |
EN^XTVSLPDC | PARAMRPT+3 |
EN^XTVSLPER | PKGERR+2 |
SELLIST^XTVSLPR2 | PRECHK+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("XTVS PKG MAN PARM DISP" | KILL+4! |
^TMP("XTVS-ERROR" | CLNTMPGB+1! |
^TMP("XTVS-FRIDX" | FILNDX+21*, CLNTMPGB+1! |
^TMP("XTVS-PARAM-CAP" | SCAPARY+5*, SCAPARY+7*, SCAPARY+9*, SCAPARY+11*, SCAPARY+13*, SCAPARY+15*, SCAPARY+17*, SCAPARY+19*, SCAPARY+21*, SCAPARY+23* , CLNTMPGB+2! |
^TMP("XTVS-PFXIDX" | PFXIDX+2*, CLNTMPGB+1! |
^TMP("XTVS-PKGEDIT" | LOADTMP+21*, LOADTMP+30*, LOADTMP+42*, LOADTMP+46*, LOADTMP+47*, LOADTMP+54*, LOADTMP+60*, LOADTMP+63*, CLNTMPGB+1! |
Name | Line Occurrences |
---|---|
$$SELITEM | PRMFLIST+30 |
BUILD | INIT+14, REFRESH+1 |
CLNTMPGB | KILL+3 |
FILNDX | LOADTMP+31, LOADTMP+35, LOADTMP+43 |
KILL | BUILD+2, EXIT+12 |
LOADTMP | BUILD+11 |
MSG | HDR+13, HELP+18, PKGERR+4, PARAMRPT+7, PARAMAP+8, PARAMCMP+9 |
PFXIDX | LOADTMP+55, LOADTMP+56 |
REFRESH | PKGERR+3, PARAMRPT+6, PARAMAP+7, PARAMCMP+8 |
SCAPARY | BUILD+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADDITEM | SELITEM+15~, SELITEM+16*, SELITEM+17*, SELITEM+31, SELITEM+36, SELITEM+37 |
APFX | LOADTMP+13~, LOADTMP+53*, LOADTMP+54, LOADTMP+55 |
APFXLST | LOADTMP+13~, LOADTMP+50*, LOADTMP+53, LOADTMP+55, LOADTMP+56 |
BEGFLNUM | LOADTMP+13~, LOADTMP+17*, LOADTMP+35, LOADTMP+46, LOADTMP+47 |
BEGFNUM | FILNDX+18~, FILNDX+19*, FILNDX+21 |
CHKLKER | INIT+4~, INIT+10*, INIT+11, INIT+12, INIT+15, INIT+17, EXIT+10 |
CMPRFNME | PARAMCMP+2~, PARAMCMP+4*, PARAMCMP+5, PARAMCMP+6, PARAMCMP+7 |
DEFANS | SELITEM+15~, SELITEM+20*, PRECHK~, PRECHK+1 |
DEFDIR | HDR+1~, HDR+3*, HDR+6, BUILD+1~, BUILD+3*, BUILD+4, INIT+4~, INIT+7*, INIT+9, EXIT+1~ , EXIT+2*, EXIT+3, PRMFLIST+1~, PRMFLIST+2*, PRMFLIST+6 |
DIR | KILL+5!, SELITEM+15~ |
DIR("?" | SELITEM+30*, SELITEM+31*, SELITEM+32*, SELITEM+34*, SELITEM+36*, SELITEM+37*, SELITEM+38* |
DIR("??" | SELITEM+39* |
DIR("A" | SELITEM+26* |
DIR("PRE" | SELITEM+28* |
DIR(0 | SELITEM+27* |
DIRHEAD | HDR+1~, HDR+6*, HDR+7, HDR+8, HDR+10*, HDR+11, HDR+12 |
DIRUT | KILL+5!, SELITEM+15~ |
DTOUT | KILL+5!, SELITEM+15~, PRECHK+2 |
DUOUT | KILL+5!, SELITEM+15~ |
ENDFLNUM | LOADTMP+13~, LOADTMP+18*, LOADTMP+35, LOADTMP+46, LOADTMP+47 |
ENDFNUM | FILNDX+18~, FILNDX+20*, FILNDX+21 |
FILELIST | LOADTMP+13~, LOADTMP+24*, LOADTMP+27, LOADTMP+29, LOADTMP+34, LOADTMP+39*, LOADTMP+41, PRMFLIST+1~ |
FILELIST( | PRMFLIST+11 |
FILENME | PRMFLIST+1~, PRMFLIST+7*, PRMFLIST+11*, PRMFLIST+12, PRMFLIST+13, PRMFLIST+32*, PRMFLIST+36 |
FILENME( | PRMFLIST+5* |
>> FIRSTITM | INIT+3, INIT+5, INIT+20 |
>> FLERNG | LOADTMP+29*, LOADTMP+30, LOADTMP+31 |
FLESRCH | PRMFLIST~, PRMFLIST+3*, PRMFLIST+5, PRMFLIST+12, PRMFLIST+13, PRMFLIST+17, PRMFLIST+21 |
FLRNGE | FILNDX~, FILNDX+19, FILNDX+20 |
FNUM | LOADTMP+13~, LOADTMP+41*, LOADTMP+42, LOADTMP+43 |
FSET | LOADTMP+13~, LOADTMP+14*, LOADTMP+31, LOADTMP+35, LOADTMP+43, FILNDX~, FILNDX+22* |
HLPTEXT | PARAMAP+2~, PARAMAP+4* |
IO | BUILD+5 |
ITEMNUM | PRMFLIST+1~, PRMFLIST+10*, PRMFLIST+12*, PRMFLIST+13*, PRMFLIST+15, PRMFLIST+18, PRMFLIST+23, PRMFLIST+30, PRMFLIST+32, PRMFLIST+33 , SELITEM~, SELITEM+27, SELITEM+30, PRECHK~, PRECHK+3 |
>> LASTITM | INIT+3, INIT+5, INIT+20 |
LCKCHK | INIT+4~, INIT+9*, INIT+11, INIT+13, INIT+15, EXIT+1~, EXIT+3*, EXIT+5, EXIT+10, PARAMRPT+2~ , PARAMRPT+4*, PARAMRPT+5, PARAMRPT+8 |
LINEITEM | BUILD+1~, BUILD+7*, BUILD+8, BUILD+9, BUILD+10, BUILD+11, LOADTMP~, LOADTMP+15, LOADTMP+16, LOADTMP+17 , LOADTMP+18, LOADTMP+21, LOADTMP+24, LOADTMP+38, LOADTMP+39, LOADTMP+50, LOADTMP+51, LOADTMP+63, SCAPARY~, SCAPARY+4 , SCAPARY+5, SCAPARY+6, SCAPARY+8, SCAPARY+10, SCAPARY+12, SCAPARY+14, SCAPARY+16, SCAPARY+18, SCAPARY+20, SCAPARY+22 |
LNENUM | PARAMAP+2~, PARAMAP+4* |
LSTRSLT | PRMFLIST+1~, PRMFLIST+6*, PRMFLIST+8, PRMFLIST+35 |
MAXLG | SELITEM+15~, SELITEM+22*, SELITEM+24*, SELITEM+25 |
MINLG | SELITEM+15~, SELITEM+21*, SELITEM+23*, SELITEM+24, SELITEM+25 |
PARAMSTR | PRMFLIST+16~, PRMFLIST+30, SELITEM~, PRECHK+3 |
PARAMSTR("ADDITM" | PRMFLIST+29*, SELITEM+16, SELITEM+17 |
PARAMSTR("DEFANS" | PRMFLIST+27*, SELITEM+20 |
PARAMSTR("MAXLNG" | PRMFLIST+28*, SELITEM+22, SELITEM+24*, SELITEM+25* |
PARAMSTR("MINLNG" | PRMFLIST+19*, PRMFLIST+24*, SELITEM+21, SELITEM+23* |
PARAMSTR("PATRN" | PRMFLIST+26*, SELITEM+19* |
PARAMSTR("XTUPCASE" | SELITEM+18* |
PARMDAT | SCAPARY+1~, SCAPARY+6*, SCAPARY+7, SCAPARY+8*, SCAPARY+9, SCAPARY+10*, SCAPARY+11, SCAPARY+12*, SCAPARY+13, SCAPARY+14* , SCAPARY+15, SCAPARY+16*, SCAPARY+17, SCAPARY+18*, SCAPARY+19, SCAPARY+20*, SCAPARY+21, SCAPARY+22*, SCAPARY+23 |
PAWSOUT | PRMFLIST~, PRMFLIST+4*, PRMFLIST+33, PRMFLIST+35 |
PCENUM | LOADTMP+13~, LOADTMP+28*, LOADTMP+29*, LOADTMP+40*, LOADTMP+41*, LOADTMP+52*, LOADTMP+53*, LOADTMP+58*, LOADTMP+59* |
PFXLST | PFXIDX~, PFXIDX+1*, PFXIDX+2 |
PKG | SCAPARY+1~, SCAPARY+4*, SCAPARY+5, SCAPARY+7, SCAPARY+9, SCAPARY+11, SCAPARY+13, SCAPARY+15, SCAPARY+17, SCAPARY+19 , SCAPARY+21, SCAPARY+23 |
PKGNAME | LOADTMP+13~, LOADTMP+15*, LOADTMP+21, LOADTMP+30, LOADTMP+31, LOADTMP+35, LOADTMP+42, LOADTMP+43, LOADTMP+46, LOADTMP+47 , LOADTMP+54, LOADTMP+55, LOADTMP+56, LOADTMP+60, LOADTMP+63, FILNDX~, FILNDX+21, PFXIDX~, PFXIDX+2 |
PKGPFX | LOADTMP+13~, LOADTMP+16*, LOADTMP+21, LOADTMP+30, LOADTMP+42, LOADTMP+46, LOADTMP+47, LOADTMP+50, LOADTMP+54, LOADTMP+56 , LOADTMP+60, LOADTMP+63, PFXIDX~, PFXIDX+2 |
QSTHLP1 | PRMFLIST+16~, PRMFLIST+18*, PRMFLIST+23*, PRMFLIST+30, SELITEM~, SELITEM+29, SELITEM+33, SELITEM+34, SELITEM+35 |
RPFX | LOADTMP+13~, LOADTMP+59*, LOADTMP+60 |
RPFXLST | LOADTMP+13~, LOADTMP+51*, LOADTMP+55, LOADTMP+56, LOADTMP+59 |
SELARY | PRMFLIST+1~, PRMFLIST+22, PRMFLIST+30, SELITEM~, PRECHK~, PRECHK+3 |
SELARY( | PRMFLIST+12*, PRMFLIST+13*, PRMFLIST+32 |
SPCPAD | HDR+1~, HDR+2*, HDR+7*, HDR+8, HDR+9*, HDR+11*, HDR+12 |
TEXT | MSG~, MSG+1, MSG+2 |
TXTCT | HELP+13*, HELP+19! |
TYPE | FILNDX~, FILNDX+21 |
UNLKRSLT | EXIT+6~, EXIT+7*, EXIT+8, EXIT+9 |
>> VALMBCK | HELP+17*, REFRESH+2* |
>> VALMCNT | BUILD+6*, BUILD+10 |
>> VALMHDR(1 | HDR+4* |
>> VALMHDR(2 | HDR+5* |
>> VALMHDR(3 | HDR+8* |
>> VALMHDR(4 | HDR+12* |
>> VALMQUIT | INIT+18*, INIT+19*, INIT+20*, PARAMRPT+8* |
>> VALMSG | MSG+1*, MSG+2* |
X | HELP+1, HELP+2*, HELP+4, KILL+5!, SELITEM+15~, PRECHK~, PRECHK+1*, PRECHK+2, PRECHK+3 |
XTQVAR | HELP+10*, HELP+11, HELP+12*, HELP+13, HELP+14*, HELP+19! |
>> XTVPSPRM | HDR+10, BUILD+4, INIT+8*, INIT+9, INIT+10, INIT+13, EXIT+3, EXIT+7, PARAMRPT+4 |
XTVSXFNM | INIT+1~, INIT+5*, INIT+6, INIT+8, INIT+19, INIT+20 |
XTX | HELP+13*, HELP+14, HELP+15, HELP+19! |
XVAL | PRMFLIST+1~, PRMFLIST+30*, PRMFLIST+32 |
Y | HELP+10, HELP+14, HELP+19!, KILL+5!, SELITEM+15~, SELITEM+41 |