(
IN p_RootID INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

            DECLARE v_RootID INTEGER;
            SET v_RootID = p_RootID;

	            BEGIN
					    DECLARE crs CURSOR WITH RETURN FOR
					     SELECT spbfd.RootID callingRootID,
					            spbfd.FormNo callingFormNo,
					            spbfd.CalledFormNo,
					            spfdef.FormName CalledFormName,
					            spfdef.RootID AS CalledFormRootId,
					            spfdef.MenuCounter CalledMenuCounter,
					            spfdef.BlockCounter CalledBlockCounter
					     FROM SPNS_BlockInFormDefinition spbfd
					          INNER JOIN SPNS_FormDefinition spfdef ON spfdef.FormNo = spbfd.CalledFormNo
					                                                AND spfdef.RootID = spbfd.RootID
					     WHERE spbfd.RootID = v_RootID
					           AND spbfd.CalledFormNo <> 0
					           AND spbfd.CalledFormNo IS NOT NULL
					           AND spbfd.FormNo IN (SELECT * FROM SESSION.numeric_param_temp)
					           ;

				        OPEN crs;
				
                END;
END	
