====== pears.NetOwnerRequirementsTempdeskList ====== Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace. ===== Original SQL ===== create procedure "pears"."NetOwnerRequirementsTempdeskList"( in "pWebUserID" char(20),in "pType" char(1) ) result( "tempdeskid" char(20),"tempdeskname" char(100),"selected" char(10) ) begin declare "CurrentDesk" char(20); set "CurrentDesk" = (select top 1 "s"."tempdeskid" from "staff" as "s" key join "iqxnetuser" where "iqxnetuserid" = "pWebUserID" order by "s"."staffid" asc); select "d"."tempdeskid", "d"."name" as "tempdeskname", (if "tempdeskid" = "CurrentDesk" then 'Selected' else null endif) as "Selected" from "tempdesk" as "d" where(("d"."desktype" in( 'M','W' ) and "pType" = 'C') or("d"."desktype" = 'S' and "pType" = 'S')) and "d"."divisionid" = any(select "divisionid" from "dashboardstaffdivisions"()) end /* DOC 2018-11-27 PC IW-758 provide list of tempdesks associated with a consultant */ /* TEST update tempdesk set desktype='S' where tempdeskid in ('test','test2'); update staff set tempdeskid='test' where staffid='test'; insert into deptmaintenance (departmentid,staffid) on existing update defaults off values ('~~','TEST'); select tempdeskid,tempdeskname,isnull(selected,'!') as A from NetOwnerRequirementsTempdeskList('test.owner','S' ) where tempdeskid in ('test','test2') order by tempdeskid; expect tempdeskid=TEST,tempdeskname=test,A=Selected; expect tempdeskid=TEST2,tempdeskname=test2,A=!; expect EOF; update tempdesk set desktype='M' where tempdeskid in ('test','test2'); update staff set tempdeskid='test2' where staffid='test'; select tempdeskid,tempdeskname,isnull(selected,'!') as A from NetOwnerRequirementsTempdeskList('test.owner','C' ) where tempdeskid in ('test','test2') order by tempdeskid; expect tempdeskid=TEST,tempdeskname=test,A=!; expect tempdeskid=TEST2,tempdeskname=test2,A=Selected; update tempdesk set desktype='S' where tempdeskid in ('test','test2'); update staff set tempdeskid='test2' where staffid='test'; */ go COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerRequirementsTempdeskList" IS {create PROCEDURE pears."NetOwnerRequirementsTempdeskList"(in pWebUserID char(20),in pType char(1) ) RESULT(tempdeskid char(20),tempdeskname char(100),selected char(10)) BEGIN declare CurrentDesk char(20); set CurrentDesk=(select top 1 s.tempdeskid from staff s key join iqxnetuser where iqxnetuserid=pWebUserID order by s.staffid); select d.tempdeskid, d.name as tempdeskname, (if tempdeskid=CurrentDesk then 'Selected' else null endif) as Selected from tempdesk d where ((d.desktype in ('M','W') and pType='C') or (d.desktype='S' and pType='S')) and d.divisionid in (select divisionid from dashboardstaffdivisions()); END /* DOC 2018-11-27 PC IW-758 provide list of tempdesks associated with a consultant */ /* TEST update tempdesk set desktype='S' where tempdeskid in ('test','test2'); update staff set tempdeskid='test' where staffid='test'; insert into deptmaintenance (departmentid,staffid) on existing update defaults off values ('~~','TEST'); select tempdeskid,tempdeskname,isnull(selected,'!') as A from NetOwnerRequirementsTempdeskList('test.owner','S' ) where tempdeskid in ('test','test2') order by tempdeskid; expect tempdeskid=TEST,tempdeskname=test,A=Selected; expect tempdeskid=TEST2,tempdeskname=test2,A=!; expect EOF; update tempdesk set desktype='M' where tempdeskid in ('test','test2'); update staff set tempdeskid='test2' where staffid='test'; select tempdeskid,tempdeskname,isnull(selected,'!') as A from NetOwnerRequirementsTempdeskList('test.owner','C' ) where tempdeskid in ('test','test2') order by tempdeskid; expect tempdeskid=TEST,tempdeskname=test,A=!; expect tempdeskid=TEST2,tempdeskname=test2,A=Selected; update tempdesk set desktype='S' where tempdeskid in ('test','test2'); update staff set tempdeskid='test2' where staffid='test'; */ }