PACKAGE BODY: APPS.MRP_FIELDRANGE_PUB

Source

1 PACKAGE BODY MRP_FieldRange_PUB AS
2 /* $Header: MRPPFDRB.pls 115.0 99/07/16 12:32:22 porting ship $ */
3 
4 Procedure Validate(arg_low_field  IN VARCHAR2,
5                    arg_high_field IN VARCHAR2,
6                    arg_field_type      IN      NUMBER,
7                    arg_error_msg       IN OUT  VARCHAR2) IS
8 --  Constant declarations
9     TYPE_NUMBER             CONSTANT NUMBER := 1;
10     TYPE_CHAR               CONSTANT NUMBER := 2;
11     TYPE_DATE               CONSTANT NUMBER := 3;
12 
13     string_buffer       CHAR(1);
14     invalid_field       EXCEPTION;
15 
16 BEGIN
17 
18     arg_error_msg := NULL;
19 
20     if arg_field_type = TYPE_NUMBER
21     then
22     SELECT 'X'
23     INTO   string_buffer
24         FROM   dual
25         WHERE  TO_NUMBER(arg_low_field) <= TO_NUMBER(arg_high_field);
26     elsif arg_field_type = TYPE_CHAR
27     then
28         SELECT 'X'
29     INTO   string_buffer
30         FROM   dual
31         WHERE  arg_low_field <= arg_high_field;
32     else
33         SELECT 'X'
34     INTO   string_buffer
35         FROM   dual
36         WHERE TO_DATE(arg_low_field,'DD-MON-RR' )
37           <= TO_DATE(arg_high_field, 'DD-MON-RR');
38     end if;
39 
40 EXCEPTION
41     WHEN NO_DATA_FOUND THEN
42     arg_error_msg := 'MFG_GREATER_OR_EQUAL';
43 END Validate;
44 
45 END;