1894:
1895: /* Procedure to Validate Resource Value Type */
1896:
1897: PROCEDURE validate_rs_value_type (
1898: p_resource_param_id IN JTF_RS_RESOURCE_VALUES.RESOURCE_PARAM_ID%TYPE,
1899: p_value_type IN JTF_RS_RESOURCE_VALUES.VALUE_TYPE%TYPE,
1900: x_return_status OUT NOCOPY VARCHAR2
1901: )
1902: IS
1895: /* Procedure to Validate Resource Value Type */
1896:
1897: PROCEDURE validate_rs_value_type (
1898: p_resource_param_id IN JTF_RS_RESOURCE_VALUES.RESOURCE_PARAM_ID%TYPE,
1899: p_value_type IN JTF_RS_RESOURCE_VALUES.VALUE_TYPE%TYPE,
1900: x_return_status OUT NOCOPY VARCHAR2
1901: )
1902: IS
1903:
1900: x_return_status OUT NOCOPY VARCHAR2
1901: )
1902: IS
1903:
1904: l_value_type JTF_RS_RESOURCE_VALUES.VALUE_TYPE%TYPE;
1905: c_application_id JTF_RS_RESOURCE_PARAMS.APPLICATION_ID%TYPE;
1906:
1907: CURSOR c_value_type_m (l_application_id JTF_RS_RESOURCE_PARAMS.APPLICATION_ID%TYPE)
1908: IS
1985:
1986: /* Procedure to validate the resource value */
1987:
1988: PROCEDURE validate_resource_value (
1989: p_resource_param_id IN JTF_RS_RESOURCE_VALUES.RESOURCE_PARAM_ID%TYPE,
1990: p_value IN JTF_RS_RESOURCE_VALUES.VALUE%TYPE,
1991: x_return_status OUT NOCOPY VARCHAR2
1992: )
1993: IS
1986: /* Procedure to validate the resource value */
1987:
1988: PROCEDURE validate_resource_value (
1989: p_resource_param_id IN JTF_RS_RESOURCE_VALUES.RESOURCE_PARAM_ID%TYPE,
1990: p_value IN JTF_RS_RESOURCE_VALUES.VALUE%TYPE,
1991: x_return_status OUT NOCOPY VARCHAR2
1992: )
1993: IS
1994:
1991: x_return_status OUT NOCOPY VARCHAR2
1992: )
1993: IS
1994:
1995: l_value JTF_RS_RESOURCE_VALUES.VALUE%TYPE;
1996: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
1997: v_type VARCHAR2(32);
1998: v_length VARCHAR2(32);
1999: p_length NUMBER;