1: PACKAGE BODY je_gr_trnovr_rules_upgrade AS
2: /* $Header: jegrupgb.pls 120.2 2006/11/03 08:24:43 anvijaya ship $ */
3:
4: PROCEDURE upgrade_main (errbuf OUT NOCOPY varchar2,
5: retcode OUT NOCOPY number) IS
39: IF l_return_status IS NULL THEN
40:
41: IF (l_legal_entity_id IS NOT NULL) THEN
42:
43: UPDATE je_gr_trnovr_rules
44: SET legal_entity_id = l_legal_entity_id
45: WHERE legal_entity_id IS NULL;
46:
47: l_message := 'Updated '||SQL%ROWCOUNT||' rows in table JE_GR_TRNOVR_RULES with legal entity id: '||l_legal_entity_id;
43: UPDATE je_gr_trnovr_rules
44: SET legal_entity_id = l_legal_entity_id
45: WHERE legal_entity_id IS NULL;
46:
47: l_message := 'Updated '||SQL%ROWCOUNT||' rows in table JE_GR_TRNOVR_RULES with legal entity id: '||l_legal_entity_id;
48: fnd_file.put_line(fnd_file.log,l_message);
49:
50: ELSE
51: -- IF legal entity id is null.
48: fnd_file.put_line(fnd_file.log,l_message);
49:
50: ELSE
51: -- IF legal entity id is null.
52: l_message := 'Unable to Update Legal Entities for the table je_gr_trnovr_rules
53: because no Legal Entity was found.';
54: fnd_file.put_line(fnd_file.log,l_message);
55:
56: ROLLBACK;
83: fnd_file.put_line(fnd_file.log, l_message);
84:
85: END upgrade_main;
86:
87: END je_gr_trnovr_rules_upgrade;
88: