6:
7:
8: PROCEDURE Update_Event_Disposition (
9: p_api_version IN NUMBER
10: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
11: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
12: ,p_cln_id IN NUMBER
13: ,p_disposition_code IN VARCHAR2
14: ,p_disposition_date IN DATE
7:
8: PROCEDURE Update_Event_Disposition (
9: p_api_version IN NUMBER
10: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
11: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
12: ,p_cln_id IN NUMBER
13: ,p_disposition_code IN VARCHAR2
14: ,p_disposition_date IN DATE
15: ,x_return_status OUT NOCOPY VARCHAR2
33:
34: x_return_status := G_RET_STS_SUCCESS;
35:
36: -- Check for call compatibility
37: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
38: l_api_name, G_PKG_NAME)
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
36: -- Check for call compatibility
37: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
38: l_api_name, G_PKG_NAME)
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42: -- Initialize message list even though we don't currently use it
43: IF FND_API.To_Boolean(p_init_msg_list) THEN
44: FND_MSG_PUB.Initialize;
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42: -- Initialize message list even though we don't currently use it
43: IF FND_API.To_Boolean(p_init_msg_list) THEN
44: FND_MSG_PUB.Initialize;
45: END IF;
46: ----- -----------------------------------------------------------------
47:
50: DISPOSITION_DATE = p_disposition_date
51: WHERE cln_id = p_cln_id;
52:
53: -- Standard check of p_commit
54: IF FND_API.To_Boolean(p_commit) THEN
55: COMMIT WORK;
56: END IF;
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
54: IF FND_API.To_Boolean(p_commit) THEN
55: COMMIT WORK;
56: END IF;
57:
58: x_return_status := FND_API.G_RET_STS_SUCCESS;
59:
60:
61: EXCEPTION
62: WHEN OTHERS THEN
60:
61: EXCEPTION
62: WHEN OTHERS THEN
63: ROLLBACK TO Update_Disposition_PVT;
64: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65:
66: FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
67: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
68: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
67: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
68: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
69: FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
70: FND_MSG_PUB.Add;
71: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
72: ,p_count => x_msg_count
73: ,p_data => x_msg_data);
74: END Update_Event_Disposition;
75:
76:
77:
78: PROCEDURE Set_Collaboration_Id (
79: p_api_version IN NUMBER
80: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
81: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_FALSE
82: ,p_batch_id IN NUMBER
83: ,p_subbatch_id IN NUMBER
84: ,p_top_gtin IN NUMBER
77:
78: PROCEDURE Set_Collaboration_Id (
79: p_api_version IN NUMBER
80: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
81: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_FALSE
82: ,p_batch_id IN NUMBER
83: ,p_subbatch_id IN NUMBER
84: ,p_top_gtin IN NUMBER
85: ,p_cln_id IN NUMBER
104:
105: x_return_status := G_RET_STS_SUCCESS;
106:
107: -- Check for call compatibility
108: IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
109: l_api_name, G_PKG_NAME )
110: THEN
111: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
112: END IF;
107: -- Check for call compatibility
108: IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
109: l_api_name, G_PKG_NAME )
110: THEN
111: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114: IF FND_API.To_Boolean(p_init_msg_list) THEN
115: FND_MSG_PUB.Initialize;
110: THEN
111: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114: IF FND_API.To_Boolean(p_init_msg_list) THEN
115: FND_MSG_PUB.Initialize;
116: END IF;
117: -----------------------------------------------------------------------------
118:
122: AND subbatch_id = p_subbatch_id
123: AND top_gtin = p_top_gtin;
124:
125: -- Standard check of p_commit
126: IF FND_API.To_Boolean(p_commit) THEN
127: COMMIT WORK;
128: END IF;
129:
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
126: IF FND_API.To_Boolean(p_commit) THEN
127: COMMIT WORK;
128: END IF;
129:
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132:
133: EXCEPTION
134: WHEN OTHERS THEN
132:
133: EXCEPTION
134: WHEN OTHERS THEN
135: ROLLBACK TO Set_Collaboration_Id_PVT;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137:
138: FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
139: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
140: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
139: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
140: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
141: FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
142: FND_MSG_PUB.Add;
143: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
144: ,p_count => x_msg_count
145: ,p_data => x_msg_data);
146:
147: END Set_Collaboration_Id;
147: END Set_Collaboration_Id;
148:
149: PROCEDURE Add_Additional_CIC_Info (
150: p_api_version IN NUMBER
151: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
152: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
153: ,p_cln_id IN NUMBER
154: ,p_cic_code IN VARCHAR2
155: ,p_cic_description IN VARCHAR2
148:
149: PROCEDURE Add_Additional_CIC_Info (
150: p_api_version IN NUMBER
151: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_FALSE
152: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
153: ,p_cln_id IN NUMBER
154: ,p_cic_code IN VARCHAR2
155: ,p_cic_description IN VARCHAR2
156: ,p_cic_action_needed IN VARCHAR2
172:
173: x_return_status := G_RET_STS_SUCCESS;
174:
175: -- Check for call compatibility
176: IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
177: l_api_name, G_PKG_NAME )
178: THEN
179: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
180: END IF;
175: -- Check for call compatibility
176: IF NOT FND_API.Compatible_API_Call ( l_api_version, p_api_version,
177: l_api_name, G_PKG_NAME )
178: THEN
179: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
180: END IF;
181:
182: IF FND_API.To_Boolean(p_init_msg_list) THEN
183: FND_MSG_PUB.Initialize;
178: THEN
179: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
180: END IF;
181:
182: IF FND_API.To_Boolean(p_init_msg_list) THEN
183: FND_MSG_PUB.Initialize;
184: END IF;
185: -----------------------------------------------------------------------------
186: INSERT INTO EGO_UCCNET_ADD_CIC_INFO
208: ,fnd_global.login_id
209: );
210:
211: -- Standard check of p_commit
212: IF FND_API.To_Boolean(p_commit) THEN
213: COMMIT WORK;
214: END IF;
215:
216: x_return_status := FND_API.G_RET_STS_SUCCESS;
212: IF FND_API.To_Boolean(p_commit) THEN
213: COMMIT WORK;
214: END IF;
215:
216: x_return_status := FND_API.G_RET_STS_SUCCESS;
217:
218:
219: EXCEPTION
220: WHEN OTHERS THEN
218:
219: EXCEPTION
220: WHEN OTHERS THEN
221: ROLLBACK TO Add_Additional_CIC_Info_PVT;
222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223:
224: FND_MESSAGE.Set_Name('EGO', 'EGO_PLSQL_ERR');
225: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
226: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
225: FND_MESSAGE.Set_Token('PKG_NAME', G_PKG_NAME);
226: FND_MESSAGE.Set_Token('API_NAME', l_api_name);
227: FND_MESSAGE.Set_Token('SQL_ERR_MSG', SQLERRM);
228: FND_MSG_PUB.Add;
229: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
230: ,p_count => x_msg_count
231: ,p_data => x_msg_data);
232: END Add_Additional_CIC_info;
233: