1 PACKAGE BODY pay_us_pdt_validate AS
2 /* $Header: pypdtuvd.pkb 115.0 99/07/17 06:21:30 porting ship $ */
3 --
4 --
5 /*
6 /*
7 ******************************************************************
8 * *
9 * Copyright (C) 1993 Oracle Corporation. *
10 * All rights reserved. *
11 * *
12 * This material has been provided pursuant to an agreement *
13 * containing restrictions on its use. The material is also *
14 * protected by copyright law. No part of this material may *
15 * be copied or distributed, transmitted or transcribed, in *
16 * any form or by any means, electronic, mechanical, magnetic, *
17 * manual, or otherwise, or disclosed to third parties without *
18 * the express written permission of Oracle Corporation, *
19 * 500 Oracle Parkway, Redwood City, CA, 94065. *
20 * *
21 ******************************************************************
22
23 Name : pay_us_pdt_validate
24
25 Description : This package contains the procedure validate_business_rules,
26 which is used for user_defined validation. The procedure
27 is called from the PayMIX package.
28
29 Uses : hr_utility
30
31 Change List
32 -----------
33 Date Name Vers Bug No Description
34 ---- ---- ---- ------ -----------
35 11-MAR-96 RAMURTHY 1.0 345572 Created.
36
37 */
38
39 --
40 -- Procedure
41 -- validate_business_rules
42 --
43 -- Purpose
44 -- Carry out user-defined business rule validation on current batch line.
45 --
46 -- Arguments
47 -- p_batch_type Batch Type
48 -- p_process_mode Process Mode
49 -- p_batch_id Batch id
50 -- p_line_id Line id
51 -- p_period_start_date Start of period for this line
52 -- p_period_end_date End of period for this line
53 -- p_num_inp_values Number of iv's
54 -- p_line_status Line status
55 -- p_assignment_id Assignment
56 -- p_element_type_id Element Type id
57 -- p_hours_worked Hours
58 -- p_date_earned Date Earned
59 -- History
60 -- 25th March 1994 Andy Taylor Created.
61 -- Notes
62 -- This procedure has been defined with arguments required to do certain
63 -- edits. You may need to add more arguments if your business requires
64 -- extra validation rules.
65 -- Currently, there is commented out code to raise a duplicate entry
66 -- error, but you have you define the cursor (csr_duplicate_tc_entry)
67 -- that is is used.
68 --
69 PROCEDURE validate_business_rules ( p_batch_type IN VARCHAR2,
70 p_process_mode IN VARCHAR2,
71 p_num_warnings IN OUT NUMBER,
72 p_batch_id IN NUMBER,
73 p_line_id IN NUMBER,
74 p_period_start_date IN DATE,
75 p_period_end_date IN DATE,
76 p_num_inp_values IN NUMBER,
77 p_line_status IN OUT VARCHAR2,
78 p_assignment_id IN NUMBER,
79 p_element_type_id IN NUMBER,
80 p_hours_worked IN NUMBER,
81 p_date_earned IN DATE ) IS
82
83 -- l_duplicate_exists VARCHAR2(1) := 'N';
84 -- l_exception_message VARCHAR2(240);
85
86 BEGIN
87
88
89 -- OPEN csr_duplicate_tc_entry;
90 -- FETCH csr_duplicate_tc_entry INTO l_duplicate_exists;
91 -- CLOSE csr_duplicate_tc_entry;
92
93 -- hr_utility.trace('Duplicate Exists : '||l_duplicate_exists);
94
95 -- IF l_duplicate_exists = 'Y' THEN
96
97 -- This entry already exists. Raise an error.
98
99 -- hr_utility.set_message(801, 'PAY_13175_PDT_DUP_TIMECARD');
100 -- l_exception_message := hr_utility.get_message;
101
102 -- IF NVL(p_line_status,'X') != 'E' THEN
103 -- p_line_status := 'E';
104 -- END IF;
105
106 -- write_exception_details( p_batch_id,
107 -- p_process_mode,
108 -- p_line_id,
109 -- p_line_status,
110 -- 'E',
111 -- 'L',
112 -- p_num_warnings,
113 -- l_exception_message);
114 -- END IF;
115
116 return;
117 END validate_business_rules;
118
119 END pay_us_pdt_validate;