Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PXRMLEXL

Package: Clinical Reminders

Routine: PXRMLEXL


Information

PXRMLEXL ;SLC/PKR - List Manager routines for Taxonomies and Lexicon. ;08/16/2018

Source Information

Source file <PXRMLEXL.m>

Call Graph

Call Graph

Call Graph Total: 14

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

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.

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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!

Label References

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

Marked Items

Name Field # of Occurrence
$T(HTEXT+IND HELP+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All