Routine: LEXTRAN

Package	Total	Call Graph
Lexicon Utility	7	INFO^LEXA EN^LEXA1 CONFIG^LEXSET $$STATCHK^LEXSRC2 $$GETSYN^LEXTRAN1 ($$CSYS,VDT)^LEXU $$CSYS^LEXU3
Kernel	2	$$DT^XLFDT $$UP^XLFSTR
VA Fileman	2	^%DT $$GET1^DIQ

Package

Total

Call Graph

Lexicon Utility

INFO^LEXA EN^LEXA1 CONFIG^LEXSET $$STATCHK^LEXSRC2 $$GETSYN^LEXTRAN1 ($$CSYS,VDT)^LEXU $$CSYS^LEXU3

Kernel

$$DT^XLFDT $$UP^XLFSTR

VA Fileman

^%DT $$GET1^DIQ

Package	Total	Caller Graph
Lab Service	1	LRSRVR6
Lexicon Utility	1	LEXU3
Problem List	1	GMPLUTL2

Package

Total

Caller Graph

Lab Service

LRSRVR6

Lexicon Utility

LEXU3

Problem List

GMPLUTL2

Entry Points

Name	Comments	DBIA/ICR reference
VERSION(SRC,CODE,VDT)	; Get the Code Version Number	ICR #5011 Status: Active Usage: Supported
TXT4CS(TEXT,SRC,LEXRAY,SUB)	; Is text valid for an SCT code	ICR #4914 Status: Active Usage: Supported
GETINFO	; Get Information for a Code
INTDAT(X)	; Convert date from external format to VA internal format
CSYSMNEM(SIEN)	; Return code system mnemonic for IEN
CSYSIEN(MNEM)	; Return code system IEN for mnemonic
CODE(CODE,SRC,CDT,LEXRAY)	; Get the Concept for a Code and Source	ICR #4912 Status: Active Usage: Supported
TEXT(TEXT,CDT,SUB,SRC,LEXRAY)	; Get the Concept for a text and source ; ; Input ; ; TEXT The search string (required) ; CDT Effective date (optional, default is TODAY) ; SUB Subset or 'hierarchy' (optional) ; SRC Code System source abbreviation ; LEXRAY Output array (optional, defaults to 'LEX') ; ; Output ; ; LEX or passed array name - an array containing information ; about the code ; LEX(0) - a five piece string: ; 1. code ; 2. hierarchy ; 3. version ; 4. legacy code ; 5. code status ; ; LEX("F") fully specified name ^ internal entry number ; LEX("P") preferred term ^ internal entry number ; LEX("S",n) synonyms (n is the nth synonym) ^ internal entry number ; ; otherwise ; "-1^error text" ; ; example of LEX array: ; LEX(0)="67922002^Substance^20050701^T-C2500^1" ; LEX("F")="Serum (Substance)" ; LEX("P")="Serum" ;	ICR #4913 Status: Active Usage: Supported

External References

Name	Field # of Occurrence
^%DT	INTDAT+2
$$GET1^DIQ	GETINFO+4
INFO^LEXA	TEXT+50
EN^LEXA1	TEXT+47
CONFIG^LEXSET	TEXT+46
$$STATCHK^LEXSRC2	CODE+69, TEXT+57, VERSION+23
$$GETSYN^LEXTRAN1	GETINFO+3
$$CSYS^LEXU	CODE+50, CODE+58, VERSION+21, CSYSIEN+2, CSYSMNEM+1
VDT^LEXU	CODE+52
$$CSYS^LEXU3	TEXT+36
$$DT^XLFDT	CODE+55, TEXT+40, VERSION+18
$$UP^XLFSTR	TXT4CS+35, TXT4CS+38, TXT4CS+39

FileNo	Call Tags
^LEX(757.02 - [#757.02]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757.01 - [#757.01]	TXT4CS+35, TXT4CS+38, TXT4CS+39, TXT4CS+45, TXT4CS+60
^LEX(757.011 - [#757.011]	TXT4CS+60
^LEX(757.02 - [#757.02]	CODE+64, CODE+65, TXT4CS+47, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61
^LEX(757.03 - [#757.03]	CODE+59, TEXT+37, VERSION+22, VERSION+25, VERSION+26, VERSION+27, CSYSMNEM+2, CSYSMNEM+3
^LEXT(757.2 - [#757.2]	TXT4CS+32, TXT4CS+55
^TMP("LEXSCH"	CODE+51, CODE+68!, TEXT+44!

Name	Line Occurrences
$$CODE	TXT4CS+53
$$CSYSIEN	TXT4CS+29
$$CSYSMNEM	TXT4CS+29, TXT4CS+33, TXT4CS+48
$$INTDAT	CODE+53, TEXT+38, VERSION+16
$$VERSION	GETINFO+6
GETINFO	CODE+72, CODE+75, TEXT+59

Name	Field # of Occurrence
^(0	CODE+51

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	INTDAT+1~
CDT	CODE~, CODE+47, TEXT~, TEXT+34
CIEN	TXT4CS+26~, TXT4CS+47*, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61
CODE	CODE~, CODE+47, VERSION~, VERSION+15, TXT4CS+26~, TXT4CS+49*, TXT4CS+53, TXT4CS+59, TXT4CS+61
CODEC	TXT4CS+26~, TXT4CS+59*, TXT4CS+61
DIC	TEXT+33~
EXIEN	TXT4CS+26~, TXT4CS+37, TXT4CS+38, TXT4CS+39, TXT4CS+41, TXT4CS+44, TXT4CS+45
EXP	TXT4CS+26~
EXP(	TXT4CS+39*, TXT4CS+44
EXPTYP	TXT4CS+26~, TXT4CS+60*, TXT4CS+61
FINDS	TXT4CS+26~, TXT4CS+43, TXT4CS+58, TXT4CS+64
FOUND	TXT4CS+26~, TXT4CS+43, TXT4CS+57, TXT4CS+64
HIER	TXT4CS+26~, TXT4CS+50, TXT4CS+54, TXT4CS+56
HIERNAM	TXT4CS+26~, TXT4CS+50, TXT4CS+55, TXT4CS+56
I	GETINFO+1~
LAR	TXT4CS+26~, TXT4CS+52!, TXT4CS+53*
LAR(0	TXT4CS+54
LEX	CODE+67!, CODE+73!, CODE+76!, GETINFO+3, TEXT+33!, TEXT+44!, TEXT+60!, TXT4CS+62, TXT4CS+63!
LEX("F"	GETINFO+5, GETINFO+9
LEX("SEL"	GETINFO+10!, TEXT+52, TEXT+53, TEXT+54, TEXT+55
LEX(0	GETINFO+7, GETINFO+8
LEXASAB	CODE+57~, CODE+61*, CODE+65
LEXCIEN	CODE+57~, CODE+62, CODE+63, CODE+64, CODE+65, GETINFO+4, TEXT+43~, TEXT+56, TEXT+58
LEXCODE	CODE+47~, CODE+48, CODE+64, CODE+66, CODE+69, CODE+70, CODE+77, GETINFO+3, GETINFO+6, GETINFO+7 , TEXT+43~, TEXT+51, TEXT+53, TEXT+54, TEXT+55, TEXT+56, TEXT+57, VERSION+15~*, VERSION+23
LEXFSN	GETINFO+1~
LEXHIER	GETINFO+1~, GETINFO+5, GETINFO+7, GETINFO+9
LEXID	TEXT+33~, TEXT+52*, TEXT+53
LEXIEN	CSYSIEN+1~, CSYSIEN+2*
LEXLGY	GETINFO+1~, GETINFO+4*, GETINFO+8
LEXNOM	TEXT+33~, TEXT+36, TEXT+37, TEXT+51, TEXT+52
LEXPIEN	CODE+57~, CODE+71, CODE+74, TEXT+43~, TEXT+49*, TEXT+50, TEXT+61
LEXRAY	CODE~, CODE+56!, CODE+73, CODE+76, TEXT~, TEXT+42!, TEXT+60, TXT4CS~, TXT4CS+30!, TXT4CS+63
LEXSCNM	CODE+57~, CODE+60*, CODE+66, CODE+70
LEXSEP	GETINFO+1~
LEXSIEN	CODE+57~, CODE+58*, CODE+59
LEXSRC	CODE+47~, CODE+49, CODE+50, CODE+58, CODE+69, GETINFO+2, GETINFO+3, GETINFO+6, TEXT+33~, TEXT+34 , TEXT+36, TEXT+37, TEXT+41, TEXT+46, TEXT+57, TEXT+58, VERSION+15~, VERSION+19, VERSION+21, VERSION+23 , TXT4CS+25~, TXT4CS+28, TXT4CS+29, TXT4CS+33, TXT4CS+48
LEXST	CODE+57~, CODE+59*, CODE+60, CODE+61
LEXSTAT	CODE+57~, CODE+67!, CODE+69, CODE+70, GETINFO+8, TEXT+43~, TEXT+51, TEXT+57, TEXT+58, VERSION+20~ , VERSION+23, VERSION+24
LEXSTAT(1	CODE+71, CODE+74
LEXSTAT(2	TEXT+58
LEXSUB	TEXT+33~, TEXT+34, TEXT+41, TEXT+46, TXT4CS+25~, TXT4CS+31, TXT4CS+32, TXT4CS+51, TXT4CS+55, TXT4CS+56
LEXTD	TEXT+33~
LEXTEXT	TEXT+33~, TEXT+34, TEXT+35, TEXT+45, TXT4CS+25~, TXT4CS+27, TXT4CS+35, TXT4CS+38, TXT4CS+39
LEXVDT	CODE+47~, CODE+51, CODE+52, CODE+53, CODE+54, CODE+55, CODE+69, CODE+70, GETINFO+3, GETINFO+6 , TEXT+33~, TEXT+34, TEXT+38, TEXT+39, TEXT+40, TEXT+46, TEXT+57, VERSION+15~, VERSION+16, VERSION+17 , VERSION+18, VERSION+23, VERSION+25
LEXVER	GETINFO+1~, GETINFO+6*, GETINFO+7
LEXW	TXT4CS+26~, TXT4CS+42!, TXT4CS+62
LEXW(	TXT4CS+59, TXT4CS+61*
MCIEN	TXT4CS+26~, TXT4CS+45*, TXT4CS+47
MNEM	CSYSIEN~, CSYSIEN+1, CSYSIEN+2
N	GETINFO+1~
SIEN	VERSION+20~, VERSION+21, VERSION+22, VERSION+25, VERSION+26, VERSION+27, CSYSMNEM~, CSYSMNEM+1, CSYSMNEM+2, CSYSMNEM+3
SRC	CODE~, CODE+47, TEXT~, TEXT+34, VERSION~, VERSION+15, TXT4CS~, TXT4CS+25
SUB	TEXT~, TEXT+34, TXT4CS~, TXT4CS+25
TEXT	TEXT~, TEXT+34, TXT4CS~, TXT4CS+25
U	CODE+60, CODE+61, CODE+71, CODE+74, GETINFO+7, GETINFO+8, TEXT+58, TXT4CS+45, TXT4CS+48, TXT4CS+49 , TXT4CS+54, TXT4CS+55, TXT4CS+60
VALCODE	CODE+57~, CODE+62, CODE+63, CODE+65, CODE+66
VDAT	VERSION+20~, VERSION+25*, VERSION+26
VDT	VERSION~, VERSION+15
VIEN	VERSION+20~, VERSION+26*, VERSION+27
X	TEXT+43~, TEXT+45*, INTDAT~
Y	TEXT+43~, TEXT+48, TEXT+49, INTDAT+1~, INTDAT+3

Customize PDF page

Package: Lexicon Utility

Routine: LEXTRAN

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: