Routine: PXRMLEXL

Package	Total	Call Graph
Clinical Reminders	4	(BLDLIST,INCX,INITMPG,RFDX,RFTX,SAVE,XQORM)^PXRMLEXL ($$LMFMTSTR,COLFMT)^PXRMTEXT $$SCTHIER^PXRMTXIN $$UIDOK^PXRMUID
Lexicon Utility	3	$$TAX^LEX10CS $$GETFSN^LEXTRAN1 ($$CSYS,$$PERIOD)^LEXU
List Manager	2	(CLEAR,FULL)^VALM1 (CLEAN,CNTRL,FLDCTRL,KILL)^VALM10
VA FileMan	2	BROWSE^DDBR ^DIR
CPT HCPCS Codes	1	PERIOD^ICPTAPIU
DRG Grouper	1	PERIOD^ICDAPIU
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Clinical Reminders	10	PXRM LEXICON ADD PXRM LEXICON EXIT PXRM LEXICON MENU PXRM LEXICON REMOVE FROM DIALOG PXRM LEXICON REMOVE FROM TAXONOMY PXRM LEXICON SAVE PXRM LEXICON SELECT PXRM LEXICON SELECT ENTRY PXRM LEXICON USE IN DIALOG PXRMLEXL
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ADDSEL(ENUM,UID)	;Add entry ENUM to the selected list and highlight it.
BLDLIST	;Build the Lexicon list.
CPLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Build the list for a copy from
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.
IMPLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Build the list for an
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.
LEXLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Call Lexicon to get the list
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.
SCTDESC(NODE)	;Append the SNOMED hierarchy to the description and then
UIDL	;Mark selected entries as UID.
UIDOK()	;Check the coding system to determine if it can be used in a dialog.
XQORM	; Set range for selection.
XSEL	;Entry action for protocol PXRM LEXICON SELECT ENTRY.

Name	Field # of Occurrence
BROWSE^DDBR	HELP+8
^DIR	GETLIST+6, XSEL+28
PERIOD^ICDAPIU	CPLIST+9, CPLIST+10
PERIOD^ICPTAPIU	CPLIST+7, CPLIST+8
$$TAX^LEX10CS	LEXLIST+9
$$GETFSN^LEXTRAN1	SCTDESC+11
$$CSYS^LEXU	BLDLIST+22
$$PERIOD^LEXU	IMPLIST+7
BLDLIST^PXRMLEXL	ENTRY+2
INCX^PXRMLEXL	XSEL+34, XSEL+37
INITMPG^PXRMLEXL	ENTRY+1, EXIT+1
RFDX^PXRMLEXL	XSEL+35
RFTX^PXRMLEXL	XSEL+36
SAVE^PXRMLEXL	EXITS+1
XQORM^PXRMLEXL	ENTRY+3, PEXIT+3
$$LMFMTSTR^PXRMTEXT	BLDLIST+3
COLFMT^PXRMTEXT	FORMAT+7
$$SCTHIER^PXRMTXIN	IMPLIST+14
$$UIDOK^PXRMUID	UIDOK+3
CLEAR^VALM1	EXIT+5, XSEL+32
FULL^VALM1	EXIT+2, XSEL+16
CLEAN^VALM10	EXIT+3
CNTRL^VALM10	HLITE+6
FLDCTRL^VALM10	HLITE+8, HLITE+9, RFD+4
KILL^VALM10	BLDLIST+7, EXIT+4
$$FMTE^XLFDT	FORMAT+4, FORMAT+5

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Searching Lexicon ..." Line Location: LEXLIST+6
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("PXRMLEXL",$J,"LINES",""),-1),"." Line Location: XSEL+10
Routine Call	DIR Line Location: GETLIST+6 XSEL+28

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	XQORM+4
^TMP(	SCTDESC+4, SCTDESC+6, SCTDESC+7, SCTDESC+8, SCTDESC+9, SCTDESC+22, SCTDESC+24!, SCTDESC+25*
^TMP("LEXTAX"	LEXLIST+7!, LEXLIST+11!, LEXLIST+12, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20, LEXLIST+25!
^TMP("PXRMCODES"	BLDLIST+55, BLDLIST+57, CPLIST+4, IMPLIST+4, SAVE+6!, SAVE+9, SAVE+14
^TMP("PXRMLEXL"	ADDSEL+2, ADDSEL+3, BLDLIST+8!, BLDLIST+30, BLDLIST+34, BLDLIST+40, BLDLIST+43, BLDLIST+44, BLDLIST+45, BLDLIST+46 , BLDLIST+47, BLDLIST+49, BLDLIST+53, BLDLIST+54, GETLIST+2, HLITE+4, HLITE+5, INITMPG+1!, RFD+2, RFD+3 , RFT+1!, SAVE+11, SAVE+12, XQORM+2, XSEL+8, XSEL+10
^TMP("PXRMLEXS"	BLDLIST+12, BLDLIST+33, BLDLIST+34, BLDLIST+35, BLDLIST+36, BLDLIST+49*
^TMP("PXRMLEXTC"	BLDLIST+9, BLDLIST+10, BLDLIST+11, BLDLIST+23, SAVE+4, SAVE+5, UIDOK+2
^TMP("PXRMTEXT"	BLDLIST+14, BLDLIST+15, BLDLIST+16*, BLDLIST+17, BLDLIST+18, BLDLIST+19
^TMP($J	SCTDESC+3!, SCTDESC+16, SCTDESC+18, SCTDESC+20, SCTDESC+22, SCTDESC+23*, SCTDESC+25, SCTDESC+26!

Name	Line Occurrences
$$UIDOK	BLDLIST+27, BLDLIST+28, XSEL+22
ADDSEL	BLDLIST+59, INCL+7, INCX+5, UIDL+7
CPLIST	LEXLIST+2
FORMAT	BLDLIST+41
GETLIST	INCL+3, RFDL+3, RFTL+3, UIDL+3
HLITE	ADDSEL+4, RFT+2
IMPLIST	LEXLIST+3
LEXLIST	BLDLIST+13
RFD	RFDL+7, RFDX+4
RFT	RFTL+7, RFTX+5
SCTDESC	LEXLIST+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	CPLIST+2~, CPLIST+13, CPLIST+14, CPLIST+15, CPLIST+20, CPLIST+21, FORMAT+2~, FORMAT+3, FORMAT+4, FORMAT+6 , IMPLIST+2~, IMPLIST+10, IMPLIST+11, IMPLIST+12, IMPLIST+13, IMPLIST+14, IMPLIST+17, IMPLIST+18, LEXLIST+4~, LEXLIST+19* , LEXLIST+23, LEXLIST+24, SCTDESC+2~, SCTDESC+7*, SCTDESC+11
CODE	ADDSEL+1~, ADDSEL+2, ADDSEL+3, BLDLIST+1~, BLDLIST+39, BLDLIST+40, BLDLIST+54, BLDLIST+55, BLDLIST+57, CPLIST+2~ , CPLIST+3, CPLIST+4, CPLIST+7, CPLIST+8, CPLIST+9, CPLIST+10, CPLIST+20, IMPLIST+2~, IMPLIST+3, IMPLIST+4* , IMPLIST+7, IMPLIST+14, IMPLIST+17, LEXLIST+4~, LEXLIST+21, LEXLIST+23, SAVE+1~, SAVE+13, SAVE+14, SCTDESC+2~ , SCTDESC+8*, SCTDESC+11
CODEI	LEXLIST+4~, LEXLIST+14, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20, SCTDESC+2~, SCTDESC+5, SCTDESC+6, SCTDESC+7 , SCTDESC+8, SCTDESC+9, SCTDESC+16, SCTDESC+19, SCTDESC+20, SCTDESC+22
CODESYS	BLDLIST+1~, BLDLIST+9, BLDLIST+12, BLDLIST+13, BLDLIST+14, BLDLIST+15, BLDLIST+16, BLDLIST+17, BLDLIST+18, BLDLIST+19 , BLDLIST+22, BLDLIST+33, BLDLIST+34, BLDLIST+35, BLDLIST+36, BLDLIST+49, BLDLIST+55, BLDLIST+57, CPLIST~, CPLIST+4 , CPLIST+7, CPLIST+8, CPLIST+9, CPLIST+10, IMPLIST~, IMPLIST+4, IMPLIST+7, IMPLIST+14, LEXLIST~, LEXLIST+2 , LEXLIST+3, LEXLIST+9, LEXLIST+13, SAVE+1~, SAVE+4, SAVE+6, SAVE+9, SAVE+14, UIDOK+1~, UIDOK+2* , UIDOK+3
CODESYSP	BLDLIST+1~, BLDLIST+22*, BLDLIST+26
DATA	CPLIST+2~, CPLIST+5!, CPLIST+7, CPLIST+8, CPLIST+9, CPLIST+10
DATA(	CPLIST+14, CPLIST+15
DATA(0	CPLIST+11
DDS	HELP+1~, HELP+4*
DESC	BLDLIST+1~, IMPLIST+2~, IMPLIST+13, IMPLIST+14, IMPLIST+17, IMPLIST+18, SCTDESC+2~, SCTDESC+9, SCTDESC+15, SCTDESC+16 , SCTDESC+17, SCTDESC+18, SCTDESC+20, SCTDESC+23
DIR	GETLIST+1~, XSEL+19~
DIR("?"	XSEL+27*
DIR("A"	XSEL+25*
DIR("B"	XSEL+26*
DIR(0	GETLIST+5, XSEL+20, XSEL+21, XSEL+23, XSEL+24*
DIR0	HELP+1~
DIROUT	XSEL+19~, XSEL+29
DIRUT	XSEL+19~, XSEL+29
DONE	HELP+1~, HELP+4, HELP+5, HELP+7
DT	LEXLIST+9
DTOUT	XSEL+19~, XSEL+30
DUOUT	XSEL+19~, XSEL+30
ENUM	ADDSEL~, ADDSEL+2, ADDSEL+3, ADDSEL+4, BLDLIST+1~, BLDLIST+40, BLDLIST+44, BLDLIST+45, BLDLIST+52, BLDLIST+53* , BLDLIST+54, BLDLIST+59, HLITE~, HLITE+4, HLITE+5, INCX+2~, INCX+4, INCX+5, RFD~, RFD+2 , RFD+3, RFDX+1~, RFDX+3, RFDX+4, RFT~, RFT+1, RFT+2, RFTX+2~, RFTX+4, RFTX+5 , SAVE+1~, SAVE+10, SAVE+11, SAVE+12, XSEL+1~, XSEL+7, XSEL+8, XSEL+9
FMTSTR	BLDLIST+1~, BLDLIST+3*, BLDLIST+41, FORMAT~, FORMAT+7
FSN	SCTDESC+2~, SCTDESC+11*, SCTDESC+12, SCTDESC+13, SCTDESC+14
HE	SCTDESC+2~, SCTDESC+13*, SCTDESC+14
HIER	SCTDESC+2~, SCTDESC+14*, SCTDESC+15
HS	SCTDESC+2~, SCTDESC+12*, SCTDESC+13, SCTDESC+14
INACTDT	CPLIST+2~, CPLIST+17, CPLIST+20, CPLIST+21, FORMAT+2~, FORMAT+3, FORMAT+5, FORMAT+6, IMPLIST+2~, IMPLIST+12 , IMPLIST+17, IMPLIST+18, LEXLIST+4~, LEXLIST+19*, LEXLIST+23, LEXLIST+24
IND	BLDLIST+1~, BLDLIST+38, BLDLIST+39, BLDLIST+41, HELP+1~, HELP+5, HELP+6, HELP+7, INCX+2~, INCX+3* , INCX+4, LEXLIST+4~, LEXLIST+16, LEXLIST+17, LEXLIST+18, LEXLIST+20, LEXLIST+23, RFDX+1~, RFDX+2, RFDX+3 , RFTX+2~, RFTX+3, RFTX+4, XSEL+1~, XSEL+6*, XSEL+7
INUM	GETLIST+1~, GETLIST+9*, GETLIST+10
IOF	LEXLIST+6
>> IOINHI	HLITE+3
>> IOINORM	HLITE+3, HLITE+6
>> IORVOFF	HLITE+8, HLITE+9, RFD+4
>> IORVON	HLITE+8
ITEM	GETLIST+1~, GETLIST+13*
JND	BLDLIST+1~, BLDLIST+42*, BLDLIST+43
LELEM	GETLIST+1~, GETLIST+10*, GETLIST+11, GETLIST+12
LEND	GETLIST+1~, GETLIST+12*, GETLIST+13
LINE	HLITE+2~, HLITE+6*
LIST	GETLIST~, INCX~, INCX+3, INCX+4, RFDX~, RFDX+2, RFDX+3, RFTX~, RFTX+3, RFTX+4 , XSEL+1~, XSEL+2, XSEL+4, XSEL+6, XSEL+7, XSEL+34, XSEL+35, XSEL+36, XSEL+37
LIST(	GETLIST+11, GETLIST+13
LIST(1	GETLIST+4*
LSTART	GETLIST+1~, GETLIST+12*, GETLIST+13
LVALID	XSEL+1~, XSEL+5, XSEL+12, XSEL+13
MODE	HLITE~, HLITE+3, HLITE+8, HLITE+9
NCODES	BLDLIST+2~, BLDLIST+13, BLDLIST+15, BLDLIST+18, BLDLIST+26, BLDLIST+27, BLDLIST+28, BLDLIST+30, BLDLIST+46, CPLIST~ , CPLIST+3, CPLIST+12, CPLIST+20, GETLIST+1~, GETLIST+2, GETLIST+3, GETLIST+4, GETLIST+5, IMPLIST~, IMPLIST+3* , IMPLIST+9, IMPLIST+17, LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+10, LEXLIST+11, XQORM+1~, XQORM+2, XQORM+3 , XQORM+4
NL	BLDLIST+2~, BLDLIST+41, BLDLIST+42, FORMAT~, FORMAT+7
NLINES	BLDLIST+2~, BLDLIST+13, BLDLIST+16, BLDLIST+19, BLDLIST+38, CPLIST~, CPLIST+3, CPLIST+19, CPLIST+20, CPLIST+21 , IMPLIST~, IMPLIST+3, IMPLIST+16, IMPLIST+17, IMPLIST+18, LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+11, LEXLIST+14* , LEXLIST+22*, LEXLIST+23, LEXLIST+24
NODE	SCTDESC~, SCTDESC+4, SCTDESC+6, SCTDESC+7, SCTDESC+8, SCTDESC+9, SCTDESC+22, SCTDESC+24, SCTDESC+25
NSEL	BLDLIST+2~, BLDLIST+52, BLDLIST+56, BLDLIST+60, BLDLIST+61, SAVE+10*
NUID	BLDLIST+2~, BLDLIST+52, BLDLIST+58
NUM	BLDLIST+2~, BLDLIST+39, BLDLIST+40, CPLIST+2~, CPLIST+13, CPLIST+16, CPLIST+20, IMPLIST+2~, IMPLIST+10, IMPLIST+15* , IMPLIST+17, LEXLIST+4~, LEXLIST+14, LEXLIST+16, LEXLIST+23, SCTDESC+2~, SCTDESC+17, SCTDESC+21, SCTDESC+22, SCTDESC+23
OPTION	XSEL+19~, XSEL+31*, XSEL+34, XSEL+35, XSEL+36, XSEL+37
OUTPUT	BLDLIST+2~, BLDLIST+41, FORMAT~, FORMAT+7
OUTPUT(	BLDLIST+43
PDATA	IMPLIST+2~, IMPLIST+5!, IMPLIST+7
PDATA(	IMPLIST+11, IMPLIST+12, IMPLIST+13
>> PXRMBGS("ALL"	BLDLIST+63
>> PXRMLEXV	BLDLIST+62*
RESULT	IMPLIST+2~, IMPLIST+7, IMPLIST+8, LEXLIST+5~, LEXLIST+9, LEXLIST+10
SDESC	CPLIST+2~, CPLIST+18, CPLIST+20, CPLIST+21, LEXLIST+5~, LEXLIST+21, LEXLIST+23, LEXLIST+24
SEL	INCL+1~, INCL+6, INCL+7, RFDL+1~, RFDL+6, RFDL+7, RFTL+1~, RFTL+6, RFTL+7, UIDL+1~ , UIDL+6, UIDL+7
SELLIST	INCL+1~, INCL+3, INCL+5, RFDL+1~, RFDL+3, RFDL+5, RFTL+1~, RFTL+3, RFTL+5, UIDL+1~ , UIDL+3, UIDL+5
SELLIST(	INCL+7, RFDL+7, RFTL+7, UIDL+7
SRC	LEXLIST+5~, LEXLIST+12, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20, SCTDESC+2~, SCTDESC+4, SCTDESC+6, SCTDESC+7 , SCTDESC+8, SCTDESC+9, SCTDESC+11, SCTDESC+22, SCTDESC+23
START	BLDLIST+2~, BLDLIST+40, BLDLIST+45, HLITE+2~, HLITE+4, HLITE+6, HLITE+8, HLITE+9, RFD+1~, RFD+3* , RFD+4
STOP	HLITE+2~, HLITE+5*, HLITE+6
TAXIEN	BLDLIST+2~, BLDLIST+10*, BLDLIST+13, CPLIST~, IMPLIST~, LEXLIST~, LEXLIST+2, LEXLIST+3
TEMP	CPLIST+2~, CPLIST+15, CPLIST+17, CPLIST+18, LEXLIST+5~, LEXLIST+18, LEXLIST+19, LEXLIST+20, LEXLIST+21, SAVE+1~ , SAVE+12, SAVE+13
TERM	BLDLIST+2~, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+14, BLDLIST+15, BLDLIST+16, BLDLIST+17, BLDLIST+18, BLDLIST+19 , BLDLIST+33, BLDLIST+34, BLDLIST+35, BLDLIST+36, BLDLIST+49, BLDLIST+55, BLDLIST+57, CPLIST~, CPLIST+4, IMPLIST~ , IMPLIST+4, LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+9, SAVE+1~, SAVE+5, SAVE+6, SAVE+9, SAVE+14
TEXT	BLDLIST+2~, BLDLIST+13, BLDLIST+14, BLDLIST+23, BLDLIST+24, BLDLIST+25, CPLIST~, FORMAT~, FORMAT+3, FORMAT+6* , FORMAT+7, HELP+1~, IMPLIST~, LEXLIST~, LEXLIST+2, LEXLIST+3
TEXT(	BLDLIST+39, BLDLIST+41, CPLIST+20, CPLIST+21, HELP+6, HELP+7!, IMPLIST+17, IMPLIST+18, LEXLIST+23, LEXLIST+24*
U	ADDSEL+3, BLDLIST+26, BLDLIST+39, BLDLIST+45, CPLIST+17, CPLIST+18, CPLIST+20, CPLIST+21, FORMAT+3, FORMAT+6 , HLITE+4, HLITE+5, IMPLIST+12, IMPLIST+17, IMPLIST+18, LEXLIST+19, LEXLIST+21, LEXLIST+23, LEXLIST+24, RFD+2 , RFD+3, SAVE+13, SCTDESC+7, SCTDESC+8, SCTDESC+9, SCTDESC+23, XQORM+4, XSEL+20
UID	ADDSEL~, ADDSEL+3, ADDSEL+4, BLDLIST+2~, BLDLIST+57, BLDLIST+58, BLDLIST+59, HLITE~, HLITE+8, INCX~ , INCX+5, SAVE+1~, SAVE+13, SAVE+14
UIDOK	UIDOK+1~, UIDOK+3*, UIDOK+4
>> VALMBCK	EXIT+6, EXITS+2, HELP+9, INCL+8, RFDL+8, RFTL+8, SAVE+15, UIDL+8, XSEL+13, XSEL+29 , XSEL+30, XSEL+39
>> VALMBG	BLDLIST+63*
>> VALMCNT	BLDLIST+30, BLDLIST+35, BLDLIST+37, BLDLIST+40, BLDLIST+43, BLDLIST+44, BLDLIST+45, BLDLIST+47, XSEL+8
>> VALMDDF	BLDLIST+3
>> VALMHDR(1	BLDLIST+25, HDR+1
>> VALMHDR(2	BLDLIST+26, BLDLIST+27, BLDLIST+28, BLDLIST+30, BLDLIST+60, BLDLIST+61
>> VALMSG	HDR+2, PEXIT+1
VCTRL	HLITE+2~, HLITE+3*, HLITE+6
X	GETLIST+1~, XSEL+19~
>> XQORM("#"	XQORM+4*
>> XQORM("A"	XQORM+5*
>> XQORNOD(0	XSEL+2
>> XQORPOP	UIDOK+5*
>> XQORQUIT	UIDOK+5*
Y	GETLIST+1~, GETLIST+7, GETLIST+9, GETLIST+10, XSEL+19~, XSEL+31

Customize PDF page

Package: Clinical Reminders

Routine: PXRMLEXL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items