1 PACKAGE BODY hrwscal_pkg as
2 /* $Header: hrwscal.pkb 115.0 99/07/17 05:37:19 porting ship $
3 ******************************************************************
4 * *
5 * Copyright (C) 1993 Oracle Corporation. *
6 * All rights reserved. *
7 * *
8 * This material has been provided pursuant to an agreement *
9 * containing restrictions on its use. The material is also *
10 * protected by copyright law. No part of this material may *
11 * be copied or distributed, transmitted or transcribed, in *
12 * any form or by any means, electronic, mechanical, magnetic, *
13 * manual, or otherwise, or disclosed to third parties without *
14 * the express written permission of Oracle Corporation, *
15 * 500 Oracle Parkway, Redwood City, CA, 94065. *
16 * *
17 ******************************************************************
18
19
20 Name : hrwscal_pkg
21
22 Description : This package is the server side agent for
23 Calendar Patterns
24
25 Change List
26 -----------
27 Date Name Vers Bug No Description
28 ---- ---- ---- ------ -----------
29 31-Oct-1995 agladsto 40.0 Initial Creation
30 30-JUL-1996 jalloun Added error handling.
31 */
32
33 -- --------------------------------------------------------------------------
34 -- |---------------------------< Check_Exception_Name >---------------------|
35 -- --------------------------------------------------------------------------
36 --
37 -- PUBLIC
38 -- Description:
39 -- Fetch pattern exception details
40 --
41 Procedure fetch_pattern_excpt_details(
42 p_exception_name in varchar2,
43 p_EXCEPTION_ID out number,
44 p_PATTERN_ID out number,
45 p_EXCEPTION_CATEGORY out varchar2,
46 p_EXCEPTION_START_TIME out date,
47 p_EXCEPTION_END_TIME out date,
48 p_PATTERN_NAME out varchar2,
49 p_NEW_EXCEPTION_INDICTOR out varchar2,
50 p_EXCEPTION_CATEGORY_MEANING out varchar2
51 ) is
52 --
53 lv_exception_name hr_pattern_exceptions.exception_name%type;
54 cursor pattern_exception_cursor is
55 select EXCEPTION_ID,
56 PATTERN_ID,
57 EXCEPTION_CATEGORY,
58 EXCEPTION_START_TIME,
59 EXCEPTION_END_TIME,
60 PATTERN_NAME,
61 EXCEPTION_CATEGORY_MEANING
62 from hr_pattern_exceptions_v
63 where upper(exception_name) = upper(p_exception_name);
64
65
66 BEGIN
67 open pattern_exception_cursor;
68 fetch pattern_exception_cursor into
69 p_EXCEPTION_ID ,
70 p_PATTERN_ID ,
71 p_EXCEPTION_CATEGORY ,
72 p_EXCEPTION_START_TIME ,
73 p_EXCEPTION_END_TIME ,
74 p_PATTERN_NAME,
75 p_EXCEPTION_CATEGORY_MEANING;
76 if pattern_exception_cursor%FOUND then
77 p_NEW_EXCEPTION_INDICTOR := 'OLD';
78 else
79 p_NEW_EXCEPTION_INDICTOR := 'NEW';
80 end if;
81
82 close pattern_exception_cursor;
83 END fetch_pattern_excpt_details;
84 --
85 END HRWSCAL_PKG;