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: PXLEXS

Package: PCE Patient Care Encounter

Routine: PXLEXS


Information

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

Source Information

Source file <PXLEXS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lexicon Utility 3 $$TAX^LEX10CS  $$GETFSN^LEXTRAN1  $$CSYS^LEXU  
List Manager 3 EN^VALM  (CLEAR,FULL)^VALM1  (CLEAN,CNTRL,FLDCTRL,KILL)^VALM10  
VA FileMan 2 BROWSE^DDBR  ^DIR  
Clinical Reminders 1 ($$LMFMTSTR,COLFMT)^PXRMTEXT  
Kernel 1 $$FMTE^XLFDT  
PCE Patient Care Encounter 1 (BLDLIST,INITMPG,REMX,SELX)^PXLEXS  

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: 14

Package Total Caller Graph
PCE Patient Care Encounter 13 PXCE LEXICON REMOVE CODE(S)  PXCE LEXICON SELECT CODE(S)  PXCE LEXICON SELECT ENTRY  PXCE LEXICON SELECT MENU  PXCE STANDARD CODES SELECT  PXCEPOV1  PXCESC  PXCPTAPI  
PXEDUSM  PXEXSM  PXHFSM  PXLEXS  PXVSCSM  
Kernel 1 ^ORD(101  

Entry Points

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.

External References

Name Field # of Occurrence
BROWSE^DDBR HELP+9
^DIR GETLIST+7, XSEL+29
$$TAX^LEX10CS LEXLIST+7
$$GETFSN^LEXTRAN1 SCTDESC+11
$$CSYS^LEXU BLDLIST+18
BLDLIST^PXLEXS ENTRY+2
INITMPG^PXLEXS ENTRY+1, EXIT+2
REMX^PXLEXS XSEL+36
SELX^PXLEXS XSEL+35
$$LMFMTSTR^PXRMTEXT BLDLIST+3
COLFMT^PXRMTEXT FORMAT+7
EN^VALM GETCODE+10, GETCODES+8
CLEAR^VALM1 EXIT+6, XSEL+33
FULL^VALM1 EXIT+3, XSEL+20
CLEAN^VALM10 EXIT+4
CNTRL^VALM10 HLITE+6
FLDCTRL^VALM10 HLITE+8
KILL^VALM10 BLDLIST+6, BLDLIST+13, EXIT+5
$$FMTE^XLFDT FORMAT+4, FORMAT+5

Interaction Calls

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
Routine Call
  • DIR
  • Line Location:
    • GETLIST+7
    • XSEL+29
Routine Call
  • VALM
  • Line Location:
    • GETCODE+10
    • GETCODES+8

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("PXLEX" LEXLIST+5!, LEXLIST+9!, LEXLIST+13, LEXLIST+15, LEXLIST+17, LEXLIST+18, LEXLIST+20, LEXLIST+25!
^TMP("PXLEXL" ADDSEL+2, ADDSEL+3*, BLDLIST+7!, BLDLIST+14!, BLDLIST+24*, BLDLIST+29*, BLDLIST+32*, BLDLIST+33*, BLDLIST+34*, BLDLIST+35*
, BLDLIST+36*, EXIT+1, GETLIST+2, HLITE+4, HLITE+5, INITMPG+1!, REM+1!, XQORM+2, XSEL+8, XSEL+10
^TMP("PXLEXT" BLDLIST+8, BLDLIST+9, BLDLIST+10, BLDLIST+11, BLDLIST+19, EXIT+1*, GETCODE+3!, GETCODE+4*, GETCODE+5*, GETCODE+6*
, GETCODE+7*, GETCODE+9*, GETCODE+11, GETCODE+12, GETCODE+13!, GETCODES+3!, GETCODES+4*, GETCODES+5*, GETCODES+6*, GETCODES+7*
, GETCODES+9, GETCODES+10!, GETLIST+5, HELP+4, XSEL+13
^TMP($J SCTDESC+3!, SCTDESC+16*, SCTDESC+18, SCTDESC+20, SCTDESC+22*, SCTDESC+23*, SCTDESC+25, SCTDESC+26!

Label References

Name Line Occurrences
ADDSEL SELL+7, SELX+5
FORMAT BLDLIST+30
GETLIST REML+3, SELL+3
HLITE ADDSEL+4, REM+2
LEXLIST BLDLIST+15
REM REML+7, REMX+5
SCTDESC LEXLIST+10
XQORM ENTRY+3, PEXIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTDT FORMAT+2~, FORMAT+3*, FORMAT+4*, FORMAT+6, LEXLIST+2~, LEXLIST+19*, LEXLIST+23, LEXLIST+24, SCTDESC+2~, SCTDESC+7*
, SCTDESC+11
ACTIVE BLDLIST+1~, BLDLIST+11*, BLDLIST+15, GETCODE~, GETCODE+9, GETCODES~, GETCODES+7, LEXLIST~, LEXLIST+7
CODE ADDSEL+1~, ADDSEL+2*, ADDSEL+3, BLDLIST+1~, BLDLIST+28*, BLDLIST+29, GETCODE+2~, GETCODE+12*, GETCODE+14, LEXLIST+2~
, LEXLIST+21*, LEXLIST+23, SCTDESC+2~, SCTDESC+8*, SCTDESC+11
CODEI LEXLIST+2~, 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
CODELIST GETCODES~, GETCODES+9*
CODESYS BLDLIST+1~, BLDLIST+8*, BLDLIST+15, BLDLIST+18, GETCODE~, GETCODE+4, GETCODES~, GETCODES+4, LEXLIST~, LEXLIST+7
, LEXLIST+10
CODESYSP BLDLIST+1~, BLDLIST+18*, BLDLIST+22
DDS HELP+1~, HELP+5*
DESC BLDLIST+1~, SCTDESC+2~, SCTDESC+9*, SCTDESC+15*, SCTDESC+16, SCTDESC+17*, SCTDESC+18*, SCTDESC+20, SCTDESC+23
DIR GETLIST+1~, XSEL+23~
DIR("?" XSEL+28*
DIR("A" XSEL+26*
DIR("B" XSEL+27*
DIR(0 GETLIST+6*, XSEL+24*, XSEL+25*
DIR0 GETLIST+1~, GETLIST+5*, GETLIST+6, HELP+1~
DIROUT XSEL+23~, XSEL+30
DIRUT XSEL+23~, XSEL+30
DONE HELP+1~, HELP+5*, HELP+6, HELP+8*
DTOUT XSEL+23~, XSEL+31
DUOUT XSEL+23~, XSEL+31
ENUM ADDSEL~, ADDSEL+2, ADDSEL+3, ADDSEL+4, BLDLIST+1~, BLDLIST+29*, BLDLIST+33, BLDLIST+34, HLITE~, HLITE+4
, HLITE+5, REM~, REM+1, REM+2, REMX+2~, REMX+4*, REMX+5, SELX+2~, SELX+4*, SELX+5
, XSEL+1~, XSEL+7*, XSEL+8, XSEL+9
EVENTDT BLDLIST+10*, BLDLIST+15, GETCODE~, GETCODE+6, GETCODES~, GETCODES+6, LEXLIST~, LEXLIST+7
FMTSTR BLDLIST+1~, BLDLIST+3*, BLDLIST+30, 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
HTEXT HELP+1~, HELP+4*
INACTDT FORMAT+2~, FORMAT+3*, FORMAT+5*, FORMAT+6, LEXLIST+2~, LEXLIST+19*, LEXLIST+23, LEXLIST+24
IND BLDLIST+1~, BLDLIST+27*, BLDLIST+28, BLDLIST+30, HELP+1~, HELP+6*, HELP+7, HELP+8, LEXLIST+2~, LEXLIST+16*
, LEXLIST+17*, LEXLIST+18, LEXLIST+20, LEXLIST+23, REMX+2~, REMX+3*, REMX+4, SELX+2~, SELX+3*, SELX+4
, XSEL+1~, XSEL+6*, XSEL+7
INUM GETLIST+1~, GETLIST+11*, GETLIST+12
IOF LEXLIST+4
>> IOINHI HLITE+3
>> IOINORM HLITE+3, HLITE+6
>> IORVOFF HLITE+8
ITEM GETLIST+1~, GETLIST+15*
JND BLDLIST+1~, BLDLIST+31*, BLDLIST+32
LELEM GETLIST+1~, GETLIST+12*, GETLIST+13, GETLIST+14
LEND GETLIST+1~, GETLIST+14*, GETLIST+15
LINE HLITE+2~, HLITE+6*
LIST GETLIST~, REMX~, REMX+3, REMX+4, SELX~, SELX+3, SELX+4, XSEL+1~, XSEL+2*, XSEL+4*
, XSEL+6, XSEL+7, XSEL+13, XSEL+35, XSEL+36
LIST( GETLIST+9*, GETLIST+13*, GETLIST+15*
LIST(1 GETLIST+4*
LSTART GETLIST+1~, GETLIST+14*, GETLIST+15
LVALID XSEL+1~, XSEL+5*, XSEL+12*, XSEL+15*, XSEL+17
MODE HLITE~, HLITE+3, HLITE+8
NCODES BLDLIST+2~, BLDLIST+15, BLDLIST+22, BLDLIST+24, BLDLIST+35, GETLIST+1~, GETLIST+2*, GETLIST+3, GETLIST+4, GETLIST+5
, LEXLIST~, LEXLIST+8*, LEXLIST+9*, XQORM+1~, XQORM+2*, XQORM+3, XQORM+4
NL BLDLIST+2~, BLDLIST+30, BLDLIST+31, FORMAT~, FORMAT+7
NLINES BLDLIST+2~, BLDLIST+15, BLDLIST+27, LEXLIST~, LEXLIST+9*, LEXLIST+12*, 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~
NUID BLDLIST+2~
NUM BLDLIST+2~, BLDLIST+28*, BLDLIST+29, LEXLIST+2~, LEXLIST+12*, LEXLIST+16*, LEXLIST+23, SCTDESC+2~, SCTDESC+17*, SCTDESC+21*
, SCTDESC+22, SCTDESC+23
OPTION XSEL+23~, XSEL+32*, XSEL+35, XSEL+36
OUTPUT BLDLIST+2~, BLDLIST+30, FORMAT~, FORMAT+7
OUTPUT( BLDLIST+32
RESULT LEXLIST+3~, LEXLIST+7*, LEXLIST+8
SDESC LEXLIST+3~, LEXLIST+21*, LEXLIST+23, LEXLIST+24
SEL REML+1~, REML+6*, REML+7*, SELL+1~, SELL+6*, SELL+7*
SELECTED GETCODE+2~, GETCODE+11*, GETCODE+12
SELLIST REML+1~, REML+3, REML+5, SELL+1~, SELL+3, SELL+5
SELLIST( REML+7, SELL+7
SRC LEXLIST+3~, LEXLIST+11*, LEXLIST+13*, 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
SRCHTERM GETCODE~, GETCODE+5, GETCODES~, GETCODES+5
START BLDLIST+2~, BLDLIST+29*, BLDLIST+34, HLITE+2~, HLITE+4*, HLITE+6, HLITE+8
STOP HLITE+2~, HLITE+5*, HLITE+6
TAXIEN BLDLIST+2~
TEMP LEXLIST+3~, LEXLIST+18*, LEXLIST+19, LEXLIST+20*, LEXLIST+21
TERM BLDLIST+2~, BLDLIST+9*, BLDLIST+15, LEXLIST~, LEXLIST+7
TEXT BLDLIST+2~, BLDLIST+15, BLDLIST+19*, BLDLIST+20*, BLDLIST+21, FORMAT~, FORMAT+3, FORMAT+6*, FORMAT+7, HELP+1~
, LEXLIST~
TEXT( BLDLIST+28, BLDLIST+30, HELP+7*, HELP+8!, LEXLIST+23*, LEXLIST+24*
U BLDLIST+22, BLDLIST+28, BLDLIST+34, FORMAT+3, FORMAT+6, HLITE+4, HLITE+5, LEXLIST+19, LEXLIST+21, LEXLIST+23
, LEXLIST+24, SCTDESC+7, SCTDESC+8, SCTDESC+9, SCTDESC+23, XQORM+4, XSEL+24
UID BLDLIST+2~
>> VALMBCK EXIT+7*, HELP+10*, REML+8*, SELL+8*, XSEL+17*, XSEL+30*, XSEL+31*, XSEL+38*
>> VALMCNT BLDLIST+24*, BLDLIST+26*, BLDLIST+29, BLDLIST+32*, BLDLIST+33, BLDLIST+34, BLDLIST+36, XSEL+8
>> VALMDDF BLDLIST+3
>> VALMHDR(1 BLDLIST+21*, HDR+1*
>> VALMHDR(2 BLDLIST+22*, BLDLIST+24*
>> VALMSG HDR+2*, PEXIT+1*
VCTRL HLITE+2~, HLITE+3*, HLITE+6
X GETLIST+1~, XSEL+23~
>> XQORM("#" XQORM+4*
>> XQORM("A" XQORM+5*
>> XQORNOD(0 XSEL+2
Y GETLIST+1~, GETLIST+8, GETLIST+9, GETLIST+11, GETLIST+12, XSEL+23~, XSEL+32

Marked Items

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