85: BEGIN
86: OPEN c_resource ;
87: FETCH c_resource INTO l_person_id ;
88: IF c_resource%NOTFOUND THEN
89: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
90: FND_MESSAGE.Set_Token('TEXT', sqlerrm );
91: FND_MSG_PUB.Add;
92: END IF;
93: CLOSE c_resource ;
86: OPEN c_resource ;
87: FETCH c_resource INTO l_person_id ;
88: IF c_resource%NOTFOUND THEN
89: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
90: FND_MESSAGE.Set_Token('TEXT', sqlerrm );
91: FND_MSG_PUB.Add;
92: END IF;
93: CLOSE c_resource ;
94: -- Pass the Employee ID to get the Role
536: aname => 'OZF_NEXT_STATUS_MEANING',
537: avalue => l_next_status_meaning
538: );
539:
540: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_REC_ROLE_ERR');
541: l_csetl_err_msg := FND_MESSAGE.get;
542:
543: WF_ENGINE.SetItemAttrText( itemtype => itemtype,
544: itemkey => itemkey,
537: avalue => l_next_status_meaning
538: );
539:
540: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_REC_ROLE_ERR');
541: l_csetl_err_msg := FND_MESSAGE.get;
542:
543: WF_ENGINE.SetItemAttrText( itemtype => itemtype,
544: itemkey => itemkey,
545: aname => 'OZF_CSETL_ERR_MSG',
602: || FND_GLOBAL.local_chr(10), 1, 2000);
603: END LOOP;
604: END IF;
605:
606: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_SPLT_DETLS');
607: FND_MESSAGE.set_token('OZF_SETL_WF_SPLT_DETLS', l_split_msg, false);
608: l_split_str := FND_MESSAGE.get;
609:
610: /* ========================================= */
603: END LOOP;
604: END IF;
605:
606: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_SPLT_DETLS');
607: FND_MESSAGE.set_token('OZF_SETL_WF_SPLT_DETLS', l_split_msg, false);
608: l_split_str := FND_MESSAGE.get;
609:
610: /* ========================================= */
611:
604: END IF;
605:
606: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_SPLT_DETLS');
607: FND_MESSAGE.set_token('OZF_SETL_WF_SPLT_DETLS', l_split_msg, false);
608: l_split_str := FND_MESSAGE.get;
609:
610: /* ========================================= */
611:
612: /* == Set Vendor Information in case of Contra Charge settlement == */
618: OPEN csr_vendor_site(l_vendor_site_id);
619: FETCH csr_vendor_site INTO l_vendor_site;
620: CLOSE csr_vendor_site;
621:
622: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_VENDOR_INFO');
623: FND_MESSAGE.set_token('VENDOR_NAME', l_vendor_name, false);
624: FND_MESSAGE.set_token('VENDOR_SITE', l_vendor_site, false);
625: l_vendor_info_str := FND_MESSAGE.get;
626: END IF;
619: FETCH csr_vendor_site INTO l_vendor_site;
620: CLOSE csr_vendor_site;
621:
622: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_VENDOR_INFO');
623: FND_MESSAGE.set_token('VENDOR_NAME', l_vendor_name, false);
624: FND_MESSAGE.set_token('VENDOR_SITE', l_vendor_site, false);
625: l_vendor_info_str := FND_MESSAGE.get;
626: END IF;
627:
620: CLOSE csr_vendor_site;
621:
622: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_VENDOR_INFO');
623: FND_MESSAGE.set_token('VENDOR_NAME', l_vendor_name, false);
624: FND_MESSAGE.set_token('VENDOR_SITE', l_vendor_site, false);
625: l_vendor_info_str := FND_MESSAGE.get;
626: END IF;
627:
628: /* ========================================= */
621:
622: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_VENDOR_INFO');
623: FND_MESSAGE.set_token('VENDOR_NAME', l_vendor_name, false);
624: FND_MESSAGE.set_token('VENDOR_SITE', l_vendor_site, false);
625: l_vendor_info_str := FND_MESSAGE.get;
626: END IF;
627:
628: /* ========================================= */
629:
707: FND_GLOBAL.local_chr(10), 1, 2000);
708: END LOOP;
709: END IF;
710:
711: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_LINE_DETLS');
712: FND_MESSAGE.set_token('OZF_SETL_WF_LINE_DETLS', l_line_detail_msg, false);
713: l_line_detail_str := FND_MESSAGE.get;
714: /* ========================================= */
715:
708: END LOOP;
709: END IF;
710:
711: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_LINE_DETLS');
712: FND_MESSAGE.set_token('OZF_SETL_WF_LINE_DETLS', l_line_detail_msg, false);
713: l_line_detail_str := FND_MESSAGE.get;
714: /* ========================================= */
715:
716: WF_ENGINE.SetItemAttrText( itemtype => itemtype,
709: END IF;
710:
711: FND_MESSAGE.set_name('OZF', 'OZF_SETL_WF_LINE_DETLS');
712: FND_MESSAGE.set_token('OZF_SETL_WF_LINE_DETLS', l_line_detail_msg, false);
713: l_line_detail_str := FND_MESSAGE.get;
714: /* ========================================= */
715:
716: WF_ENGINE.SetItemAttrText( itemtype => itemtype,
717: itemkey => itemkey,
2028: OPEN csr_claim_rec(p_claim_id);
2029: FETCH csr_claim_rec INTO l_claim_rec;
2030: IF csr_claim_rec%NOTFOUND THEN
2031: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2032: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2033: FND_MSG_PUB.add;
2034: END IF;
2035: CLOSE csr_claim_rec;
2036: RAISE FND_API.G_EXC_ERROR;
2418: x_return_status => l_return_status
2419: );
2420: EXCEPTION
2421: WHEN OTHERS THEN
2422: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2423: FND_MESSAGE.Set_Token('TEXT', sqlerrm || l_budget_type);
2424: FND_MSG_PUB.Add;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END;
2419: );
2420: EXCEPTION
2421: WHEN OTHERS THEN
2422: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2423: FND_MESSAGE.Set_Token('TEXT', sqlerrm || l_budget_type);
2424: FND_MSG_PUB.Add;
2425: RAISE FND_API.G_EXC_ERROR;
2426: END;
2427:
2444: WHERE claim_id = p_claim_id;
2445: EXCEPTION
2446: WHEN OTHERS THEN
2447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2448: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPD_CLAM_ERR');
2449: FND_MSG_PUB.add;
2450: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2451: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2452: FND_MSG_PUB.Add;
2446: WHEN OTHERS THEN
2447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2448: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPD_CLAM_ERR');
2449: FND_MSG_PUB.add;
2450: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2451: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2452: FND_MSG_PUB.Add;
2453: END IF;
2454: END;
2447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2448: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPD_CLAM_ERR');
2449: FND_MSG_PUB.add;
2450: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2451: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2452: FND_MSG_PUB.Add;
2453: END IF;
2454: END;
2455: -------------- start the process ---------------------
2460:
2461: EXCEPTION
2462: WHEN FND_API.G_EXC_ERROR THEN
2463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2464: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2465: FND_MESSAGE.Set_Token('TEXT',G_PKG_NAME||'.'||l_api_name||': Error');
2466: FND_MSG_PUB.Add;
2467: END IF;
2468: RAISE;
2461: EXCEPTION
2462: WHEN FND_API.G_EXC_ERROR THEN
2463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2464: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2465: FND_MESSAGE.Set_Token('TEXT',G_PKG_NAME||'.'||l_api_name||': Error');
2466: FND_MSG_PUB.Add;
2467: END IF;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2467: END IF;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2471: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2472: FND_MESSAGE.Set_Token('TEXT',G_PKG_NAME||'.'||l_api_name||': Error');
2473: FND_MSG_PUB.Add;
2474: END IF;
2475: RAISE;
2468: RAISE;
2469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2471: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2472: FND_MESSAGE.Set_Token('TEXT',G_PKG_NAME||'.'||l_api_name||': Error');
2473: FND_MSG_PUB.Add;
2474: END IF;
2475: RAISE;
2476: WHEN OTHERS THEN
3103: itemkey => p_itemkey,
3104: aname => 'OZF_CLAIM_NUMBER'
3105: );
3106:
3107: FND_MESSAGE.set_name ('OZF', 'OZF_SETL_WF_NTF_ERR');
3108: FND_MESSAGE.set_token ('CLAIM', l_claim_number, FALSE);
3109:
3110: l_err_subj := SUBSTR(FND_MESSAGE.get, 1, 240);
3111:
3104: aname => 'OZF_CLAIM_NUMBER'
3105: );
3106:
3107: FND_MESSAGE.set_name ('OZF', 'OZF_SETL_WF_NTF_ERR');
3108: FND_MESSAGE.set_token ('CLAIM', l_claim_number, FALSE);
3109:
3110: l_err_subj := SUBSTR(FND_MESSAGE.get, 1, 240);
3111:
3112: Wf_Engine.SetItemAttrText(
3106:
3107: FND_MESSAGE.set_name ('OZF', 'OZF_SETL_WF_NTF_ERR');
3108: FND_MESSAGE.set_token ('CLAIM', l_claim_number, FALSE);
3109:
3110: l_err_subj := SUBSTR(FND_MESSAGE.get, 1, 240);
3111:
3112: Wf_Engine.SetItemAttrText(
3113: itemtype => p_itemtype,
3114: itemkey => p_itemkey ,