323: X_where:= X_where||' AND i.item_id in (select distinct item_id '
324: ||' FROM mr_tran_tbl WHERE mrp_id= to_char(:6) )' ;
325: END IF;
326:
327: cur_planning := dbms_sql.open_cursor;
328: dbms_sql.parse (cur_planning, X_where,dbms_sql.NATIVE);
329: dbms_sql.bind_variable(cur_planning, ':1', G_Buyer_plnr_id);
330:
331: IF (G_fplanning_class IS NOT NULL) THEN
324: ||' FROM mr_tran_tbl WHERE mrp_id= to_char(:6) )' ;
325: END IF;
326:
327: cur_planning := dbms_sql.open_cursor;
328: dbms_sql.parse (cur_planning, X_where,dbms_sql.NATIVE);
329: dbms_sql.bind_variable(cur_planning, ':1', G_Buyer_plnr_id);
330:
331: IF (G_fplanning_class IS NOT NULL) THEN
332: dbms_sql.bind_variable(cur_planning, ':2', G_fplanning_class);
325: END IF;
326:
327: cur_planning := dbms_sql.open_cursor;
328: dbms_sql.parse (cur_planning, X_where,dbms_sql.NATIVE);
329: dbms_sql.bind_variable(cur_planning, ':1', G_Buyer_plnr_id);
330:
331: IF (G_fplanning_class IS NOT NULL) THEN
332: dbms_sql.bind_variable(cur_planning, ':2', G_fplanning_class);
333: END IF;
328: dbms_sql.parse (cur_planning, X_where,dbms_sql.NATIVE);
329: dbms_sql.bind_variable(cur_planning, ':1', G_Buyer_plnr_id);
330:
331: IF (G_fplanning_class IS NOT NULL) THEN
332: dbms_sql.bind_variable(cur_planning, ':2', G_fplanning_class);
333: END IF;
334: IF (G_tplanning_class IS NOT NULL) THEN
335: dbms_sql.bind_variable(cur_planning, ':3', G_tplanning_class);
336: END IF;
331: IF (G_fplanning_class IS NOT NULL) THEN
332: dbms_sql.bind_variable(cur_planning, ':2', G_fplanning_class);
333: END IF;
334: IF (G_tplanning_class IS NOT NULL) THEN
335: dbms_sql.bind_variable(cur_planning, ':3', G_tplanning_class);
336: END IF;
337: IF (G_fitem_no IS NOT NULL) THEN
338: dbms_sql.bind_variable(cur_planning, ':4', G_fitem_no);
339: END IF;
334: IF (G_tplanning_class IS NOT NULL) THEN
335: dbms_sql.bind_variable(cur_planning, ':3', G_tplanning_class);
336: END IF;
337: IF (G_fitem_no IS NOT NULL) THEN
338: dbms_sql.bind_variable(cur_planning, ':4', G_fitem_no);
339: END IF;
340: IF (G_titem_no IS NOT NULL) THEN
341: dbms_sql.bind_variable(cur_planning, ':5', G_titem_no);
342: END IF;
337: IF (G_fitem_no IS NOT NULL) THEN
338: dbms_sql.bind_variable(cur_planning, ':4', G_fitem_no);
339: END IF;
340: IF (G_titem_no IS NOT NULL) THEN
341: dbms_sql.bind_variable(cur_planning, ':5', G_titem_no);
342: END IF;
343: IF (G_mrp_id IS NOT NULL) THEN
344: dbms_sql.bind_variable(cur_planning, ':6', G_mrp_id);
345: END IF;
340: IF (G_titem_no IS NOT NULL) THEN
341: dbms_sql.bind_variable(cur_planning, ':5', G_titem_no);
342: END IF;
343: IF (G_mrp_id IS NOT NULL) THEN
344: dbms_sql.bind_variable(cur_planning, ':6', G_mrp_id);
345: END IF;
346:
347: dbms_sql.define_column (cur_planning, 1, X_planning_class, 8);
348: dbms_sql.define_column (cur_planning, 2, X_item_id);
343: IF (G_mrp_id IS NOT NULL) THEN
344: dbms_sql.bind_variable(cur_planning, ':6', G_mrp_id);
345: END IF;
346:
347: dbms_sql.define_column (cur_planning, 1, X_planning_class, 8);
348: dbms_sql.define_column (cur_planning, 2, X_item_id);
349:
350: X_row_count := dbms_sql.execute_and_fetch (cur_planning);
351: IF X_row_count > 0 THEN
344: dbms_sql.bind_variable(cur_planning, ':6', G_mrp_id);
345: END IF;
346:
347: dbms_sql.define_column (cur_planning, 1, X_planning_class, 8);
348: dbms_sql.define_column (cur_planning, 2, X_item_id);
349:
350: X_row_count := dbms_sql.execute_and_fetch (cur_planning);
351: IF X_row_count > 0 THEN
352: SELECT gem5_matl_rep_id_s.nextval INTO X_rep_id FROM dual;
346:
347: dbms_sql.define_column (cur_planning, 1, X_planning_class, 8);
348: dbms_sql.define_column (cur_planning, 2, X_item_id);
349:
350: X_row_count := dbms_sql.execute_and_fetch (cur_planning);
351: IF X_row_count > 0 THEN
352: SELECT gem5_matl_rep_id_s.nextval INTO X_rep_id FROM dual;
353:
354: G_matl_rep_id := X_rep_id;
353:
354: G_matl_rep_id := X_rep_id;
355: X_i := 0;
356: LOOP
357: dbms_sql.column_value (cur_planning, 1, X_Planning_class);
358: dbms_sql.column_value (cur_planning, 2, X_Item_id);
359: X_i := X_i + 1;
360: G_planning_tab(X_i).planning_class := X_planning_class;
361: G_planning_tab(X_i).item_id := X_item_id;
354: G_matl_rep_id := X_rep_id;
355: X_i := 0;
356: LOOP
357: dbms_sql.column_value (cur_planning, 1, X_Planning_class);
358: dbms_sql.column_value (cur_planning, 2, X_Item_id);
359: X_i := X_i + 1;
360: G_planning_tab(X_i).planning_class := X_planning_class;
361: G_planning_tab(X_i).item_id := X_item_id;
362: -- Inserts the data into Header table.
364:
365: INSERT INTO ps_matl_hdr (matl_rep_id,planning_class,item_id)
366: VALUES(X_rep_id,X_planning_class,X_item_id);
367:
368: IF dbms_sql.fetch_rows (cur_planning) <= 0 then
369: EXIT;
370: END IF;
371:
372: END LOOP;
371:
372: END LOOP;
373:
374: END IF;
375: dbms_sql.close_cursor (cur_planning);
376: EXCEPTION
377: WHEN OTHERS THEN
378: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
379: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error writing to Header'||sqlerrm);
520: '||''''||'LEXP'||''''||','||''''||'PRCV'||''''||','||''''||'SHMT'||''''||',
521: '||''''||'PBPR'||''''||','||''''||'XFER'||''''||','||''''||'PBPO'||''''||')'||
522: ' ORDER BY 2 ASC, 5 DESC';
523:
524: X_doc := dbms_sql.open_cursor;
525: dbms_sql.parse(X_doc, X_select,dbms_sql.NATIVE);
526:
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
521: '||''''||'PBPR'||''''||','||''''||'XFER'||''''||','||''''||'PBPO'||''''||')'||
522: ' ORDER BY 2 ASC, 5 DESC';
523:
524: X_doc := dbms_sql.open_cursor;
525: dbms_sql.parse(X_doc, X_select,dbms_sql.NATIVE);
526:
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
523:
524: X_doc := dbms_sql.open_cursor;
525: dbms_sql.parse(X_doc, X_select,dbms_sql.NATIVE);
526:
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
524: X_doc := dbms_sql.open_cursor;
525: dbms_sql.parse(X_doc, X_select,dbms_sql.NATIVE);
526:
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
526:
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
527: dbms_sql.bind_variable(X_doc,':1',G_mrp_id);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
528: dbms_sql.bind_variable(X_doc,':2',V_item_id);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
529:
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
530: dbms_sql.define_column(X_doc, 1, X_doc_type,4);
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
538:
531: dbms_sql.define_column(X_doc, 2, X_trans_date);
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
538:
539:
532: dbms_sql.define_column(X_doc, 3, X_orgn_code,4);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
538:
539:
540: X_row_count := dbms_sql.execute(X_doc);
533: dbms_sql.define_column(X_doc, 4, X_doc_id);
534: dbms_sql.define_column(X_doc, 5, X_trans_qty);
535: dbms_sql.define_column(X_doc, 6, X_cust_vend,32);
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
538:
539:
540: X_row_count := dbms_sql.execute(X_doc);
541:
536: dbms_sql.define_column(X_doc, 7, X_line_no);
537: dbms_sql.define_column(X_doc, 8, X_whse_code,4);
538:
539:
540: X_row_count := dbms_sql.execute(X_doc);
541:
542: X_first_flag := 1;
543:
544: --IF X_row_count > 0
543:
544: --IF X_row_count > 0
545: --THEN
546: LOOP
547: X_row_count := dbms_sql.fetch_rows (X_doc);
548: IF X_row_count = 0 THEN
549: EXIT;
550: END IF;
551: X_i := X_i + 1;
548: IF X_row_count = 0 THEN
549: EXIT;
550: END IF;
551: X_i := X_i + 1;
552: dbms_sql.column_value(X_doc, 1, X_doc_type);
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
549: EXIT;
550: END IF;
551: X_i := X_i + 1;
552: dbms_sql.column_value(X_doc, 1, X_doc_type);
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
550: END IF;
551: X_i := X_i + 1;
552: dbms_sql.column_value(X_doc, 1, X_doc_type);
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
551: X_i := X_i + 1;
552: dbms_sql.column_value(X_doc, 1, X_doc_type);
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
559: dbms_sql.column_value(X_doc, 8, X_whse_code);
552: dbms_sql.column_value(X_doc, 1, X_doc_type);
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
559: dbms_sql.column_value(X_doc, 8, X_whse_code);
560: --
553: dbms_sql.column_value(X_doc, 2, X_trans_date);
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
559: dbms_sql.column_value(X_doc, 8, X_whse_code);
560: --
561: G_doc_tab(X_i).doc_type := X_doc_type;
554: dbms_sql.column_value(X_doc, 3, X_orgn_code);
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
559: dbms_sql.column_value(X_doc, 8, X_whse_code);
560: --
561: G_doc_tab(X_i).doc_type := X_doc_type;
562: G_doc_type := G_doc_tab(X_i).doc_type;
555: dbms_sql.column_value(X_doc, 4, X_doc_id);
556: dbms_sql.column_value(X_doc, 5, X_trans_qty);
557: dbms_sql.column_value(X_doc, 6, X_cust_vend);
558: dbms_sql.column_value(X_doc, 7, X_line_no);
559: dbms_sql.column_value(X_doc, 8, X_whse_code);
560: --
561: G_doc_tab(X_i).doc_type := X_doc_type;
562: G_doc_type := G_doc_tab(X_i).doc_type;
563: G_doc_tab(X_i).trans_date := X_trans_date;
706:
707: G_c_ind := '';
708: END LOOP;
709: G_doc_tab.delete;
710: dbms_sql.close_cursor(X_doc);
711: --END IF;
712: --
713: /* if there are no transactions then that item row is deleted from
714: header table. */
893: ' AND whse_code in (' || G_whse_list || ') ' ||
894: ' AND doc_type='||''''||'BAL'||''''||
895: ' group by mr.doc_type';
896:
897: cur_balance := dbms_sql.open_cursor;
898: dbms_sql.parse (cur_balance, X_select1,dbms_sql.NATIVE);
899:
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
894: ' AND doc_type='||''''||'BAL'||''''||
895: ' group by mr.doc_type';
896:
897: cur_balance := dbms_sql.open_cursor;
898: dbms_sql.parse (cur_balance, X_select1,dbms_sql.NATIVE);
899:
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
896:
897: cur_balance := dbms_sql.open_cursor;
898: dbms_sql.parse (cur_balance, X_select1,dbms_sql.NATIVE);
899:
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
897: cur_balance := dbms_sql.open_cursor;
898: dbms_sql.parse (cur_balance, X_select1,dbms_sql.NATIVE);
899:
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
905: IF dbms_sql.fetch_rows (cur_balance) > 0 then
899:
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
905: IF dbms_sql.fetch_rows (cur_balance) > 0 then
906: dbms_sql.column_value (cur_balance, 1, G_on_hand1);
907: ELSE
900: dbms_sql.bind_variable(cur_balance,':1',G_mrp_id);
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
905: IF dbms_sql.fetch_rows (cur_balance) > 0 then
906: dbms_sql.column_value (cur_balance, 1, G_on_hand1);
907: ELSE
908: G_on_hand1 := 0;
901: dbms_sql.bind_variable(cur_balance,':2',V_item_id);
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
905: IF dbms_sql.fetch_rows (cur_balance) > 0 then
906: dbms_sql.column_value (cur_balance, 1, G_on_hand1);
907: ELSE
908: G_on_hand1 := 0;
909: END IF;
902:
903: dbms_sql.define_column (cur_balance, 1, G_on_hand1);
904: X_row_count := dbms_sql.execute(cur_balance);
905: IF dbms_sql.fetch_rows (cur_balance) > 0 then
906: dbms_sql.column_value (cur_balance, 1, G_on_hand1);
907: ELSE
908: G_on_hand1 := 0;
909: END IF;
910: dbms_sql.close_cursor (cur_balance);
906: dbms_sql.column_value (cur_balance, 1, G_on_hand1);
907: ELSE
908: G_on_hand1 := 0;
909: END IF;
910: dbms_sql.close_cursor (cur_balance);
911: --
912: G_balance1 := G_on_hand1;
913: G_start_balance := G_balance1;
914:
915: EXCEPTION
916: WHEN OTHERS THEN
917: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
918: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error Get Balance '||sqlerrm);
919: IF dbms_sql.is_open (cur_balance) then
920: dbms_sql.close_cursor (cur_balance);
921: END IF;
922:
923: END mr_get_balance; /******** END PROCEDURE*************/
916: WHEN OTHERS THEN
917: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
918: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error Get Balance '||sqlerrm);
919: IF dbms_sql.is_open (cur_balance) then
920: dbms_sql.close_cursor (cur_balance);
921: END IF;
922:
923: END mr_get_balance; /******** END PROCEDURE*************/
924:
953: ' WHERE item_id= to_char(:1) ' ||
954: ' AND whse_code in ('|| G_whse_list ||') and delete_mark=0';
955:
956: IF G_whse_list IS NOT NULL THEN
957: cur_sstock := dbms_sql.open_cursor;
958: dbms_sql.parse (cur_sstock, X_select1,dbms_sql.NATIVE);
959:
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
954: ' AND whse_code in ('|| G_whse_list ||') and delete_mark=0';
955:
956: IF G_whse_list IS NOT NULL THEN
957: cur_sstock := dbms_sql.open_cursor;
958: dbms_sql.parse (cur_sstock, X_select1,dbms_sql.NATIVE);
959:
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
956: IF G_whse_list IS NOT NULL THEN
957: cur_sstock := dbms_sql.open_cursor;
958: dbms_sql.parse (cur_sstock, X_select1,dbms_sql.NATIVE);
959:
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
958: dbms_sql.parse (cur_sstock, X_select1,dbms_sql.NATIVE);
959:
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
959:
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
967: dbms_sql.column_value (cur_sstock, 2, G_no_safetystock);
960: dbms_sql.bind_variable(cur_sstock,':1',V_item_id);
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
967: dbms_sql.column_value (cur_sstock, 2, G_no_safetystock);
968: ELSE
961:
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
967: dbms_sql.column_value (cur_sstock, 2, G_no_safetystock);
968: ELSE
969: G_total_ss := 0;
962: dbms_sql.define_column (cur_sstock, 1, G_total_ss);
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
967: dbms_sql.column_value (cur_sstock, 2, G_no_safetystock);
968: ELSE
969: G_total_ss := 0;
970: G_no_safetystock := 0;
963: dbms_sql.define_column (cur_sstock, 2, G_no_safetystock);
964: X_row_count := dbms_sql.execute(cur_sstock);
965: IF dbms_sql.fetch_rows (cur_sstock) > 0 then
966: dbms_sql.column_value (cur_sstock, 1, G_total_ss);
967: dbms_sql.column_value (cur_sstock, 2, G_no_safetystock);
968: ELSE
969: G_total_ss := 0;
970: G_no_safetystock := 0;
971: END IF;
968: ELSE
969: G_total_ss := 0;
970: G_no_safetystock := 0;
971: END IF;
972: dbms_sql.close_cursor (cur_sstock);
973: END IF;
974:
975: IF ((NVL(G_no_safetystock,0) < NVL(G_num_whses,0))) THEN
976: G_unit_ss := 0;
991: EXCEPTION
992: WHEN OTHERS THEN
993: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
994: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error Get Safety Stock '||sqlerrm);
995: IF dbms_sql.is_open (cur_sstock) then
996: dbms_sql.close_cursor (cur_sstock);
997: END IF;
998:
999: END mr_get_safety_stock; /******** END PROCEDURE*************/
992: WHEN OTHERS THEN
993: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
994: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error Get Safety Stock '||sqlerrm);
995: IF dbms_sql.is_open (cur_sstock) then
996: dbms_sql.close_cursor (cur_sstock);
997: END IF;
998:
999: END mr_get_safety_stock; /******** END PROCEDURE*************/
1000: