Routine: PXRMLEXL

Package	Total	Call Graph
Clinical Reminders	2	(BLDLIST,INITMPG,SAVE)^PXRMLEXL ($$LMFMTSTR,COLFMT)^PXRMTEXT
DRG Grouper	2	PERIOD^ICDAPIU PERIOD^ICPTAPIU
Lexicon Utility	2	$$TAX^LEX10CS $$CSYS^LEXU
Registration	2	(CLEAR,FULL)^VALM1 (CLEAN,CNTRL,FLDCTRL,KILL)^VALM10
IHS Mods To Patient Care Encounter	1	(HELP,IMPLIST,SCTDESC,XSEL)^BPXRMEXT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Clinical Reminders	1	PXRMLEXL
IHS Mods To Patient Care Encounter	1	BPXRMEXT

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;Display help.
RFTL	;Remove the selected entries from the selected list and unhighlight them.
HDR	; Header code
EXITS	;Exit and save action.
RFDX(LIST)	;Remove UID from the selected entries.
CPLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Build the list for a copy from
BLDSLIST	;Build the Lexicon list, selected or UID codes only.
INITMPG	;Initialize all the ^TMP globals.
RFT(ENUM)	;Remove entry ENUM from the selected list and unhighlight it.
PEXIT	; Protocol exit code
VIEW()	;Select the view.
XSEL	;Entry action for protocol PXRM LEXICON SELECT ENTRY.
RFDL	;Remove UID from the selected entries.
RFD(ENUM)	;Remove UID from the selected entry.
SCTDESC(NODE)	;Append the SNOMED hierarchy to the description and then
UIDL	;Mark selected entries as UID.
FORMAT(TEXT,FMTSTR,NL,OUTPUT)	;Format entry number, code,
INCL	;Put the selected entries on the selected list and highlight them.
ADDSEL(ENUM,UID)	;Add entry ENUM to the selected list and highlight it.
RFTX(LIST)	;Remove the selected entries from the selected list and unhighlight
XQORM	; Set range for selection.
ENTRY	;Entry code
INCX(LIST,UID)	;Put the selected entries on the selected list and highlight
LEXLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Call Lexicon to get the list
BLDLIST	;Build the Lexicon list.
HLITE(ENUM,MODE,UID)	;Highlight/unhighlight an entry. MODE=1 turns on
EXIT	;Exit code
GETLIST(LIST)	;Let the user input a list of items.
UIDOK()	;Check the coding system to determine if it can be used in a dialog.
SAVE	;Save the selected entries in the taxonomy.
IMPLIST(TAXIEN,TERM,CODESYS,NCODES,NLINES,TEXT)	;Build the list for an

Name	Field # of Occurrence
HELP^BPXRMEXT	HELP+1
IMPLIST^BPXRMEXT	IMPLIST+2
SCTDESC^BPXRMEXT	SCTDESC+2
XSEL^BPXRMEXT	XSEL+1
^DIR	GETLIST+6
PERIOD^ICDAPIU	CPLIST+9, CPLIST+10
PERIOD^ICPTAPIU	CPLIST+7, CPLIST+8
$$TAX^LEX10CS	LEXLIST+9
$$CSYS^LEXU	BLDLIST+25, BLDSLIST+11
BLDLIST^PXRMLEXL	ENTRY+2
INITMPG^PXRMLEXL	ENTRY+1, EXIT+1
SAVE^PXRMLEXL	EXITS+1
$$LMFMTSTR^PXRMTEXT	BLDLIST+3, BLDSLIST+3
COLFMT^PXRMTEXT	FORMAT+7
CLEAR^VALM1	EXIT+5
FULL^VALM1	EXIT+2
CLEAN^VALM10	EXIT+3
CNTRL^VALM10	HLITE+6
FLDCTRL^VALM10	HLITE+8, HLITE+9, RFD+4
KILL^VALM10	BLDLIST+7, BLDLIST+13, BLDSLIST+7, EXIT+4
$$FMTE^XLFDT	FORMAT+4, FORMAT+5

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Searching Lexicon ..." Line Location: LEXLIST+6
Routine Call	DIR Line Location: GETLIST+6

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	XQORM+4
^TMP("LEXTAX"	LEXLIST+7!, LEXLIST+11!, LEXLIST+12, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20, LEXLIST+25!
^TMP("PXRMCODES"	BLDLIST+58, BLDLIST+60, BLDSLIST+21, BLDSLIST+24, CPLIST+4, SAVE+6!, SAVE+9, SAVE+14
^TMP("PXRMLEXL"	ADDSEL+2, ADDSEL+3, BLDLIST+8!, BLDLIST+14!, BLDLIST+33, BLDLIST+37, BLDLIST+43, BLDLIST+46, BLDLIST+47, BLDLIST+48* , BLDLIST+49, BLDLIST+50, BLDLIST+52, BLDLIST+56, BLDLIST+57, BLDSLIST+8!, BLDSLIST+27, BLDSLIST+31, BLDSLIST+32, BLDSLIST+46 , BLDSLIST+47, BLDSLIST+48, BLDSLIST+50, BLDSLIST+51, GETLIST+2, HLITE+4, HLITE+5, INITMPG+1!, RFD+2*, RFD+3 , RFT+1!, SAVE+11, SAVE+12, XQORM+2
^TMP("PXRMLEXS"	BLDLIST+15, BLDLIST+36, BLDLIST+37, BLDLIST+38, BLDLIST+39, BLDLIST+52*
^TMP("PXRMLEXTC"	BLDLIST+9, BLDLIST+10, BLDLIST+11, BLDLIST+26, BLDSLIST+9, BLDSLIST+12, BLDSLIST+13, SAVE+4, SAVE+5, UIDOK+3
^TMP("PXRMTEXT"	BLDLIST+17, BLDLIST+18, BLDLIST+19*, BLDLIST+20, BLDLIST+21, BLDLIST+22, BLDSLIST+16, BLDSLIST+19, BLDSLIST+40

Name	Line Occurrences
$$UIDOK	BLDLIST+30, BLDLIST+31
ADDSEL	BLDLIST+62, BLDSLIST+49, INCL+7, INCX+5, UIDL+7
CPLIST	LEXLIST+2
FORMAT	BLDLIST+44, BLDSLIST+29, BLDSLIST+44
GETLIST	INCL+3, RFDL+3, RFTL+3, UIDL+3
HLITE	ADDSEL+4, RFT+2
IMPLIST	LEXLIST+3
LEXLIST	BLDLIST+16
RFD	RFDL+7, RFDX+4
RFT	RFTL+7, RFTX+5
SCTDESC	LEXLIST+13
XQORM	ENTRY+3, PEXIT+3

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 , LEXLIST+4~, LEXLIST+19*, LEXLIST+23, LEXLIST+24
CODE	ADDSEL+1~, ADDSEL+2, ADDSEL+3, BLDLIST+1~, BLDLIST+42, BLDLIST+43, BLDLIST+57, BLDLIST+58, BLDLIST+60, BLDSLIST+1~ , BLDSLIST+20, BLDSLIST+21, BLDSLIST+23, BLDSLIST+24, BLDSLIST+27, BLDSLIST+28, CPLIST+2~, CPLIST+3, CPLIST+4, CPLIST+7 , CPLIST+8, CPLIST+9, CPLIST+10, CPLIST+20, LEXLIST+4~, LEXLIST+21, LEXLIST+23, SAVE+1~, SAVE+13, SAVE+14
CODEI	LEXLIST+4~, LEXLIST+14, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20
CODESYS	BLDLIST+1~, BLDLIST+9, BLDLIST+15, BLDLIST+16, BLDLIST+17, BLDLIST+18, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+22 , BLDLIST+25, BLDLIST+36, BLDLIST+37, BLDLIST+38, BLDLIST+39, BLDLIST+52, BLDLIST+58, BLDLIST+60, BLDSLIST+1~, BLDSLIST+9 , BLDSLIST+11, BLDSLIST+16, BLDSLIST+19, BLDSLIST+21, BLDSLIST+24, BLDSLIST+40, CPLIST~, CPLIST+4, CPLIST+7, CPLIST+8 , CPLIST+9, CPLIST+10, IMPLIST~, IMPLIST+2, LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+9, LEXLIST+13, SAVE+1~ , SAVE+4, SAVE+6, SAVE+9, SAVE+14, UIDOK+2~, UIDOK+3, UIDOK+5, UIDOK+6
CODESYSP	BLDLIST+1~, BLDLIST+25, BLDLIST+29, BLDSLIST+1~, BLDSLIST+11, BLDSLIST+53
DATA	CPLIST+2~, CPLIST+5!, CPLIST+7, CPLIST+8, CPLIST+9, CPLIST+10
DATA(	CPLIST+14, CPLIST+15
DATA(0	CPLIST+11
DESC	BLDLIST+1~
>> DIR(0	GETLIST+5*
DONE	BLDSLIST+1~, BLDSLIST+37, BLDSLIST+38, BLDSLIST+41, BLDSLIST+42*
DT	LEXLIST+9
ENUM	ADDSEL~, ADDSEL+2, ADDSEL+3, ADDSEL+4, BLDLIST+1~, BLDLIST+43, BLDLIST+47, BLDLIST+48, BLDLIST+55, BLDLIST+56* , BLDLIST+57, BLDLIST+62, 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
FMTSTR	BLDLIST+1~, BLDLIST+3, BLDLIST+44, BLDSLIST+1~, BLDSLIST+3, BLDSLIST+29, BLDSLIST+44, FORMAT~, FORMAT+7
INACTDT	CPLIST+2~, CPLIST+17, CPLIST+20, CPLIST+21, FORMAT+2~, FORMAT+3, FORMAT+5, FORMAT+6, LEXLIST+4~, LEXLIST+19 , LEXLIST+23, LEXLIST+24
IND	BLDLIST+1~, BLDLIST+41, BLDLIST+42, BLDLIST+44, BLDSLIST+1~, BLDSLIST+18, BLDSLIST+19, BLDSLIST+36, BLDSLIST+37, BLDSLIST+43* , 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
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+45, BLDLIST+46, BLDSLIST+1~, BLDSLIST+30, BLDSLIST+31, BLDSLIST+45*, BLDSLIST+46
KND	BLDSLIST+1~, BLDSLIST+36, BLDSLIST+39, BLDSLIST+40, BLDSLIST+42, BLDSLIST+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
LIST(	GETLIST+11, GETLIST+13
LIST(1	GETLIST+4*
LSTART	GETLIST+1~, GETLIST+12*, GETLIST+13
MODE	HLITE~, HLITE+3, HLITE+8, HLITE+9
NCODES	BLDLIST+2~, BLDLIST+16, BLDLIST+18, BLDLIST+21, BLDLIST+29, BLDLIST+30, BLDLIST+31, BLDLIST+33, BLDLIST+49, CPLIST~ , CPLIST+3, CPLIST+12, CPLIST+20, GETLIST+1~, GETLIST+2, GETLIST+3, GETLIST+4, GETLIST+5, IMPLIST~, IMPLIST+2 , LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+10, LEXLIST+11, XQORM+1~, XQORM+2*, XQORM+3, XQORM+4
NL	BLDLIST+2~, BLDLIST+44, BLDLIST+45, BLDSLIST+2~, BLDSLIST+29, BLDSLIST+30, BLDSLIST+44, BLDSLIST+45, FORMAT~, FORMAT+7
NLINES	BLDLIST+2~, BLDLIST+16, BLDLIST+19, BLDLIST+22, BLDLIST+41, BLDSLIST+16, BLDSLIST+18, BLDSLIST+37, BLDSLIST+42, CPLIST~ , CPLIST+3, CPLIST+19, CPLIST+20, CPLIST+21, IMPLIST~, IMPLIST+2, LEXLIST~, LEXLIST+2, LEXLIST+3, LEXLIST+11* , LEXLIST+14, LEXLIST+22, LEXLIST+23, LEXLIST+24
NODE	SCTDESC~, SCTDESC+2
NSEL	BLDLIST+2~, BLDLIST+55, BLDLIST+59, BLDLIST+63, BLDSLIST+2~, BLDSLIST+17, BLDSLIST+26, BLDSLIST+27, BLDSLIST+28, BLDSLIST+32 , BLDSLIST+47, BLDSLIST+48, BLDSLIST+49, BLDSLIST+50, BLDSLIST+53, SAVE+10*
NUID	BLDLIST+2~, BLDLIST+55, BLDLIST+61, BLDSLIST+2~, BLDSLIST+17, BLDSLIST+25, BLDSLIST+53
NUM	BLDLIST+2~, BLDLIST+42, BLDLIST+43, CPLIST+2~, CPLIST+13, CPLIST+16, CPLIST+20, LEXLIST+4~, LEXLIST+14, LEXLIST+16* , LEXLIST+23
OUTPUT	BLDLIST+2~, BLDLIST+44, BLDSLIST+2~, BLDSLIST+29, BLDSLIST+44, FORMAT~, FORMAT+7
OUTPUT(	BLDLIST+46, BLDSLIST+31, BLDSLIST+46
>> PXRMBGS("ALL"	BLDLIST+65
>> PXRMBGS("SEL"	BLDSLIST+55
>> PXRMLEXV	BLDLIST+64, BLDSLIST+54
RESULT	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
START	BLDLIST+2~, BLDLIST+43, BLDLIST+48, BLDSLIST+2~, BLDSLIST+27, BLDSLIST+48, 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+16, CPLIST~, IMPLIST~, IMPLIST+2, LEXLIST~, LEXLIST+2, LEXLIST+3
TEMP	BLDSLIST+19, BLDSLIST+20, BLDSLIST+28, BLDSLIST+40, BLDSLIST+41, BLDSLIST+44, 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+15, BLDLIST+16, BLDLIST+17, BLDLIST+18, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+22 , BLDLIST+36, BLDLIST+37, BLDLIST+38, BLDLIST+39, BLDLIST+52, BLDLIST+58, BLDLIST+60, BLDSLIST+2~, BLDSLIST+12, BLDSLIST+16 , BLDSLIST+19, BLDSLIST+21, BLDSLIST+24, BLDSLIST+40, BLDSLIST+52, CPLIST~, CPLIST+4, IMPLIST~, IMPLIST+2, LEXLIST~ , LEXLIST+2, LEXLIST+3, LEXLIST+9, SAVE+1~, SAVE+5*, SAVE+6, SAVE+9, SAVE+14
TEXT	BLDLIST+2~, BLDLIST+16, BLDLIST+17, BLDLIST+26, BLDLIST+27, BLDLIST+28, BLDSLIST+2~, BLDSLIST+13, BLDSLIST+14, BLDSLIST+28* , BLDSLIST+29, CPLIST~, FORMAT~, FORMAT+3, FORMAT+6*, FORMAT+7, IMPLIST~, IMPLIST+2, LEXLIST~, LEXLIST+2 , LEXLIST+3
TEXT(	BLDLIST+42, BLDLIST+44, CPLIST+20, CPLIST+21, LEXLIST+23, LEXLIST+24
U	ADDSEL+3, BLDLIST+29, BLDLIST+42, BLDLIST+48, BLDSLIST+20, BLDSLIST+28, BLDSLIST+41, BLDSLIST+48, BLDSLIST+53, CPLIST+17 , CPLIST+18, CPLIST+20, CPLIST+21, FORMAT+3, FORMAT+6, HLITE+4, HLITE+5, LEXLIST+19, LEXLIST+21, LEXLIST+23 , LEXLIST+24, RFD+2, RFD+3, SAVE+13, XQORM+4
UID	ADDSEL~, ADDSEL+3, ADDSEL+4, BLDLIST+2~, BLDLIST+60, BLDLIST+61, BLDLIST+62, BLDSLIST+2~, BLDSLIST+24, BLDSLIST+25 , BLDSLIST+49, HLITE~, HLITE+8, INCX~, INCX+5, SAVE+1~, SAVE+13*, SAVE+14
>> VALMBCK	EXIT+6, EXITS+2, INCL+8, RFDL+8, RFTL+8, SAVE+15, UIDL+8, VIEW+1
>> VALMBG	BLDLIST+65, BLDSLIST+55
>> VALMCNT	BLDLIST+33, BLDLIST+38, BLDLIST+40, BLDLIST+43, BLDLIST+46, BLDLIST+47, BLDLIST+48, BLDLIST+50, BLDSLIST+17, BLDSLIST+27 , BLDSLIST+31, BLDSLIST+32, BLDSLIST+46*, BLDSLIST+47, BLDSLIST+48, BLDSLIST+51
>> VALMDDF	BLDLIST+3, BLDSLIST+3
>> VALMHDR(1	BLDLIST+28, BLDSLIST+52, HDR+1*
>> VALMHDR(2	BLDLIST+29, BLDLIST+30, BLDLIST+31, BLDLIST+33, BLDLIST+63, BLDSLIST+53
>> VALMSG	HDR+2, PEXIT+1
VCTRL	HLITE+2~, HLITE+3*, HLITE+6
X	GETLIST+1~
>> XQORM("#"	XQORM+4*
>> XQORM("A"	XQORM+5*
>> XQORPOP	UIDOK+9*
>> XQORQUIT	UIDOK+9*
Y	GETLIST+1~, GETLIST+7, GETLIST+9, GETLIST+10

Customize PDF page

Package: Clinical Reminders

Routine: PXRMLEXL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: