[Home] [Help]
PACKAGE BODY: APPS.OKS_IMPORT_POST_PROCESS
Source
1 PACKAGE BODY OKS_IMPORT_POST_PROCESS AS
2 -- $Header: OKSPKIMPPOPB.pls 120.0 2007/09/11 11:42:18 mkarra noship $
3 --+=======================================================================+
4 --| Copyright (c) 2003 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| OKSPKIMPPOPB.pls Created By Mihira Karra |
10 --| |
11 --| DESCRIPTION |
12 --| Service Contracts Import Post Processing Routines Package |
13 --| |
14 --+========================================================================
15
16 --===================
17 -- GLOBALS
18 --===================
19
20 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKS_IMPORT_POST_PROCESS';
21
22 --========================================================================
23 -- PRIVATE CONSTANTS AND VARIABLES
24 --========================================================================
25 G_MODULE_NAME CONSTANT VARCHAR2(50) := 'oks.plsql.import.' || G_PKG_NAME;
26 G_WORKER_REQ_ID CONSTANT NUMBER := FND_GLOBAL.conc_request_id;
27 G_MODULE_HEAD CONSTANT VARCHAR2(60) := G_MODULE_NAME || '(Req Id = '||G_WORKER_REQ_ID||').';
28 G_LOG_LEVEL CONSTANT NUMBER := fnd_log.G_CURRENT_RUNTIME_LEVEL;
29 G_UNEXPECTED_LOG CONSTANT BOOLEAN := fnd_log.level_unexpected >= G_LOG_LEVEL AND
30 fnd_log.TEST(fnd_log.level_unexpected, G_MODULE_HEAD);
31 G_ERROR_LOG CONSTANT BOOLEAN := G_UNEXPECTED_LOG AND fnd_log.level_error >= G_LOG_LEVEL;
32 G_EXCEPTION_LOG CONSTANT BOOLEAN := G_ERROR_LOG AND fnd_log.level_exception >= G_LOG_LEVEL;
33 G_EVENT_LOG CONSTANT BOOLEAN := G_EXCEPTION_LOG AND fnd_log.level_event >= G_LOG_LEVEL;
34 G_PROCEDURE_LOG CONSTANT BOOLEAN := G_EVENT_LOG AND fnd_log.level_procedure >= G_LOG_LEVEL;
35 G_STMT_LOG CONSTANT BOOLEAN := G_PROCEDURE_LOG AND fnd_log.level_statement >= G_LOG_LEVEL;
36
37 --==========================
38 -- PROCEDURES AND FUNCTIONS
39 --==========================
40
41 --========================================================================
42 -- PROCEDURE : Instantiate_workflow_process PRIVATE
43 -- PARAMETERS:
44 -- COMMENT : This procedure will invoke the procedures to
45 -- Instantiate Work Flow
46 --=========================================================================
47
48 PROCEDURE Instantiate_workflow_process
49 IS
50
51 l_stmt_num NUMBER := 0;
52 l_routine CONSTANT VARCHAR2(30) := 'Instantiate_workflow_process';
53 l_errbuf VARCHAR2(200);
54 l_retcode NUMBER;
55
56 BEGIN
57
58 IF G_PROCEDURE_LOG THEN
59 fnd_log.string(fnd_log.level_procedure,
60 G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
61 'Entering .' );
62 END IF;
63
64 FND_MSG_PUB.initialize;
65
66 l_stmt_num :=10;
67
68 OKS_WF_K_PROCESS_PVT. launch_wf_conc_prog(l_errbuf,l_retcode) ;
69
70 IF G_STMT_LOG THEN
71 fnd_log.string(fnd_log.level_statement,
72 G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
73 'Successully instantiated Workflow ');
74 END IF;
75
76 IF G_EXCEPTION_LOG THEN
77
78 FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, G_MODULE_HEAD || l_routine , 'Error Code '|| l_errbuf);
79
80 END IF;
81
82
83 IF G_PROCEDURE_LOG THEN
84 fnd_log.string(fnd_log.level_procedure,
85 G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
86 'Exit.');
87 END IF;
88
89 EXCEPTION
90 WHEN FND_API.G_EXC_ERROR THEN
91 -- ROLLBACK;
92 RAISE FND_API.G_EXC_ERROR;
93 WHEN OTHERS THEN
94 -- ROLLBACK;
95 FND_MESSAGE.Set_Name('OKS', 'OKS_IMPORT_UNEXPECTED');
96 FND_MESSAGE.set_token('ROUTINE', G_PKG_NAME||'.'||l_routine);
97 FND_MESSAGE.set_token('MESSAGE', 'stmt_num '||l_stmt_num||' ('||SQLCODE||') '||SQLERRM);
98 FND_MSG_PUB.Add;
99 RAISE FND_API.G_EXC_ERROR;
100
101 END Instantiate_workflow_process ;
102
103
104 --========================================================================
105 -- PROCEDURE : Import_Post_Process PUBLIC
106 -- PARAMETERS:
107 -- COMMENT : This procedure will invoke the procedures to
108 -- Instantiate Work Flow
109 --=========================================================================
110
111 PROCEDURE Import_Post_Process
112 IS
113
114 l_stmt_num NUMBER := 0;
115 l_routine CONSTANT VARCHAR2(30) := 'Import_Post_Process';
116 BEGIN
117
118 IF G_PROCEDURE_LOG THEN
119 fnd_log.string(fnd_log.level_procedure,
120 G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
121 'Entering .' );
122 END IF;
123
124 FND_MSG_PUB.initialize;
125
126 l_stmt_num :=10;
127
128 Instantiate_workflow_process ;
129
130 IF G_PROCEDURE_LOG THEN
131 fnd_log.string(fnd_log.level_procedure,
132 G_MODULE_HEAD || l_routine || '.' ||l_stmt_num,
133 'Exit.');
134 END IF;
135
136 EXCEPTION
137 WHEN FND_API.G_EXC_ERROR THEN
138 -- ROLLBACK;
139 RAISE FND_API.G_EXC_ERROR;
140 WHEN OTHERS THEN
141 -- ROLLBACK;
142 FND_MESSAGE.Set_Name('OKS', 'OKS_IMPORT_UNEXPECTED');
143 FND_MESSAGE.set_token('ROUTINE', G_PKG_NAME||'.'||l_routine);
144 FND_MESSAGE.set_token('MESSAGE', 'stmt_num '||l_stmt_num||' ('||SQLCODE||') '||SQLERRM);
145 FND_MSG_PUB.Add;
146 RAISE FND_API.G_EXC_ERROR;
147
148 END Import_Post_Process ;
149
150 END OKS_IMPORT_POST_PROCESS ;