DBA Data[Home] [Help]

APPS.CLN_UPDTDLVY_PKG dependencies on CLN_UPDTDLVY_PKG

Line 1: PACKAGE BODY CLN_UPDTDLVY_PKG AS

1: PACKAGE BODY CLN_UPDTDLVY_PKG AS
2: /* $Header: CLNUPDLB.pls 115.11 2004/04/29 21:09:23 cshih noship $ */
3:
4: /*=======================================================================+
5: | FILENAME

Line 9: | PL/SQL package: CLN_UPDTDLVY_PKG

5: | FILENAME
6: | CLNUPDLB.sql
7: |
8: | DESCRIPTION
9: | PL/SQL package: CLN_UPDTDLVY_PKG
10: |
11: | NOTES
12: | Created 9/26/03 chiung-fu.shih
13: *=====================================================================*/

Line 60: cln_debug_pub.Add('ENTERING CLN_UPDTDLVY_PKG.Get_UpdateDelivery_Params', 1);

56: -- set debug level
57: l_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
58:
59: if (l_debug_level <= 1) then
60: cln_debug_pub.Add('ENTERING CLN_UPDTDLVY_PKG.Get_UpdateDelivery_Params', 1);
61: cln_debug_pub.Add('With the following parameters:', 1);
62: cln_debug_pub.Add('itemtype:' || itemtype, 1);
63: cln_debug_pub.Add('itemkey:' || itemkey, 1);
64: cln_debug_pub.Add('actid:' || actid, 1);

Line 78: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameters Initialized';

74: message_text := 'CLN_UPDL_MESSAGE_SENT';
75: party_type := 'S';
76: result := FALSE;
77:
78: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameters Initialized';
79: if (l_debug_level <= 1) then
80: cln_debug_pub.Add('Failure point ' || x_progress, 1);
81: end if;
82:

Line 108: cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameter Lookups Completed', 1);

104: into l_organization_id
105: from dual;
106:
107: if (l_debug_level <= 1) then
108: cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: Parameter Lookups Completed', 1);
109: cln_debug_pub.Add('With the following parameters:', 1);
110: cln_debug_pub.Add('p_shipment_header_id:' || p_shipment_header_id, 1);
111: cln_debug_pub.Add('party_id:' || party_id, 1);
112: cln_debug_pub.Add('party_site_id:' || party_site_id, 1);

Line 128: cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Done', 1);

124: retcode => return_code,
125: errmsg => errmsg);
126:
127: if (l_debug_level <= 1) then
128: cln_debug_pub.Add('CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Done', 1);
129: cln_debug_pub.Add('With the following OUT parameters:', 1);
130: cln_debug_pub.Add('retcode:' || return_code, 1);
131: cln_debug_pub.Add('errmsg:' || errmsg, 1);
132: end if;

Line 137: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Failed';

133:
134: -- Decision on action depending on XML Setup Check
135: if NOT(result) then
136:
137: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Failed';
138: if (l_debug_level <= 1) then
139: cln_debug_pub.Add('Failure point ' || x_progress, 1);
140: end if;
141:

Line 145: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Succeeded';

141:
142: resultout := 'FAIL';
143: else
144:
145: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : XML Trading Partner Setup Check Succeeded';
146: if (l_debug_level <= 1) then
147: cln_debug_pub.Add('Failure point ' || x_progress, 1);
148: end if;
149:

Line 162: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Created reference ID, unique key, and canonical date';

158:
159: SELECT sysdate into l_date from dual;
160: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
161:
162: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Created reference ID, unique key, and canonical date';
163: if (l_debug_level <= 1) then
164: cln_debug_pub.Add('Failure point ' || x_progress, 1);
165: end if;
166:

Line 189: cln_debug_pub.Add('EXITING CLN_UPDTDLVY_PKG.Raise_UpdateDelivery_Event Successfully', 1);

185: wf_engine.SetItemAttrText(itemtype, itemkey, 'DOCUMENT_CREATION_DATE', l_canonical_date);
186:
187: -- Reached Here. Successful execution.
188: if (l_debug_level <= 1) then
189: cln_debug_pub.Add('EXITING CLN_UPDTDLVY_PKG.Raise_UpdateDelivery_Event Successfully', 1);
190: end if;
191:
192: resultout := 'SUCCESS';
193: end if;

Line 202: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Error';

198: if (l_debug_level <= 1) then
199: cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg, 1);
200: end if;
201:
202: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : Error';
203: if (l_debug_level <= 1) then
204: cln_debug_pub.Add('Failure point ' || x_progress, 1);
205: end if;
206:

Line 281: cln_debug_pub.Add('Entering CLN_UPDTDLVY_PKG.Process_Update_Delivery', 1);

277: l_second_cln_parameter_list := wf_parameter_list_t();
278: message_text := 'CLN_UPDL_MESSAGE_RCVD';
279:
280: if (l_debug_level <= 2) then
281: cln_debug_pub.Add('Entering CLN_UPDTDLVY_PKG.Process_Update_Delivery', 1);
282: end if;
283: if (l_debug_level <= 1) then
284: cln_debug_pub.Add('With the parameters', 1);
285: cln_debug_pub.Add('p_receipt_id : ' || p_receipt_id, 1);

Line 291: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: 01';

287: cln_debug_pub.Add('p_delivery_num : ' || p_delivery_num, 1);
288: end if;
289:
290:
291: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event: 01';
292: if (l_debug_level <= 1) then
293: cln_debug_pub.Add('Failure point ' || x_progress, 1);
294: end if;
295:

Line 413: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : 05';

409: if (l_debug_level <= 1) then
410: cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg, 1);
411: end if;
412:
413: x_progress := 'CLN_UPDTDLVY_PKG.Raise_Updatedelivery_Event : 05';
414: if (l_debug_level <= 1) then
415: cln_debug_pub.Add('Failure point ' || x_progress, 1);
416: end if;
417:

Line 477: END CLN_UPDTDLVY_PKG;

473: end if;
474:
475: RETURN l_org_id;
476: END GET_FROM_ROLE_ORG_ID;
477: END CLN_UPDTDLVY_PKG;