[Home] [Help]
10: -- Type : Public
11: -- Pre-reqs : None.
12: -- Parameters :
13: -- p_api_version IN NUMBER Required Default = 1.0
14: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
15: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
16: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
17: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
11: -- Pre-reqs : None.
12: -- Parameters :
13: -- p_api_version IN NUMBER Required Default = 1.0
14: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
15: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
16: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
17: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
12: -- Parameters :
13: -- p_api_version IN NUMBER Required Default = 1.0
14: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
15: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
16: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
17: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
13: -- p_api_version IN NUMBER Required Default = 1.0
14: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
15: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
16: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
17: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
21: -- p_project_id IN NUMBER Required
16: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
17: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
21: -- p_project_id IN NUMBER Required
22: -- p_customer_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
23: -- p_customer_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
24: -- p_customer_number IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
18: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
21: -- p_project_id IN NUMBER Required
22: -- p_customer_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
23: -- p_customer_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
24: -- p_customer_number IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
25: -- p_project_relationship_code IN VARCHAR2 Required
26: -- p_customer_bill_split IN NUMBER Required
19: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
21: -- p_project_id IN NUMBER Required
22: -- p_customer_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
23: -- p_customer_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
24: -- p_customer_number IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
25: -- p_project_relationship_code IN VARCHAR2 Required
26: -- p_customer_bill_split IN NUMBER Required
27: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
20: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
21: -- p_project_id IN NUMBER Required
22: -- p_customer_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
23: -- p_customer_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
24: -- p_customer_number IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
25: -- p_project_relationship_code IN VARCHAR2 Required
26: -- p_customer_bill_split IN NUMBER Required
27: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
28: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
25: -- p_project_relationship_code IN VARCHAR2 Required
26: -- p_customer_bill_split IN NUMBER Required
27: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
28: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
29: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
26: -- p_customer_bill_split IN NUMBER Required
27: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
28: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
29: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
27: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
28: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
29: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
28: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
29: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
29: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
30: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
38: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
31: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
38: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
39: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
32: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
33: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
38: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
39: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
40: -- x_customer_id OUT NUMBER Required
34: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
38: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
39: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
40: -- x_customer_id OUT NUMBER Required
41: -- x_return_status OUT VARCHAR2 Required
42: -- x_msg_count OUT NUMBER Required
35: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
36: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
37: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
38: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
39: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
40: -- x_customer_id OUT NUMBER Required
41: -- x_return_status OUT VARCHAR2 Required
42: -- x_msg_count OUT NUMBER Required
43: -- x_msg_data OUT VARCHAR2 Optional
43: -- x_msg_data OUT VARCHAR2 Optional
44:
45: PROCEDURE CREATE_PROJECT_CUSTOMER
46: ( p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
44:
45: PROCEDURE CREATE_PROJECT_CUSTOMER
46: ( p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
45: PROCEDURE CREATE_PROJECT_CUSTOMER
46: ( p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
46: ( p_api_version IN NUMBER := 1.0
47: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
48: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
54: ,p_project_id IN NUMBER
49: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
50: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
54: ,p_project_id IN NUMBER
55: ,p_customer_id IN NUMBER := FND_API.G_MISS_NUM
56: ,p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
51: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
54: ,p_project_id IN NUMBER
55: ,p_customer_id IN NUMBER := FND_API.G_MISS_NUM
56: ,p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
52: ,p_debug_mode IN VARCHAR2 := 'N'
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
54: ,p_project_id IN NUMBER
55: ,p_customer_id IN NUMBER := FND_API.G_MISS_NUM
56: ,p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
53: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
54: ,p_project_id IN NUMBER
55: ,p_customer_id IN NUMBER := FND_API.G_MISS_NUM
56: ,p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
56: ,p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
57: ,p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
58: ,p_project_relationship_code IN VARCHAR2
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
59: ,p_customer_bill_split IN NUMBER
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
60: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
61: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
62: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
63: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
64: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
65: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
66: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
67: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
75: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
68: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
75: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
76: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
69: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
70: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
75: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
76: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
77: ,x_customer_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
71: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
75: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
76: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
77: ,x_customer_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
78: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
79: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
72: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
73: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
74: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
75: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
76: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
77: ,x_customer_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
78: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
79: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
80: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
156: if (p_debug_mode = 'Y') then
157: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Create_Project_Customer BEGIN');
158: end if;
159:
160: if p_commit = FND_API.G_TRUE then
161: savepoint create_project_customer;
162: end if;
163:
164: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
160: if p_commit = FND_API.G_TRUE then
161: savepoint create_project_customer;
162: end if;
163:
164: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
166: end if;
167:
168: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
161: savepoint create_project_customer;
162: end if;
163:
164: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
166: end if;
167:
168: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
169: FND_MSG_PUB.initialize;
164: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
166: end if;
167:
168: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
169: FND_MSG_PUB.initialize;
170: end if;
171:
172: if (p_debug_mode = 'Y') then
236: -- End of required field validation
237:
238: --dbms_output.put_line('22222222222222 Value of p_customer_id'||p_customer_id);
239:
240: if ((p_customer_name = FND_API.G_MISS_CHAR) OR (p_customer_name is NULL)) AND
241: ((p_customer_number = FND_API.G_MISS_CHAR) OR (p_customer_number is NULL)) AND
242: ((p_customer_id = FND_API.G_MISS_NUM) OR (p_customer_id is NULL)) then
243: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
244: ,p_msg_name => 'PA_CUST_NAME_OR_NUM_REQD');
237:
238: --dbms_output.put_line('22222222222222 Value of p_customer_id'||p_customer_id);
239:
240: if ((p_customer_name = FND_API.G_MISS_CHAR) OR (p_customer_name is NULL)) AND
241: ((p_customer_number = FND_API.G_MISS_CHAR) OR (p_customer_number is NULL)) AND
242: ((p_customer_id = FND_API.G_MISS_NUM) OR (p_customer_id is NULL)) then
243: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
244: ,p_msg_name => 'PA_CUST_NAME_OR_NUM_REQD');
245: end if;
238: --dbms_output.put_line('22222222222222 Value of p_customer_id'||p_customer_id);
239:
240: if ((p_customer_name = FND_API.G_MISS_CHAR) OR (p_customer_name is NULL)) AND
241: ((p_customer_number = FND_API.G_MISS_CHAR) OR (p_customer_number is NULL)) AND
242: ((p_customer_id = FND_API.G_MISS_NUM) OR (p_customer_id is NULL)) then
243: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
244: ,p_msg_name => 'PA_CUST_NAME_OR_NUM_REQD');
245: end if;
246: -- Amit : Bug 2965841 New two checks are added below
243: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
244: ,p_msg_name => 'PA_CUST_NAME_OR_NUM_REQD');
245: end if;
246: -- Amit : Bug 2965841 New two checks are added below
247: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
248: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
249: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
250: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
251: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
244: ,p_msg_name => 'PA_CUST_NAME_OR_NUM_REQD');
245: end if;
246: -- Amit : Bug 2965841 New two checks are added below
247: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
248: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
249: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
250: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
251: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
252: end if;
245: end if;
246: -- Amit : Bug 2965841 New two checks are added below
247: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
248: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
249: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
250: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
251: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
252: end if;
253:
250: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
251: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
252: end if;
253:
254: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
255: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
256: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
257: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
258: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
251: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
252: end if;
253:
254: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
255: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
256: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
257: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
258: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
259: end if;
252: end if;
253:
254: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
255: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
256: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
257: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
258: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
259: end if;
260:
266:
267: -- Check for Customer
268:
269: -- Amit 2965841 : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
270: if ((p_customer_number <> FND_API.G_MISS_CHAR) AND (p_customer_number is not NULL)) OR
271: ((p_customer_id <> FND_API.G_MISS_NUM) AND (p_customer_id is not NULL)) then
272: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
273: ( p_customer_id => p_customer_id
274: ,p_customer_number => p_customer_number
267: -- Check for Customer
268:
269: -- Amit 2965841 : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
270: if ((p_customer_number <> FND_API.G_MISS_CHAR) AND (p_customer_number is not NULL)) OR
271: ((p_customer_id <> FND_API.G_MISS_NUM) AND (p_customer_id is not NULL)) then
272: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
273: ( p_customer_id => p_customer_id
274: ,p_customer_number => p_customer_number
275: ,p_check_id_flag => l_check_id_flag
276: ,x_customer_id => l_customer_id
277: ,x_return_status => l_return_status
278: ,x_error_msg_code => l_error_msg_code);
279:
280: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
281: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
282: end if;
283: end if;
284: --dbms_output.put_line('33333333333 Value of p_customer_id'||p_customer_id);
284: --dbms_output.put_line('33333333333 Value of p_customer_id'||p_customer_id);
285: --dbms_output.put_line('33333333333333 Value of l_customer_id'||l_customer_id);
286:
287: if l_customer_id is null then -- Amit 2965841 :
288: if ((p_customer_name <> FND_API.G_MISS_CHAR) AND (p_customer_name is not NULL)) OR
289: ((p_customer_id <> FND_API.G_MISS_NUM) AND (p_customer_id is not NULL)) then
290: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
291: ( p_customer_id => p_customer_id
292: ,p_customer_name => p_customer_name
285: --dbms_output.put_line('33333333333333 Value of l_customer_id'||l_customer_id);
286:
287: if l_customer_id is null then -- Amit 2965841 :
288: if ((p_customer_name <> FND_API.G_MISS_CHAR) AND (p_customer_name is not NULL)) OR
289: ((p_customer_id <> FND_API.G_MISS_NUM) AND (p_customer_id is not NULL)) then
290: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
291: ( p_customer_id => p_customer_id
292: ,p_customer_name => p_customer_name
293: ,x_customer_id => l_customer_id
293: ,x_customer_id => l_customer_id
294: ,x_return_status => l_return_status
295: ,x_error_msg_code => l_error_msg_code);
296:
297: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
298: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
299: end if;
300: end if;
301: end if; -- : Amit 2965841
300: end if;
301: end if; -- : Amit 2965841
302: --dbms_output.put_line('44444444444 Value of p_customer_id'||p_customer_id);
303: --dbms_output.put_line('44444444444444 Value of l_customer_id'||l_customer_id);
304: if ((p_customer_name <> FND_API.G_MISS_CHAR) AND (p_customer_name is not NULL)) AND
305: ((p_customer_number <> FND_API.G_MISS_CHAR) AND (p_customer_number is not NULL)) THEN
306: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
307: ( p_customer_name => p_customer_name
308: ,p_customer_number => p_customer_number
301: end if; -- : Amit 2965841
302: --dbms_output.put_line('44444444444 Value of p_customer_id'||p_customer_id);
303: --dbms_output.put_line('44444444444444 Value of l_customer_id'||l_customer_id);
304: if ((p_customer_name <> FND_API.G_MISS_CHAR) AND (p_customer_name is not NULL)) AND
305: ((p_customer_number <> FND_API.G_MISS_CHAR) AND (p_customer_number is not NULL)) THEN
306: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
307: ( p_customer_name => p_customer_name
308: ,p_customer_number => p_customer_number
309: ,x_customer_id => l_customer_id
309: ,x_customer_id => l_customer_id
310: ,x_return_status => l_return_status
311: ,x_error_msg_code => l_error_msg_code);
312:
313: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
314: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
315: end if;
316: end if;
317: --dbms_output.put_line('5555555 Value of p_customer_id'||p_customer_id);
326: ,x_customer_id => l_bill_to_customer_id
327: ,x_return_status => l_return_status
328: ,x_error_msg_code => l_error_msg_code);
329:
330: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
331: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
332: end if;
333: end if;
334:
339: ,x_customer_id => l_ship_to_customer_id
340: ,x_return_status => l_return_status
341: ,x_error_msg_code => l_error_msg_code);
342:
343: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
344: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
345: end if;
346: end if;
347: : Amit */
347: : Amit */
348:
349: -- Check for Bill Customer
350: -- Amit 2965841 : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
351: -- if ((p_bill_to_customer_number is not null and p_bill_to_customer_number <> FND_API.G_MISS_CHAR)
352: -- or (p_bill_to_customer_name is not null and p_bill_to_customer_name <> FND_API.G_MISS_CHAR))
353: -- then
354: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
355: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
348:
349: -- Check for Bill Customer
350: -- Amit 2965841 : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
351: -- if ((p_bill_to_customer_number is not null and p_bill_to_customer_number <> FND_API.G_MISS_CHAR)
352: -- or (p_bill_to_customer_name is not null and p_bill_to_customer_name <> FND_API.G_MISS_CHAR))
353: -- then
354: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
355: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
356: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
350: -- Amit 2965841 : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
351: -- if ((p_bill_to_customer_number is not null and p_bill_to_customer_number <> FND_API.G_MISS_CHAR)
352: -- or (p_bill_to_customer_name is not null and p_bill_to_customer_name <> FND_API.G_MISS_CHAR))
353: -- then
354: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
355: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
356: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
357: ( p_customer_id => p_bill_to_customer_id
358: ,p_customer_number => p_bill_to_customer_number
351: -- if ((p_bill_to_customer_number is not null and p_bill_to_customer_number <> FND_API.G_MISS_CHAR)
352: -- or (p_bill_to_customer_name is not null and p_bill_to_customer_name <> FND_API.G_MISS_CHAR))
353: -- then
354: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
355: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
356: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
357: ( p_customer_id => p_bill_to_customer_id
358: ,p_customer_number => p_bill_to_customer_number
359: ,x_customer_id => l_bill_to_customer_id
359: ,x_customer_id => l_bill_to_customer_id
360: ,x_return_status => l_return_status
361: ,x_error_msg_code => l_error_msg_code);
362:
363: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
364: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name =>l_error_msg_code||'_BILL');-- Amit 2965841
365: end if;
366: end if;
367:
365: end if;
366: end if;
367:
368: if l_bill_to_customer_id is null then -- Amit 2965841:
369: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) OR
370: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
371: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
372: ( p_customer_id => p_bill_to_customer_id
373: ,p_customer_name => p_bill_to_customer_name
366: end if;
367:
368: if l_bill_to_customer_id is null then -- Amit 2965841:
369: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) OR
370: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
371: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
372: ( p_customer_id => p_bill_to_customer_id
373: ,p_customer_name => p_bill_to_customer_name
374: ,x_customer_id => l_bill_to_customer_id
374: ,x_customer_id => l_bill_to_customer_id
375: ,x_return_status => l_return_status
376: ,x_error_msg_code => l_error_msg_code);
377:
378: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
379: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_BILL');-- Amit 2965841
380: end if;
381: end if;
382: end if; -- : Amit 2965841
380: end if;
381: end if;
382: end if; -- : Amit 2965841
383:
384: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) AND
385: ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) THEN
386: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
387: ( p_customer_name => p_bill_to_customer_name
388: ,p_customer_number => p_bill_to_customer_number
381: end if;
382: end if; -- : Amit 2965841
383:
384: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) AND
385: ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) THEN
386: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
387: ( p_customer_name => p_bill_to_customer_name
388: ,p_customer_number => p_bill_to_customer_number
389: ,x_customer_id => l_bill_to_customer_id
389: ,x_customer_id => l_bill_to_customer_id
390: ,x_return_status => l_return_status
391: ,x_error_msg_code => l_error_msg_code);
392:
393: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
394: if (l_error_msg_code = 'PA_CUST_NAME_NUMBER_INVALID') then
395: l_error_msg_code := l_error_msg_code||'_B';
396: else
397: l_error_msg_code := l_error_msg_code||'_BILL';
399: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
400: end if;
401: end if;
402: -- Bug 2984882 : added following condition
403: if (l_bill_to_customer_id is null and p_bill_to_customer_id is not null and p_bill_to_customer_id <> FND_API.G_MISS_NUM and l_return_status = FND_API.G_RET_STS_SUCCESS) then
404: l_bill_to_customer_id:=p_bill_to_customer_id;
405: end if;
406:
407:
406:
407:
408: -- Check for Ship Customer
409: -- Amit : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
410: if ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) OR
411: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
412: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
413: ( p_customer_id => p_ship_to_customer_id
414: ,p_customer_number => p_ship_to_customer_number
407:
408: -- Check for Ship Customer
409: -- Amit : We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
410: if ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) OR
411: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
412: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
413: ( p_customer_id => p_ship_to_customer_id
414: ,p_customer_number => p_ship_to_customer_number
415: ,x_customer_id => l_ship_to_customer_id
415: ,x_customer_id => l_ship_to_customer_id
416: ,x_return_status => l_return_status
417: ,x_error_msg_code => l_error_msg_code);
418:
419: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
420: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_SHIP');-- Amit 2965841
421: end if;
422: end if;
423:
421: end if;
422: end if;
423:
424: if l_ship_to_customer_id is null then -- Amit 2965841:
425: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) OR
426: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
427: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
428: ( p_customer_id => p_ship_to_customer_id
429: ,p_customer_name => p_ship_to_customer_name
422: end if;
423:
424: if l_ship_to_customer_id is null then -- Amit 2965841:
425: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) OR
426: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
427: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
428: ( p_customer_id => p_ship_to_customer_id
429: ,p_customer_name => p_ship_to_customer_name
430: ,x_customer_id => l_ship_to_customer_id
430: ,x_customer_id => l_ship_to_customer_id
431: ,x_return_status => l_return_status
432: ,x_error_msg_code => l_error_msg_code);
433:
434: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
435: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_SHIP');-- Amit 2965841
436: end if;
437: end if;
438: end if; -- : Amit 2965841
437: end if;
438: end if; -- : Amit 2965841
439:
440:
441: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) AND
442: ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) THEN
443: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
444: ( p_customer_name => p_ship_to_customer_name
445: ,p_customer_number => p_ship_to_customer_number
438: end if; -- : Amit 2965841
439:
440:
441: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) AND
442: ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) THEN
443: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
444: ( p_customer_name => p_ship_to_customer_name
445: ,p_customer_number => p_ship_to_customer_number
446: ,x_customer_id => l_ship_to_customer_id
446: ,x_customer_id => l_ship_to_customer_id
447: ,x_return_status => l_return_status
448: ,x_error_msg_code => l_error_msg_code);
449:
450: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
451: if (l_error_msg_code = 'PA_CUST_NAME_NUMBER_INVALID') then
452: l_error_msg_code := l_error_msg_code||'_S';
453: else
454: l_error_msg_code := l_error_msg_code||'_SHIP';
457: end if;
458: end if;
459:
460: -- Bug 2984882 : added following condition
461: if (l_ship_to_customer_id is null and p_ship_to_customer_id is not null and p_ship_to_customer_id <> FND_API.G_MISS_NUM and l_return_status = FND_API.G_RET_STS_SUCCESS) then
462: l_ship_to_customer_id:=p_ship_to_customer_id;
463: end if;
464:
465:
489:
490: /* End For Bug 2731449 */
491: /*changes for bug 7225756 start here*/
492:
493: if ((p_bill_site_name <> FND_API.G_MISS_CHAR) AND (p_bill_site_name is not NULL)) AND
494: ((p_bill_to_address_id = FND_API.G_MISS_NUM) OR (p_bill_to_address_id is NULL)) then
495:
496: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_BILL_SITE_NAME_OR_ID
497: ( p_customer_id => l_bill_to_customer_id /* For Bug 2731449 */
490: /* End For Bug 2731449 */
491: /*changes for bug 7225756 start here*/
492:
493: if ((p_bill_site_name <> FND_API.G_MISS_CHAR) AND (p_bill_site_name is not NULL)) AND
494: ((p_bill_to_address_id = FND_API.G_MISS_NUM) OR (p_bill_to_address_id is NULL)) then
495:
496: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_BILL_SITE_NAME_OR_ID
497: ( p_customer_id => l_bill_to_customer_id /* For Bug 2731449 */
498: ,p_bill_to_address_id => p_bill_to_address_id
500: ,x_bill_to_address_id => l_bill_to_address_id
501: ,x_return_status => l_return_status
502: ,x_error_msg_code => l_error_msg_code);
503:
504: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
506: end if;
507: end if;
508:
505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
506: end if;
507: end if;
508:
509: if ((p_bill_to_address_id <> FND_API.G_MISS_NUM) AND (p_bill_to_address_id is not NULL)) then
510:
511: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_BILL_SITE_NAME_OR_ID
512: ( p_customer_id => l_bill_to_customer_id /* For Bug 2731449 */
513: ,p_bill_to_address_id => p_bill_to_address_id
516: ,x_bill_to_address_id => l_bill_to_address_id
517: ,x_return_status => l_return_status
518: ,x_error_msg_code => l_error_msg_code);
519:
520: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
521: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
522: end if;
523: end if;
524:
522: end if;
523: end if;
524:
525:
526: if((p_work_site_name <> FND_API.G_MISS_CHAR) AND (p_work_site_name is not NULL)) AND
527: ((p_ship_to_address_id = FND_API.G_MISS_NUM) OR (p_ship_to_address_id is NULL)) then
528: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_WORK_SITE_NAME_OR_ID
529: ( p_customer_id => l_ship_to_customer_id /* For Bug 2731449 */
530: ,p_ship_to_address_id => p_ship_to_address_id
523: end if;
524:
525:
526: if((p_work_site_name <> FND_API.G_MISS_CHAR) AND (p_work_site_name is not NULL)) AND
527: ((p_ship_to_address_id = FND_API.G_MISS_NUM) OR (p_ship_to_address_id is NULL)) then
528: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_WORK_SITE_NAME_OR_ID
529: ( p_customer_id => l_ship_to_customer_id /* For Bug 2731449 */
530: ,p_ship_to_address_id => p_ship_to_address_id
531: ,p_work_site_name => p_work_site_name
532: ,x_ship_to_address_id => l_ship_to_address_id
533: ,x_return_status => l_return_status
534: ,x_error_msg_code => l_error_msg_code);
535:
536: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
537: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
538: end if;
539: end if;
540:
537: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
538: end if;
539: end if;
540:
541: if((p_ship_to_address_id <> FND_API.G_MISS_NUM) AND (p_ship_to_address_id is not NULL)) then
542: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_WORK_SITE_NAME_OR_ID
543: ( p_customer_id => l_ship_to_customer_id /* For Bug 2731449 */
544: ,p_ship_to_address_id => p_ship_to_address_id
545: ,p_work_site_name => p_work_site_name
547: ,x_ship_to_address_id => l_ship_to_address_id
548: ,x_return_status => l_return_status
549: ,x_error_msg_code => l_error_msg_code);
550:
551: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
552: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
553: end if;
554: end if;
555:
562: ,x_receiver_task_id => l_receiver_task_id
563: ,x_return_status => l_return_status
564: ,x_error_msg_code => l_error_msg_code);
565:
566: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
567: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
568: end if;
569: */
570:
569: */
570:
571: --Added by Ansari for currency name to code check.
572:
573: if (p_inv_currency_code <> FND_API.G_MISS_CHAR) AND
574: (p_inv_currency_code is not NULL)
575: then
576: PA_PROJECTS_MAINT_UTILS.Check_currency_name_or_code
577: ( p_agreement_currency => p_inv_currency_code
580: ,x_agreement_currency => l_inv_currency_code
581: ,x_return_status => l_return_status
582: ,x_error_msg_code => l_error_msg_code);
583:
584: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
585: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
586: end if;
587: end if;
588:
604: if l_msg_count > 0 then
605: x_msg_count := l_msg_count;
606: if x_msg_count = 1 then
607: pa_interface_utils_pub.get_messages
608: (p_encoded => FND_API.G_TRUE,
609: p_msg_index => 1,
610: p_msg_count => l_msg_count,
611: p_msg_data => l_msg_data,
612: p_data => l_data,
612: p_data => l_data,
613: p_msg_index_out => l_msg_index_out);
614: x_msg_data := l_data;
615: end if;
616: raise FND_API.G_EXC_ERROR;
617: end if;
618:
619: -- For Bug 2978086 Adding this additional safe code below . If somehow ship and bill cst id is null(which shoule never be)
620: -- then populate it wioth cust id
628: --dbms_output.put_line('Before calling PA_CUSTOMERS_CONTACTS_PVT.CREATE_PROJECT_CUSTOMER');
629: --dbms_output.put_line('Before calling value of l_customer_id'||l_customer_id);
630:
631: PA_CUSTOMERS_CONTACTS_PVT.CREATE_PROJECT_CUSTOMER
632: ( p_commit => FND_API.G_FALSE
633: ,p_validate_only => p_validate_only
634: ,p_validation_level => p_validation_level
635: ,p_calling_module => p_calling_module
636: ,p_debug_mode => p_debug_mode
656: --Billing setup related changes for FP_M development. Tracking bug 3279981
657: ,p_Default_Top_Task_Cust_Flag => p_Default_Top_Task_Cust_Flag );
658: --dbms_output.put_line('Before calling PA_CUSTOMERS_CONTACTS_PVT.CREATE_PROJECT_CUSTOMER l_return_status'||l_return_status);
659:
660: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
661: x_msg_count := FND_MSG_PUB.count_msg;
662: if x_msg_count = 1 then
663: pa_interface_utils_pub.get_messages
664: (p_encoded => FND_API.G_TRUE,
660: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
661: x_msg_count := FND_MSG_PUB.count_msg;
662: if x_msg_count = 1 then
663: pa_interface_utils_pub.get_messages
664: (p_encoded => FND_API.G_TRUE,
665: p_msg_index => 1,
666: p_msg_count => l_msg_count,
667: p_msg_data => l_msg_data,
668: p_data => l_data,
668: p_data => l_data,
669: p_msg_index_out => l_msg_index_out);
670: x_msg_data := l_data;
671: end if;
672: raise FND_API.G_EXC_ERROR;
673: end if;
674:
675: x_customer_id := l_customer_id;
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
672: raise FND_API.G_EXC_ERROR;
673: end if;
674:
675: x_customer_id := l_customer_id;
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: if p_commit = FND_API.G_TRUE then
679: commit work;
680: end if;
674:
675: x_customer_id := l_customer_id;
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: if p_commit = FND_API.G_TRUE then
679: commit work;
680: end if;
681:
682: if (p_debug_mode = 'Y') then
683: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Create_Project_Customer END');
684: end if;
685:
686: EXCEPTION
687: when FND_API.G_EXC_ERROR then
688: if p_commit = FND_API.G_TRUE then
689: rollback to create_project_customer;
690: end if;
691: x_return_status := FND_API.G_RET_STS_ERROR;
684: end if;
685:
686: EXCEPTION
687: when FND_API.G_EXC_ERROR then
688: if p_commit = FND_API.G_TRUE then
689: rollback to create_project_customer;
690: end if;
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
687: when FND_API.G_EXC_ERROR then
688: if p_commit = FND_API.G_TRUE then
689: rollback to create_project_customer;
690: end if;
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
693: if p_commit = FND_API.G_TRUE then
694: rollback to create_project_customer;
695: end if;
688: if p_commit = FND_API.G_TRUE then
689: rollback to create_project_customer;
690: end if;
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
693: if p_commit = FND_API.G_TRUE then
694: rollback to create_project_customer;
695: end if;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
689: rollback to create_project_customer;
690: end if;
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
693: if p_commit = FND_API.G_TRUE then
694: rollback to create_project_customer;
695: end if;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
692: when FND_API.G_EXC_UNEXPECTED_ERROR then
693: if p_commit = FND_API.G_TRUE then
694: rollback to create_project_customer;
695: end if;
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
698: p_procedure_name => 'Create_Project_Customer',
699: p_error_text => SUBSTRB(SQLERRM,1,240));
700: when OTHERS then
697: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
698: p_procedure_name => 'Create_Project_Customer',
699: p_error_text => SUBSTRB(SQLERRM,1,240));
700: when OTHERS then
701: if p_commit = FND_API.G_TRUE then
702: rollback to create_project_customer;
703: end if;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
700: when OTHERS then
701: if p_commit = FND_API.G_TRUE then
702: rollback to create_project_customer;
703: end if;
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
706: p_procedure_name => 'Create_Project_Customer',
707: p_error_text => SUBSTRB(SQLERRM,1,240));
708: raise;
713: -- Type : Public
714: -- Pre-reqs : None.
715: -- Parameters :
716: -- p_api_version IN NUMBER Required Default = 1.0
717: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
718: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
719: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
720: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
721: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
714: -- Pre-reqs : None.
715: -- Parameters :
716: -- p_api_version IN NUMBER Required Default = 1.0
717: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
718: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
719: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
720: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
721: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
722: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
715: -- Parameters :
716: -- p_api_version IN NUMBER Required Default = 1.0
717: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
718: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
719: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
720: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
721: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
722: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
723: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
716: -- p_api_version IN NUMBER Required Default = 1.0
717: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
718: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
719: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
720: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
721: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
722: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
723: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
724: -- p_project_id IN NUMBER Required
719: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
720: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
721: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
722: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
723: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
724: -- p_project_id IN NUMBER Required
725: -- p_customer_id IN NUMBER Required
726: -- p_project_relationship_code IN VARCHAR2 Required
727: -- p_customer_bill_split IN NUMBER Required
726: -- p_project_relationship_code IN VARCHAR2 Required
727: -- p_customer_bill_split IN NUMBER Required
728: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
729: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
730: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
727: -- p_customer_bill_split IN NUMBER Required
728: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
729: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
730: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
728: -- p_bill_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
729: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
730: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
729: -- p_ship_to_customer_id IN NUMBER Optional Default = NULL /* For Bug 2731449 */
730: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
730: -- p_bill_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
731: -- p_ship_to_address_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
732: -- p_bill_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
740: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
733: -- p_work_site_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
734: -- p_inv_currency_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
740: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
741: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
735: -- p_inv_rate_type IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
740: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
741: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
742: -- x_return_status OUT VARCHAR2 Required
743: -- x_msg_count OUT NUMBER Required
736: -- p_inv_rate_date IN DATE Optional Default = FND_API.G_MISS_DATE
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
740: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
741: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
742: -- x_return_status OUT VARCHAR2 Required
743: -- x_msg_count OUT NUMBER Required
744: -- x_msg_data OUT VARCHAR2 Optional
737: -- p_inv_exchange_rate IN NUMBER Optional Default = FND_API.G_MISS_NUM
738: -- p_allow_user_rate_type_flag IN VARCHAR2 Required Default = 'N'
739: -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
740: -- p_receiver_project_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
741: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
742: -- x_return_status OUT VARCHAR2 Required
743: -- x_msg_count OUT NUMBER Required
744: -- x_msg_data OUT VARCHAR2 Optional
745:
744: -- x_msg_data OUT VARCHAR2 Optional
745:
746: PROCEDURE UPDATE_PROJECT_CUSTOMER
747: ( p_api_version IN NUMBER := 1.0
748: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
750: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
751: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
752: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
745:
746: PROCEDURE UPDATE_PROJECT_CUSTOMER
747: ( p_api_version IN NUMBER := 1.0
748: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
750: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
751: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
752: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
753: ,p_debug_mode IN VARCHAR2 := 'N'
746: PROCEDURE UPDATE_PROJECT_CUSTOMER
747: ( p_api_version IN NUMBER := 1.0
748: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
750: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
751: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
752: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
753: ,p_debug_mode IN VARCHAR2 := 'N'
754: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
747: ( p_api_version IN NUMBER := 1.0
748: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
750: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
751: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
752: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
753: ,p_debug_mode IN VARCHAR2 := 'N'
754: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
755: ,p_project_id IN NUMBER
750: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
751: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
752: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
753: ,p_debug_mode IN VARCHAR2 := 'N'
754: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
755: ,p_project_id IN NUMBER
756: ,p_customer_id IN NUMBER
757: ,p_project_relationship_code IN VARCHAR2
758: ,p_customer_bill_split IN NUMBER
755: ,p_project_id IN NUMBER
756: ,p_customer_id IN NUMBER
757: ,p_project_relationship_code IN VARCHAR2
758: ,p_customer_bill_split IN NUMBER
759: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
756: ,p_customer_id IN NUMBER
757: ,p_project_relationship_code IN VARCHAR2
758: ,p_customer_bill_split IN NUMBER
759: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
757: ,p_project_relationship_code IN VARCHAR2
758: ,p_customer_bill_split IN NUMBER
759: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
758: ,p_customer_bill_split IN NUMBER
759: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
759: ,p_bill_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
760: ,p_ship_to_customer_id IN NUMBER := FND_API.G_MISS_NUM /* For Bug 2731449 */
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
761: ,p_bill_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
762: ,p_bill_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
763: ,p_ship_to_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
764: ,p_ship_to_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR /* For Bug 2965841 */
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
765: ,p_bill_to_address_id IN NUMBER := FND_API.G_MISS_NUM
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
766: ,p_ship_to_address_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
767: ,p_bill_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
775: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
768: ,p_work_site_name IN VARCHAR2 := FND_API.G_MISS_CHAR
769: ,p_inv_currency_code IN VARCHAR2 := FND_API.G_MISS_CHAR
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
775: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
776: ,p_bill_another_project_flag IN VARCHAR2 := 'N' --Added by Aditi for tracking bug 4153629
770: ,p_inv_rate_type IN VARCHAR2 := FND_API.G_MISS_CHAR
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
775: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
776: ,p_bill_another_project_flag IN VARCHAR2 := 'N' --Added by Aditi for tracking bug 4153629
777: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
778: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
771: ,p_inv_rate_date IN DATE := FND_API.G_MISS_DATE
772: ,p_inv_exchange_rate IN NUMBER := FND_API.G_MISS_NUM
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
775: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
776: ,p_bill_another_project_flag IN VARCHAR2 := 'N' --Added by Aditi for tracking bug 4153629
777: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
778: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
779: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
773: ,p_allow_user_rate_type_flag IN VARCHAR2 := 'N'
774: ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
775: --,p_receiver_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
776: ,p_bill_another_project_flag IN VARCHAR2 := 'N' --Added by Aditi for tracking bug 4153629
777: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
778: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
779: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
780: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
781: --Billing setup related changes for FP_M development. Tracking bug 3279981
873: if (p_debug_mode = 'Y') then
874: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Project_Customer BEGIN');
875: end if;
876:
877: if p_commit = FND_API.G_TRUE then
878: savepoint update_project_customer;
879: end if;
880:
881: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
877: if p_commit = FND_API.G_TRUE then
878: savepoint update_project_customer;
879: end if;
880:
881: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
884:
885: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
878: savepoint update_project_customer;
879: end if;
880:
881: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
884:
885: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
886: FND_MSG_PUB.initialize;
881: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
882: raise FND_API.G_EXC_UNEXPECTED_ERROR;
883: end if;
884:
885: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
886: FND_MSG_PUB.initialize;
887: end if;
888:
889: if (p_debug_mode = 'Y') then
946:
947: -- Amit 2965841 : Added beloe two checks
948: --dbms_output.put_line('value of p_project_relationship_code 2'||p_project_relationship_code);
949:
950: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
951: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
952: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
953: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
954: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
947: -- Amit 2965841 : Added beloe two checks
948: --dbms_output.put_line('value of p_project_relationship_code 2'||p_project_relationship_code);
949:
950: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
951: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
952: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
953: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
954: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
955: end if;
948: --dbms_output.put_line('value of p_project_relationship_code 2'||p_project_relationship_code);
949:
950: if ((p_bill_to_customer_name = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_name is NULL)) AND
951: ((p_bill_to_customer_number = FND_API.G_MISS_CHAR) OR (p_bill_to_customer_number is NULL)) AND
952: ((p_bill_to_customer_id = FND_API.G_MISS_NUM) OR (p_bill_to_customer_id is NULL)) then
953: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
954: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
955: end if;
956:
953: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
954: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
955: end if;
956:
957: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
958: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
959: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
960: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
961: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
954: ,p_msg_name => 'PA_BILL_TO_CUST_NAME_REQD');
955: end if;
956:
957: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
958: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
959: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
960: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
961: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
962: end if;
955: end if;
956:
957: if ((p_ship_to_customer_name = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_name is NULL)) AND
958: ((p_ship_to_customer_number = FND_API.G_MISS_CHAR) OR (p_ship_to_customer_number is NULL)) AND
959: ((p_ship_to_customer_id = FND_API.G_MISS_NUM) OR (p_ship_to_customer_id is NULL)) then
960: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
961: ,p_msg_name => 'PA_SHIP_TO_CUST_NAME_REQD');
962: end if;
963:
977: ,x_customer_id => l_bill_to_customer_id
978: ,x_return_status => l_return_status
979: ,x_error_msg_code => l_error_msg_code);
980:
981: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
983: end if;
984: end if;
985:
990: ,x_customer_id => l_ship_to_customer_id
991: ,x_return_status => l_return_status
992: ,x_error_msg_code => l_error_msg_code);
993:
994: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
995: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
996: end if;
997: end if;
998: : Amit 2965841*/
997: end if;
998: : Amit 2965841*/
999: -- Check for Bill Customer
1000: -- Amit 2965841: We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
1001: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
1002: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
1003: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
1004: ( p_customer_id => p_bill_to_customer_id
1005: ,p_customer_number => p_bill_to_customer_number
998: : Amit 2965841*/
999: -- Check for Bill Customer
1000: -- Amit 2965841: We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
1001: if ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) OR
1002: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
1003: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
1004: ( p_customer_id => p_bill_to_customer_id
1005: ,p_customer_number => p_bill_to_customer_number
1006: ,x_customer_id => l_bill_to_customer_id
1006: ,x_customer_id => l_bill_to_customer_id
1007: ,x_return_status => l_return_status
1008: ,x_error_msg_code => l_error_msg_code);
1009:
1010: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1011: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name =>l_error_msg_code||'_BILL'); -- Amit 2965841
1012: end if;
1013: end if;
1014: if l_bill_to_customer_id is null then -- Amit 2965841:
1011: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name =>l_error_msg_code||'_BILL'); -- Amit 2965841
1012: end if;
1013: end if;
1014: if l_bill_to_customer_id is null then -- Amit 2965841:
1015: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) OR
1016: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
1017: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
1018: ( p_customer_id => p_bill_to_customer_id
1019: ,p_customer_name => p_bill_to_customer_name
1012: end if;
1013: end if;
1014: if l_bill_to_customer_id is null then -- Amit 2965841:
1015: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) OR
1016: ((p_bill_to_customer_id <> FND_API.G_MISS_NUM) AND (p_bill_to_customer_id is not NULL)) then
1017: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
1018: ( p_customer_id => p_bill_to_customer_id
1019: ,p_customer_name => p_bill_to_customer_name
1020: ,x_customer_id => l_bill_to_customer_id
1020: ,x_customer_id => l_bill_to_customer_id
1021: ,x_return_status => l_return_status
1022: ,x_error_msg_code => l_error_msg_code);
1023:
1024: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1025: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_BILL');-- Amit 2965841
1026: end if;
1027: end if;
1028: end if; -- : Amit 2965841
1026: end if;
1027: end if;
1028: end if; -- : Amit 2965841
1029:
1030: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) AND
1031: ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) THEN
1032: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
1033: ( p_customer_name => p_bill_to_customer_name
1034: ,p_customer_number => p_bill_to_customer_number
1027: end if;
1028: end if; -- : Amit 2965841
1029:
1030: if ((p_bill_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_name is not NULL)) AND
1031: ((p_bill_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_bill_to_customer_number is not NULL)) THEN
1032: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
1033: ( p_customer_name => p_bill_to_customer_name
1034: ,p_customer_number => p_bill_to_customer_number
1035: ,x_customer_id => l_bill_to_customer_id
1035: ,x_customer_id => l_bill_to_customer_id
1036: ,x_return_status => l_return_status
1037: ,x_error_msg_code => l_error_msg_code);
1038:
1039: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1040: if (l_error_msg_code = 'PA_CUST_NAME_NUMBER_INVALID') then
1041: l_error_msg_code := l_error_msg_code||'_B';
1042: else
1043: l_error_msg_code := l_error_msg_code||'_BILL';
1046: end if;
1047: end if;
1048:
1049: -- Bug 2984882 : added following condition
1050: if (l_bill_to_customer_id is null and p_bill_to_customer_id is not null and p_bill_to_customer_id <> FND_API.G_MISS_NUM and l_return_status = FND_API.G_RET_STS_SUCCESS) then
1051: l_bill_to_customer_id:=p_bill_to_customer_id;
1052: end if;
1053:
1054:
1053:
1054:
1055: -- Check for Ship Customer
1056: -- Amit 2965841: We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
1057: if ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) OR
1058: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
1059: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
1060: ( p_customer_id => p_ship_to_customer_id
1061: ,p_customer_number => p_ship_to_customer_number
1054:
1055: -- Check for Ship Customer
1056: -- Amit 2965841: We shd first check for Number as it is unique. And if it is able to find the id then we shd skip the check for name
1057: if ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) OR
1058: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
1059: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NUMBER_OR_ID
1060: ( p_customer_id => p_ship_to_customer_id
1061: ,p_customer_number => p_ship_to_customer_number
1062: ,x_customer_id => l_ship_to_customer_id
1062: ,x_customer_id => l_ship_to_customer_id
1063: ,x_return_status => l_return_status
1064: ,x_error_msg_code => l_error_msg_code);
1065:
1066: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1067: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_SHIP');-- Amit 2965841
1068: end if;
1069: end if;
1070:
1068: end if;
1069: end if;
1070:
1071: if l_ship_to_customer_id is null then -- : Amit 2965841
1072: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) OR
1073: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
1074: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
1075: ( p_customer_id => p_ship_to_customer_id
1076: ,p_customer_name => p_ship_to_customer_name
1069: end if;
1070:
1071: if l_ship_to_customer_id is null then -- : Amit 2965841
1072: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) OR
1073: ((p_ship_to_customer_id <> FND_API.G_MISS_NUM) AND (p_ship_to_customer_id is not NULL)) then
1074: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_OR_ID
1075: ( p_customer_id => p_ship_to_customer_id
1076: ,p_customer_name => p_ship_to_customer_name
1077: ,x_customer_id => l_ship_to_customer_id
1077: ,x_customer_id => l_ship_to_customer_id
1078: ,x_return_status => l_return_status
1079: ,x_error_msg_code => l_error_msg_code);
1080:
1081: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1082: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code||'_SHIP');-- Amit 2965841
1083: end if;
1084: end if;
1085: end if; -- : Amit 2965841
1083: end if;
1084: end if;
1085: end if; -- : Amit 2965841
1086:
1087: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) AND
1088: ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) THEN
1089: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
1090: ( p_customer_name => p_ship_to_customer_name
1091: ,p_customer_number => p_ship_to_customer_number
1084: end if;
1085: end if; -- : Amit 2965841
1086:
1087: if ((p_ship_to_customer_name <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_name is not NULL)) AND
1088: ((p_ship_to_customer_number <> FND_API.G_MISS_CHAR) AND (p_ship_to_customer_number is not NULL)) THEN
1089: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CUSTOMER_NAME_AND_NUMBER
1090: ( p_customer_name => p_ship_to_customer_name
1091: ,p_customer_number => p_ship_to_customer_number
1092: ,x_customer_id => l_ship_to_customer_id
1092: ,x_customer_id => l_ship_to_customer_id
1093: ,x_return_status => l_return_status
1094: ,x_error_msg_code => l_error_msg_code);
1095:
1096: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1097: if (l_error_msg_code = 'PA_CUST_NAME_NUMBER_INVALID') then
1098: l_error_msg_code := l_error_msg_code||'_S';
1099: else
1100: l_error_msg_code := l_error_msg_code||'_SHIP';
1103: end if;
1104: end if;
1105:
1106: -- Bug 2984882 : added following condition
1107: if (l_ship_to_customer_id is null and p_ship_to_customer_id is not null and p_ship_to_customer_id <> FND_API.G_MISS_NUM and l_return_status = FND_API.G_RET_STS_SUCCESS) then
1108: l_ship_to_customer_id:=p_ship_to_customer_id;
1109: end if;
1110:
1111: -- get the value of customer relationship if value is yes then check for the validity of relations with project customers
1136:
1137: IF p_calling_module = 'AMG' THEN
1138: l_check_id_flag := 'N';
1139: END IF;
1140: if ((p_bill_site_name <> FND_API.G_MISS_CHAR) AND (p_bill_site_name is not NULL)) OR
1141: ((p_bill_to_address_id <> FND_API.G_MISS_NUM) AND (p_bill_to_address_id is not NULL)) then
1142: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_BILL_SITE_NAME_OR_ID
1143: ( p_customer_id => l_bill_to_customer_id -- Amit 2965841
1144: ,p_bill_to_address_id => p_bill_to_address_id
1137: IF p_calling_module = 'AMG' THEN
1138: l_check_id_flag := 'N';
1139: END IF;
1140: if ((p_bill_site_name <> FND_API.G_MISS_CHAR) AND (p_bill_site_name is not NULL)) OR
1141: ((p_bill_to_address_id <> FND_API.G_MISS_NUM) AND (p_bill_to_address_id is not NULL)) then
1142: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_BILL_SITE_NAME_OR_ID
1143: ( p_customer_id => l_bill_to_customer_id -- Amit 2965841
1144: ,p_bill_to_address_id => p_bill_to_address_id
1145: ,p_bill_site_name => p_bill_site_name
1147: ,x_bill_to_address_id => l_bill_to_address_id
1148: ,x_return_status => l_return_status
1149: ,x_error_msg_code => l_error_msg_code);
1150:
1151: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1152: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1153: end if;
1154: end if;
1155: --dbms_output.put_line('Value of l_bill_to_customer_id after '||l_bill_to_customer_id);
1157: --dbms_output.put_line('Value of l_bill_to_address_id after '||l_bill_to_address_id);
1158: --dbms_output.put_line('Value of l_ship_to_customer_id'||l_ship_to_customer_id);
1159: --dbms_output.put_line('Value of p_ship_to_address_id'||p_ship_to_address_id);
1160:
1161: if ((p_work_site_name <> FND_API.G_MISS_CHAR) AND (p_work_site_name is not NULL)) OR
1162: ((p_ship_to_address_id <> FND_API.G_MISS_NUM) AND (p_ship_to_address_id is not NULL)) then
1163: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_WORK_SITE_NAME_OR_ID
1164: ( p_customer_id => l_ship_to_customer_id -- Amit 2965841
1165: ,p_ship_to_address_id => p_ship_to_address_id
1158: --dbms_output.put_line('Value of l_ship_to_customer_id'||l_ship_to_customer_id);
1159: --dbms_output.put_line('Value of p_ship_to_address_id'||p_ship_to_address_id);
1160:
1161: if ((p_work_site_name <> FND_API.G_MISS_CHAR) AND (p_work_site_name is not NULL)) OR
1162: ((p_ship_to_address_id <> FND_API.G_MISS_NUM) AND (p_ship_to_address_id is not NULL)) then
1163: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_WORK_SITE_NAME_OR_ID
1164: ( p_customer_id => l_ship_to_customer_id -- Amit 2965841
1165: ,p_ship_to_address_id => p_ship_to_address_id
1166: ,p_work_site_name => p_work_site_name
1170: ,x_error_msg_code => l_error_msg_code);
1171:
1172: /* End For Bug 2731449 */
1173:
1174: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1176: end if;
1177: end if;
1178: --dbms_output.put_line('Value of l_ship_to_customer_id after '||l_ship_to_customer_id);
1186: ,x_receiver_task_id => l_receiver_task_id
1187: ,x_return_status => l_return_status
1188: ,x_error_msg_code => l_error_msg_code);
1189:
1190: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1191: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1192: end if;
1193: */
1194:
1193: */
1194:
1195: --Added by Ansari for currency name to code check.
1196:
1197: if (p_inv_currency_code <> FND_API.G_MISS_CHAR) AND
1198: (p_inv_currency_code is not NULL)
1199: then
1200: PA_PROJECTS_MAINT_UTILS.Check_currency_name_or_code
1201: ( p_agreement_currency => p_inv_currency_code
1204: ,x_agreement_currency => l_inv_currency_code
1205: ,x_return_status => l_return_status
1206: ,x_error_msg_code => l_error_msg_code);
1207:
1208: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1209: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1210: end if;
1211: end if;
1212: /* START For Bug 2731449 */
1231: , X_RETURN_STATUS => l_return_status
1232: , X_MSG_COUNT => l_msg_count
1233: , X_MSG_DATA => l_msg_data
1234: );
1235: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1236: x_msg_count := FND_MSG_PUB.count_msg;
1237: if x_msg_count = 1 then
1238: pa_interface_utils_pub.get_messages
1239: (p_encoded => FND_API.G_TRUE,
1235: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1236: x_msg_count := FND_MSG_PUB.count_msg;
1237: if x_msg_count = 1 then
1238: pa_interface_utils_pub.get_messages
1239: (p_encoded => FND_API.G_TRUE,
1240: p_msg_index => 1,
1241: p_msg_count => l_msg_count,
1242: p_msg_data => l_msg_data,
1243: p_data => l_data,
1243: p_data => l_data,
1244: p_msg_index_out => l_msg_index_out);
1245: x_msg_data := l_data;
1246: end if;
1247: raise FND_API.G_EXC_ERROR;
1248: end if;
1249:
1250: End If;
1251:
1266: , X_MSG_COUNT => l_msg_count
1267: , X_MSG_DATA => l_msg_data
1268: );
1269:
1270: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1271: x_msg_count := FND_MSG_PUB.count_msg;
1272: if x_msg_count = 1 then
1273: pa_interface_utils_pub.get_messages
1274: (p_encoded => FND_API.G_TRUE,
1270: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1271: x_msg_count := FND_MSG_PUB.count_msg;
1272: if x_msg_count = 1 then
1273: pa_interface_utils_pub.get_messages
1274: (p_encoded => FND_API.G_TRUE,
1275: p_msg_index => 1,
1276: p_msg_count => l_msg_count,
1277: p_msg_data => l_msg_data,
1278: p_data => l_data,
1278: p_data => l_data,
1279: p_msg_index_out => l_msg_index_out);
1280: x_msg_data := l_data;
1281: end if;
1282: raise FND_API.G_EXC_ERROR;
1283: end if;
1284: End If;
1285: else
1286: l_bill_to_customer_id := p_bill_to_customer_id; -- Amit
1295: if l_msg_count > 0 then
1296: x_msg_count := l_msg_count;
1297: if x_msg_count = 1 then
1298: pa_interface_utils_pub.get_messages
1299: (p_encoded => FND_API.G_TRUE,
1300: p_msg_index => 1,
1301: p_msg_count => l_msg_count,
1302: p_msg_data => l_msg_data,
1303: p_data => l_data,
1303: p_data => l_data,
1304: p_msg_index_out => l_msg_index_out);
1305: x_msg_data := l_data;
1306: end if;
1307: raise FND_API.G_EXC_ERROR;
1308: end if;
1309:
1310: -- Fix for bug #1656846
1311: open C1(p_project_id);
1311: open C1(p_project_id);
1312: fetch C1 into l_project_currency_code;
1313: close C1;
1314:
1315: if p_inv_currency_code = FND_API.G_MISS_CHAR then
1316: l_project_currency_code2 := NULL;
1317: else
1318: l_project_currency_code2 := p_inv_currency_code;
1319: end if;
1331: --dbms_output.put_line('Value of l_ship_to_address_id before pvt '||l_ship_to_address_id);
1332: --dbms_output.put_line('Value of l_ship_to_customer_id before pvt '||l_ship_to_customer_id);
1333: --dbms_output.put_line('Value of p_bill_another_project_flag before pvt '||p_bill_another_project_flag);
1334: PA_CUSTOMERS_CONTACTS_PVT.UPDATE_PROJECT_CUSTOMER
1335: ( p_commit => FND_API.G_FALSE
1336: ,p_validate_only => p_validate_only
1337: ,p_validation_level => p_validation_level
1338: ,p_calling_module => p_calling_module
1339: ,p_debug_mode => p_debug_mode
1359: ,x_msg_data => l_msg_data
1360: --Billing setup related changes for FP_M development. Tracking bug 3279981
1361: ,p_Default_Top_Task_Cust_Flag => p_Default_Top_Task_Cust_Flag );
1362:
1363: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1364: x_msg_count := FND_MSG_PUB.count_msg;
1365: if x_msg_count = 1 then
1366: pa_interface_utils_pub.get_messages
1367: (p_encoded => FND_API.G_TRUE,
1363: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1364: x_msg_count := FND_MSG_PUB.count_msg;
1365: if x_msg_count = 1 then
1366: pa_interface_utils_pub.get_messages
1367: (p_encoded => FND_API.G_TRUE,
1368: p_msg_index => 1,
1369: p_msg_count => l_msg_count,
1370: p_msg_data => l_msg_data,
1371: p_data => l_data,
1371: p_data => l_data,
1372: p_msg_index_out => l_msg_index_out);
1373: x_msg_data := l_data;
1374: end if;
1375: raise FND_API.G_EXC_ERROR;
1376: end if;
1377:
1378: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379:
1374: end if;
1375: raise FND_API.G_EXC_ERROR;
1376: end if;
1377:
1378: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379:
1380: if p_commit = FND_API.G_TRUE then
1381: commit work;
1382: end if;
1376: end if;
1377:
1378: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379:
1380: if p_commit = FND_API.G_TRUE then
1381: commit work;
1382: end if;
1383:
1384: if (p_debug_mode = 'Y') then
1385: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Project_Customer END');
1386: end if;
1387:
1388: EXCEPTION
1389: when FND_API.G_EXC_ERROR then
1390: if p_commit = FND_API.G_TRUE then
1391: rollback to update_project_customer;
1392: end if;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1386: end if;
1387:
1388: EXCEPTION
1389: when FND_API.G_EXC_ERROR then
1390: if p_commit = FND_API.G_TRUE then
1391: rollback to update_project_customer;
1392: end if;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: when FND_API.G_EXC_UNEXPECTED_ERROR then
1389: when FND_API.G_EXC_ERROR then
1390: if p_commit = FND_API.G_TRUE then
1391: rollback to update_project_customer;
1392: end if;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: when FND_API.G_EXC_UNEXPECTED_ERROR then
1395: if p_commit = FND_API.G_TRUE then
1396: rollback to update_project_customer;
1397: end if;
1390: if p_commit = FND_API.G_TRUE then
1391: rollback to update_project_customer;
1392: end if;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: when FND_API.G_EXC_UNEXPECTED_ERROR then
1395: if p_commit = FND_API.G_TRUE then
1396: rollback to update_project_customer;
1397: end if;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1391: rollback to update_project_customer;
1392: end if;
1393: x_return_status := FND_API.G_RET_STS_ERROR;
1394: when FND_API.G_EXC_UNEXPECTED_ERROR then
1395: if p_commit = FND_API.G_TRUE then
1396: rollback to update_project_customer;
1397: end if;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1394: when FND_API.G_EXC_UNEXPECTED_ERROR then
1395: if p_commit = FND_API.G_TRUE then
1396: rollback to update_project_customer;
1397: end if;
1398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1400: p_procedure_name => 'Update_Project_Customer',
1401: p_error_text => SUBSTRB(SQLERRM,1,240));
1402: when OTHERS then
1399: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1400: p_procedure_name => 'Update_Project_Customer',
1401: p_error_text => SUBSTRB(SQLERRM,1,240));
1402: when OTHERS then
1403: if p_commit = FND_API.G_TRUE then
1404: rollback to update_project_customer;
1405: end if;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1402: when OTHERS then
1403: if p_commit = FND_API.G_TRUE then
1404: rollback to update_project_customer;
1405: end if;
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1408: p_procedure_name => 'Update_Project_Customer',
1409: p_error_text => SUBSTRB(SQLERRM,1,240));
1410: raise;
1415: -- Type : Public
1416: -- Pre-reqs : None.
1417: -- Parameters :
1418: -- p_api_version IN NUMBER Required Default = 1.0
1419: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1420: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1421: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1422: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1423: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1416: -- Pre-reqs : None.
1417: -- Parameters :
1418: -- p_api_version IN NUMBER Required Default = 1.0
1419: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1420: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1421: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1422: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1423: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1424: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1417: -- Parameters :
1418: -- p_api_version IN NUMBER Required Default = 1.0
1419: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1420: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1421: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1422: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1423: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1424: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1425: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1418: -- p_api_version IN NUMBER Required Default = 1.0
1419: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1420: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1421: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1422: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1423: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1424: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1425: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1426: -- p_project_id IN NUMBER Required
1421: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1422: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1423: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1424: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1425: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1426: -- p_project_id IN NUMBER Required
1427: -- p_customer_id IN NUMBER Required
1428: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
1429: -- x_return_status OUT VARCHAR2 Required
1424: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1425: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1426: -- p_project_id IN NUMBER Required
1427: -- p_customer_id IN NUMBER Required
1428: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
1429: -- x_return_status OUT VARCHAR2 Required
1430: -- x_msg_count OUT NUMBER Required
1431: -- x_msg_data OUT VARCHAR2 Optional
1432:
1431: -- x_msg_data OUT VARCHAR2 Optional
1432:
1433: PROCEDURE DELETE_PROJECT_CUSTOMER
1434: ( p_api_version IN NUMBER := 1.0
1435: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1436: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1437: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1438: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1439: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1432:
1433: PROCEDURE DELETE_PROJECT_CUSTOMER
1434: ( p_api_version IN NUMBER := 1.0
1435: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1436: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1437: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1438: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1439: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1440: ,p_debug_mode IN VARCHAR2 := 'N'
1433: PROCEDURE DELETE_PROJECT_CUSTOMER
1434: ( p_api_version IN NUMBER := 1.0
1435: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1436: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1437: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1438: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1439: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1440: ,p_debug_mode IN VARCHAR2 := 'N'
1441: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1434: ( p_api_version IN NUMBER := 1.0
1435: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1436: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1437: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1438: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1439: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1440: ,p_debug_mode IN VARCHAR2 := 'N'
1441: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1442: ,p_project_id IN NUMBER
1437: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1438: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1439: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1440: ,p_debug_mode IN VARCHAR2 := 'N'
1441: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1442: ,p_project_id IN NUMBER
1443: ,p_customer_id IN NUMBER
1444: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
1445: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1440: ,p_debug_mode IN VARCHAR2 := 'N'
1441: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1442: ,p_project_id IN NUMBER
1443: ,p_customer_id IN NUMBER
1444: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
1445: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1446: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1447: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1448: )
1461: if (p_debug_mode = 'Y') then
1462: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Project_Customer BEGIN');
1463: end if;
1464:
1465: if p_commit = FND_API.G_TRUE then
1466: savepoint delete_project_customer;
1467: end if;
1468:
1469: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1465: if p_commit = FND_API.G_TRUE then
1466: savepoint delete_project_customer;
1467: end if;
1468:
1469: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1470: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1471: end if;
1472:
1473: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1466: savepoint delete_project_customer;
1467: end if;
1468:
1469: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1470: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1471: end if;
1472:
1473: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1474: FND_MSG_PUB.initialize;
1469: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1470: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1471: end if;
1472:
1473: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1474: FND_MSG_PUB.initialize;
1475: end if;
1476:
1477: PA_CUSTOMERS_CONTACTS_PVT.DELETE_PROJECT_CUSTOMER
1474: FND_MSG_PUB.initialize;
1475: end if;
1476:
1477: PA_CUSTOMERS_CONTACTS_PVT.DELETE_PROJECT_CUSTOMER
1478: ( p_commit => FND_API.G_FALSE
1479: ,p_validate_only => p_validate_only
1480: ,p_validation_level => p_validation_level
1481: ,p_calling_module => p_calling_module
1482: ,p_debug_mode => p_debug_mode
1487: ,x_return_status => l_return_status
1488: ,x_msg_count => l_msg_count
1489: ,x_msg_data => l_msg_data);
1490:
1491: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1492: x_msg_count := FND_MSG_PUB.count_msg;
1493: if x_msg_count = 1 then
1494: pa_interface_utils_pub.get_messages
1495: (p_encoded => FND_API.G_TRUE,
1491: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1492: x_msg_count := FND_MSG_PUB.count_msg;
1493: if x_msg_count = 1 then
1494: pa_interface_utils_pub.get_messages
1495: (p_encoded => FND_API.G_TRUE,
1496: p_msg_index => 1,
1497: p_msg_count => l_msg_count,
1498: p_msg_data => l_msg_data,
1499: p_data => l_data,
1499: p_data => l_data,
1500: p_msg_index_out => l_msg_index_out);
1501: x_msg_data := l_data;
1502: end if;
1503: raise FND_API.G_EXC_ERROR;
1504: end if;
1505:
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507:
1502: end if;
1503: raise FND_API.G_EXC_ERROR;
1504: end if;
1505:
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507:
1508: if p_commit = FND_API.G_TRUE then
1509: commit work;
1510: end if;
1504: end if;
1505:
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507:
1508: if p_commit = FND_API.G_TRUE then
1509: commit work;
1510: end if;
1511:
1512: if (p_debug_mode = 'Y') then
1513: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Project_Customer END');
1514: end if;
1515:
1516: EXCEPTION
1517: when FND_API.G_EXC_ERROR then
1518: if p_commit = FND_API.G_TRUE then
1519: rollback to delete_project_customer;
1520: end if;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1514: end if;
1515:
1516: EXCEPTION
1517: when FND_API.G_EXC_ERROR then
1518: if p_commit = FND_API.G_TRUE then
1519: rollback to delete_project_customer;
1520: end if;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: when FND_API.G_EXC_UNEXPECTED_ERROR then
1517: when FND_API.G_EXC_ERROR then
1518: if p_commit = FND_API.G_TRUE then
1519: rollback to delete_project_customer;
1520: end if;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: when FND_API.G_EXC_UNEXPECTED_ERROR then
1523: if p_commit = FND_API.G_TRUE then
1524: rollback to delete_project_customer;
1525: end if;
1518: if p_commit = FND_API.G_TRUE then
1519: rollback to delete_project_customer;
1520: end if;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: when FND_API.G_EXC_UNEXPECTED_ERROR then
1523: if p_commit = FND_API.G_TRUE then
1524: rollback to delete_project_customer;
1525: end if;
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1519: rollback to delete_project_customer;
1520: end if;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: when FND_API.G_EXC_UNEXPECTED_ERROR then
1523: if p_commit = FND_API.G_TRUE then
1524: rollback to delete_project_customer;
1525: end if;
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1522: when FND_API.G_EXC_UNEXPECTED_ERROR then
1523: if p_commit = FND_API.G_TRUE then
1524: rollback to delete_project_customer;
1525: end if;
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1528: p_procedure_name => 'Delete_Project_Customer',
1529: p_error_text => SUBSTRB(SQLERRM,1,240));
1530: when OTHERS then
1527: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1528: p_procedure_name => 'Delete_Project_Customer',
1529: p_error_text => SUBSTRB(SQLERRM,1,240));
1530: when OTHERS then
1531: if p_commit = FND_API.G_TRUE then
1532: rollback to delete_project_customer;
1533: end if;
1534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1535: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1530: when OTHERS then
1531: if p_commit = FND_API.G_TRUE then
1532: rollback to delete_project_customer;
1533: end if;
1534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1535: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1536: p_procedure_name => 'Delete_Project_Customer',
1537: p_error_text => SUBSTRB(SQLERRM,1,240));
1538: raise;
1543: -- Type : Public
1544: -- Pre-reqs : None.
1545: -- Parameters :
1546: -- p_api_version IN NUMBER Required Default = 1.0
1547: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1548: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1549: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1551: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1544: -- Pre-reqs : None.
1545: -- Parameters :
1546: -- p_api_version IN NUMBER Required Default = 1.0
1547: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1548: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1549: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1551: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1552: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1545: -- Parameters :
1546: -- p_api_version IN NUMBER Required Default = 1.0
1547: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1548: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1549: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1551: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1552: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1553: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1546: -- p_api_version IN NUMBER Required Default = 1.0
1547: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1548: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1549: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1551: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1552: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1553: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1554: -- p_project_id IN NUMBER Required
1549: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1550: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1551: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1552: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1553: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1554: -- p_project_id IN NUMBER Required
1555: -- p_customer_id IN NUMBER Required
1556: -- p_bill_ship_customer_id IN NUMBER Required
1557: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1553: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1554: -- p_project_id IN NUMBER Required
1555: -- p_customer_id IN NUMBER Required
1556: -- p_bill_ship_customer_id IN NUMBER Required
1557: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1558: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1559: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1560: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1561: -- x_return_status OUT VARCHAR2 Required
1554: -- p_project_id IN NUMBER Required
1555: -- p_customer_id IN NUMBER Required
1556: -- p_bill_ship_customer_id IN NUMBER Required
1557: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1558: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1559: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1560: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1561: -- x_return_status OUT VARCHAR2 Required
1562: -- x_msg_count OUT NUMBER Required
1555: -- p_customer_id IN NUMBER Required
1556: -- p_bill_ship_customer_id IN NUMBER Required
1557: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1558: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1559: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1560: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1561: -- x_return_status OUT VARCHAR2 Required
1562: -- x_msg_count OUT NUMBER Required
1563: -- x_msg_data OUT VARCHAR2 Optional
1556: -- p_bill_ship_customer_id IN NUMBER Required
1557: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1558: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1559: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1560: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1561: -- x_return_status OUT VARCHAR2 Required
1562: -- x_msg_count OUT NUMBER Required
1563: -- x_msg_data OUT VARCHAR2 Optional
1564:
1563: -- x_msg_data OUT VARCHAR2 Optional
1564:
1565: PROCEDURE CREATE_CUSTOMER_CONTACT
1566: ( p_api_version IN NUMBER := 1.0
1567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1569: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1570: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1571: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1564:
1565: PROCEDURE CREATE_CUSTOMER_CONTACT
1566: ( p_api_version IN NUMBER := 1.0
1567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1569: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1570: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1571: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1572: ,p_debug_mode IN VARCHAR2 := 'N'
1565: PROCEDURE CREATE_CUSTOMER_CONTACT
1566: ( p_api_version IN NUMBER := 1.0
1567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1569: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1570: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1571: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1572: ,p_debug_mode IN VARCHAR2 := 'N'
1573: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1566: ( p_api_version IN NUMBER := 1.0
1567: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1568: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1569: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1570: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1571: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1572: ,p_debug_mode IN VARCHAR2 := 'N'
1573: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1574: ,p_project_id IN NUMBER
1569: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1570: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1571: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1572: ,p_debug_mode IN VARCHAR2 := 'N'
1573: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1574: ,p_project_id IN NUMBER
1575: ,p_customer_id IN NUMBER
1576: ,p_bill_ship_customer_id IN NUMBER /* For Bug 2731449 */
1577: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1573: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1574: ,p_project_id IN NUMBER
1575: ,p_customer_id IN NUMBER
1576: ,p_bill_ship_customer_id IN NUMBER /* For Bug 2731449 */
1577: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1578: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1579: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1580: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1581: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1574: ,p_project_id IN NUMBER
1575: ,p_customer_id IN NUMBER
1576: ,p_bill_ship_customer_id IN NUMBER /* For Bug 2731449 */
1577: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1578: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1579: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1580: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1581: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1582: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1575: ,p_customer_id IN NUMBER
1576: ,p_bill_ship_customer_id IN NUMBER /* For Bug 2731449 */
1577: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1578: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1579: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1580: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1581: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1582: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1583: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1576: ,p_bill_ship_customer_id IN NUMBER /* For Bug 2731449 */
1577: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1578: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1579: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1580: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1581: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1582: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
1583: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1584: )
1662: if (p_debug_mode = 'Y') then
1663: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Create_Customer_Contact BEGIN');
1664: end if;
1665:
1666: if p_commit = FND_API.G_TRUE then
1667: savepoint create_customer_contact;
1668: end if;
1669:
1670: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1666: if p_commit = FND_API.G_TRUE then
1667: savepoint create_customer_contact;
1668: end if;
1669:
1670: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1671: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1672: end if;
1673:
1674: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1667: savepoint create_customer_contact;
1668: end if;
1669:
1670: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1671: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1672: end if;
1673:
1674: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1675: FND_MSG_PUB.initialize;
1670: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
1671: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1672: end if;
1673:
1674: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
1675: FND_MSG_PUB.initialize;
1676: end if;
1677:
1678: if (p_debug_mode = 'Y') then
1678: if (p_debug_mode = 'Y') then
1679: pa_debug.debug('Performing ID validations and conversions...');
1680: end if;
1681:
1682: if ((p_project_contact_type_code = FND_API.G_MISS_CHAR) OR (p_project_contact_type_code is NULL)) AND
1683: ((p_project_contact_type_name = FND_API.G_MISS_CHAR) OR (p_project_contact_type_name is NULL)) then
1684: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1685: ,p_msg_name => 'PA_CONTACT_TYPE_REQD');
1686: end if;
1679: pa_debug.debug('Performing ID validations and conversions...');
1680: end if;
1681:
1682: if ((p_project_contact_type_code = FND_API.G_MISS_CHAR) OR (p_project_contact_type_code is NULL)) AND
1683: ((p_project_contact_type_name = FND_API.G_MISS_CHAR) OR (p_project_contact_type_name is NULL)) then
1684: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1685: ,p_msg_name => 'PA_CONTACT_TYPE_REQD');
1686: end if;
1687:
1685: ,p_msg_name => 'PA_CONTACT_TYPE_REQD');
1686: end if;
1687:
1688: if p_calling_module <> 'FORM' then
1689: if ((p_project_contact_type_name <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_name is not NULL)) OR
1690: ((p_project_contact_type_code <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_code is not NULL)) then
1691: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_TYP_NAME_OR_CODE
1692: ( p_project_contact_type_code => p_project_contact_type_code
1693: ,p_project_contact_type_name => p_project_contact_type_name
1686: end if;
1687:
1688: if p_calling_module <> 'FORM' then
1689: if ((p_project_contact_type_name <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_name is not NULL)) OR
1690: ((p_project_contact_type_code <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_code is not NULL)) then
1691: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_TYP_NAME_OR_CODE
1692: ( p_project_contact_type_code => p_project_contact_type_code
1693: ,p_project_contact_type_name => p_project_contact_type_name
1694: ,p_check_id_flag => 'N'
1695: ,x_project_contact_type_code => l_project_contact_type_code
1696: ,x_return_status => l_return_status
1697: ,x_error_msg_code => l_error_msg_code);
1698:
1699: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1700: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1701: end if;
1702: end if;
1703: end if;
1701: end if;
1702: end if;
1703: end if;
1704:
1705: if ((p_contact_id = FND_API.G_MISS_NUM) OR (p_contact_id is NULL)) AND
1706: ((p_contact_name = FND_API.G_MISS_CHAR) OR (p_contact_name is NULL)) then
1707: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1708: ,p_msg_name => 'PA_CONTACT_NAME_REQD');
1709: end if;
1702: end if;
1703: end if;
1704:
1705: if ((p_contact_id = FND_API.G_MISS_NUM) OR (p_contact_id is NULL)) AND
1706: ((p_contact_name = FND_API.G_MISS_CHAR) OR (p_contact_name is NULL)) then
1707: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1708: ,p_msg_name => 'PA_CONTACT_NAME_REQD');
1709: end if;
1710:
1712: /* if p_calling_module <> 'FORM' then
1713: For Bug 2731449
1714:
1715: -- check for contact id with respect to bill to or ship to or project customer depending on value of p_project_contact_type_code
1716: if ((p_contact_name <> FND_API.G_MISS_CHAR) AND (p_contact_name is not NULL)) OR
1717: ((p_contact_id <> FND_API.G_MISS_NUM) AND (p_contact_id is not NULL)) then
1718: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_NAME_OR_ID
1719: ( p_customer_id => p_customer_id
1720: ,p_project_contact_type_code => l_project_contact_type_code
1713: For Bug 2731449
1714:
1715: -- check for contact id with respect to bill to or ship to or project customer depending on value of p_project_contact_type_code
1716: if ((p_contact_name <> FND_API.G_MISS_CHAR) AND (p_contact_name is not NULL)) OR
1717: ((p_contact_id <> FND_API.G_MISS_NUM) AND (p_contact_id is not NULL)) then
1718: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_NAME_OR_ID
1719: ( p_customer_id => p_customer_id
1720: ,p_project_contact_type_code => l_project_contact_type_code
1721: ,p_contact_id => p_contact_id
1723: ,x_contact_id => l_contact_id
1724: ,x_return_status => l_return_status
1725: ,x_error_msg_code => l_error_msg_code);
1726:
1727: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1728: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1729: end if;
1730: end if;
1731:
1791: ,x_contact_id => l_contact_id
1792: ,x_return_status => l_return_status
1793: ,x_error_msg_code => l_error_msg_code);
1794:
1795: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1796: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1797: end if;
1798: else
1799: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_NAME_OR_ID
1805: ,x_contact_id => l_contact_id
1806: ,x_return_status => l_return_status
1807: ,x_error_msg_code => l_error_msg_code);
1808:
1809: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1810: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
1811: end if;
1812: end if;
1813:
1821: if l_msg_count > 0 then
1822: x_msg_count := l_msg_count;
1823: if x_msg_count = 1 then
1824: pa_interface_utils_pub.get_messages
1825: (p_encoded => FND_API.G_TRUE,
1826: p_msg_index => 1,
1827: p_msg_count => l_msg_count,
1828: p_msg_data => l_msg_data,
1829: p_data => l_data,
1829: p_data => l_data,
1830: p_msg_index_out => l_msg_index_out);
1831: x_msg_data := l_data;
1832: end if;
1833: raise FND_API.G_EXC_ERROR;
1834: end if;
1835:
1836: PA_CUSTOMERS_CONTACTS_PVT.CREATE_CUSTOMER_CONTACT
1837: ( p_commit => FND_API.G_FALSE
1833: raise FND_API.G_EXC_ERROR;
1834: end if;
1835:
1836: PA_CUSTOMERS_CONTACTS_PVT.CREATE_CUSTOMER_CONTACT
1837: ( p_commit => FND_API.G_FALSE
1838: ,p_validate_only => p_validate_only
1839: ,p_validation_level => p_validation_level
1840: ,p_calling_module => p_calling_module
1841: ,p_debug_mode => p_debug_mode
1848: ,x_return_status => l_return_status
1849: ,x_msg_count => l_msg_count
1850: ,x_msg_data => l_msg_data);
1851:
1852: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1853: x_msg_count := FND_MSG_PUB.count_msg;
1854: if x_msg_count = 1 then
1855: pa_interface_utils_pub.get_messages
1856: (p_encoded => FND_API.G_TRUE,
1852: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1853: x_msg_count := FND_MSG_PUB.count_msg;
1854: if x_msg_count = 1 then
1855: pa_interface_utils_pub.get_messages
1856: (p_encoded => FND_API.G_TRUE,
1857: p_msg_index => 1,
1858: p_msg_count => l_msg_count,
1859: p_msg_data => l_msg_data,
1860: p_data => l_data,
1860: p_data => l_data,
1861: p_msg_index_out => l_msg_index_out);
1862: x_msg_data := l_data;
1863: end if;
1864: raise FND_API.G_EXC_ERROR;
1865: end if;
1866:
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1863: end if;
1864: raise FND_API.G_EXC_ERROR;
1865: end if;
1866:
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: if p_commit = FND_API.G_TRUE then
1870: commit work;
1871: end if;
1865: end if;
1866:
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: if p_commit = FND_API.G_TRUE then
1870: commit work;
1871: end if;
1872:
1873: if (p_debug_mode = 'Y') then
1874: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Create_Customer_Contact END');
1875: end if;
1876:
1877: EXCEPTION
1878: when FND_API.G_EXC_ERROR then
1879: if p_commit = FND_API.G_TRUE then
1880: rollback to create_customer_contact;
1881: end if;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1875: end if;
1876:
1877: EXCEPTION
1878: when FND_API.G_EXC_ERROR then
1879: if p_commit = FND_API.G_TRUE then
1880: rollback to create_customer_contact;
1881: end if;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: when FND_API.G_EXC_UNEXPECTED_ERROR then
1878: when FND_API.G_EXC_ERROR then
1879: if p_commit = FND_API.G_TRUE then
1880: rollback to create_customer_contact;
1881: end if;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: when FND_API.G_EXC_UNEXPECTED_ERROR then
1884: if p_commit = FND_API.G_TRUE then
1885: rollback to create_customer_contact;
1886: end if;
1879: if p_commit = FND_API.G_TRUE then
1880: rollback to create_customer_contact;
1881: end if;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: when FND_API.G_EXC_UNEXPECTED_ERROR then
1884: if p_commit = FND_API.G_TRUE then
1885: rollback to create_customer_contact;
1886: end if;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1880: rollback to create_customer_contact;
1881: end if;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: when FND_API.G_EXC_UNEXPECTED_ERROR then
1884: if p_commit = FND_API.G_TRUE then
1885: rollback to create_customer_contact;
1886: end if;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1888: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1883: when FND_API.G_EXC_UNEXPECTED_ERROR then
1884: if p_commit = FND_API.G_TRUE then
1885: rollback to create_customer_contact;
1886: end if;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1888: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1889: p_procedure_name => 'Create_Customer_Contact',
1890: p_error_text => SUBSTRB(SQLERRM,1,240));
1891: when OTHERS then
1888: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1889: p_procedure_name => 'Create_Customer_Contact',
1890: p_error_text => SUBSTRB(SQLERRM,1,240));
1891: when OTHERS then
1892: if p_commit = FND_API.G_TRUE then
1893: rollback to create_customer_contact;
1894: end if;
1895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1896: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1891: when OTHERS then
1892: if p_commit = FND_API.G_TRUE then
1893: rollback to create_customer_contact;
1894: end if;
1895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1896: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
1897: p_procedure_name => 'Create_Customer_Contact',
1898: p_error_text => SUBSTRB(SQLERRM,1,240));
1899: raise;
1904: -- Type : Public
1905: -- Pre-reqs : None.
1906: -- Parameters :
1907: -- p_api_version IN NUMBER Required Default = 1.0
1908: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1909: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1910: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1911: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1912: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1905: -- Pre-reqs : None.
1906: -- Parameters :
1907: -- p_api_version IN NUMBER Required Default = 1.0
1908: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1909: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1910: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1911: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1912: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1913: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1906: -- Parameters :
1907: -- p_api_version IN NUMBER Required Default = 1.0
1908: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1909: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1910: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1911: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1912: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1913: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1914: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1907: -- p_api_version IN NUMBER Required Default = 1.0
1908: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
1909: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
1910: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1911: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1912: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1913: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1914: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1915: -- p_project_id IN NUMBER Required
1910: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
1911: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1912: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
1913: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
1914: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1915: -- p_project_id IN NUMBER Required
1916: -- p_customer_id IN NUMBER Required
1917: -- p_bill_ship_customer_id IN NUMBER Required
1918: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1914: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
1915: -- p_project_id IN NUMBER Required
1916: -- p_customer_id IN NUMBER Required
1917: -- p_bill_ship_customer_id IN NUMBER Required
1918: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1919: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1920: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1921: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1922: -- p_rowid IN VARCHAR2 Required
1915: -- p_project_id IN NUMBER Required
1916: -- p_customer_id IN NUMBER Required
1917: -- p_bill_ship_customer_id IN NUMBER Required
1918: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1919: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1920: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1921: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1922: -- p_rowid IN VARCHAR2 Required
1923: -- p_record_version_number IN NUMBER Required
1916: -- p_customer_id IN NUMBER Required
1917: -- p_bill_ship_customer_id IN NUMBER Required
1918: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1919: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1920: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1921: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1922: -- p_rowid IN VARCHAR2 Required
1923: -- p_record_version_number IN NUMBER Required
1924: -- x_return_status OUT VARCHAR2 Required
1917: -- p_bill_ship_customer_id IN NUMBER Required
1918: -- p_contact_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
1919: -- p_contact_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1920: -- p_project_contact_type_code IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1921: -- p_project_contact_type_name IN VARCHAR2 Optional Default = FND_API.G_MISS_CHAR
1922: -- p_rowid IN VARCHAR2 Required
1923: -- p_record_version_number IN NUMBER Required
1924: -- x_return_status OUT VARCHAR2 Required
1925: -- x_msg_count OUT NUMBER Required
1926: -- x_msg_data OUT VARCHAR2 Optional
1927:
1928: PROCEDURE UPDATE_CUSTOMER_CONTACT
1929: ( p_api_version IN NUMBER := 1.0
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1932: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1933: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1934: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1927:
1928: PROCEDURE UPDATE_CUSTOMER_CONTACT
1929: ( p_api_version IN NUMBER := 1.0
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1932: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1933: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1934: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1935: ,p_debug_mode IN VARCHAR2 := 'N'
1928: PROCEDURE UPDATE_CUSTOMER_CONTACT
1929: ( p_api_version IN NUMBER := 1.0
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1932: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1933: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1934: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1935: ,p_debug_mode IN VARCHAR2 := 'N'
1936: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1929: ( p_api_version IN NUMBER := 1.0
1930: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1931: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1932: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1933: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1934: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1935: ,p_debug_mode IN VARCHAR2 := 'N'
1936: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1937: ,p_project_id IN NUMBER
1932: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1933: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1934: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1935: ,p_debug_mode IN VARCHAR2 := 'N'
1936: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1937: ,p_project_id IN NUMBER
1938: ,p_customer_id IN NUMBER
1939: ,p_bill_ship_customer_id IN NUMBER
1940: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1936: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
1937: ,p_project_id IN NUMBER
1938: ,p_customer_id IN NUMBER
1939: ,p_bill_ship_customer_id IN NUMBER
1940: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1941: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1942: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1943: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1944: ,p_rowid IN VARCHAR2
1937: ,p_project_id IN NUMBER
1938: ,p_customer_id IN NUMBER
1939: ,p_bill_ship_customer_id IN NUMBER
1940: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1941: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1942: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1943: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1944: ,p_rowid IN VARCHAR2
1945: ,p_record_version_number IN NUMBER
1938: ,p_customer_id IN NUMBER
1939: ,p_bill_ship_customer_id IN NUMBER
1940: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1941: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1942: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1943: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1944: ,p_rowid IN VARCHAR2
1945: ,p_record_version_number IN NUMBER
1946: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1939: ,p_bill_ship_customer_id IN NUMBER
1940: ,p_contact_id IN NUMBER := FND_API.G_MISS_NUM
1941: ,p_contact_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1942: ,p_project_contact_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR
1943: ,p_project_contact_type_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1944: ,p_rowid IN VARCHAR2
1945: ,p_record_version_number IN NUMBER
1946: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1947: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2026: if (p_debug_mode = 'Y') then
2027: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Customer_Contact BEGIN');
2028: end if;
2029:
2030: if p_commit = FND_API.G_TRUE then
2031: savepoint update_customer_contact;
2032: end if;
2033:
2034: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2030: if p_commit = FND_API.G_TRUE then
2031: savepoint update_customer_contact;
2032: end if;
2033:
2034: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2035: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2036: end if;
2037:
2038: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2031: savepoint update_customer_contact;
2032: end if;
2033:
2034: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2035: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2036: end if;
2037:
2038: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2039: FND_MSG_PUB.initialize;
2034: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2035: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2036: end if;
2037:
2038: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2039: FND_MSG_PUB.initialize;
2040: end if;
2041:
2042: if (p_debug_mode = 'Y') then
2042: if (p_debug_mode = 'Y') then
2043: pa_debug.debug('Performing ID validations and conversions...');
2044: end if;
2045:
2046: if ((p_project_contact_type_code = FND_API.G_MISS_CHAR) OR (p_project_contact_type_code is NULL)) AND
2047: ((p_project_contact_type_name = FND_API.G_MISS_CHAR) OR (p_project_contact_type_name is NULL)) then
2048: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2049: ,p_msg_name => 'PA_CONTACT_TYPE_REQD');
2050: end if;
2043: pa_debug.debug('Performing ID validations and conversions...');
2044: end if;
2045:
2046: if ((p_project_contact_type_code = FND_API.G_MISS_CHAR) OR (p_project_contact_type_code is NULL)) AND
2047: ((p_project_contact_type_name = FND_API.G_MISS_CHAR) OR (p_project_contact_type_name is NULL)) then
2048: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2049: ,p_msg_name => 'PA_CONTACT_TYPE_REQD');
2050: end if;
2051:
2051:
2052: -- Amit 2965841: Uncommented the below code. It is required.
2053:
2054: if p_calling_module <> 'FORM' then
2055: if ((p_project_contact_type_name <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_name is not NULL)) OR
2056: ((p_project_contact_type_code <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_code is not NULL)) then
2057: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_TYP_NAME_OR_CODE
2058: ( p_project_contact_type_code => p_project_contact_type_code
2059: ,p_project_contact_type_name => p_project_contact_type_name
2052: -- Amit 2965841: Uncommented the below code. It is required.
2053:
2054: if p_calling_module <> 'FORM' then
2055: if ((p_project_contact_type_name <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_name is not NULL)) OR
2056: ((p_project_contact_type_code <> FND_API.G_MISS_CHAR) AND (p_project_contact_type_code is not NULL)) then
2057: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_TYP_NAME_OR_CODE
2058: ( p_project_contact_type_code => p_project_contact_type_code
2059: ,p_project_contact_type_name => p_project_contact_type_name
2060: ,p_check_id_flag => 'N'
2061: ,x_project_contact_type_code => l_project_contact_type_code
2062: ,x_return_status => l_return_status
2063: ,x_error_msg_code => l_error_msg_code);
2064:
2065: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2066: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
2067: end if;
2068: end if;
2069: end if;
2067: end if;
2068: end if;
2069: end if;
2070:
2071: if ((p_contact_id = FND_API.G_MISS_NUM) OR (p_contact_id is NULL)) AND
2072: ((p_contact_name = FND_API.G_MISS_CHAR) OR (p_contact_name is NULL)) then
2073: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2074: ,p_msg_name => 'PA_CONTACT_NAME_REQD');
2075: end if;
2068: end if;
2069: end if;
2070:
2071: if ((p_contact_id = FND_API.G_MISS_NUM) OR (p_contact_id is NULL)) AND
2072: ((p_contact_name = FND_API.G_MISS_CHAR) OR (p_contact_name is NULL)) then
2073: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2074: ,p_msg_name => 'PA_CONTACT_NAME_REQD');
2075: end if;
2076:
2075: end if;
2076:
2077: -- Amit 2965841: Commented the whole code for p_calling_module <> 'FORM' condition and added new code below it.
2078: /* if p_calling_module <> 'FORM' then
2079: if ((p_contact_name <> FND_API.G_MISS_CHAR) AND (p_contact_name is not NULL)) OR
2080: ((p_contact_id <> FND_API.G_MISS_NUM) AND (p_contact_id is not NULL)) then
2081: For Bug 2731449
2082: -- check for contact id with respect to bill to or ship to or project customer depending on value of p_project_contact_type_code
2083:
2076:
2077: -- Amit 2965841: Commented the whole code for p_calling_module <> 'FORM' condition and added new code below it.
2078: /* if p_calling_module <> 'FORM' then
2079: if ((p_contact_name <> FND_API.G_MISS_CHAR) AND (p_contact_name is not NULL)) OR
2080: ((p_contact_id <> FND_API.G_MISS_NUM) AND (p_contact_id is not NULL)) then
2081: For Bug 2731449
2082: -- check for contact id with respect to bill to or ship to or project customer depending on value of p_project_contact_type_code
2083:
2084: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_NAME_OR_ID
2089: ,x_contact_id => l_contact_id
2090: ,x_return_status => l_return_status
2091: ,x_error_msg_code => l_error_msg_code);
2092:
2093: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2094: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
2095: end if;
2096: end if;
2097:
2157: ,x_contact_id => l_contact_id
2158: ,x_return_status => l_return_status
2159: ,x_error_msg_code => l_error_msg_code);
2160:
2161: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2162: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
2163: end if;
2164: else
2165: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTACT_NAME_OR_ID
2171: ,x_contact_id => l_contact_id
2172: ,x_return_status => l_return_status
2173: ,x_error_msg_code => l_error_msg_code);
2174:
2175: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2176: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
2177: end if;
2178: end if;
2179:
2186: if l_msg_count > 0 then
2187: x_msg_count := l_msg_count;
2188: if x_msg_count = 1 then
2189: pa_interface_utils_pub.get_messages
2190: (p_encoded => FND_API.G_TRUE,
2191: p_msg_index => 1,
2192: p_msg_count => l_msg_count,
2193: p_msg_data => l_msg_data,
2194: p_data => l_data,
2194: p_data => l_data,
2195: p_msg_index_out => l_msg_index_out);
2196: x_msg_data := l_data;
2197: end if;
2198: raise FND_API.G_EXC_ERROR;
2199: end if;
2200:
2201: PA_CUSTOMERS_CONTACTS_PVT.UPDATE_CUSTOMER_CONTACT
2202: ( p_commit => FND_API.G_FALSE
2198: raise FND_API.G_EXC_ERROR;
2199: end if;
2200:
2201: PA_CUSTOMERS_CONTACTS_PVT.UPDATE_CUSTOMER_CONTACT
2202: ( p_commit => FND_API.G_FALSE
2203: ,p_validate_only => p_validate_only
2204: ,p_validation_level => p_validation_level
2205: ,p_calling_module => p_calling_module
2206: ,p_debug_mode => p_debug_mode
2215: ,x_return_status => l_return_status
2216: ,x_msg_count => l_msg_count
2217: ,x_msg_data => l_msg_data);
2218:
2219: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2220: x_msg_count := FND_MSG_PUB.count_msg;
2221: if x_msg_count = 1 then
2222: pa_interface_utils_pub.get_messages
2223: (p_encoded => FND_API.G_TRUE,
2219: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2220: x_msg_count := FND_MSG_PUB.count_msg;
2221: if x_msg_count = 1 then
2222: pa_interface_utils_pub.get_messages
2223: (p_encoded => FND_API.G_TRUE,
2224: p_msg_index => 1,
2225: p_msg_count => l_msg_count,
2226: p_msg_data => l_msg_data,
2227: p_data => l_data,
2227: p_data => l_data,
2228: p_msg_index_out => l_msg_index_out);
2229: x_msg_data := l_data;
2230: end if;
2231: raise FND_API.G_EXC_ERROR;
2232: end if;
2233:
2234: x_return_status := FND_API.G_RET_STS_SUCCESS;
2235:
2230: end if;
2231: raise FND_API.G_EXC_ERROR;
2232: end if;
2233:
2234: x_return_status := FND_API.G_RET_STS_SUCCESS;
2235:
2236: if p_commit = FND_API.G_TRUE then
2237: commit work;
2238: end if;
2232: end if;
2233:
2234: x_return_status := FND_API.G_RET_STS_SUCCESS;
2235:
2236: if p_commit = FND_API.G_TRUE then
2237: commit work;
2238: end if;
2239:
2240: if (p_debug_mode = 'Y') then
2241: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Update_Customer_Contact END');
2242: end if;
2243:
2244: EXCEPTION
2245: when FND_API.G_EXC_ERROR then
2246: if p_commit = FND_API.G_TRUE then
2247: rollback to update_customer_contact;
2248: end if;
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2242: end if;
2243:
2244: EXCEPTION
2245: when FND_API.G_EXC_ERROR then
2246: if p_commit = FND_API.G_TRUE then
2247: rollback to update_customer_contact;
2248: end if;
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: when FND_API.G_EXC_UNEXPECTED_ERROR then
2245: when FND_API.G_EXC_ERROR then
2246: if p_commit = FND_API.G_TRUE then
2247: rollback to update_customer_contact;
2248: end if;
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: when FND_API.G_EXC_UNEXPECTED_ERROR then
2251: if p_commit = FND_API.G_TRUE then
2252: rollback to update_customer_contact;
2253: end if;
2246: if p_commit = FND_API.G_TRUE then
2247: rollback to update_customer_contact;
2248: end if;
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: when FND_API.G_EXC_UNEXPECTED_ERROR then
2251: if p_commit = FND_API.G_TRUE then
2252: rollback to update_customer_contact;
2253: end if;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2247: rollback to update_customer_contact;
2248: end if;
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: when FND_API.G_EXC_UNEXPECTED_ERROR then
2251: if p_commit = FND_API.G_TRUE then
2252: rollback to update_customer_contact;
2253: end if;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2255: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2250: when FND_API.G_EXC_UNEXPECTED_ERROR then
2251: if p_commit = FND_API.G_TRUE then
2252: rollback to update_customer_contact;
2253: end if;
2254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2255: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2256: p_procedure_name => 'Update_Customer_Contact',
2257: p_error_text => SUBSTRB(SQLERRM,1,240));
2258: when OTHERS then
2255: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2256: p_procedure_name => 'Update_Customer_Contact',
2257: p_error_text => SUBSTRB(SQLERRM,1,240));
2258: when OTHERS then
2259: if p_commit = FND_API.G_TRUE then
2260: rollback to update_customer_contact;
2261: end if;
2262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2263: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2258: when OTHERS then
2259: if p_commit = FND_API.G_TRUE then
2260: rollback to update_customer_contact;
2261: end if;
2262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2263: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2264: p_procedure_name => 'Update_Customer_Contact',
2265: p_error_text => SUBSTRB(SQLERRM,1,240));
2266: raise;
2271: -- Type : Public
2272: -- Pre-reqs : None.
2273: -- Parameters :
2274: -- p_api_version IN NUMBER Required Default = 1.0
2275: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2276: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2277: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2278: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2279: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2272: -- Pre-reqs : None.
2273: -- Parameters :
2274: -- p_api_version IN NUMBER Required Default = 1.0
2275: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2276: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2277: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2278: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2279: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2280: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2273: -- Parameters :
2274: -- p_api_version IN NUMBER Required Default = 1.0
2275: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2276: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2277: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2278: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2279: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2280: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2281: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2274: -- p_api_version IN NUMBER Required Default = 1.0
2275: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2276: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2277: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2278: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2279: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2280: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2281: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2282: -- p_project_id IN NUMBER Required
2277: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2278: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2279: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2280: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2281: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2282: -- p_project_id IN NUMBER Required
2283: -- p_customer_id IN NUMBER Required
2284: -- p_contact_id IN NUMBER Required
2285: -- p_project_contact_type_code IN VARCHAR2 Required
2282: -- p_project_id IN NUMBER Required
2283: -- p_customer_id IN NUMBER Required
2284: -- p_contact_id IN NUMBER Required
2285: -- p_project_contact_type_code IN VARCHAR2 Required
2286: -- p_record_version_number IN NUMBER Required Default = FND_API.G_MISS_NUM
2287: -- x_return_status OUT VARCHAR2 Required
2288: -- x_msg_count OUT NUMBER Required
2289: -- x_msg_data OUT VARCHAR2 Optional
2290:
2289: -- x_msg_data OUT VARCHAR2 Optional
2290:
2291: PROCEDURE DELETE_CUSTOMER_CONTACT
2292: ( p_api_version IN NUMBER := 1.0
2293: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2294: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2295: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2297: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2290:
2291: PROCEDURE DELETE_CUSTOMER_CONTACT
2292: ( p_api_version IN NUMBER := 1.0
2293: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2294: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2295: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2297: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2298: ,p_debug_mode IN VARCHAR2 := 'N'
2291: PROCEDURE DELETE_CUSTOMER_CONTACT
2292: ( p_api_version IN NUMBER := 1.0
2293: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2294: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2295: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2297: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2298: ,p_debug_mode IN VARCHAR2 := 'N'
2299: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2292: ( p_api_version IN NUMBER := 1.0
2293: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2294: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2295: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2297: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2298: ,p_debug_mode IN VARCHAR2 := 'N'
2299: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2300: ,p_project_id IN NUMBER
2295: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2296: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2297: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2298: ,p_debug_mode IN VARCHAR2 := 'N'
2299: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2300: ,p_project_id IN NUMBER
2301: ,p_customer_id IN NUMBER
2302: ,p_contact_id IN NUMBER
2303: ,p_project_contact_type_code IN VARCHAR2
2300: ,p_project_id IN NUMBER
2301: ,p_customer_id IN NUMBER
2302: ,p_contact_id IN NUMBER
2303: ,p_project_contact_type_code IN VARCHAR2
2304: ,p_record_version_number IN NUMBER := FND_API.G_MISS_NUM
2305: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2306: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
2307: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2308: )
2321: if (p_debug_mode = 'Y') then
2322: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Customer_Contact BEGIN');
2323: end if;
2324:
2325: if p_commit = FND_API.G_TRUE then
2326: savepoint delete_customer_contact;
2327: end if;
2328:
2329: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2325: if p_commit = FND_API.G_TRUE then
2326: savepoint delete_customer_contact;
2327: end if;
2328:
2329: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2330: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2331: end if;
2332:
2333: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2326: savepoint delete_customer_contact;
2327: end if;
2328:
2329: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2330: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2331: end if;
2332:
2333: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2334: FND_MSG_PUB.initialize;
2329: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2330: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2331: end if;
2332:
2333: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2334: FND_MSG_PUB.initialize;
2335: end if;
2336:
2337: PA_CUSTOMERS_CONTACTS_PVT.DELETE_CUSTOMER_CONTACT
2334: FND_MSG_PUB.initialize;
2335: end if;
2336:
2337: PA_CUSTOMERS_CONTACTS_PVT.DELETE_CUSTOMER_CONTACT
2338: ( p_commit => FND_API.G_FALSE
2339: ,p_validate_only => p_validate_only
2340: ,p_validation_level => p_validation_level
2341: ,p_calling_module => p_calling_module
2342: ,p_debug_mode => p_debug_mode
2349: ,x_return_status => l_return_status
2350: ,x_msg_count => l_msg_count
2351: ,x_msg_data => l_msg_data);
2352:
2353: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2354: x_msg_count := FND_MSG_PUB.count_msg;
2355: if x_msg_count = 1 then
2356: pa_interface_utils_pub.get_messages
2357: (p_encoded => FND_API.G_TRUE,
2353: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2354: x_msg_count := FND_MSG_PUB.count_msg;
2355: if x_msg_count = 1 then
2356: pa_interface_utils_pub.get_messages
2357: (p_encoded => FND_API.G_TRUE,
2358: p_msg_index => 1,
2359: p_msg_count => l_msg_count,
2360: p_msg_data => l_msg_data,
2361: p_data => l_data,
2361: p_data => l_data,
2362: p_msg_index_out => l_msg_index_out);
2363: x_msg_data := l_data;
2364: end if;
2365: raise FND_API.G_EXC_ERROR;
2366: end if;
2367:
2368: x_return_status := FND_API.G_RET_STS_SUCCESS;
2369:
2364: end if;
2365: raise FND_API.G_EXC_ERROR;
2366: end if;
2367:
2368: x_return_status := FND_API.G_RET_STS_SUCCESS;
2369:
2370: if p_commit = FND_API.G_TRUE then
2371: commit work;
2372: end if;
2366: end if;
2367:
2368: x_return_status := FND_API.G_RET_STS_SUCCESS;
2369:
2370: if p_commit = FND_API.G_TRUE then
2371: commit work;
2372: end if;
2373:
2374: if (p_debug_mode = 'Y') then
2375: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PUB.Delete_Customer_Contact END');
2376: end if;
2377:
2378: EXCEPTION
2379: when FND_API.G_EXC_ERROR then
2380: if p_commit = FND_API.G_TRUE then
2381: rollback to delete_customer_contact;
2382: end if;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2376: end if;
2377:
2378: EXCEPTION
2379: when FND_API.G_EXC_ERROR then
2380: if p_commit = FND_API.G_TRUE then
2381: rollback to delete_customer_contact;
2382: end if;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: when FND_API.G_EXC_UNEXPECTED_ERROR then
2379: when FND_API.G_EXC_ERROR then
2380: if p_commit = FND_API.G_TRUE then
2381: rollback to delete_customer_contact;
2382: end if;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: when FND_API.G_EXC_UNEXPECTED_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to delete_customer_contact;
2387: end if;
2380: if p_commit = FND_API.G_TRUE then
2381: rollback to delete_customer_contact;
2382: end if;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: when FND_API.G_EXC_UNEXPECTED_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to delete_customer_contact;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2381: rollback to delete_customer_contact;
2382: end if;
2383: x_return_status := FND_API.G_RET_STS_ERROR;
2384: when FND_API.G_EXC_UNEXPECTED_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to delete_customer_contact;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2384: when FND_API.G_EXC_UNEXPECTED_ERROR then
2385: if p_commit = FND_API.G_TRUE then
2386: rollback to delete_customer_contact;
2387: end if;
2388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2390: p_procedure_name => 'Delete_Customer_Contact',
2391: p_error_text => SUBSTRB(SQLERRM,1,240));
2392: when OTHERS then
2389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2390: p_procedure_name => 'Delete_Customer_Contact',
2391: p_error_text => SUBSTRB(SQLERRM,1,240));
2392: when OTHERS then
2393: if p_commit = FND_API.G_TRUE then
2394: rollback to delete_customer_contact;
2395: end if;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2392: when OTHERS then
2393: if p_commit = FND_API.G_TRUE then
2394: rollback to delete_customer_contact;
2395: end if;
2396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PUB',
2398: p_procedure_name => 'Delete_Customer_Contact',
2399: p_error_text => SUBSTRB(SQLERRM,1,240));
2400: raise;
2406: -- Type : Private
2407: -- Pre-reqs : None.
2408: -- Parameters :
2409: -- p_api_version IN NUMBER Required Default = 1.0
2410: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2411: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2412: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2413: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2414: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2407: -- Pre-reqs : None.
2408: -- Parameters :
2409: -- p_api_version IN NUMBER Required Default = 1.0
2410: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2411: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2412: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2413: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2414: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2415: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2408: -- Parameters :
2409: -- p_api_version IN NUMBER Required Default = 1.0
2410: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2411: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2412: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2413: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2414: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2415: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2416: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2409: -- p_api_version IN NUMBER Required Default = 1.0
2410: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API.G_TRUE
2411: -- p_commit IN VARCHAR2 Required Default = FND_API.G_FALSE
2412: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2413: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2414: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2415: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2416: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2417: -- p_project_id IN NUMBER Required
2412: -- p_validate_only IN VARCHAR2 Required Default = FND_API.G_TRUE
2413: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2414: -- p_calling_module IN VARCHAR2 Optional Default = 'SELF_SERVICE'
2415: -- p_debug_mode IN VARCHAR2 Optional Default = 'N'
2416: -- p_max_msg_count IN NUMBER Optional Default = FND_API.G_MISS_NUM
2417: -- p_project_id IN NUMBER Required
2418: -- p_customer_id IN NUMBER Required
2419: -- p_bill_ship_customer_id IN NUMBER Required
2420: -- p_project_contact_type_code IN VARCHAR2 Required
2423: -- x_msg_data OUT VARCHAR2 Optional
2424:
2425: PROCEDURE DELETE_ALL_BILL_SHIP_CONTACTS
2426: ( p_api_version IN NUMBER := 1.0
2427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2431: ,p_debug_mode IN VARCHAR2 := 'N'
2424:
2425: PROCEDURE DELETE_ALL_BILL_SHIP_CONTACTS
2426: ( p_api_version IN NUMBER := 1.0
2427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2431: ,p_debug_mode IN VARCHAR2 := 'N'
2432: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2425: PROCEDURE DELETE_ALL_BILL_SHIP_CONTACTS
2426: ( p_api_version IN NUMBER := 1.0
2427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2431: ,p_debug_mode IN VARCHAR2 := 'N'
2432: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2433: ,p_project_id IN NUMBER
2426: ( p_api_version IN NUMBER := 1.0
2427: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2431: ,p_debug_mode IN VARCHAR2 := 'N'
2432: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2433: ,p_project_id IN NUMBER
2434: ,p_customer_id IN NUMBER
2428: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2429: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2430: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2431: ,p_debug_mode IN VARCHAR2 := 'N'
2432: ,p_max_msg_count IN NUMBER := FND_API.G_MISS_NUM
2433: ,p_project_id IN NUMBER
2434: ,p_customer_id IN NUMBER
2435: ,p_bill_ship_customer_id IN NUMBER
2436: ,p_project_contact_type_code IN VARCHAR2
2462: if (p_debug_mode = 'Y') then
2463: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PVT.Delete_All_BILL_SHIP_Contacts BEGIN');
2464: end if;
2465:
2466: if p_commit = FND_API.G_TRUE then
2467: savepoint delete_all_bill_ship_contacts;
2468: end if;
2469:
2470: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2466: if p_commit = FND_API.G_TRUE then
2467: savepoint delete_all_bill_ship_contacts;
2468: end if;
2469:
2470: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2471: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2472: end if;
2473:
2474: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2467: savepoint delete_all_bill_ship_contacts;
2468: end if;
2469:
2470: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2471: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2472: end if;
2473:
2474: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2475: FND_MSG_PUB.initialize;
2470: if not FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
2471: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2472: end if;
2473:
2474: if FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) then
2475: FND_MSG_PUB.initialize;
2476: end if;
2477:
2478: for l_recinfo in C(p_project_id, p_customer_id, p_bill_ship_customer_id, p_project_contact_type_code) loop
2476: end if;
2477:
2478: for l_recinfo in C(p_project_id, p_customer_id, p_bill_ship_customer_id, p_project_contact_type_code) loop
2479: PA_CUSTOMERS_CONTACTS_PVT.DELETE_CUSTOMER_CONTACT
2480: ( p_commit => FND_API.G_FALSE
2481: ,p_validate_only => p_validate_only
2482: ,p_validation_level => p_validation_level
2483: ,p_calling_module => 'FORM'
2484: ,p_debug_mode => p_debug_mode
2491: ,x_return_status => l_return_status
2492: ,x_msg_count => l_msg_count
2493: ,x_msg_data => l_msg_data);
2494:
2495: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2496: x_msg_count := l_msg_count;
2497: if x_msg_count = 1 then
2498: x_msg_data := l_msg_data;
2499: end if;
2496: x_msg_count := l_msg_count;
2497: if x_msg_count = 1 then
2498: x_msg_data := l_msg_data;
2499: end if;
2500: raise FND_API.G_EXC_ERROR;
2501: end if;
2502: end loop;
2503:
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2500: raise FND_API.G_EXC_ERROR;
2501: end if;
2502: end loop;
2503:
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2505:
2506: if p_commit = FND_API.G_TRUE then
2507: commit work;
2508: end if;
2502: end loop;
2503:
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2505:
2506: if p_commit = FND_API.G_TRUE then
2507: commit work;
2508: end if;
2509:
2510: if (p_debug_mode = 'Y') then
2511: pa_debug.debug('PA_CUSTOMERS_CONTACTS_PVT.Delete_All_BILL_SHIP_Contacts END');
2512: end if;
2513:
2514: EXCEPTION
2515: when FND_API.G_EXC_ERROR then
2516: if p_commit = FND_API.G_TRUE then
2517: rollback to delete_all_bill_ship_contacts;
2518: end if;
2519: x_return_status := FND_API.G_RET_STS_ERROR;
2512: end if;
2513:
2514: EXCEPTION
2515: when FND_API.G_EXC_ERROR then
2516: if p_commit = FND_API.G_TRUE then
2517: rollback to delete_all_bill_ship_contacts;
2518: end if;
2519: x_return_status := FND_API.G_RET_STS_ERROR;
2520: when others then
2515: when FND_API.G_EXC_ERROR then
2516: if p_commit = FND_API.G_TRUE then
2517: rollback to delete_all_bill_ship_contacts;
2518: end if;
2519: x_return_status := FND_API.G_RET_STS_ERROR;
2520: when others then
2521: if p_commit = FND_API.G_TRUE then
2522: rollback to delete_all_bill_ship_contacts;
2523: end if;
2517: rollback to delete_all_bill_ship_contacts;
2518: end if;
2519: x_return_status := FND_API.G_RET_STS_ERROR;
2520: when others then
2521: if p_commit = FND_API.G_TRUE then
2522: rollback to delete_all_bill_ship_contacts;
2523: end if;
2524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PVT',
2520: when others then
2521: if p_commit = FND_API.G_TRUE then
2522: rollback to delete_all_bill_ship_contacts;
2523: end if;
2524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CUSTOMERS_CONTACTS_PVT',
2526: p_procedure_name => 'Delete_All_Bill_Ship_Contacts',
2527: p_error_text => SUBSTRB(SQLERRM,1,240));
2528: raise;