(
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,
							            spbfd.ProgramNo,
							            spbfd.FormNo,
							            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.FormNo
							                                                AND spfdef.RootID = spbfd.RootID
							     WHERE spbfd.RootID = v_RootID
							          AND spbfd.ProgramNo IN (SELECT * FROM SESSION.numeric_param_temp)
							          AND spbfd.ProgramNo <> 0
							          AND spbfd.ProgramNo IS NOT NULL;	     					    
													             
				                OPEN crs;
				
                END;
END ss	



