1 PACKAGE CST_PERIODIC_ABSORPTION_PROC AS
2 -- $Header: CSTRITPS.pls 120.10.12010000.3 2008/10/31 12:29:07 rgangara ship $
3 --+=======================================================================+
4 --| Copyright (c) 2003 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| CSTRITPS.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Inter Organization Transfer Concurrent Program |
13 --| HISTORY |
14 --| 07/21/2003 David Herring created |
15 --| 11/06/2003 Veeresha Javli p_run_options datatype is number |
16 --| 01/20/2003 Veeresha Javli x_return_status - Success, Error |
17 --| x_error_message |
18 --| adhere to api standards |
19 --| 03/17/2004 Veeresha Javli WIP completion items: Option 4: Rollup |
20 --| for all items by BOM level |
21 --| Major design change; Function |
22 --| Check_Interorg_Item_Level created |
23 --| 04/10/2004 Veeresha Javli Package body name change as |
24 --| CST_PERIODIC_ABSORPTION_PROC |
25 --| ----------------------------------------------------------------------|
26 --| -------------------------- R12 ENHANCEMENTS --------------------------|
27 --| ----------------------------------------------------------------------|
28 --| 06/15/2005 vjavli BOM115100:Bug#4351270 fix: Time zone issue - |
29 --| transfer_cp_manager added with p_le_process_upto_|
30 --| date for LE time zone |
31 --| 12/10/2005 vjavli Get_Transfer_Price_Option function created |
32 --| 12/16/2005 vjavli Calc_Pmac_Update_Cppb_First created - copy of |
33 --| Calc_Pmac_Update_Cppb for a given cost group |
34 --| 10/30/2008 vjavli FP 12.1.1 Bug 7342514 fix: COST ADJ NOT |
35 --| CONSIDERED FOR PRIMARY_QUANTITY NOT POPULATED |
36 --| IN MMT. Periodic Cost Update - Value Change has |
37 --| to be processed after all the cost owned txns. |
38 --| In specific, after processing inter-org receipts |
39 --| in the first iteration |
40 --+========================================================================
41
42 --===================
43 -- CONSTANTS
44 --===================
45
46 G_LOG_PROCEDURE CONSTANT NUMBER := 2;
47 g_loop_flag NUMBER := 0;
48 --=================
49 -- TYPES
50 --=================
51
52 TYPE rec_type IS
53 RECORD (cost_group_id NUMBER
54 ,starting_phase NUMBER
55 ,master_org_id NUMBER);
56
57 TYPE tbl_type IS TABLE OF rec_type INDEX BY PLS_INTEGER;
58
59 TYPE Expense_Itm_Table IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
60 TYPE Expense_Item_Table IS TABLE OF Expense_Itm_Table INDEX BY PLS_INTEGER;
61
62 TYPE Expense_Flg_Table IS TABLE OF NUMBER INDEX BY MTL_MATERIAL_TRANSACTIONS.SUBINVENTORY_CODE%TYPE;
63 TYPE Expense_Flag_Table IS TABLE OF Expense_Flg_Table INDEX BY PLS_INTEGER;
64
65 G_EXPENSE_FLAG_CACHE Expense_Flag_Table;
66 G_EXPENSE_ITEM_CACHE Expense_Item_Table;
67 --=========================
68 -- PROCEDURES AND FUNCTIONS
69 --=========================
70 --========================================================================
71 -- PROCEDURE : Get Exp Flag PRIVATE
72 -- COMMENT : get exp flag for items considered to be an asset
73 --=========================================================================
74 PROCEDURE get_exp_flag
75 (p_item_id IN NUMBER
76 ,p_org_id IN NUMBER
77 ,p_subinventory_code IN VARCHAR2
78 ,x_exp_flag OUT NOCOPY NUMBER
79 ,x_exp_item OUT NOCOPY NUMBER
80 );
81
82 --========================================================================
83 -- PROCEDURE : Transfer_CP_Manager PUBLIC
84 -- PARAMETERS: p_legal_entity_id IN Legal Entity Id
85 -- p_cost_type_id IN Cost Type Id
86 -- p_period_id IN Period Id
87 -- p_process_upto_date IN Latest Date for Processor Run
88 -- p_le_process_upto_date IN LE process upto date
89 -- p_tolerance IN Tolerance to adhere to
90 -- p_number_of_iterations IN Max number of iterations to try
91 -- p_run_options IN Run options (start,resume,final)
92 -- start - 1, resume - 2, final - 3
93 -- x_return_status OUT NOCOPY VARCHAR2
94 -- x_msg_count OUT NOCOPY NUMBER
95 -- x_msg_data OUT NOCOPY VARCHAR2
96 -- COMMENT : This procedure will perform the validation needed
97 -- prior to processing the inter-org transfer transactions
98 --=========================================================================
99
100 PROCEDURE transfer_cp_manager
101 ( p_legal_entity IN NUMBER
102 , p_cost_type_id IN NUMBER
103 , p_period_id IN NUMBER
104 , p_process_upto_date IN VARCHAR2
105 , p_le_process_upto_date IN VARCHAR2
106 , p_tolerance IN NUMBER
107 , p_number_of_iterations IN NUMBER
108 , p_number_of_workers IN NUMBER
109 , p_run_options IN NUMBER
110 , x_return_status OUT NOCOPY VARCHAR2
111 , x_msg_count OUT NOCOPY NUMBER
112 , x_msg_data OUT NOCOPY VARCHAR2
113 );
114
115 --========================================================================
116 -- PROCEDURE : Periodic Cost Update by level PRIVATE
117 -- COMMENT : Run the cost processor for modes
118 -- : periodic cost update (value change)
119 --=========================================================================
120 PROCEDURE Periodic_Cost_Update_By_Level
121 ( p_period_id IN NUMBER
122 , p_legal_entity IN NUMBER
123 , p_cost_type_id IN NUMBER
124 , p_cost_group_id IN NUMBER
125 , p_inventory_item_id IN NUMBER
126 , p_cost_method IN NUMBER
127 , p_start_date IN DATE
128 , p_end_date IN DATE
129 , p_pac_rates_id IN NUMBER
130 , p_master_org_id IN NUMBER
131 , p_uom_control IN NUMBER
132 , p_low_level_code IN NUMBER
133 , p_user_id IN NUMBER
134 , p_login_id IN NUMBER
135 , p_req_id IN NUMBER
136 , p_prg_id IN NUMBER
137 , p_prg_appid IN NUMBER
138 );
139
140 END CST_PERIODIC_ABSORPTION_PROC;