1 package PA_CUSTOMER_INFO AUTHID CURRENT_USER as
2 -- $Header: PAXCSINS.pls 120.4 2006/02/13 22:15:59 sunkalya noship $
3
4 --
5 -- PROCEDURE
6 -- Get_Customer_Info
7 --
8
9 Procedure Get_Customer_Info
10 (X_project_id IN Number:=Null,
11 X_Customer_Id In Number,
12 X_Bill_To_Customer_Id In Out NOCOPY Number, /* For Bug 2731449 */ --File.Sql.39 bug 4440895
13 X_Ship_To_Customer_Id In Out NOCOPY Number, /* For Bug 2731449 */ --File.Sql.39 bug 4440895
14 X_Bill_To_Address_Id In Out NOCOPY Number, -- Changed from 'Out' to 'In Out' parameter for Bug 3911782 --File.Sql.39 bug 4440895
15 X_Ship_To_Address_Id In Out NOCOPY Number, -- Changed from 'Out' to 'In Out' parameter for Bug 3911782 --File.Sql.39 bug 4440895
16 X_Bill_To_Contact_Id In Out NOCOPY Number, --File.Sql.39 bug 4440895 -- Changed from 'Out' to 'In Out' parameter aditi for tracking bug
17 X_Ship_To_Contact_Id In Out NOCOPY Number, --File.Sql.39 bug 4440895 -- Changed from 'Out' to 'In Out' parameter aditi for tracking bug
18 X_Err_Code In Out NOCOPY Number, --File.Sql.39 bug 4440895
19 X_Err_Stage In Out NOCOPY Varchar2, --File.Sql.39 bug 4440895
20 X_Err_Stack In Out NOCOPY Varchar2 , --File.Sql.39 bug 4440895
21 p_quick_entry_flag In Varchar2 := 'Y', -- Bug 2984536
22 p_calling_module in varchar2 := NULL --Bug#4770535 for contacts validation.
23 ) ;
24
25 -- PROCEDURE
26 -- Get_Customer_Info
27 --
28 Procedure Create_Customer_Contacts
29 ( X_Project_Id In Number,
30 X_Customer_Id In Number,
31 X_Project_Relation_Code In Varchar2,
32 X_Customer_Bill_Split In Number,
33 X_Bill_To_Customer_Id In Number := NULL , /* For Bug 2731449 */
34 X_Ship_To_Customer_Id In Number := NULL , /* For Bug 2731449 */
35 X_Bill_To_Address_Id In Number,
36 X_Ship_To_Address_Id In Number,
37 X_Bill_To_Contact_Id In Number,
38 X_Ship_To_Contact_Id In Number,
39 X_Inv_Currency_Code In Varchar2,
40 X_Inv_Rate_Type In Varchar2,
41 X_Inv_Rate_Date In Date,
42 X_Inv_Exchange_Rate In Number,
43 X_Allow_Inv_Rate_Type_Fg In Varchar2,
44 X_Bill_Another_Project_Fg In Varchar2,
45 X_Receiver_Task_Id In Number,
46 P_default_top_task_customer In pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE default 'N',
47 X_User In Number,
48 X_Login In Number,
49 X_Err_Code In Out NOCOPY Number, --File.Sql.39 bug 4440895
50 X_Err_Stage In Out NOCOPY Varchar2, --File.Sql.39 bug 4440895
51 X_Err_Stack In Out NOCOPY Varchar2 ); --File.Sql.39 bug 4440895
52
53 -- API name : Is_Address_Valid
54 -- Type : Function
55 -- Pre-reqs : None
56 -- Return Value : 'Y', 'N'
57 -- Prameters
58 -- l_site_use_code IN VARCHAR2
59 -- l_Customer_Id IN NUMBER
60 -- l_Address_Id IN NUMBER
61 -- History
62 --
63 -- 12-OCT-2004 adarora -Created
64 --
65 -- Notes: This api is called from GET_CUSTOMER_INFO to validate bill_to_address_id and ship_to_address_id
66
67 FUNCTION Is_Address_Valid(l_site_use_code IN VARCHAR2 ,
68 l_Customer_Id IN NUMBER,
69 l_Address_Id IN NUMBER) RETURN VARCHAR2;
70
71 -- API name : Is_Contact_Valid
72 -- Type : Function
73 -- Pre-reqs : None
74 -- Return Value : 'Y', 'N'
75 -- Prameters
76 -- l_site_use_code IN VARCHAR2
77 -- l_Customer_Id IN NUMBER
78 -- l_Address_Id IN NUMBER
79 -- l_Contact_Id IN NUMBER
80 -- History
81 --
82 -- 12-JUN-2005 adarora -Created
83 --
84 -- Notes: This api is called from GET_CUSTOMER_INFO to validate bill_to_contact_id and ship_to_contact_id
85
86 FUNCTION Is_Contact_Valid(l_site_use_code IN VARCHAR2 ,
87 l_Customer_Id IN NUMBER,
88 l_Address_Id IN NUMBER,
89 l_Contact_Id IN NUMBER) RETURN VARCHAR2;
90
91 -- API name : revenue_accrued_or_billed
92 -- Type : Function
93 -- Pre-reqs : None
94 -- Return Value : True, False
95 -- Prameters
96 -- l_Project_Id In Number
97 -- History
98 --
99 -- 12-JUN-2005 adarora -Created
100 --
101 -- Notes: This api is called from UPDATE_PROJECT to check if customer_bill_split is updateable or nor
102 -- depending upon whether any invoices or revenues have been chanrged against the passed project.
103
104
105 Function revenue_accrued_or_billed( p_project_Id In Number)
106 return boolean ;
107
108 -- API name : check_proj_tot_contribution
109 -- Type : Function
110 -- Pre-reqs : None
111 -- Return Value : Number
112 -- Prameters
113 -- l_Project_Id In Number
114 -- History
115 --
116 -- 12-JUN-2005 adarora -Created
117 --
118 -- Notes: This api is called from UPDATE_PROJECT to compute the net customer_bill_split
119 -- for a contract project. It should not exceed 100. if it does, then an error is thrown.
120
121 Function check_proj_tot_contribution ( p_project_Id In Number, x_valid_proj_flag OUT NOCOPY BOOLEAN )
122 -- File.sql.39 Bug 4633405 (For new API)
123 return number;
124
125 -- API name : Check_Receiver_Proj_Enterable
126 -- Type : Utility
127 -- Pre-reqs : None.
128 -- Parameters :
129 -- p_project_id IN NUMBER Required
130 -- p_customer_id IN NUMBER Required
131 -- p_receiver_task_id IN NUMBER Optional Default = FND_API.G_MISS_NUM
132 -- x_bill_another_project_flag OUT VARCHAR2 Required
133 -- x_return_status OUT VARCHAR2 Required
134 -- x_error_msg_code OUT VARCHAR2 Required
135 -- History
136 --
137 -- 14-SEP-2005 adarora -Created
138 --
139 -- Notes: This api is called from UPDATE_PROJECT to check if the project and task can be specified
140 -- as receiver project and task for the customer passed.
141
142 PROCEDURE CHECK_RECEIVER_PROJ_ENTERABLE
143 ( p_project_id IN NUMBER
144 ,p_customer_id IN NUMBER
145 ,p_receiver_task_id IN NUMBER := FND_API.G_MISS_NUM
146 ,x_bill_another_project_flag IN OUT NOCOPY VARCHAR2 -- File.sql.39 Bug 4633405 (For new API)
147 ,x_return_status OUT NOCOPY VARCHAR2 -- File.sql.39 Bug 4633405 (For new API)
148 ,x_error_msg_code OUT NOCOPY VARCHAR2 -- File.sql.39 Bug 4633405 (For new API)
149 );
150
151 end PA_CUSTOMER_INFO ;