LEXU4 ;ISL/KER - Miscellaneous Lexicon Utilities ;12/19/2014
Source file <LEXU4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HIST(CODE,SYS,ARY) | ; Get Activation History for a Code
; ; Input: ; ; CODE ICD Code (required) ; SYS Coding System ; .ARY Array, passed by Reference (required) ; ; Output: ; ; $$HIST Number of Histories Found ; or ; -1 ^ error message ; ; ARY(0) = Number of Activation History ; ARY(0,0) = Code ^ Source Abbreviation ^ Source Nomenclature ; ARY(<date>,<status>) = Comment |
|
PERIOD(CODE,SYS,ARY) | ; Get Activation/Inactivation Periods for a Code
|
|
VP(CODE,SYS,EFF) | ; Variable Pointer ^ Description
|
|
REUSE(X,SYS) | ; Is a code "re-used"
|
|
REVISE(X,SYS) | ; Is a code "revised"
|
|
LAST(X,SYS,CDT) | ; Last Activation ^ Inactivation
|
|
ACT(CODE,SYS,ARY) | ; Get Activations
|
|
PFI(FRAG,CDT,ARY) | ; Get Procedure Fragment Info
|
|
SYSC(X) | ; System from Code (must be unique)
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|