Routine: A1VSLPDC

Information

A1VSLPDC ;Albany FO/GTS - VistA Package Sizing Manager - Caption display; 12-JUL-2016

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for A1VS PKG MGR PARAM CAPTN DISP
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
KILL	; - Cleanup local and global display arrays
SELPKG(ADPKG)	; Select Package to Edit from ^TMP("A1VS PKG MGR PARAM CAP",$J) ; INPUT: ; ADPKG : 0 - Do not allow add new package [Default] ; : 1 - Allow add new package
DATACHK(PKG)	; Check for existence of entered package in ^TMP("A1VS PKG MGR PARAM CAP",$J)
EDPKGPRM(PKGNME)	; Edit Package Parameters
CHKX(XADD)	;Check for Package ; INPUT: ; XADD : 0 - Do not allow add new package ; : 1 - Allow add new package
PKGLIST(X,LASTSPKG)	;List packages from user entry [to support 'XADD' mod in CHKX]
PKGHLP	; Package selection help
EDITPRM	; Edit parameters for a package ; -- Protocol: A1VS PKG MGR EDIT PACKAGE PARM ACTION
DELPMPKG	; Delete parameters from a package ; -- Protocol: A1VS PKG MGR DEL PACKAGE PARM ACTION
SAVPMPKG	; Save Package Parameters file ; -- Protocol: A1VS PKG MGR SAVE PACKAGE PARM ACTION

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: X Line Location: CHKX+10
Function Call: WRITE	Prompt: !,"Select a package. [Number 1 - "_ITEMNUM_"]" Line Location: PKGLIST+10
Function Call: WRITE	Prompt: !,"??" Line Location: PKGLIST+11
Function Call: WRITE	Prompt: " ",X Line Location: PKGLIST+16