Routine: XTVSLPD2

Information

XTVSLPD2 ;ALBANY FO/GTS - VistA Package Sizing Manager - Caption display APIs; 14-DEC-2018

Name	Comments	DBIA/ICR reference
PRIMPFX(XTA,XTB,XTJUMPIN)	; Enter/Edit Primary Prefix
HILOFLE(XTA,XTB,XTJUMPIN)	; Enter/Edit High or Low File Number
EXADPFX(XTA,XTB,XTJUMPIN)	; Enter/Edit Excepted or Additional Prefixes
EDITPRFX(DATELEMT,LISTDATA,UPDATLST)	; Update Prefix list
LSTEDT(EDTELEMT,PCE,DATELEMT,LISTDATA,UPDATLST)	;Edit List dialog
FLENUM(XTA,XTB,XTJUMPIN)	; Enter/Edit File number
EDITFNUM(DATELEMT,LISTDATA,UPDATLST)	; Update File list
FLERNG(XTA,XTB,XTJUMPIN)	; Enter/Edit File Range
EDITFRNG(DATELEMT,LISTDATA,UPDATLST)	; Update File Range
PRNTPKG(XTA,XTB,XTJUMPIN)	; Enter/edit Parent Package
JUMP(XVAL,XTOLDNUM)	; Jump to a data element during edit
JUMPEXC	;Jump to selected field [from JUMP api]
CKMATCH(XTIN,XTDATNM)	; Check for sub-string match to data element name
FLESEL()	; Select FILE data element for JUMP
UPDTNODE(UPDIRUT,EDITARY,DATANUM,DATANAME,UPDX)	;Update ^TMP("XTVS-PARAM-CAP") array node with edits
SPLITOUT(DATANAME,LISTDATA)	; -- Split list data to separate lines as needed and output ; DATANAME - Data element name ; LISTDATA - Data element list
PCEPOS(LISTDATA,DATELEMT)	; Return the piece position number of DATELEMT in LISTDATA
PRECHK(X,LASTSPKG,SELARY,ITEMNUM)	; PRNTPKG X value DIR("PRE") pre-check
CHKX(X,SELARY,ITEMNUM)	;Check X for Package [called by PRECHK via DIR("PRE") in PRNTPKG]
PKGHLP(ITEMUM)	; Parent Package selection help
DATANAME	; Package Parameter data element names

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRIMPFX+25
Function Call: WRITE	Prompt: !,"?? ...Element not in list, cannot delete!" Line Location: LSTEDT+5
Function Call: WRITE	Prompt: " ??" Line Location: JUMP+10
Function Call: WRITE	Prompt: !," Return to "_$P($P($TEXT(DATANAME+XTOLDNUM)," ;;",2),"^",1)_"..." Line Location: JUMP+11
Function Call: WRITE	Prompt: !,"{no data list}" Line Location: SPLITOUT+6
Function Call: WRITE	Prompt: !,LISTDATA Line Location: SPLITOUT+8
Function Call: WRITE	Prompt: !,$P(LISTDATA,"\|",NXSTPCE,PCENUM-1) Line Location: SPLITOUT+13
Function Call: WRITE	Prompt: !,$P(LISTDATA,"\|",NXSTPCE,999) Line Location: SPLITOUT+14
Function Call: WRITE	Prompt: " ",X Line Location: PRECHK+1
Function Call: WRITE	Prompt: " ",X Line Location: CHKX+14