====== pears.NetUploadTypes ======
<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"."NetUploadTypes"( in "pWebUserID" char(20),in "pOwnerType" char(1) ) 
result( "UploadTypes" char(900) ) 
// IQXWeb
begin
  declare "rv" char(900);
  if "pOwnerType" = 'P' then
    set "rv" = 'primary_cv]~[CV]~[primary_photo]~[Profile Photo]~['
  else
    set "rv" = ''
  end if;
  set "rv" = "rv"+"isnull"((select "list"("string"("DocumentTypeID",']~[',"Description"),']~[' order by "SortOrder" asc,"Description" asc) from "DocumentType" where "isnull"("Class","pownertype") = "pownertype" and "CanLoadFromWeb" = 1),'');
  select "rv"
end /* TEST
select UploadTypes from NetUploadTypes('','p');
expect UploadTypes=primary_cv]~[*;
select (if (select length(UploadTypes) from NetUploadTypes('','')) != (select length(UploadTypes) from NetUploadTypes('','p')) then 1 else 0 endif) as A;
expect A=1;
*/
/* DOC
2018-09-10 PC test routine
*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetUploadTypes" IS 
{create PROCEDURE pears."NetUploadTypes"(in pWebUserID char(20),in pOwnerType char(1))
result(UploadTypes char(900))
// IQXWeb
begin
  declare rv char(900);
  if pOwnerType = 'P' then
    set rv='primary_cv]~[CV]~[primary_photo]~[Profile Photo]~['
  else
    set rv=''
  end if;
  set rv=rv+isnull((select list(string(DocumentTypeID,']~[',Description),']~[' order by SortOrder asc,Description asc) from DocumentType where isnull(Class,pownertype) = pownertype and CanLoadFromWeb = 1),'');
  select rv
end

/* TEST
select UploadTypes from NetUploadTypes('','p');
expect UploadTypes=primary_cv]~[*;
select (if (select length(UploadTypes) from NetUploadTypes('','')) != (select length(UploadTypes) from NetUploadTypes('','p')) then 1 else 0 endif) as A;
expect A=1;
*/

/* DOC
2018-09-10 PC test routine
*/
}
</code>