1: PACKAGE BODY BOM_CALENDARS_PKG as
2: /* $Header: bompbclb.pls 115.2 99/07/16 05:47:10 porting ship $ */
3:
4:
5: FUNCTION Workday_Pattern_Exist (x_calendar_code VARCHAR2,
24: PROCEDURE Calendar_Check_Unique (x_calendar_code VARCHAR2) IS
25: dummy NUMBER;
26: BEGIN
27: select 1 into dummy from DUAL where not exists
28: (select 1 from BOM_CALENDARS
29: where calendar_code = x_calendar_code
30: );
31:
32: EXCEPTION
366:
367: END Shift_Times_Overlap;
368:
369:
370: END BOM_CALENDARS_PKG;