PACKAGE BODY: APPS.PON_OPEN_INTERFACE_PUB

Source

1 PACKAGE BODY pon_open_interface_pub as
2 /* $Header: PON_OPEN_INTERFACE_PUB.plb 120.2.12020000.4 2013/02/22 05:14:04 irasoolm noship $ */
3 
4 PROCEDURE create_negotiations(
5                               EFFBUF           OUT NOCOPY VARCHAR2,
6                               RETCODE          OUT NOCOPY VARCHAR2,
7                               p_group_batch_id  IN NUMBER
8                               )
9 AS
10 neg_return_status VARCHAR2(1);
11 l_msg_count NUMBER;
12 l_msg_data VARCHAR2(2000);
13 dummy1 VARCHAR2(1);
14 l_msg VARCHAR2 (2000);
15 BEGIN
16 	print_log('create_negotiations');
17 	print_log('Parameters');
18 -- Standard Start of API savepoint
19    --SAVEPOINT  create_negotiation_save_point;
20 
21    FND_MSG_PUB.initialize;
22 
23     BEGIN
24         SELECT 1
25         INTO dummy1
26         FROM pon_auction_headers_Interface WHERE  interface_group_id = p_group_batch_id
27         AND PROCESSING_STATUS_CODE = 'PENDING'
28         AND ROWNUM < 2;
29     EXCEPTION
30     WHEN No_Data_Found THEN
31         print_Log('No row found in pon_auction_headers_Interface table for the given group_batch_id' );
32         FND_MESSAGE.SET_NAME('PON','PON_IMPORT_INV_GRPBATCHID');
33         FND_MSG_PUB.ADD;
34         RETCODE := '2';
35         RETURN;
36     END;
37 
38     BEGIN
39       pon_open_interface_pvt.create_negotiations(
40                                                 p_group_batch_id,
41 					                                      neg_return_status,
42                                                 l_msg_count,
43                                                 l_msg_data);
44     EXCEPTION
45     WHEN OTHERS THEN
46       print_log('Exception in create_negotiations');
47       neg_return_status := 'E';
48     END;
49 
50     IF (neg_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
51       RETCODE := '2';
52       FOR i IN 1..FND_MSG_PUB.COUNT_MSG LOOP
53         l_msg := FND_MSG_PUB.get
54                   ( p_msg_index => i,
55                     p_encoded => FND_API.G_FALSE
56                   );
57 
58         FND_FILE.put_line(FND_FILE.LOG, l_msg);
59       END LOOP;
60     ELSE
61       RETCODE := '0';
62     END IF;
63 
64 END create_negotiations;
65 
66 -----------------------------------------------------------------------
67 --Start of Comments
68 --Name:  print_log
69 --Description  : Helper procedure for logging
70 --Pre-reqs:
71 --Parameters:
72 --IN:  p_message
73 --OUT:
74 --Returns:
75 --Notes:
76 --Testing:
77 --End of Comments
78 ------------------------------------------------------------------------
79 PROCEDURE print_log
80   (
81     p_message IN VARCHAR2 )
82 IS
83 
84 BEGIN
85   IF(g_fnd_debug                = 'Y') THEN
86     IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
87       FND_LOG.string(log_level  => FND_LOG.level_statement, module => g_module_prefix, MESSAGE => p_message);
88     END IF;
89   END IF;
90 END print_log;
91 
92 END PON_OPEN_INTERFACE_PUB;