95: p_err_num := 0;
96:
97: IF P_price_change_type IN ( 1, 2) THEN
98: IF( P_decimal < 0 ) THEN
99: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
100: v_invalid_decimal_emsg := FND_MESSAGE.GET;
101: RAISE e_invalid_decimal;
102: END IF;
103: IF( P_price_change IS NULL ) THEN
96:
97: IF P_price_change_type IN ( 1, 2) THEN
98: IF( P_decimal < 0 ) THEN
99: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
100: v_invalid_decimal_emsg := FND_MESSAGE.GET;
101: RAISE e_invalid_decimal;
102: END IF;
103: IF( P_price_change IS NULL ) THEN
104: RAISE e_null_price_change ;
329:
330: EXCEPTION
331: WHEN e_orig_record_not_found THEN
332: p_err_num := v_orig_record_not_found_eno;
333: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
334: p_err_msg := FND_MESSAGE.GET;
335: WHEN e_invalid_decimal THEN
336: p_err_num := v_invalid_decimal_eno;
337: p_err_msg := v_invalid_decimal_emsg ;
330: EXCEPTION
331: WHEN e_orig_record_not_found THEN
332: p_err_num := v_orig_record_not_found_eno;
333: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
334: p_err_msg := FND_MESSAGE.GET;
335: WHEN e_invalid_decimal THEN
336: p_err_num := v_invalid_decimal_eno;
337: p_err_msg := v_invalid_decimal_emsg ;
338: WHEN e_null_price_change THEN
336: p_err_num := v_invalid_decimal_eno;
337: p_err_msg := v_invalid_decimal_emsg ;
338: WHEN e_null_price_change THEN
339: p_err_num := v_null_price_change_eno;
340: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
341: p_err_msg := FND_MESSAGE.GET;
342: WHEN OTHERS THEN
343: p_err_num := SQLCODE;
344: p_err_msg := SUBSTR(SQLERRM, 1, 100);
337: p_err_msg := v_invalid_decimal_emsg ;
338: WHEN e_null_price_change THEN
339: p_err_num := v_null_price_change_eno;
340: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
341: p_err_msg := FND_MESSAGE.GET;
342: WHEN OTHERS THEN
343: p_err_num := SQLCODE;
344: p_err_msg := SUBSTR(SQLERRM, 1, 100);
345:
434: BEGIN
435:
436: IF P_price_change_type IN ( 1, 2) THEN
437: IF( P_decimal < 0 ) THEN
438: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
439: v_invalid_decimal_emsg := FND_MESSAGE.GET;
440: RAISE e_invalid_decimal;
441: END IF;
442: IF( P_price_change IS NULL ) THEN
435:
436: IF P_price_change_type IN ( 1, 2) THEN
437: IF( P_decimal < 0 ) THEN
438: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
439: v_invalid_decimal_emsg := FND_MESSAGE.GET;
440: RAISE e_invalid_decimal;
441: END IF;
442: IF( P_price_change IS NULL ) THEN
443: RAISE e_null_price_change ;
675:
676: EXCEPTION
677: WHEN e_orig_record_not_found THEN
678: p_err_num := v_orig_record_not_found_eno;
679: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
680: p_err_msg := FND_MESSAGE.GET;
681: WHEN e_invalid_decimal THEN
682: p_err_num := v_invalid_decimal_eno;
683: p_err_msg := v_invalid_decimal_emsg ;
676: EXCEPTION
677: WHEN e_orig_record_not_found THEN
678: p_err_num := v_orig_record_not_found_eno;
679: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
680: p_err_msg := FND_MESSAGE.GET;
681: WHEN e_invalid_decimal THEN
682: p_err_num := v_invalid_decimal_eno;
683: p_err_msg := v_invalid_decimal_emsg ;
684: WHEN e_null_price_change THEN
682: p_err_num := v_invalid_decimal_eno;
683: p_err_msg := v_invalid_decimal_emsg ;
684: WHEN e_null_price_change THEN
685: p_err_num := v_null_price_change_eno;
686: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
687: p_err_msg := FND_MESSAGE.GET;
688: WHEN OTHERS THEN
689: p_err_num := SQLCODE;
690: p_err_msg := SUBSTR(SQLERRM, 1, 100);
683: p_err_msg := v_invalid_decimal_emsg ;
684: WHEN e_null_price_change THEN
685: p_err_num := v_null_price_change_eno;
686: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
687: p_err_msg := FND_MESSAGE.GET;
688: WHEN OTHERS THEN
689: p_err_num := SQLCODE;
690: p_err_msg := SUBSTR(SQLERRM, 1, 100);
691:
786: BEGIN
787:
788: IF P_price_change_type IN ( 1, 2) THEN
789: IF( P_decimal < 0 ) THEN
790: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
791: v_invalid_decimal_emsg := FND_MESSAGE.GET;
792: RAISE e_invalid_decimal;
793: END IF;
794: IF( P_price_change IS NULL ) THEN
787:
788: IF P_price_change_type IN ( 1, 2) THEN
789: IF( P_decimal < 0 ) THEN
790: FND_MESSAGE.SET_NAME('GML', 'SO_E_DEC_PLACES');
791: v_invalid_decimal_emsg := FND_MESSAGE.GET;
792: RAISE e_invalid_decimal;
793: END IF;
794: IF( P_price_change IS NULL ) THEN
795: RAISE e_null_price_change ;
1003:
1004: EXCEPTION
1005: WHEN e_orig_record_not_found THEN
1006: p_err_num := v_orig_record_not_found_eno;
1007: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1008: p_err_msg := FND_MESSAGE.GET;
1009: WHEN e_invalid_decimal THEN
1010: p_err_num := v_invalid_decimal_eno;
1011: p_err_msg := v_invalid_decimal_emsg ;
1004: EXCEPTION
1005: WHEN e_orig_record_not_found THEN
1006: p_err_num := v_orig_record_not_found_eno;
1007: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1008: p_err_msg := FND_MESSAGE.GET;
1009: WHEN e_invalid_decimal THEN
1010: p_err_num := v_invalid_decimal_eno;
1011: p_err_msg := v_invalid_decimal_emsg ;
1012: WHEN e_null_price_change THEN
1010: p_err_num := v_invalid_decimal_eno;
1011: p_err_msg := v_invalid_decimal_emsg ;
1012: WHEN e_null_price_change THEN
1013: p_err_num := v_null_price_change_eno;
1014: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
1015: p_err_msg := FND_MESSAGE.GET;
1016: WHEN e_invalid_billable_ind THEN
1017: p_err_num := v_invalid_billable_ind_eno;
1018: FND_MESSAGE.SET_NAME( 'GML', 'OP_CHARGE_INVALID_BILLABLE_IND');
1011: p_err_msg := v_invalid_decimal_emsg ;
1012: WHEN e_null_price_change THEN
1013: p_err_num := v_null_price_change_eno;
1014: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
1015: p_err_msg := FND_MESSAGE.GET;
1016: WHEN e_invalid_billable_ind THEN
1017: p_err_num := v_invalid_billable_ind_eno;
1018: FND_MESSAGE.SET_NAME( 'GML', 'OP_CHARGE_INVALID_BILLABLE_IND');
1019: p_err_msg := FND_MESSAGE.GET;
1014: FND_MESSAGE.SET_NAME( 'GML', 'OP_NULL_PRICE_CHANGE');
1015: p_err_msg := FND_MESSAGE.GET;
1016: WHEN e_invalid_billable_ind THEN
1017: p_err_num := v_invalid_billable_ind_eno;
1018: FND_MESSAGE.SET_NAME( 'GML', 'OP_CHARGE_INVALID_BILLABLE_IND');
1019: p_err_msg := FND_MESSAGE.GET;
1020: WHEN e_invalid_base_rate THEN
1021: p_err_num := v_invalid_base_rate_eno;
1022: FND_MESSAGE.SET_NAME( 'GML', 'OP_INVALID_PRICE_CHANGE');
1015: p_err_msg := FND_MESSAGE.GET;
1016: WHEN e_invalid_billable_ind THEN
1017: p_err_num := v_invalid_billable_ind_eno;
1018: FND_MESSAGE.SET_NAME( 'GML', 'OP_CHARGE_INVALID_BILLABLE_IND');
1019: p_err_msg := FND_MESSAGE.GET;
1020: WHEN e_invalid_base_rate THEN
1021: p_err_num := v_invalid_base_rate_eno;
1022: FND_MESSAGE.SET_NAME( 'GML', 'OP_INVALID_PRICE_CHANGE');
1023: p_err_msg := FND_MESSAGE.GET;
1018: FND_MESSAGE.SET_NAME( 'GML', 'OP_CHARGE_INVALID_BILLABLE_IND');
1019: p_err_msg := FND_MESSAGE.GET;
1020: WHEN e_invalid_base_rate THEN
1021: p_err_num := v_invalid_base_rate_eno;
1022: FND_MESSAGE.SET_NAME( 'GML', 'OP_INVALID_PRICE_CHANGE');
1023: p_err_msg := FND_MESSAGE.GET;
1024: WHEN OTHERS THEN
1025: p_err_num := SQLCODE;
1026: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1019: p_err_msg := FND_MESSAGE.GET;
1020: WHEN e_invalid_base_rate THEN
1021: p_err_num := v_invalid_base_rate_eno;
1022: FND_MESSAGE.SET_NAME( 'GML', 'OP_INVALID_PRICE_CHANGE');
1023: p_err_msg := FND_MESSAGE.GET;
1024: WHEN OTHERS THEN
1025: p_err_num := SQLCODE;
1026: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1027:
1232:
1233: EXCEPTION
1234: WHEN e_orig_record_not_found THEN
1235: p_err_num := v_orig_record_not_found_eno;
1236: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1237: p_err_msg := FND_MESSAGE.GET;
1238: WHEN e_charge_type_mismatch THEN
1239: p_err_num := v_charge_type_mismatch_eno;
1240: FND_MESSAGE.SET_NAME( 'GML', 'OP_LINE_CHARGE_EFF_NOT_ALLOWED');
1233: EXCEPTION
1234: WHEN e_orig_record_not_found THEN
1235: p_err_num := v_orig_record_not_found_eno;
1236: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1237: p_err_msg := FND_MESSAGE.GET;
1238: WHEN e_charge_type_mismatch THEN
1239: p_err_num := v_charge_type_mismatch_eno;
1240: FND_MESSAGE.SET_NAME( 'GML', 'OP_LINE_CHARGE_EFF_NOT_ALLOWED');
1241: p_err_msg := FND_MESSAGE.GET;
1236: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1237: p_err_msg := FND_MESSAGE.GET;
1238: WHEN e_charge_type_mismatch THEN
1239: p_err_num := v_charge_type_mismatch_eno;
1240: FND_MESSAGE.SET_NAME( 'GML', 'OP_LINE_CHARGE_EFF_NOT_ALLOWED');
1241: p_err_msg := FND_MESSAGE.GET;
1242: WHEN e_start_before_end THEN
1243: p_err_num := v_start_before_end_eno;
1244: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOLESS_THAN_FROM');
1237: p_err_msg := FND_MESSAGE.GET;
1238: WHEN e_charge_type_mismatch THEN
1239: p_err_num := v_charge_type_mismatch_eno;
1240: FND_MESSAGE.SET_NAME( 'GML', 'OP_LINE_CHARGE_EFF_NOT_ALLOWED');
1241: p_err_msg := FND_MESSAGE.GET;
1242: WHEN e_start_before_end THEN
1243: p_err_num := v_start_before_end_eno;
1244: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOLESS_THAN_FROM');
1245: p_err_msg := FND_MESSAGE.GET;
1240: FND_MESSAGE.SET_NAME( 'GML', 'OP_LINE_CHARGE_EFF_NOT_ALLOWED');
1241: p_err_msg := FND_MESSAGE.GET;
1242: WHEN e_start_before_end THEN
1243: p_err_num := v_start_before_end_eno;
1244: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOLESS_THAN_FROM');
1245: p_err_msg := FND_MESSAGE.GET;
1246: WHEN e_preference_overlap THEN
1247: p_err_num := v_preference_overlap_eno;
1248: FND_MESSAGE.SET_NAME( 'GML', 'OP_RECORD_EXISTS');
1241: p_err_msg := FND_MESSAGE.GET;
1242: WHEN e_start_before_end THEN
1243: p_err_num := v_start_before_end_eno;
1244: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOLESS_THAN_FROM');
1245: p_err_msg := FND_MESSAGE.GET;
1246: WHEN e_preference_overlap THEN
1247: p_err_num := v_preference_overlap_eno;
1248: FND_MESSAGE.SET_NAME( 'GML', 'OP_RECORD_EXISTS');
1249: p_err_msg := FND_MESSAGE.GET;
1244: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOLESS_THAN_FROM');
1245: p_err_msg := FND_MESSAGE.GET;
1246: WHEN e_preference_overlap THEN
1247: p_err_num := v_preference_overlap_eno;
1248: FND_MESSAGE.SET_NAME( 'GML', 'OP_RECORD_EXISTS');
1249: p_err_msg := FND_MESSAGE.GET;
1250: WHEN OTHERS THEN
1251: p_err_num := SQLCODE;
1252: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1245: p_err_msg := FND_MESSAGE.GET;
1246: WHEN e_preference_overlap THEN
1247: p_err_num := v_preference_overlap_eno;
1248: FND_MESSAGE.SET_NAME( 'GML', 'OP_RECORD_EXISTS');
1249: p_err_msg := FND_MESSAGE.GET;
1250: WHEN OTHERS THEN
1251: p_err_num := SQLCODE;
1252: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1253:
1403:
1404: EXCEPTION
1405: WHEN e_orig_record_not_found THEN
1406: p_err_num := v_orig_record_not_found_eno;
1407: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1408: p_err_msg := FND_MESSAGE.GET;
1409: WHEN e_charge_type_mismatch THEN
1410: p_err_num := v_charge_type_mismatch_eno;
1411: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOTAL_CHARGE_NO_ASC');
1404: EXCEPTION
1405: WHEN e_orig_record_not_found THEN
1406: p_err_num := v_orig_record_not_found_eno;
1407: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1408: p_err_msg := FND_MESSAGE.GET;
1409: WHEN e_charge_type_mismatch THEN
1410: p_err_num := v_charge_type_mismatch_eno;
1411: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOTAL_CHARGE_NO_ASC');
1412: p_err_msg := FND_MESSAGE.GET;
1407: FND_MESSAGE.SET_NAME( 'GML', 'OP_COPY_ORIG_NOT_FOUND');
1408: p_err_msg := FND_MESSAGE.GET;
1409: WHEN e_charge_type_mismatch THEN
1410: p_err_num := v_charge_type_mismatch_eno;
1411: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOTAL_CHARGE_NO_ASC');
1412: p_err_msg := FND_MESSAGE.GET;
1413: WHEN OTHERS THEN
1414: p_err_num := SQLCODE;
1415: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1408: p_err_msg := FND_MESSAGE.GET;
1409: WHEN e_charge_type_mismatch THEN
1410: p_err_num := v_charge_type_mismatch_eno;
1411: FND_MESSAGE.SET_NAME( 'GML', 'OP_TOTAL_CHARGE_NO_ASC');
1412: p_err_msg := FND_MESSAGE.GET;
1413: WHEN OTHERS THEN
1414: p_err_num := SQLCODE;
1415: p_err_msg := SUBSTR(SQLERRM, 1, 100);
1416: