3:
4: PROCEDURE Contract_to_Template
5: (
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
8: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
9: x_return_status OUT VARCHAR2,
10: x_msg_count OUT NUMBER,
11: x_msg_data OUT VARCHAR2,
4: PROCEDURE Contract_to_Template
5: (
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
8: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
9: x_return_status OUT VARCHAR2,
10: x_msg_count OUT NUMBER,
11: x_msg_data OUT VARCHAR2,
12: p_contract_id IN NUMBER,
41: p_init_msg_list,
42: l_api_type,
43: x_return_status);
44: --dbms_output.put_line('l_return_status ' || l_return_status);
45: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
42: l_api_type,
43: x_return_status);
44: --dbms_output.put_line('l_return_status ' || l_return_status);
45: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
50: -- Get the contract details
43: x_return_status);
44: --dbms_output.put_line('l_return_status ' || l_return_status);
45: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
50: -- Get the contract details
51: Open l_Contract_Csr;
44: --dbms_output.put_line('l_return_status ' || l_return_status);
45: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
50: -- Get the contract details
51: Open l_Contract_Csr;
52: Fetch l_Contract_Csr into l_Contract_Rec;
183: ELSIF (l_Service_Csr%ISOPEN) THEN
184: CLOSE l_Service_Csr;
185: END IF;
186: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
187: x_return_status := FND_API.G_RET_STS_ERROR;
188: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
189: FND_MESSAGE.SET_NAME('CS', 'CS_CONTRACT_NOT_FOUND');
190: FND_MSG_PUB.Add;
191: END IF;
190: FND_MSG_PUB.Add;
191: END IF;
192: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
193: p_data => x_msg_data,
194: p_encoded => FND_API.G_FALSE );
195: WHEN FND_API.G_EXC_ERROR THEN
196: IF (l_Contract_csr%ISOPEN) THEN
197: CLOSE l_Contract_csr;
198: ELSIF (l_Service_Csr%ISOPEN) THEN
191: END IF;
192: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
193: p_data => x_msg_data,
194: p_encoded => FND_API.G_FALSE );
195: WHEN FND_API.G_EXC_ERROR THEN
196: IF (l_Contract_csr%ISOPEN) THEN
197: CLOSE l_Contract_csr;
198: ELSIF (l_Service_Csr%ISOPEN) THEN
199: CLOSE l_Service_Csr;
198: ELSIF (l_Service_Csr%ISOPEN) THEN
199: CLOSE l_Service_Csr;
200: END IF;
201: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
204: p_data => x_msg_data,
205: p_encoded => FND_API.G_FALSE );
206:
201: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
204: p_data => x_msg_data,
205: p_encoded => FND_API.G_FALSE );
206:
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: --dbms_output.put_line('UNEXP EXCEPTION');
209: IF (l_Contract_csr%ISOPEN) THEN
203: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
204: p_data => x_msg_data,
205: p_encoded => FND_API.G_FALSE );
206:
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: --dbms_output.put_line('UNEXP EXCEPTION');
209: IF (l_Contract_csr%ISOPEN) THEN
210: CLOSE l_Contract_csr;
211: ELSIF (l_Service_Csr%ISOPEN) THEN
211: ELSIF (l_Service_Csr%ISOPEN) THEN
212: CLOSE l_Service_Csr;
213: END IF;
214: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
217: p_data => x_msg_data,
218: p_encoded => FND_API.G_FALSE );
219: END Contract_to_template;
214: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
217: p_data => x_msg_data,
218: p_encoded => FND_API.G_FALSE );
219: END Contract_to_template;
220:
221:
222: PROCEDURE Template_to_Contract
221:
222: PROCEDURE Template_to_Contract
223: (
224: p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
226: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
227: x_return_status OUT VARCHAR2,
228: x_msg_count OUT NUMBER,
229: x_msg_data OUT VARCHAR2,
222: PROCEDURE Template_to_Contract
223: (
224: p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
226: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
227: x_return_status OUT VARCHAR2,
228: x_msg_count OUT NUMBER,
229: x_msg_data OUT VARCHAR2,
230: p_template_id IN NUMBER,
261: p_init_msg_list,
262: l_api_type,
263: x_return_status);
264: --dbms_output.put_line('l_return_status ' || l_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
262: l_api_type,
263: x_return_status);
264: --dbms_output.put_line('l_return_status ' || l_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: -- Get the contract template details
263: x_return_status);
264: --dbms_output.put_line('l_return_status ' || l_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: -- Get the contract template details
271: Open l_Contract_Tmpl_Csr;
264: --dbms_output.put_line('l_return_status ' || l_return_status);
265: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
268: RAISE FND_API.G_EXC_ERROR;
269: END IF;
270: -- Get the contract template details
271: Open l_Contract_Tmpl_Csr;
272: Fetch l_Contract_Tmpl_Csr into l_Contract_Tmpl_Rec;
404: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
405: CLOSE l_Contract_Tmpl_csr;
406: END IF;
407: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
410: FND_MESSAGE.SET_NAME('CS', 'CS_TEMPLATE_NOT_FOUND');
411: FND_MSG_PUB.Add;
412: END IF;
411: FND_MSG_PUB.Add;
412: END IF;
413: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
414: p_data => x_msg_data,
415: p_encoded => FND_API.G_FALSE );
416: WHEN FND_API.G_EXC_ERROR THEN
417: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
418: CLOSE l_Contract_Tmpl_csr;
419: END IF;
412: END IF;
413: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
414: p_data => x_msg_data,
415: p_encoded => FND_API.G_FALSE );
416: WHEN FND_API.G_EXC_ERROR THEN
417: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
418: CLOSE l_Contract_Tmpl_csr;
419: END IF;
420: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
417: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
418: CLOSE l_Contract_Tmpl_csr;
419: END IF;
420: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => FND_API.G_FALSE );
425:
420: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => FND_API.G_FALSE );
425:
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: --dbms_output.put_line('UNEXP EXCEPTION');
428: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
422: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
423: p_data => x_msg_data,
424: p_encoded => FND_API.G_FALSE );
425:
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: --dbms_output.put_line('UNEXP EXCEPTION');
428: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
429: CLOSE l_Contract_Tmpl_csr;
430: END IF;
428: IF (l_Contract_Tmpl_csr%ISOPEN) THEN
429: CLOSE l_Contract_Tmpl_csr;
430: END IF;
431: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
434: p_data => x_msg_data,
435: p_encoded => FND_API.G_FALSE );
436: END Template_to_Contract;
431: --DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name || l_api_type);
432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
433: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
434: p_data => x_msg_data,
435: p_encoded => FND_API.G_FALSE );
436: END Template_to_Contract;
437:
438: END CS_Contract_Tpl_Pub;