ICDAPIU.m

ICDAPIU ;DLS/DEK/KER - ICD UTILITIES FOR APIS ;04/21/2014

 ;;18.0;DRG Grouper;**6,11,12,15,57**;Oct 20, 2000;Build 7

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    None

 ;               

 Q

EN ; Main Entry Point

HELP ; Developer Help for an API

 D HLP^ICDEXH("LEG") Q

 ;

DTBR(CDT,CS) ; Date Business Rules

 ;

 ; Input:   

 ; 

 ;     CDT   Code Date to check default TODAY

 ;     CS    Code System (Default 0 = ICD)

 ;     

 ; Output:  

 ; 

 ;     If CDT < ICD-9 Date and CS=0, use ICD-9 Date

 ;     If CDT < 2890101 and CS=1, use 2890101

 ;     If CDT < 2821001 and CS=2, use 2821001

 ;     If CDT is year only, use first of the year

 ;     If CDT is year and month only, use first of the month

 ;     

 Q $$DTBR^ICDEX($G(CDT),$G(CS))

MSG(CDT,CS) ; Inform of code text inaccuracy

 ;

 ; Input:   

 ; 

 ;     CDT   Code Date to check (FileMan format, Default = today)

 ;     CS    Code System (0:ICD, 1:CPT/HCPCS, 2:DRG, 3:LEX, Default=0)

 ;          

 ; Output:  

 ; 

 ;     User Alert

 ;     

 Q $$MSG^ICDEX($G(CDT),$G(CS))

STATCHK(CODE,CDT) ; Check Status of ICD Code

 ;

 ; Input:

 ; 

 ;     CODE  ICD Code

 ;     CDT   Date to screen against

 ;     

 ; Output:

 ; 

 ;     3-Piece String containing Status, IEN and Effective Date

 ;     

 Q $$STATCHK^ICDEX($G(CODE),$G(CDT))

NEXT(CODE) ; Next ICD Code (active or inactive)

 ;

 ; Input:

 ; 

 ;     CODE  ICD Code   REQUIRED

 ;     

 ; Output:  

 ; 

 ;     The Next ICD Code, Null if none

 ;     

 Q $$NEXT^ICDEX($G(CODE))

PREV(CODE) ; Previous ICD Code (active or inactive)

 ;

 ; Input:

 ; 

 ;     CODE   ICD Code   REQUIRED

 ;     

 ; Output:

 ; 

 ;     The Previous ICD Code, Null if none

 ;     

 Q $$PREV^ICDEX($G(CODE))

 ;

HIST(CODE,ARY)  ; Activation History

 ;

 ; Input:

 ; 

 ;     CODE   ICD Code                     REQUIRED

 ;    .ARY    Array, passed by Reference   REQUIRED

 ;   

 ; Output:

 ; 

 ;     Mirrors ARY(0) (or, -1 on error)

 ;     ARY(0) = Number of Activation History Entries

 ;     ARY(<date>) = status    where: 1 is Active

 ;     ARY("IEN") = <ien>

 ;     

 Q $$HIST^ICDEX($G(CODE),.ARY)

PERIOD(CODE,ARY) ; Return Activation/Inactivation Period in ARY

 ;

 ; Input:

 ; 

 ;     CODE  ICD Code (required)

 ;     ARY   Array, passed by Reference (required)

 ;     

 ; Output:

 ; 

 ;     ARY(0) = IEN ^ Selectable ^ Error Message

 ;          

 ;       Where IEN = -1 if error

 ;       Selectable = 0 for unselectable

 ;       Error Message if applicable

 ;            

 ;     ARY(Activation Date) = Inactivation Date^Short Name

 ;

 ;       Where the Short Name is versioned as follows:

 ;

 ;       Period is active   - Text for TODAY's date

 ;       Period is inactive - Text for inactivation date

 ;     

 N X S X=$$PERIOD^ICDEX($G(CODE),.ARY) Q

ICDAPIU   ;DLS/DEK/KER - ICD UTILITIES FOR APIS ;04/21/2014

 +1       ;;18.0;DRG Grouper;**6,11,12,15,57**;Oct 20, 2000;Build 7

 +2       ;               

 +3       ; Global Variables

 +4       ;    None

 +5       ;               

 +6       ; External References

 +7       ;    None

 +8       ;               

 +9        QUIT 

EN        ; Main Entry Point

HELP      ; Developer Help for an API

 +1        DO HLP^ICDEXH("LEG")

           QUIT 

 +2       ;

DTBR(CDT,CS) ; Date Business Rules

 +1       ;

 +2       ; Input:   

 +3       ; 

 +4       ;     CDT   Code Date to check default TODAY

 +5       ;     CS    Code System (Default 0 = ICD)

 +6       ;     

 +7       ; Output:  

 +8       ; 

 +9       ;     If CDT < ICD-9 Date and CS=0, use ICD-9 Date

 +10      ;     If CDT < 2890101 and CS=1, use 2890101

 +11      ;     If CDT < 2821001 and CS=2, use 2821001

 +12      ;     If CDT is year only, use first of the year

 +13      ;     If CDT is year and month only, use first of the month

 +14      ;     

 +15       QUIT $$DTBR^ICDEX($GET(CDT),$GET(CS))

MSG(CDT,CS) ; Inform of code text inaccuracy

 +1       ;

 +2       ; Input:   

 +3       ; 

 +4       ;     CDT   Code Date to check (FileMan format, Default = today)

 +5       ;     CS    Code System (0:ICD, 1:CPT/HCPCS, 2:DRG, 3:LEX, Default=0)

 +6       ;          

 +7       ; Output:  

 +8       ; 

 +9       ;     User Alert

 +10      ;     

 +11       QUIT $$MSG^ICDEX($GET(CDT),$GET(CS))

STATCHK(CODE,CDT) ; Check Status of ICD Code

 +1       ;

 +2       ; Input:

 +3       ; 

 +4       ;     CODE  ICD Code

 +5       ;     CDT   Date to screen against

 +6       ;     

 +7       ; Output:

 +8       ; 

 +9       ;     3-Piece String containing Status, IEN and Effective Date

 +10      ;     

 +11       QUIT $$STATCHK^ICDEX($GET(CODE),$GET(CDT))

NEXT(CODE) ; Next ICD Code (active or inactive)

 +1       ;

 +2       ; Input:

 +3       ; 

 +4       ;     CODE  ICD Code   REQUIRED

 +5       ;     

 +6       ; Output:  

 +7       ; 

 +8       ;     The Next ICD Code, Null if none

 +9       ;     

 +10       QUIT $$NEXT^ICDEX($GET(CODE))

PREV(CODE) ; Previous ICD Code (active or inactive)

 +1       ;

 +2       ; Input:

 +3       ; 

 +4       ;     CODE   ICD Code   REQUIRED

 +5       ;     

 +6       ; Output:

 +7       ; 

 +8       ;     The Previous ICD Code, Null if none

 +9       ;     

 +10       QUIT $$PREV^ICDEX($GET(CODE))

 +11      ;

HIST(CODE,ARY) ; Activation History

 +1       ;

 +2       ; Input:

 +3       ; 

 +4       ;     CODE   ICD Code                     REQUIRED

 +5       ;    .ARY    Array, passed by Reference   REQUIRED

 +6       ;   

 +7       ; Output:

 +8       ; 

 +9       ;     Mirrors ARY(0) (or, -1 on error)

 +10      ;     ARY(0) = Number of Activation History Entries

 +11      ;     ARY(<date>) = status    where: 1 is Active

 +12      ;     ARY("IEN") = <ien>

 +13      ;     

 +14       QUIT $$HIST^ICDEX($GET(CODE),.ARY)

PERIOD(CODE,ARY) ; Return Activation/Inactivation Period in ARY

 +1       ;

 +2       ; Input:

 +3       ; 

 +4       ;     CODE  ICD Code (required)

 +5       ;     ARY   Array, passed by Reference (required)

 +6       ;     

 +7       ; Output:

 +8       ; 

 +9       ;     ARY(0) = IEN ^ Selectable ^ Error Message

 +10      ;          

 +11      ;       Where IEN = -1 if error

 +12      ;       Selectable = 0 for unselectable

 +13      ;       Error Message if applicable

 +14      ;            

 +15      ;     ARY(Activation Date) = Inactivation Date^Short Name

 +16      ;

 +17      ;       Where the Short Name is versioned as follows:

 +18      ;

 +19      ;       Period is active   - Text for TODAY's date

 +20      ;       Period is inactive - Text for inactivation date

 +21      ;     

 +22       NEW X

           SET X=$$PERIOD^ICDEX($GET(CODE),.ARY)

           QUIT