1 PACKAGE MRP_CL_FUNCTION AUTHID CURRENT_USER AS
2 /* $Header: MRPCLHAS.pls 120.12 2012/02/22 09:21:49 ngaddamp ship $ */
3
4
5 ----- CONSTANTS --------------------------------------------------------
6
7 SYS_YES CONSTANT NUMBER := 1;
8 SYS_NO CONSTANT NUMBER := 2;
9
10 G_SUCCESS CONSTANT NUMBER := 0;
11 G_WARNING CONSTANT NUMBER := 1;
12 G_ERROR CONSTANT NUMBER := 2;
13
14 ----- PARAMETERS --------------------------------------------------------
15 v_yield_uom_class varchar2(10):= FND_PROFILE.value('FM_YIELD_TYPE');
16 v_debug BOOLEAN := FALSE;
17
18 v_price_list_id number := FND_PROFILE.value('MRP_BIS_PRICE_LIST');
19 v_cp_enabled NUMBER;
20
21
22 v_lrn NUMBER;
23 v_request_id NUMBER;
24 v_cmro_customer_id NUMBER;
25
26
27 -- ================= Functions ====================
28
29 PROCEDURE APPS_INITIALIZE(
30 p_user_name IN VARCHAR2,
31 p_resp_name IN VARCHAR2,
32 p_application_name IN VARCHAR2 );
33
34 FUNCTION Default_ABC_Assignment_Group ( p_org_id NUMBER)
35 RETURN NUMBER;
36
37 FUNCTION mrp_item_cost(p_item_id in number,
38 p_org_id in number,
39 p_primary_cost_method in number)
40 RETURN NUMBER;
41
42 FUNCTION mrp_resource_cost(p_item_id in number,
43 p_org_id in number,
44 p_primary_cost_method in number)
45 RETURN NUMBER;
46
47 FUNCTION mrp_item_list_price(arg_item_id in number,
48 arg_org_id in number,
49 arg_uom_code in varchar2,
50 arg_process_flag in varchar2,
51 arg_primary_cost_method in number)
52 RETURN NUMBER;
53
54 FUNCTION mrp_item_supp_price(p_item_id in number,
55 p_asl_id in number)
56 RETURN NUMBER;
57
58 /*over-loaded the funcs so that the old ver of view mrp_ap_wip_jobs_v does
59 not get invalid during patch application */
60 FUNCTION mrp_rev_cum_yield(p_wip_entity_id in number,
61 p_org_id in number)
62 RETURN NUMBER;
63
64 FUNCTION mrp_rev_cum_yield_unreleased(p_wip_entity_id in number,
65 p_org_id in number)
66 RETURN NUMBER;
67
68 FUNCTION mrp_rev_cum_yield(p_wip_entity_id in number,
69 p_org_id in number,
70 p_bill_seq_id in number,
71 p_co_prod_supply in number)
72 RETURN NUMBER;
73
74 FUNCTION mrp_day_uom_qty(p_uom_code in varchar2,
75 p_quantity in number)
76 RETURN NUMBER;
77
78 FUNCTION mrp_rev_cum_yield_unreleased(p_wip_entity_id in number,
79 p_org_id in number,
80 p_bill_seq_id in number,
81 p_co_prod_supply in number)
82 RETURN NUMBER;
83
84 FUNCTION mrp_jd_rev_cum_yield(p_wip_entity_id in number,
85 p_org_id in number,
86 p_bill_seq_id in number,
87 p_co_prod_supply in number)
88 RETURN NUMBER;
89 FUNCTION get_primary_quantity(p_org_id in number,
90 p_item_id in number,
91 p_primary_uom_code in varchar2)
92 RETURN NUMBER;
93
94 FUNCTION GET_RESOURCE_OVERHEAD(res_id IN NUMBER, dept_id IN NUMBER,
95 org_id IN NUMBER, res_cost IN NUMBER)
96 RETURN NUMBER;
97
98 FUNCTION GET_CURRENT_OP_SEQ_NUM(p_org_id IN NUMBER,
99 p_wip_entity_id IN NUMBER)
100 RETURN NUMBER;
101
102 FUNCTION GET_CURRENT_JD_OP_SEQ_NUM( p_org_id IN NUMBER
103 , p_wip_entity_id IN NUMBER)
104 RETURN NUMBER;
105
106 FUNCTION GET_CURRENT_JOB_OP_SEQ_NUM( p_org_id IN NUMBER
107 , p_wip_entity_id IN NUMBER)
108 RETURN NUMBER;
109
110 FUNCTION GET_CURRENT_RTNG_OP_SEQ_NUM( p_org_id IN NUMBER
111 , p_wip_entity_id IN NUMBER)
112 RETURN NUMBER;
113
114 FUNCTION GETWFUSER(ORIG_SYS_ID in varchar2)
115 RETURN VARCHAR2;
116
117 FUNCTION GET_ROUTING_SEQ_ID ( p_primary_item_id IN NUMBER,
118 p_org_id IN NUMBER,
119 p_alt_ROUTING_DESIG IN VARCHAR2,
120 p_common_rout_seq_id IN NUMBER
121 )
122 RETURN NUMBER;
123
124 FUNCTION GET_PO_ORIG_NEED_BY_DATE ( p_po_header_id IN NUMBER,
125 p_po_line_id IN NUMBER,
126 p_po_line_location_id IN NUMBER
127 )
128 RETURN DATE;
129
130 FUNCTION GET_PO_ORIG_QUANTITY ( p_po_header_id IN NUMBER,
131 p_po_line_id IN NUMBER,
132 p_po_line_location_id IN NUMBER
133 )
134 RETURN NUMBER;
135
136 FUNCTION get_userenv_lang RETURN varchar2;
137
138 FUNCTION GET_COST_TYPE_ID ( p_org_id IN NUMBER )
139 RETURN NUMBER;
140
141 --PRAGMA RESTRICT_REFERENCES (Default_ABC_Assignment_Group,WNDS,WNPS,RNPS);
142 --PRAGMA RESTRICT_REFERENCES (mrp_item_cost,WNDS,WNPS,RNPS);
143 --PRAGMA RESTRICT_REFERENCES (mrp_resource_cost,WNDS,WNPS,RNPS);
144 --PRAGMA RESTRICT_REFERENCES (mrp_item_list_price,WNDS,WNPS,RNPS);
145
146 FUNCTION MAP_REGION_TO_SITE(p_last_update_date in DATE) RETURN NUMBER;
147 FUNCTION POPULATE_WO_SUB_COMP RETURN NUMBER;
148
149 FUNCTION get_ship_set_name(p_SHIP_SET_ID in number)
150 RETURN VARCHAR2;
151
152 FUNCTION get_arrival_set_name(p_ARRIVAL_SET_ID in number)
153 RETURN VARCHAR2;
154
155
156 /* New Entities to Get the Customer, Bill To and Ship To site */
157 FUNCTION GET_CMRO_CUSTOMER_ID return NUMBER;
158 FUNCTION GET_CMRO_BILL_TO return NUMBER;
159 FUNCTION GET_CMRO_SHIP_TO return NUMBER;
160
161 FUNCTION CHECK_BOM_VER return NUMBER;
162
163 FUNCTION CHECK_AHL_VER return NUMBER;
164
165 /* -- Added this procedure to accept application_id instead of application_name */
166 PROCEDURE APPS_INITIALIZE(
167 p_user_name IN VARCHAR2,
168 p_resp_name IN VARCHAR2,
169 p_application_name IN VARCHAR2,
170 p_application_id IN NUMBER );
171
172 Procedure SUBMIT_CR
173 ( p_user_name IN VARCHAR2,
174 p_resp_name IN VARCHAR2,
175 p_application_name IN VARCHAR2,
176 p_application_id IN NUMBER,
177 p_batch_id IN NUMBER,
178 p_conc_req_short_name IN varchar2 ,
179 p_conc_req_desc IN varchar2 ,
180 p_owning_applshort_name IN varchar2,
181 p_load_type IN NUMBER,
182 p_request_id IN OUT NOCOPY Number) ;
183
184
185 FUNCTION CHECK_WSH_VER return NUMBER;
186
187 FUNCTION IB_CONTRACTS(pREFRESH_TYPE IN varchar2,
188 pSTART_DATe IN DATE, pWINDOW IN NUMBER)
189 RETURN NUMBER ;
190
191 PROCEDURE GET_ZONE (ERRBUF OUT NOCOPY VARCHAR2,
192 RETCODE OUT NOCOPY NUMBER,
193 p_LOCATION_ID IN NUMBER,
194 p_ZONE OUT NOCOPY VARCHAR2,
195 p_REGION_ID OUT NOCOPY NUMBER);
196
197 PROCEDURE POPULATE_IB_CONTRACTS
198 (ERRBUF OUT NOCOPY VARCHAR2,
199 RETCODE OUT NOCOPY NUMBER,
200 pSTART_DATE IN DATE, --VARCHAR2,
201 pPURGE_FLAG IN VARCHAR2 );
202
203 /***Commented the function LONG_TEXT w.rt. bug 13628509
204 /*****Addition of the below function (LONG_TEXT) for bug 12359111 by ngaddamp starts here
205 FUNCTION LONG_TEXT RETURN NUMBER ;
206 ***/
207
208 FUNCTION DOC_TEXT_LONG2CHAR ( pMEDIA_ID IN NUMBER)
209 return varchar2;
210
211 FUNCTION DOC_TEXT_LONG2CLOB (pMEDIA_ID IN NUMBER)
212 return CLOB;
213
214 FUNCTION validateUser (pUSERID IN NUMBER,
215 pTASK IN NUMBER,
216 pMESSAGE IN OUT NOCOPY varchar2)
217 return BOOLEAN;
218
219 PROCEDURE msc_Initialize(pTASK IN NUMBER,
220 pUSERID IN NUMBER,
221 pRESPID IN NUMBER DEFAULT -1,
222 pAPPLID IN NUMBER DEFAULT -1) ;
223
224 ------------------------------------------
225 -- FUNCTION to get cmro WO operation codes--
226 ------------------------------------------
227 Function get_cmro_op_code(p_wip_entity_id NUMBER,
228 p_op_seq_num NUMBER )
229 return VARCHAR2;
230
231 ----------------------------------------------------------------------
232 -- FUNCTION to get cmro/eam operation actual start and actual end date--
233 -- This function will return the actual start date concatenated with
234 -- actual end date with a separator '#' in between them.
235 ----------------------------------------------------------------------
236 Function get_wo_actual_dates(p_wip_entity_id NUMBER,
237 p_op_seq_num NUMBER,
238 p_maint_obj_src NUMBER )
239 return VARCHAR2;
240 END MRP_CL_FUNCTION;
[Home] [Help]