anchor.diff:    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_SPECIES =                               FLD_FORMULA + 1;
  +  FLD_EXMPL_ANSWERS =                         FLD_FORMULA + 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;
  
positive.code:   StringSplit(ln, ',', SEQUENCE, ln);
    StringSplit(ln, ',', IMMEDIATE_PARENT, ln);
    StringSplit(ln, ',', CODE, CODE_TEXT);
  
    if (CODE.StartsWith('LP')) then
    begin
  
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;
  