Routine: XTVSLPDC

Information

XTVSLPDC ;ALBANY FO/GTS - VistA Package Sizing Manager - Caption display; 12-JUL-2016

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for XTVS PKG MGR PARAM CAPTN DISP
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
MSG(TEXT)	; -- set default message
KILL	; - Cleanup local and global display arrays
SELPKG(ADDITM,DELIND)	; Select Package to Edit/Delete from ^TMP("XTVS PKG MGR PARAM CAP",$J) ; INPUT: ; ADDITM : 0 - Do not allow add new package [Default] ; : 1 - Allow add new package ; DELIND : 0 - Called to select a package for add/edit [Default] ; 1 - Called to select a package to delete
PRECHK(X,LASTSPKG,SELARY,ITEMNUM,PARAMSTR)	; SELPKG X value DIR("PRE") pre-check
EDITPRM	; Edit parameters for a package ; -- Protocol: XTVS PKG MGR EDIT PACKAGE PARM ACTION
DELPMPKG	; Delete parameters from a package ; -- Protocol: XTVS PKG MGR DEL PACKAGE PARM ACTION
SAVPMPKG	; Save Package Parameters file ; -- Protocol: XTVS PKG MGR SAVE PACKAGE PARM ACTION
PKGSAVE	;Save Package Changes
CRTFLE(DEFDIR,FILENME,WNFILE)	; Update old file/Write New file
SETADD(X)	; Add a new package to ^TMP("XTVS-PARAM-CAP")
SETSELAY(SELARY)	; Move Package names to SELARY from ^TMP("XTVS-PARAM-CAP") array
SPCPKGCK(XTVSSAVX,ITEMNUM,SELARY)	; Check for existence of the <SPACE> select package in SELARY

Name	Line Occurrences
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: !!," <* LOCK ERROR. LOCK required to proceed. Check LOCK file Integrity. *>" Line Location: EXIT+14
Function Call: WRITE	Prompt: " ",PKGNME Line Location: SELPKG+45
Function Call: WRITE	Prompt: " ",LASTSPKG Line Location: PRECHK+3
Function Call: WRITE	Prompt: !!," <* UNLOCK ERROR. Check LOCK file Integrity. *>" Line Location: PKGSAVE+33
Function Call: WRITE	Prompt: !!,"?? ",XTVSSAVX_" VistA package is undefined." Line Location: SPCPKGCK+3