[Home] [Help]
1076: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 5');
1077: END IF; --l_proc_level>=l_dbg_level
1078:
1079: ELSIF (lv_primary_cost_method = 1)
1080: THEN -- if its Standard Costing
1081:
1082: IF (ln_proc_level >= ln_dbg_level)
1083: THEN
1084: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 6');
1087: -- Debit the account by calling
1088: jai_rcv_accounting_pkg.process_transaction
1089: ( p_transaction_id => pn_transaction_id
1090: , p_acct_type => 'REGULAR'
1091: , p_acct_nature => 'Standard Costing'
1092: , p_source_name => 'Inventory India'
1093: , p_category_name => 'MTL'
1094: , p_code_combination_id => ln_purchase_price_var_account
1095: , p_entered_dr => pn_amount
1111: );
1112:
1113: IF (lv_process_status IN ('X','E'))
1114: THEN
1115: raise_application_error(-20120,'Unclaim accounting returned with error for Standard Costing : ' || lv_process_message);
1116: END IF; -- (lv_process_status IN ('X','E'))
1117:
1118: IF (ln_proc_level >= ln_dbg_level)
1119: THEN
1123: -- Credit the receiving account by calling
1124: jai_rcv_accounting_pkg.process_transaction
1125: ( p_transaction_id => pn_transaction_id
1126: , p_acct_type => 'REGULAR'
1127: , p_acct_nature => 'Standard Costing'
1128: , p_source_name => 'Inventory India'
1129: , p_category_name => 'MTL'
1130: , p_code_combination_id => ln_receiving_account_id
1131: , p_entered_dr => NULL
1147: );
1148:
1149: IF (lv_process_status IN ('X','E'))
1150: THEN
1151: raise_application_error(-20120,'Unclaim accounting returned with error for Standard Costing : ' || lv_process_message);
1152: END IF; -- (lv_process_status IN ('X','E'))
1153:
1154: IF (ln_proc_level >= ln_dbg_level)
1155: THEN
2699: jai_retro_line_changes jrlc
2700: WHERE vendor_id = NVL(pn_vendor_id,vendor_id)
2701: AND vendor_site_id = NVL(pn_vendor_site_id,vendor_site_id)
2702: AND ( (doc_type = 'RELEASE' AND doc_header_id = NVL(pn_po_header_id ,doc_header_id))
2703: OR (doc_type = 'STANDARD PO' AND from_header_id = NVL(pn_po_header_id ,from_header_id))
2704: )
2705: AND NVL(receipt_processed_flag,'N') <>jai_constants.yes
2706: --AND creation_date <= NVL(ld_from_eff_date,creation_date) , eric remomved according to review comment #36
2707: AND (original_unit_price < modified_unit_price OR pv_process_downward = jai_constants.yes )
3396: JAI_RETRO_LINE_CHANGES jrlc
3397: WHERE jrlc.doc_header_id = pr_old.po_header_id
3398: AND jrlc.doc_line_id = pr_old.po_line_id
3399: AND jrlc.line_location_id = pr_old.line_location_id /*added by rchandan*/
3400: AND jrlc.doc_type IN ('RELEASE', 'STANDARD PO');
3401:
3402: EXCEPTION
3403: WHEN no_data_found THEN
3404: pv_process_flag := 'UE';
3437: RETURN;
3438: END;
3439:
3440: BEGIN
3441: IF pr_old.shipment_type = 'STANDARD'
3442: THEN
3443: SELECT
3444: segment1
3445: , vendor_id
3482: RETURN;
3483: END;
3484:
3485: BEGIN
3486: IF pr_old.shipment_type = 'STANDARD'
3487: THEN
3488: INSERT INTO JAI_RETRO_LINE_CHANGES
3489: ( LINE_CHANGE_ID
3490: , DOC_TYPE
3518: , OBJECT_VERSION_NUMBER
3519: )
3520: VALUES
3521: ( ln_retro_line_changes_id
3522: , 'STANDARD PO'
3523: , pr_old.po_header_id
3524: , pr_old.po_line_id
3525: , pr_old.line_location_id
3526: , pr_old.from_header_id
3748: line_change_id
3749: FROM
3750: JAI_RETRO_LINE_CHANGES jrpc
3751: WHERE jrpc.Line_location_id = pn_line_loc_id
3752: AND jrpc.Doc_Type IN ('RELEASE','RECEIPT','STANDARD PO')
3753: AND jrpc.Doc_version_number = (SELECT
3754: MAX(Doc_version_number)
3755: FROM
3756: JAI_RETRO_LINE_CHANGES jrpc1
3754: MAX(Doc_version_number)
3755: FROM
3756: JAI_RETRO_LINE_CHANGES jrpc1
3757: WHERE jrpc1.Line_location_id = pn_line_loc_id
3758: AND jrpc1.Doc_Type IN ('RELEASE','RECEIPT','STANDARD PO')
3759: )
3760: );
3761:
3762: EXCEPTION