DBA Data[Home] [Help]

APPS.MRP_CALENDAR dependencies on MRP_CALENDAR

Line 1: PACKAGE BODY MRP_CALENDAR AS

1: PACKAGE BODY MRP_CALENDAR AS
2: /* $Header: MRPCALDB.pls 115.7 2004/08/19 20:03:34 jhegde ship $ */
3:
4: -- Global Static variables
5: MRP_CALENDAR_RET_DATES NUMBER := 0;

Line 5: MRP_CALENDAR_RET_DATES NUMBER := 0;

1: PACKAGE BODY MRP_CALENDAR AS
2: /* $Header: MRPCALDB.pls 115.7 2004/08/19 20:03:34 jhegde ship $ */
3:
4: -- Global Static variables
5: MRP_CALENDAR_RET_DATES NUMBER := 0;
6: mrp_calendar_cal_code VARCHAR2(10) := '17438gdjh';
7: mrp_calendar_excep_set NUMBER := -23453;
8: min_date DATE;
9: max_date DATE;

Line 6: mrp_calendar_cal_code VARCHAR2(10) := '17438gdjh';

2: /* $Header: MRPCALDB.pls 115.7 2004/08/19 20:03:34 jhegde ship $ */
3:
4: -- Global Static variables
5: MRP_CALENDAR_RET_DATES NUMBER := 0;
6: mrp_calendar_cal_code VARCHAR2(10) := '17438gdjh';
7: mrp_calendar_excep_set NUMBER := -23453;
8: min_date DATE;
9: max_date DATE;
10: min_week_date DATE;

Line 7: mrp_calendar_excep_set NUMBER := -23453;

3:
4: -- Global Static variables
5: MRP_CALENDAR_RET_DATES NUMBER := 0;
6: mrp_calendar_cal_code VARCHAR2(10) := '17438gdjh';
7: mrp_calendar_excep_set NUMBER := -23453;
8: min_date DATE;
9: max_date DATE;
10: min_week_date DATE;
11: max_week_date DATE;

Line 41: IF arg_calendar_code <> mrp_calendar_cal_code OR

37: arg_exception_set_id NUMBER) IS
38: temp_char VARCHAR2(30);
39: BEGIN
40: /*Commented bug 1480385 dbms_output.put_line('In MRP_CAL_INIT_GLOBAL');*/
41: IF arg_calendar_code <> mrp_calendar_cal_code OR
42: arg_exception_set_id <> mrp_calendar_excep_set THEN
43:
44: SELECT /*+ index_ffs(bom) */ min(calendar_date), max(calendar_date), min(seq_num),
45: max(seq_num)

Line 42: arg_exception_set_id <> mrp_calendar_excep_set THEN

38: temp_char VARCHAR2(30);
39: BEGIN
40: /*Commented bug 1480385 dbms_output.put_line('In MRP_CAL_INIT_GLOBAL');*/
41: IF arg_calendar_code <> mrp_calendar_cal_code OR
42: arg_exception_set_id <> mrp_calendar_excep_set THEN
43:
44: SELECT /*+ index_ffs(bom) */ min(calendar_date), max(calendar_date), min(seq_num),
45: max(seq_num)
46: INTO min_date, max_date, min_seq_num, max_seq_num

Line 66: mrp_calendar_cal_code := arg_calendar_code;

62: FROM bom_cal_week_start_dates
63: WHERE calendar_code = arg_calendar_code
64: AND exception_set_id = arg_exception_set_id;
65:
66: mrp_calendar_cal_code := arg_calendar_code;
67: mrp_calendar_excep_set := arg_exception_set_id;
68: END IF;
69:
70: IF MRP_CALENDAR_RET_DATES = 0 THEN

Line 67: mrp_calendar_excep_set := arg_exception_set_id;

63: WHERE calendar_code = arg_calendar_code
64: AND exception_set_id = arg_exception_set_id;
65:
66: mrp_calendar_cal_code := arg_calendar_code;
67: mrp_calendar_excep_set := arg_exception_set_id;
68: END IF;
69:
70: IF MRP_CALENDAR_RET_DATES = 0 THEN
71: /*Commented bug 1480385 dbms_output.put_line('Getting value of profile');*/

Line 70: IF MRP_CALENDAR_RET_DATES = 0 THEN

66: mrp_calendar_cal_code := arg_calendar_code;
67: mrp_calendar_excep_set := arg_exception_set_id;
68: END IF;
69:
70: IF MRP_CALENDAR_RET_DATES = 0 THEN
71: /*Commented bug 1480385 dbms_output.put_line('Getting value of profile');*/
72: temp_Char := FND_PROFILE.VALUE('MRP_RETAIN_DATES_WTIN_CAL_BOUNDARY');
73: IF temp_Char = 'Y' THEN
74: MRP_CALENDAR_RET_DATES := 1;

Line 74: MRP_CALENDAR_RET_DATES := 1;

70: IF MRP_CALENDAR_RET_DATES = 0 THEN
71: /*Commented bug 1480385 dbms_output.put_line('Getting value of profile');*/
72: temp_Char := FND_PROFILE.VALUE('MRP_RETAIN_DATES_WTIN_CAL_BOUNDARY');
73: IF temp_Char = 'Y' THEN
74: MRP_CALENDAR_RET_DATES := 1;
75: ELSE
76: MRP_CALENDAR_RET_DATES := 2;
77: END IF;
78: END IF;

Line 76: MRP_CALENDAR_RET_DATES := 2;

72: temp_Char := FND_PROFILE.VALUE('MRP_RETAIN_DATES_WTIN_CAL_BOUNDARY');
73: IF temp_Char = 'Y' THEN
74: MRP_CALENDAR_RET_DATES := 1;
75: ELSE
76: MRP_CALENDAR_RET_DATES := 2;
77: END IF;
78: END IF;
79: /*Commented bug 1480385 dbms_output.put_line(to_char(MRP_CALENDAR_RET_DATES));*/
80: EXCEPTION

Line 79: /*Commented bug 1480385 dbms_output.put_line(to_char(MRP_CALENDAR_RET_DATES));*/

75: ELSE
76: MRP_CALENDAR_RET_DATES := 2;
77: END IF;
78: END IF;
79: /*Commented bug 1480385 dbms_output.put_line(to_char(MRP_CALENDAR_RET_DATES));*/
80: EXCEPTION
81: WHEN NO_DATA_FOUND THEN
82: FND_MESSAGE.SET_NAME('MRP', 'GEN-CALENDAR NOT COMPILED');
83: APP_EXCEPTION.RAISE_EXCEPTION;

Line 155: IF MRP_CALENDAR_RET_DATES = 1

151: AND cal.seq_num = arg_seq_num + arg_offset;
152:
153: EXCEPTION
154: WHEN NO_DATA_FOUND THEN
155: IF MRP_CALENDAR_RET_DATES = 1
156: THEN
157: IF arg_offset > 0 THEN
158: var_return_date := max_date;
159: ELSE

Line 184: IF MRP_CALENDAR_RET_DATES = 1

180: AND cal.calendar_code = var_calendar_code
181: AND cal.seq_num = arg_seq_num + arg_offset;
182: EXCEPTION
183: WHEN NO_DATA_FOUND THEN
184: IF MRP_CALENDAR_RET_DATES = 1
185: THEN
186: IF arg_offset > 0 THEN
187: var_return_date := max_week_date;
188: ELSE

Line 210: mrp_calendar.select_calendar_defaults(arg_org_id,

206:
207: IF arg_date is NULL or arg_org_id is NULL or arg_bucket is NULL THEN
208: RETURN NULL;
209: END IF;
210: mrp_calendar.select_calendar_defaults(arg_org_id,
211: var_calendar_code, var_exception_set_id);
212:
213:
214: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);

Line 217: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN

213:
214: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);
215: IF arg_bucket = TYPE_DAILY_BUCKET THEN
216:
217: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN
218: var_return_date := max_date;
219: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN
220: var_return_date := min_date;
221: ELSE

Line 219: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN

215: IF arg_bucket = TYPE_DAILY_BUCKET THEN
216:
217: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN
218: var_return_date := max_date;
219: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN
220: var_return_date := min_date;
221: ELSE
222: SELECT cal.next_date
223: INTO var_return_date

Line 231: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN

227: AND cal.calendar_date = TRUNC(arg_date);
228: END IF;
229:
230: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
231: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN
232: var_return_date := max_week_date;
233: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN
234: var_return_date := min_week_date;
235: ELSE

Line 233: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN

229:
230: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
231: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN
232: var_return_date := max_week_date;
233: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN
234: var_return_date := min_week_date;
235: ELSE
236: SELECT MIN(cal.week_start_date)
237: INTO var_return_date

Line 245: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_period_date THEN

241: AND cal.week_start_date >= TRUNC(arg_date);
242: END IF;
243:
244: ELSIF arg_bucket = TYPE_MONTHLY_BUCKET THEN
245: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_period_date THEN
246: var_return_date := max_period_date;
247: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_period_date THEN
248: var_return_date := min_period_date;
249: ELSE

Line 247: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_period_date THEN

243:
244: ELSIF arg_bucket = TYPE_MONTHLY_BUCKET THEN
245: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_period_date THEN
246: var_return_date := max_period_date;
247: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_period_date THEN
248: var_return_date := min_period_date;
249: ELSE
250: SELECT MIN(cal.period_start_date)
251: INTO var_return_date

Line 273: mrp_calendar.select_calendar_defaults(arg_org_id,

269: BEGIN
270: IF arg_date is NULL or arg_org_id is NULL or arg_bucket is NULL THEN
271: RETURN NULL;
272: END IF;
273: mrp_calendar.select_calendar_defaults(arg_org_id,
274: var_calendar_code, var_exception_set_id);
275:
276: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);
277: IF arg_bucket = TYPE_DAILY_BUCKET THEN

Line 278: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN

274: var_calendar_code, var_exception_set_id);
275:
276: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);
277: IF arg_bucket = TYPE_DAILY_BUCKET THEN
278: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN
279: var_return_date := max_date;
280: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN
281: var_return_date := min_date;
282: ELSE

Line 280: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN

276: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);
277: IF arg_bucket = TYPE_DAILY_BUCKET THEN
278: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN
279: var_return_date := max_date;
280: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN
281: var_return_date := min_date;
282: ELSE
283: SELECT cal.prior_date
284: INTO var_return_date

Line 291: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN

287: AND cal.calendar_code = var_calendar_code
288: AND cal.calendar_date = TRUNC(arg_date);
289: END IF;
290: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
291: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN
292: var_return_date := max_week_date;
293: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN
294: var_return_date := min_week_date;
295: ELSE

Line 293: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN

289: END IF;
290: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
291: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN
292: var_return_date := max_week_date;
293: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN
294: var_return_date := min_week_date;
295: ELSE
296: SELECT MAX(cal.week_start_date)
297: INTO var_return_date

Line 304: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_period_date THEN

300: AND cal.calendar_code = var_calendar_code
301: AND cal.week_start_date <= TRUNC(arg_date);
302: END IF;
303: ELSIF arg_bucket = TYPE_MONTHLY_BUCKET THEN
304: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_period_date THEN
305: var_return_date := max_period_date;
306: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_period_date THEN
307: var_return_date := min_period_date;
308: ELSE

Line 306: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_period_date THEN

302: END IF;
303: ELSIF arg_bucket = TYPE_MONTHLY_BUCKET THEN
304: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_period_date THEN
305: var_return_date := max_period_date;
306: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_period_date THEN
307: var_return_date := min_period_date;
308: ELSE
309: SELECT MAX(cal.period_start_date)
310: INTO var_return_date

Line 329: mrp_calendar.select_calendar_defaults(arg_org_id,

325: FUNCTION NEXT_WORK_DAY_SEQNUM(arg_org_id IN NUMBER,
326: arg_bucket IN NUMBER,
327: arg_date IN DATE) RETURN NUMBER IS
328: BEGIN
329: mrp_calendar.select_calendar_defaults(arg_org_id,
330: var_calendar_code, var_exception_set_id);
331:
332: IF arg_bucket = TYPE_DAILY_BUCKET THEN
333: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN

Line 333: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN

329: mrp_calendar.select_calendar_defaults(arg_org_id,
330: var_calendar_code, var_exception_set_id);
331:
332: IF arg_bucket = TYPE_DAILY_BUCKET THEN
333: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN
334: var_return_number := max_seq_num;
335: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN
336: var_return_number := min_seq_num;
337: ELSE

Line 335: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN

331:
332: IF arg_bucket = TYPE_DAILY_BUCKET THEN
333: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_date THEN
334: var_return_number := max_seq_num;
335: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_date THEN
336: var_return_number := min_seq_num;
337: ELSE
338: SELECT cal.next_seq_num
339: INTO var_return_number

Line 346: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN

342: AND cal.calendar_code = var_calendar_code
343: AND cal.calendar_date = TRUNC(arg_date);
344: END IF;
345: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
346: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN
347: var_return_number := max_week_seq_num;
348: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN
349: var_return_number := min_seq_num;
350: ELSE

Line 348: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN

344: END IF;
345: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
346: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date >= max_week_date THEN
347: var_return_number := max_week_seq_num;
348: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date < min_week_date THEN
349: var_return_number := min_seq_num;
350: ELSE
351: SELECT MIN(cal.seq_num)
352: INTO var_return_number

Line 372: mrp_calendar.select_calendar_defaults(arg_org_id,

368: FUNCTION PREV_WORK_DAY_SEQNUM(arg_org_id IN NUMBER,
369: arg_bucket IN NUMBER,
370: arg_date IN DATE) RETURN NUMBER IS
371: BEGIN
372: mrp_calendar.select_calendar_defaults(arg_org_id,
373: var_calendar_code, var_exception_set_id);
374:
375: IF arg_bucket = TYPE_DAILY_BUCKET THEN
376: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN

Line 376: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN

372: mrp_calendar.select_calendar_defaults(arg_org_id,
373: var_calendar_code, var_exception_set_id);
374:
375: IF arg_bucket = TYPE_DAILY_BUCKET THEN
376: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN
377: var_return_number := max_seq_num;
378: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN
379: var_return_number := min_seq_num;
380: ELSE

Line 378: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN

374:
375: IF arg_bucket = TYPE_DAILY_BUCKET THEN
376: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_date THEN
377: var_return_number := max_seq_num;
378: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_date THEN
379: var_return_number := min_seq_num;
380: ELSE
381: SELECT cal.prior_seq_num
382: INTO var_return_number

Line 389: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN

385: AND cal.calendar_code = var_calendar_code
386: AND cal.calendar_date = TRUNC(arg_date);
387: END IF;
388: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
389: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN
390: var_return_number := max_week_seq_num;
391: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN
392: var_return_number := min_week_seq_num;
393: ELSE

Line 391: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN

387: END IF;
388: ELSIF arg_bucket = TYPE_WEEKLY_BUCKET THEN
389: IF MRP_CALENDAR_RET_DATES = 1 AND arg_date > max_week_date THEN
390: var_return_number := max_week_seq_num;
391: ELSIF MRP_CALENDAR_RET_DATES = 1 AND arg_date <= min_week_date THEN
392: var_return_number := min_week_seq_num;
393: ELSE
394: SELECT MAX(cal.seq_num)
395: INTO var_return_number

Line 426: mrp_calendar.select_calendar_defaults(arg_org_id,

422: var_prev_work_day := PREV_WORK_DAY(arg_org_id, 1, arg_date);
423: return var_prev_work_day;
424: END IF;
425:
426: mrp_calendar.select_calendar_defaults(arg_org_id,
427: var_calendar_code, var_exception_set_id);
428:
429: MRP_CAL_INIT_GLOBAL(var_calendar_code, var_exception_set_id);
430: IF arg_bucket = TYPE_DAILY_BUCKET OR arg_bucket = TYPE_WEEKLY_BUCKET

Line 456: mrp_calendar.select_calendar_defaults(arg_org_id,

452: arg_bucket IN NUMBER,
453: arg_date1 IN DATE,
454: arg_date2 IN DATE) RETURN NUMBER IS
455: BEGIN
456: mrp_calendar.select_calendar_defaults(arg_org_id,
457: var_calendar_code, var_exception_set_id);
458:
459: IF arg_date1 is NULL or arg_bucket is null or arg_org_id is null
460: or arg_date2 IS NULL THEN

Line 509: END MRP_CALENDAR;

505: END IF;
506:
507: END select_calendar_defaults;
508:
509: END MRP_CALENDAR;