Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

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")
Info |  Source |  Entry Points