Routine: PXRMTXLS

Information

PXRMTXLS ;SLC/PKR - List Manager routines for taxonomy all selected codes. ;08/16/2018

Name	Comments	DBIA/ICR reference
ADDSEL(ENUM,UID)	;Add entry ENUM to the selected list and highlight it.
BLDLIST	;Build the list of all selected codes.
ENTRY	;Entry code
EXIT	;Exit code
EXITS	;Exit and save action.
FORMAT(TEXT,FMTSTR,NL,OUTPUT)	;Format entry number, code,
GETLIST(LIST)	;Let the user input a list of items.
HDR	; Header code
HELP	;Display help.
HLITE(ENUM,MODE,UID)	;Highlight/un-highlight an entry. MODE=1 turns on
HTEXT	;Lexicon selection help text. PROBABLY CAN REMOVE AND USE ORIGINAL
INCL	;Put the selected entries on the selected list and highlight them.
INCX(LIST,UID)	;Put the selected entries on the selected list and highlight
INITMPG	;Initialize all the ^TMP globals.
LEXPER(ENUM,CODE,CODESYS,NLINES,TEXT)	;Call PERIOD^LEXU to get the code
PEXIT	; Protocol exit code
RFD(ENUM)	;Remove UID from the selected entry.
RFDL	;Remove UID from the selected entries.
RFDX(LIST)	;Remove UID from the selected entries.
RFT(ENUM)	;Remove entry ENUM from the selected list and un-highlight it.
RFTL	;Remove the selected entries from the selected list and un-highlight them.
RFTX(LIST)	;Remove the selected entries from the selected list and un-highlight
SAVE	;Save the selected entries in the taxonomy. This amounts to rebuilding
TERMDEL(TERM)	;Determine how many codes this term contains. If there are none
UIDL	;Mark selected entries as UID.
XQORM	; Set range for selection.
XSEL	;Entry action for protocol PXRM TAXONOMY ALL SELECTED SELECT.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ENUM," is not a valid selection." Line Location: XSEL+10
Function Call: WRITE	Prompt: !,"The range is 1 to ",NCODES,"." Line Location: XSEL+11