Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XTVSLP

Package: Toolkit

Routine: XTVSLP


Information

XTVSLP ;ALBANY FO/GTS - VistA Package Sizing Manager; 7-JUL-2016

Source Information

Source file <XTVSLP.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," <* LOCK request denied! Try again later. *>"
  • Line Location: INIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !,$S(XTX["$PAUSE":"",1:XTX)
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !!," <* UNLOCK ERROR. Check LOCK file Integrity. *>"
  • Line Location: EXIT+8
Function Call: WRITE
  • Prompt: " ",FILENME
  • Line Location: PRMFLIST+32
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: PRECHK+1
Function Call: WRITE
  • Prompt: !,HLPTEXT
  • Line Location: PARAMAP+4
Info |  Source |  Entry Points |  Interaction Calls