PACKAGE BODY: APPS.JG_ZZ_INVOICE_CREATE

Source

1 PACKAGE BODY jg_zz_invoice_create AS
2  /* $Header: jgzzricb.pls 115.3 2004/02/06 19:36:08 appradha ship $ */
3 
4 /*------------------------------------------------------------------*
5  |   PUBLIC FUNCTIONS/PROCEDURES  				    |
6  *------------------------------------------------------------------*/
7 
8 FUNCTION put_error_message (p_app_short_name    IN VARCHAR2
9                            ,p_msg_name  IN VARCHAR2
10                            ,p_header_id IN NUMBER
11                            ,p_line_id IN NUMBER
12                            ,p_invalid_value     IN VARCHAR2) RETURN BOOLEAN IS
13 
14 message_text  VARCHAR2(2000);
15 
16 BEGIN
17   arp_standard.debug('-- Error for Interface Line Id: '|| to_char(p_line_id));
18 
19   fnd_message.set_name (p_app_short_name
20                          ,p_msg_name);
21   message_text := fnd_message.get;
22 
23   INSERT INTO ar_trx_errors_gt
24             (trx_header_id,
25              trx_line_id,
26              error_message,
27              invalid_value)
28   VALUES     (p_header_id,
29               p_line_id,
30               message_text,
31               p_invalid_value);
32 
33   IF SQL%NOTFOUND THEN
34        RAISE NO_DATA_FOUND;
35   END IF;
36 
37   RETURN TRUE;
38 
39   EXCEPTION
40     WHEN OTHERS THEN
41       arp_standard.debug('-- Return From Exception when others in '||
42                          'put_error_message');
43       RETURN FALSE;
44 
45 END put_error_message;
46 
47 
48 FUNCTION put_error_message (
49            p_header_id IN NUMBER
50           ,p_line_id IN NUMBER
51           ,p_message_text      IN VARCHAR2
52           ,p_invalid_value     IN VARCHAR2) RETURN BOOLEAN IS
53 
54 BEGIN
55   INSERT
56     INTO ar_trx_errors_gt
57         (trx_header_id
58         ,trx_line_id
59        , error_message
60        , invalid_value)
61   VALUES
62         (p_header_id
63        , p_line_id
64        , p_message_text
65        , p_invalid_value);
66 
67   RETURN TRUE;
68 
69   EXCEPTION
70   WHEN OTHERS THEN
71     arp_standard.debug('-- Cannot insert error messages '
72                     || 'into ar_trx_errors_gt.');
73     RETURN FALSE;
74 END;
75 
76 --
77 --  FUNCTION
78 --     validate_gdff
79 --
80 --  DESCRIPTION
81 --
82 --  PARAMETERS
83 --    INPUT
84 --       p_request_id  Number -- Concurrent Request_id
85 --
86 --  RETURNS
87 --       0       Number -- Validation Fails, if there is any exceptional
88 --                         case which is handled in WHEN OTHERS
89 --       1       Number -- Validation Succeeds
90 --
91 
92   FUNCTION validate_gdff (p_request_id  IN NUMBER) RETURN NUMBER IS
93 
94     l_return_code    NUMBER (1) := 1;
95     l_product_code   VARCHAR2(2);
96 
97   BEGIN
98     arp_standard.debug('jg_zz_invoice_create.validate_gdff()+');
99 
100     l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
101 
102     IF l_product_code IS NULL THEN
103        arp_standard.debug('Product Profile is Empty');
104     ELSIF  l_product_code = 'JL' THEN
105       l_return_code := jl_zz_invoice_create.validate_gdf_inv_api(p_request_id);
106     ELSIF l_product_code = 'JA' THEN
107       l_return_code := ja_zz_invoice_create.validate_gdff(p_request_id);
108     ELSIF l_product_code = 'JE' THEN
109       l_return_code := je_zz_invoice_create.validate_gdff(p_request_id);
110     END IF;
111 
112     arp_standard.debug('jg_zz_auto_invoice.validate_gdff()-');
113 
114     RETURN l_return_code;
115 
116   EXCEPTION
117     WHEN OTHERS THEN
118 
119       arp_standard.debug('-- Return From Exception when others');
120       arp_standard.debug('-- Return Code: 0');
121       arp_standard.debug('jg_zz_auto_invoice.validate_gdff()-');
122 
123       RETURN 0;
124 
125   END validate_gdff;
126 
127 END jg_zz_invoice_create;