PACKAGE BODY: APPS.OKL_XMLGEN_PVT

Source

1 PACKAGE BODY OKL_XMLGEN_PVT AS
2 /* $Header: OKLXMLGB.pls 120.0 2006/05/26 15:07:23 pagarg noship $ */
3 
4     G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_xmlgen_pvt';
5     G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6     G_IS_DEBUG_EXCEPTION_ON BOOLEAN;
7     G_IS_DEBUG_ERROR_ON BOOLEAN;
8     G_IS_DEBUG_PROCEDURE_ON BOOLEAN;
9 
10     FUNCTION generate_xmldocument(p_document_id IN NUMBER)
11     RETURN CLOB
12     IS
13       CURSOR c_tp IS
14       SELECT tp.tp_header_id, tp.party_site_id, tp.party_type
15         FROM ecx_tp_headers tp
16            , hz_parties p
17        WHERE tp.party_id = p.party_id
18          AND p.party_name = 'SuperTrump';
19 
20       CURSOR c_tt (b_transaction_number NUMBER) IS
21       SELECT t.ext_subtype, m.map_code, o.object_type
22         FROM ecx_tp_details_v t
23            , ecx_mappings m
24            , ecx_objects o
25            , okl_stream_interfaces si
26        WHERE t.transaction_type = 'OKL_ST'
27          AND t.transaction_subtype = si.deal_type
28          AND m.map_id = t.map_id
29          AND o.map_id = m.map_id
30          AND o.object_id = m.object_id_target
31          AND si.transaction_number = b_transaction_number;
32 
33       rec  c_tp%ROWTYPE;
34       rec2 c_tt%ROWTYPE;
35 
36       l_xmldoc clob;
37 
38       l_api_name CONSTANT VARCHAR2(30) := 'generate_xmldocument';
39       l_module VARCHAR2(255) := G_MODULE||'.'||l_api_name||'.'||p_document_id;
40 
41     BEGIN
42       IF(G_IS_DEBUG_PROCEDURE_ON) THEN
43         OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, l_module, p_document_id||': begin okl_xmlgen_pvt.generate_xmldocument');
44       END IF;
45 
46       OPEN c_tp;
47       FETCH c_tp INTO rec;
48       CLOSE c_tp;
49 
50       OPEN c_tt(p_document_id);
51       FETCH c_tt INTO rec2;
52       CLOSE c_tt;
53 
54       IF(G_IS_DEBUG_PROCEDURE_ON) THEN
55         OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, l_module, p_document_id||': Transaction Subtype = '||rec2.ext_subtype);
56       END IF;
57 
58       IF(G_IS_DEBUG_PROCEDURE_ON) THEN
59         OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, l_module, p_document_id||': Map Code = '||rec2.map_code);
60       END IF;
61 
62       ecx_outbound.process_outbound_documents
63       (i_message_standard    => 'W3C',
64        i_transaction_type    => 'OKL_ST',
65        i_transaction_subtype => rec2.ext_subtype, -- ex. LEASE_BOOKING
66        i_tp_id               => rec.tp_header_id,
67        i_tp_site_id          => rec.party_site_id,
68        i_tp_type             => rec.party_type,
69        i_document_id         => p_document_id,
70        i_map_code            => rec2.map_code, --ex. 'OKL_STLEASEBOOKING_W3C10_OUT',
71        i_xmldoc              => l_xmldoc,
72        i_message_type        => rec2.object_type -- 'XML'
73       );
74 
75       IF(G_IS_DEBUG_PROCEDURE_ON) THEN
76         OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, l_module, p_document_id||': end okl_xmlgen_pvt.generate_xmldocument');
77       END IF;
78 
79       RETURN l_xmldoc;
80     END generate_xmldocument;
81 
82 END OKL_XMLGEN_PVT;