436: ===========================*/
437: --l_loct_desc ic_loct_mst.loct_desc%TYPE; -- Bug 3585309
438: l_location ic_loct_mst.location%TYPE; -- Bug 3585309
439: l_default_loct ic_loct_mst.location%TYPE;
440: l_whse_loct_ctl ic_whse_mst.loct_ctl%TYPE;
441: l_whse ic_whse_mst.whse_code%TYPE;
442:
443: /* Cursor Definitions
444: ==================*/
437: --l_loct_desc ic_loct_mst.loct_desc%TYPE; -- Bug 3585309
438: l_location ic_loct_mst.location%TYPE; -- Bug 3585309
439: l_default_loct ic_loct_mst.location%TYPE;
440: l_whse_loct_ctl ic_whse_mst.loct_ctl%TYPE;
441: l_whse ic_whse_mst.whse_code%TYPE;
442:
443: /* Cursor Definitions
444: ==================*/
445: CURSOR validate_whse IS
443: /* Cursor Definitions
444: ==================*/
445: CURSOR validate_whse IS
446: SELECT whse_code
447: FROM ic_whse_mst
448: WHERE whse_code = UPPER(pwhse_code)
449: AND delete_mark = 0;
450:
451: CURSOR validate_location IS
456: AND delete_mark = 0;
457:
458: CURSOR get_whse_ctl IS
459: SELECT loct_ctl
460: FROM ic_whse_mst
461: WHERE whse_code = UPPER(pwhse_code);
462:
463: BEGIN
464:
603: =========================== */
604: --l_loct_desc ic_loct_mst.loct_desc%TYPE; -- Bug 3585309
605: l_location ic_loct_mst.location%TYPE; -- Bug 3585309
606: l_default_loct ic_loct_mst.location%TYPE;
607: l_whse_loct_ctl ic_whse_mst.loct_ctl%TYPE;
608: l_whse ic_whse_mst.whse_code%TYPE;
609:
610: /* Cursor Definitions
611: ================== */
604: --l_loct_desc ic_loct_mst.loct_desc%TYPE; -- Bug 3585309
605: l_location ic_loct_mst.location%TYPE; -- Bug 3585309
606: l_default_loct ic_loct_mst.location%TYPE;
607: l_whse_loct_ctl ic_whse_mst.loct_ctl%TYPE;
608: l_whse ic_whse_mst.whse_code%TYPE;
609:
610: /* Cursor Definitions
611: ================== */
612: CURSOR validate_whse IS
610: /* Cursor Definitions
611: ================== */
612: CURSOR validate_whse IS
613: SELECT whse_code
614: FROM ic_whse_mst
615: WHERE whse_code = UPPER(pwhse_code)
616: AND orgn_code = UPPER(porgn_code)
617: AND delete_mark = 0;
618:
841: /* Cursor Definitions
842: ================== */
843: CURSOR validate_whse IS
844: SELECT whse_code
845: FROM ic_whse_mst
846: WHERE whse_code = UPPER(pwhse_code)
847: AND orgn_code = UPPER(porgn_code)
848: AND delete_mark = 0;
849: