| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 45.89
- GET CODE: S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$P($G(^ICDS(+$P(Y(1),U,5),0)),U) I D0>0 S DISX(1)=X
- QUERY CONDITION: I (DISX(1)]]"ICD-9 PROBz")&(DISX(1)']]"ICD-9-CM")
- DESCRIPTION OF SORT: ICD VERSION from ICD-9 PROC to ICD-9-CM
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$P($G(^ICDS(+$P(Y(1),U,5),0)),U) I D0>0 S DISX(1)=X
- FIELD NAME: ICD VERSION
- SORT QUALIFIERS BEFORE FIELD: @".05
- FROM VALUE INTERNAL: ICD-9 PROBz
- FROM VALUE EXTERNAL: ICD-9 PROC
- TO VALUE INTERNAL: ICD-9-CM
- TO VALUE EXTERNAL: ICD-9-CM
-
- FILE OR SUBFILE NO.: 45.89
- GET CODE: S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$P($G(^DIC(45.88,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: CATEGORY not null
- SEARCH EFFICIENCY RATING: 0.0000
- PROBABILITY RATING: 0.0000
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$P($G(^DIC(45.88,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(2)=X
- FIELD NAME: CATEGORY
- SORT QUALIFIERS BEFORE FIELD: @".01
- CROSS REFERENCE DATA: ^DIC(45.89,"B",^DIC(45.89,^2
- POINT TO CROSS REFERENCE: ^DIC(45.88,"B",
-
- FILE OR SUBFILE NO.: 45.89
- GET CODE: N DIERR S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(45.89,.02,"",$P(Y(1),U,2)) I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)'=""
- DESCRIPTION OF SORT: DIAGNOSIS/PROCEDURE CODE not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: N DIERR S Y(1)=$S($D(^DIC(45.89,D0,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(45.89,.02,"",$P(Y(1),U,2)) I D0>0 S DISX(3)=X
- FIELD NAME: DIAGNOSIS/PROCEDURE CODE
- SORT QUALIFIERS BEFORE FIELD: ".02
|
