Price ParseRecord ->
Arg Items : ^A|L : ProductItem 
    R : XMLRecord    

R.Attr->>
 Let 'code', ERR_NO_CODE
 Let 'price', ERR_NO_PRICE
;

Items .= <
           Title : Title
           Code : <- R.Attr->'code'
           Price : <- R.Attr->'price'
         >
' Title - RecordsIn R ( T : 
                            Title = T.Data [ T.Name = 'title' && T.Data ]
                      )

/