216: WHERE UPPER(name) = UPPER(p_nit_rec.nit_name);
217:
218: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
219:
220: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
221: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
222: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
223: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
224: l_message_text := FND_MESSAGE.GET;
217:
218: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
219:
220: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
221: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
222: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
223: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
224: l_message_text := FND_MESSAGE.GET;
225: Insert_Error_Rec(l_message_text);
218: FND_FILE.PUT_LINE(FND_FILE.log,'p_nit_rec.nit_name : '||p_nit_rec.nit_name);
219:
220: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
221: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
222: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
223: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
224: l_message_text := FND_MESSAGE.GET;
225: Insert_Error_Rec(l_message_text);
226: l_nit_valid := FALSE;
219:
220: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
221: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
222: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
223: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
224: l_message_text := FND_MESSAGE.GET;
225: Insert_Error_Rec(l_message_text);
226: l_nit_valid := FALSE;
227:
220: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_EXISTS');
221: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
222: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
223: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
224: l_message_text := FND_MESSAGE.GET;
225: Insert_Error_Rec(l_message_text);
226: l_nit_valid := FALSE;
227:
228: END IF;
237:
238: -- master NIT does not exist
239: -- validate NIT and insert new NIT record
240: IF jg_taxid_val_pkg.check_length('CO',14,p_nit_rec.nit) = 'FALSE' THEN
241: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_MAX_DIGITS');
242: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
243: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
244: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
245: l_message_text := FND_MESSAGE.GET;
238: -- master NIT does not exist
239: -- validate NIT and insert new NIT record
240: IF jg_taxid_val_pkg.check_length('CO',14,p_nit_rec.nit) = 'FALSE' THEN
241: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_MAX_DIGITS');
242: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
243: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
244: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
245: l_message_text := FND_MESSAGE.GET;
246: Insert_Error_Rec(l_message_text);
239: -- validate NIT and insert new NIT record
240: IF jg_taxid_val_pkg.check_length('CO',14,p_nit_rec.nit) = 'FALSE' THEN
241: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_MAX_DIGITS');
242: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
243: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
244: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
245: l_message_text := FND_MESSAGE.GET;
246: Insert_Error_Rec(l_message_text);
247: l_nit_valid := FALSE;
240: IF jg_taxid_val_pkg.check_length('CO',14,p_nit_rec.nit) = 'FALSE' THEN
241: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_MAX_DIGITS');
242: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
243: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
244: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
245: l_message_text := FND_MESSAGE.GET;
246: Insert_Error_Rec(l_message_text);
247: l_nit_valid := FALSE;
248: END IF; /*check_length*/
241: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_MAX_DIGITS');
242: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
243: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
244: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
245: l_message_text := FND_MESSAGE.GET;
246: Insert_Error_Rec(l_message_text);
247: l_nit_valid := FALSE;
248: END IF; /*check_length*/
249:
249:
250: IF p_nit_rec.nit IS NULL THEN
251: FND_FILE.PUT_LINE(FND_FILE.log,'NIT Null Check : p_nit_rec.nit : '||p_nit_rec.nit);
252:
253: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
254: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
255: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
256: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
257: l_message_text := FND_MESSAGE.GET;
250: IF p_nit_rec.nit IS NULL THEN
251: FND_FILE.PUT_LINE(FND_FILE.log,'NIT Null Check : p_nit_rec.nit : '||p_nit_rec.nit);
252:
253: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
254: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
255: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
256: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
257: l_message_text := FND_MESSAGE.GET;
258: Insert_Error_Rec(l_message_text);
251: FND_FILE.PUT_LINE(FND_FILE.log,'NIT Null Check : p_nit_rec.nit : '||p_nit_rec.nit);
252:
253: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
254: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
255: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
256: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
257: l_message_text := FND_MESSAGE.GET;
258: Insert_Error_Rec(l_message_text);
259: l_nit_valid := FALSE;
252:
253: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
254: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
255: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
256: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
257: l_message_text := FND_MESSAGE.GET;
258: Insert_Error_Rec(l_message_text);
259: l_nit_valid := FALSE;
260:
253: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
254: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
255: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
256: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
257: l_message_text := FND_MESSAGE.GET;
258: Insert_Error_Rec(l_message_text);
259: l_nit_valid := FALSE;
260:
261: ELSE
259: l_nit_valid := FALSE;
260:
261: ELSE
262: IF jg_taxid_val_pkg.check_numeric(p_nit_rec.nit) = 'FALSE' THEN
263: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
264: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
265: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
266: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
267: l_message_text := FND_MESSAGE.GET;
260:
261: ELSE
262: IF jg_taxid_val_pkg.check_numeric(p_nit_rec.nit) = 'FALSE' THEN
263: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
264: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
265: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
266: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
267: l_message_text := FND_MESSAGE.GET;
268:
261: ELSE
262: IF jg_taxid_val_pkg.check_numeric(p_nit_rec.nit) = 'FALSE' THEN
263: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
264: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
265: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
266: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
267: l_message_text := FND_MESSAGE.GET;
268:
269: Insert_Error_Rec(l_message_text);
262: IF jg_taxid_val_pkg.check_numeric(p_nit_rec.nit) = 'FALSE' THEN
263: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
264: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
265: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
266: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
267: l_message_text := FND_MESSAGE.GET;
268:
269: Insert_Error_Rec(l_message_text);
270: l_nit_valid := FALSE;
263: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
264: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
265: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
266: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
267: l_message_text := FND_MESSAGE.GET;
268:
269: Insert_Error_Rec(l_message_text);
270: l_nit_valid := FALSE;
271:
272: ELSE /* nit is numeric */
273: IF (p_nit_rec.verifying_digit IS NOT NULL) THEN
274: IF jg_taxid_val_pkg.check_algorithm(p_nit_rec.nit,'CO',
275: p_nit_rec.verifying_digit) = 'FALSE' THEN
276: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_INVALID');
277: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',
278: p_identifier_type,TRUE);
279: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
280: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
273: IF (p_nit_rec.verifying_digit IS NOT NULL) THEN
274: IF jg_taxid_val_pkg.check_algorithm(p_nit_rec.nit,'CO',
275: p_nit_rec.verifying_digit) = 'FALSE' THEN
276: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_INVALID');
277: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',
278: p_identifier_type,TRUE);
279: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
280: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
281: l_message_text := FND_MESSAGE.GET;
275: p_nit_rec.verifying_digit) = 'FALSE' THEN
276: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_INVALID');
277: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',
278: p_identifier_type,TRUE);
279: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
280: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
281: l_message_text := FND_MESSAGE.GET;
282: Insert_Error_Rec(l_message_text);
283: l_nit_valid := FALSE;
276: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_INVALID');
277: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',
278: p_identifier_type,TRUE);
279: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
280: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
281: l_message_text := FND_MESSAGE.GET;
282: Insert_Error_Rec(l_message_text);
283: l_nit_valid := FALSE;
284: END IF; /* validate_algorithm for verifying digit*/
277: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',
278: p_identifier_type,TRUE);
279: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
280: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
281: l_message_text := FND_MESSAGE.GET;
282: Insert_Error_Rec(l_message_text);
283: l_nit_valid := FALSE;
284: END IF; /* validate_algorithm for verifying digit*/
285: END IF; /* v_digit not NULL */
287: END IF; /* nit is NULL */
288:
289: IF (p_nit_rec.nit_type = 'LEGAL_ENTITY' AND
290: p_nit_rec.verifying_digit IS NULL) THEN
291: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
293: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
294: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
295: l_message_text := FND_MESSAGE.GET;
288:
289: IF (p_nit_rec.nit_type = 'LEGAL_ENTITY' AND
290: p_nit_rec.verifying_digit IS NULL) THEN
291: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
293: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
294: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
295: l_message_text := FND_MESSAGE.GET;
296: Insert_Error_Rec(l_message_text);
289: IF (p_nit_rec.nit_type = 'LEGAL_ENTITY' AND
290: p_nit_rec.verifying_digit IS NULL) THEN
291: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
293: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
294: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
295: l_message_text := FND_MESSAGE.GET;
296: Insert_Error_Rec(l_message_text);
297: l_nit_valid := FALSE;
290: p_nit_rec.verifying_digit IS NULL) THEN
291: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
293: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
294: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
295: l_message_text := FND_MESSAGE.GET;
296: Insert_Error_Rec(l_message_text);
297: l_nit_valid := FALSE;
298: END IF;
291: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_VER_DIGIT_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
293: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
294: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
295: l_message_text := FND_MESSAGE.GET;
296: Insert_Error_Rec(l_message_text);
297: l_nit_valid := FALSE;
298: END IF;
299:
298: END IF;
299:
300: IF (p_nit_rec.nit_type IS NULL) OR (p_nit_rec.nit_type NOT IN
301: ('LEGAL_ENTITY','INDIVIDUAL','FOREIGN_ENTITY')) THEN
302: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_TYPE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
299:
300: IF (p_nit_rec.nit_type IS NULL) OR (p_nit_rec.nit_type NOT IN
301: ('LEGAL_ENTITY','INDIVIDUAL','FOREIGN_ENTITY')) THEN
302: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_TYPE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
307: l_message_text := FND_MESSAGE.GET;
300: IF (p_nit_rec.nit_type IS NULL) OR (p_nit_rec.nit_type NOT IN
301: ('LEGAL_ENTITY','INDIVIDUAL','FOREIGN_ENTITY')) THEN
302: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_TYPE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
307: l_message_text := FND_MESSAGE.GET;
308: Insert_Error_Rec(l_message_text);
301: ('LEGAL_ENTITY','INDIVIDUAL','FOREIGN_ENTITY')) THEN
302: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_TYPE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
307: l_message_text := FND_MESSAGE.GET;
308: Insert_Error_Rec(l_message_text);
309: l_nit_valid := FALSE;
302: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_TYPE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
307: l_message_text := FND_MESSAGE.GET;
308: Insert_Error_Rec(l_message_text);
309: l_nit_valid := FALSE;
310: END IF;
303: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
304: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
305: FND_MESSAGE.SET_TOKEN('TAXID_TYPE', 'LEGAL_ENTITY, INDIVIDUAL and FOREIGN_ENTITY');
306: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
307: l_message_text := FND_MESSAGE.GET;
308: Insert_Error_Rec(l_message_text);
309: l_nit_valid := FALSE;
310: END IF;
311:
309: l_nit_valid := FALSE;
310: END IF;
311:
312: IF p_nit_rec.nit_name IS NULL THEN
313: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_REQUIRED');
314: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
315: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
316: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
317: l_message_text := FND_MESSAGE.GET;
310: END IF;
311:
312: IF p_nit_rec.nit_name IS NULL THEN
313: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_REQUIRED');
314: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
315: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
316: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
317: l_message_text := FND_MESSAGE.GET;
318: Insert_Error_Rec(l_message_text);
311:
312: IF p_nit_rec.nit_name IS NULL THEN
313: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_REQUIRED');
314: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
315: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
316: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
317: l_message_text := FND_MESSAGE.GET;
318: Insert_Error_Rec(l_message_text);
319: l_nit_valid := FALSE;
312: IF p_nit_rec.nit_name IS NULL THEN
313: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_REQUIRED');
314: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
315: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
316: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
317: l_message_text := FND_MESSAGE.GET;
318: Insert_Error_Rec(l_message_text);
319: l_nit_valid := FALSE;
320: END IF;
313: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_NAME_REQUIRED');
314: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
315: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
316: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
317: l_message_text := FND_MESSAGE.GET;
318: Insert_Error_Rec(l_message_text);
319: l_nit_valid := FALSE;
320: END IF;
321:
356: (UPPER(p_nit_rec.nit_name) <> UPPER(l_master_nit_rec.nit_name)) OR
357: (UPPER(p_nit_rec.nit_type) <> UPPER(l_master_nit_rec.nit_type)) OR
358: (p_nit_rec.verifying_digit <> l_master_nit_rec.verifying_digit) THEN
359:
360: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
361: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
362: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
363: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
364: l_message_text := FND_MESSAGE.GET;
357: (UPPER(p_nit_rec.nit_type) <> UPPER(l_master_nit_rec.nit_type)) OR
358: (p_nit_rec.verifying_digit <> l_master_nit_rec.verifying_digit) THEN
359:
360: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
361: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
362: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
363: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
364: l_message_text := FND_MESSAGE.GET;
365: Insert_Error_Rec(l_message_text);
358: (p_nit_rec.verifying_digit <> l_master_nit_rec.verifying_digit) THEN
359:
360: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
361: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
362: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
363: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
364: l_message_text := FND_MESSAGE.GET;
365: Insert_Error_Rec(l_message_text);
366: l_nit_valid := FALSE;
359:
360: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
361: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
362: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
363: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
364: l_message_text := FND_MESSAGE.GET;
365: Insert_Error_Rec(l_message_text);
366: l_nit_valid := FALSE;
367: END IF;
360: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_MASTER_NIT_MISMATCH');
361: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',p_identifier_type,TRUE);
362: FND_MESSAGE.SET_TOKEN('IDENTIFIER',g_gl_je_rec.identifier);
363: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
364: l_message_text := FND_MESSAGE.GET;
365: Insert_Error_Rec(l_message_text);
366: l_nit_valid := FALSE;
367: END IF;
368: END IF;
416: -- summary because of which the AR, AP or PO routine couldn't process
417: -- it and passed the record on to the GL routine
418:
419: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
420: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NO_IMPORT_REF');
421: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
422: l_message_text := FND_MESSAGE.GET;
423: Insert_Error_Rec(l_message_text);
424:
417: -- it and passed the record on to the GL routine
418:
419: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
420: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NO_IMPORT_REF');
421: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
422: l_message_text := FND_MESSAGE.GET;
423: Insert_Error_Rec(l_message_text);
424:
425: ELSIF g_nit_rec.nit_id IS NULL THEN /* Third party # is not valid */
418:
419: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
420: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NO_IMPORT_REF');
421: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
422: l_message_text := FND_MESSAGE.GET;
423: Insert_Error_Rec(l_message_text);
424:
425: ELSIF g_nit_rec.nit_id IS NULL THEN /* Third party # is not valid */
426:
424:
425: ELSIF g_nit_rec.nit_id IS NULL THEN /* Third party # is not valid */
426:
427: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
428: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
429: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
430: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
431: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
432: l_message_text := FND_MESSAGE.GET;
425: ELSIF g_nit_rec.nit_id IS NULL THEN /* Third party # is not valid */
426:
427: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
428: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
429: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
430: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
431: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
432: l_message_text := FND_MESSAGE.GET;
433: Insert_Error_Rec(l_message_text);
426:
427: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
428: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
429: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
430: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
431: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
432: l_message_text := FND_MESSAGE.GET;
433: Insert_Error_Rec(l_message_text);
434:
427: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
428: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
429: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
430: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
431: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
432: l_message_text := FND_MESSAGE.GET;
433: Insert_Error_Rec(l_message_text);
434:
435: ELSIF p_journal_rec.ext_nit = '0' THEN
428: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_INVALID_NIT');
429: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
430: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
431: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
432: l_message_text := FND_MESSAGE.GET;
433: Insert_Error_Rec(l_message_text);
434:
435: ELSIF p_journal_rec.ext_nit = '0' THEN
436: -- Not calling NIT_VALIDATION function because the only nit info
437: -- entered by the user in Enter Journals form is NIT# hence it
438: -- isn't necessary to do exhaustive NIT validation
439:
440: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
441: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
442: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
443: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
444: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
445: l_message_text := FND_MESSAGE.GET;
438: -- isn't necessary to do exhaustive NIT validation
439:
440: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
441: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
442: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
443: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
444: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
445: l_message_text := FND_MESSAGE.GET;
446: Insert_Error_Rec(l_message_text);
439:
440: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
441: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
442: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
443: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
444: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
445: l_message_text := FND_MESSAGE.GET;
446: Insert_Error_Rec(l_message_text);
447:
440: l_add_text := 'JL_CO_GL_0_NIT_TRX_CREATED';
441: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
442: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
443: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
444: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
445: l_message_text := FND_MESSAGE.GET;
446: Insert_Error_Rec(l_message_text);
447:
448: END IF;
441: FND_MESSAGE.SET_NAME('JL','JL_CO_GL_NIT_REQUIRED');
442: FND_MESSAGE.SET_TOKEN('IDENTIFIER_TYPE',NULL);
443: FND_MESSAGE.SET_TOKEN('IDENTIFIER',NULL);
444: FND_MESSAGE.SET_TOKEN('ADD_TEXT',l_add_text,TRUE);
445: l_message_text := FND_MESSAGE.GET;
446: Insert_Error_Rec(l_message_text);
447:
448: END IF;
449:
2413: IF l_request_id = 0 THEN
2414: FND_FILE.PUT_LINE(FND_FILE.log,
2415: 'CONC-REQUEST SUBMISSION FAILED');
2416: ELSE
2417: FND_MESSAGE.SET_NAME('SQLGL','GL_REQUEST_SUBMITTED');
2418: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id,FALSE);
2419: l_message_text := FND_MESSAGE.GET;
2420: FND_FILE.PUT_LINE(FND_FILE.log,
2421: 'Submitted Third Party Balances Error Report. '
2414: FND_FILE.PUT_LINE(FND_FILE.log,
2415: 'CONC-REQUEST SUBMISSION FAILED');
2416: ELSE
2417: FND_MESSAGE.SET_NAME('SQLGL','GL_REQUEST_SUBMITTED');
2418: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id,FALSE);
2419: l_message_text := FND_MESSAGE.GET;
2420: FND_FILE.PUT_LINE(FND_FILE.log,
2421: 'Submitted Third Party Balances Error Report. '
2422: || l_message_text);
2415: 'CONC-REQUEST SUBMISSION FAILED');
2416: ELSE
2417: FND_MESSAGE.SET_NAME('SQLGL','GL_REQUEST_SUBMITTED');
2418: FND_MESSAGE.SET_TOKEN('REQUEST_ID',l_request_id,FALSE);
2419: l_message_text := FND_MESSAGE.GET;
2420: FND_FILE.PUT_LINE(FND_FILE.log,
2421: 'Submitted Third Party Balances Error Report. '
2422: || l_message_text);
2423: END IF;