[Home] [Help]
PACKAGE BODY: APPS.WMS_CUSTAPI_CONC_PKG
Source
1 package body wms_custapi_conc_pkg as
2 /* $Header: WMSCCPKB.pls 120.1 2006/08/10 11:32:38 bradha noship $ */
3 --
4 l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5 --
6 -- ---------------------------------------------------------------------------|
7 -- |-------------------------------< trace >----------------------------------|
8 -- ---------------------------------------------------------------------------|
9 -- {Start Of Comments}
10 --
11 -- Description:
12 -- Wrapper around the tracing utility.
13 --
14 -- Prerequisites:
15 -- None
16 --
17 -- In Parameters:
18 -- Name Reqd Type Description
19 -- p_message Yes varchar2 Message to be displayed in the log file.
20 -- p_prompt Yes varchar2 Prompt.
21 -- p_level No number Level.
22 --
23 -- Post Success:
24 -- None.
25 --
26 -- Post Failure:
27 -- None
28 --
29 -- Access Status:
30 -- Internal Development Use Only.
31 --
32 -- {End Of Comments}
33 --
34 Procedure trace(
35 p_message in varchar2
36 , p_level in number
37 ) is
38 begin
39 INV_LOG_UTIL.trace(p_message, 'WMS_CUSTAPI_CONC_PKG', p_level);
40 end trace;
41 --
42 -- -------------------------------------------------------------------------------------------
43 -- |---------------------------< gen_wms_custapi_sys_objs >-----------------------------------|
44 -- -------------------------------------------------------------------------------------------
45 -- {Start Of Comments}
46 --
47 -- Description:
48 -- Wrapper procedure to call API to create the spec and body for the system generated
49 -- package.
50 --
51 -- Prerequisites:
52 -- None
53 --
54 -- In Parameters:
55 -- Name Reqd Type Description
56 -- ---------------- ---- -------- -------------------
57 -- none
58 --
59 --
60 -- Post success:
61 -- The system package spec(s)/body(s) are created in the database.
62 --
63 -- Post Failure:
64 -- Unexpected Oracle errors and serious application errors will be raised
65 -- as a PL/SQL exception. When these errors are raised this procedure will
66 -- abort the processing.
67 --
68 -- Access Status:
69 -- Internal Development Use Only.
70 --
71 -- {End Of Comments}
72 --
73 Procedure gen_wms_custapi_sys_objs(
74 errbuf out NOCOPY varchar2
75 , retcode out NOCOPY number
76 ) is
77
78 l_proc varchar2(72) := 'GEN_WMS_CUSTAPI_SYS_OBJS :';
79 l_msg_count number;
80 l_msg_data varchar2(240);
81 begin
82 if (l_debug = 1) then
83 trace(l_proc ||' Entering procedure gen_wms_custapi_sys_objs '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
84 trace(l_proc ||' Before calling "wms_atf_reg_cust_apis.create_wms_system_objects"....', 1);
85 trace(l_proc ||' No Input Parameters ');
86 end if;
87
88 wms_atf_reg_cust_apis.create_wms_system_objects(
89 x_retcode => retcode
90 , x_errbuf => errbuf );
91
92 if (l_debug = 1) then
93 trace(l_proc ||' After calling "wms_atf_reg_cust_apis.create_wms_system_objects"....', 1);
94 trace(l_proc ||' Out Parameters ');
95 trace(l_proc ||' errbuf is ' || errbuf);
96 trace(l_proc ||' l_msg_count is ' || l_msg_count);
97 trace(l_proc ||' l_msg_data is ' || l_msg_data);
98 trace(l_proc ||' ');
99 trace(l_proc ||' ');
100 trace(l_proc ||' Exiting procedure gen_wms_custapi_sys_objs '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
101 end if;
102 end gen_wms_custapi_sys_objs;
103 --
104 --
105 -- -------------------------------------------------------------------------------------------
106 -- |---------------------------< create_delete_api_calls >------------------------------------|
107 -- -------------------------------------------------------------------------------------------
108 -- {Start Of Comments}
109 --
110 -- Description:
111 -- Wrapper procedure to call API to create or delete Custom API hook calls.
112 --
113 -- Prerequisites:
114 -- None
115 --
116 -- In Parameters:
117 -- Name Reqd Type Description
118 -- ---------------- ---- -------- -------------------
119 -- none
120 --
121 --
122 -- Post success:
123 -- The system package spec(s)/body(s) are created in the database.
124 --
125 -- Post Failure:
126 -- Unexpected Oracle errors and serious application errors will be raised
127 -- as a PL/SQL exception. When these errors are raised this procedure will
128 -- abort the processing.
129 --
130 -- Access Status:
131 -- Internal Development Use Only.
132 --
133 -- {End Of Comments}
134 --
135 Procedure create_delete_api_calls(
136 errbuf out NOCOPY varchar2
137 , retcode out NOCOPY number
138 , p_hook_short_name_id in number
139 , p_call_package in varchar2
140 , p_call_procedure in varchar2
141 , p_call_description in varchar2
142 , p_effective_to_date in varchar2
143 , p_mode in varchar2
144 ) is
145
146 l_proc varchar2(72) := 'CREATE_DELETE_API_CALLS :';
147 l_msg_count number;
148 l_msg_data varchar2(240);
149 --l_hook_short_name_id number;
150
151 begin
152
153 if (l_debug = 1) then
154 trace(l_proc ||' Entering procedure create_delete_api_calls '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
155 trace(l_proc ||' Input Parameters ');
156 trace(l_proc ||' Short Name ID: '|| p_hook_short_name_id);
157 trace(l_proc ||' Call Package : '|| p_call_package);
158 trace(l_proc ||' Call Procedure : '|| p_call_procedure);
159 trace(l_proc ||' Call Description : '|| p_call_description);
160 trace(l_proc ||' Effective To Date : '|| p_effective_to_date);
161 trace(l_proc ||' Call Mode : '|| p_mode);
162 trace(l_proc ||' Before calling "wms_atf_reg_cust_apis.create_delete_api_calls"....', 1);
163 end if;
164
165 wms_atf_reg_cust_apis.create_delete_api_call(
166 p_hook_short_name_id => p_hook_short_name_id
167 , p_call_package => p_call_package
168 , p_call_procedure => p_call_procedure
169 , p_call_description => p_call_description
170 , p_effective_to_date => FND_DATE.canonical_to_date(p_effective_to_date)
171 , p_mode => p_mode
172 , x_retcode => retcode
173 , x_errbuf => errbuf
174 );
175
176 if (l_debug = 1) then
177 trace(l_proc ||' After calling "wms_atf_reg_cust_apis.create_delete_api_calls"....', 1);
178 trace(l_proc ||' Out Parameters ');
179 trace(l_proc ||' errbuf is ' || errbuf);
180 trace(l_proc ||' retcode is ' || retcode);
181 trace(l_proc ||' ');
182 trace(l_proc ||' ');
183 trace(l_proc ||' Exiting procedure create_delete_api_call '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
184 end if;
185 end create_delete_api_calls;
186
187 end wms_custapi_conc_pkg;