685: l_loginid NUMBER := FND_GLOBAL.LOGIN_ID;
686:
687: CURSOR ws_sp_cur IS
688: SELECT SERVICE_PACKAGE_ID
689: FROM PSB_SERVICE_PACKAGES
690: WHERE GLOBAL_WORKSHEET_ID = p_worksheet_id
691: AND SHORT_NAME = p_spname;
692:
693: Recinfo ws_sp_cur%ROWTYPE;
702: IF ws_sp_cur%FOUND THEN
703: p_spid := Recinfo.SERVICE_PACKAGE_ID;
704:
705: ELSE
706: select psb_service_packages_s.nextval into l_spid from dual;
707: INSERT INTO PSB_SERVICE_PACKAGES
708: (
709: SERVICE_PACKAGE_ID,
710: GLOBAL_WORKSHEET_ID,
703: p_spid := Recinfo.SERVICE_PACKAGE_ID;
704:
705: ELSE
706: select psb_service_packages_s.nextval into l_spid from dual;
707: INSERT INTO PSB_SERVICE_PACKAGES
708: (
709: SERVICE_PACKAGE_ID,
710: GLOBAL_WORKSHEET_ID,
711: BASE_SERVICE_PACKAGE,
837: l_amount10_tbl Number_tbl_type;
838: l_amount11_tbl Number_tbl_type;
839: l_amount12_tbl Number_tbl_type;
840: -- bug 3558916
841: l_service_pack_id psb_service_packages.service_package_id%TYPE;
842:
843: /* start Bug 3558916 */
844: CURSOR cur_wlbi
845: IS
888: /* start Bug 3558916 */
889: BEGIN
890: SELECT service_package_id
891: INTO l_service_pack_id
892: FROM psb_service_packages
893: WHERE global_worksheet_id = g_global_worksheet_id
894: AND name = 'BASE'
895: AND rownum = 1;
896: EXCEPTION