Routine: PXRMTXLS

Information

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

Package	Total	Call Graph
Clinical Reminders	4	($$LMFMTSTR,COLFMT)^PXRMTEXT $$SCTHIER^PXRMTXIN (BLDLIST,HDR,INCX,INITMPG,RFDX,RFTX,SAVE,XQORM)^PXRMTXLS $$UIDOK^PXRMUID
VA FileMan	3	BROWSE^DDBR EN^DDIOL ^DIR
List Manager	2	(CLEAR,FULL)^VALM1 (CLEAN,CNTRL,FLDCTRL,KILL)^VALM10
Kernel	1	$$FMTE^XLFDT
Lexicon Utility	1	($$CSYS,$$PERIOD)^LEXU

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 12

Package	Total	Caller Graph
Clinical Reminders	11	PXRM TAXONOMY ALL SELECTED PXRM TAXONOMY ALL SELECTED ADD PXRM TAXONOMY ALL SELECTED EXIT PXRM TAXONOMY ALL SELECTED MENU PXRM TAXONOMY ALL SELECTED RFD PXRM TAXONOMY ALL SELECTED RFT PXRM TAXONOMY ALL SELECTED SAVE PXRM TAXONOMY ALL SELECTED SELECT PXRM TAXONOMY ALL SELECTED UID PXRMTXLS PXRMUIDE
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 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.

External References

Name	Field # of Occurrence
BROWSE^DDBR	HELP+8
EN^DDIOL	TERMDEL+15, TERMDEL+25
^DIR	GETLIST+6, TERMDEL+19, XSEL+28
$$CSYS^LEXU	BLDLIST+28
$$PERIOD^LEXU	LEXPER+4
$$LMFMTSTR^PXRMTEXT	BLDLIST+3
COLFMT^PXRMTEXT	FORMAT+7
$$SCTHIER^PXRMTXIN	LEXPER+10
BLDLIST^PXRMTXLS	ENTRY+3
HDR^PXRMTXLS	ENTRY+2
INCX^PXRMTXLS	XSEL+34, XSEL+37
INITMPG^PXRMTXLS	ENTRY+1, EXIT+1
RFDX^PXRMTXLS	XSEL+35
RFTX^PXRMTXLS	XSEL+36
SAVE^PXRMTXLS	EXITS+1
XQORM^PXRMTXLS	ENTRY+4, PEXIT+3
$$UIDOK^PXRMUID	ADDSEL+3, BLDLIST+29
CLEAR^VALM1	EXIT+5, XSEL+32
FULL^VALM1	EXIT+2, XSEL+17
CLEAN^VALM10	EXIT+3
CNTRL^VALM10	HLITE+6
FLDCTRL^VALM10	HLITE+8, HLITE+9, RFD+6
KILL^VALM10	BLDLIST+8, EXIT+4
$$FMTE^XLFDT	FORMAT+4, FORMAT+5

Interaction Calls

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
Routine Call	DIR Line Location: GETLIST+6 TERMDEL+19 XSEL+28

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	XQORM+4
^TMP("PXRMCODES"	BLDLIST+10, BLDLIST+15, BLDLIST+17, BLDLIST+19, BLDLIST+20, BLDLIST+21, SAVE+10!, SAVE+11, SAVE+14, SAVE+16 , SAVE+18, SAVE+20*, TERMDEL+5, TERMDEL+7
^TMP("PXRMTXSC"	ADDSEL+2, ADDSEL+6, ADDSEL+7, ADDSEL+8, BLDLIST+9!, BLDLIST+11, BLDLIST+20, BLDLIST+21, BLDLIST+25, BLDLIST+31 , BLDLIST+32, BLDLIST+34, BLDLIST+39, BLDLIST+40, BLDLIST+41, BLDLIST+42, BLDLIST+46, BLDLIST+49, BLDLIST+50, BLDLIST+51* , BLDLIST+52, BLDLIST+54, GETLIST+2, HLITE+4, HLITE+5, INITMPG+1!, RFD+3, RFD+4, RFD+5, RFT+3 , RFT+4, RFT+5, SAVE+4, SAVE+6, SAVE+7, XQORM+2, XSEL+6

Label References

Name	Line Occurrences
$$TERMDEL	SAVE+15
ADDSEL	INCL+7, INCX+5, UIDL+7
FORMAT	BLDLIST+38
GETLIST	INCL+3, RFDL+3, RFTL+3, UIDL+3
HLITE	ADDSEL+4, BLDLIST+44, RFT+6
LEXPER	BLDLIST+36
RFD	RFDL+7, RFDX+4
RFT	RFTL+7, RFTX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	FORMAT+2~, FORMAT+3, FORMAT+4, FORMAT+6, LEXPER+2~, LEXPER+6, LEXPER+7, LEXPER+8, LEXPER+9, LEXPER+10 , LEXPER+12, LEXPER+13
CODE	BLDLIST+1~, BLDLIST+18, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+33, BLDLIST+34, BLDLIST+36, BLDLIST+42, BLDLIST+46 , BLDLIST+48, LEXPER~, LEXPER+4, LEXPER+10, LEXPER+12, RFT+1~, SAVE+2~, SAVE+9, SAVE+10, SAVE+11 , TERMDEL+2~, TERMDEL+6, TERMDEL+7*
CODESYS	ADDSEL+1~, ADDSEL+2, ADDSEL+3, BLDLIST+1~, BLDLIST+16, BLDLIST+17, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+24 , BLDLIST+25, BLDLIST+28, BLDLIST+29, BLDLIST+34, BLDLIST+36, BLDLIST+42, BLDLIST+46, BLDLIST+48, INCX+2~, LEXPER~ , LEXPER+4, LEXPER+10, RFT+1~, SAVE+2~, SAVE+8, SAVE+10, SAVE+11, SAVE+17, SAVE+18, SAVE+20 , TERMDEL+2~, TERMDEL+3, TERMDEL+4, TERMDEL+5*, TERMDEL+7
CODESYSP	BLDLIST+1~, BLDLIST+28*, BLDLIST+32
DDS	HELP+1~, HELP+4*
DEL	RFT+1~, SAVE+2~, SAVE+15*, SAVE+16, TERMDEL+2~
DESC	LEXPER+2~, LEXPER+9, LEXPER+10, LEXPER+12, LEXPER+13
DIR	TERMDEL+2~, XSEL+20~
DIR("?"	XSEL+27*
DIR("A"	TERMDEL+17, XSEL+25
DIR("B"	TERMDEL+18, XSEL+26
DIR(0	GETLIST+5, TERMDEL+16, XSEL+21, XSEL+22, XSEL+23, XSEL+24
DIR0	HELP+1~
DIROUT	XSEL+20~, XSEL+29
DIRUT	XSEL+20~, XSEL+29
DONE	HELP+1~, HELP+4, HELP+5, HELP+7
DTOUT	XSEL+20~, XSEL+30
DUOUT	XSEL+20~, XSEL+30
ENUM	ADDSEL~, ADDSEL+2, ADDSEL+4, ADDSEL+6, ADDSEL+7, ADDSEL+8, BLDLIST+1~, BLDLIST+23, BLDLIST+35, BLDLIST+36 , BLDLIST+40, BLDLIST+41, BLDLIST+44, BLDLIST+49, BLDLIST+50, BLDLIST+51, BLDLIST+54, BLDLIST+55, HLITE~, HLITE+4 , HLITE+5, INCX+2~, INCX+4, INCX+5, LEXPER~, LEXPER+12, RFD~, RFD+3, RFD+4, RFD+5 , RFDX+1~, RFDX+3, RFDX+4, RFT~, RFT+3, RFT+4, RFT+5, RFT+6, RFTX+2~, RFTX+4* , RFTX+5, SAVE+2~, SAVE+3, SAVE+4, SAVE+6, SAVE+7, XSEL+1~, XSEL+8*, XSEL+9, XSEL+10
FMTSTR	BLDLIST+1~, BLDLIST+3*, BLDLIST+38, FORMAT~, FORMAT+7
IENS	TERMDEL+2~
INACTDT	FORMAT+2~, FORMAT+3, FORMAT+5, FORMAT+6, LEXPER+2~, LEXPER+8*, LEXPER+12, LEXPER+13
IND	BLDLIST+1~, BLDLIST+37, BLDLIST+38, HELP+1~, HELP+5, HELP+6, HELP+7, INCX+2~, INCX+3, INCX+4 , RFDX+1~, RFDX+2, RFDX+3, RFTX+2~, RFTX+3, RFTX+4, TERMDEL+2~, XSEL+1~, XSEL+7, XSEL+8
INUM	GETLIST+1~, GETLIST+9*, GETLIST+10
>> IOINHI	HLITE+3
>> IOINORM	HLITE+3, HLITE+6
>> IORVOFF	HLITE+8, HLITE+9, RFD+6
>> IORVON	HLITE+8
ITEM	GETLIST+1~, GETLIST+13*
JND	BLDLIST+1~, BLDLIST+39*
KFDA	TERMDEL+2~
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+7, XSEL+8, 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+13, XSEL+14
MODE	HLITE~, HLITE+3, HLITE+8, HLITE+9
MSG	TERMDEL+2~
NCODES	GETLIST+1~, GETLIST+2, GETLIST+3, GETLIST+4, GETLIST+5, TERMDEL+2~, TERMDEL+3, TERMDEL+7, TERMDEL+9, XQORM+1~ , XQORM+2, XQORM+3, XQORM+4, XSEL+1~, XSEL+6*, XSEL+9, XSEL+11
NDUP	ADDSEL+1~, ADDSEL+5, ADDSEL+6, ADDSEL+7, ADDSEL+8, BLDLIST+1~, BLDLIST+45, BLDLIST+47, BLDLIST+49, BLDLIST+50 , INCX+2~, RFD+1~, RFD+2, RFD+3, RFD+4, RFT+1~, RFT+2, RFT+3, RFT+4, RFT+5 , SAVE+2~, SAVE+5, SAVE+6, SAVE+7
NL	BLDLIST+1~, BLDLIST+38, BLDLIST+39, FORMAT~, FORMAT+7
NLINES	BLDLIST+1~, BLDLIST+23, BLDLIST+36, BLDLIST+37, LEXPER~, LEXPER+5, LEXPER+6, LEXPER+11, LEXPER+12, LEXPER+13
NSEL	BLDLIST+2~
NUID	BLDLIST+2~, BLDLIST+23, BLDLIST+43, BLDLIST+55
NUM	BLDLIST+2~
OPTION	XSEL+20~, XSEL+31*, XSEL+34, XSEL+35, XSEL+36, XSEL+37
OUTPUT	BLDLIST+2~, BLDLIST+38, FORMAT~, FORMAT+7
OUTPUT(	BLDLIST+39
PDATA	LEXPER+2~, LEXPER+4
PDATA(	LEXPER+7, LEXPER+8, LEXPER+9
RESULT	LEXPER+2~, LEXPER+4*, LEXPER+5
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
START	BLDLIST+2~, BLDLIST+35, BLDLIST+40, BLDLIST+41, HLITE+2~, HLITE+4, HLITE+6, HLITE+8, HLITE+9, RFD+1~ , RFD+5*, RFD+6
STOP	HLITE+2~, HLITE+5*, HLITE+6
TEMP	BLDLIST+48, BLDLIST+49, BLDLIST+50, RFT+1~, RFT+4, RFT+5, SAVE+2~, SAVE+7*, SAVE+8, SAVE+9 , SAVE+10
TERM	BLDLIST+2~, BLDLIST+14, BLDLIST+15, BLDLIST+17, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+45, BLDLIST+46, BLDLIST+48 , RFT+1~, SAVE+2~, SAVE+8, SAVE+10, SAVE+11, SAVE+13, SAVE+14*, SAVE+15, SAVE+16, SAVE+18 , SAVE+20, TERMDEL~, TERMDEL+5, TERMDEL+7, TERMDEL+12
TEXT	BLDLIST+2~, BLDLIST+36, FORMAT~, FORMAT+3, FORMAT+6*, FORMAT+7, HELP+1~, LEXPER~, TERMDEL+2~, TERMDEL+15 , TERMDEL+22!, TERMDEL+25
TEXT(	BLDLIST+38, HELP+6, HELP+7!, LEXPER+12, LEXPER+13*
TEXT(1	TERMDEL+11, TERMDEL+23
TEXT(2	TERMDEL+12, TERMDEL+24
TEXT(3	TERMDEL+13*
TEXT(4	TERMDEL+14*
U	ADDSEL+2, ADDSEL+8, BLDLIST+32, BLDLIST+41, BLDLIST+48, FORMAT+3, FORMAT+6, HLITE+4, HLITE+5, LEXPER+8 , LEXPER+12, LEXPER+13, RFD+4, RFD+5, RFT+5, SAVE+8, SAVE+9, XQORM+4, XSEL+21
UID	ADDSEL~, ADDSEL+3, BLDLIST+2~, BLDLIST+42, BLDLIST+43, BLDLIST+44, BLDLIST+48, HLITE~, HLITE+8, INCX~ , INCX+5, SAVE+2~, SAVE+9, SAVE+11
UIDMSG	BLDLIST+2~, BLDLIST+30*, BLDLIST+32
UIDOK	BLDLIST+2~, BLDLIST+29*, BLDLIST+30
UIDT	ADDSEL+1~, ADDSEL+3*, ADDSEL+4, ADDSEL+8
>> VALMBCK	BLDLIST+12, EXIT+6, EXITS+2, HELP+9, INCL+8, RFDL+8, RFTL+8, SAVE+21, UIDL+8, XSEL+14 , XSEL+29, XSEL+30, XSEL+39*
>> VALMCNT	BLDLIST+12, BLDLIST+23, BLDLIST+31, BLDLIST+32, BLDLIST+35, BLDLIST+39, BLDLIST+41, BLDLIST+52, BLDLIST+54
>> VALMDDF	BLDLIST+3
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	BLDLIST+11, BLDLIST+54, BLDLIST+55*
>> VALMSG	HDR+2, PEXIT+1
VCTRL	HLITE+2~, HLITE+3*, HLITE+6
X	GETLIST+1~, TERMDEL+2~, XSEL+20~
>> XQORM("#"	XQORM+4*
>> XQORM("A"	XQORM+5*
>> XQORNOD(0	XSEL+2
Y	GETLIST+1~, GETLIST+7, GETLIST+9, GETLIST+10, TERMDEL+2~, TERMDEL+21, XSEL+20~, XSEL+31

Marked Items

Name	Field # of Occurrence
$T(HTEXT+IND	HELP+6

Customize PDF page

Package: Clinical Reminders