1 Package hxc_generic_retrieval_utils as
2 /* $Header: hxcretutl.pkh 120.5 2008/02/21 09:57:28 asrajago noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hxc_generic_retrieval_utils.'; -- Global package name
9
10 TYPE r_ret_ranges IS RECORD (
11 rtr_grp_id NUMBER(15)
12 ,start_date DATE
13 ,stop_date DATE);
14
15 TYPE t_ret_ranges IS TABLE OF r_ret_ranges INDEX BY BINARY_INTEGER;
16
17 TYPE r_ret_rule IS RECORD (
18 rtr_grp_id NUMBER(15)
19 ,time_recipient_id hxc_time_recipients.time_recipient_id%TYPE
20 ,status VARCHAR2(40)
21 ,outcome_exists VARCHAR2(1)
22 ,outcome_start BINARY_INTEGER
23 ,outcome_stop BINARY_INTEGER );
24
25 TYPE t_ret_rule IS TABLE OF r_ret_rule INDEX BY BINARY_INTEGER;
26
27 TYPE r_rtr_exists IS RECORD (
28 rtr_start BINARY_INTEGER
29 ,rtr_stop BINARY_INTEGER );
30
31 TYPE t_rtr_exists IS TABLE OF r_rtr_exists INDEX BY BINARY_INTEGER;
32
33 TYPE r_pref IS RECORD (
34 prefs_ok varchar2(1)
35 ,rtr_start BINARY_INTEGER
36 ,rtr_end BINARY_INTEGER );
37
38 TYPE t_pref IS TABLE OF r_pref INDEX BY BINARY_INTEGER;
39
40 TYPE r_app_set IS RECORD (
41 app_set_ok VARCHAR2(1) );
42
43 TYPE t_app_set IS TABLE OF r_app_set INDEX BY BINARY_INTEGER;
44
45 TYPE r_resource IS RECORD ( resource_id hxc_time_building_blocks.resource_id%TYPE
46 , start_time hxc_time_building_blocks.start_time%TYPE
47 , stop_time hxc_time_building_blocks.stop_time%TYPE );
48
49 TYPE t_resource IS TABLE OF r_resource INDEX BY BINARY_INTEGER;
50
51 g_resources t_resource;
52
53 TYPE r_rtr_outcome IS RECORD ( rtr_grp_id number(15)
54 , time_recipient_id hxc_time_recipients.time_recipient_id%TYPE
55 , start_time hxc_time_building_blocks.start_time%TYPE
56 , stop_time hxc_time_building_blocks.stop_time%TYPE );
57
58 TYPE t_rtr_outcome IS TABLE OF r_rtr_outcome INDEX BY BINARY_INTEGER;
59
60 TYPE r_errors IS RECORD ( exception_description hxc_transaction_details.exception_description%TYPE );
61
62 TYPE t_errors IS TABLE OF r_errors INDEX BY BINARY_INTEGER;
63
64 -- public function
65 -- time_bld_blk_changed
66 --
67 -- description
68 -- This function returns TRUE if the latest version of the
69 -- time building block specified by P_BB_ID has a greater
70 -- Object Version Number in the time store than that specified
71 -- by P_BB_OVN
72 --
73 -- parameters
74 -- p_bb_id - time building block id
75 -- p_bb_ovn - time building block object version number
76
77 FUNCTION time_bld_blk_changed ( p_bb_id NUMBER
78 , p_bb_ovn NUMBER )RETURN BOOLEAN;
79
80 PROCEDURE parse_resources (
81 p_process_id NUMBER
82 , p_ret_tr_id NUMBER
83 , p_prefs IN OUT NOCOPY t_pref
84 , p_ret_rules IN OUT NOCOPY t_ret_rule
85 , p_rtr_outcomes IN OUT NOCOPY t_rtr_outcome
86 , p_errors IN OUT NOCOPY t_errors );
87
88 PROCEDURE chk_retrieve (
89 p_resource_id NUMBER
90 , p_bb_status VARCHAR2
91 , p_bb_deleted VARCHAR2
92 , p_bb_start_time DATE
93 , p_bb_stop_time DATE
94 , p_bb_id NUMBER
95 , p_bb_ovn NUMBER
96 , p_process VARCHAR2
97 , p_prefs t_pref
98 , p_ret_rules t_ret_rule
99 , p_rtr_outcomes t_rtr_outcome
100 , p_tc_bb_id NUMBER
101 , p_tc_bb_ovn NUMBER
102 , p_timecard_retrieve IN OUT NOCOPY BOOLEAN
103 , p_day_retrieve IN OUT NOCOPY BOOLEAN
104 , p_tc_locked IN OUT NOCOPY BOOLEAN
105 , p_tc_first_lock IN OUT NOCOPY BOOLEAN
106 , p_bb_skipped_reason OUT NOCOPY VARCHAR2 );
107
108 PROCEDURE set_parent_statuses;
109
110 PROCEDURE recovery ( p_process_id NUMBER
111 , p_process VARCHAR2 );
112
113 FUNCTION chk_terminated ( p_conc_request_id NUMBER ) RETURN BOOLEAN;
114
115 FUNCTION get_ret_criteria RETURN VARCHAR2;
116
117 FUNCTION chk_need_adj ( p_tc_id NUMBER ,
118 p_tc_ovn NUMBER ,
119 p_resource_id NUMBER ,
120 p_date_earned DATE ,
121 p_bb_id NUMBER ,
122 p_retr_process_id NUMBER ) RETURN BOOLEAN ;
123
124
125 end hxc_generic_retrieval_utils;