782: ================== */
783: CURSOR determine_type IS
784: SELECT s.whse_code
785: FROM ic_whse_sts s, ic_whse_mst w,
786: sy_orgn_mst o
787: WHERE o.co_code = UPPER(pco_code)
788: AND w.orgn_code = o.orgn_code
789: AND s.whse_code = w.whse_code
790: AND s.fiscal_year = pfiscal_year
865: /* Cursor Definitions
866: ================== */
867: CURSOR validate_orgn_code IS
868: SELECT orgn_code
869: FROM sy_orgn_mst
870: WHERE orgn_code = UPPER(porgn_code)
871: AND delete_mark = 0;
872:
873: CURSOR get_company IS
871: AND delete_mark = 0;
872:
873: CURSOR get_company IS
874: SELECT UPPER(co_code)
875: FROM sy_orgn_mst
876: WHERE orgn_code = UPPER(porgn_code)
877: AND delete_mark = 0;
878:
879: /* ================================================ */