Routine: A1VSLPD1

Information

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

Name	Comments	DBIA/ICR reference
EDITPRFX(DATELEMT,LISTDATA,UPDATLST)	; Update Prefix list
EDITFNUM(DATELEMT,LISTDATA,UPDATLST)	; Update File list
EDITFRNG(DATELEMT,LISTDATA,UPDATLST)	; Update File Range
LSTEDT(EDTELEMT,PCE,DATELEMT,LISTDATA,UPDATLST)	;Edit List dialog
UPDTNODE(UPDIRUT,EDITARY,DATANUM,DATANAME,UPDX,CHNGMADE)	;Update ^TMP("A1VS-PARAM-EDIT") array node
SPLITOUT(DATANAME,LISTDATA)	; -- Split list data to separate lines as needed and output ; DATANAME - Data element name ; LISTDATA - Data element list
BADRNG(X)	;Checks user entered File Range (used by DIR call)
SETSTR(PKGARY)	;Return a string of Package File Lineitem (Concatonate fields to 1 HDR line)
PCEPOS(LISTDATA,DATELEMT)	; Return the piece position number of DATELEMT in LISTDATA

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"?? ...Element not in list, cannot delete!" Line Location: LSTEDT+5
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