[Home] [Help]
373: l_org_id NUMBER;
374: l_oe_disc_dtls_on_invoice VARCHAR2(1);
375:
376: BEGIN
377: -- Standard begin of API savepoint
378: SAVEPOINT Get_GL_Account_PVT;
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call (
381: l_api_version,
375:
376: BEGIN
377: -- Standard begin of API savepoint
378: SAVEPOINT Get_GL_Account_PVT;
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call (
381: l_api_version,
382: p_api_version,
383: l_api_name,
795: END IF;
796:
797: END LOOP;
798:
799: --Standard check of commit
800: IF FND_API.To_Boolean ( p_commit ) THEN
801: COMMIT WORK;
802: END IF;
803: -- Debug Message
805: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
806: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
807: FND_MSG_PUB.Add;
808: END IF;
809: --Standard call to get message count and if count=1, get the message
810: FND_MSG_PUB.Count_And_Get (
811: p_encoded => FND_API.G_FALSE,
812: p_count => x_msg_count,
813: p_data => x_msg_data
815: EXCEPTION
816: WHEN FND_API.G_EXC_ERROR THEN
817: ROLLBACK TO Get_GL_Account_PVT;
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: -- Standard call to get message count and if count=1, get the message
820: FND_MSG_PUB.Count_And_Get (
821: p_encoded => FND_API.G_FALSE,
822: p_count => x_msg_count,
823: p_data => x_msg_data
824: );
825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826: ROLLBACK TO Get_GL_Account_PVT;
827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828: -- Standard call to get message count and if count=1, get the message
829: FND_MSG_PUB.Count_And_Get (
830: p_encoded => FND_API.G_FALSE,
831: p_count => x_msg_count,
832: p_data => x_msg_data
837: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
838: THEN
839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
840: END IF;
841: -- Standard call to get message count and if count=1, get the message
842: FND_MSG_PUB.Count_And_Get (
843: p_encoded => FND_API.G_FALSE,
844: p_count => x_msg_count,
845: p_data => x_msg_data
2326: l_api_version CONSTANT NUMBER := 1.0;
2327: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
2328: --
2329: BEGIN
2330: -- Standard call to check for call compatibility.
2331: IF NOT FND_API.Compatible_API_Call (
2332: l_api_version,
2333: p_api_version,
2334: l_api_name,
2392: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2393: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2394: FND_MSG_PUB.Add;
2395: END IF;
2396: --Standard call to get message count and if count=1, get the message
2397: FND_MSG_PUB.Count_And_Get (
2398: p_encoded => FND_API.G_FALSE,
2399: p_count => x_msg_count,
2400: p_data => x_msg_data
2401: );
2402: EXCEPTION
2403: WHEN FND_API.G_EXC_ERROR THEN
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2405: -- Standard call to get message count and if count=1, get the message
2406: FND_MSG_PUB.Count_And_Get (
2407: p_encoded => FND_API.G_FALSE,
2408: p_count => x_msg_count,
2409: p_data => x_msg_data
2409: p_data => x_msg_data
2410: );
2411: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2413: -- Standard call to get message count and if count=1, get the message
2414: FND_MSG_PUB.Count_And_Get (
2415: p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2417: p_data => x_msg_data
2421: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2422: THEN
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2426: FND_MSG_PUB.Count_And_Get (
2427: p_encoded => FND_API.G_FALSE,
2428: p_count => x_msg_count,
2429: p_data => x_msg_data
2520: l_acc_event_id NUMBER := NULL;
2521: -- [END OF BUG 4039894 FIXING in 11.5.10]
2522:
2523: BEGIN
2524: -- Standard begin of API savepoint
2525: SAVEPOINT Create_Gl_Entry_PVT;
2526: -- Standard call to check for call compatibility.
2527: IF NOT FND_API.Compatible_API_Call (
2528: l_api_version,
2522:
2523: BEGIN
2524: -- Standard begin of API savepoint
2525: SAVEPOINT Create_Gl_Entry_PVT;
2526: -- Standard call to check for call compatibility.
2527: IF NOT FND_API.Compatible_API_Call (
2528: l_api_version,
2529: p_api_version,
2530: l_api_name,
2719: -- pass accounting event id
2720: x_event_id := l_accounting_event_id;
2721: END IF; -- post to GL checking
2722:
2723: --Standard check of commit
2724: IF FND_API.To_Boolean ( p_commit ) THEN
2725: COMMIT WORK;
2726: END IF;
2727: -- Debug Message
2729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2731: FND_MSG_PUB.Add;
2732: END IF;
2733: --Standard call to get message count and if count=1, get the message
2734: FND_MSG_PUB.Count_And_Get (
2735: p_encoded => FND_API.G_FALSE,
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2739: EXCEPTION
2740: WHEN FND_API.G_EXC_ERROR THEN
2741: ROLLBACK TO Create_Gl_Entry_PVT;
2742: x_return_status := FND_API.G_RET_STS_ERROR;
2743: -- Standard call to get message count and if count=1, get the message
2744: FND_MSG_PUB.Count_And_Get (
2745: p_encoded => FND_API.G_FALSE,
2746: p_count => x_msg_count,
2747: p_data => x_msg_data
2748: );
2749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2750: ROLLBACK TO Create_Gl_Entry_PVT;
2751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2752: -- Standard call to get message count and if count=1, get the message
2753: FND_MSG_PUB.Count_And_Get (
2754: p_encoded => FND_API.G_FALSE,
2755: p_count => x_msg_count,
2756: p_data => x_msg_data
2761: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2762: THEN
2763: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2764: END IF;
2765: -- Standard call to get message count and if count=1, get the message
2766: FND_MSG_PUB.Count_And_Get (
2767: p_encoded => FND_API.G_FALSE,
2768: p_count => x_msg_count,
2769: p_data => x_msg_data
2818: from ozf_acctng_events_all
2819: where accounting_event_id = p_id;
2820:
2821: BEGIN
2822: -- Standard begin of API savepoint
2823: SAVEPOINT Create_Acctng_Entries;
2824: -- Standard call to check for call compatibility.
2825: IF NOT FND_API.Compatible_API_Call (
2826: l_api_version,
2820:
2821: BEGIN
2822: -- Standard begin of API savepoint
2823: SAVEPOINT Create_Acctng_Entries;
2824: -- Standard call to check for call compatibility.
2825: IF NOT FND_API.Compatible_API_Call (
2826: l_api_version,
2827: p_api_version,
2828: l_api_name,
2930: UPDATE ozf_acctng_events_all
2931: SET event_status_code = 'ACCOUNTED'
2932: where accounting_event_id = l_accounting_event_id;
2933:
2934: --Standard check of commit
2935: IF FND_API.To_Boolean ( p_commit ) THEN
2936: COMMIT WORK;
2937: END IF;
2938: -- Debug Message
2940: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2941: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2942: FND_MSG_PUB.Add;
2943: END IF;
2944: --Standard call to get message count and if count=1, get the message
2945: FND_MSG_PUB.Count_And_Get (
2946: p_encoded => FND_API.G_FALSE,
2947: p_count => x_msg_count,
2948: p_data => x_msg_data
2950: EXCEPTION
2951: WHEN FND_API.G_EXC_ERROR THEN
2952: ROLLBACK TO Create_Acctng_Entries;
2953: x_return_status := FND_API.G_RET_STS_ERROR;
2954: -- Standard call to get message count and if count=1, get the message
2955: FND_MSG_PUB.Count_And_Get (
2956: p_encoded => FND_API.G_FALSE,
2957: p_count => x_msg_count,
2958: p_data => x_msg_data
2959: );
2960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2961: ROLLBACK TO Create_Acctng_Entries;
2962: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2963: -- Standard call to get message count and if count=1, get the message
2964: FND_MSG_PUB.Count_And_Get (
2965: p_encoded => FND_API.G_FALSE,
2966: p_count => x_msg_count,
2967: p_data => x_msg_data
2972: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2973: THEN
2974: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2975: END IF;
2976: -- Standard call to get message count and if count=1, get the message
2977: FND_MSG_PUB.Count_And_Get (
2978: p_encoded => FND_API.G_FALSE,
2979: p_count => x_msg_count,
2980: p_data => x_msg_data
3127: AND nvl(a.adjustment_period_flag,'N') = 'N'
3128: AND a.closing_status IN ( 'O','F');
3129:
3130: BEGIN
3131: -- Standard begin of API savepoint
3132: SAVEPOINT Revert_GL_Entry;
3133:
3134: -- Standard call to check for call compatibility.
3135: IF NOT FND_API.Compatible_API_Call (
3130: BEGIN
3131: -- Standard begin of API savepoint
3132: SAVEPOINT Revert_GL_Entry;
3133:
3134: -- Standard call to check for call compatibility.
3135: IF NOT FND_API.Compatible_API_Call (
3136: l_api_version,
3137: p_api_version,
3138: l_api_name,
3426: END IF;
3427:
3428: END IF;
3429:
3430: --Standard check of commit
3431: IF FND_API.To_Boolean ( p_commit ) THEN
3432: COMMIT WORK;
3433: END IF;
3434: -- Debug Message
3437: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3438: FND_MSG_PUB.Add;
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: --Standard call to get message count and if count=1, get the message
3442: FND_MSG_PUB.Count_And_Get (
3443: p_encoded => FND_API.G_FALSE,
3444: p_count => x_msg_count,
3445: p_data => x_msg_data
3447: EXCEPTION
3448: WHEN FND_API.G_EXC_ERROR THEN
3449: ROLLBACK TO Revert_GL_Entry;
3450: x_return_status := FND_API.G_RET_STS_ERROR;
3451: -- Standard call to get message count and if count=1, get the message
3452: FND_MSG_PUB.Count_And_Get (
3453: p_encoded => FND_API.G_FALSE,
3454: p_count => x_msg_count,
3455: p_data => x_msg_data
3456: );
3457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3458: ROLLBACK TO Revert_GL_Entry;
3459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3460: -- Standard call to get message count and if count=1, get the message
3461: FND_MSG_PUB.Count_And_Get (
3462: p_encoded => FND_API.G_FALSE,
3463: p_count => x_msg_count,
3464: p_data => x_msg_data
3469: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3470: THEN
3471: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3472: END IF;
3473: -- Standard call to get message count and if count=1, get the message
3474: FND_MSG_PUB.Count_And_Get (
3475: p_encoded => FND_API.G_FALSE,
3476: p_count => x_msg_count,
3477: p_data => x_msg_data
3525:
3526: l_gl_rec OZF_GL_INTERFACE_PVT.gl_interface_rec_type;
3527:
3528: BEGIN
3529: -- Standard begin of API savepoint
3530: SAVEPOINT Post_Accrual_To_GL;
3531: -- Standard call to check for call compatibility.
3532: IF NOT FND_API.Compatible_API_Call (
3533: l_api_version,
3527:
3528: BEGIN
3529: -- Standard begin of API savepoint
3530: SAVEPOINT Post_Accrual_To_GL;
3531: -- Standard call to check for call compatibility.
3532: IF NOT FND_API.Compatible_API_Call (
3533: l_api_version,
3534: p_api_version,
3535: l_api_name,
3587: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591: --Standard check of commit
3592: IF FND_API.To_Boolean ( p_commit ) THEN
3593: COMMIT WORK;
3594: END IF;
3595: -- Debug Message
3597: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3598: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3599: FND_MSG_PUB.Add;
3600: END IF;
3601: --Standard call to get message count and if count=1, get the message
3602: FND_MSG_PUB.Count_And_Get (
3603: p_encoded => FND_API.G_FALSE,
3604: p_count => x_msg_count,
3605: p_data => x_msg_data
3607: EXCEPTION
3608: WHEN FND_API.G_EXC_ERROR THEN
3609: ROLLBACK TO Post_Accrual_To_GL;
3610: x_return_status := FND_API.G_RET_STS_ERROR;
3611: -- Standard call to get message count and if count=1, get the message
3612: FND_MSG_PUB.Count_And_Get (
3613: p_encoded => FND_API.G_FALSE,
3614: p_count => x_msg_count,
3615: p_data => x_msg_data
3616: );
3617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3618: ROLLBACK TO Post_Accrual_To_GL;
3619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3620: -- Standard call to get message count and if count=1, get the message
3621: FND_MSG_PUB.Count_And_Get (
3622: p_encoded => FND_API.G_FALSE,
3623: p_count => x_msg_count,
3624: p_data => x_msg_data
3629: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3630: THEN
3631: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3632: END IF;
3633: -- Standard call to get message count and if count=1, get the message
3634: FND_MSG_PUB.Count_And_Get (
3635: p_encoded => FND_API.G_FALSE,
3636: p_count => x_msg_count,
3637: p_data => x_msg_data
3679:
3680: l_gl_rec OZF_GL_INTERFACE_PVT.gl_interface_rec_type;
3681:
3682: BEGIN
3683: -- Standard begin of API savepoint
3684: SAVEPOINT Post_Claim_To_GL;
3685: -- Standard call to check for call compatibility.
3686: IF NOT FND_API.Compatible_API_Call (
3687: l_api_version,
3681:
3682: BEGIN
3683: -- Standard begin of API savepoint
3684: SAVEPOINT Post_Claim_To_GL;
3685: -- Standard call to check for call compatibility.
3686: IF NOT FND_API.Compatible_API_Call (
3687: l_api_version,
3688: p_api_version,
3689: l_api_name,
3753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3755: END IF;
3756:
3757: --Standard check of commit
3758: IF FND_API.To_Boolean ( p_commit ) THEN
3759: COMMIT WORK;
3760: END IF;
3761: -- Debug Message
3763: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3764: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
3765: FND_MSG_PUB.Add;
3766: END IF;
3767: --Standard call to get message count and if count=1, get the message
3768: FND_MSG_PUB.Count_And_Get (
3769: p_encoded => FND_API.G_FALSE,
3770: p_count => x_msg_count,
3771: p_data => x_msg_data
3773: EXCEPTION
3774: WHEN FND_API.G_EXC_ERROR THEN
3775: ROLLBACK TO Post_Claim_To_GL;
3776: x_return_status := FND_API.G_RET_STS_ERROR;
3777: -- Standard call to get message count and if count=1, get the message
3778: FND_MSG_PUB.Count_And_Get (
3779: p_encoded => FND_API.G_FALSE,
3780: p_count => x_msg_count,
3781: p_data => x_msg_data
3782: );
3783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3784: ROLLBACK TO Post_Claim_To_GL;
3785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3786: -- Standard call to get message count and if count=1, get the message
3787: FND_MSG_PUB.Count_And_Get (
3788: p_encoded => FND_API.G_FALSE,
3789: p_count => x_msg_count,
3790: p_data => x_msg_data
3795: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3796: THEN
3797: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3798: END IF;
3799: -- Standard call to get message count and if count=1, get the message
3800: FND_MSG_PUB.Count_And_Get (
3801: p_encoded => FND_API.G_FALSE,
3802: p_count => x_msg_count,
3803: p_data => x_msg_data