[Home] [Help]
2782: var_revision VARCHAR2(3);
2783: var_revision_ctrl NUMBER;
2784:
2785: Cursor c1 is select pvsa.vendor_site_id,pri.rowid,pri.item_id, pri.destination_organization_id,pri.charge_account_id,pri.project_id
2786: from po_vendor_sites_all pvsa, po_Requisitions_interface_All pri
2787: where pri.suggested_vendor_id = pvsa.vendor_id(+)
2788: and pri.suggested_vendor_site = pvsa.vendor_site_code(+)
2789: and nvl(pri.org_id,-99) = nvl(pvsa.org_id(+),-99)
2790: and pri.interface_source_code = 'MSC'
2793: CURSOR c1_rec is
2794: SELECT item_id,
2795: destination_organization_id,
2796: rowid
2797: from PO_REQUISITIONS_INTERFACE_ALL
2798: where batch_id = G_PO_BATCH_NUMBER;
2799:
2800:
2801: BEGIN
2812: and nvl(a2m_dblink,NULL_DBLINK) = nvl(v_dblink,NULL_DBLINK)
2813: and ALLOW_RELEASE_FLAG=1;
2814:
2815: lv_sqlstmt:=
2816: 'INSERT INTO PO_REQUISITIONS_INTERFACE_ALL'
2817: ||' ( PROJECT_ACCOUNTING_CONTEXT,'
2818: ||' PROJECT_ID,'
2819: ||' TASK_ID,'
2820: ||' NEED_BY_DATE,'
2892: Loop
2893: BEGIN
2894: /* --Added for the bug#3319306
2895: IF i.vendor_site_id IS NOT NULL THEN
2896: update po_requisitions_interface_all
2897: set suggested_vendor_site_id = i.vendor_site_id
2898: where rowid = i.rowid;
2899: END IF;
2900: Removed --- bug 8256097*/
2909: i.vendor_site_id,
2910: lv_charge_acct_id
2911: );
2912: If NVL(lv_charge_acct_id,0) > 0 Then
2913: Update po_requisitions_interface_all
2914: set charge_account_id = lv_charge_acct_id
2915: where rowid = i.rowid;
2916: Else
2917: Update po_requisitions_interface_all
2913: Update po_requisitions_interface_all
2914: set charge_account_id = lv_charge_acct_id
2915: where rowid = i.rowid;
2916: Else
2917: Update po_requisitions_interface_all
2918: set charge_account_id =
2919: (Select nvl(mapv.material_account,
2920: decode( msi.inventory_asset_flag,
2921: 'Y', mp.material_account,
2961: i.vendor_site_id,
2962: lv_accrual_acct_id
2963: );
2964: If NVL(lv_accrual_acct_id,0) > 0 Then
2965: Update po_requisitions_interface_all
2966: set accrual_account_id = lv_accrual_acct_id
2967: where rowid = i.rowid;
2968: Else
2969: Null;
2977:
2978: End loop;
2979:
2980: -- fix for 2541517
2981: -- Populating SECONDARY_UOM_CODE and SECONDARY_QUANTITY in PO_REQUISITIONS_INTERFACE_ALL from MTL_SYSTEM_ITEMS
2982: BEGIN
2983: SELECT pri.rowid,
2984: msi.SECONDARY_UOM_CODE,
2985: inv_convert.inv_um_convert(pri.ITEM_ID,9,pri.QUANTITY,pri.UOM_CODE,msi.SECONDARY_UOM_CODE,null,null)
2986: BULK COLLECT
2987: INTO lv_pri_rowid,
2988: lv_sec_uom_code,
2989: lv_sec_uom_qty
2990: FROM PO_REQUISITIONS_INTERFACE_ALL pri,
2991: MTL_SYSTEM_ITEMS msi
2992: WHERE pri.ITEM_ID = msi.INVENTORY_ITEM_ID
2993: AND pri.DESTINATION_ORGANIZATION_ID = msi.ORGANIZATION_ID
2994: AND msi.SECONDARY_UOM_CODE is not NULL
3003: IF lv_req_count <> 0 THEN
3004:
3005: FOR j IN 1..lv_req_count LOOP
3006:
3007: UPDATE PO_REQUISITIONS_INTERFACE_ALL pri
3008: SET pri.SECONDARY_UOM_CODE = lv_sec_uom_code(j),
3009: pri.SECONDARY_QUANTITY = lv_sec_uom_qty(j)
3010: WHERE ROWID= lv_pri_rowid(j);
3011:
3039: RAISE;
3040: END;
3041:
3042: BEGIN
3043: UPDATE PO_REQUISITIONS_INTERFACE_ALL
3044: set item_revision = DECODE(var_purchasing_by_rev, NULL,
3045: DECODE(var_revision_ctrl, NOT_UNDER_REV_CONTROL, NULL, var_revision),
3046: PURCHASING_BY_REV, var_revision,
3047: NOT_PURCHASING_BY_REV, NULL)
3057: -- Launching the REQIMPORT in loop for each OU, change for MOAC
3058: DECLARE
3059: CURSOR c1 IS
3060: SELECT DISTINCT org_id
3061: FROM PO_REQUISITIONS_INTERFACE_ALL
3062: WHERE batch_id = G_PO_BATCH_NUMBER;
3063:
3064: BEGIN
3065: FOR C2 IN C1