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 |  All
Print Page as PDF
Routine: LEXTOKN2

Package: Lexicon Utility

Routine: LEXTOKN2


Information

LEXTOKN2 ;ISL/KER - Parse term into words - Special Case ;04/21/2014

Source Information

Source file <LEXTOKN2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lexicon Utility 1 LEXTOKN  

Entry Points

Name Comments DBIA/ICR reference
ORD ; Arrange in Frequency Order
;
; Input
;
; ^TMP("LEXTKN",$J,#,WORD)=""
;
; Global array containing words parsed from text from
; API PTX^LEXTOKN
;
; "DIABETES MELLITUS KETOACIDOSIS" Parsed as:
;
; ^TMP("LEXTKN",$J,0)=3
; ^TMP("LEXTKN",$J,1,"DIABETES")=
; ^TMP("LEXTKN",$J,2,"MELLITUS")=
; ^TMP("LEXTKN",$J,3,"KETOACIDOSIS")=
;
; Output
;
; ^TMP("LEXTKN",$J,#,WORD)=FREQ
;
; Global array containing words parsed from text arranged
; in order of the frequency of use, the least used word is
; first and the most frequently used word is last.
SWAP(X,LEX1,LEX2) ; Swap text LEX1 for LEX2 in X
;
; Input
;
; X Text string
; LEX1 Word to remove in string (replace)
; LEX2 Word to insert in string (with)
;
; Output
;
; X Text string without LEX1
;
SW(X) ; Special Case Word Swap
ST ; Show ^TMP("LEXTKN")

External References

Name Field # of Occurrence
$$UP^XLFSTR SW+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LEXNN,"=",@LEXNN
  • Line Location: ST+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.01 - [#757.01] ORD+38
^TMP("LEXTKN" ORD+36, ORD+37, ORD+39!, ORD+41*

Label References

Name Line Occurrences
$$SWAP SW+11, SW+13, SW+18, SW+20, SW+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
LEX1 SWAP~, SWAP+12*, SWAP+13, SWAP+14, SWAP+15, SWAP+16, SWAP+17, SWAP+21, SWAP+24
LEX2 SWAP~, SWAP+13*, SWAP+14, SWAP+17, SWAP+21, SWAP+24
LEXA ORD+36~
LEXA( ORD+38*, ORD+39, ORD+40
LEXC SWAP+12~, SWAP+16~*, ORD+36~, ORD+41~*
LEXF ORD+36~, ORD+38~*
LEXI SW+9~, SW+10*, SW+11, SW+12*, SW+13, SW+16~, SW+17*, SW+18, SW+19*, SW+20
, SW+21*, SW+22, ORD+36~*, ORD+37, ORD+39*, ORD+40, ORD+41
LEXLC SWAP+12~, SWAP+18*, SWAP+21, SWAP+24
LEXLOW SW+8, SW+15, ST+1~
LEXN SWAP+19~, SWAP+20~, SWAP+21*, SWAP+23, SWAP+24*, SWAP+26
LEXNC ST+1~*, ST+2
LEXNN ST+1~*, ST+2*
LEXNOT SWAP+12~, SWAP+14*
LEXO SWAP+19~, SWAP+20~, SWAP+21*, SWAP+22, SWAP+23, SWAP+24*, SWAP+25, SWAP+26
LEXT ORD+37~*, ORD+38, ORD+40~*, ORD+41
LEXTC SWAP+12~, SWAP+19*, SWAP+21
LEXTXT SW+7~*, SW+9*, SW+11*, SW+13*, SW+14, SW+16*, SW+18*, SW+20*, SW+22*, SW+23
, SWAP+12~*, SWAP+13, SWAP+14, SWAP+15, SWAP+16, SWAP+17*, SWAP+22, SWAP+23*, SWAP+25, SWAP+26*
, SWAP+27
X SW~, SW+7*, SW+8, SW+9*, SW+14*, SW+16*, SW+23*, SW+24, SWAP~, SWAP+12*
, SWAP+13, SWAP+14*, SWAP+27*, SWAP+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All