SCRPWICD.m

SCRPWICD ;HINES/LAI - Ambulatory Care Reporting - ICD Code API Wrappers;2/15/2012

 ;;5.3;Scheduling;**593**;AUG 13, 1993;Build 13

 ; Reference to $$IMP^ICDEX supported by ICR #5747

 ; Reference to $$CSI^ICDEX supported by ICR #5747

 ; Reference to $$ICDDX^ICDEX supported by ICR #5747

 ;

 Q

 ;

 ; Coding System Implementation Date

IMP(CSYS) Q $$IMP^ICDEX($G(CSYS))

 ;

 ; Diagnosis Code Info

ICDDX(IEN,CDT) Q $$ICDDX^ICDEX($G(IEN),$P($G(CDT),".",1),$$CSI(80,$G(IEN)),"I")

 ;

 ; Coding system for IEN

CSI(FILE,IEN) Q $$CSI^ICDEX($G(FILE),$G(IEN))

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCRPWICD   565     printed  Oct 16, 2024@18:44:50                                                                                                                                                                                                     Page 2

SCRPWICD  ;HINES/LAI - Ambulatory Care Reporting - ICD Code API Wrappers;2/15/2012

 +1       ;;5.3;Scheduling;**593**;AUG 13, 1993;Build 13

 +2       ; Reference to $$IMP^ICDEX supported by ICR #5747

 +3       ; Reference to $$CSI^ICDEX supported by ICR #5747

 +4       ; Reference to $$ICDDX^ICDEX supported by ICR #5747

 +5       ;

 +6        QUIT 

 +7       ;

 +8       ; Coding System Implementation Date

IMP(CSYS)  QUIT $$IMP^ICDEX($GET(CSYS))

 +1       ;

 +2       ; Diagnosis Code Info

ICDDX(IEN,CDT)  QUIT $$ICDDX^ICDEX($GET(IEN),$PIECE($GET(CDT),".",1),$$CSI(80,$GET(IEN)),"I")

 +1       ;

 +2       ; Coding system for IEN

CSI(FILE,IEN)  QUIT $$CSI^ICDEX($GET(FILE),$GET(IEN))

 +1       ;