- LEX2080C ;ISL/KER - LEX*2.0*80 Pre/Post Install ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- ;
- Q
- EN ; Main Entry Point
- D S15,S16,S17,S18,S19,S20,S21,S22,S23,S24,S25,S26
- Q
- S15 ; Subset #15
- I $D(^LEXT(757.2,15,0)) N DA,DIK S DA=15,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,15,0)="ICD, CPT and DSM Terminology"
- S ^LEXT(757.2,15,1)="^LEX(757.01,"
- S ^LEXT(757.2,15,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,15,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,15,4)="ICD/ICP/CPT/DS4"
- S ^LEXT(757.2,15,5)="VAC^WRD^0^757.03^VAC^0^1"
- S ^LEXT(757.2,15,6)="I $$SO^LEXU(Y,""ICD/ICP/CPT/DS4"",+($G(LEXVDT)))"
- S ^LEXT(757.2,15,7)="ICD/ICP/CPT/DS4"
- S ^LEXT(757.2,15,100,0)="^^4^4^3130101^^^^"
- S ^LEXT(757.2,15,100,1,0)="This subset is artifically created through the use of a"
- S ^LEXT(757.2,15,100,2,0)="filter which will limit the selection of a term to "
- S ^LEXT(757.2,15,100,3,0)="those classification systems commonly used by the VA."
- S ^LEXT(757.2,15,100,4,0)="These systems include ICD-9-CM, CPT-4, and DSM."
- I $D(^LEXT(757.2,15,0)) N DA,DIK S DA=15,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S16 ; Subset #16
- I $D(^LEXT(757.2,16,0)) N DA,DIK S DA=16,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,16,0)="Pharmacy (drug/form)"
- S ^LEXT(757.2,16,1)="^LEX(757.01,"
- S ^LEXT(757.2,16,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,16,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,16,5)="DG1^WRD^0^50.6^PSN^0^0"
- S ^LEXT(757.2,16,6)="I $$SRC^LEXU(Y,1)"
- S ^LEXT(757.2,16,100,0)="^^4^4^2971014^^^^"
- S ^LEXT(757.2,16,100,1,0)="This subset is artifically created through the use of a"
- S ^LEXT(757.2,16,100,2,0)="filter, only allowing the selection of terms which "
- S ^LEXT(757.2,16,100,3,0)="originally came from the VA National Drug File (NDF)."
- S ^LEXT(757.2,16,100,4,0)="It returns <drug name><form>."
- I $D(^LEXT(757.2,16,0)) N DA,DIK S DA=16,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S17 ; Subset #17
- I $D(^LEXT(757.2,17,0)) N DA,DIK S DA=17,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,17,0)="CPT/HCPCS Procedures"
- S ^LEXT(757.2,17,1)="^LEX(757.01,"
- S ^LEXT(757.2,17,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,17,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,17,4)="CPT/CPC"
- S ^LEXT(757.2,17,5)="CHP^WRD^0^81^CHP^0^1"
- S ^LEXT(757.2,17,6)="I $$SO^LEXU(Y,""CPT/CPC"",+($G(LEXVDT)))"
- S ^LEXT(757.2,17,7)="CPT/CPC"
- S ^LEXT(757.2,17,100,0)="^^5^5^2980221^^^"
- S ^LEXT(757.2,17,100,1,0)="This subset is artificially created through the use of a"
- S ^LEXT(757.2,17,100,2,0)="filter which will not permit the selection of a term"
- S ^LEXT(757.2,17,100,3,0)="which does not have a valid CPT-4 or HCPCS procedure "
- S ^LEXT(757.2,17,100,4,0)="code assigned (A code found in the Lexicon that is also"
- S ^LEXT(757.2,17,100,5,0)="in file 81, CPT Procedures)."
- I $D(^LEXT(757.2,17,0)) N DA,DIK S DA=17,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S18 ; Subset #18
- N DA,DIK S DA=18 I $D(^LEXT(757.2,DA,0)) S DIK="^LEXT(757.2," D ^DIK
- Q
- S19 ; Subset #19
- N DA,DIK S DA=19 I $D(^LEXT(757.2,DA,0)) S DIK="^LEXT(757.2," D ^DIK
- Q
- S20 ; Subset #20
- I $D(^LEXT(757.2,20,0)) N DA,DIK S DA=20,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,20,0)="Brest Imaging Rpt Data Sys BI-RADS"
- S ^LEXT(757.2,20,1)="^LEX(757.01,"
- S ^LEXT(757.2,20,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,20,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,20,4)="BI1"
- S ^LEXT(757.2,20,5)="BI1^WRD^0^71^RA^0^1^^0"
- S ^LEXT(757.2,20,6)="I +($$SO^LEXU(Y,""BIR"",+($G(LEXVDT))))>0"
- S ^LEXT(757.2,20,7)="BIR"
- S ^LEXT(757.2,20,100,0)="^757.22^3^3^3130101^^^^"
- S ^LEXT(757.2,20,100,1,0)="This subset is artificially created through the use of a"
- S ^LEXT(757.2,20,100,2,0)="filter which will not permit the selection of a term which"
- S ^LEXT(757.2,20,100,3,0)="does not have a valid BI-RAD code assigned."
- I $D(^LEXT(757.2,20,0)) N DA,DIK S DA=20,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S21 ; Subset #21
- I $D(^LEXT(757.2,21,0)) N DA,DIK S DA=21,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,21,0)="ICD-10 Diagnosis"
- S ^LEXT(757.2,21,1)="^LEX(757.01,"
- S ^LEXT(757.2,21,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,21,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,21,4)="10D"
- S ^LEXT(757.2,21,5)="10D^WRD^0^80^10D^0^1"
- S ^LEXT(757.2,21,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10D""))"
- S ^LEXT(757.2,21,7)="10D"
- S ^LEXT(757.2,21,100,0)="^^3^3^3130101^"
- S ^LEXT(757.2,21,100,1,0)="This subset is artificially created through the use of a filter"
- S ^LEXT(757.2,21,100,2,0)="which will not permit the selection of a term which does not "
- S ^LEXT(757.2,21,100,3,0)="have a valid ICD-10 Diagnosis code assigned."
- I $D(^LEXT(757.2,21,0)) N DA,DIK S DA=21,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S22 ; Subset #22
- I $D(^LEXT(757.2,22,0)) N DA,DIK S DA=22,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,22,0)="ICD-10 Procedures"
- S ^LEXT(757.2,22,1)="^LEX(757.01,"
- S ^LEXT(757.2,22,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,22,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,22,4)="10P"
- S ^LEXT(757.2,22,5)="10P^WRD^0^80^10P^0^1"
- S ^LEXT(757.2,22,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10P""))"
- S ^LEXT(757.2,22,7)="10P"
- S ^LEXT(757.2,22,100,0)="^^3^3^3120622^"
- S ^LEXT(757.2,22,100,1,0)="This subset is artificially created through the use of a filter"
- S ^LEXT(757.2,22,100,2,0)="which will not permit the selection of a term which does not "
- S ^LEXT(757.2,22,100,3,0)="have a valid ICD-10 Procedure code assigned."
- I $D(^LEXT(757.2,22,0)) N DA,DIK S DA=22,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S23 ; Subset #23
- N DA,DIK S DA=23 I $D(^LEXT(757.2,DA,0)) S DIK="^LEXT(757.2," D ^DIK
- Q
- S24 ; Subset #24
- I $D(^LEXT(757.2,24,0)) N DA,DIK S DA=24,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,24,0)="Encounter Forms"
- S ^LEXT(757.2,24,1)="^LEX(757.01,"
- S ^LEXT(757.2,24,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,24,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,24,4)="ICD/ICP/10D/10P/DS4"
- S ^LEXT(757.2,24,5)="EF1^WRD^^357^IBD^^1"
- S ^LEXT(757.2,24,6)="I $$SC^LEXU(Y,""BEH/DIS;999/64/66/73/74/77/82/169/170/171;ICD/ICP/10D/10P/DS4"",+($G(LEXVDT)))"
- S ^LEXT(757.2,24,7)="ICD/ICP/10D/10P/DS4"
- S ^LEXT(757.2,24,100,0)="^^4^4^3130101^^^^"
- S ^LEXT(757.2,24,100,1,0)="This subset is artificially created through the use of a"
- S ^LEXT(757.2,24,100,2,0)="filter (not a physical subset). It is identical to the"
- S ^LEXT(757.2,24,100,3,0)="subset created for Problem List but without the use of"
- S ^LEXT(757.2,24,100,4,0)="Unresolved Narratives and User Defaults."
- I $D(^LEXT(757.2,24,0)) N DA,DIK S DA=24,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S25 ; Subset #25
- I $D(^LEXT(757.2,25,0)) N DA,DIK S DA=25,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,25,0)="Encounters Dx (ICD-9)"
- S ^LEXT(757.2,25,1)="^LEX(757.01,"
- S ^LEXT(757.2,25,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,25,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,25,4)="ICD"
- S ^LEXT(757.2,25,5)="EF2^WRD^^^^^1"
- S ^LEXT(757.2,25,6)="I $$SO^LEXU(Y,""ICD"",+($G(LEXVDT)))"
- S ^LEXT(757.2,25,7)="ICD"
- S ^LEXT(757.2,25,100,0)="^^3^3^3130101^^^^"
- S ^LEXT(757.2,25,100,1,0)="This subset is artificially created through the use of a "
- S ^LEXT(757.2,25,100,2,0)="filter (not a physical subset), and contains only those "
- S ^LEXT(757.2,25,100,3,0)="expressions which are linked to an ICD-9 Diagnosis code."
- I $D(^LEXT(757.2,25,0)) N DA,DIK S DA=26,DIK="^LEXT(757.2," D IX1^DIK
- Q
- S26 ; Subset #26
- I $D(^LEXT(757.2,26,0)) N DA,DIK S DA=26,DIK="^LEXT(757.2," D IX2^DIK
- S ^LEXT(757.2,26,0)="Encounters Dx (ICD-10)"
- S ^LEXT(757.2,26,1)="^LEX(757.01,"
- S ^LEXT(757.2,26,2)="XTLK^LEXHLP"
- S ^LEXT(757.2,26,3)="XTLK^LEXPRNT"
- S ^LEXT(757.2,26,4)="10D"
- S ^LEXT(757.2,26,5)="EF3^WRD^^^^^1"
- S ^LEXT(757.2,26,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10D""))"
- S ^LEXT(757.2,26,7)="10D"
- S ^LEXT(757.2,26,100,0)="^^3^3^3130101^^^^"
- S ^LEXT(757.2,26,100,1,0)="This subset is artificially created through the use of a "
- S ^LEXT(757.2,26,100,2,0)="filter (not a physical subset), and contains only those "
- S ^LEXT(757.2,26,100,3,0)="expressions which are linked to an ICD-10 Diagnosis code."
- I $D(^LEXT(757.2,26,0)) N DA,DIK S DA=26,DIK="^LEXT(757.2," D IX1^DIK
- Q
- LEX2080C ;ISL/KER - LEX*2.0*80 Pre/Post Install ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
- +2 ;
- +3 QUIT
- EN ; Main Entry Point
- +1 DO S15
- DO S16
- DO S17
- DO S18
- DO S19
- DO S20
- DO S21
- DO S22
- DO S23
- DO S24
- DO S25
- DO S26
- +2 QUIT
- S15 ; Subset #15
- +1 IF $DATA(^LEXT(757.2,15,0))
- NEW DA,DIK
- SET DA=15
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,15,0)="ICD, CPT and DSM Terminology"
- +3 SET ^LEXT(757.2,15,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,15,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,15,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,15,4)="ICD/ICP/CPT/DS4"
- +7 SET ^LEXT(757.2,15,5)="VAC^WRD^0^757.03^VAC^0^1"
- +8 SET ^LEXT(757.2,15,6)="I $$SO^LEXU(Y,""ICD/ICP/CPT/DS4"",+($G(LEXVDT)))"
- +9 SET ^LEXT(757.2,15,7)="ICD/ICP/CPT/DS4"
- +10 SET ^LEXT(757.2,15,100,0)="^^4^4^3130101^^^^"
- +11 SET ^LEXT(757.2,15,100,1,0)="This subset is artifically created through the use of a"
- +12 SET ^LEXT(757.2,15,100,2,0)="filter which will limit the selection of a term to "
- +13 SET ^LEXT(757.2,15,100,3,0)="those classification systems commonly used by the VA."
- +14 SET ^LEXT(757.2,15,100,4,0)="These systems include ICD-9-CM, CPT-4, and DSM."
- +15 IF $DATA(^LEXT(757.2,15,0))
- NEW DA,DIK
- SET DA=15
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +16 QUIT
- S16 ; Subset #16
- +1 IF $DATA(^LEXT(757.2,16,0))
- NEW DA,DIK
- SET DA=16
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,16,0)="Pharmacy (drug/form)"
- +3 SET ^LEXT(757.2,16,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,16,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,16,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,16,5)="DG1^WRD^0^50.6^PSN^0^0"
- +7 SET ^LEXT(757.2,16,6)="I $$SRC^LEXU(Y,1)"
- +8 SET ^LEXT(757.2,16,100,0)="^^4^4^2971014^^^^"
- +9 SET ^LEXT(757.2,16,100,1,0)="This subset is artifically created through the use of a"
- +10 SET ^LEXT(757.2,16,100,2,0)="filter, only allowing the selection of terms which "
- +11 SET ^LEXT(757.2,16,100,3,0)="originally came from the VA National Drug File (NDF)."
- +12 SET ^LEXT(757.2,16,100,4,0)="It returns <drug name><form>."
- +13 IF $DATA(^LEXT(757.2,16,0))
- NEW DA,DIK
- SET DA=16
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +14 QUIT
- S17 ; Subset #17
- +1 IF $DATA(^LEXT(757.2,17,0))
- NEW DA,DIK
- SET DA=17
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,17,0)="CPT/HCPCS Procedures"
- +3 SET ^LEXT(757.2,17,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,17,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,17,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,17,4)="CPT/CPC"
- +7 SET ^LEXT(757.2,17,5)="CHP^WRD^0^81^CHP^0^1"
- +8 SET ^LEXT(757.2,17,6)="I $$SO^LEXU(Y,""CPT/CPC"",+($G(LEXVDT)))"
- +9 SET ^LEXT(757.2,17,7)="CPT/CPC"
- +10 SET ^LEXT(757.2,17,100,0)="^^5^5^2980221^^^"
- +11 SET ^LEXT(757.2,17,100,1,0)="This subset is artificially created through the use of a"
- +12 SET ^LEXT(757.2,17,100,2,0)="filter which will not permit the selection of a term"
- +13 SET ^LEXT(757.2,17,100,3,0)="which does not have a valid CPT-4 or HCPCS procedure "
- +14 SET ^LEXT(757.2,17,100,4,0)="code assigned (A code found in the Lexicon that is also"
- +15 SET ^LEXT(757.2,17,100,5,0)="in file 81, CPT Procedures)."
- +16 IF $DATA(^LEXT(757.2,17,0))
- NEW DA,DIK
- SET DA=17
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +17 QUIT
- S18 ; Subset #18
- +1 NEW DA,DIK
- SET DA=18
- IF $DATA(^LEXT(757.2,DA,0))
- SET DIK="^LEXT(757.2,"
- DO ^DIK
- +2 QUIT
- S19 ; Subset #19
- +1 NEW DA,DIK
- SET DA=19
- IF $DATA(^LEXT(757.2,DA,0))
- SET DIK="^LEXT(757.2,"
- DO ^DIK
- +2 QUIT
- S20 ; Subset #20
- +1 IF $DATA(^LEXT(757.2,20,0))
- NEW DA,DIK
- SET DA=20
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,20,0)="Brest Imaging Rpt Data Sys BI-RADS"
- +3 SET ^LEXT(757.2,20,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,20,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,20,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,20,4)="BI1"
- +7 SET ^LEXT(757.2,20,5)="BI1^WRD^0^71^RA^0^1^^0"
- +8 SET ^LEXT(757.2,20,6)="I +($$SO^LEXU(Y,""BIR"",+($G(LEXVDT))))>0"
- +9 SET ^LEXT(757.2,20,7)="BIR"
- +10 SET ^LEXT(757.2,20,100,0)="^757.22^3^3^3130101^^^^"
- +11 SET ^LEXT(757.2,20,100,1,0)="This subset is artificially created through the use of a"
- +12 SET ^LEXT(757.2,20,100,2,0)="filter which will not permit the selection of a term which"
- +13 SET ^LEXT(757.2,20,100,3,0)="does not have a valid BI-RAD code assigned."
- +14 IF $DATA(^LEXT(757.2,20,0))
- NEW DA,DIK
- SET DA=20
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +15 QUIT
- S21 ; Subset #21
- +1 IF $DATA(^LEXT(757.2,21,0))
- NEW DA,DIK
- SET DA=21
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,21,0)="ICD-10 Diagnosis"
- +3 SET ^LEXT(757.2,21,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,21,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,21,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,21,4)="10D"
- +7 SET ^LEXT(757.2,21,5)="10D^WRD^0^80^10D^0^1"
- +8 SET ^LEXT(757.2,21,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10D""))"
- +9 SET ^LEXT(757.2,21,7)="10D"
- +10 SET ^LEXT(757.2,21,100,0)="^^3^3^3130101^"
- +11 SET ^LEXT(757.2,21,100,1,0)="This subset is artificially created through the use of a filter"
- +12 SET ^LEXT(757.2,21,100,2,0)="which will not permit the selection of a term which does not "
- +13 SET ^LEXT(757.2,21,100,3,0)="have a valid ICD-10 Diagnosis code assigned."
- +14 IF $DATA(^LEXT(757.2,21,0))
- NEW DA,DIK
- SET DA=21
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +15 QUIT
- S22 ; Subset #22
- +1 IF $DATA(^LEXT(757.2,22,0))
- NEW DA,DIK
- SET DA=22
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,22,0)="ICD-10 Procedures"
- +3 SET ^LEXT(757.2,22,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,22,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,22,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,22,4)="10P"
- +7 SET ^LEXT(757.2,22,5)="10P^WRD^0^80^10P^0^1"
- +8 SET ^LEXT(757.2,22,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10P""))"
- +9 SET ^LEXT(757.2,22,7)="10P"
- +10 SET ^LEXT(757.2,22,100,0)="^^3^3^3120622^"
- +11 SET ^LEXT(757.2,22,100,1,0)="This subset is artificially created through the use of a filter"
- +12 SET ^LEXT(757.2,22,100,2,0)="which will not permit the selection of a term which does not "
- +13 SET ^LEXT(757.2,22,100,3,0)="have a valid ICD-10 Procedure code assigned."
- +14 IF $DATA(^LEXT(757.2,22,0))
- NEW DA,DIK
- SET DA=22
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +15 QUIT
- S23 ; Subset #23
- +1 NEW DA,DIK
- SET DA=23
- IF $DATA(^LEXT(757.2,DA,0))
- SET DIK="^LEXT(757.2,"
- DO ^DIK
- +2 QUIT
- S24 ; Subset #24
- +1 IF $DATA(^LEXT(757.2,24,0))
- NEW DA,DIK
- SET DA=24
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,24,0)="Encounter Forms"
- +3 SET ^LEXT(757.2,24,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,24,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,24,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,24,4)="ICD/ICP/10D/10P/DS4"
- +7 SET ^LEXT(757.2,24,5)="EF1^WRD^^357^IBD^^1"
- +8 SET ^LEXT(757.2,24,6)="I $$SC^LEXU(Y,""BEH/DIS;999/64/66/73/74/77/82/169/170/171;ICD/ICP/10D/10P/DS4"",+($G(LEXVDT)))"
- +9 SET ^LEXT(757.2,24,7)="ICD/ICP/10D/10P/DS4"
- +10 SET ^LEXT(757.2,24,100,0)="^^4^4^3130101^^^^"
- +11 SET ^LEXT(757.2,24,100,1,0)="This subset is artificially created through the use of a"
- +12 SET ^LEXT(757.2,24,100,2,0)="filter (not a physical subset). It is identical to the"
- +13 SET ^LEXT(757.2,24,100,3,0)="subset created for Problem List but without the use of"
- +14 SET ^LEXT(757.2,24,100,4,0)="Unresolved Narratives and User Defaults."
- +15 IF $DATA(^LEXT(757.2,24,0))
- NEW DA,DIK
- SET DA=24
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +16 QUIT
- S25 ; Subset #25
- +1 IF $DATA(^LEXT(757.2,25,0))
- NEW DA,DIK
- SET DA=25
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,25,0)="Encounters Dx (ICD-9)"
- +3 SET ^LEXT(757.2,25,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,25,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,25,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,25,4)="ICD"
- +7 SET ^LEXT(757.2,25,5)="EF2^WRD^^^^^1"
- +8 SET ^LEXT(757.2,25,6)="I $$SO^LEXU(Y,""ICD"",+($G(LEXVDT)))"
- +9 SET ^LEXT(757.2,25,7)="ICD"
- +10 SET ^LEXT(757.2,25,100,0)="^^3^3^3130101^^^^"
- +11 SET ^LEXT(757.2,25,100,1,0)="This subset is artificially created through the use of a "
- +12 SET ^LEXT(757.2,25,100,2,0)="filter (not a physical subset), and contains only those "
- +13 SET ^LEXT(757.2,25,100,3,0)="expressions which are linked to an ICD-9 Diagnosis code."
- +14 IF $DATA(^LEXT(757.2,25,0))
- NEW DA,DIK
- SET DA=26
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +15 QUIT
- S26 ; Subset #26
- +1 IF $DATA(^LEXT(757.2,26,0))
- NEW DA,DIK
- SET DA=26
- SET DIK="^LEXT(757.2,"
- DO IX2^DIK
- +2 SET ^LEXT(757.2,26,0)="Encounters Dx (ICD-10)"
- +3 SET ^LEXT(757.2,26,1)="^LEX(757.01,"
- +4 SET ^LEXT(757.2,26,2)="XTLK^LEXHLP"
- +5 SET ^LEXT(757.2,26,3)="XTLK^LEXPRNT"
- +6 SET ^LEXT(757.2,26,4)="10D"
- +7 SET ^LEXT(757.2,26,5)="EF3^WRD^^^^^1"
- +8 SET ^LEXT(757.2,26,6)="I $L($$ONE^LEXU(+Y,+($G(LEXVDT)),""10D""))"
- +9 SET ^LEXT(757.2,26,7)="10D"
- +10 SET ^LEXT(757.2,26,100,0)="^^3^3^3130101^^^^"
- +11 SET ^LEXT(757.2,26,100,1,0)="This subset is artificially created through the use of a "
- +12 SET ^LEXT(757.2,26,100,2,0)="filter (not a physical subset), and contains only those "
- +13 SET ^LEXT(757.2,26,100,3,0)="expressions which are linked to an ICD-10 Diagnosis code."
- +14 IF $DATA(^LEXT(757.2,26,0))
- NEW DA,DIK
- SET DA=26
- SET DIK="^LEXT(757.2,"
- DO IX1^DIK
- +15 QUIT