[Home] [Help]
1: PACKAGE BODY CST_PERIODIC_ABSORPTION_PROC AS
2: -- $Header: CSTRITPB.pls 120.52.12010000.3 2008/11/29 16:26:47 anjha ship $
3: --+=======================================================================+
4: --| Copyright (c) 2003 Oracle Corporation |
5: --| Redwood Shores, CA, USA |
25: --===================
26: -- GLOBALS
27: --===================
28:
29: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_PERIODIC_ABSORPTION_PROC';
30: g_org_id NUMBER := FND_PROFILE.value('ORG_ID');
31: -- to store the item and its BOM highest level across cost groups
32: TYPE item_level_rec_type IS RECORD
33: ( inventory_item_id NUMBER
1716: ,p_period_id IN NUMBER
1717: ,p_start_date IN DATE
1718: ,p_end_date IN DATE
1719: ,p_prev_period_id IN NUMBER
1720: ,p_cg_tab IN CST_PERIODIC_ABSORPTION_PROC.tbl_type
1721: ,p_inventory_item_id IN NUMBER
1722: ,p_uom_control IN NUMBER
1723: ,p_pac_rates_id IN NUMBER
1724: ,p_mat_relief_algorithm IN NUMBER
2564: ,p_period_id IN NUMBER
2565: ,p_start_date IN DATE
2566: ,p_end_date IN DATE
2567: ,p_prev_period_id IN NUMBER
2568: ,p_cg_tab IN CST_PERIODIC_ABSORPTION_PROC.tbl_type
2569: ,p_inventory_item_id IN NUMBER
2570: ,p_uom_control IN NUMBER
2571: ,p_pac_rates_id IN NUMBER
2572: ,p_mat_relief_algorithm IN NUMBER
2628: -- ===================================================================
2629: -- Process WIP transactions
2630: -- ===================================================================
2631: -- Process non-rework assembly completion transactons
2632: CST_PERIODIC_ABSORPTION_PROC.Process_Non_Rework_Comps
2633: (p_period_id => p_period_id
2634: ,p_start_date => p_start_date
2635: ,p_end_date => p_end_date
2636: ,p_prev_period_id => p_prev_period_id
2650: ,p_prg_id => p_prg_id
2651: ,p_prg_appid => p_prg_appid);
2652:
2653: -- Process rework assembly issue and completion transactons
2654: CST_PERIODIC_ABSORPTION_PROC.Process_Rework_Issue_Comps
2655: (p_period_id => p_period_id
2656: ,p_start_date => p_start_date
2657: ,p_end_date => p_end_date
2658: ,p_prev_period_id => p_prev_period_id
3029: BEGIN
3030:
3031: FND_FILE.put_line
3032: ( FND_FILE.log
3033: , '>> CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3034: );
3035:
3036: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3037: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3275:
3276:
3277: FND_FILE.put_line
3278: ( FND_FILE.log
3279: , '<< CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3280: );
3281:
3282: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3283: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3326: -- : Period
3327: -- =======================================================================
3328: PROCEDURE Insert_Ending_Balance_All_Cgs
3329: (p_pac_period_id IN NUMBER
3330: ,p_cg_tab IN CST_PERIODIC_ABSORPTION_PROC.tbl_type
3331: ,p_end_date IN DATE
3332: ,p_user_id IN NUMBER
3333: ,p_login_id IN NUMBER
3334: ,p_req_id IN NUMBER
3349: BEGIN
3350:
3351: FND_FILE.put_line
3352: ( FND_FILE.log
3353: , '>> CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3354: );
3355:
3356: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3357: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3396: END LOOP;
3397:
3398: FND_FILE.put_line
3399: ( FND_FILE.log
3400: , '<< CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3401: );
3402:
3403: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3404: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3432: (p_period_id IN NUMBER
3433: ,p_prev_period_id IN NUMBER
3434: ,p_legal_entity IN NUMBER
3435: ,p_cost_type_id IN NUMBER
3436: ,p_cg_tab IN CST_PERIODIC_ABSORPTION_PROC.tbl_type
3437: ,p_run_options IN NUMBER
3438: ,p_number_of_iterations IN NUMBER
3439: ,p_cost_method IN NUMBER
3440: ,p_start_date IN DATE
3636:
3637: FOR l_current_level_idx IN REVERSE l_topmost_absl_level_code .. l_lowest_absl_level_code LOOP
3638:
3639: -- Purge private pl/sql table G_ITEM_LEVEL_TBL containing previous level items
3640: CST_PERIODIC_ABSORPTION_PROC.G_ITEM_LEVEL_TBL.DELETE;
3641:
3642: l_current_level_code := l_current_level_idx;
3643:
3644: -- Display current BOM level code
3830: CLOSE c_low_level_code_cg_cur;
3831:
3832: -- Periodic Cost Update value change only for non-interorg items
3833: -- both completion and no completion items are included
3834: CST_PERIODIC_ABSORPTION_PROC.Periodic_Cost_Update_By_Level
3835: (p_period_id => p_period_id
3836: ,p_legal_entity => p_legal_entity
3837: ,p_cost_type_id => p_cost_type_id
3838: ,p_cost_group_id => p_cg_tab(l_cg_idx).cost_group_id
4197: BEGIN
4198:
4199: FND_FILE.put_line
4200: ( FND_FILE.log
4201: , '>> CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4202: );
4203:
4204: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4205: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4280: CLOSE logical_txn_cur;
4281:
4282: FND_FILE.put_line
4283: ( FND_FILE.log
4284: , '<< CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4285: );
4286:
4287: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4375: , p_prev_period_id IN NUMBER
4376: , p_tolerance IN NUMBER
4377: , p_number_of_iterations IN NUMBER
4378: , p_number_of_workers IN NUMBER
4379: , p_cg_tab IN CST_PERIODIC_ABSORPTION_PROC.tbl_type
4380: , p_uom_control IN NUMBER
4381: , p_pac_rates_id IN NUMBER
4382: , p_mat_relief_algorithm IN NUMBER
4383: , p_start_date IN DATE
4522:
4523: -- ====================================================================
4524: -- Absorption Cost Rollup Process
4525: -- ====================================================================
4526: CST_PERIODIC_ABSORPTION_PROC.Absorption_Cost_Process
4527: (p_period_id => p_period_id
4528: ,p_prev_period_id => p_prev_period_id
4529: ,p_legal_entity => p_legal_entity
4530: ,p_cost_type_id => p_cost_type_id
4551: -- Process WIP Close transactions
4552: -- =============================================================================
4553:
4554: -- Check for Phase 7 completion and Phase 5 not yet completed
4555: CST_PERIODIC_ABSORPTION_PROC.get_phase_status(p_pac_period_id => p_period_id
4556: ,p_phase => 7
4557: ,p_cost_group_id => NULL
4558: ,x_status => l_phase7_status
4559: );
4620:
4621: END IF;
4622:
4623: -- Process Logical Transactions
4624: CST_PERIODIC_ABSORPTION_PROC.process_logical_txns
4625: (p_period_id => p_period_id
4626: ,p_legal_entity_id => p_legal_entity
4627: ,p_cost_type_id => p_cost_type_id
4628: ,p_cost_group_id => p_cg_tab(l_current_index).cost_group_id
4796:
4797: -- Call procedure to check the validity of cost type,
4798: -- legal entity and their association
4799:
4800: CST_PERIODIC_ABSORPTION_PROC.validate_le_ct_association
4801: (p_legal_entity => p_legal_entity
4802: ,p_cost_type_id => p_cost_type_id);
4803:
4804: -- Call procedure to check that the current period is open
4803:
4804: -- Call procedure to check that the current period is open
4805: -- legal entity and their association
4806:
4807: CST_PERIODIC_ABSORPTION_PROC.validate_period
4808: (p_legal_entity => p_legal_entity
4809: ,p_cost_type_id => p_cost_type_id
4810: ,p_period_id => p_period_id);
4811:
4809: ,p_cost_type_id => p_cost_type_id
4810: ,p_period_id => p_period_id);
4811:
4812: -- Validate that previous period has been closed
4813: CST_PERIODIC_ABSORPTION_PROC.validate_previous_period
4814: (p_legal_entity => p_legal_entity
4815: ,p_cost_type_id => p_cost_type_id
4816: ,p_period_id => p_period_id
4817: ,x_prev_period_id => l_prev_period_id);
4820: -- Find the cost method being used for this
4821: -- legal entity/cost type association
4822: -- It needs to be PAC
4823:
4824: CST_PERIODIC_ABSORPTION_PROC.find_cost_method
4825: (p_legal_entity => p_legal_entity
4826: ,p_cost_type_id => p_cost_type_id
4827: ,x_cost_method => l_cost_method);
4828:
4832: -- options process upto date should be NULL
4833:
4834: -- Bug#4351270 fix: time zone validate for process upto date
4835: -- with respect to Legal Entity
4836: CST_PERIODIC_ABSORPTION_PROC.validate_process_upto_date
4837: (p_process_upto_date => p_le_process_upto_date
4838: ,p_period_id => p_period_id
4839: ,p_run_options => p_run_options
4840: );
4840: );
4841:
4842: -- Get Unit of Measure control level
4843:
4844: l_uom_control := CST_PERIODIC_ABSORPTION_PROC.get_uom_control_level;
4845:
4846:
4847: -- Find The Pac Rates and
4848: -- Material Relief Algorithm (introduced in R12)
4845:
4846:
4847: -- Find The Pac Rates and
4848: -- Material Relief Algorithm (introduced in R12)
4849: CST_PERIODIC_ABSORPTION_PROC.find_pac_rates_algorithm
4850: (p_legal_entity => p_legal_entity
4851: ,p_cost_type_id => p_cost_type_id
4852: ,x_pac_rates_id => l_pac_rates_id
4853: ,x_mat_relief_algorithm => l_mat_relief_algorithm
4887: -- period end date is the user entered process upto date
4888: -- For run options 3 - resume for non tolerance and 4 - final iteration
4889: -- l_end_date will be null since the user will not enter any
4890: -- process upto date in the input parameter screen
4891: CST_PERIODIC_ABSORPTION_PROC.find_period_duration
4892: (p_legal_entity => p_legal_entity
4893: ,p_cost_type_id => p_cost_type_id
4894: ,p_period_id => p_period_id
4895: ,p_process_upto_date => p_process_upto_date
4899: -- get process upto date for run options 3 - resume for non tolerance
4900: -- and 4 - final iteration
4901: IF l_run_options > 1 THEN
4902:
4903: l_end_date := CST_PERIODIC_ABSORPTION_PROC.Find_Prev_Process_Upto_Date
4904: (p_pac_period_id => p_period_id);
4905: END IF;
4906:
4907: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4925: END IF;
4926:
4927: -- Call procedure to validate current cost group
4928:
4929: CST_PERIODIC_ABSORPTION_PROC.validate_cost_groups
4930: (p_legal_entity => p_legal_entity
4931: ,p_cost_type_id => p_cost_type_id
4932: ,p_period_id => p_period_id
4933: ,p_cost_group_id => l_txn_tab(l_current_index).cost_group_id);
4934:
4935: -- Ensure all appropriate phases in the process phases table
4936: -- are seeded correctly
4937:
4938: CST_PERIODIC_ABSORPTION_PROC.validate_phases_seeded
4939: (p_cost_group_id => l_txn_tab(l_current_index).cost_group_id
4940: ,p_period_id => p_period_id);
4941:
4942: -- check that the cost group has assignments
4940: ,p_period_id => p_period_id);
4941:
4942: -- check that the cost group has assignments
4943:
4944: CST_PERIODIC_ABSORPTION_PROC.number_of_assignments
4945: (p_cost_group_id => l_txn_tab(l_current_index).cost_group_id
4946: ,p_period_id => p_period_id
4947: ,p_user_id => l_user_id
4948: ,p_login_id => l_login_id
4951: ,p_prg_appid => l_prg_appid);
4952:
4953: -- Validate Master Organization
4954:
4955: CST_PERIODIC_ABSORPTION_PROC.validate_master_org
4956: (p_legal_entity => p_legal_entity
4957: ,p_cost_type_id => p_cost_type_id
4958: ,p_cost_group_id => l_txn_tab(l_current_index).cost_group_id
4959: ,x_master_org_id => l_txn_tab(l_current_index).master_org_id);
4960:
4961: -- Find the starting Phase for the current cost group and
4962: -- store it in a pl/sql table of record
4963:
4964: CST_PERIODIC_ABSORPTION_PROC.find_starting_phase
4965: (p_legal_entity => p_legal_entity
4966: ,p_cost_type_id => p_cost_type_id
4967: ,p_period_id => p_period_id
4968: ,p_end_date => l_end_date
4992: -- processing of these records.
4993: -- if the the run option is 3 then this is a resumption
4994: -- of processing after an error.
4995:
4996: CST_PERIODIC_ABSORPTION_PROC.transfer_cp_worker
4997: (p_legal_entity => p_legal_entity
4998: ,p_cost_type_id => p_cost_type_id
4999: ,p_cost_method => l_cost_method
5000: ,p_period_id => p_period_id
5063: END IF;
5064:
5065: END transfer_cp_manager;
5066:
5067: END CST_PERIODIC_ABSORPTION_PROC;