pears.CollectionsSetNote [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.CollectionsSetNote ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."CollectionsSetNote"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "pCollectionID" char(20),in "pStaffID" char(20),in "pChatNote" long varchar ) 
result( "presult" char(250) ) 
begin
  call "AuditLog"('COLLECTION',"pcollectionid",
  "string"('Collection Notes Changed - ',(select "name" from "collection" where "collectionid" = "pcollectionid")),(select "notes" from "collection" where "collectionid" = "pcollectionid"),"pChatNote");
  update "collection" set "notes" = "pChatNote" where "collectionid" = "pcollectionid"
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CollectionsSetNote" IS 
{create procedure CollectionsSetNote 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in pCollectionID char(20), in pStaffID char(20), pChatNote long varchar)
result( presult char(250))
begin
   call AuditLog('COLLECTION',pcollectionid, 
    string('Collection Notes Changed - ',(select name from collection where collectionid=pcollectionid)),(select notes from collection where collectionid=pcollectionid),pChatNote);  
 update collection set notes =  pChatNote where collectionid = pcollectionid;
end
}
</code>