pears.NetTestGetStaff

CREATE PROCEDURE "pears"."NetTestGetStaff"( 
  /* DOC
This procedure fetches the staff id, staff name and staff email from the staff table then checks if they are web enabled or not <br />
It was created to show the apprentacies how to create sample IQXWeb Pages
*/
  IN "pWebUserID" CHAR(20) ) 
RESULT( "staffid" CHAR(20),"name" CHAR(60),"EMail" CHAR(50),"LoginID" CHAR(50) ) 
BEGIN
  SELECT "staff"."staffid","staff"."name","staff"."email","IQXNetUser"."LoginID"
    FROM "staff"
      LEFT OUTER JOIN "IQXNetUser"
      ON "staff"."staffid" = "IQXNetUser"."StaffID"
END /* TEST
call NetTestSetup('');
SELECT * FROM NetTestGetStaff('IQXNET') WHERE staffid='TEST';
expect staffid=TEST, LoginID=test.user.owner;
expect EOF;
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetTestGetStaff" IS 
{CREATE PROCEDURE pears."NetTestGetStaff"
/* DOC
    This procedure fetches the staff id, staff name and staff email from the staff table then checks if they are web enabled or not <br />
    It was created to show the apprentacies how to create sample IQXWeb Pages
*/
( IN pWebUserID CHAR(20) )
RESULT( staffid CHAR(20), name CHAR(60), EMail CHAR(50), LoginID CHAR(50) ) 
BEGIN
    SELECT 
    staff.staffid, staff.name, staff.email, IQXNetUser.LoginID
    FROM staff
 
    LEFT JOIN IQXNetUser
    ON staff.staffid=IQXNetUser.StaffID
END
 
/* TEST
call NetTestSetup('');
SELECT * FROM NetTestGetStaff('IQXNET') WHERE staffid='TEST';
expect staffid=TEST, LoginID=test.user.owner;
expect EOF;
*/
}