[Home] [Help]
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
130: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
131: FND_MSG_PUB.add;
132: END IF;
133: -- Standard call to get message count and if count=1, get the message
134: FND_MSG_PUB.Count_And_Get (
135: p_encoded => FND_API.G_FALSE,
136: p_count => x_msg_count,
137: p_data => x_msg_data
2191: -- IF ( NOT G_UPDATE_CALLED ) THEN
2192: ROLLBACK TO Create_Claim_Association;
2193: -- END IF;
2194: x_return_status := FND_API.G_RET_STS_ERROR;
2195: -- Standard call to get message count and if count=1, get the message
2196: FND_MSG_PUB.Count_And_Get (
2197: p_encoded => FND_API.G_FALSE,
2198: p_count => x_msg_count,
2199: p_data => x_msg_data
2202: -- IF ( NOT G_UPDATE_CALLED ) THEN
2203: ROLLBACK TO Create_Claim_Association;
2204: -- END IF;
2205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2206: -- Standard call to get message count and if count=1, get the message
2207: FND_MSG_PUB.Count_And_Get (
2208: p_encoded => FND_API.G_FALSE,
2209: p_count => x_msg_count,
2210: p_data => x_msg_data
2217: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2218: THEN
2219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2220: END IF;
2221: -- Standard call to get message count and if count=1, get the message
2222: FND_MSG_PUB.Count_And_Get (
2223: p_encoded => FND_API.G_FALSE,
2224: p_count => x_msg_count,
2225: p_data => x_msg_data
3856:
3857:
3858: BEGIN
3859:
3860: -- Standard begin of API savepoint
3861: SAVEPOINT Create_Claim_PVT;
3862: -- Standard call to check for call compatibility.
3863: IF NOT FND_API.Compatible_API_Call (
3864: l_api_version,
3858: BEGIN
3859:
3860: -- Standard begin of API savepoint
3861: SAVEPOINT Create_Claim_PVT;
3862: -- Standard call to check for call compatibility.
3863: IF NOT FND_API.Compatible_API_Call (
3864: l_api_version,
3865: p_api_version,
3866: l_api_name,
5126:
5127: END IF; --IF (l_claim.offer_id IS NOT NULL AND l_claim.claim_class = 'CLAIM') THEN
5128: -- Enf of Rule Based Enhancement
5129:
5130: --Standard check of commit
5131: IF FND_API.To_Boolean ( p_commit ) THEN
5132: COMMIT WORK;
5133: END IF;
5134: -- Debug Message
5137: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5138: FND_MSG_PUB.Add;
5139: END IF;
5140:
5141: --Standard call to get message count AND if count=1, get the message
5142: FND_MSG_PUB.Count_And_Get (
5143: p_encoded => FND_API.G_FALSE,
5144: p_count => x_msg_count,
5145: p_data => x_msg_data
5147: EXCEPTION
5148: WHEN FND_API.G_EXC_ERROR THEN
5149: ROLLBACK TO Create_Claim_PVT;
5150: x_return_status := FND_API.G_RET_STS_ERROR;
5151: -- Standard call to get message count AND if count=1, get the message
5152: FND_MSG_PUB.Count_And_Get (
5153: p_encoded => FND_API.G_FALSE,
5154: p_count => x_msg_count,
5155: p_data => x_msg_data
5156: );
5157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5158: ROLLBACK TO Create_Claim_PVT;
5159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5160: -- Standard call to get message count AND if count=1, get the message
5161: FND_MSG_PUB.Count_And_Get (
5162: p_encoded => FND_API.G_FALSE,
5163: p_count => x_msg_count,
5164: p_data => x_msg_data
5168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5169: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5170: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5171: END IF;
5172: -- Standard call to get message count AND if count=1, get the message
5173: FND_MSG_PUB.Count_And_Get (
5174: p_encoded => FND_API.G_FALSE,
5175: p_count => x_msg_count,
5176: p_data => x_msg_data
5298:
5299: l_index number := 1;
5300: l_rec_num number;
5301: BEGIN
5302: -- Standard begin of API savepoint
5303: SAVEPOINT Val_Delete_Claim_PVT;
5304: -- Standard call to check for call compatibility.
5305: IF NOT FND_API.Compatible_API_Call (
5306: l_api_version,
5300: l_rec_num number;
5301: BEGIN
5302: -- Standard begin of API savepoint
5303: SAVEPOINT Val_Delete_Claim_PVT;
5304: -- Standard call to check for call compatibility.
5305: IF NOT FND_API.Compatible_API_Call (
5306: l_api_version,
5307: p_api_version_number,
5308: l_api_name,
5398: END IF;
5399: RAISE FND_API.g_exc_error;
5400: END IF;
5401:
5402: --Standard check of commit
5403: IF FND_API.To_Boolean ( p_commit ) THEN
5404: COMMIT WORK;
5405: END IF;
5406: -- Debug Message
5409: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5410: FND_MSG_PUB.Add;
5411: END IF;
5412:
5413: --Standard call to get message count AND if count=1, get the message
5414: FND_MSG_PUB.Count_And_Get (
5415: p_encoded => FND_API.G_FALSE,
5416: p_count => x_msg_count,
5417: p_data => x_msg_data
5419: EXCEPTION
5420: WHEN FND_API.G_EXC_ERROR THEN
5421: ROLLBACK TO Val_Delete_Claim_PVT;
5422: x_return_status := FND_API.G_RET_STS_ERROR;
5423: -- Standard call to get message count AND if count=1, get the message
5424: FND_MSG_PUB.Count_And_Get (
5425: p_encoded => FND_API.G_FALSE,
5426: p_count => x_msg_count,
5427: p_data => x_msg_data
5428: );
5429: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5430: ROLLBACK TO Val_Delete_Claim_PVT;
5431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5432: -- Standard call to get message count AND if count=1, get the message
5433: FND_MSG_PUB.Count_And_Get (
5434: p_encoded => FND_API.G_FALSE,
5435: p_count => x_msg_count,
5436: p_data => x_msg_data
5440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5441: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5442: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5443: END IF;
5444: -- Standard call to get message count AND if count=1, get the message
5445: FND_MSG_PUB.Count_And_Get (
5446: p_encoded => FND_API.G_FALSE,
5447: p_count => x_msg_count,
5448: p_data => x_msg_data
5545:
5546: l_rec_num number;
5547: --
5548: BEGIN
5549: -- Standard begin of API savepoint
5550: SAVEPOINT Delete_Claim_PVT;
5551: -- Standard call to check for call compatibility.
5552: IF NOT FND_API.Compatible_API_Call (
5553: l_api_version,
5547: --
5548: BEGIN
5549: -- Standard begin of API savepoint
5550: SAVEPOINT Delete_Claim_PVT;
5551: -- Standard call to check for call compatibility.
5552: IF NOT FND_API.Compatible_API_Call (
5553: l_api_version,
5554: p_api_version_number,
5555: l_api_name,
5703: END IF;
5704: RAISE FND_API.g_exc_error;
5705: END IF;
5706:
5707: --Standard check of commit
5708: IF FND_API.To_Boolean ( p_commit ) THEN
5709: COMMIT WORK;
5710: END IF;
5711:
5715: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5716: FND_MSG_PUB.Add;
5717: END IF;
5718:
5719: --Standard call to get message count and if count=1, get the message
5720: FND_MSG_PUB.Count_And_Get (
5721: p_encoded => FND_API.G_FALSE,
5722: p_count => x_msg_count,
5723: p_data => x_msg_data
5725: EXCEPTION
5726: WHEN FND_API.G_EXC_ERROR THEN
5727: ROLLBACK TO Delete_Claim_PVT;
5728: x_return_status := FND_API.G_RET_STS_ERROR;
5729: -- Standard call to get message count and if count=1, get the message
5730: FND_MSG_PUB.Count_And_Get (
5731: p_encoded => FND_API.G_FALSE,
5732: p_count => x_msg_count,
5733: p_data => x_msg_data
5734: );
5735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5736: ROLLBACK TO Delete_Claim_PVT;
5737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5738: -- Standard call to get message count and if count=1, get the message
5739: FND_MSG_PUB.Count_And_Get (
5740: p_encoded => FND_API.G_FALSE,
5741: p_count => x_msg_count,
5742: p_data => x_msg_data
5746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5747: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5748: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
5749: END IF;
5750: -- Standard call to get message count and if count=1, get the message
5751: FND_MSG_PUB.Count_And_Get (
5752: p_encoded => FND_API.G_FALSE,
5753: p_count => x_msg_count,
5754: p_data => x_msg_data
5890: where claim_id = p_id;
5891:
5892: l_user_status_id number;
5893: BEGIN
5894: -- Standard begin of API savepoint
5895: SAVEPOINT Create_Claim_Hist_PVT;
5896:
5897: -- Standard call to check for call compatibility.
5898: IF NOT FND_API.Compatible_API_Call (
5893: BEGIN
5894: -- Standard begin of API savepoint
5895: SAVEPOINT Create_Claim_Hist_PVT;
5896:
5897: -- Standard call to check for call compatibility.
5898: IF NOT FND_API.Compatible_API_Call (
5899: l_api_version,
5900: p_api_version,
5901: l_api_name,
5969: END IF;
5970: --END IF; (uday)
5971: x_need_to_create := l_needed_to_create;
5972: x_claim_history_id := l_claim_history_id;
5973: --Standard check of commit
5974: IF FND_API.To_Boolean ( p_commit ) THEN
5975: COMMIT WORK;
5976: END IF;
5977: -- Debug Message
5979: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5980: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5981: FND_MSG_PUB.Add;
5982: END IF;
5983: --Standard call to get message count and if count=1, get the message
5984: FND_MSG_PUB.Count_And_Get (
5985: p_encoded => FND_API.G_FALSE,
5986: p_count => x_msg_count,
5987: p_data => x_msg_data
5989: EXCEPTION
5990: WHEN FND_API.G_EXC_ERROR THEN
5991: ROLLBACK TO Create_Claim_Hist_PVT;
5992: x_return_status := FND_API.G_RET_STS_ERROR;
5993: -- Standard call to get message count and if count=1, get the message
5994: FND_MSG_PUB.Count_And_Get (
5995: p_encoded => FND_API.G_FALSE,
5996: p_count => x_msg_count,
5997: p_data => x_msg_data
5998: );
5999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6000: ROLLBACK TO Create_Claim_Hist_PVT;
6001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6002: -- Standard call to get message count and if count=1, get the message
6003: FND_MSG_PUB.Count_And_Get (
6004: p_encoded => FND_API.G_FALSE,
6005: p_count => x_msg_count,
6006: p_data => x_msg_data
6011: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6012: THEN
6013: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
6014: END IF;
6015: -- Standard call to get message count and if count=1, get the message
6016: FND_MSG_PUB.Count_And_Get (
6017: p_encoded => FND_API.G_FALSE,
6018: p_count => x_msg_count,
6019: p_data => x_msg_data
6386: l_claim_rec2 claim_rec_type;
6387: l_payment_status VARCHAR2(30); --ninarasi fix for bug 13395562
6388: --
6389: BEGIN
6390: -- Standard begin of API savepoint
6391: -- IF ( NOT G_UPDATE_CALLED ) THEN
6392: SAVEPOINT Update_Claim_PVT;
6393: -- G_UPDATE_CALLED := true;
6394: -- END IF;
6391: -- IF ( NOT G_UPDATE_CALLED ) THEN
6392: SAVEPOINT Update_Claim_PVT;
6393: -- G_UPDATE_CALLED := true;
6394: -- END IF;
6395: -- Standard call to check for call compatibility.
6396:
6397: OPEN old_info_csr(l_claim.claim_id);
6398: FETCH old_info_csr INTO l_old_user_status_id, l_old_status_code, l_old_reason_code_id,
6399: l_old_task_template_group_id, l_old_cust_acct_id, l_old_owner_id, l_old_customer_ref_number,
8220: THEN
8221: l_item_key_amount := l_claim.claim_id || TO_CHAR(SYSDATE,'DDMMRRRRHH24MISS');
8222: l_parameter_list_amount := WF_PARAMETER_LIST_T();
8223:
8224: -- Changed the Cust Account ID as per the standard
8225: l_claim_amount_data := dbms_xmlgen.getXml('select claim.claim_id ClaimID,
8226: claim.amount ClaimAmount,
8227: claim.status_code ClaimStatus,
8228: (claim.cust_account_id || '':'' || cust.party_id)
8282:
8283: -- pass the new version number
8284: x_object_version_number := l_object_version_number;
8285:
8286: --Standard check of commit
8287: IF FND_API.To_Boolean ( p_commit ) THEN
8288: COMMIT WORK;
8289: END IF;
8290: -- Debug Message
8292: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8293: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8294: FND_MSG_PUB.Add;
8295: END IF;
8296: --Standard call to get message count and if count=1, get the message
8297: FND_MSG_PUB.Count_And_Get (
8298: p_encoded => FND_API.G_FALSE,
8299: p_count => x_msg_count,
8300: p_data => x_msg_data
8304: -- IF ( NOT G_UPDATE_CALLED ) THEN
8305: ROLLBACK TO Update_Claim_PVT;
8306: -- END IF;
8307: x_return_status := FND_API.G_RET_STS_ERROR;
8308: -- Standard call to get message count and if count=1, get the message
8309: FND_MSG_PUB.Count_And_Get (
8310: p_encoded => FND_API.G_FALSE,
8311: p_count => x_msg_count,
8312: p_data => x_msg_data
8315: -- IF ( NOT G_UPDATE_CALLED ) THEN
8316: ROLLBACK TO Update_Claim_PVT;
8317: -- END IF;
8318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8319: -- Standard call to get message count and if count=1, get the message
8320: FND_MSG_PUB.Count_And_Get (
8321: p_encoded => FND_API.G_FALSE,
8322: p_count => x_msg_count,
8323: p_data => x_msg_data
8330: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8331: THEN
8332: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8333: END IF;
8334: -- Standard call to get message count and if count=1, get the message
8335: FND_MSG_PUB.Count_And_Get (
8336: p_encoded => FND_API.G_FALSE,
8337: p_count => x_msg_count,
8338: p_data => x_msg_data
8484:
8485: l_claim_reason_org_id NUMBER;
8486:
8487: BEGIN
8488: -- Standard begin of API savepoint
8489: SAVEPOINT Validate_Claim_PVT;
8490: -- Standard call to check for call compatibility.
8491: IF NOT FND_API.Compatible_API_Call (
8492: l_api_version,
8486:
8487: BEGIN
8488: -- Standard begin of API savepoint
8489: SAVEPOINT Validate_Claim_PVT;
8490: -- Standard call to check for call compatibility.
8491: IF NOT FND_API.Compatible_API_Call (
8492: l_api_version,
8493: p_api_version,
8494: l_api_name,
8892: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8893: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8894: FND_MSG_PUB.Add;
8895: END IF;
8896: --Standard call to get message count and if count=1, get the message
8897: FND_MSG_PUB.Count_And_Get (
8898: p_encoded => FND_API.G_FALSE,
8899: p_count => x_msg_count,
8900: p_data => x_msg_data
8902: EXCEPTION
8903: WHEN FND_API.G_EXC_ERROR THEN
8904: ROLLBACK TO Validate_Claim_PVT;
8905: x_return_status := FND_API.G_RET_STS_ERROR;
8906: -- Standard call to get message count and if count=1, get the message
8907: FND_MSG_PUB.Count_And_Get (
8908: p_encoded => FND_API.G_FALSE,
8909: p_count => x_msg_count,
8910: p_data => x_msg_data
8911: );
8912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8913: ROLLBACK TO Validate_Claim_PVT;
8914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8915: -- Standard call to get message count and if count=1, get the message
8916: FND_MSG_PUB.Count_And_Get (
8917: p_encoded => FND_API.G_FALSE,
8918: p_count => x_msg_count,
8919: p_data => x_msg_data
8924: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8925: THEN
8926: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
8927: END IF;
8928: -- Standard call to get message count and if count=1, get the message
8929: FND_MSG_PUB.Count_And_Get (
8930: p_encoded => FND_API.G_FALSE,
8931: p_count => x_msg_count,
8932: p_data => x_msg_data
9006:
9007: l_number_of_cust number;
9008:
9009: BEGIN
9010: -- Standard begin of API savepoint
9011: SAVEPOINT Check_Clm_Cmn_Element_PVT;
9012: -- Standard call to check for call compatibility.
9013: IF NOT FND_API.Compatible_API_Call (
9014: l_api_version,
9008:
9009: BEGIN
9010: -- Standard begin of API savepoint
9011: SAVEPOINT Check_Clm_Cmn_Element_PVT;
9012: -- Standard call to check for call compatibility.
9013: IF NOT FND_API.Compatible_API_Call (
9014: l_api_version,
9015: p_api_version,
9016: l_api_name,
9150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9151: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9152: FND_MSG_PUB.Add;
9153: END IF;
9154: --Standard call to get message count and if count=1, get the message
9155: FND_MSG_PUB.Count_And_Get (
9156: p_encoded => FND_API.G_FALSE,
9157: p_count => x_msg_count,
9158: p_data => x_msg_data
9160: EXCEPTION
9161: WHEN FND_API.G_EXC_ERROR THEN
9162: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9163: x_return_status := FND_API.G_RET_STS_ERROR;
9164: -- Standard call to get message count and if count=1, get the message
9165: FND_MSG_PUB.Count_And_Get (
9166: p_encoded => FND_API.G_FALSE,
9167: p_count => x_msg_count,
9168: p_data => x_msg_data
9169: );
9170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9171: ROLLBACK TO Check_Clm_Cmn_Element_PVT;
9172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9173: -- Standard call to get message count and if count=1, get the message
9174: FND_MSG_PUB.Count_And_Get (
9175: p_encoded => FND_API.G_FALSE,
9176: p_count => x_msg_count,
9177: p_data => x_msg_data
9182: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9183: THEN
9184: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9185: END IF;
9186: -- Standard call to get message count and if count=1, get the message
9187: FND_MSG_PUB.Count_And_Get (
9188: p_encoded => FND_API.G_FALSE,
9189: p_count => x_msg_count,
9190: p_data => x_msg_data
9234: l_default_curr_code varchar2(30):= fnd_profile.value('JTF_PROFILE_DEFAULT_CURRENCY');
9235: l_claim_id number;
9236: l_err_row number:=0;
9237: BEGIN
9238: -- Standard begin of API savepoint
9239: SAVEPOINT Create_Claim_Tbl_PVT;
9240: -- Standard call to check for call compatibility.
9241: IF NOT FND_API.Compatible_API_Call (
9242: l_api_version,
9236: l_err_row number:=0;
9237: BEGIN
9238: -- Standard begin of API savepoint
9239: SAVEPOINT Create_Claim_Tbl_PVT;
9240: -- Standard call to check for call compatibility.
9241: IF NOT FND_API.Compatible_API_Call (
9242: l_api_version,
9243: p_api_version,
9244: l_api_name,
9330: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9331: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9332: FND_MSG_PUB.Add;
9333: END IF;
9334: --Standard call to get message count and if count=1, get the message
9335: FND_MSG_PUB.Count_And_Get (
9336: p_encoded => FND_API.G_FALSE,
9337: p_count => x_msg_count,
9338: p_data => x_msg_data
9346: FND_MESSAGE.Set_Token('ROW',l_err_row);
9347: FND_MSG_PUB.Add;
9348: END IF;
9349: */
9350: -- Standard call to get message count and if count=1, get the message
9351: FND_MSG_PUB.Count_And_Get (
9352: p_encoded => FND_API.G_FALSE,
9353: p_count => x_msg_count,
9354: p_data => x_msg_data
9361: FND_MESSAGE.Set_Token('ROW',l_err_row);
9362: FND_MSG_PUB.Add;
9363: END IF;
9364: */
9365: -- Standard call to get message count and if count=1, get the message
9366: FND_MSG_PUB.Count_And_Get (
9367: p_encoded => FND_API.G_FALSE,
9368: p_count => x_msg_count,
9369: p_data => x_msg_data
9376: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9379: END IF;
9380: */ -- Standard call to get message count and if count=1, get the message
9381: FND_MSG_PUB.Count_And_Get (
9382: p_encoded => FND_API.G_FALSE,
9383: p_count => x_msg_count,
9384: p_data => x_msg_data
9435: l_default_curr_code varchar2(30):= fnd_profile.value('JTF_PROFILE_DEFAULT_CURRENCY');
9436: l_claim_id number;
9437: l_err_row number:=0;
9438: BEGIN
9439: -- Standard begin of API savepoint
9440: SAVEPOINT Update_Claim_Tbl_PVT;
9441: -- Standard call to check for call compatibility.
9442: IF NOT FND_API.Compatible_API_Call (
9443: l_api_version,
9437: l_err_row number:=0;
9438: BEGIN
9439: -- Standard begin of API savepoint
9440: SAVEPOINT Update_Claim_Tbl_PVT;
9441: -- Standard call to check for call compatibility.
9442: IF NOT FND_API.Compatible_API_Call (
9443: l_api_version,
9444: p_api_version,
9445: l_api_name,
9511: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9515: --Standard call to get message count and if count=1, get the message
9516: FND_MSG_PUB.Count_And_Get (
9517: p_encoded => FND_API.G_FALSE,
9518: p_count => x_msg_count,
9519: p_data => x_msg_data
9526: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9530: -- Standard call to get message count and if count=1, get the message
9531: FND_MSG_PUB.Count_And_Get (
9532: p_encoded => FND_API.G_FALSE,
9533: p_count => x_msg_count,
9534: p_data => x_msg_data
9540: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9544: -- Standard call to get message count and if count=1, get the message
9545: FND_MSG_PUB.Count_And_Get (
9546: p_encoded => FND_API.G_FALSE,
9547: p_count => x_msg_count,
9548: p_data => x_msg_data
9554: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9558: -- Standard call to get message count and if count=1, get the message
9559: FND_MSG_PUB.Count_And_Get (
9560: p_encoded => FND_API.G_FALSE,
9561: p_count => x_msg_count,
9562: p_data => x_msg_data