319: END IF;
320: END; /* Validate_Terms_Code */
321:
322: /* This function validates that the shipper code
323: exists in op_ship_mst table */
324:
325: PROCEDURE Validate_Shipper_Code(
326: pi_table_name in varchar2,
327: pi_key_name in varchar2,
330: pi_field_value in out NOCOPY varchar2) IS
331: CURSOR C_Val_Shipper_Code (v_of_shipper_code in varchar2,
332: v_shipper_code out varchar2) IS
333: SELECT shipper_code
334: FROM op_ship_mst
335: WHERE of_shipper_code = v_of_shipper_code;
336: v_temp_shipper_code op_ship_mst.shipper_code%TYPE;
337: BEGIN
338: IF pi_field_value IS NOT NULL THEN
332: v_shipper_code out varchar2) IS
333: SELECT shipper_code
334: FROM op_ship_mst
335: WHERE of_shipper_code = v_of_shipper_code;
336: v_temp_shipper_code op_ship_mst.shipper_code%TYPE;
337: BEGIN
338: IF pi_field_value IS NOT NULL THEN
339: IF C_Val_Shipper_Code%ISOPEN THEN
340: CLOSE C_Val_Shipper_Code;
894:
895: FUNCTION Validate_Shipper_Code(pi_field_value varchar2) return boolean IS
896: CURSOR C_Val_Shipper_Code (v_of_shipper_code in varchar2) IS
897: SELECT 1
898: FROM op_ship_mst
899: WHERE of_shipper_code = v_of_shipper_code;
900: BEGIN
901: IF pi_field_value IS NOT NULL THEN
902: IF C_Val_Shipper_Code%ISOPEN THEN