[Home] [Help]
725:
726: -- Please check only if p_calling_module 'QUECK_ENTRY' ...
727:
728: -- Bug 6166197: changes start
729: -- l_project_csr moved up here to fetch project-type-class-code before calling pa_customer_info.get_customer_info
730: OPEN l_project_csr (p_project_id);
731: FETCH l_project_csr INTO l_inv_currency_code, l_proj_type_class_code;
732: CLOSE l_project_csr;
733: -- Bug 6166197: changes end
732: CLOSE l_project_csr;
733: -- Bug 6166197: changes end
734:
735: -- Bug 6166197: if condition to check for project-type-class-code introduced
736: -- bypass call to pa_customer_info.get_customer_info for non-contract type projects
737:
738: if (nvl(l_proj_type_class_code,'NONE') = 'CONTRACT') then
739:
740: if (p_debug_mode = 'Y') then
739:
740: if (p_debug_mode = 'Y') then
741: pa_debug.debug('Create_customer PVT: Calling get customer info API');
742: end if;
743: pa_customer_info.get_customer_info
744: ( x_customer_id => p_customer_id
745: -- Customer Account Relationship
746: ,x_Bill_To_Customer_Id => l_bill_to_customer_id
747: ,x_Ship_To_Customer_Id => l_ship_to_customer_id
794:
795: --dbms_output.put_line('Before create_customer contacts ... '||to_char(p_project_id));
796:
797: -- Bug 6166197: changes start
798: -- open/fetch/close of l_project_csr moved up before the call to pa_customer_info.get_customer_info
799: -- to fetch project-type-class-code
800: --OPEN l_project_csr (p_project_id);
801: --FETCH l_project_csr INTO l_inv_currency_code;
802: --CLOSE l_project_csr;
845: END IF;
846:
847: --sunkalya:federal Bug#5511353
848:
849: pa_customer_info.create_customer_contacts
850: ( x_project_id => p_project_id
851: ,x_customer_id => p_customer_id
852: ,X_Project_Relation_Code => p_relationship_type
853: ,X_Customer_Bill_Split =>customer_bill_split --sunkalya:federal Bug#5511353