982: USING X_Organization_Id;
983: --
984: -- Section commented out as part of fix for bug 1858597
985: --
986: /*l_cursor := dbms_sql.open_cursor;
987: --
988: -- construct an anonymous block with bind variable
989: --
990: l_proc_call := 'BEGIN '||
991: l_package_name||'.'||
992: l_procedure_name||
993: '(:X_ORGANIZATION_ID); END;';
994: --
995: dbms_sql.parse(l_cursor, l_proc_call, dbms_sql.v7);
996: --
997: -- Bind the Org Id into the procedure call
998: --
999: dbms_sql.bind_variable(l_cursor, 'X_ORGANIZATION_ID', X_Organization_id);
995: dbms_sql.parse(l_cursor, l_proc_call, dbms_sql.v7);
996: --
997: -- Bind the Org Id into the procedure call
998: --
999: dbms_sql.bind_variable(l_cursor, 'X_ORGANIZATION_ID', X_Organization_id);
1000: --
1001: -- Execute the block
1002: --
1003: l_dummy := dbms_sql.execute(l_cursor);*/
999: dbms_sql.bind_variable(l_cursor, 'X_ORGANIZATION_ID', X_Organization_id);
1000: --
1001: -- Execute the block
1002: --
1003: l_dummy := dbms_sql.execute(l_cursor);*/
1004: --
1005: end if;
1006: --
1007: end if;
1075: ||'and hoi.org_information_context = ''Accounting Information''';
1076: --
1077: -- Open Cursor for Processing Sql statment.
1078: --
1079: l_sql_cursor := dbms_sql.open_cursor;
1080: --
1081: -- Parse SQL statement.
1082: -- uses 1 as NATIVE DATABASE
1083: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1079: l_sql_cursor := dbms_sql.open_cursor;
1080: --
1081: -- Parse SQL statement.
1082: -- uses 1 as NATIVE DATABASE
1083: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1084: --
1085: -- Map the local variables to each returned Column
1086: --
1087: dbms_sql.define_column(l_sql_cursor, 1,X_SOB_ID);
1083: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1084: --
1085: -- Map the local variables to each returned Column
1086: --
1087: dbms_sql.define_column(l_sql_cursor, 1,X_SOB_ID);
1088: --
1089: -- Execute the SQL statement.
1090: --
1091: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1087: dbms_sql.define_column(l_sql_cursor, 1,X_SOB_ID);
1088: --
1089: -- Execute the SQL statement.
1090: --
1091: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1092: --
1093: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1094: then
1095: --
1089: -- Execute the SQL statement.
1090: --
1091: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1092: --
1093: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1094: then
1095: --
1096: -- Extract the select list for the current row into local variables.
1097: --
1094: then
1095: --
1096: -- Extract the select list for the current row into local variables.
1097: --
1098: dbms_sql.column_value(l_sql_cursor, 1,X_SOB_ID);
1099: --
1100: else
1101: fnd_message.set_name('INV','INV_ACCOUNT_BEFORE_INV');
1102: fnd_message.raise_error;
1100: else
1101: fnd_message.set_name('INV','INV_ACCOUNT_BEFORE_INV');
1102: fnd_message.raise_error;
1103: end if;
1104: dbms_sql.close_cursor(l_sql_cursor);
1105: if X_DESTINATION in ('RCV_ORGANIZATION_PARAMETERS'
1106: ,'MRP_ORGANIZATION_PARAMETERS'
1107: ,'WIP_ORGANIZATION_PARAMETERS')
1108: then
1117: end if;
1118: --
1119: -- Open Cursor for Processing Sql statment.
1120: --
1121: l_sql_cursor := dbms_sql.open_cursor;
1122: --
1123: -- Parse SQL statement.
1124: -- uses 1 as NATIVE DATABASE
1125: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1121: l_sql_cursor := dbms_sql.open_cursor;
1122: --
1123: -- Parse SQL statement.
1124: -- uses 1 as NATIVE DATABASE
1125: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1126: --
1127: -- Map the local variables to each returned Column
1128: --
1129: dbms_sql.define_column(l_sql_cursor, 1,X_ORG_CODE,l_act_length);
1125: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1126: --
1127: -- Map the local variables to each returned Column
1128: --
1129: dbms_sql.define_column(l_sql_cursor, 1,X_ORG_CODE,l_act_length);
1130: --
1131: -- Execute the SQL statement.
1132: --
1133: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1129: dbms_sql.define_column(l_sql_cursor, 1,X_ORG_CODE,l_act_length);
1130: --
1131: -- Execute the SQL statement.
1132: --
1133: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1134: --
1135: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1136: then
1137: --
1131: -- Execute the SQL statement.
1132: --
1133: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1134: --
1135: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1136: then
1137: --
1138: -- Extract the select list for the current row into local variables.
1139: --
1136: then
1137: --
1138: -- Extract the select list for the current row into local variables.
1139: --
1140: dbms_sql.column_value(l_sql_cursor, 1,X_ORG_CODE);
1141: --
1142: else
1143: if X_DESTINATION = 'WIP_ORGANIZATION_PARAMETERS' then
1144: fnd_message.set_name('WIP','WIP_PARAMETERS_NOT_ALLOWED');
1146: fnd_message.set_name('INV','INV_ACCOUNT_BEFORE_INV');
1147: end if;
1148: fnd_message.raise_error;
1149: end if;
1150: dbms_sql.close_cursor(l_sql_cursor);
1151: --
1152: if X_DESTINATION = 'RCV_ORGANIZATION_PARAMETERS' then
1153: l_sql_text := 'select gsb.chart_of_accounts_id '
1154: ||' from gl_sets_of_books gsb '
1155: ||' where gsb.set_of_books_id = '||to_char(X_SOB_ID);
1156: --
1157: -- Open Cursor for Processing Sql statment.
1158: --
1159: l_sql_cursor := dbms_sql.open_cursor;
1160: --
1161: -- Parse SQL statement.
1162: -- uses 1 as NATIVE DATABASE
1163: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1159: l_sql_cursor := dbms_sql.open_cursor;
1160: --
1161: -- Parse SQL statement.
1162: -- uses 1 as NATIVE DATABASE
1163: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1164: --
1165: -- Map the local variables to each returned Column
1166: --
1167: dbms_sql.define_column(l_sql_cursor, 1,X_CHART_OF_ACCOUNTS);
1163: dbms_sql.parse(l_sql_cursor, l_sql_text, 1);
1164: --
1165: -- Map the local variables to each returned Column
1166: --
1167: dbms_sql.define_column(l_sql_cursor, 1,X_CHART_OF_ACCOUNTS);
1168: --
1169: -- Execute the SQL statement.
1170: --
1171: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1167: dbms_sql.define_column(l_sql_cursor, 1,X_CHART_OF_ACCOUNTS);
1168: --
1169: -- Execute the SQL statement.
1170: --
1171: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1172: --
1173: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1174: then
1175: --
1169: -- Execute the SQL statement.
1170: --
1171: l_rows_fetched := dbms_sql.execute(l_sql_cursor);
1172: --
1173: if (dbms_sql.fetch_rows(l_sql_cursor) > 0)
1174: then
1175: --
1176: -- Extract the select list for the current row into local variables.
1177: --
1174: then
1175: --
1176: -- Extract the select list for the current row into local variables.
1177: --
1178: dbms_sql.column_value(l_sql_cursor, 1,X_CHART_OF_ACCOUNTS);
1179: --
1180: else
1181: fnd_message.set_name('INV','INV_ACCOUNT_BEFORE_INV');
1182: fnd_message.raise_error;
1180: else
1181: fnd_message.set_name('INV','INV_ACCOUNT_BEFORE_INV');
1182: fnd_message.raise_error;
1183: end if;
1184: dbms_sql.close_cursor(l_sql_cursor);
1185: end if;
1186: end if;
1187: end if;
1188: end zoom_forms;