[Home] [Help]
114: --* 17-Feb-2004 PJS Set the final flag in the cost heder if mode is not draft. *
115: --* *
116: --* 24-Feb-2004 PJS Fixed indexing when writing burdens for a CREI *
117: --* *
118: --* 25-Feb-2004 PJS Added burden_ind to gmf_cost_type. *
119: --* *
120: --* 25-Feb-2004 PJS Added handling for replenishing negative onhand quantities. *
121: --* *
122: --* 03-Mar-2004 umoogala Bug 3476508: setting status to show normal/warning/error on process req *
468: l_debug_level_low PLS_INTEGER;
469: l_debug_level_medium PLS_INTEGER;
470: l_debug_level_high PLS_INTEGER;
471:
472: TYPE l_cost_tab_type IS TABLE OF SYSTEM.gmf_cost_type INDEX BY PLS_INTEGER;
473:
474: -- Bug 13038249 Grupo viz changes starts
475:
476: l_orgn_code VARCHAR2(4) := NULL;
778: , SYSTEM.gmf_step_type
779: ( grsd.dep_step_id, gbs.actual_step_qty, gbs.step_qty_um, 0
780: , CAST
781: ( MULTISET
782: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
783: FROM DUAL
784: ) AS SYSTEM.gmf_cost_tab
785: )
786: , CAST
784: ) AS SYSTEM.gmf_cost_tab
785: )
786: , CAST
787: ( MULTISET
788: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
789: FROM DUAL
790: ) AS SYSTEM.gmf_cost_tab
791: )
792: , CAST
790: ) AS SYSTEM.gmf_cost_tab
791: )
792: , CAST
793: ( MULTISET
794: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
795: FROM DUAL
796: ) AS SYSTEM.gmf_cost_tab
797: )
798: , NULL, NULL
825: , SYSTEM.gmf_step_type
826: ( g.batchstep_id, g.actual_step_qty, g.step_qty_um, 0
827: , CAST
828: ( MULTISET
829: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
830: FROM DUAL
831: ) AS SYSTEM.gmf_cost_tab
832: )
833: , CAST
831: ) AS SYSTEM.gmf_cost_tab
832: )
833: , CAST
834: ( MULTISET
835: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
836: FROM DUAL
837: ) AS SYSTEM.gmf_cost_tab
838: )
839: , CAST
837: ) AS SYSTEM.gmf_cost_tab
838: )
839: , CAST
840: ( MULTISET
841: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
842: FROM DUAL
843: ) AS SYSTEM.gmf_cost_tab
844: )
845: , NULL, NULL
875: , SYSTEM.gmf_step_type
876: ( 1, 0, NULL, 0
877: , CAST
878: ( MULTISET
879: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
880: FROM DUAL
881: ) AS SYSTEM.gmf_cost_tab
882: )
883: , CAST
881: ) AS SYSTEM.gmf_cost_tab
882: )
883: , CAST
884: ( MULTISET
885: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
886: FROM DUAL
887: ) AS SYSTEM.gmf_cost_tab
888: )
889: , CAST
887: ) AS SYSTEM.gmf_cost_tab
888: )
889: , CAST
890: ( MULTISET
891: ( SELECT SYSTEM.gmf_cost_type( 0, ' ', 0, 0, 0)
892: FROM DUAL
893: ) AS SYSTEM.gmf_cost_tab
894: )
895: , NULL, NULL
917: (gbs.batchstep_id,
918: gbs.actual_step_qty,
919: gbs.step_qty_um,
920: 0,
921: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
922: FROM DUAL) AS SYSTEM.gmf_cost_tab
923: ),
924: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
925: FROM DUAL) AS SYSTEM.gmf_cost_tab
920: 0,
921: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
922: FROM DUAL) AS SYSTEM.gmf_cost_tab
923: ),
924: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
925: FROM DUAL) AS SYSTEM.gmf_cost_tab
926: ),
927: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
928: FROM DUAL) AS SYSTEM.gmf_cost_tab
923: ),
924: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
925: FROM DUAL) AS SYSTEM.gmf_cost_tab
926: ),
927: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
928: FROM DUAL) AS SYSTEM.gmf_cost_tab
929: ),
930: NULL,
931: NULL,
991: 0,
992: gmd.plan_qty,
993: gmd.actual_qty,
994: gmd.dtl_um,
995: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
996: FROM DUAL) AS SYSTEM.gmf_cost_tab
997: ), -- Bug 7317270,
998: gmd.cost_alloc
999: )
1062: 0,
1063: plan_qty,
1064: actual_qty,
1065: dtl_um,
1066: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
1067: FROM DUAL) AS SYSTEM.gmf_cost_tab
1068: ), -- Bug 7317270
1069: cost_alloc
1070: )
1166: 0,
1167: gmd.plan_qty,
1168: gmd.actual_qty,
1169: gmd.dtl_um,
1170: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
1171: FROM DUAL) AS SYSTEM.gmf_cost_tab
1172: ), -- Bug 7317270
1173: gmd.cost_alloc
1174: )
1211: 0,
1212: gme.plan_qty,
1213: gme.actual_qty,
1214: gme.dtl_um,
1215: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
1216: FROM DUAL) AS SYSTEM.gmf_cost_tab
1217: ), -- Bug 7317270
1218: gme.cost_alloc
1219: )
1275: grt.resource_usage,
1276: grt.trans_qty_um,
1277: grt.trans_date,
1278: 0,
1279: CAST (MULTISET (SELECT SYSTEM.gmf_cost_type (0, ' ', 0, 0, 0)
1280: FROM DUAL) AS SYSTEM.gmf_cost_tab
1281: ) -- Bug 7317270
1282: )
1283: FROM gme_resource_txns grt,
1339:
1340: CURSOR lot_cost_detail_cursor
1341: ( p_header_id NUMBER )
1342: IS
1343: SELECT SYSTEM.gmf_cost_type
1344: ( glcd.cost_cmpntcls_id,
1345: glcd.cost_analysis_code,
1346: glcd.cost_level,
1347: glcd.component_cost,
1398: , p_date DATE
1399: , p_period_id NUMBER
1400: )
1401: IS
1402: SELECT SYSTEM.gmf_cost_type
1403: (cstdtl.cost_cmpntcls_id,
1404: cstdtl.cost_analysis_code,
1405: cstdtl.cost_level,
1406: cstdtl.cmpnt_cost,
1436: , p_item_id VARCHAR2
1437: , p_date DATE
1438: )
1439: IS
1440: SELECT SYSTEM.gmf_cost_type
1441: (cstdtl.cost_cmpntcls_id,
1442: cstdtl.cost_analysis_code,
1443: cstdtl.cost_level,
1444: cstdtl.cmpnt_cost,
1488: , p_batch_id NUMBER
1489: , p_batchstep_id NUMBER
1490: )
1491: IS
1492: SELECT SYSTEM.gmf_cost_type
1493: (gct.cost_cmpntcls_id,
1494: gct.cost_analysis_code,
1495: 0,
1496: gct.nominal_cost,
2023: END LOOP;
2024:
2025: IF NOT l_cost_accrued THEN
2026: l := new_cost_tab.count+1;
2027: new_cost_tab(l) := SYSTEM.gmf_cost_type
2028: ( costs_table(k).cost_cmpntcls_id
2029: , costs_table(k).cost_analysis_code
2030: , 0
2031: , costs_table(k).component_cost
2194: l_return_status := 'E';
2195: RETURN;
2196: END IF;
2197:
2198: l_burden_costs_tab(i) := SYSTEM.gmf_cost_type
2199: ( l_burdens_tab(i).cost_cmpntcls_id
2200: , l_burdens_tab(i).cost_analysis_code
2201: , 0
2202: , l_burdens_tab(i).burden_cost
2799: l_component_cost := NVL(l_acq_tab(i).component_cost,0);
2800:
2801:
2802:
2803: l_acqui_cost_tab(i) := SYSTEM.gmf_cost_type(l_cmpntcls_id,
2804: l_cost_analysis_code,
2805: 0,
2806: l_component_cost,
2807: 0);
3670: IF new_cost_tab.EXISTS(1) THEN
3671: new_cost_tab.delete;
3672: END IF;
3673:
3674: new_cost_tab(1) := SYSTEM.gmf_cost_type ( l_ccc_id, l_a_code, 0, l_unit_cost, 0);
3675: new_cost.unit_cost := l_unit_cost; /* Bug 11929896 */
3676:
3677: prd_cost := new_cost; /* Bug 11929896 */
3678: prd_cost_tab := new_cost_tab; /* Bug 11929896 */
3722: (fnd_file.log,'ERROR: Failed to retrieve single cost component in source organization '||l_org_tab(p_source_orgn));
3723: RETURN;
3724: ELSE
3725: -- Procedure doesn't return burden ind so coerce it to zero.
3726: new_cost_tab(i) := SYSTEM.gmf_cost_type ( l_ccc_id, l_a_code, 0, l_unit_cost, 0);
3727: END IF;
3728: END LOOP;
3729: ELSE
3730: IF new_cost_tab.EXISTS(1) THEN
3985: END LOOP;
3986:
3987: IF NOT l_prd_accrued THEN
3988: l := prd_cost_tab.count+1;
3989: prd_cost_tab(l) := SYSTEM.gmf_cost_type
3990: ( l_burden_costs_tab(k).cost_cmpntcls_id
3991: , l_burden_costs_tab(k).cost_analysis_code
3992: , 0
3993: , l_burden_costs_tab(k).component_cost
4459: fnd_file.put_line
4460: (fnd_file.log,'Initialising new_cost_tab(1)' || to_char(lot_unit_cost));
4461: END IF;
4462:
4463: new_cost_tab(1) := SYSTEM.gmf_cost_type
4464: ( component_class_id
4465: , cost_analysis_code
4466: , 0
4467: , lot_unit_cost
6855: END LOOP;
6856:
6857: IF NOT l_prd_accrued THEN
6858: l := prd_cost_tab.count+1;
6859: prd_cost_tab(l) := SYSTEM.gmf_cost_type
6860: ( l_burden_costs_tab(k).cost_cmpntcls_id
6861: , l_burden_costs_tab(k).cost_analysis_code
6862: , 0
6863: , l_burden_costs_tab(k).component_cost
7843: FOR i IN 1 .. l_adjustments_cursor.COUNT
7844: LOOP
7845:
7846: IF l_debug_level >= l_debug_level_medium THEN
7847: fnd_file.put_line(fnd_file.log,'Add the gmf_cost_type to new_cost_tab');
7848: END IF;
7849:
7850: -- PK Bug 10159100 Code to prorate quantities Begins
7851:
7868:
7869: IF l_adjustments_cursor(i).applied_amt <> 0 THEN
7870: -- PK Bug 10159100 Code to prorate quantities ends
7871:
7872: new_cost_tab(i) := SYSTEM.gmf_cost_type(l_adjustments_cursor(i).cost_cmpntcls_id ,
7873: l_adjustments_cursor(i).cost_analysis_code,
7874: 0,
7875: l_adjustments_cursor(i).applied_amt, -- PK Bug 10159100 l_adjustments_cursor(i).adjustment_amt,
7876: 0);
8246:
8247: PROCEDURE process_lot_cost_adjustments
8248: IS
8249: CURSOR adjustments_cursor IS
8250: SELECT SYSTEM.gmf_cost_type
8251: ( lcad.cost_cmpntcls_id
8252: , lcad.cost_analysis_code
8253: , 0
8254: , lcad.adjustment_cost
8723: IF (new_cost_tab.COUNT = 0) THEN
8724: l_new_row := 1;
8725: FOR k IN 1..costs_table.COUNT
8726: LOOP
8727: new_cost_tab(l_new_row) := SYSTEM.gmf_cost_type(costs_table(k).cost_cmpntcls_id,costs_table(k).cost_analysis_code,costs_table(k).cost_level,costs_table(k).component_cost,0);
8728: l_new_row := l_new_row + 1;
8729: END LOOP;
8730: ELSE
8731: merge_costs(costs_table,
8770: )
8771: IS
8772: l_cost_table SYSTEM.gmf_cost_tab := new SYSTEM.gmf_cost_tab();
8773: CURSOR final_cmpnt_cur IS
8774: SELECT SYSTEM.gmf_cost_type(nct.cost_cmpntcls_id,
8775: nct.cost_analysis_code,
8776: nct.cost_level,
8777: sum(nct.component_cost),
8778: nct.burden_ind)
8789:
8790: IF (p_cost_tab.COUNT > 0) THEN
8791: FOR i IN 1..p_cost_tab.COUNT LOOP
8792: l_cost_table.extend;
8793: l_cost_table(i) := SYSTEM.gmf_cost_type(p_cost_tab(i).cost_cmpntcls_id,
8794: p_cost_tab(i).cost_analysis_code,
8795: p_cost_tab(i).cost_level,
8796: p_cost_tab(i).component_cost,
8797: p_cost_tab(i).burden_ind);
9505: FETCH component_class_cursor INTO l_ccc_id,l_a_code,dummy;
9506: CLOSE component_class_cursor;
9507:
9508: IF (l_ccc_id IS NOT NULL) THEN
9509: new_cost_tab(1):= SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,transaction_row.transaction_cost,0);
9510: new_cost.unit_cost := transaction_row.transaction_cost;
9511: ELSE
9512: RETURN;
9513: END IF;
9646: END IF;
9647:
9648: IF (old_cost_tab.EXISTS(1)) THEN
9649: IF (l_ccc_id IS NOT NULL) THEN
9650: l_cost_tab(1) := SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,l_new_cost,0);
9651: ELSE
9652: l_return_status := 'E';
9653: -- PK added this message as above
9654: fnd_file.put_line
9664:
9665: IF(l_cmpntcls_id IS NULL OR l_cost_analysis_code IS NULL) THEN
9666: fnd_file.put_line (fnd_file.log,'Procedure : '||procedure_name||' Overhead default component/analysis code in fiscal policies table is not defined. Ignoring the transportation cost');
9667: ELSE
9668: l_cost_tab(2) := SYSTEM.gmf_cost_type(l_cmpntcls_id,l_cost_analysis_code,l_cost_level,l_component_cost,l_burden_ind);
9669: END IF;
9670: END IF;
9671:
9672: l_onhand_qty := old_cost.onhand_qty + transaction_row.trans_qty;
9686: ELSE
9687: -- This is a new lot with new cost in the target organization
9688: IF (l_ccc_id IS NOT NULL) THEN
9689: l_onhand_qty := transaction_row.trans_qty;
9690: new_cost_tab(1) := SYSTEM.gmf_cost_type(l_ccc_id,l_a_code,0,l_new_cost,0);
9691: ELSE
9692: l_return_status := 'E';
9693: fnd_file.put_line
9694: (fnd_file.log,'ERROR Procedure : '||procedure_name||' loc2 l_ccc_id has value NULL. Cannot proceed');