pears.IQacJournalOutstandingAmount

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQacJournalOutstandingAmount" IS 
{CREATE FUNCTION IQacJournalOutstandingAmount 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN DocID CHAR(8),IN LineNo SMALLINT)
RETURNS DECIMAL(12,2)
BEGIN
  DECLARE rv DECIMAL(12,2);
  DECLARE amt DECIMAL(12,2);
  SET amt=0.0;
  SET rv=0.0;
  // ONLY makes sense FOR suballocatable LINES
  SELECT FIRST allocamount INTO amt FROM iqacjournal WHERE documentid = DocID AND linenumber = LineNo;
  SELECT SUM(allocatedamount) INTO rv FROM iqacallocation WHERE allocateddocumentid = DocID AND allocatedlinenumber = LineNo;
  SET rv=isnull(amt,0.0)-isnull(rv,0.0);
  RETURN rv
END
}