pears.NetUploadTypes

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
*/
}