[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_AUTO_INVOICE
Source
1 PACKAGE BODY jg_zz_auto_invoice AS
2 /* $Header: jgzzraib.pls 120.5.12010000.1 2008/07/28 07:57:39 appldev ship $ */
3
4 /*----------------------------------------------------------------------------*
5 | PUBLIC FUNCTIONS/PROCEDURES |
6 *----------------------------------------------------------------------------*/
7
8 FUNCTION put_error_message (p_app_short_name IN VARCHAR2
9 ,p_mssg_name IN VARCHAR2
10 ,p_interface_line_id IN VARCHAR2
11 ,p_invalid_value IN VARCHAR2) RETURN BOOLEAN IS
12
13 message_text VARCHAR2(2000);
14 l_org_id NUMBER;
15
16 BEGIN
17 arp_standard.debug('-- Error for Interface Line Id: '|| p_interface_line_id);
18
19 fnd_message.set_name (p_app_short_name
20 ,p_mssg_name);
21 message_text := fnd_message.get;
22 l_org_id := MO_GLOBAL.get_current_org_id;
23
24 INSERT INTO ra_interface_errors
25 (interface_line_id,
26 message_text,
27 org_id,
28 invalid_value)
29 VALUES (p_interface_line_id,
30 message_text,
31 l_org_id,
32 p_invalid_value);
33
34 IF SQL%NOTFOUND THEN
35 RAISE NO_DATA_FOUND;
36 END IF;
37
38 RETURN TRUE;
39
40 EXCEPTION
41 WHEN OTHERS THEN
42 arp_standard.debug('-- Return From Exception when others in '||
43 'put_error_message');
44 RETURN FALSE;
45
46 END put_error_message;
47
48 FUNCTION put_error_message (
49 p_interface_line_id IN NUMBER
50 ,p_message_text IN VARCHAR2
51 ,p_invalid_value IN VARCHAR2) RETURN BOOLEAN IS
52
53 l_interface_line_id NUMBER(15) ;
54 l_message_text VARCHAR2(240) ;
55 l_invalid_value VARCHAR2(240) ;
56 l_org_id NUMBER;
57 BEGIN
58
59 l_interface_line_id := p_interface_line_id;
60 l_message_text := p_message_text;
61 l_invalid_value := p_invalid_value;
62
63 l_org_id := MO_GLOBAL.get_current_org_id;
64 INSERT
65 INTO ra_interface_errors
66 (interface_line_id
67 , message_text
68 , org_id
69 , invalid_value)
70 VALUES
71 (l_interface_line_id
72 , l_message_text
73 , l_org_id
74 , l_invalid_value);
75
76 RETURN TRUE;
77
78 EXCEPTION
79 WHEN OTHERS THEN
80 arp_standard.debug('-- Cannot insert error messages '
81 || 'into ra_interface_errors.');
82 RETURN FALSE;
83 END;
84
85 /*----------------------------------------------------------------------------*
86 | FUNCTION |
87 | validate_gdff |
88 | |
89 | DESCRIPTION |
90 | |
91 | PARAMETERS |
92 | INPUT |
93 | p_request_id Number -- Concurrent Request_id |
94 | |
95 | RETURNS |
96 | 0 Number -- Validation Fails, if there is any |
97 | exceptional case which is handled |
98 | in WHEN OTHERS |
99 | 1 Number -- Validation Succeeds |
100 | |
101 *----------------------------------------------------------------------------*/
102 FUNCTION validate_gdff (p_request_id IN NUMBER) RETURN NUMBER IS
103
104 l_return_code NUMBER (1);
105 l_product_code VARCHAR2(2);
106
107 ------------------------------------------------------------
108 -- Main function body. --
109 ------------------------------------------------------------
110 BEGIN
111 arp_standard.debug('jg_zz_auto_invoice.validate_gdff()+');
112 ------------------------------------------------------------
113 -- Let's assume everything is OK --
114 ------------------------------------------------------------
115 l_return_code := 1;
116
117 l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
118
119 IF l_product_code IS NULL THEN
120 NULL;
121 ELSIF l_product_code = 'JL' THEN
122 l_return_code := jl_zz_auto_invoice.validate_gdff(
123 p_request_id);
124 ELSIF l_product_code = 'JA' THEN
125 l_return_code := ja_zz_ar_auto_invoice.validate_gdff(
126 p_request_id);
127 /* commented for June 24 th release bug by shijain, uncomment later
128 ELSIF l_product_code = 'JE' THEN
129 l_return_code := je_zz_auto_invoice.validate_gdff(
130 p_request_id);
131 */
132 END IF;
133
134 arp_standard.debug('jg_zz_auto_invoice.validate_gdff()-');
135
136 RETURN l_return_code;
137
138 EXCEPTION
139 WHEN OTHERS THEN
140
141 arp_standard.debug('-- Return From Exception when others');
142 arp_standard.debug('-- Return Code: 0');
143 arp_standard.debug('jg_zz_auto_invoice.validate_gdff()-');
144
145 RETURN 0;
146
147 END validate_gdff;
148
149 END jg_zz_auto_invoice;