EDPLEX ;ALB/DRP - EDIS API'S ;8/28/2012
;;2.0;EMERGENCY DEPARTMENT;**2**;Feb 24, 2012;Build 23
;
; API's used for ICD10 implementation created for patch EDP*2.0*2
; $$IMPDATE^LEXU ICR 5679
; $$FREQ^LEXU ICR 5679
; $$MAX^LEXU ICR 5679
; $$ICDOP^ICDEX ICR 5747
; $$ICDDX^ICDEX ICR 5747
;
VER(EDPCSYS) ; CODING SYSTEM is passed in
;Input: Coding System Identifier (ICD,10D)
;Output: Returns the Nomenclature string used by GUI displays.
N IMPDT,EDPCSTR S EDPCSTR=-1
S:EDPCSYS="ICD" EDPCSTR=$S($D(^LEX(757.03,1,0))#10:$P($G(^LEX(757.03,1,0)),U,2),1:"ICD-9-CM")
S:EDPCSYS="10D" EDPCSTR=$S($D(^LEX(757.03,30,0))#10:$P(^LEX(757.03,30,0),U,2),1:"ICD-10-CM")
Q EDPCSTR
;
CSYS(EDPEDDT) ; Select proper Coding system based on Implementation date
; input Date of Interest
; output...coding system active for date.
;
Q:$G(EDPEDDT)="" "-1^"_$ZN_" Date In, Parameter not optional."
N EDPLIMPDT,EDPLCSYS
S EDPLCSYS="10D"
S EDPLIMPDT=$$IMPDATE^LEXU(EDPLCSYS)
S:EDPEDDT<EDPLIMPDT EDPLCSYS="ICD"
Q EDPLCSYS
;
IMPDATE(EDPCSYS) ; Returns Implementation date of the ICD code set
;Input CSYS = System abbreviation for the coding system
;Output Implementation Date
;
Q $$IMPDATE^LEXU(EDPCSYS)
;
TOOHI(X,EDPCSYS,EDPLMT) ; CHECK TERM FOR FREQUENCY AGAINST MAX ALLOWED - RETURN WARNING IF TOO LARGE
; Input Search string (X)
; Coding system (CSYS)
; Honor Threshold Flag (EDPLMT)
; Output Threshold exceeded Message flag (with Message if failed)
;
N EDPLCOUNT,EDPLALLOWED,EDPLRTN
S EDPLCOUNT=$$FREQ^LEXU(X),EDPLALLOWED=$$MAX^LEXU(EDPCSYS),EDPLRTN=0
I EDPLMT,EDPLCOUNT>EDPLALLOWED D
.S EDPLRTN="1^Searching for "_X_" requires inspecting "_EDPLCOUNT_" records to determine if they match the search criteria. This could take quite some time. Suggest refining the search by further specifying "_X_". Do you wish to continue?"
.Q
Q EDPLRTN
;
ICDDATA(EDPCSYS,EDPCODE,EDPDATE,EDPFRMT) ; ICD data for code
;Moved here from ICDXCODE, as that API will be retired
;
; Input:
;
; EDPCSYS Coding system Required
; EDPCODE Code/IEN/variable pointer Required
; EDPDATE Code Set Date (default = TODAY)
; EDPFRMT Code format "I" internal (IEN - DEFAULT)
; "E" external (CODE)
;
; Output:
;
; Diagnosis returns an 20 piece string delimited by "^"
;
; 1 IEN of code in file 80
; 2 ICD Dx Code (#.01)
; 3 Identifier (#1.2)
; 4 Versioned Dx (67 multiple)
; 5 Unacceptable as Principal Dx (#1.3)
; 6 Major Dx Cat (72 multiple)
; 7 MDC13 (#1.4)
; 8 Compl/Comorb (103 multiple)
; 9 ICD Expanded (#1.7)
; 10 Status (66 multiple)
; 11 Sex (10 multiple)
; 12 Inactive Date (66 multiple)
; 13 MDC24 (#1.5)
; 14 MDC25 (#1.6)
; 15 Age Low (11 multiple)
; 16 Age High (12 multiple)
; 17 Activation Date (66 multiple)
; 18 Message
; 19 Complication/Comorbidity (103 multiple)
; 20 Coding System (#1.1)
;
; Procedures returns A 14 piece string delimited by "^"
;
; 1 IEN of code in file 80.1
; 2 ICD procedure code (#.01)
; 3 Identifier (#1.2)
; 4 MDC24 (#1.5)
; 5 Versioned Oper/Proc (67 multiple)
; 6 <null>
; 7 <null>
; 8 <null>
; 9 ICD Expanded (#1.7)
; 10 Status (66 multiple)
; 11 Use with Sex (10 multiple)
; 12 Inactive Date (66 multiple)
; 13 Activation Date (66 multiple)
; 14 Message
; 15 Coding System (#1.1)
;
; or
;
; -1^Error Description
;
N ROOT,SYS
S EDPDATE=$P($G(EDPDATE),".",1),SYS=$$SYS^ICDEX($G(EDPCSYS),$G(EDPDATE)) S:+SYS'>0 SYS=$$SYS^ICDEX($G(EDPCODE))
Q:+SYS'>0 "-1^Invalid coding system specified"
S ROOT=$$ROOT^ICDEX(SYS) Q:'$L(ROOT) "-1^Invalid Global Root"
Q:ROOT["ICD9" $$ICDDX^ICDEX($G(EDPCODE),$G(EDPDATE),$G(SYS),$G(EDPFRMT,"I"))
Q:ROOT["ICD0" $$ICDOP^ICDEX($G(EDPCODE),$G(EDPDATE),$G(SYS),$G(EDPFRMT,"I"))
Q "-1^Not found"
;
ICDDX(EDPCODE,EDPCDT,EDPDFN,EDPSRC) ; Return ICD Dx Code Info
;Moved here from ICDXCODE, as that API will be retired
; Input:
;
; CODE Code/IEN (required)
; CDT Date (default = TODAY)
; DFN Not in use
; SRC Source
; 0 = exclude local codes
; 1 = include local codes
;
; Output:
;
; Returns an 19 piece string delimited by ^
;
; 1 IEN of code in file 80
; 2 ICD-9 Dx Code (#.01)
; 3 Id (#2)
; 4 Versioned Dx (67 multiple)
; 5 Unacceptable as Principal Dx (#101)
; 6 Major Dx Cat (#5)
; 7 MDC13 (5.5)
; 8 Compl/Comorb (#70)
; 9 ICD Expanded (#8) 1:Yes 0:No
; 10 Status (66 multiple)
; 11 Sex (#9.5)
; 12 Inactive Date (66 multiple)
; 13 MDC24 (#5.7)
; 14 MDC25 (#5.9)
; 15 Age Low (#14)
; 16 Age High (#15)
; 17 Activation Date (.01 of 66 multiple)
; 18 Message
; 19 Versioned Complication/Comorbidity (#103)
;
; or
;
; -1^Error Description
;
Q $$ICDDX^ICDEX($G(EDPCODE),$G(EDPCDT),1,$G(EDPSRC,"I"))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDPLEX 5821 printed Nov 22, 2024@17:02:08 Page 2
EDPLEX ;ALB/DRP - EDIS API'S ;8/28/2012
+1 ;;2.0;EMERGENCY DEPARTMENT;**2**;Feb 24, 2012;Build 23
+2 ;
+3 ; API's used for ICD10 implementation created for patch EDP*2.0*2
+4 ; $$IMPDATE^LEXU ICR 5679
+5 ; $$FREQ^LEXU ICR 5679
+6 ; $$MAX^LEXU ICR 5679
+7 ; $$ICDOP^ICDEX ICR 5747
+8 ; $$ICDDX^ICDEX ICR 5747
+9 ;
VER(EDPCSYS) ; CODING SYSTEM is passed in
+1 ;Input: Coding System Identifier (ICD,10D)
+2 ;Output: Returns the Nomenclature string used by GUI displays.
+3 NEW IMPDT,EDPCSTR
SET EDPCSTR=-1
+4 if EDPCSYS="ICD"
SET EDPCSTR=$SELECT($DATA(^LEX(757.03,1,0))#10:$PIECE($GET(^LEX(757.03,1,0)),U,2),1:"ICD-9-CM")
+5 if EDPCSYS="10D"
SET EDPCSTR=$SELECT($DATA(^LEX(757.03,30,0))#10:$PIECE(^LEX(757.03,30,0),U,2),1:"ICD-10-CM")
+6 QUIT EDPCSTR
+7 ;
CSYS(EDPEDDT) ; Select proper Coding system based on Implementation date
+1 ; input Date of Interest
+2 ; output...coding system active for date.
+3 ;
+4 if $GET(EDPEDDT)=""
QUIT "-1^"_$ZN_" Date In, Parameter not optional."
+5 NEW EDPLIMPDT,EDPLCSYS
+6 SET EDPLCSYS="10D"
+7 SET EDPLIMPDT=$$IMPDATE^LEXU(EDPLCSYS)
+8 if EDPEDDT<EDPLIMPDT
SET EDPLCSYS="ICD"
+9 QUIT EDPLCSYS
+10 ;
IMPDATE(EDPCSYS) ; Returns Implementation date of the ICD code set
+1 ;Input CSYS = System abbreviation for the coding system
+2 ;Output Implementation Date
+3 ;
+4 QUIT $$IMPDATE^LEXU(EDPCSYS)
+5 ;
TOOHI(X,EDPCSYS,EDPLMT) ; CHECK TERM FOR FREQUENCY AGAINST MAX ALLOWED - RETURN WARNING IF TOO LARGE
+1 ; Input Search string (X)
+2 ; Coding system (CSYS)
+3 ; Honor Threshold Flag (EDPLMT)
+4 ; Output Threshold exceeded Message flag (with Message if failed)
+5 ;
+6 NEW EDPLCOUNT,EDPLALLOWED,EDPLRTN
+7 SET EDPLCOUNT=$$FREQ^LEXU(X)
SET EDPLALLOWED=$$MAX^LEXU(EDPCSYS)
SET EDPLRTN=0
+8 IF EDPLMT
IF EDPLCOUNT>EDPLALLOWED
Begin DoDot:1
+9 SET EDPLRTN="1^Searching for "_X_" requires inspecting "_EDPLCOUNT_" records to determine if they match the search criteria. This could take quite some time. Suggest refining the search by further specifying "_X_". Do you wish to c
ontinue?"
+10 QUIT
End DoDot:1
+11 QUIT EDPLRTN
+12 ;
ICDDATA(EDPCSYS,EDPCODE,EDPDATE,EDPFRMT) ; ICD data for code
+1 ;Moved here from ICDXCODE, as that API will be retired
+2 ;
+3 ; Input:
+4 ;
+5 ; EDPCSYS Coding system Required
+6 ; EDPCODE Code/IEN/variable pointer Required
+7 ; EDPDATE Code Set Date (default = TODAY)
+8 ; EDPFRMT Code format "I" internal (IEN - DEFAULT)
+9 ; "E" external (CODE)
+10 ;
+11 ; Output:
+12 ;
+13 ; Diagnosis returns an 20 piece string delimited by "^"
+14 ;
+15 ; 1 IEN of code in file 80
+16 ; 2 ICD Dx Code (#.01)
+17 ; 3 Identifier (#1.2)
+18 ; 4 Versioned Dx (67 multiple)
+19 ; 5 Unacceptable as Principal Dx (#1.3)
+20 ; 6 Major Dx Cat (72 multiple)
+21 ; 7 MDC13 (#1.4)
+22 ; 8 Compl/Comorb (103 multiple)
+23 ; 9 ICD Expanded (#1.7)
+24 ; 10 Status (66 multiple)
+25 ; 11 Sex (10 multiple)
+26 ; 12 Inactive Date (66 multiple)
+27 ; 13 MDC24 (#1.5)
+28 ; 14 MDC25 (#1.6)
+29 ; 15 Age Low (11 multiple)
+30 ; 16 Age High (12 multiple)
+31 ; 17 Activation Date (66 multiple)
+32 ; 18 Message
+33 ; 19 Complication/Comorbidity (103 multiple)
+34 ; 20 Coding System (#1.1)
+35 ;
+36 ; Procedures returns A 14 piece string delimited by "^"
+37 ;
+38 ; 1 IEN of code in file 80.1
+39 ; 2 ICD procedure code (#.01)
+40 ; 3 Identifier (#1.2)
+41 ; 4 MDC24 (#1.5)
+42 ; 5 Versioned Oper/Proc (67 multiple)
+43 ; 6 <null>
+44 ; 7 <null>
+45 ; 8 <null>
+46 ; 9 ICD Expanded (#1.7)
+47 ; 10 Status (66 multiple)
+48 ; 11 Use with Sex (10 multiple)
+49 ; 12 Inactive Date (66 multiple)
+50 ; 13 Activation Date (66 multiple)
+51 ; 14 Message
+52 ; 15 Coding System (#1.1)
+53 ;
+54 ; or
+55 ;
+56 ; -1^Error Description
+57 ;
+58 NEW ROOT,SYS
+59 SET EDPDATE=$PIECE($GET(EDPDATE),".",1)
SET SYS=$$SYS^ICDEX($GET(EDPCSYS),$GET(EDPDATE))
if +SYS'>0
SET SYS=$$SYS^ICDEX($GET(EDPCODE))
+60 if +SYS'>0
QUIT "-1^Invalid coding system specified"
+61 SET ROOT=$$ROOT^ICDEX(SYS)
if '$LENGTH(ROOT)
QUIT "-1^Invalid Global Root"
+62 if ROOT["ICD9"
QUIT $$ICDDX^ICDEX($GET(EDPCODE),$GET(EDPDATE),$GET(SYS),$GET(EDPFRMT,"I"))
+63 if ROOT["ICD0"
QUIT $$ICDOP^ICDEX($GET(EDPCODE),$GET(EDPDATE),$GET(SYS),$GET(EDPFRMT,"I"))
+64 QUIT "-1^Not found"
+65 ;
ICDDX(EDPCODE,EDPCDT,EDPDFN,EDPSRC) ; Return ICD Dx Code Info
+1 ;Moved here from ICDXCODE, as that API will be retired
+2 ; Input:
+3 ;
+4 ; CODE Code/IEN (required)
+5 ; CDT Date (default = TODAY)
+6 ; DFN Not in use
+7 ; SRC Source
+8 ; 0 = exclude local codes
+9 ; 1 = include local codes
+10 ;
+11 ; Output:
+12 ;
+13 ; Returns an 19 piece string delimited by ^
+14 ;
+15 ; 1 IEN of code in file 80
+16 ; 2 ICD-9 Dx Code (#.01)
+17 ; 3 Id (#2)
+18 ; 4 Versioned Dx (67 multiple)
+19 ; 5 Unacceptable as Principal Dx (#101)
+20 ; 6 Major Dx Cat (#5)
+21 ; 7 MDC13 (5.5)
+22 ; 8 Compl/Comorb (#70)
+23 ; 9 ICD Expanded (#8) 1:Yes 0:No
+24 ; 10 Status (66 multiple)
+25 ; 11 Sex (#9.5)
+26 ; 12 Inactive Date (66 multiple)
+27 ; 13 MDC24 (#5.7)
+28 ; 14 MDC25 (#5.9)
+29 ; 15 Age Low (#14)
+30 ; 16 Age High (#15)
+31 ; 17 Activation Date (.01 of 66 multiple)
+32 ; 18 Message
+33 ; 19 Versioned Complication/Comorbidity (#103)
+34 ;
+35 ; or
+36 ;
+37 ; -1^Error Description
+38 ;
+39 QUIT $$ICDDX^ICDEX($GET(EDPCODE),$GET(EDPCDT),1,$GET(EDPSRC,"I"))
