(
IN p_RootID INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN
            
            DECLARE v_RootID INTEGER; 
            SET v_RootID = p_RootID; 

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

				        OPEN crs;
				
                END;
END ss	


