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

Package: DRG Grouper

Routine: ICDEXS


Information

ICDEXS ;SLC/KER - ICD Extractor - Support ;12/19/2014

Source Information

Source file <ICDEXS.m>

Entry Points

Name Comments DBIA/ICR reference
EFF(FILE,IEN,EDT) ; returns effective date and status for code/modifier
IA(FILE,IEN) ; Initial Activation Date
LA(FILE,IEN,CDT) ; Last Current Activation Date
LI(FILE,IEN,CDT) ; Last Current Inactivation Date
;
; Input:
;
; IEN Internal Entry Number (Required)
; FILE Global Root/File Number (Required)
; CDT Date (default = TODAY) (Optional)
;
; Output:
;
; $$LI Last Inactivation Date OR -1 ^ Error Message
;
LS(FILE,IEN,CDT,FMT) ; Last Status
;
; Input:
;
; FILE Global Root/File Number (Required)
; IEN Internal Entry Number (Required)
; CDT Date (default = TODAY) (Optional)
; FMT Format
; 0 Last Status only (default)
; 1 Last Status ^ Effective Date
;
; Output:
;
; $$LS Last Status (1/0) OR -1 ^ Error Message
;
NUM(CODE) ; Convert Code to a Numeric Value (opposite of $$COD)
COD(NUM) ; Convert Numeric Value to a Code (opposite of $$NUM)
IE(X) ; Internal or External
FILE(X) ; File Number
ROOT(X) ; Global Root
RY(SYS) ; Global Root from System
RF(FILE) ; Global Root from File
RR(ID) ; Global Root from Root or Identifier
RS(SYS) ; Global Root from Coding System
RC(COD) ; Global Root from Code
SYS(SYS,CDT,FMT) ; Resolve System (uses file 80.4)
SS(X) ; System from Coding System file 80.4
SM(X,CDT) ; System from a Mnemonic
SP(X) ; System from Pattern Match
SC(X) ; System from Code
SINFO(SYS,CDT) ; System Info (uses file 80.4)
SNAM(SYS) ; System Name
SAB(X,Y) ; Source Abbreviation
EXC(FILE,IEN) ; Exclude From lookup
Info |  Source |  Entry Points