ICDREF.m

ICDREF ;ALB/EG - GROUPER UTILITY FUNCTIONS ;04/21/2014

 ;;18.0;DRG Grouper;**14,17,57**;Oct 20, 2000;Build 7

 ;               

 ; KER  Remove direct global reads, update for ICD-10

 ;

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    $$REF^ICDEX         ICR  N/A

 ;    $$VMDCDX^ICDEX      ICR  N/A

 ;    $$VMDCOP^ICDEX      ICR  N/A

 ;               

 ; Local Variables NEWed or KILLed Elsewhere

 ;     DADRGFY,DAMDC,DRGFY,ICDMDC,X

 ;     

RTABLE(ICDRG,ICDDATE) ; Return Reference Table

 ;  Input:      ICDRG - DRG entry

 ;              ICDDATE - Date to use for resolving correct entry

 ;

 ;  Output:     Table reference associted with entry from DRG

 ;              file

 Q $$REF^ICDEX($G(ICDRG),$G(ICDDATE))

VMDC(CODE) ; Get versioned MDC for Diagnosis Code

 Q $$VMDCDX^ICDEX($G(CODE),$G(ICDDATE))

GETPVMDC(CODE,ICDMDC,DRGFY) ; Get versioned MDC for Op/Pro ICD code from previous years

 Q $$VMDCOP^ICDEX(+($G(CODE)),$G(ICDMDC),$G(DRGFY))

ICDREF    ;ALB/EG - GROUPER UTILITY FUNCTIONS ;04/21/2014

 +1       ;;18.0;DRG Grouper;**14,17,57**;Oct 20, 2000;Build 7

 +2       ;               

 +3       ; KER  Remove direct global reads, update for ICD-10

 +4       ;

 +5       ; Global Variables

 +6       ;    None

 +7       ;               

 +8       ; External References

 +9       ;    $$REF^ICDEX         ICR  N/A

 +10      ;    $$VMDCDX^ICDEX      ICR  N/A

 +11      ;    $$VMDCOP^ICDEX      ICR  N/A

 +12      ;               

 +13      ; Local Variables NEWed or KILLed Elsewhere

 +14      ;     DADRGFY,DAMDC,DRGFY,ICDMDC,X

 +15      ;     

RTABLE(ICDRG,ICDDATE) ; Return Reference Table

 +1       ;  Input:      ICDRG - DRG entry

 +2       ;              ICDDATE - Date to use for resolving correct entry

 +3       ;

 +4       ;  Output:     Table reference associted with entry from DRG

 +5       ;              file

 +6        QUIT $$REF^ICDEX($GET(ICDRG),$GET(ICDDATE))

VMDC(CODE) ; Get versioned MDC for Diagnosis Code

 +1        QUIT $$VMDCDX^ICDEX($GET(CODE),$GET(ICDDATE))

GETPVMDC(CODE,ICDMDC,DRGFY) ; Get versioned MDC for Op/Pro ICD code from previous years

 +1        QUIT $$VMDCOP^ICDEX(+($GET(CODE)),$GET(ICDMDC),$GET(DRGFY))