[Home] [Help]
PACKAGE BODY: APPS.OKC_WORD_SYNC_HOOK
Source
1 PACKAGE BODY OKC_WORD_SYNC_HOOK AS
2 /* $Header: OKCWDHKB.pls 120.0.12020000.2 2012/07/16 16:22:29 harchand noship $ */
3
4 /* Global constants*/
5 g_pkg_name CONSTANT VARCHAR2 (200) := 'OKC_WORD_SYNC_HOOK';
6 g_app_name CONSTANT VARCHAR2 (3) := okc_api.g_app_name;
7 g_module CONSTANT VARCHAR2 (250)
8 := 'OKC.plsql.' || g_pkg_name || '.';
9 g_false CONSTANT VARCHAR2 (1) := fnd_api.g_false;
10 g_true CONSTANT VARCHAR2 (1) := fnd_api.g_true;
11 g_okc CONSTANT VARCHAR2 (3) := 'OKC';
12 g_ret_sts_success CONSTANT VARCHAR2 (1) := fnd_api.g_ret_sts_success;
13 g_ret_sts_error CONSTANT VARCHAR2 (1) := fnd_api.g_ret_sts_error;
14 g_ret_sts_unexp_error CONSTANT VARCHAR2 (1)
15 := fnd_api.g_ret_sts_unexp_error;
16 g_unexpected_error CONSTANT VARCHAR2 (200) := 'OKC_UNEXPECTED_ERROR';
17 g_sqlerrm_token CONSTANT VARCHAR2 (200) := 'ERROR_MESSAGE';
18 g_sqlcode_token CONSTANT VARCHAR2 (200) := 'ERROR_CODE';
19
20
21 G_DBG_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
22 G_PROC_LEVEL NUMBER := FND_LOG.LEVEL_PROCEDURE;
23 G_EXCP_LEVEL NUMBER := FND_LOG.LEVEL_EXCEPTION;
24
25
26
27
28 /**=============================================================================
29 -- Created by serukull
30 Procedure : download_contract_ext
31 Purpose : The Contract document is available in Word 2003 XML (Word ML) format
32 to the procedure. So any customizations to the document can be made
33 in this procedure before the document gets downloaded to the desktop.
34 Examples Include: Hiding the section titles.
35 Hiding clause titles.
36 Customization of Header and Footer elemetns.
37 Other formattings.
38
39 Input Parameters:
40 ==========================
41 p_doc_type : Business Document Type
42 p_doc_id : Business Document Id
43 p_init_msg_list : Message Stack initialization
44
45 In Out Parameters:
46 ===========================
47 x_contract_xml : Contract document in Word 2003 XML format
48
49 Out Parameters :
50 ===========================
51 x_return_status : Return Status
52 'S' --> Success
53 'E' --> Error
54 'U' --> Unexpected Error
55 x_msg_count : Message Count
56 x_msg_data : Message Data (that can be shown in the UI in case of any error)
57
58 ===============================================================================*/
59 PROCEDURE DOWNLOAD_CONTRACT_EXT(
60 p_doc_type IN VARCHAR2,
61 p_doc_id IN NUMBER,
62 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
63 x_contract_xml IN OUT NOCOPY CLOB,
64 x_return_status OUT NOCOPY VARCHAR2,
65 x_msg_count OUT NOCOPY NUMBER,
66 x_msg_data OUT NOCOPY VARCHAR2
67 )
68 IS
69 l_api_name VARCHAR2(240) := 'DOWNLOAD_CONTRACT_EXT';
70
71 BEGIN
72
73 -- Initialize the return status to 'S'
74 x_return_status := g_ret_sts_success;
75
76 /* Comment this line*/
77 RETURN;
78
79 -- Initialize message list if p_init_msg_list is set to TRUE.
80 IF FND_API.to_Boolean( p_init_msg_list ) THEN
81 FND_MSG_PUB.initialize;
82 END IF;
83 IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
84 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
85 G_MODULE||l_api_name,
86 '100: Start');
87 END IF;
88
89 /* Add your Processing Code Here */
90
91
92 IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
93 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
94 G_MODULE||l_api_name,
95 '100: End');
96 END IF;
97
98 EXCEPTION
99 WHEN OTHERS THEN
100 IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
101 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT ,
102 G_MODULE||l_api_name,
103 '999: Exception '||sqlerrm);
104 END IF;
105
106 x_return_status := g_ret_sts_unexp_error;
107 Okc_Api.Set_Message(p_app_name => G_APP_NAME,
108 p_msg_name => G_UNEXPECTED_ERROR,
109 p_token1 => G_SQLCODE_TOKEN,
110 p_token1_value => sqlcode,
111 p_token2 => G_SQLERRM_TOKEN,
112 p_token2_value => sqlerrm);
113 -- Standard call to get message count and if count is 1, get message info.
114 FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
115
116
117 END DOWNLOAD_CONTRACT_EXT;
118 END OKC_WORD_SYNC_HOOK;