[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_AUTO_INVOICE
Source
1 PACKAGE BODY jg_zz_auto_invoice AS
2 /* $Header: jgzzraib.pls 120.8 2011/05/17 09:35:17 mkandula 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 FUNCTION put_error_message1 (p_app_short_name IN VARCHAR2
86 ,p_mssg_name IN VARCHAR2
87 ,p_interface_line_ref IN VARCHAR2
88 ,p_invalid_value IN VARCHAR2) RETURN BOOLEAN IS
89
90 message_text VARCHAR2(2000);
91 l_org_id NUMBER;
92
93
94 BEGIN
95 arp_standard.debug('-- Error for Interface Line Id: '|| p_interface_line_ref);
96
97 fnd_message.set_name (p_app_short_name
98 ,p_mssg_name);
99 message_text := fnd_message.get;
100 l_org_id := MO_GLOBAL.get_current_org_id;
101
102 INSERT INTO jl_autoinv_int_lines
103 (interface_line_ref,
104 message_text,
105 invalid_value,
106 org_id)
107 VALUES (p_interface_line_ref,
108 message_text,
109 p_invalid_value,
110 l_org_id);
111
112 IF SQL%NOTFOUND THEN
113 RAISE NO_DATA_FOUND;
114 END IF;
115
116 RETURN TRUE;
117
118 EXCEPTION
119 WHEN OTHERS THEN
120 arp_standard.debug('-- Return From Exception when others in '||
121 'put_error_message');
122 RETURN FALSE;
123
124 END put_error_message1;
125
126 /*----------------------------------------------------------------------------*
127 | FUNCTION |
128 | validate_gdff |
129 | |
130 | DESCRIPTION |
131 | |
132 | PARAMETERS |
133 | INPUT |
134 | p_request_id Number -- Concurrent Request_id |
135 | |
136 | RETURNS |
137 | 0 Number -- Validation Fails, if there is any |
138 | exceptional case which is handled |
139 | in WHEN OTHERS |
140 | 1 Number -- Validation Succeeds |
141 | |
142 *----------------------------------------------------------------------------*/
143 FUNCTION validate_gdff (p_request_id IN NUMBER) RETURN NUMBER IS
144
145 l_return_code NUMBER (1);
146 l_product_code VARCHAR2(2);
147 l_org_id NUMBER;
148
149 ------------------------------------------------------------
150 -- Main function body. --
151 ------------------------------------------------------------
152 BEGIN
153 arp_standard.debug('JG jg_zz_auto_invoice.validate_gdff()+');
154 ------------------------------------------------------------
155 -- Let's assume everything is OK --
156 ------------------------------------------------------------
157 l_return_code := 1;
158
159 -- l_product_code := FND_PROFILE.VALUE('JGZZ_PRODUCT_CODE');
160
161 l_org_id := arp_global.sysparam.org_id;
162 l_product_code := JG_ZZ_SHARED_PKG.GET_PRODUCT(l_org_id);
163 arp_standard.debug('JG Global Product Code : '||l_product_code);
164
165 IF l_product_code IS NULL THEN
166 NULL;
167 ELSIF l_product_code = 'JL' THEN
168 l_return_code := jl_zz_auto_invoice.validate_gdff(
169 p_request_id);
170 ELSIF l_product_code = 'JA' THEN
171 l_return_code := ja_zz_ar_auto_invoice.validate_gdff(
172 p_request_id);
173 -- commented for June 24 th release bug by shijain, uncomment later
174 ELSIF l_product_code = 'JE' THEN
175
176 arp_standard.debug('JG Calling JE API');
177 l_return_code := je_zz_auto_invoice.validate_gdff(p_request_id);
178
179 END IF;
180
181 arp_standard.debug('JG jg_zz_auto_invoice.validate_gdff()-');
182
183 RETURN l_return_code;
184
185 EXCEPTION
186 WHEN OTHERS THEN
187
188 arp_standard.debug('-- Return From Exception when others');
189 arp_standard.debug('-- Return Code: 0');
190 arp_standard.debug('jg_zz_auto_invoice.validate_gdff()-');
191
192 RETURN 0;
193
194 END validate_gdff;
195
196 END jg_zz_auto_invoice;