[Home] [Help]
670: -- TYPE PartyCurTyp IS REF CURSOR; -- define weak REF CURSOR type
671: -- l_party_cv PartyCurTyp; -- declare cursor variable
672: -- CURSOR c_party_mkt_seg_seq IS -- generate an ID for INSERT
673: -- SELECT AMS_PARTY_MARKET_SEGMENTS_S.NEXTVAL
674: -- FROM DUAL;
675:
676:
677: --R12: mkothari -- added cursor to get territory org
678: CURSOR client_info_csr IS select org_id from jtf_terr_all where terr_id = p_terr_id;
1264: l_store_csr := DBMS_SQL.open_cursor;
1265: DBMS_SQL.parse(l_store_csr, l_store_insert_sql, DBMS_SQL.native);
1266: DBMS_SQL.BIND_VARIABLE (l_store_csr, ':terr_id', p_terr_id);
1267:
1268: select length(l_store_final_sql) into len from dual;
1269:
1270: for n in 1..len
1271: LOOP
1272: --select SUBSTR(SUBSTR(l_store_final_sql,instr(l_store_final_sql,':',1,n),11),10,10 )into lvar from dual;
1268: select length(l_store_final_sql) into len from dual;
1269:
1270: for n in 1..len
1271: LOOP
1272: --select SUBSTR(SUBSTR(l_store_final_sql,instr(l_store_final_sql,':',1,n),11),10,10 )into lvar from dual;
1273:
1274: -- IF lvar between '1' and '9999' then
1275: IF instr(l_store_final_sql,':',1,n)>0 THEN
1276: lvar:=n;
1273:
1274: -- IF lvar between '1' and '9999' then
1275: IF instr(l_store_final_sql,':',1,n)>0 THEN
1276: lvar:=n;
1277: select instr(translate(lvar,'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'),'X') into isNum FROM dual;
1278: IF isNum = 0 then
1279:
1280: write_conc_log('###############Bind Variable Number: '||lvar);
1281:
1673: /* yzhao: fix bug 2789492 - MKTF1R9:1159.0203:FUNC-BUDGET WITH MARKET ELIGIBILITY BUYING GROUP DOES NOT VALI */
1674: AND directional_flag = NVL(p_direction, directional_flag);
1675: CURSOR c_party_mkt_seg_seq IS -- generate an ID
1676: SELECT AMS_PARTY_MARKET_SEGMENTS_S.NEXTVAL
1677: FROM DUAL;
1678: BEGIN
1679: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Start buyinggroup_id=' || p_bg_id);
1680: p_errbuf := null;
1681: p_retcode := 0;