Probably then (because it isn't an array), I would do it this way:

Code:
Struct tReceipt
   boolean bIsGood
   integer  idsdsd
   string    sdsdsd
   ...etc
End_Struct

Function aaa integer iFile returns tReceipt
  tReceipt tRcpt 
  do something to tRcpt
  if good begin
      move true to tRcpt.bIsGood
      function_return tRcpt
  end
  else begin 
     move false to tRcpt.bIsGood
     function_return tRcpt
  end
end_func


Procedure xxxxx string fName
    tReceipt tRcpt 
     
   
    Get aaa fname to tRcpt
    if (tRcpt.bIsGood=false) begin 
       
    end