[Home] [Help]
PACKAGE BODY: APPS.ASO_CORE_CONTRACTS_PUB
Source
1 PACKAGE BODY aso_core_contracts_pub AS
2 /* $Header: asopokcb.pls 120.1 2005/06/29 12:36:59 appldev ship $ */
3 -- Start of Comments
4 -- Package name : ASO_core_contracts_PUB
5 -- Purpose :
6 -- History :
7 -- 10-08-2002 hyang - new contracts integration.
8 -- NOTE :
9 -- End of Comments
10
11 g_pkg_name CONSTANT VARCHAR2 (30) := 'ASO_core_contracts_PUB';
12 g_file_name CONSTANT VARCHAR2 (12) := 'asopokcb.pls';
13 g_login_id NUMBER := fnd_global.conc_login_id;
14
15 PROCEDURE create_contract (
16 p_api_version IN NUMBER,
17 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
18 p_commit IN VARCHAR2 := fnd_api.g_false,
19 p_quote_id IN NUMBER,
20 p_terms_agreed_flag IN VARCHAR2 := fnd_api.g_false,
21 p_rel_type IN VARCHAR2 := fnd_api.g_miss_char,
22 p_interaction_subject IN VARCHAR2 := fnd_api.g_miss_char,
23 p_interaction_body IN VARCHAR2 := fnd_api.g_miss_char,
24 p_party_id IN NUMBER := fnd_api.g_miss_num,
25 p_resource_id IN NUMBER := fnd_api.g_miss_num,
26 p_template_id IN NUMBER := fnd_api.g_miss_num,
27 p_template_major_version IN NUMBER := fnd_api.g_miss_num,
28 x_contract_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
29 x_contract_number OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
30 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
31 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
32 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
33 ) IS
34 BEGIN
35
36 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
37 aso_debug_pub.add('create_contract PUB - Obsolete', 1, 'Y');
38 END IF;
39
40 NULL;
41
42 END create_contract;
43
44 PROCEDURE update_contract (
45 p_api_version IN NUMBER,
46 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
47 p_commit IN VARCHAR2 := fnd_api.g_false,
48 p_quote_id IN NUMBER,
49 p_contract_id IN NUMBER := fnd_api.g_miss_num,
50 p_interaction_subject IN VARCHAR2 := fnd_api.g_miss_char,
51 p_interaction_body IN VARCHAR2 := fnd_api.g_miss_char,
52 p_party_id IN NUMBER := fnd_api.g_miss_num,
53 p_resource_id IN NUMBER := fnd_api.g_miss_num,
54 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
55 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
56 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
57 ) IS
58 BEGIN
59
60 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
61 aso_debug_pub.add('update_contract PUB - Obsolete', 1, 'Y');
62 END IF;
63
64 NULL;
65
66 END update_contract;
67
68 PROCEDURE notify_contract_change (
69 p_api_version IN NUMBER,
70 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
71 p_commit IN VARCHAR2 := fnd_api.g_false,
72 p_quote_id IN NUMBER,
73 p_notification_type IN VARCHAR2,
74 p_customer_comments IN VARCHAR2 := fnd_api.g_miss_char,
75 p_salesrep_email_id IN VARCHAR2 := fnd_api.g_miss_char,
76 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
77 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
78 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
79 ) IS
80 BEGIN
81
82 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
83 aso_debug_pub.add('notify_contract_change PUB - Obsolete', 1, 'Y');
84 END IF;
85
86 NULL;
87
88 END notify_contract_change;
89
90 -- vtariker
91 PROCEDURE Check_Customer_Accounts(
92 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
93 p_qte_header_id IN NUMBER,
94 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
95 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
96 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
97 )
98 IS
99
100 l_api_version CONSTANT NUMBER := 1.0;
101 l_api_name CONSTANT VARCHAR2(45) := 'Check_Customer_Accounts';
102
103 BEGIN
104
105 -- Standard Start of API savepoint
106 SAVEPOINT Check_Customer_Accounts_PUB;
107
108 -- Initialize message list if p_init_msg_list is set to TRUE.
109 IF FND_API.to_Boolean( p_init_msg_list ) THEN
110 FND_MSG_PUB.initialize;
111 END IF;
112
113 -- initialize G_Debug_Flag
114 ASO_DEBUG_PUB.G_Debug_Flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
115
116 -- Initialize API return status to success
117 x_return_status := FND_API.G_RET_STS_SUCCESS;
118
119 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
120 aso_debug_pub.add('Check_Customer_Accounts PUB - Begin', 1, 'Y');
121 END IF;
122
123 -- check for missing customer accounts in the quote
124 aso_core_contracts_int.check_customer_accounts (
125 p_init_msg_list => p_init_msg_list,
126 p_qte_header_id => p_qte_header_id,
127 x_return_status => x_return_status,
128 x_msg_count => x_msg_count,
129 x_msg_data => x_msg_data
130 );
131
132 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
133 aso_debug_pub.ADD (
134 'Create_Contract: After Check_Customer_Accounts: x_return_status: '|| x_return_status,
135 1,
136 'Y'
137 );
138 END IF;
139
140 IF x_return_status <> fnd_api.g_ret_sts_success THEN
141 RAISE fnd_api.g_exc_error;
142 END IF;
143
144 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
145 aso_debug_pub.add('Check_Customer_Accounts PUB : End ', 1, 'N');
146 END IF;
147
148 FND_MSG_PUB.Count_And_Get
149 ( p_count => x_msg_count,
150 p_data => x_msg_data
151 );
152
153 EXCEPTION
154 WHEN FND_API.G_EXC_ERROR THEN
155 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
156 P_API_NAME => L_API_NAME
157 ,P_PKG_NAME => G_PKG_NAME
158 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
159 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
160 ,P_SQLCODE => SQLCODE
161 ,P_SQLERRM => SQLERRM
162 ,X_MSG_COUNT => X_MSG_COUNT
163 ,X_MSG_DATA => X_MSG_DATA
164 ,X_RETURN_STATUS => X_RETURN_STATUS);
165
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
168 P_API_NAME => L_API_NAME
169 ,P_PKG_NAME => G_PKG_NAME
170 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
171 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
172 ,P_SQLCODE => SQLCODE
173 ,P_SQLERRM => SQLERRM
174 ,X_MSG_COUNT => X_MSG_COUNT
175 ,X_MSG_DATA => X_MSG_DATA
176 ,X_RETURN_STATUS => X_RETURN_STATUS);
177
178 WHEN OTHERS THEN
179 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
180 P_API_NAME => L_API_NAME
181 ,P_PKG_NAME => G_PKG_NAME
182 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
183 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
184 ,P_SQLCODE => SQLCODE
185 ,P_SQLERRM => SQLERRM
186 ,X_MSG_COUNT => X_MSG_COUNT
187 ,X_MSG_DATA => X_MSG_DATA
188 ,X_RETURN_STATUS => X_RETURN_STATUS);
189
190 END Check_Customer_Accounts;
191 -- vtariker
192
193 END aso_core_contracts_pub;