Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICDREF

ICDREF.m

Go to the documentation of this file.
  1. ICDREF ;ALB/EG - GROUPER UTILITY FUNCTIONS ;04/21/2014
  1. ;;18.0;DRG Grouper;**14,17,57**;Oct 20, 2000;Build 7
  1. ;
  1. ; KER Remove direct global reads, update for ICD-10
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; $$REF^ICDEX ICR N/A
  1. ; $$VMDCDX^ICDEX ICR N/A
  1. ; $$VMDCOP^ICDEX ICR N/A
  1. ;
  1. ; Local Variables NEWed or KILLed Elsewhere
  1. ; DADRGFY,DAMDC,DRGFY,ICDMDC,X
  1. ;
  1. RTABLE(ICDRG,ICDDATE) ; Return Reference Table
  1. ; Input: ICDRG - DRG entry
  1. ; ICDDATE - Date to use for resolving correct entry
  1. ;
  1. ; Output: Table reference associted with entry from DRG
  1. ; file
  1. Q $$REF^ICDEX($G(ICDRG),$G(ICDDATE))
  1. VMDC(CODE) ; Get versioned MDC for Diagnosis Code
  1. Q $$VMDCDX^ICDEX($G(CODE),$G(ICDDATE))
  1. GETPVMDC(CODE,ICDMDC,DRGFY) ; Get versioned MDC for Op/Pro ICD code from previous years
  1. Q $$VMDCOP^ICDEX(+($G(CODE)),$G(ICDMDC),$G(DRGFY))