DBA Data[Home] [Help]

APPS.WSH_MDC_SRS dependencies on WSH_MDC_SRS

Line 1: PACKAGE BODY WSH_MDC_SRS as

1: PACKAGE BODY WSH_MDC_SRS as
2: /* $Header: WSHMDSRB.pls 120.8.12000000.2 2007/01/24 18:13:31 bsadri ship $ */
3:
4:
5: --===================

Line 8: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_MDC_SRS';

4:
5: --===================
6: -- PUBLIC VARIABLES
7: --===================
8: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_MDC_SRS';
9:
10:
11: --========================================================================
12: -- TYPE : Consolidation_Rec

Line 74: -- WSH_MDC_SRS.addnl_del_attr_rec_type and copies the information

70: -- RETRUN type Delivery record
71: --
72: -- COMMENT : This function takes delivery records of types
73: -- WSH_FTE_CONSTRAINT_FRAMEWORK.delivery_ccinfo_rec_type and
74: -- WSH_MDC_SRS.addnl_del_attr_rec_type and copies the information
75: -- to a record of type WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type
76: -- and returns it.
77: --========================================================================
78: FUNCTION Copy_Record(

Line 252: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Schedule_Batch');

248:
249: IF p_batch_id IS NULL
250: THEN
251: WSH_UTIL_CORE.PrintMsg('Batch Id is null');
252: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Schedule_Batch');
253: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
254: errbuf := 'Error occurred in WSH_MDC_SRS.Schedule_Batch';
255: retcode := '2';
256: raise FND_API.G_EXC_ERROR;

Line 254: errbuf := 'Error occurred in WSH_MDC_SRS.Schedule_Batch';

250: THEN
251: WSH_UTIL_CORE.PrintMsg('Batch Id is null');
252: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Schedule_Batch');
253: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
254: errbuf := 'Error occurred in WSH_MDC_SRS.Schedule_Batch';
255: retcode := '2';
256: raise FND_API.G_EXC_ERROR;
257: END IF;
258:

Line 272: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Batch_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);

268: l_completion_status := 'NORMAL';
269:
270: -- get delivery selection parameters for the batch
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Batch_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
273: END IF;
274:
275: Get_Batch_Parameters(
276: p_batch_id => p_batch_id,

Line 288: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');

284: END IF;
285: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
286: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
287: THEN
288: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');
289: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
290: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters';
291: retcode := '2';
292: IF l_debug_on THEN

Line 290: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters';

286: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
287: THEN
288: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');
289: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
290: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters';
291: retcode := '2';
292: IF l_debug_on THEN
293: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');
294: END IF;

Line 293: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');

289: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
290: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters';
291: retcode := '2';
292: IF l_debug_on THEN
293: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_MDC_SRS.Get_Batch_Parameters');
294: END IF;
295: raise FND_API.G_EXC_ERROR;
296: END IF;
297:

Line 353: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Deliveries',WSH_DEBUG_SV.C_PROC_LEVEL);

349: END IF;
350:
351: -- get deliveries for the set of parameters
352: IF l_debug_on THEN
353: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Deliveries',WSH_DEBUG_SV.C_PROC_LEVEL);
354: END IF;
355:
356: Get_Deliveries(
357: p_sel_del_attr => l_sel_del_attr,

Line 369: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Deliveries');

365: WSH_DEBUG_SV.logmsg(l_module_name, 'Got Deliveries' );
366: END IF;
367: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
368: THEN
369: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Deliveries');
370: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
371: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Deliveries';
372: retcode := '2';
373: raise FND_API.G_EXC_ERROR;

Line 371: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Deliveries';

367: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
368: THEN
369: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Deliveries');
370: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
371: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Deliveries';
372: retcode := '2';
373: raise FND_API.G_EXC_ERROR;
374: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
375: THEN

Line 378: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Deliveries';

374: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
375: THEN
376: WSH_UTIL_CORE.PrintMsg('No deliveries to consolidate');
377: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
378: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Deliveries';
379: retcode := '2';
380: raise FND_API.G_EXC_ERROR;
381: END IF;
382:

Line 691: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Grouping_Attrs',WSH_DEBUG_SV.C_PROC_LEVEL);

687:
688:
689: -- get grouping rule
690: IF l_debug_on THEN
691: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Grouping_Attrs',WSH_DEBUG_SV.C_PROC_LEVEL);
692: END IF;
693:
694: Get_Grouping_Attrs(
695: p_grouping_rule_id => l_sel_del_attr.rule_id,

Line 707: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs');

703: END IF;
704: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
705: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
706: THEN
707: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs');
708: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
709: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs';
710: retcode := '2';
711: raise FND_API.G_EXC_ERROR;

Line 709: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs';

705: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
706: THEN
707: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs');
708: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
709: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Grouping_Attrs';
710: retcode := '2';
711: raise FND_API.G_EXC_ERROR;
712: END IF;
713:

Line 717: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Set_Intermediate_Location',WSH_DEBUG_SV.C_PROC_LEVEL);

713:
714:
715: -- set the intermediate location for the deliveries
716: IF l_debug_on THEN
717: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Set_Intermediate_Location',WSH_DEBUG_SV.C_PROC_LEVEL);
718: END IF;
719:
720: Set_Intermediate_Location(
721: p_consol_loc_id => l_sel_del_attr.consol_ship_to_loc_id,

Line 744: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Set_Intermediate_Location');

740: retcode := '1';
741: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
742: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: THEN
744: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Set_Intermediate_Location');
745: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
746: errbuf := 'Error occurred in WSH_MDC_SRS.Set_Intermediate_Location';
747: retcode := '2';
748: raise FND_API.G_EXC_ERROR;

Line 746: errbuf := 'Error occurred in WSH_MDC_SRS.Set_Intermediate_Location';

742: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: THEN
744: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Set_Intermediate_Location');
745: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
746: errbuf := 'Error occurred in WSH_MDC_SRS.Set_Intermediate_Location';
747: retcode := '2';
748: raise FND_API.G_EXC_ERROR;
749: END IF;
750:

Line 781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Hash_Value',WSH_DEBUG_SV.C_PROC_LEVEL);

777: --{
778: -- get hash value for the record
779: --{
780: IF l_debug_on THEN
781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Get_Hash_Value',WSH_DEBUG_SV.C_PROC_LEVEL);
782: END IF;
783: Get_Hash_Value(
784: x_delivery_rec => l_delivery_tab(i),
785: x_delivery_addnl_attr_rec => l_delivery_addnl_attr_tab(i),

Line 801: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Hash_Value');

797: END IF;
798: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
799: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
800: THEN
801: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Hash_Value');
802: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
803: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Hash_Value';
804: retcode := '2';
805: raise FND_API.G_EXC_ERROR;

Line 803: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Hash_Value';

799: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
800: THEN
801: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Get_Hash_Value');
802: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
803: errbuf := 'Error occurred in WSH_MDC_SRS.Get_Hash_Value';
804: retcode := '2';
805: raise FND_API.G_EXC_ERROR;
806: END IF;
807:

Line 863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Create_Consolidations',WSH_DEBUG_SV.C_PROC_LEVEL);

859:
860:
861: -- create consolidations
862: IF l_debug_on THEN
863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Create_Consolidations',WSH_DEBUG_SV.C_PROC_LEVEL);
864: END IF;
865: Create_Consolidations(
866: x_delivery_tab => l_delivery_tab,
867: x_delivery_addnl_attr_tab => l_delivery_addnl_attr_tab,

Line 894: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Create_Consolidations');

890:
891: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
892: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
893: THEN
894: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Create_Consolidations');
895: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
896: errbuf := 'Error occurred in WSH_MDC_SRS.Create_Consolidations';
897: retcode := '2';
898: raise FND_API.G_EXC_ERROR;

Line 896: errbuf := 'Error occurred in WSH_MDC_SRS.Create_Consolidations';

892: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
893: THEN
894: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Create_Consolidations');
895: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
896: errbuf := 'Error occurred in WSH_MDC_SRS.Create_Consolidations';
897: retcode := '2';
898: raise FND_API.G_EXC_ERROR;
899: END IF;
900:

Line 907: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Create_Deconsol_Trips',WSH_DEBUG_SV.C_PROC_LEVEL);

903: IF(l_sel_del_attr.create_deconsol_trips_flag = 'Y')
904: THEN
905: IF l_debug_on THEN
906: WSH_DEBUG_SV.logmsg(l_module_name,'Creating deconsolidation trips');
907: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Create_Deconsol_Trips',WSH_DEBUG_SV.C_PROC_LEVEL);
908: END IF;
909:
910: Create_Deconsol_Trips(
911: x_delivery_tab => l_delivery_tab,

Line 933: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Create_Deconsol_Trips');

929: retcode := '1';
930: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
931: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
932: THEN
933: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_MDC_SRS.Create_Deconsol_Trips');
934: l_completion_status := 'WARNING';
935: retcode := '1';
936: END IF;
937:

Line 1096: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed successfully');

1092: THEN
1093: retcode := '0';
1094: WSH_UTIL_CORE.PrintMsg('Delivery Consolidation completed successfully');
1095: IF l_debug_on THEN
1096: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed successfully');
1097: WSH_DEBUG_SV.logmsg(l_module_name, 'Current time is '||SYSDATE);
1098: END IF;
1099: ELSIF l_completion_status = 'WARNING'
1100: THEN

Line 1104: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed with warnings');

1100: THEN
1101: retcode := '1';
1102: WSH_UTIL_CORE.PrintMsg('Delivery Consolidation completed with warnings');
1103: IF l_debug_on THEN
1104: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed with warnings');
1105: WSH_DEBUG_SV.logmsg(l_module_name, 'Current time is '||SYSDATE);
1106: END IF;
1107: END IF;
1108: COMMIT;

Line 1136: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed successfully');

1132: THEN
1133: retcode := '1';
1134: WSH_UTIL_CORE.PrintMsg('Delivery Consolidation completed successfully');
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_MDC_SRS.Schedule_Batch completed successfully');
1137: WSH_DEBUG_SV.logmsg(l_module_name, 'Current time is '||SYSDATE);
1138: END IF;
1139:
1140: IF l_debug_on THEN

Line 2358: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Add_For_Consolidation',WSH_DEBUG_SV.C_PROC_LEVEL);

2354:
2355: ELSE
2356: l_del_rec := Copy_Record(x_delivery_tab(l_d_id),x_delivery_addnl_attr_tab(l_d_id));
2357: IF l_debug_on THEN
2358: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Add_For_Consolidation',WSH_DEBUG_SV.C_PROC_LEVEL);
2359: END IF;
2360:
2361: Add_For_Consolidation(
2362: p_delivery_rec => l_del_rec,

Line 2396: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Add_For_Consolidation',WSH_DEBUG_SV.C_PROC_LEVEL);

2392:
2393: ELSE -- weight flag is not checked
2394: l_del_rec := Copy_Record(x_delivery_tab(l_d_id),x_delivery_addnl_attr_tab(l_d_id));
2395: IF l_debug_on THEN
2396: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_MDC_SRS.Add_For_Consolidation',WSH_DEBUG_SV.C_PROC_LEVEL);
2397: END IF;
2398:
2399: Add_For_Consolidation(
2400: p_delivery_rec => l_del_rec,

Line 3209: END WSH_MDC_SRS;

3205: END IF;
3206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3207: END Add_For_Consolidation;
3208:
3209: END WSH_MDC_SRS;
3210: