655: l_status VARCHAR2(255);
656: l_owner1 VARCHAR2(255);
657: l_temp VARCHAR2(255);
658: BEGIN
659: select instr(P_PROCEDURE_NAME,'.') into dotCheck from dual;
660: IF dotCheck = 0 THEN
661:
662: /*select count(*) into procCheck from sys.all_objects
663: where object_name=trim(upper(P_PROCEDURE_NAME))
675: END IF;
676: ELSE
677: c := dbms_sql.open_cursor;
678: l_sql := 'select ' || P_PROCEDURE_NAME ||
679: '(:attrval,:lang,:attr,:entity) from dual';
680: dbms_sql.parse(c,l_sql,2);
681: dbms_sql.close_cursor(c);
682: RETURN 'VALID';
683: END IF;
697: l_status VARCHAR2(255);
698: l_owner1 VARCHAR2(255);
699: l_temp VARCHAR2(255);
700: BEGIN
701: select instr(P_CUST_PROCEDURE_NAME,'.') into dotCheck from dual;
702: IF dotCheck = 0 THEN
703:
704: /*select count(*) into procCheck from sys.all_objects
705: where object_name=trim(upper(P_CUST_PROCEDURE_NAME))
717: END IF;
718: ELSE
719: c := dbms_sql.open_cursor;
720: l_sql := 'select ' || P_CUST_PROCEDURE_NAME ||
721: '(:record_id,:entity,:attr) from dual';
722: dbms_sql.parse(c,l_sql,2);
723: dbms_sql.close_cursor(c);
724: RETURN 'VALID';
725: END IF;