eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AMS_PARTY_MKT_SEG_LOADER_PVT dependencies on DBMS_SQL

Line 469: -- This Procedure will expire the party using DBMS SQL

465: -- Purpose
466: -- expire parties that no longer belong to the given mkt_seg_id
467: --
468: -- Note :
469: -- This Procedure will expire the party using DBMS SQL
470: --
471: -- History
472: -- 05/03/2000 ptendulk created
473: --

Line 565: -- This Procedure will expire the party using DBMS SQL

561: -- expire parties that originally belong to other mkt_seg_id and currently
562: -- belong to the give mkt_seg_id
563: --
564: -- Note :
565: -- This Procedure will expire the party using DBMS SQL
566: --
567: -- History
568: -- 05/03/2000 ptendulk created
569: -------------------------------------------------------------------------------

Line 845: -- Or it will take the sql query into table to use DBMS_SQL to execute it

841: -- handle parties belonging to market segment, i.e., flag = 'Y'
842: --
843: -- Note
844: -- The process will take the sql query in to variable if it is Native SQL
845: -- Or it will take the sql query into table to use DBMS_SQL to execute it
846: -- History
847: -- 01/21/2000 julou created
848: -- 05/02/2000 ptendulk Modified , 1. Added Routines to execute sql as
849: -- Native SQL or DBMS sql

Line 849: -- Native SQL or DBMS sql

845: -- Or it will take the sql query into table to use DBMS_SQL to execute it
846: -- History
847: -- 01/21/2000 julou created
848: -- 05/02/2000 ptendulk Modified , 1. Added Routines to execute sql as
849: -- Native SQL or DBMS sql
850: -------------------------------------------------------------------------------
851: PROCEDURE Load_Mkt_Seg
852: (
853: p_mkt_seg_id IN NUMBER

Line 864: l_sql_tbl DBMS_SQL.varchar2s ;

860: IS
861: l_api_name CONSTANT VARCHAR2(30) := 'Load_Mkt_Seg';
862:
863: l_sql_str VARCHAR2(32767) := '' ;
864: l_sql_tbl DBMS_SQL.varchar2s ;
865: l_tmp_str VARCHAR2(2000) := '' ;
866:
867: l_count NUMBER ;
868: l_str_copy VARCHAR2(2000);

Line 872: -- Define the table type to store the party ids if the sql is DBMS_SQL

868: l_str_copy VARCHAR2(2000);
869:
870: l_length NUMBER ;
871:
872: -- Define the table type to store the party ids if the sql is DBMS_SQL
873: l_party_tab t_party_tab ;
874: l_temp NUMBER;
875: l_party_cur NUMBER ;
876: l_dummy NUMBER ;

Line 952: -- current contents into DBMS_SQL PL/SQL table

948: l_length := length(l_str_copy) ;
949: l_count := l_count + 1 ;
950: IF l_length < 255 THEN
951: -- If length is < 255 char we can exit loop after copying
952: -- current contents into DBMS_SQL PL/SQL table
953: l_sql_tbl(l_count):= l_str_copy ;
954: EXIT;
955: ELSE
956: -- Copy 255 Characters and copy next 255 to the next row

Line 967: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN

963:
964:
965: l_count := 1 ;
966: -- Open the cursor and parse it
967: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
968: l_party_cur := DBMS_SQL.Open_Cursor ;
969: END IF;
970: DBMS_SQL.Parse(l_party_cur ,
971: l_sql_tbl,

Line 968: l_party_cur := DBMS_SQL.Open_Cursor ;

964:
965: l_count := 1 ;
966: -- Open the cursor and parse it
967: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
968: l_party_cur := DBMS_SQL.Open_Cursor ;
969: END IF;
970: DBMS_SQL.Parse(l_party_cur ,
971: l_sql_tbl,
972: l_sql_tbl.first,

Line 970: DBMS_SQL.Parse(l_party_cur ,

966: -- Open the cursor and parse it
967: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
968: l_party_cur := DBMS_SQL.Open_Cursor ;
969: END IF;
970: DBMS_SQL.Parse(l_party_cur ,
971: l_sql_tbl,
972: l_sql_tbl.first,
973: l_sql_tbl.last,
974: FALSE,

Line 975: DBMS_SQL.Native) ;

971: l_sql_tbl,
972: l_sql_tbl.first,
973: l_sql_tbl.last,
974: FALSE,
975: DBMS_SQL.Native) ;
976:
977: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
978: l_dummy := DBMS_SQL.Execute(l_party_cur);
979: LOOP

Line 977: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);

973: l_sql_tbl.last,
974: FALSE,
975: DBMS_SQL.Native) ;
976:
977: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
978: l_dummy := DBMS_SQL.Execute(l_party_cur);
979: LOOP
980: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
981: -- get column values of the row

Line 978: l_dummy := DBMS_SQL.Execute(l_party_cur);

974: FALSE,
975: DBMS_SQL.Native) ;
976:
977: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
978: l_dummy := DBMS_SQL.Execute(l_party_cur);
979: LOOP
980: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
981: -- get column values of the row
982: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);

Line 980: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN

976:
977: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
978: l_dummy := DBMS_SQL.Execute(l_party_cur);
979: LOOP
980: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
981: -- get column values of the row
982: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);
983: l_party_tab(l_count) := l_temp ;
984: l_count := l_count + 1 ;

Line 982: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);

978: l_dummy := DBMS_SQL.Execute(l_party_cur);
979: LOOP
980: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
981: -- get column values of the row
982: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);
983: l_party_tab(l_count) := l_temp ;
984: l_count := l_count + 1 ;
985: ELSE
986: -- No more rows to copy:

Line 991: DBMS_SQL.Close_Cursor(l_party_cur);

987: EXIT;
988: END IF;
989: END LOOP;
990:
991: DBMS_SQL.Close_Cursor(l_party_cur);
992:
993: --
994:
995: -- expires parties that no longer belong to the given market segment

Line 1049: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1045: END IF;
1046:
1047: EXCEPTION
1048: WHEN FND_API.g_exc_error THEN
1049: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1050: DBMS_SQL.Close_Cursor(l_party_cur) ;
1051: END IF;
1052: x_return_status := FND_API.g_ret_sts_error;
1053: FND_MSG_PUB.count_and_get(

Line 1050: DBMS_SQL.Close_Cursor(l_party_cur) ;

1046:
1047: EXCEPTION
1048: WHEN FND_API.g_exc_error THEN
1049: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1050: DBMS_SQL.Close_Cursor(l_party_cur) ;
1051: END IF;
1052: x_return_status := FND_API.g_ret_sts_error;
1053: FND_MSG_PUB.count_and_get(
1054: p_encoded => FND_API.g_false,

Line 1059: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058: WHEN FND_API.g_exc_unexpected_error THEN
1059: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1060: DBMS_SQL.Close_Cursor(l_party_cur) ;
1061: END IF;
1062: x_return_status := FND_API.g_ret_sts_unexp_error ;
1063: FND_MSG_PUB.count_and_get (

Line 1060: DBMS_SQL.Close_Cursor(l_party_cur) ;

1056: p_data => x_msg_data
1057: );
1058: WHEN FND_API.g_exc_unexpected_error THEN
1059: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1060: DBMS_SQL.Close_Cursor(l_party_cur) ;
1061: END IF;
1062: x_return_status := FND_API.g_ret_sts_unexp_error ;
1063: FND_MSG_PUB.count_and_get (
1064: p_encoded => FND_API.g_false,

Line 1070: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1066: p_data => x_msg_data
1067: );
1068: WHEN OTHERS THEN
1069: --
1070: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1071: DBMS_SQL.Close_Cursor(l_party_cur) ;
1072: END IF;
1073: x_return_status := FND_API.g_ret_sts_unexp_error ;
1074:

Line 1071: DBMS_SQL.Close_Cursor(l_party_cur) ;

1067: );
1068: WHEN OTHERS THEN
1069: --
1070: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1071: DBMS_SQL.Close_Cursor(l_party_cur) ;
1072: END IF;
1073: x_return_status := FND_API.g_ret_sts_unexp_error ;
1074:
1075: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

Line 1096: -- Native SQL or DBMS sql

1092: -- handle parties belonging to target segment, i.e., flag = 'N'
1093: -- History
1094: -- 01/21/2000 julou created
1095: -- 05/02/2000 ptendulk Modified , 1. Added Routines to execute sql as
1096: -- Native SQL or DBMS sql
1097: -------------------------------------------------------------------------------
1098: PROCEDURE Load_Tgt_Seg
1099: (
1100: p_mkt_seg_id IN NUMBER

Line 1111: l_sql_tbl DBMS_SQL.varchar2s ;

1107: IS
1108: l_api_name CONSTANT VARCHAR2(30) := 'load_tgt_seg';
1109:
1110: l_sql_str VARCHAR2(32767) := '' ;
1111: l_sql_tbl DBMS_SQL.varchar2s ;
1112: l_tmp_str VARCHAR2(2000) := '' ;
1113:
1114: l_count NUMBER ;
1115: l_str_copy VARCHAR2(2000);

Line 1116: -- Define the table type to store the party ids if the sql is DBMS_SQL

1112: l_tmp_str VARCHAR2(2000) := '' ;
1113:
1114: l_count NUMBER ;
1115: l_str_copy VARCHAR2(2000);
1116: -- Define the table type to store the party ids if the sql is DBMS_SQL
1117: l_party_tab t_party_tab ;
1118: l_length NUMBER ;
1119: l_party_cur NUMBER ;
1120: l_dummy NUMBER ;

Line 1178: -- current contents into DBMS_SQL PL/SQL table

1174: l_length := length(l_str_copy) ;
1175: l_count := l_count + 1 ;
1176: IF l_length < 255 THEN
1177: -- If length is < 255 char we can exit loop after copying
1178: -- current contents into DBMS_SQL PL/SQL table
1179: l_sql_tbl(l_count):= l_str_copy ;
1180: EXIT;
1181: ELSE
1182: -- Copy 255 Characters and copy next 255 to the next row

Line 1192: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN

1188: END LOOP ;
1189:
1190: l_count := 0 ;
1191: -- Open the cursor and parse it
1192: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
1193: l_party_cur := DBMS_SQL.Open_Cursor ;
1194: END IF;
1195: DBMS_SQL.Parse(l_party_cur ,
1196: l_sql_tbl,

Line 1193: l_party_cur := DBMS_SQL.Open_Cursor ;

1189:
1190: l_count := 0 ;
1191: -- Open the cursor and parse it
1192: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
1193: l_party_cur := DBMS_SQL.Open_Cursor ;
1194: END IF;
1195: DBMS_SQL.Parse(l_party_cur ,
1196: l_sql_tbl,
1197: l_sql_tbl.first,

Line 1195: DBMS_SQL.Parse(l_party_cur ,

1191: -- Open the cursor and parse it
1192: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
1193: l_party_cur := DBMS_SQL.Open_Cursor ;
1194: END IF;
1195: DBMS_SQL.Parse(l_party_cur ,
1196: l_sql_tbl,
1197: l_sql_tbl.first,
1198: l_sql_tbl.last,
1199: FALSE,

Line 1200: DBMS_SQL.Native) ;

1196: l_sql_tbl,
1197: l_sql_tbl.first,
1198: l_sql_tbl.last,
1199: FALSE,
1200: DBMS_SQL.Native) ;
1201:
1202: l_dummy := DBMS_SQL.Execute(l_party_cur);
1203:
1204: LOOP

Line 1202: l_dummy := DBMS_SQL.Execute(l_party_cur);

1198: l_sql_tbl.last,
1199: FALSE,
1200: DBMS_SQL.Native) ;
1201:
1202: l_dummy := DBMS_SQL.Execute(l_party_cur);
1203:
1204: LOOP
1205: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
1206: -- get column values of the row

Line 1205: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN

1201:
1202: l_dummy := DBMS_SQL.Execute(l_party_cur);
1203:
1204: LOOP
1205: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
1206: -- get column values of the row
1207: DBMS_SQL.COLUMN_VALUE(l_party_cur, 1, l_party_tab(l_count));
1208: l_count := l_count + 1 ;
1209: ELSE

Line 1207: DBMS_SQL.COLUMN_VALUE(l_party_cur, 1, l_party_tab(l_count));

1203:
1204: LOOP
1205: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
1206: -- get column values of the row
1207: DBMS_SQL.COLUMN_VALUE(l_party_cur, 1, l_party_tab(l_count));
1208: l_count := l_count + 1 ;
1209: ELSE
1210: -- No more rows to copy:
1211: EXIT;

Line 1215: DBMS_SQL.Close_Cursor(l_party_cur);

1211: EXIT;
1212: END IF;
1213: END LOOP;
1214:
1215: DBMS_SQL.Close_Cursor(l_party_cur);
1216:
1217: -- expires parties that no longer belong to the given market segment
1218: Expire_Inactive_Party_Dbms
1219: (

Line 1254: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1250: END IF;
1251:
1252: EXCEPTION
1253: WHEN FND_API.g_exc_error THEN
1254: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1255: DBMS_SQL.Close_Cursor(l_party_cur) ;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_error;
1258: FND_MSG_PUB.count_and_get(

Line 1255: DBMS_SQL.Close_Cursor(l_party_cur) ;

1251:
1252: EXCEPTION
1253: WHEN FND_API.g_exc_error THEN
1254: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1255: DBMS_SQL.Close_Cursor(l_party_cur) ;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_error;
1258: FND_MSG_PUB.count_and_get(
1259: p_encoded => FND_API.g_false,

Line 1264: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263: WHEN FND_API.g_exc_unexpected_error THEN
1264: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1265: DBMS_SQL.Close_Cursor(l_party_cur) ;
1266: END IF;
1267: x_return_status := FND_API.g_ret_sts_unexp_error ;
1268: FND_MSG_PUB.count_and_get (

Line 1265: DBMS_SQL.Close_Cursor(l_party_cur) ;

1261: p_data => x_msg_data
1262: );
1263: WHEN FND_API.g_exc_unexpected_error THEN
1264: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1265: DBMS_SQL.Close_Cursor(l_party_cur) ;
1266: END IF;
1267: x_return_status := FND_API.g_ret_sts_unexp_error ;
1268: FND_MSG_PUB.count_and_get (
1269: p_encoded => FND_API.g_false,

Line 1274: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

1270: p_count => x_msg_count,
1271: p_data => x_msg_data
1272: );
1273: WHEN OTHERS THEN
1274: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1275: DBMS_SQL.Close_Cursor(l_party_cur) ;
1276: END IF;
1277: x_return_status := FND_API.g_ret_sts_unexp_error ;
1278:

Line 1275: DBMS_SQL.Close_Cursor(l_party_cur) ;

1271: p_data => x_msg_data
1272: );
1273: WHEN OTHERS THEN
1274: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
1275: DBMS_SQL.Close_Cursor(l_party_cur) ;
1276: END IF;
1277: x_return_status := FND_API.g_ret_sts_unexp_error ;
1278:
1279: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN

Line 1674: -- process and execute it as native sql or use dbms sql

1670: -- PURPOSE
1671: -- This procedure is created to validate the discoverer sql created for
1672: -- the Cells . It will follow the following steps :
1673: -- 1. Check If the sql length is less than 32k , If it's less than 32k
1674: -- process and execute it as native sql or use dbms sql
1675: -- 2. Check for the party id between SELECT and FROM of the SQL string
1676: -- 3. Substitue the party id for every thing between select and from
1677: -- 4. Execute the query
1678: --

Line 1744: -- to DBMS_SQL package

1740: l_tmp_size NUMBER := 0 ;
1741: -- Size constraint to Use Native dynamic sql
1742: l_dbms_size NUMBER := 32767 ;
1743: -- The PL/SQL table which stores 255 character length strings to be passed
1744: -- to DBMS_SQL package
1745: -- l_sql_str DBMS_SQL.varchar2s ;
1746:
1747: l_found VARCHAR2(1) := FND_API.G_FALSE;
1748: l_found_in_str NUMBER := 0 ;

Line 1745: -- l_sql_str DBMS_SQL.varchar2s ;

1741: -- Size constraint to Use Native dynamic sql
1742: l_dbms_size NUMBER := 32767 ;
1743: -- The PL/SQL table which stores 255 character length strings to be passed
1744: -- to DBMS_SQL package
1745: -- l_sql_str DBMS_SQL.varchar2s ;
1746:
1747: l_found VARCHAR2(1) := FND_API.G_FALSE;
1748: l_found_in_str NUMBER := 0 ;
1749: l_position NUMBER := 0 ;

Line 1773: -- the query as Native SQL or DBMS_SQL

1769: --
1770: -- API body
1771: -- Take the sql query into PLSQL table
1772: -- Check the Size of the query depending on the Size Execute
1773: -- the query as Native SQL or DBMS_SQL
1774: l_count := 0 ;
1775: --
1776: OPEN c_ws_name ;
1777: FETCH c_ws_name INTO l_dummy ;

Line 1913: -- And decide if it is Native sql or DBMS SQL

1909: END IF;
1910: END IF ;
1911:
1912: -- We Have the query in PLSQL table now Find out the length of the query
1913: -- And decide if it is Native sql or DBMS SQL
1914: FOR i in l_workbook_sql.first..l_workbook_sql.last
1915: LOOP
1916: l_tmp_size := lengthb(l_workbook_sql(i)) ;
1917: l_size := l_size + l_tmp_size ;

Line 1921: AMS_Utility_PVT.debug_message(l_full_name||': DBMS_SQL');

1917: l_size := l_size + l_tmp_size ;
1918: END LOOP ;
1919:
1920: IF l_size < l_dbms_size THEN
1921: AMS_Utility_PVT.debug_message(l_full_name||': DBMS_SQL');
1922:
1923: x_sql_type := 'DBMS' ;
1924: ELSE
1925: AMS_Utility_PVT.debug_message(l_full_name||': NATIVE_SQL');

Line 2871: l_denorm_csr := DBMS_SQL.open_cursor;

2867: l_final_sql := l_final_sql || ', SYSDATE, FND_GLOBAL.user_id, FND_GLOBAL.conc_login_id, 1, 0';
2868: l_final_sql := l_final_sql || ', ''N'', party_id, SYSDATE, NULL, :org_id org_id';
2869: l_final_sql := l_final_sql || ', ''TERRITORY'', :terr_id market_qualifier_reference, cust_account_id, cust_acct_site_id, site_use_code FROM (';
2870: l_final_sql := l_final_sql || l_party_select_sql || substr(l_party_where_sql, 1, length(l_party_where_sql)-4) || ')';
2871: l_denorm_csr := DBMS_SQL.open_cursor;
2872:
2873: DBMS_SQL.parse(l_denorm_csr, l_final_sql, DBMS_SQL.native);
2874: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':org_id', l_client_info);
2875: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':terr_id', p_terr_id);

Line 2873: DBMS_SQL.parse(l_denorm_csr, l_final_sql, DBMS_SQL.native);

2869: l_final_sql := l_final_sql || ', ''TERRITORY'', :terr_id market_qualifier_reference, cust_account_id, cust_acct_site_id, site_use_code FROM (';
2870: l_final_sql := l_final_sql || l_party_select_sql || substr(l_party_where_sql, 1, length(l_party_where_sql)-4) || ')';
2871: l_denorm_csr := DBMS_SQL.open_cursor;
2872:
2873: DBMS_SQL.parse(l_denorm_csr, l_final_sql, DBMS_SQL.native);
2874: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':org_id', l_client_info);
2875: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':terr_id', p_terr_id);
2876: FOR i IN NVL(l_final_bind_vars.FIRST, 1) .. NVL(l_final_bind_vars.LAST, 0) LOOP
2877: write_conc_log('D: bind vars ' || i || ' index=' || l_final_bind_vars(i).bind_index

Line 2874: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':org_id', l_client_info);

2870: l_final_sql := l_final_sql || l_party_select_sql || substr(l_party_where_sql, 1, length(l_party_where_sql)-4) || ')';
2871: l_denorm_csr := DBMS_SQL.open_cursor;
2872:
2873: DBMS_SQL.parse(l_denorm_csr, l_final_sql, DBMS_SQL.native);
2874: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':org_id', l_client_info);
2875: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':terr_id', p_terr_id);
2876: FOR i IN NVL(l_final_bind_vars.FIRST, 1) .. NVL(l_final_bind_vars.LAST, 0) LOOP
2877: write_conc_log('D: bind vars ' || i || ' index=' || l_final_bind_vars(i).bind_index
2878: || ' type=' || l_final_bind_vars(i).bind_type );

Line 2875: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':terr_id', p_terr_id);

2871: l_denorm_csr := DBMS_SQL.open_cursor;
2872:
2873: DBMS_SQL.parse(l_denorm_csr, l_final_sql, DBMS_SQL.native);
2874: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':org_id', l_client_info);
2875: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, ':terr_id', p_terr_id);
2876: FOR i IN NVL(l_final_bind_vars.FIRST, 1) .. NVL(l_final_bind_vars.LAST, 0) LOOP
2877: write_conc_log('D: bind vars ' || i || ' index=' || l_final_bind_vars(i).bind_index
2878: || ' type=' || l_final_bind_vars(i).bind_type );
2879: IF l_final_bind_vars(i).bind_type = G_BIND_TYPE_CHAR THEN

Line 2881: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_char);

2877: write_conc_log('D: bind vars ' || i || ' index=' || l_final_bind_vars(i).bind_index
2878: || ' type=' || l_final_bind_vars(i).bind_type );
2879: IF l_final_bind_vars(i).bind_type = G_BIND_TYPE_CHAR THEN
2880: write_conc_log('D: bind vars ' || i || ' char=' || l_final_bind_vars(i).bind_char);
2881: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_char);
2882: ELSIF l_final_bind_vars(i).bind_type = G_BIND_TYPE_NUMBER THEN
2883: write_conc_log('D: bind vars ' || i || ' number=' || l_final_bind_vars(i).bind_number);
2884: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_number);
2885: END IF;

Line 2884: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_number);

2880: write_conc_log('D: bind vars ' || i || ' char=' || l_final_bind_vars(i).bind_char);
2881: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_char);
2882: ELSIF l_final_bind_vars(i).bind_type = G_BIND_TYPE_NUMBER THEN
2883: write_conc_log('D: bind vars ' || i || ' number=' || l_final_bind_vars(i).bind_number);
2884: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_number);
2885: END IF;
2886: END LOOP;
2887:
2888: l_index := dbms_sql.execute(l_denorm_csr);

Line 2888: l_index := dbms_sql.execute(l_denorm_csr);

2884: DBMS_SQL.BIND_VARIABLE (l_denorm_csr, G_BIND_VAR_STRING || l_final_bind_vars(i).bind_index, l_final_bind_vars(i).bind_number);
2885: END IF;
2886: END LOOP;
2887:
2888: l_index := dbms_sql.execute(l_denorm_csr);
2889: write_conc_log('D: After executing ');
2890: dbms_sql.close_cursor(l_denorm_csr);
2891: /*
2892: OPEN l_party_cv FOR l_party_select_sql || substr(l_party_where_sql, 1, length(l_party_where_sql)-4);

Line 2890: dbms_sql.close_cursor(l_denorm_csr);

2886: END LOOP;
2887:
2888: l_index := dbms_sql.execute(l_denorm_csr);
2889: write_conc_log('D: After executing ');
2890: dbms_sql.close_cursor(l_denorm_csr);
2891: /*
2892: OPEN l_party_cv FOR l_party_select_sql || substr(l_party_where_sql, 1, length(l_party_where_sql)-4);
2893: LOOP
2894: FETCH l_party_cv INTO l_party_id,l_cust_account_id,l_cust_acct_site_id,l_cust_site_use_code;