[Home] [Help]
2488: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2489: p_contract_id||' p_item_key'||p_item_key);
2490: END IF;
2491:
2492: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2493: -- Standard call to check for call compatibility.
2494: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2496: END IF;
2701: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2702: END IF;
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2706: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2707: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2709: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2710: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2711: END IF;
2712: x_return_status := G_RET_STS_ERROR;
2713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2714: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2715: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2718: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
2719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2720: END IF;
2721: x_return_status := G_RET_STS_UNEXP_ERROR ;
2722: WHEN OTHERS THEN
2723: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2726: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
2727: ||SQLCODE||', sqlerrm = '||SQLERRM);
2780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2781: 'p_reason_code:'||p_reason_code||' p_comments:'||p_comments);
2782: END IF;
2783:
2784: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2785: -- Standard call to check for call compatibility.
2786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
3020: END IF;
3021:
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3028: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3030: END IF;
3031: x_return_status := G_RET_STS_ERROR;
3032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3033: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3034: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3036: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3037: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3038: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3039: END IF;
3040: x_return_status := G_RET_STS_UNEXP_ERROR ;
3041: WHEN OTHERS THEN
3042: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3043: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3044: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3045: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3046: ||SQLCODE||', sqlerrm = '||SQLERRM);
3102: ',p_subject=>'||p_subject||
3103: ',p_message=>'||p_message||')');
3104: END IF;
3105:
3106: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3107: -- Standard call to check for call compatibility.
3108: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3429: END IF;
3430:
3431: EXCEPTION
3432: WHEN FND_API.G_EXC_ERROR THEN
3433: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3434: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3436: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3437: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3439: END IF;
3440: x_return_status := G_RET_STS_ERROR;
3441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3442: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3443: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3446: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3447: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3448: END IF;
3449: x_return_status := G_RET_STS_UNEXP_ERROR ;
3450: WHEN OTHERS THEN
3451: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3452: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3454: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3455: ||SQLCODE||', sqlerrm = '||SQLERRM);
3504: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3505: '(p_chr_id=>'||p_chr_id||'p_negotiation_status=>'||p_negotiation_status||')');
3506: END IF;
3507:
3508: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3509: -- Standard call to check for call compatibility.
3510: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3512: END IF;
3556: END IF;
3557:
3558: EXCEPTION
3559: WHEN FND_API.G_EXC_ERROR THEN
3560: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3561: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3562: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3564: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3565: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3566: END IF;
3567: x_return_status := G_RET_STS_ERROR;
3568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3569: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3570: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3572: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3573: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3575: END IF;
3576: x_return_status := G_RET_STS_UNEXP_ERROR ;
3577: WHEN OTHERS THEN
3578: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3579: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3580: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3581: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3582: ||SQLCODE||', sqlerrm = '||SQLERRM);
4313: 'NEGOTIATION_STATUS=>'||p_wf_attributes.NEGOTIATION_STATUS||
4314: 'ITEM_KEY=>'||p_wf_attributes.ITEM_KEY||')');
4315: END IF;
4316:
4317: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4318: -- Initialize message list if p_init_msg_list is set to TRUE.
4319: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4320: FND_MSG_PUB.initialize;
4321: END IF;
4543: END IF;
4544:
4545: EXCEPTION
4546: WHEN FND_API.G_EXC_ERROR THEN
4547: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4548: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4549: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4551: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4552: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4553: END IF;
4554: x_return_status := G_RET_STS_ERROR;
4555: WHEN OTHERS THEN
4556: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4557: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4558: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4559: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4560: ||SQLCODE||', sqlerrm = '||SQLERRM);
4614: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4615: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4616: END IF;
4617:
4618: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4619: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622: -- Initialize message list if p_init_msg_list is set to TRUE.
4698: END IF;
4699:
4700: EXCEPTION
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4706: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4708: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4711: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4712: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4715: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
4716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4717: END IF;
4718: x_return_status := G_RET_STS_UNEXP_ERROR ;
4719: WHEN OTHERS THEN
4720: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4721: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4723: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4724: ||SQLCODE||', sqlerrm = '||SQLERRM);
4776: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4777: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4778: END IF;
4779:
4780: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4783: END IF;
4784: -- Initialize message list if p_init_msg_list is set to TRUE.
4845: END IF;
4846:
4847: EXCEPTION
4848: WHEN FND_API.G_EXC_ERROR THEN
4849: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4850: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4851: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4852: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4853: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4854: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4855: END IF;
4856: x_return_status := G_RET_STS_ERROR;
4857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4858: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4859: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4860: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4862: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
4863: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4864: END IF;
4865: x_return_status := G_RET_STS_UNEXP_ERROR ;
4866: WHEN OTHERS THEN
4867: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4870: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4871: ||SQLCODE||', sqlerrm = '||SQLERRM);
5803: ' with Contract Id '||p_contract_id ||
5804: ' p_validate_yn '||p_validate_yn||' p_qa_required_yn '||p_qa_required_yn);
5805: END IF;
5806:
5807: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
5808: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
6051: END IF;
6052:
6053: EXCEPTION
6054: WHEN ActionNotAllowedException THEN
6055: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6056: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6057: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6058: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6059: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6059: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6060: ' Contract is either waiting for customer acceptance or not in entered status');
6061: END IF;
6062: WHEN FND_API.G_EXC_ERROR THEN
6063: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6064: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6065: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6066: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6067: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6068: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6069: END IF;
6070: x_return_status := G_RET_STS_ERROR;
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6073: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6074: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6075: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6076: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6077: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6078: END IF;
6079: x_return_status := G_RET_STS_UNEXP_ERROR ;
6080: WHEN OTHERS THEN
6081: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6083: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6084: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6085: ||SQLCODE||', sqlerrm = '||SQLERRM);
6142: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
6143: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
6144: END IF;
6145:
6146: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6147: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6149: END IF;
6150: -- Initialize message list if p_init_msg_list is set to TRUE.
6248: END IF;
6249:
6250: EXCEPTION
6251: WHEN ActionNotAllowedException THEN
6252: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6253: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6254: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6255: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6257: ' Contract cannot be published since it is not in entered status');
6258: END IF;
6259: x_return_status := G_RET_STS_ACTION_NOT_ALWD;
6260: WHEN AlreadyPublishedException THEN
6261: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6262: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6263: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6265: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6265: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6266: END IF;
6267: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6268: WHEN FND_API.G_EXC_ERROR THEN
6269: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6270: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6271: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6273: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6275: END IF;
6276: x_return_status := G_RET_STS_ERROR;
6277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6278: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6279: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6280: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6281: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6282: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6284: END IF;
6285: x_return_status := G_RET_STS_UNEXP_ERROR ;
6286: WHEN OTHERS THEN
6287: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6288: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6289: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6290: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6291: ||SQLCODE||', sqlerrm = '||SQLERRM);
7775: 'Item key: ' || NVL(p_item_key,'NULL') ||
7776: ' Accept Confirm Flag: ' || p_accept_confirm_yn);
7777: END IF;
7778:
7779: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
7780: -- Standard call to check for call compatibility.
7781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7783: END IF;
7903: END IF;
7904:
7905: EXCEPTION
7906: WHEN FND_API.G_EXC_ERROR THEN
7907: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
7908: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
7909: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7910: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7911: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
7912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
7913: END IF;
7914: x_return_status := G_RET_STS_ERROR;
7915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7916: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
7917: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
7918: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7919: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7920: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
7921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
7922: END IF;
7923: x_return_status := G_RET_STS_UNEXP_ERROR ;
7924: WHEN OTHERS THEN
7925: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
7926: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7927: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
7928: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
7929: ||SQLCODE||', sqlerrm = '||SQLERRM);
8008: 'Cancellation reason: ' || substr(NVL(p_cancellation_reason,'NULL'),1,1500)
8009: || ' Cancellation date: ' || to_char(p_cancellation_date));
8010: END IF;
8011:
8012: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8013: -- Standard call to check for call compatibility.
8014: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8016: END IF;
8249: END IF;
8250:
8251: EXCEPTION
8252: WHEN FND_API.G_EXC_ERROR THEN
8253: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8254: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8255: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8258: END IF;
8259: x_return_status := G_RET_STS_ERROR;
8260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8261: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8262: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8264: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8265: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8266: END IF;
8267: x_return_status := G_RET_STS_UNEXP_ERROR ;
8268: WHEN OTHERS THEN
8269: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8270: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8272: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
8273: ||SQLCODE||', sqlerrm = '||SQLERRM);