Routine: LEXU5

Package	Total	Call Graph
Lexicon Utility	2	$$CSYSIEN^LEXTRAN $$MIX^LEXXM
VA FileMan	2	$$GET1^DIQ ^DIWP

Package	Total	Caller Graph
Lexicon Utility	1	LEXU

Entry Points

Name	Comments	DBIA/ICR reference
IMPDATE(SYS)	; Get the Implementation Date for a Coding System ; ; Input ; ; SYS Coding System Abbreviation (757.03,.01) ; or pointer to file 757.03 ; ; Output ; ; $$IMPDATE Implementation Date in FileMan format ;
CSYS(SYS)	; Get Coding System Info ; ; Input ; ; SYS Coding System Abbreviation (757.03,.01) ; or pointer to file 757.03 ; ; Output ; ; A 13 piece caret (^) delimited string ; ; 1 IEN ; 2 SAB (3 character source abbreviation) ; 3 Source Abbreviation (3-7 char) (#.01) ; 4 Nomenclature (2-11 char) (#1) ; 5 Source Title (2-52 char) (#2) ; 6 Source (2-50 char) (#3) ; 7 Entries (numeric) (#4) ; 8 Unique Entries (numeric) (#5) ; 9 Inactive Version (1-20 char) (#6) ; 10 HL7 Coding System (2-40 char) (#7) ; 11 SDO Version Date (date) (757.08 #.01) ; 12 SDO Version Id (1-40 char) (757.08 #1) ; 13 Implementation Date (date) (#11) ; 14 Lookup Threshold (#12) ;
SIEN(MNEM)	; Return code system IEN for mnemonic
SMNEM(SIEN)	; Return code system mnemonic for IEN
PR(LEX,X)	; Parse Array into Specified String Lengths ; ; Input ; ; .LEX(n) Local Array of Text passed by reference ; X Length of the Text strings in the output ; ; ; Output ; ; LEX Number of lines in array LEX(n) ; LEX(n) Local Array of Text in the specified string ; Lengths ;
PRMN(LEX,X)	; Parse Minimum Character Length (DIWP Work-Around)
TM(X,Y)	; Trim Character Y - Default " "
SUBSETS(CODE,SRC,LEX)	; Get Subsets for a Code

External References

Name	Field # of Occurrence
$$GET1^DIQ	IMPDATE+12
^DIWP	PR+16
$$CSYSIEN^LEXTRAN	IMPDATE+11
$$MIX^LEXXM	SUBSETS+73, SUBSETS+83

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757 - [#757]	SUBSETS+69
^LEX(757.01 - [#757.01]	SUBSETS+78, SUBSETS+79
^LEX(757.02 - [#757.02]	SUBSETS+63, SUBSETS+64, SUBSETS+65, SUBSETS+66, SUBSETS+67
^LEX(757.03 - [#757.03]	CSYS+29, CSYS+31, CSYS+34, CSYS+35, CSYS+36, CSYS+37, CSYS+38, SIEN+2, SIEN+3, SIEN+4 , SIEN+5, SIEN+6, SMNEM+1, SMNEM+2, SUBSETS+60, SUBSETS+61, SUBSETS+62
^LEX(757.21 - [#757.21]	SUBSETS+69, SUBSETS+70, SUBSETS+72, SUBSETS+81, SUBSETS+82
^LEXT(757.2 - [#757.2]	SUBSETS+72, SUBSETS+82
^UTILITY($J	PR+14!, PR+17, PR+18, PR+19!

Label References

Name	Line Occurrences
$$SIEN	CSYS+28
$$SMNEM	CSYS+30
$$TM	PR+18, PRMN+3, PRMN+6, PRMN+12
PRMN	PR+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PR+14~
CODE	SUBSETS~, SUBSETS+58
CSIEN	IMPDATE+11~, IMPDATE+12
D	PR+14~
DIW	PR+14~
DIWF	PR+14~, PR+16*
DIWI	PR+14~
DIWL	PR+14~, PR+16*
DIWR	PR+14~
DIWT	PR+14~
DIWTC	PR+14~
DIWX	PR+14~
DN	PR+14~
FRMT	IMPDATE+11~*, IMPDATE+12
I	PR+14~
IMPDATE	IMPDATE+11~, IMPDATE+12*, IMPDATE+13
LEX	PR~, PR+14, PR+15, PR+17!, PR+19*, PRMN~, PRMN+15!, SUBSETS~, SUBSETS+58!
LEX(	PR+16, PR+18, PRMN+2, PRMN+3, PRMN+15, SUBSETS+74, SUBSETS+75, SUBSETS+84, SUBSETS+85, SUBSETS+86
LEX(" "	PR+15
LEXC	PR+14~, PR+15, PR+17, PR+18, PR+19, PRMN+5~, PRMN+7~, PRMN+9~, PRMN+13
LEXEF	SUBSETS+64~, SUBSETS+65*, SUBSETS+66
LEXEFF	CSYS+26~, CSYS+34*, CSYS+35, CSYS+39
LEXEX	SUBSETS+58~, SUBSETS+69*, SUBSETS+70
LEXFND	SUBSETS+58~, SUBSETS+60, SUBSETS+69, SUBSETS+75, SUBSETS+76, SUBSETS+77, SUBSETS+85, SUBSETS+86, SUBSETS+87, SUBSETS+88 , SUBSETS+89
LEXHS	SUBSETS+64~, SUBSETS+66*, SUBSETS+67
LEXI	PR+14~, PR+16, PR+17, PR+18, PRMN+1~, PRMN+15*
LEXIEN	CSYS+26~, CSYS+28, CSYS+29, CSYS+30, CSYS+31, CSYS+34, CSYS+35, CSYS+36, CSYS+37, CSYS+38 , CSYS+39, SUBSETS+58~, SUBSETS+70, SUBSETS+74, SUBSETS+78, SUBSETS+79, SUBSETS+80, SUBSETS+81, SUBSETS+84
LEXIENS	SUBSETS+58~
LEXIENS(	SUBSETS+79*, SUBSETS+80
LEXIENS(0	SUBSETS+80
LEXIMP	CSYS+26~, CSYS+37*, CSYS+39
LEXL	PRMN+1~, PRMN+2, PRMN+3
LEXLEN	PR+14~, PR+15*, PR+16
LEXMC	SUBSETS+58~, SUBSETS+62, SUBSETS+63, SUBSETS+68, SUBSETS+69, SUBSETS+78
LEXMX	PRMN+1~*, PRMN+4, PRMN+8, PRMN+10, PRMN+11
LEXN	PRMN+1~!
LEXN(	PRMN+5, PRMN+9, PRMN+13*, PRMN+15
LEXN(" "	PRMN+5, PRMN+9, PRMN+13
LEXND	CSYS+26~, CSYS+31, CSYS+32, CSYS+33, CSYS+39, SUBSETS+64~, SUBSETS+68, SUBSETS+71~, SUBSETS+72, SUBSETS+73 , SUBSETS+82~*, SUBSETS+83
LEXOUT	CSYS+26~, CSYS+39*, CSYS+40
LEXPSN	PRMN+7~, PRMN+11*, PRMN+12
LEXREM	PRMN+7~, PRMN+12*, PRMN+14
LEXSA	SUBSETS+71~, SUBSETS+73, SUBSETS+74, SUBSETS+75, SUBSETS+76, SUBSETS+82~, SUBSETS+83, SUBSETS+84, SUBSETS+85, SUBSETS+86* , SUBSETS+87
LEXSF	SUBSETS+71~, SUBSETS+73, SUBSETS+74, SUBSETS+82~, SUBSETS+83, SUBSETS+84
LEXSI	SUBSETS+71~, SUBSETS+72, SUBSETS+74, SUBSETS+82~, SUBSETS+84
LEXSIEN	SUBSETS+58~, SUBSETS+62, SUBSETS+63, SUBSETS+64, SUBSETS+65, SUBSETS+66, SUBSETS+67, SUBSETS+70, SUBSETS+72, SUBSETS+74 , SUBSETS+81, SUBSETS+82, SUBSETS+84
LEXSO	SUBSETS+58~*, SUBSETS+59, SUBSETS+63
LEXSRC	SUBSETS+58~, SUBSETS+60, SUBSETS+61, SUBSETS+62, SUBSETS+64
LEXST	SUBSETS+64~, SUBSETS+67*
LEXSTO	PRMN+7~, PRMN+12*, PRMN+13
LEXSTR	SUBSETS+71~, SUBSETS+75, SUBSETS+76, SUBSETS+77, SUBSETS+86, SUBSETS+87, SUBSETS+88
LEXSYS	CSYS+26~, CSYS+27, CSYS+28, CSYS+30
LEXTHR	CSYS+26~, CSYS+38*, CSYS+39
LEXTX	PRMN+3~, PRMN+4, PRMN+5, PRMN+6, PRMN+7, PRMN+8, PRMN+9, PRMN+10, PRMN+11, PRMN+12 , PRMN+14
LEXVER	CSYS+26~, CSYS+35, CSYS+36, CSYS+39
MNEM	SIEN~, SIEN+1, SIEN+2, SIEN+3, SIEN+4, SIEN+5, SIEN+6
SIEN	SMNEM~, SMNEM+1, SMNEM+2
SRC	SUBSETS~, SUBSETS+59, SUBSETS+60, SUBSETS+61
SYS	IMPDATE~, IMPDATE+11, CSYS~, CSYS+27
U	IMPDATE+12
X	PR~, PR+15, PR+16, PRMN~, PRMN+1, TM~, TM+1, TM+2*, TM+3
Y	TM~, TM+1*, TM+2
Z	PR+14~

Customize PDF page

Package: Lexicon Utility

Routine: LEXU5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: