[Home] [Help]
1071: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 5');
1072: END IF; --l_proc_level>=l_dbg_level
1073:
1074: ELSIF (lv_primary_cost_method = 1)
1075: THEN -- if its Standard Costing
1076:
1077: IF (ln_proc_level >= ln_dbg_level)
1078: THEN
1079: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 6');
1082: -- Debit the account by calling
1083: jai_rcv_accounting_pkg.process_transaction
1084: ( p_transaction_id => pn_transaction_id
1085: , p_acct_type => 'REGULAR'
1086: , p_acct_nature => 'Standard Costing'
1087: , p_source_name => 'Inventory India'
1088: , p_category_name => 'MTL'
1089: , p_code_combination_id => ln_purchase_price_var_account
1090: , p_entered_dr => pn_amount
1106: );
1107:
1108: IF (lv_process_status IN ('X','E'))
1109: THEN
1110: raise_application_error(-20120,'Unclaim accounting returned with error for Standard Costing : ' || lv_process_message);
1111: END IF; -- (lv_process_status IN ('X','E'))
1112:
1113: IF (ln_proc_level >= ln_dbg_level)
1114: THEN
1118: -- Credit the receiving account by calling
1119: jai_rcv_accounting_pkg.process_transaction
1120: ( p_transaction_id => pn_transaction_id
1121: , p_acct_type => 'REGULAR'
1122: , p_acct_nature => 'Standard Costing'
1123: , p_source_name => 'Inventory India'
1124: , p_category_name => 'MTL'
1125: , p_code_combination_id => ln_receiving_account_id
1126: , p_entered_dr => NULL
1142: );
1143:
1144: IF (lv_process_status IN ('X','E'))
1145: THEN
1146: raise_application_error(-20120,'Unclaim accounting returned with error for Standard Costing : ' || lv_process_message);
1147: END IF; -- (lv_process_status IN ('X','E'))
1148:
1149: IF (ln_proc_level >= ln_dbg_level)
1150: THEN
2686: jai_retro_line_changes jrlc
2687: WHERE vendor_id = NVL(pn_vendor_id,vendor_id)
2688: AND vendor_site_id = NVL(pn_vendor_site_id,vendor_site_id)
2689: AND ( (doc_type = 'RELEASE' AND doc_header_id = NVL(pn_po_header_id ,doc_header_id))
2690: OR (doc_type = 'STANDARD PO' AND from_header_id = NVL(pn_po_header_id ,from_header_id))
2691: )
2692: AND NVL(receipt_processed_flag,'N') <>jai_constants.yes
2693: --AND creation_date <= NVL(ld_from_eff_date,creation_date) , eric remomved according to review comment #36
2694: AND (original_unit_price < modified_unit_price OR pv_process_downward = jai_constants.yes )
3351: JAI_RETRO_LINE_CHANGES jrlc
3352: WHERE jrlc.doc_header_id = pr_old.po_header_id
3353: AND jrlc.doc_line_id = pr_old.po_line_id
3354: AND jrlc.line_location_id = pr_old.line_location_id /*added by rchandan*/
3355: AND jrlc.doc_type IN ('RELEASE', 'STANDARD PO');
3356:
3357: EXCEPTION
3358: WHEN no_data_found THEN
3359: pv_process_flag := 'UE';
3392: RETURN;
3393: END;
3394:
3395: BEGIN
3396: IF pr_old.shipment_type = 'STANDARD'
3397: THEN
3398: SELECT
3399: segment1
3400: , vendor_id
3437: RETURN;
3438: END;
3439:
3440: BEGIN
3441: IF pr_old.shipment_type = 'STANDARD'
3442: THEN
3443: INSERT INTO JAI_RETRO_LINE_CHANGES
3444: ( LINE_CHANGE_ID
3445: , DOC_TYPE
3473: , OBJECT_VERSION_NUMBER
3474: )
3475: VALUES
3476: ( ln_retro_line_changes_id
3477: , 'STANDARD PO'
3478: , pr_old.po_header_id
3479: , pr_old.po_line_id
3480: , pr_old.line_location_id
3481: , pr_old.from_header_id
3703: line_change_id
3704: FROM
3705: JAI_RETRO_LINE_CHANGES jrpc
3706: WHERE jrpc.Line_location_id = pn_line_loc_id
3707: AND jrpc.Doc_Type IN ('RELEASE','RECEIPT','STANDARD PO')
3708: AND jrpc.Doc_version_number = (SELECT
3709: MAX(Doc_version_number)
3710: FROM
3711: JAI_RETRO_LINE_CHANGES jrpc1
3709: MAX(Doc_version_number)
3710: FROM
3711: JAI_RETRO_LINE_CHANGES jrpc1
3712: WHERE jrpc1.Line_location_id = pn_line_loc_id
3713: AND jrpc1.Doc_Type IN ('RELEASE','RECEIPT','STANDARD PO')
3714: )
3715: );
3716:
3717: EXCEPTION