STANDARD DATA DICTIONARY #757.03 -- CODING SYSTEMS FILE 3/24/25 PAGE 1 STORED IN ^LEX(757.03, (37 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the descriptive titles for medical terminology and diagnosis and classification systems. DD ACCESS: @ RD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ AUDIT ACCESS: @ IDENTIFIED BY: NOMENCLATURE (#1)[R], SOURCE TITLE (#2)[R] POINTED TO BY: CLASSIFICATION SOURCE field (#2) of the CODES File (#757.02) SOURCE field (#.04) of the CHARACTER POSITIONS File (#757.033) CODING SYSTEM field (#1) of the DESIGNATION CODE sub-field (#757.118) of the EXPRESSIONS File (#757.01) SOURCE CODING SYSTEM field (#3) of the MAPPING DEFINITIONS File (#757.32) TARGET CODING SYSTEM field (#4) of the MAPPING DEFINITIONS File (#757.32) CROSS REFERENCED BY: SOURCE ABBREVIATION(ASAB), SOURCE ABBREVIATION(B), NOMENCLATURE(C), HL7 CODING SYSTEM(D) LAST MODIFIED: JUL 27,2017@12:22:34 757.03,.01 SOURCE ABBREVIATION 0;1 FREE TEXT (Required) SAB INPUT TRANSFORM: K:$L(X)>7!($L(X)<3) X LAST EDITED: JAN 28, 2008 HELP-PROMPT: Answer must be 3-7 characters in length. DESCRIPTION: Three to six character identifier for the source of the classification code located in the Codes file (#757.02). The normal format is a three character mnemonic for the classification source, appended with the year of publication of the source (i.e., ICD89). CROSS-REFERENCE: 757.03^B 1)= S ^LEX(757.03,"B",$E(X,1,30),DA)="" 2)= K ^LEX(757.03,"B",$E(X,1,30),DA) ^LEX(757.03,"B",SAB,IEN) - where SAB is the Source Abbreviation and IEN is the Internal Entry Number in the Coding Systems file #757.03 where the Source is located. CROSS-REFERENCE: 757.03^ASAB^MUMPS 1)= S ^LEX(757.03,"ASAB",$E(X,1,3),DA)="" 2)= K ^LEX(757.03,"ASAB",$E(X,1,3),DA) ^LEX(757.03,"ASAB",SAB,IEN) - where SAB is a three representation of the Source Abbreviation as used in the search filter DIC("S"), and IEN is the Internal Entry Number in the Coding Systems file #757.03 where the Source is located. 757.03,1 NOMENCLATURE 0;2 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>11!($L(X)<2) X LAST EDITED: APR 30, 1997 HELP-PROMPT: Answer must be 2-11 characters in length. DESCRIPTION: Short title for the classification source. This is the name normally used to refer to the source (i.e., ICD-9, CPT-4, DSM-IIIR, SNOMED etc.) CROSS-REFERENCE: 757.03^C 1)= S ^LEX(757.03,"C",$E(X,1,30),DA)="" 2)= K ^LEX(757.03,"C",$E(X,1,30),DA) ^LEX(757.03,"C",NOM,IEN) - Where NOM is the abbreviated nomenclature for a specified coding or classification system and IEN is the Internal Entry Number where the nomenclature is located. 757.03,2 SOURCE TITLE 0;3 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>70!($L(X)<2) X LAST EDITED: JUL 31, 2012 HELP-PROMPT: Answer must be 2-70 characters in length. DESCRIPTION: Full title of source. Also includes edition/revision and year of publication when available. 757.03,3 SOURCE 0;4 FREE TEXT INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X LAST EDITED: SEP 19, 1995 HELP-PROMPT: Answer must be 2-50 characters in length. DESCRIPTION: This is source of the named coding system. 757.03,4 ACTIVE CODES 0;5 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X LAST EDITED: FEB 15, 2017 HELP-PROMPT: Type a number between 0 and 9999999999, 0 decimal digits. DESCRIPTION: This is the number of active codes found in the CODES file 757.02 for a specified Coding System. 757.03,5 CODES 0;6 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1.N) X LAST EDITED: FEB 15, 2017 HELP-PROMPT: Type a number between 0 and 9999999999, 0 decimal digits. DESCRIPTION: This is the total number of codes found in the CODES file 757.02 for a specified Coding System. 757.03,6 INACTIVE VERSION 0;7 FREE TEXT INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X LAST EDITED: APR 15, 1996 HELP-PROMPT: Answer must be 1-20 characters in length. DESCRIPTION: This represents the version number of the source file for which inactivated codes are derived. 757.03,7 HL7 CODING SYSTEM 0;8 FREE TEXT HL7 CODE SYSTEM INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X LAST EDITED: JAN 18, 2002 HELP-PROMPT: Answer must be 2-40 characters in length DESCRIPTION: This is the HL7 coding system mnemonic for the Lexicon coding system CROSS-REFERENCE: 757.03^D 1)= S ^LEX(757.03,"D",$E(X,1,30),DA)="" 2)= K ^LEX(757.03,"D",$E(X,1,30),DA) HL7 Coding System cross reference 757.03,10 SDO VERSION 1;0 DATE Multiple #757.08 LAST EDITED: OCT 18, 2006 DESCRIPTION: This multiple stores the Standards Development Organization's (SDO) nomenclature that identifies the versions of their code systems and their associated dates. This information will be essential to applications that share code systems data with external agencies. 757.08,.01 SDO VERSION EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X LAST EDITED: MAY 31, 2012 HELP-PROMPT: Enter the SDO Version Effective Date. DESCRIPTION: This is the effective date for the nomenclature's version. CROSS-REFERENCE: 757.08^B 1)= S ^LEX(757.03,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^LEX(757.03,DA(1),1,"B",$E(X,1,30),DA) 757.08,1 SDO VERSION IDENTIFIER 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X LAST EDITED: MAY 31, 2012 HELP-PROMPT: Answer must be 1-40 characters in length. DESCRIPTION: This is the Standards Development Organization's (SDO) nomenclature for referencing a specific version of a code system. 757.03,11 IMPLEMENTATION DATE 2;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: JAN 05, 2012 HELP-PROMPT: Enter the Coding System Implementation Date. DESCRIPTION: This is either the VistA implementation date or the initial publication date. If the VistA implementation date is different from the initial publication date then the VistA date will be used, i.e. ICD-10 Published (world wide) Jan 1, 1992 ICD-10 VistA Implementation Oct 1, 2013 Oct 1, 2013 is used for ICD-10 UMDNS Published (world-wide) Jan 1, 1993 UMDNS VistA Implementation N/A Jan 1, 1993 is used for UMDNS 757.03,12 SEARCH THRESHOLD 2;2 NUMBER INPUT TRANSFORM: K:+X'=X!(X>10000000)!(X<3000)!(X?.E1"."1.N) X LAST EDITED: MAR 06, 2012 HELP-PROMPT: Enter a number between 3000 and 10000000, 0 decimal digits. DESCRIPTION: This number is the maximum number of terms that should be looked at before a warning is issued to the user. The application would ask the user if they wanted to continue with the search (knowing in advance that it will take quite some time) or if they wanted to further specify the input search parameter. This is a site editable field. INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):