1: PACKAGE BODY INV_REDUCE_MOQD_PVT AS
2: /* $Header: INVRMOQB.pls 120.8.12020000.2 2012/07/09 08:16:19 asugandh ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_REDUCE_MOQD_PVT';
5: g_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0); /* Added for bug 7588761 */
6: g_lock_handle VARCHAR2(128) :=''; /* Added for bug 7588761 */
7:
8: PROCEDURE debug(
9: p_message IN VARCHAR2
144: P_ORG_ID IN NUMBER
145: ) IS
146:
147: /* Commented for bug 7588761 */
148: -- l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
149: l_profile VARCHAR2(1) := NVL(FND_PROFILE.VALUE('INV_FIFO_ORIG_REC_DATE'),'N');
150: l_user_id NUMBER := NVL(FND_PROFILE.VALUE('USER_ID'),-999);
151: l_request_id NUMBER := NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'),-999);
152:
145: ) IS
146:
147: /* Commented for bug 7588761 */
148: -- l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
149: l_profile VARCHAR2(1) := NVL(FND_PROFILE.VALUE('INV_FIFO_ORIG_REC_DATE'),'N');
150: l_user_id NUMBER := NVL(FND_PROFILE.VALUE('USER_ID'),-999);
151: l_request_id NUMBER := NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'),-999);
152:
153: l_moq_count NUMBER;
146:
147: /* Commented for bug 7588761 */
148: -- l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
149: l_profile VARCHAR2(1) := NVL(FND_PROFILE.VALUE('INV_FIFO_ORIG_REC_DATE'),'N');
150: l_user_id NUMBER := NVL(FND_PROFILE.VALUE('USER_ID'),-999);
151: l_request_id NUMBER := NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'),-999);
152:
153: l_moq_count NUMBER;
154: l_moq_sum NUMBER;
147: /* Commented for bug 7588761 */
148: -- l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
149: l_profile VARCHAR2(1) := NVL(FND_PROFILE.VALUE('INV_FIFO_ORIG_REC_DATE'),'N');
150: l_user_id NUMBER := NVL(FND_PROFILE.VALUE('USER_ID'),-999);
151: l_request_id NUMBER := NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'),-999);
152:
153: l_moq_count NUMBER;
154: l_moq_sum NUMBER;
155: l_moq_backup_count NUMBER;
215: END IF;
216:
217: l_stmt_count := 100;
218:
219: -- If fnd_profile returns 'N' for the profile, then make sure that this profile is not
220: -- set to 'Y' at any other levels before proceeding with onhand consolidation.
221:
222: IF (l_profile = 'N') THEN
223:
223:
224: l_stmt_count := 110;
225:
226: SELECT count(1) INTO l_prof_cnt
227: FROM fnd_profile_options o, fnd_profile_option_values v
228: WHERE o.profile_option_name = 'INV_FIFO_ORIG_REC_DATE'
229: AND o.start_date_active <= sysdate
230: AND (nvl(o.end_date_active,sysdate) >= sysdate)
231: AND o.profile_option_id = v.profile_option_id