pears.NetDepartmentList

CREATE PROCEDURE "pears"."NetDepartmentList"( IN "pWebUserID" CHAR(20),IN "pDivisionID" CHAR(20) ) 
RESULT( "DepartmentID" CHAR(20),"DepartmentName" CHAR(60) ) 
// IQXWeb
BEGIN
  SELECT "d"."departmentid",
    "d"."name"
    FROM "department" AS "d"
    WHERE("d"."divisionid" = "pDivisionID" OR "d"."divisionid" IS NULL)
    AND "d"."publishtoweb" = 1
    ORDER BY "d"."name" ASC
END /*DOC
2017-08-09 PC create a list of departments within a division which are enabled for web
2018-05-03 VHS/MHS include departments which are non-divisional
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetDepartmentList" IS 
{CREATE PROCEDURE pears."NetDepartmentList"(IN pWebUserID CHAR(20),IN pDivisionID CHAR(20) )
RESULT(DepartmentID CHAR(20),DepartmentName CHAR(60))
// IQXWeb
BEGIN
	SELECT  
        d.departmentid,
        d.name 
    FROM 
        department d
    WHERE
        (d.divisionid=pDivisionID OR d.divisionid IS NULL) 
        AND d.publishtoweb=1
    ORDER BY d.name
END
 
/*DOC
2017-08-09 PC create a list of departments within a division which are enabled for web
2018-05-03 VHS/MHS include departments which are non-divisional
*/
}