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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEXU5

Package: Lexicon Utility

Routine: LEXU5


Information

LEXU5 ;ISL/KER - Miscellaneous Lexicon Utilities ;05/23/2017

Source Information

Source file <LEXU5.m>

Call Graph

Call Graph

Call Graph Total: 4

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

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

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All