Routine: PXLEXS

Information

PXLEXS ;SLC/PKR - List Manager routines for Lexicon code selection. ;08/01/2017

Source file <PXLEXS.m>

Name	Comments	DBIA/ICR reference
ADDSEL(ENUM)	;Add entry ENUM to the selected list and highlight it.
BLDLIST	;Build the Lexicon list.
ENTRY	;Entry code
EXIT	;Exit code
FORMAT(TEXT,FMTSTR,NL,OUTPUT)	;Format entry number, code,
GETCODE(CODESYS,SRCHTERM,EVENTDT,ACTIVE)	;Given a coding system and search term,
GETCODES(CODESYS,SRCHTERM,EVENTDT,CODELIST,ACTIVE)	;Given a coding system and
GETLIST(LIST)	;Let the user input a list of items.
HDR	; Header code
HELP	;Display help.
HLITE(ENUM,MODE)	;Highlight/un-highlight an entry. MODE=1 turns on
HTEXT	;Lexicon selection help text.
HTEXTS	;Lexicon single selection help text.
INITMPG	;Initialize all the ^TMP globals.
LEXLIST(TERM,CODESYS,EVENTDT,NCODES,NLINES,TEXT,ACTIVE)	;Call Lexicon to get
PEXIT	; Protocol exit code
REM(ENUM)	;Remove entry ENUM from the selected list and un-highlight it.
REML	;Remove the selected entries from the selected list and un-highlight them.
REMX(LIST)	;Remove the selected entries from the selected list and un-highlight
SCTDESC(NODE)	;Append the SNOMED hierarchy to the description and then
SELL	;Put the selected entries on the selected list and highlight them.
SELX(LIST)	;Put the selected entries on the selected list and highlight
XQORM	; Set range for selection.
XSEL	;Entry action for protocol PXCE LEXICON SELECT ENTRY.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Searching Lexicon ..." Line Location: LEXLIST+4
Function Call: WRITE	Prompt: !,ENUM," is not a valid selection." Line Location: XSEL+9
Function Call: WRITE	Prompt: !,"The range is 1 to ",$O(^TMP("PXLEXL",$J,"LINES",""),-1),"." Line Location: XSEL+10
Function Call: WRITE	Prompt: !,"Only a single code can be selected." Line Location: XSEL+14