337:
338: -- Get the Line Focus Id from the Sequence
339:
340: CURSOR Fetch_Focus_Id IS
341: SELECT JAI_PO_LINE_LOCATIONS_S.NEXTVAL
342: FROM Dual;
343:
344: CURSOR Chk_Line_Count IS
345: SELECT NVL( COUNT( Po_Line_Id ), 0 )
342: FROM Dual;
343:
344: CURSOR Chk_Line_Count IS
345: SELECT NVL( COUNT( Po_Line_Id ), 0 )
346: FROM JAI_PO_LINE_LOCATIONS
347: WHERE Po_Header_Id = v_po_hdr_id;
348:
349:
350: CURSOR Lines_Cur IS
348:
349:
350: CURSOR Lines_Cur IS
351: SELECT DISTINCT Po_Line_Id
352: FROM JAI_PO_LINE_LOCATIONS
353: WHERE Po_Header_Id = v_po_hdr_id;
354:
355: CURSOR Fetch_Item_Cur( Lineid IN NUMBER ) IS
356: SELECT Item_Id
358: WHERE Po_Line_Id = Lineid;
359:
360: CURSOR Line_Loc_Cur( lineid IN NUMBER ) IS
361: SELECT Line_Location_Id
362: FROM JAI_PO_LINE_LOCATIONS
363: WHERE Po_Line_Id = lineid;
364:
365: CURSOR Fetch_Dtls_Cur( lineid IN NUMBER ) IS
366: SELECT Quantity, Unit_Price, Unit_Meas_Lookup_Code
380: WHERE Unit_Of_Measure = v_uom;
381:
382: CURSOR Tax_Flag1_Cur( lineid IN NUMBER ) IS
383: SELECT NVL( Tax_Modified_Flag, 'N' )
384: FROM JAI_PO_LINE_LOCATIONS
385: WHERE Po_Line_Id = lineid
386: AND Line_Location_Id IS NULL;
387:
388:
387:
388:
389: CURSOR Tax_Flag_Cur( lineid IN NUMBER, linelocid IN NUMBER ) IS
390: SELECT NVL( Tax_Modified_Flag, 'N' )
391: FROM JAI_PO_LINE_LOCATIONS
392: WHERE Po_Line_Id = lineid
393: AND Line_Location_Id = linelocid;
394:
395:
762: WHERE Po_Line_Id = Rec.Po_Line_Id
763: AND NVL( Line_Location_Id, -999 ) = NVL( Rec1.Line_Location_Id, -999 );
764:
765:
766: DELETE FROM JAI_PO_LINE_LOCATIONS
767: WHERE Po_Line_Id = Rec.Po_Line_Id
768: AND NVL( Line_Location_Id, -999 ) = NVL( Rec1.Line_Location_Id, -999 );
769:
770: OPEN Fetch_Focus_Id;
773:
774: v_service_type_code := jai_ar_rctla_trigger_pkg.get_service_Type(v_vendor_id,v_vendor_site_id , 'V');
775: /*above code added by ssumaith - bug# 6109941 */
776:
777: INSERT INTO JAI_PO_LINE_LOCATIONS
778: (
779: Line_Focus_Id,
780: Line_Location_Id,
781: Po_Line_Id,