anchor.diff:    FLD_EXAMPLE_UNITS =                         FLD_EXTERNAL_COPYRIGHT_NOTICE + 1;
     FLD_LONG_COMMON_NAME =                      FLD_EXAMPLE_UNITS + 1;
     FLD_UnitsAndRange =                         FLD_LONG_COMMON_NAME + 1;
  -  FLD_DOCUMENT_SECTION =                      FLD_UnitsAndRange + 1;
  -  FLD_EXAMPLE_UCUM_UNITS =                    FLD_DOCUMENT_SECTION + 1;
  +//  FLD_DOCUMENT_SECTION =                      FLD_UnitsAndRange + 1;
  +  FLD_EXAMPLE_UCUM_UNITS =                    FLD_UnitsAndRange + 1;
     FLD_EXAMPLE_SI_UCUM_UNITS =                 FLD_EXAMPLE_UCUM_UNITS + 1;
     FLD_STATUS_REASON =                         FLD_EXAMPLE_SI_UCUM_UNITS + 1;
     FLD_STATUS_TEXT =                           FLD_STATUS_REASON + 1;
  
positive.code:   FLD_CONSUMER_NAME =                         FLD_STATUS + 1;
    FLD_CLASSTYPE =                             FLD_CONSUMER_NAME + 1;
    FLD_FORMULA =                               FLD_CLASSTYPE + 1;
    FLD_SPECIES =                               FLD_FORMULA + 1;
    FLD_EXMPL_ANSWERS =                         FLD_SPECIES + 1;
    FLD_SURVEY_QUEST_TEXT =                     FLD_EXMPL_ANSWERS + 1;
    FLD_SURVEY_QUEST_SRC =                      FLD_SURVEY_QUEST_TEXT + 1;
    FLD_UNITSREQUIRED =                         FLD_SURVEY_QUEST_SRC + 1;
  
negative.code: Uses
    SysUtils, Contnrs, Classes,
    fsl_base, fsl_utilities, fsl_collections, fsl_stream, fsl_fpc,
    ftx_loinc_services, regexpr;
  
  Const
    FLAG_LONG_COMMON = 1;
  