[Home] [Help]
270:
271: /* BEGIN BUG#1810652 James Bernard */
272: /* Added 'c_item_id is NULL or' in the where clause */
273: CURSOR get_cust_rslt_info (c_orgn_code gmd_samples.orgn_code%TYPE,
274: c_item_id ic_item_mst.item_id%TYPE,
275: c_lot_id ic_lots_mst.lot_id%TYPE,
276: c_lot_no ic_lots_mst.lot_no%TYPE,
277: c_cust_id hz_cust_accounts.cust_account_id%TYPE) IS
278: select gr.result_id qc_result_id,
323: /* use the next cursor if no rows returned from get_cust_rslt_info */
324: /* BEGIN BUG#1810652 James Bernard */
325: /* Added 'c_item_id is NULL or' and 'c_lot_id is NULL or' in the where clause */
326: CURSOR get_item_rslt_info (c_orgn_code gmd_samples.orgn_code%TYPE,
327: c_item_id ic_item_mst.item_id%TYPE,
328: c_lot_no ic_lots_mst.lot_no%TYPE,
329: c_lot_id ic_lots_mst.lot_id%TYPE) IS
330: select gr.result_id qc_result_id,
331: gst.spec_id qc_spec_id,
382:
383: /*END BUG#1810652 */
384:
385:
386: CURSOR get_cust_spec (c_item_id ic_item_mst.item_id%TYPE,
387: c_cust_id hz_cust_accounts.cust_account_id%TYPE,
388: c_orgn_code gmd_customer_spec_vrs.ORGN_CODE%TYPE,
389: c_assay_code gmd_qc_tests_b.TEST_CODE%TYPE)
390: IS
405: and gcs.cust_id = c_cust_id
406: and gcs.orgn_code = c_orgn_code
407: and gsb.delete_mark= 0;
408:
409: CURSOR get_global_cust_spec (c_item_id ic_item_mst.item_id%TYPE,
410: c_cust_id hz_cust_accounts.cust_account_id%TYPE,
411: c_assay_code gmd_qc_tests_b.TEST_CODE%TYPE)
412: IS
413: select gsb.spec_id qc_spec_id,
836: wsh_new_deliveries wnd,
837: wsh_delivery_assignments wda,
838: mtl_parameters ship_from_org,
839: mtl_system_items msi,
840: ic_item_mst ic,
841: hz_cust_accounts c,
842: hz_cust_site_uses_all s,
843: hz_cust_acct_sites_all a,
844: hz_parties pr
928: WHERE bol_id = c_bol_id
929: and delete_mark = 0
930: ;*/
931:
932: /* CURSOR get_item_info (c_item_id ic_item_mst.item_id%TYPE) IS
933: SELECT item_no,
934: item_desc1
935: FROM
936: ic_item_mst
932: /* CURSOR get_item_info (c_item_id ic_item_mst.item_id%TYPE) IS
933: SELECT item_no,
934: item_desc1
935: FROM
936: ic_item_mst
937: WHERE item_id = c_item_id
938: and delete_mark = 0
939: ;*/
940:
1114:
1115:
1116:
1117: /* if generic id exists in sales order record, get item no and desc */
1118: /* from op_gnrc_itm, else get item no and desc from ic_item_mst */
1119:
1120: -- IF ord_cur_rec.generic_id is not NULL THEN
1121: -- FOR gnrc_cur_rec IN get_gnrc_info (ord_cur_rec.generic_id) LOOP
1122: -- tbl_hdr(tbl_ndx).item_no := gnrc_cur_rec.generic_item;
1127: -- FOR item_cur_rec IN get_item_info (ord_cur_rec.item_id) LOOP
1128: -- tbl_hdr(tbl_ndx).item_no := item_cur_rec.item_no;
1129: -- tbl_hdr(tbl_ndx).item_desc := item_cur_rec.item_desc1;
1130: -- END LOOP;
1131: /* end getting item info from ic_item_mst */
1132: -- END IF;
1133: /* end if generic_id has a value */
1134: /* fill in whse, customer name, bol no at end of code */
1135:
1249: /* end getting cust info from hz tables */
1250: -- END IF;
1251: /* end checking if cust id has a value */
1252:
1253: /* get item no and description from ic_item_mst if it was not */
1254: /* selected as part of generic item check. */
1255: /* It is correct to check item_NO, not item_ID! */
1256:
1257: -- IF tbl_hdr(loop_counter).item_no is NULL THEN
1258: -- FOR item_cur_rec IN get_item_info (tbl_hdr(loop_counter).item_id) LOOP
1259: -- tbl_hdr(loop_counter).item_no := item_cur_rec.item_no;
1260: -- tbl_hdr(loop_counter).item_desc := item_cur_rec.item_desc1;
1261: -- END LOOP;
1262: /* end getting item info from ic_item_mst */
1263: -- END IF;
1264: /* end checking if item id has a value */
1265:
1266: