PACKAGE BODY: APPS.FUN_UPDATE_UPGRADED_TRX_PKG

Source

1 PACKAGE BODY FUN_UPDATE_UPGRADED_TRX_PKG AS
2 /* $Header: funupgrb.pls 120.0 2006/06/16 11:13:10 cjain noship $ */
3 
4 PROCEDURE UPDATE_UPGRADED_TRX (err_buf              OUT NOCOPY VARCHAR2,
5                                ret_code             OUT NOCOPY VARCHAR2,
6                                p_org_id             IN         NUMBER,
7                                p_legal_entity_id    IN         NUMBER) IS
8 BEGIN
9 
10          FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameters');
11          FND_FILE.PUT_LINE(FND_FILE.LOG,'----------');
12          FND_FILE.PUT_LINE(FND_FILE.LOG,'Organization Id: ' || p_org_id );
13          FND_FILE.PUT_LINE(FND_FILE.LOG,'Legal Entity Id: ' || p_legal_entity_id);
14          update fun_trx_batches
15          set from_le_id = p_legal_entity_id
16          where from_le_id = -1
17          and initiator_id = p_org_id;
18          FND_FILE.PUT_LINE(FND_FILE.LOG, 'Number of Initiator Batches updated: '|| SQL%ROWCOUNT);
19 
20          update fun_trx_headers
21          set to_le_id = p_legal_entity_id
22          where to_le_id  = -1
23          and recipient_id = p_org_id;
24          FND_FILE.PUT_LINE(FND_FILE.LOG, 'Number of Recipient Transactions updated: '|| SQL%ROWCOUNT);
25 
26          COMMIT;
27 EXCEPTION
28   WHEN OTHERS THEN
29     FND_FILE.PUT_LINE(FND_FILE.LOG,'Updation Failed');
30     RAISE;
31 END UPDATE_UPGRADED_TRX;
32 
33 END FUN_UPDATE_UPGRADED_TRX_PKG;