1: PACKAGE BODY WSH_CAL_ASG_VALIDATIONS AS
2: -- $Header: WSHCAVLB.pls 120.2 2007/11/02 06:22:32 skanduku ship $
3:
4: /*+=======================================================================+
5: --| Copyright (c) 1998 Oracle Corporation |
17: --+======================================================================*/
18: --===================
19: -- CONSTANTS
20: --===================
21: G_PKG_NAME CONSTANT VARCHAR2(30) := 'WSH_CAL_ASG_VALIDATIONS';
22: -- add your constants here if any
23:
24: --===================
25: -- PUBLIC VARIABLES
445: --
446: -- Debug Statements
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
450: END IF;
451: --
452: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
453: ( p_receive_date
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
450: END IF;
451: --
452: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
453: ( p_receive_date
454: , 'RECEIVING'
455: , p_receive_assoc_type
456: , p_receive_location_id
468: --
469: -- Debug Statements
470: --
471: IF l_debug_on THEN
472: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
473: END IF;
474: --
475: WSH_CAL_ASG_VALIDATIONS.Single_Date(
476: x_suggest_receive_date
471: IF l_debug_on THEN
472: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
473: END IF;
474: --
475: WSH_CAL_ASG_VALIDATIONS.Single_Date(
476: x_suggest_receive_date
477: , 'CARRIER'
478: , 'CARRIER'
479: , p_receive_location_id
503: --
504: -- Debug Statements
505: --
506: IF l_debug_on THEN
507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
508: END IF;
509: --
510: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
511: ( p_ship_date
506: IF l_debug_on THEN
507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
508: END IF;
509: --
510: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
511: ( p_ship_date
512: , 'SHIPPING'
513: , p_ship_assoc_type
514: , p_ship_location_id
526: --
527: -- Debug Statements
528: --
529: IF l_debug_on THEN
530: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
531: END IF;
532: --
533: WSH_CAL_ASG_VALIDATIONS.Single_Date(
534: x_suggest_ship_date
529: IF l_debug_on THEN
530: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
531: END IF;
532: --
533: WSH_CAL_ASG_VALIDATIONS.Single_Date(
534: x_suggest_ship_date
535: , 'CARRIER'
536: , 'CARRIER'
537: , p_ship_location_id
565: --
566: -- Debug Statements
567: --
568: IF l_debug_on THEN
569: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
570: END IF;
571: --
572: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
573: ( p_ship_date
568: IF l_debug_on THEN
569: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
570: END IF;
571: --
572: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
573: ( p_ship_date
574: , 'SHIPPING'
575: , p_ship_assoc_type
576: , p_ship_location_id
588: --
589: -- Debug Statements
590: --
591: IF l_debug_on THEN
592: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
593: END IF;
594: --
595: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
596: ( p_receive_date - (p_ship_date - x_suggest_ship_date)
591: IF l_debug_on THEN
592: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
593: END IF;
594: --
595: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
596: ( p_receive_date - (p_ship_date - x_suggest_ship_date)
597: , 'RECEIVING'
598: , p_receive_assoc_type
599: , p_receive_location_id
633: --
634: -- Debug Statements
635: --
636: IF l_debug_on THEN
637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
638: END IF;
639: --
640: WSH_CAL_ASG_VALIDATIONS.Single_Date(
641: x_suggest_ship_date
636: IF l_debug_on THEN
637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
638: END IF;
639: --
640: WSH_CAL_ASG_VALIDATIONS.Single_Date(
641: x_suggest_ship_date
642: , 'CARRIER'
643: , p_ship_assoc_type
644: , p_ship_location_id
653: --
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
658: END IF;
659: --
660: WSH_CAL_ASG_VALIDATIONS.Single_Date(
661: x_suggest_receive_date
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
658: END IF;
659: --
660: WSH_CAL_ASG_VALIDATIONS.Single_Date(
661: x_suggest_receive_date
662: , 'CARRIER'
663: , p_receive_assoc_type
664: , p_receive_location_id
683: --
684: -- Debug Statements
685: --
686: IF l_debug_on THEN
687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
688: END IF;
689: --
690: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
691: ( p_receive_date
686: IF l_debug_on THEN
687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
688: END IF;
689: --
690: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
691: ( p_receive_date
692: , 'RECEIVING'
693: , p_receive_assoc_type
694: , p_receive_location_id
706: --
707: -- Debug Statements
708: --
709: IF l_debug_on THEN
710: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
711: END IF;
712: --
713: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
714: ( p_ship_date - (p_receive_date - x_suggest_receive_date)
709: IF l_debug_on THEN
710: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.FIND_VALID_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
711: END IF;
712: --
713: WSH_CAL_ASG_VALIDATIONS.Find_Valid_Date
714: ( p_ship_date - (p_receive_date - x_suggest_receive_date)
715: , 'SHIPPING'
716: , p_ship_assoc_type
717: , p_ship_location_id
751: --
752: -- Debug Statements
753: --
754: IF l_debug_on THEN
755: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
756: END IF;
757: --
758: WSH_CAL_ASG_VALIDATIONS.Single_Date(
759: x_suggest_ship_date
754: IF l_debug_on THEN
755: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
756: END IF;
757: --
758: WSH_CAL_ASG_VALIDATIONS.Single_Date(
759: x_suggest_ship_date
760: , 'CARRIER'
761: , p_ship_assoc_type
762: , p_ship_location_id
771: --
772: -- Debug Statements
773: --
774: IF l_debug_on THEN
775: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
776: END IF;
777: --
778: WSH_CAL_ASG_VALIDATIONS.Single_Date(
779: x_suggest_receive_date
774: IF l_debug_on THEN
775: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
776: END IF;
777: --
778: WSH_CAL_ASG_VALIDATIONS.Single_Date(
779: x_suggest_receive_date
780: , p_receive_assoc_type
781: , 'CARRIER'
782: , p_receive_location_id
976: --
977: -- Debug Statements
978: --
979: IF l_debug_on THEN
980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
981: END IF;
982: --
983: WSH_CAL_ASG_VALIDATIONS.Single_Date(
984: x_suggest_date
979: IF l_debug_on THEN
980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CAL_ASG_VALIDATIONS.SINGLE_DATE',WSH_DEBUG_SV.C_PROC_LEVEL);
981: END IF;
982: --
983: WSH_CAL_ASG_VALIDATIONS.Single_Date(
984: x_suggest_date
985: , p_calendar_type
986: , p_assoc_type
987: , p_location_id
1284: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1285: END IF;
1286: --
1287: END Single_Date;
1288: END WSH_CAL_ASG_VALIDATIONS;