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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRSCT

Package: Lab Service

Routine: LRSCT


Information

LRSCT ;DALOI/STAFF - SNOMED SCT UTILITIES ;01/10/11 10:46

Source Information

Source file <LRSCT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ($$DT,$$FMTE)^XLFDT  ($$TRIM,$$UP)^XLFSTR  
Lexicon Utility 1 ($$CODE,$$TXT4CS)^LEXTRAN  
VA FileMan 1 $$GET1^DIQ  

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
Automated Lab Instruments 7 LA7CHKF1  LA7SRPT1  LA7SRPT2  LA7SRPT4  LA7VIN71  LA7VLCM3  NON-VA ORDER SNOMED CODES  
Lab Service 7 LRERT  LRERT1  LRSCTF  LRSCTX  LRSCTX1  LRSRVR6  LRXREF  

Entry Points

Name Comments DBIA/ICR reference
CODE(LRCODE,LRSRC,LRDT,LRARR) ;
SCTOK(SCT,DATE,LROUT) ;
; Is this SCT code valid?
; Inputs
; SCT : The SCT Code
; DATE :<opt> The date to use for the lookup (defaults to today)
; LROUT :<opt><byref> Holds the SCT code info. See Outputs.
GETSCT(LRFILE,LRIEN) ;
; Returns the SCT code for the File/record specified
; Inputs
; LRFILE: File # (61, 62, 61.2)
; LRIEN: IEN of file entry
FINDSCT(LRFILE,LRSCT) ;
; Finds an SCT code in the specified file.
; Inputs
; LRFILE: File number
; LRSCT: The SCT code
; Outputs
; "IEN^external value" of the entry from the specified file.
GETPREF(SCT) ;
; Returns the Preferred Name for an SCT code
GETFSN(SCT) ;
; Returns fully specified SCT term
TXT4CS(LRTXT,LRCS,LRARR,LRHIER) ;
DELHIER(TEXT) ;
; Removes any SCT Hierachy text from TEXT
; Inputs
; TEXT: The text to check
; Outputs -- The text less the SCT Hierarchy (if applicable)
LEX6247(R6247,LROUT) ;
; Gets SCT/LEX info for a File #62.47 entry
; Inputs
; R6247: File #62.47 IEN
; LROUT:<byref><opt>
; Outputs
; Returns the #64.061 IEN of the #62.47 entry queried.
; Also returns aditional info in the LROUT array:
; LROUT("SCTIEN")
; LROUT("SCTTOP")
; LROUT("LEXABRV")

External References

Name Field # of Occurrence
$$GET1^DIQ GETSCT+12
$$CODE^LEXTRAN CODE+20, CODE+37
$$TXT4CS^LEXTRAN TXT4CS+17
$$DT^XLFDT CODE+18, SCTOK+16
$$FMTE^XLFDT CODE+29, CODE+34
$$TRIM^XLFSTR DELHIER+8, DELHIER+15, DELHIER+18
$$UP^XLFSTR DELHIER+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] FINDSCT+16, FINDSCT+17
^LAB(61.2 - [#61.2] FINDSCT+20, FINDSCT+21
^LAB(62 - [#62] FINDSCT+24, FINDSCT+25
^LAB(62.47 - [#62.47] LEX6247+19
^LAB(64.061 - [#64.061] DELHIER+23, DELHIER+24, LEX6247+22, LEX6247+25, LEX6247+31

Label References

Name Line Occurrences
$$CODE SCTOK+18, GETPREF+4, GETFSN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA FINDSCT+8~, FINDSCT+14*, FINDSCT+17*, FINDSCT+21*, FINDSCT+25*, FINDSCT+27, GETPREF+2~, GETFSN+2~, LEX6247+12~, LEX6247+19*
, LEX6247+20, LEX6247+22*, LEX6247+23, LEX6247+25*, LEX6247+26, LEX6247+31*, LEX6247+32
DATA("F" GETFSN+5
DATA("P" GETPREF+5
DATE SCTOK~, SCTOK+14*, SCTOK+16*, SCTOK+18
DIERR CODE+15~, SCTOK+12~, GETSCT+6~, TXT4CS+12~
DT CODE+35, CODE+37
FSN GETFSN+2~, GETFSN+3*, GETFSN+5*, GETFSN+6
LEX CODE+15~, TXT4CS+12~, TXT4CS+20
LRARR CODE~, CODE+16*, CODE+17, CODE+20, CODE+36, CODE+37, TXT4CS~, TXT4CS+16!, TXT4CS+20*
LRCODE CODE~, CODE+20, CODE+37
LRCS TXT4CS~, TXT4CS+14*, TXT4CS+17
LRDT CODE~, CODE+18*, CODE+20, CODE+35
LRFILE GETSCT~, GETSCT+8, GETSCT+9, GETSCT+10, GETSCT+12, FINDSCT~, FINDSCT+9*, FINDSCT+11, FINDSCT+15, FINDSCT+19
, FINDSCT+23
LRFLD GETSCT+5~, GETSCT+7*, GETSCT+8*, GETSCT+9*, GETSCT+10*, GETSCT+11, GETSCT+12
LRHIER TXT4CS~, TXT4CS+15*, TXT4CS+17
LRIEN GETSCT~, GETSCT+12, FINDSCT+8~, FINDSCT+13*, FINDSCT+16*, FINDSCT+17, FINDSCT+20*, FINDSCT+21, FINDSCT+24*, FINDSCT+25
, FINDSCT+28*, FINDSCT+29
LRMSG GETSCT+6~
LROUT SCTOK~, SCTOK+15*, SCTOK+19*, LEX6247~, LEX6247+14!
LROUT("LEXABRV" LEX6247+17*, LEX6247+33*
LROUT("SCTIEN" LEX6247+15*, LEX6247+24*
LROUT("SCTTOP" LEX6247+16*, LEX6247+27*
LRSCT FINDSCT~, FINDSCT+10*, FINDSCT+12, FINDSCT+16, FINDSCT+20, FINDSCT+24
LRSRC CODE~, CODE+20, CODE+37
LRTARG GETSCT+6~
LRTXT TXT4CS~, TXT4CS+13*, TXT4CS+17
LRX CODE+14~, CODE+37*
LRZ SCTOK+11~, SCTOK+19
NAME FINDSCT+8~, FINDSCT+27*, FINDSCT+28
PREF GETPREF+2~, GETPREF+3*, GETPREF+5*, GETPREF+6
R6247 LEX6247~, LEX6247+13*, LEX6247+18, LEX6247+19
R64061 LEX6247+12~, LEX6247+20*, LEX6247+21, LEX6247+22, LEX6247+34
SCT SCTOK~, SCTOK+13*, SCTOK+18, GETPREF~, GETPREF+4, GETFSN~, GETFSN+4
SCTIEN LEX6247+12~, LEX6247+23*, LEX6247+24, LEX6247+25, LEX6247+31
STATUS CODE+14~, CODE+20*, CODE+22, CODE+24*, CODE+26, CODE+27*, CODE+28, CODE+29*, CODE+31, CODE+32*
, CODE+33, CODE+34*, CODE+39*, CODE+41, SCTOK+11~, SCTOK+17*, SCTOK+18*, SCTOK+20*, SCTOK+21
STOP CODE+14~, CODE+19*, CODE+23*, CODE+27*, CODE+32*, CODE+39, DELHIER+11~, DELHIER+12*, DELHIER+21*, DELHIER+23*
, DELHIER+24*, DELHIER+25
STR DELHIER+5~, DELHIER+7*, DELHIER+8*, DELHIER+10, DELHIER+26*, DELHIER+27
TEXT DELHIER~, DELHIER+6*, DELHIER+7, DELHIER+14, DELHIER+17
TXT2 DELHIER+11~, DELHIER+14*, DELHIER+15*, DELHIER+26
TXT3 DELHIER+11~, DELHIER+17*, DELHIER+18*, DELHIER+19, DELHIER+20
U FINDSCT+27, LEX6247+20, LEX6247+23, LEX6247+26, LEX6247+32
X CODE+14~, CODE+28*, CODE+29, CODE+33*, CODE+34, GETPREF+2~, GETPREF+4*, GETFSN+2~, GETFSN+4*, TXT4CS+12~
, TXT4CS+17*, TXT4CS+18*, TXT4CS+19*, TXT4CS+21, DELHIER+5~, DELHIER+20*, DELHIER+23, DELHIER+24, LEX6247+12~, LEX6247+26*
, LEX6247+27, LEX6247+32*, LEX6247+33
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All