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 |