442: p_credit_receiver_id => l_credit_receiver_id,
443: x_return_status => l_return_status
444: )
445: THEN
446: SELECT pa_credit_receivers_s.NEXTVAL INTO l_credit_receiver_id
447: FROM dual;
448: x_credit_receiver_id := l_credit_receiver_id;
449: INSERT INTO pa_credit_receivers(
450: credit_receiver_id,
445: THEN
446: SELECT pa_credit_receivers_s.NEXTVAL INTO l_credit_receiver_id
447: FROM dual;
448: x_credit_receiver_id := l_credit_receiver_id;
449: INSERT INTO pa_credit_receivers(
450: credit_receiver_id,
451: PERSON_ID,
452: CREDIT_TYPE_CODE ,
453: PROJECT_ID ,
672: IF p_validate_only <> FND_API.G_TRUE
673: THEN
674: BEGIN
675: SELECT 'x' INTO l_dummy_char
676: FROM pa_credit_receivers
677: WHERE credit_receiver_id = p_credit_receiver_id
678: AND record_version_number = p_record_version_number
679: FOR UPDATE OF record_version_number NOWAIT;
680: EXCEPTION
706: END;
707: ELSE
708: BEGIN
709: SELECT 'x' INTO l_dummy_char
710: FROM pa_credit_receivers
711: WHERE credit_receiver_id = p_credit_receiver_id
712: AND record_version_number = p_record_version_number;
713: EXCEPTION
714: WHEN NO_DATA_FOUND THEN
750: x_return_status => l_return_status
751: )
752: THEN
753:
754: UPDATE pa_credit_receivers
755: SET CREDIT_PERCENTAGE = l_credit_percentage,
756: start_date_active = p_effective_from_date,
757: TRANSFER_TO_AR_FLAG = p_TRANSFER_TO_AR,
758: end_date_active = l_effective_to_date,
891: IF p_validate_only <> FND_API.G_TRUE
892: THEN
893: BEGIN
894: SELECT 'x' INTO l_dummy_char
895: FROM pa_credit_receivers
896: WHERE credit_receiver_id = p_credit_receiver_id
897: AND record_version_number = p_record_version_number
898: FOR UPDATE OF record_version_number NOWAIT;
899: EXCEPTION
925: END;
926: ELSE
927: BEGIN
928: SELECT 'x' INTO l_dummy_char
929: FROM pa_credit_receivers
930: WHERE credit_receiver_id = p_credit_receiver_id
931: AND record_version_number = p_record_version_number;
932: EXCEPTION
933: WHEN NO_DATA_FOUND THEN
957: x_return_status := 'E';
958: RAISE FND_API.G_EXC_ERROR;
959: END IF;
960:
961: DELETE FROM pa_credit_receivers
962: WHERE credit_receiver_id = p_credit_receiver_id
963: AND RECORD_VERSION_NUMBER = p_RECORD_VERSION_NUMBER;
964:
965: EXCEPTION