# // GetTitle < P_P_STRING 'Text, P_PRICE Record > : P_PRICE - Rc = 0 ..
             -> Text :: *,
                P_PRICE : P_RETAIL_PRICE_LIST_ITEM, 
                          P_WHOLESALE_PRICE_LIST_ITEM
+
  Rc = ExtractTitleString (Text, Record)                                       /* "ExtractTitleString (Text, Record->Data.Title)" */

  if Rc
  +
    AddMessage (Text, PRICE_LIST/NOT_READY) [ !Record->IsReady () ]
  ;
  else
  +
    return <<- ERR_NO_TITLE
  ;
;

# .: ExtractTitleString < P_P_STRING ', P_PRICE >                              /* "ExtractTitleString()  ExtractTitleString(...)" */