- 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))