1074: -- dbms_output.put_line(substr(sql_str,1,255));
1075: -- dbms_output.put_line(substr(sql_str,256,255));
1076: -- dbms_output.put_line(substr(sql_str,513,255));
1077:
1078: cid := dbms_sql.open_cursor;
1079:
1080: dbms_sql.parse(cid, sql_str , dbms_sql.native);
1081:
1082: /* Bug 4885978: Changed the length of vendor_name, vendor_num
1076: -- dbms_output.put_line(substr(sql_str,513,255));
1077:
1078: cid := dbms_sql.open_cursor;
1079:
1080: dbms_sql.parse(cid, sql_str , dbms_sql.native);
1081:
1082: /* Bug 4885978: Changed the length of vendor_name, vendor_num
1083: as specified in PO_VENDORS table */
1084:
1081:
1082: /* Bug 4885978: Changed the length of vendor_name, vendor_num
1083: as specified in PO_VENDORS table */
1084:
1085: dbms_sql.define_column(cid,1,p_vendor_record.vendor_name,240);
1086: dbms_sql.define_column(cid,2,p_vendor_record.vendor_id);
1087: dbms_sql.define_column(cid,3,p_vendor_record.vendor_num,30);
1088:
1089: IF NOT vendor_name_null THEN
1082: /* Bug 4885978: Changed the length of vendor_name, vendor_num
1083: as specified in PO_VENDORS table */
1084:
1085: dbms_sql.define_column(cid,1,p_vendor_record.vendor_name,240);
1086: dbms_sql.define_column(cid,2,p_vendor_record.vendor_id);
1087: dbms_sql.define_column(cid,3,p_vendor_record.vendor_num,30);
1088:
1089: IF NOT vendor_name_null THEN
1090:
1083: as specified in PO_VENDORS table */
1084:
1085: dbms_sql.define_column(cid,1,p_vendor_record.vendor_name,240);
1086: dbms_sql.define_column(cid,2,p_vendor_record.vendor_id);
1087: dbms_sql.define_column(cid,3,p_vendor_record.vendor_num,30);
1088:
1089: IF NOT vendor_name_null THEN
1090:
1091: dbms_sql.bind_variable(cid,'v_name',p_vendor_record.vendor_name);
1087: dbms_sql.define_column(cid,3,p_vendor_record.vendor_num,30);
1088:
1089: IF NOT vendor_name_null THEN
1090:
1091: dbms_sql.bind_variable(cid,'v_name',p_vendor_record.vendor_name);
1092:
1093: END IF;
1094:
1095: IF NOT vendor_id_null THEN
1093: END IF;
1094:
1095: IF NOT vendor_id_null THEN
1096:
1097: dbms_sql.bind_variable(cid,'v_id',p_vendor_record.vendor_id);
1098:
1099: END IF;
1100:
1101: IF NOT vendor_num_null THEN
1099: END IF;
1100:
1101: IF NOT vendor_num_null THEN
1102:
1103: dbms_sql.bind_variable(cid,'v_num',p_vendor_record.vendor_num);
1104:
1105: END IF;
1106:
1107: rows_processed := dbms_sql.execute_and_fetch(cid);
1103: dbms_sql.bind_variable(cid,'v_num',p_vendor_record.vendor_num);
1104:
1105: END IF;
1106:
1107: rows_processed := dbms_sql.execute_and_fetch(cid);
1108:
1109: IF rows_processed = 1 THEN
1110:
1111: IF vendor_name_null THEN
1108:
1109: IF rows_processed = 1 THEN
1110:
1111: IF vendor_name_null THEN
1112: dbms_sql.column_value(cid,1,p_vendor_record.vendor_name);
1113: END IF;
1114:
1115: IF vendor_id_null THEN
1116: dbms_sql.column_value(cid,2,p_vendor_record.vendor_id);
1112: dbms_sql.column_value(cid,1,p_vendor_record.vendor_name);
1113: END IF;
1114:
1115: IF vendor_id_null THEN
1116: dbms_sql.column_value(cid,2,p_vendor_record.vendor_id);
1117: END IF;
1118:
1119: IF vendor_num_null THEN
1120: dbms_sql.column_value(cid,3,p_vendor_record.vendor_num);
1116: dbms_sql.column_value(cid,2,p_vendor_record.vendor_id);
1117: END IF;
1118:
1119: IF vendor_num_null THEN
1120: dbms_sql.column_value(cid,3,p_vendor_record.vendor_num);
1121: END IF;
1122:
1123:
1124: p_vendor_record.error_record.error_status := 'S';
1133:
1134: END IF;
1135:
1136:
1137: IF dbms_sql.is_open(cid) THEN
1138: dbms_sql.close_cursor(cid);
1139: END IF;
1140:
1141: EXCEPTION
1134: END IF;
1135:
1136:
1137: IF dbms_sql.is_open(cid) THEN
1138: dbms_sql.close_cursor(cid);
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN others THEN
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN others THEN
1143: IF dbms_sql.is_open(cid) THEN
1144: dbms_sql.close_cursor(cid);
1145: END IF;
1146: p_vendor_record.error_record.error_status := 'U';
1147: p_vendor_record.error_record.error_message := sqlerrm;
1140:
1141: EXCEPTION
1142: WHEN others THEN
1143: IF dbms_sql.is_open(cid) THEN
1144: dbms_sql.close_cursor(cid);
1145: END IF;
1146: p_vendor_record.error_record.error_status := 'U';
1147: p_vendor_record.error_record.error_message := sqlerrm;
1148: IF (g_asn_debug = 'Y') THEN
1219: -- dbms_output.put_line(substr(X_sql_str,1,255));
1220: -- dbms_output.put_line(substr(X_sql_str,256,255));
1221: -- dbms_output.put_line(substr(X_sql_str,513,255));
1222:
1223: X_cid := dbms_sql.open_cursor;
1224:
1225: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1221: -- dbms_output.put_line(substr(X_sql_str,513,255));
1222:
1223: X_cid := dbms_sql.open_cursor;
1224:
1225: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1228: dbms_sql.define_column(X_cid,2,X_end_date_active);
1229: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
1223: X_cid := dbms_sql.open_cursor;
1224:
1225: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1228: dbms_sql.define_column(X_cid,2,X_end_date_active);
1229: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
1230: dbms_sql.define_column(X_cid,4,X_hold_flag,1);
1231:
1224:
1225: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1228: dbms_sql.define_column(X_cid,2,X_end_date_active);
1229: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
1230: dbms_sql.define_column(X_cid,4,X_hold_flag,1);
1231:
1232: IF NOT X_vendor_name_null THEN
1225: dbms_sql.parse(X_cid, X_sql_str , dbms_sql.native);
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1228: dbms_sql.define_column(X_cid,2,X_end_date_active);
1229: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
1230: dbms_sql.define_column(X_cid,4,X_hold_flag,1);
1231:
1232: IF NOT X_vendor_name_null THEN
1233:
1226:
1227: dbms_sql.define_column(X_cid,1,X_start_date_active);
1228: dbms_sql.define_column(X_cid,2,X_end_date_active);
1229: dbms_sql.define_column(X_cid,3,X_enabled_flag,1);
1230: dbms_sql.define_column(X_cid,4,X_hold_flag,1);
1231:
1232: IF NOT X_vendor_name_null THEN
1233:
1234: dbms_sql.bind_variable(X_cid,'v_name',p_vendor_record.vendor_name);
1230: dbms_sql.define_column(X_cid,4,X_hold_flag,1);
1231:
1232: IF NOT X_vendor_name_null THEN
1233:
1234: dbms_sql.bind_variable(X_cid,'v_name',p_vendor_record.vendor_name);
1235:
1236: END IF;
1237:
1238: IF NOT X_vendor_id_null THEN
1236: END IF;
1237:
1238: IF NOT X_vendor_id_null THEN
1239:
1240: dbms_sql.bind_variable(X_cid,'v_id',p_vendor_record.vendor_id);
1241:
1242: END IF;
1243:
1244: IF NOT X_vendor_num_null THEN
1242: END IF;
1243:
1244: IF NOT X_vendor_num_null THEN
1245:
1246: dbms_sql.bind_variable(X_cid,'v_num',p_vendor_record.vendor_num);
1247:
1248: END IF;
1249:
1250: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
1246: dbms_sql.bind_variable(X_cid,'v_num',p_vendor_record.vendor_num);
1247:
1248: END IF;
1249:
1250: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
1251:
1252: IF X_rows_processed = 1 THEN
1253:
1254: dbms_sql.column_value(X_cid,1,X_start_date_active);
1250: X_rows_processed := dbms_sql.execute_and_fetch(X_cid);
1251:
1252: IF X_rows_processed = 1 THEN
1253:
1254: dbms_sql.column_value(X_cid,1,X_start_date_active);
1255: dbms_sql.column_value(X_cid,2,X_end_date_active);
1256: dbms_sql.column_value(X_cid,3,X_enabled_flag);
1257: dbms_sql.column_value(X_cid,4,X_hold_flag);
1258:
1251:
1252: IF X_rows_processed = 1 THEN
1253:
1254: dbms_sql.column_value(X_cid,1,X_start_date_active);
1255: dbms_sql.column_value(X_cid,2,X_end_date_active);
1256: dbms_sql.column_value(X_cid,3,X_enabled_flag);
1257: dbms_sql.column_value(X_cid,4,X_hold_flag);
1258:
1259: -- Check for whether vendor is enabled in the active date range
1252: IF X_rows_processed = 1 THEN
1253:
1254: dbms_sql.column_value(X_cid,1,X_start_date_active);
1255: dbms_sql.column_value(X_cid,2,X_end_date_active);
1256: dbms_sql.column_value(X_cid,3,X_enabled_flag);
1257: dbms_sql.column_value(X_cid,4,X_hold_flag);
1258:
1259: -- Check for whether vendor is enabled in the active date range
1260:
1253:
1254: dbms_sql.column_value(X_cid,1,X_start_date_active);
1255: dbms_sql.column_value(X_cid,2,X_end_date_active);
1256: dbms_sql.column_value(X_cid,3,X_enabled_flag);
1257: dbms_sql.column_value(X_cid,4,X_hold_flag);
1258:
1259: -- Check for whether vendor is enabled in the active date range
1260:
1261: IF NOT (X_sysdate BETWEEN nvl(X_start_date_active, X_sysdate -1)
1265: -- dbms_output.put_line('Vendor not active');
1266: p_vendor_record.error_record.error_status := 'E';
1267: p_vendor_record.error_record.error_message := 'VEN_DISABLED';
1268:
1269: IF dbms_sql.is_open(X_cid) THEN
1270: dbms_sql.close_cursor(X_cid);
1271: END IF;
1272:
1273: RETURN;
1266: p_vendor_record.error_record.error_status := 'E';
1267: p_vendor_record.error_record.error_message := 'VEN_DISABLED';
1268:
1269: IF dbms_sql.is_open(X_cid) THEN
1270: dbms_sql.close_cursor(X_cid);
1271: END IF;
1272:
1273: RETURN;
1274:
1280: -- dbms_output.put_line('Vendor is on hold');
1281: p_vendor_record.error_record.error_status := 'E';
1282: p_vendor_record.error_record.error_message := 'VEN_HOLD';
1283:
1284: IF dbms_sql.is_open(X_cid) THEN
1285: dbms_sql.close_cursor(X_cid);
1286: END IF;
1287:
1288: RETURN;
1281: p_vendor_record.error_record.error_status := 'E';
1282: p_vendor_record.error_record.error_message := 'VEN_HOLD';
1283:
1284: IF dbms_sql.is_open(X_cid) THEN
1285: dbms_sql.close_cursor(X_cid);
1286: END IF;
1287:
1288: RETURN;
1289:
1303: p_vendor_record.error_record.error_message := 'TOOMANYROWS';
1304:
1305: END IF;
1306:
1307: IF dbms_sql.is_open(X_cid) THEN
1308: dbms_sql.close_cursor(X_cid);
1309: END IF;
1310:
1311: EXCEPTION
1304:
1305: END IF;
1306:
1307: IF dbms_sql.is_open(X_cid) THEN
1308: dbms_sql.close_cursor(X_cid);
1309: END IF;
1310:
1311: EXCEPTION
1312: WHEN OTHERS THEN
1309: END IF;
1310:
1311: EXCEPTION
1312: WHEN OTHERS THEN
1313: IF dbms_sql.is_open(X_cid) THEN
1314: dbms_sql.close_cursor(X_cid);
1315: END IF;
1316: p_vendor_record.error_record.error_message := sqlerrm;
1317: p_vendor_record.error_record.error_status := 'U';
1310:
1311: EXCEPTION
1312: WHEN OTHERS THEN
1313: IF dbms_sql.is_open(X_cid) THEN
1314: dbms_sql.close_cursor(X_cid);
1315: END IF;
1316: p_vendor_record.error_record.error_message := sqlerrm;
1317: p_vendor_record.error_record.error_status := 'U';
1318: IF (g_asn_debug = 'Y') THEN