1 PACKAGE BODY RLM_RLMDMCOM_XMLP_PKG AS
2 /* $Header: RLMDMCOMB.pls 120.0 2008/01/25 09:36:07 krreddy noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_CURRENT_ORG_ID NUMBER;
5 L_OU_NAME VARCHAR2(240);
6 CURSOR CUR_SCHEDULE_TYPE(V_SCHEDULE_TYPE IN VARCHAR2) IS
7 SELECT
8 MEANING
9 FROM
10 FND_LOOKUP_VALUES_VL
11 WHERE LOOKUP_TYPE = 'RLM_SCHEDULE_TYPE'
12 AND LOOKUP_CODE = V_SCHEDULE_TYPE
13 AND ENABLED_FLAG = 'Y';
14 CURSOR CUR_SCH_REF_NUM(V_SCH_REF_NUM IN NUMBER) IS
15 SELECT
16 SCHEDULE_REFERENCE_NUM
17 FROM
18 RLM_SCHEDULE_HEADERS_ALL
19 WHERE HEADER_ID = V_SCH_REF_NUM;
20 CURSOR CUR_SHIP_FROM(V_SHIP_FROM IN NUMBER) IS
21 SELECT
22 ORGANIZATION_CODE
23 FROM
24 ORG_ORGANIZATION_DEFINITIONS
25 WHERE ORGANIZATION_ID = V_SHIP_FROM;
26 CURSOR CUR_P_SHIP_TO(NU_SHIP_TO IN NUMBER) IS
27 SELECT
28 ECE_TP_LOCATION_CODE
29 FROM
30 HZ_CUST_ACCT_SITES
31 WHERE CUST_ACCT_SITE_ID = NU_SHIP_TO;
32 CURSOR CUR_DEMAND_TYPE(V_DEMAND_TYPE IN VARCHAR2) IS
33 SELECT
34 MEANING
35 FROM
36 FND_COMMON_LOOKUPS
37 WHERE LOOKUP_TYPE = 'RLM_FIRM_FORECAST_BOTH'
38 AND LOOKUP_CODE = V_DEMAND_TYPE
39 AND ENABLED_FLAG = 'Y';
40 CURSOR CUR_DISCREP_ONLY(V_DISCREP IN VARCHAR2) IS
41 SELECT
42 MEANING
43 FROM
44 FND_LOOKUP_VALUES_VL
45 WHERE LOOKUP_TYPE = 'YES_NO'
46 AND LOOKUP_CODE = V_DISCREP
47 AND ENABLED_FLAG = 'Y';
48 CURSOR CUR_SEQ_MATCH(P_SEQ_MATCH IN VARCHAR2) IS
49 SELECT
50 MEANING
51 FROM
52 FND_LOOKUP_VALUES_VL
53 WHERE LOOKUP_TYPE = 'RLM_OPTIONAL_MATCH_ATTRIBUTES'
54 AND ENABLED_FLAG = 'Y'
55 AND LOOKUP_CODE = P_SEQ_MATCH;
56 BEGIN
57 BEGIN
58 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
59 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
60 EXCEPTION
61 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
62 /*SRW.MESSAGE(1000
63 ,'Failed in BEFORE REPORT trigger')*/NULL;
64 RETURN (FALSE);
65 END;
66 L_CURRENT_ORG_ID := MO_GLOBAL.GET_CURRENT_ORG_ID;
67 IF (L_CURRENT_ORG_ID IS NULL AND P_ORG_ID IS NOT NULL) THEN
68 MO_GLOBAL.SET_POLICY_CONTEXT(P_ACCESS_MODE => 'S'
69 ,P_ORG_ID => P_ORG_ID);
70 L_CURRENT_ORG_ID := P_ORG_ID;
71 END IF;
72 L_OU_NAME := FND_ACCESS_CONTROL_UTIL.GET_ORG_NAME(L_CURRENT_ORG_ID);
73 CP_DEFAULT_OU := L_OU_NAME;
74 IF P_SCHEDULE_TYPE IS NOT NULL THEN
75 OPEN CUR_SCHEDULE_TYPE(P_SCHEDULE_TYPE);
76 FETCH CUR_SCHEDULE_TYPE
77 INTO CP_P_SCHEDULE_TYPE;
78 CLOSE CUR_SCHEDULE_TYPE;
79 END IF;
80 IF P_SCHEDULE_REFERENCE_NUM IS NOT NULL THEN
81 OPEN CUR_SCH_REF_NUM(P_SCHEDULE_REFERENCE_NUM);
82 FETCH CUR_SCH_REF_NUM
83 INTO CP_P_SCHEDULE_REF_NUM;
84 CLOSE CUR_SCH_REF_NUM;
85 END IF;
86 IF P_SHIP_FROM_ORG_ID IS NOT NULL THEN
87 OPEN CUR_SHIP_FROM(P_SHIP_FROM_ORG_ID);
88 FETCH CUR_SHIP_FROM
89 INTO CP_P_SHIP_FROM;
90 CLOSE CUR_SHIP_FROM;
91 END IF;
92 IF P_SHIP_TO IS NOT NULL THEN
93 OPEN CUR_P_SHIP_TO(P_SHIP_TO);
94 FETCH CUR_P_SHIP_TO
95 INTO CP_P_SHIP_TO;
96 CLOSE CUR_P_SHIP_TO;
97 END IF;
98 IF P_DEMAND_TYPE IS NOT NULL THEN
99 OPEN CUR_DEMAND_TYPE(P_DEMAND_TYPE);
100 FETCH CUR_DEMAND_TYPE
101 INTO CP_P_DEMAND_TYPE;
102 CLOSE CUR_DEMAND_TYPE;
103 END IF;
104 IF P_DISCREPANCIES_ONLY IS NOT NULL THEN
105 OPEN CUR_DISCREP_ONLY(P_DISCREPANCIES_ONLY);
106 FETCH CUR_DISCREP_ONLY
107 INTO CP_P_DISCREPANCIES_ONLY;
108 CLOSE CUR_DISCREP_ONLY;
109 END IF;
110 IF P_SEQ_MATCH_ATTRIBUTE IS NOT NULL THEN
111 OPEN CUR_SEQ_MATCH(P_SEQ_MATCH_ATTRIBUTE);
112 FETCH CUR_SEQ_MATCH
113 INTO CP_P_SEQ_MATCH_LABEL;
114 CLOSE CUR_SEQ_MATCH;
115 END IF;
116 RLM_COMP_SCH_TO_DEMAND_SV.PROC_COMP_SCH_TO_DEMAND(P_SCHEDULE_TYPE => P_SCHEDULE_TYPE
117 ,P_HEADER_ID => P_SCHEDULE_REFERENCE_NUM
118 ,P_CUSTOMER_NAME_FROM => P_CUSTOMER_NAME_FROM
119 ,P_CUSTOMER_NAME_TO => P_CUSTOMER_NAME_TO
120 ,P_SHIP_FROM_ORG_ID => P_SHIP_FROM_ORG_ID
121 ,P_SHIP_TO => P_SHIP_TO
122 ,P_TP_CODE_FROM => P_TP_CODE_FROM
123 ,P_TP_CODE_TO => P_TP_CODE_TO
124 ,P_TP_LOCATION_FROM => P_TP_LOCATION_FROM
125 ,P_TP_LOCATION_TO => P_TP_LOCATION_TO
126 ,P_PROCESS_DATE_FROM => P_PROCESS_DATE_FROM
127 ,P_PROCESS_DATE_TO => P_PROCESS_DATE_TO
128 ,P_ISSUE_DATE_FROM => P_ISSUE_DATE_FROM
129 ,P_ISSUE_DATE_TO => P_ISSUE_DATE_TO
130 ,P_REQUEST_DATE_FROM => P_REQUEST_DATE_FROM
131 ,P_REQUEST_DATE_TO => P_REQUEST_DATE_TO
132 ,P_CUSTOMER_ITEM_FROM => P_CUSTOMER_ITEM_FROM
133 ,P_CUSTOMER_ITEM_TO => P_CUSTOMER_ITEM_TO
134 ,P_INTERNAL_ITEM_FROM => P_INTERNAL_ITEM_FROM
135 ,P_INTERNAL_ITEM_TO => P_INTERNAL_ITEM_TO
136 ,P_DEMAND_TYPE => P_DEMAND_TYPE);
137 RETURN (TRUE);
138 EXCEPTION
139 WHEN OTHERS THEN
140 RETURN (NULL);
141 END BEFOREREPORT;
142
143 FUNCTION CF_SHIP_FROM_ORG_IDFORMULA(SHIP_FROM_ORG_ID IN NUMBER) RETURN CHAR IS
144 V_SHIP_FROM ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
145 CURSOR CUR_SHIP_FROM(NU_SHIP_FROM IN NUMBER) IS
146 SELECT
147 ORGANIZATION_NAME
148 FROM
149 ORG_ORGANIZATION_DEFINITIONS HRORGS
150 WHERE HRORGS.ORGANIZATION_ID = NU_SHIP_FROM;
151 BEGIN
152 OPEN CUR_SHIP_FROM(SHIP_FROM_ORG_ID);
153 FETCH CUR_SHIP_FROM
154 INTO V_SHIP_FROM;
155 CLOSE CUR_SHIP_FROM;
156 RETURN (V_SHIP_FROM);
157 EXCEPTION
158 WHEN OTHERS THEN
159 RETURN (NULL);
160 END CF_SHIP_FROM_ORG_IDFORMULA;
161
162 FUNCTION CF_SHIP_TOFORMULA(SHIP_TO_ADDRESS_ID IN NUMBER) RETURN CHAR IS
163 V_SHIP_TO HZ_CUST_ACCT_SITES.ECE_TP_LOCATION_CODE%TYPE;
164 CURSOR CUR_SHIP_TO(NU_SHIP_TO IN NUMBER) IS
165 SELECT
166 ECE_TP_LOCATION_CODE
167 FROM
168 HZ_CUST_ACCT_SITES
169 WHERE CUST_ACCT_SITE_ID = NU_SHIP_TO;
170 BEGIN
171 OPEN CUR_SHIP_TO(SHIP_TO_ADDRESS_ID);
172 FETCH CUR_SHIP_TO
173 INTO V_SHIP_TO;
174 CLOSE CUR_SHIP_TO;
175 RETURN (V_SHIP_TO);
176 EXCEPTION
177 WHEN OTHERS THEN
178 RETURN (NULL);
179 END CF_SHIP_TOFORMULA;
180
181 FUNCTION CF_PRE_HORIZON_DISP_CODEFORMUL(PREHORIZON_DESPOSITION_CODE IN VARCHAR2) RETURN CHAR IS
182 V_PRE_HORIZON_DISP VARCHAR2(240);
183 CURSOR CUR_FIRM_DISP_CODE(V_PRE_HORIZ_DISP_CODE IN VARCHAR2) IS
184 SELECT
185 MEANING
186 FROM
187 FND_LOOKUP_VALUES_VL
188 WHERE LOOKUP_TYPE = 'RLM_FIRM_DISP_CODE'
189 AND LOOKUP_CODE = V_PRE_HORIZ_DISP_CODE;
190 BEGIN
191 OPEN CUR_FIRM_DISP_CODE(PREHORIZON_DESPOSITION_CODE);
192 FETCH CUR_FIRM_DISP_CODE
193 INTO V_PRE_HORIZON_DISP;
194 CLOSE CUR_FIRM_DISP_CODE;
195 RETURN (V_PRE_HORIZON_DISP);
196 EXCEPTION
197 WHEN OTHERS THEN
198 RETURN (NULL);
199 END CF_PRE_HORIZON_DISP_CODEFORMUL;
200
201 FUNCTION CF_INTRANSIT_CALC_BASISFORMULA(INTRANSIT_CALC_BASIS IN VARCHAR2) RETURN CHAR IS
202 V_INTRANSIT_CALC_BASIS VARCHAR2(240);
203 CURSOR CUR_INTRANSIT_CALC(V_INTRANSIT_CAL IN VARCHAR2) IS
204 SELECT
205 MEANING
206 FROM
207 FND_LOOKUP_VALUES_VL
208 WHERE LOOKUP_TYPE = 'RLM_INTRANSIT_CALC_BASIS'
209 AND LOOKUP_CODE = V_INTRANSIT_CAL
210 AND ENABLED_FLAG = 'Y';
211 BEGIN
212 OPEN CUR_INTRANSIT_CALC(INTRANSIT_CALC_BASIS);
213 FETCH CUR_INTRANSIT_CALC
214 INTO V_INTRANSIT_CALC_BASIS;
215 CLOSE CUR_INTRANSIT_CALC;
216 RETURN (V_INTRANSIT_CALC_BASIS);
217 EXCEPTION
218 WHEN OTHERS THEN
219 RETURN (NULL);
220 END CF_INTRANSIT_CALC_BASISFORMULA;
221
222 FUNCTION CF_MATCH_SEQFORMULA(CUSTOMER_ITEM_REVISION IN VARCHAR2
223 ,CUSTOMER_DOCK_CODE IN VARCHAR2
224 ,CUSTOMER_JOB IN VARCHAR2
225 ,CUST_PRODUCTION_LINE IN VARCHAR2
226 ,CUST_MODEL_SERIAL_NUMBER IN VARCHAR2
227 ,SCH_PO_NUMBER IN VARCHAR2
228 ,CUST_PRODUCTION_SEQ_NUM IN VARCHAR2
229 ,RECORD_YEAR IN VARCHAR2
230 ,CUSTOMER_REQUEST_DATE IN VARCHAR2
231 ,PULL_SIGNAL_REF_NUM IN VARCHAR2
232 ,PULL_SIGNAL_START_SERIAL_NUM IN VARCHAR2
233 ,PULL_SIGNAL_END_SERIAL_NUM IN VARCHAR2
234 ,REQUEST_DATE_TIME IN DATE) RETURN CHAR IS
235 V_SEQ_MATCH VARCHAR2(40);
236 CURSOR CUR_SEQ_MATCH(P_SEQ_MATCH IN VARCHAR2) IS
237 SELECT
238 MEANING,
239 SUBSTR(LOOKUP_CODE
240 ,INSTR(LOOKUP_CODE
241 ,',') + 1)
242 FROM
243 FND_LOOKUP_VALUES_VL
244 WHERE LOOKUP_TYPE = 'RLM_OPTIONAL_MATCH_ATTRIBUTES'
245 AND ENABLED_FLAG = 'Y'
246 AND LOOKUP_CODE = P_SEQ_MATCH;
247 BEGIN
248 IF P_SCHEDULE_TYPE = 'SEQUENCED' THEN
249 OPEN CUR_SEQ_MATCH(P_SEQ_MATCH_ATTRIBUTE);
250 FETCH CUR_SEQ_MATCH
251 INTO CP_SEQ_MATCH_LABEL,V_SEQ_MATCH;
252 CLOSE CUR_SEQ_MATCH;
253 IF V_SEQ_MATCH = 'F' THEN
254 CP_SEQ_COLUMN := CUSTOMER_ITEM_REVISION;
255 ELSIF P_SEQ_MATCH_ATTRIBUTE = 'B' THEN
256 CP_SEQ_COLUMN := CUSTOMER_DOCK_CODE;
257 ELSIF V_SEQ_MATCH = 'G' THEN
258 CP_SEQ_COLUMN := CUSTOMER_JOB;
259 ELSIF V_SEQ_MATCH = 'A' THEN
260 CP_SEQ_COLUMN := CUST_PRODUCTION_LINE;
261 ELSIF V_SEQ_MATCH = 'H' THEN
262 CP_SEQ_COLUMN := CUST_MODEL_SERIAL_NUMBER;
263 ELSIF V_SEQ_MATCH = 'E' THEN
264 CP_SEQ_COLUMN := SCH_PO_NUMBER;
265 ELSIF V_SEQ_MATCH = '$' THEN
266 CP_SEQ_COLUMN := CUST_PRODUCTION_SEQ_NUM;
267 ELSIF V_SEQ_MATCH = 'I' THEN
268 CP_SEQ_COLUMN := RECORD_YEAR;
269 ELSIF V_SEQ_MATCH = 'J' THEN
270 CP_SEQ_COLUMN := CUSTOMER_REQUEST_DATE;
271 ELSIF V_SEQ_MATCH = 'K' THEN
272 CP_SEQ_COLUMN := PULL_SIGNAL_REF_NUM;
273 ELSIF V_SEQ_MATCH = 'L' THEN
274 CP_SEQ_COLUMN := PULL_SIGNAL_START_SERIAL_NUM;
275 ELSIF V_SEQ_MATCH = 'M' THEN
276 CP_SEQ_COLUMN := PULL_SIGNAL_END_SERIAL_NUM;
277 ELSIF V_SEQ_MATCH = 'C' THEN
278 CP_SEQ_COLUMN := REQUEST_DATE_TIME;
279 ELSE
280 V_SEQ_MATCH := NULL;
281 END IF;
282 ELSE
283 RETURN (NULL);
284 END IF;
285 RETURN (NULL);
286 END CF_MATCH_SEQFORMULA;
287
288 FUNCTION IS_SEQUENCED RETURN BOOLEAN IS
289 BEGIN
290 IF P_SCHEDULE_TYPE = 'SEQUENCED' THEN
291 RETURN TRUE;
292 ELSE
293 RETURN FALSE;
294 END IF;
295 END IS_SEQUENCED;
296
297 FUNCTION IS_NON_SEQUENCED RETURN BOOLEAN IS
298 BEGIN
299 IF P_SCHEDULE_TYPE <> 'SEQUENCED' THEN
300 RETURN TRUE;
301 ELSE
302 RETURN FALSE;
303 END IF;
304 END IS_NON_SEQUENCED;
305
306 FUNCTION CF_ORDERNUMFORMULA(ORDER_NUMBER IN NUMBER) RETURN NUMBER IS
307 NU_ORDER_NUMBER NUMBER;
308 CURSOR CUR_ORDER_NUMBER(NU_ORDER_NUM IN NUMBER) IS
309 SELECT
310 ORDER_NUMBER
311 FROM
312 OE_ORDER_HEADERS
313 WHERE HEADER_ID = NU_ORDER_NUM;
314 BEGIN
315 IF ORDER_NUMBER IS NOT NULL THEN
316 OPEN CUR_ORDER_NUMBER(ORDER_NUMBER);
317 FETCH CUR_ORDER_NUMBER
318 INTO NU_ORDER_NUMBER;
319 CLOSE CUR_ORDER_NUMBER;
320 ELSE
321 RETURN (NULL);
322 END IF;
323 RETURN (NU_ORDER_NUMBER);
324 EXCEPTION
325 WHEN OTHERS THEN
326 RETURN (NULL);
327 END CF_ORDERNUMFORMULA;
328
329 FUNCTION CF_CUSTOMER_NUMBER_MEANFORMULA(CUSTOMER_NUMBER IN NUMBER) RETURN CHAR IS
330 V_ACCOUNT_NUM HZ_CUST_ACCOUNTS.ACCOUNT_NUMBER%TYPE;
331 CURSOR CUR_CUSTOMER_NUMBER(CUST_NUM IN NUMBER) IS
332 SELECT
333 CUST_ACCT.ACCOUNT_NUMBER
334 FROM
335 HZ_PARTIES PARTY,
336 HZ_CUST_ACCOUNTS CUST_ACCT
337 WHERE PARTY.PARTY_ID = CUST_ACCT.PARTY_ID
338 AND CUST_ACCT.CUST_ACCOUNT_ID = CUST_NUM;
339 BEGIN
340 OPEN CUR_CUSTOMER_NUMBER(CUSTOMER_NUMBER);
341 FETCH CUR_CUSTOMER_NUMBER
342 INTO V_ACCOUNT_NUM;
343 CLOSE CUR_CUSTOMER_NUMBER;
344 RETURN (V_ACCOUNT_NUM);
345 EXCEPTION
346 WHEN OTHERS THEN
347 RETURN (NULL);
348 END CF_CUSTOMER_NUMBER_MEANFORMULA;
349
350 FUNCTION CF_FROZEN_FLAGFORMULA(FROZEN_FLAG IN VARCHAR2) RETURN CHAR IS
351 V_FROZEN_FLAG FND_LOOKUP_VALUES_VL.MEANING%TYPE;
352 CURSOR CUR_FROZEN_FLAG(V_FLAG_CODE IN VARCHAR2) IS
353 SELECT
354 MEANING
355 FROM
356 FND_LOOKUP_VALUES_VL
357 WHERE LOOKUP_TYPE = 'YES_NO'
358 AND LOOKUP_CODE = V_FLAG_CODE
359 AND ENABLED_FLAG = 'Y';
360 BEGIN
361 OPEN CUR_FROZEN_FLAG(FROZEN_FLAG);
362 FETCH CUR_FROZEN_FLAG
363 INTO V_FROZEN_FLAG;
364 CLOSE CUR_FROZEN_FLAG;
365 RETURN (V_FROZEN_FLAG);
366 EXCEPTION
367 WHEN OTHERS THEN
368 RETURN (NULL);
369 END CF_FROZEN_FLAGFORMULA;
370
371 FUNCTION CF_TIME_UOM_CODEFORMULA(TIME_UOM_CODE IN VARCHAR2) RETURN CHAR IS
372 V_TIME_UOM_CODE FND_LOOKUP_VALUES_VL.MEANING%TYPE;
373 CURSOR CUR_TIME_UOM_CODE(V_TIME_UOM IN VARCHAR2) IS
374 SELECT
375 MEANING
376 FROM
377 FND_LOOKUP_VALUES_VL
378 WHERE LOOKUP_TYPE = 'RLM_TIME_UOM'
379 AND LOOKUP_CODE = V_TIME_UOM
380 AND ENABLED_FLAG = 'Y';
381 BEGIN
382 OPEN CUR_TIME_UOM_CODE(TIME_UOM_CODE);
383 FETCH CUR_TIME_UOM_CODE
384 INTO V_TIME_UOM_CODE;
385 CLOSE CUR_TIME_UOM_CODE;
386 RETURN (V_TIME_UOM_CODE);
387 EXCEPTION
388 WHEN OTHERS THEN
389 RETURN (NULL);
390 END CF_TIME_UOM_CODEFORMULA;
391
392 FUNCTION CF_EXCLUDE_NONWORKDAYSFORMULA(EXCLUDE_NON_WORKDAYS_FLAG IN VARCHAR2) RETURN CHAR IS
393 V_EXC_NONWORKDAYS_FLAG FND_LOOKUP_VALUES_VL.MEANING%TYPE;
394 CURSOR CUR_EXC_NONWORK_FLAG(V_EXC_NONWORKDAYS_FLAG IN VARCHAR2) IS
395 SELECT
396 MEANING
397 FROM
398 FND_LOOKUP_VALUES_VL
399 WHERE LOOKUP_TYPE = 'YES_NO'
400 AND LOOKUP_CODE = V_EXC_NONWORKDAYS_FLAG
401 AND ENABLED_FLAG = 'Y';
402 BEGIN
403 OPEN CUR_EXC_NONWORK_FLAG(EXCLUDE_NON_WORKDAYS_FLAG);
404 FETCH CUR_EXC_NONWORK_FLAG
405 INTO V_EXC_NONWORKDAYS_FLAG;
406 CLOSE CUR_EXC_NONWORK_FLAG;
407 RETURN (V_EXC_NONWORKDAYS_FLAG);
408 EXCEPTION
409 WHEN OTHERS THEN
410 RETURN (NULL);
411 END CF_EXCLUDE_NONWORKDAYSFORMULA;
412
413 FUNCTION AFTERREPORT RETURN BOOLEAN IS
414 BEGIN
415 BEGIN
416 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
417 EXCEPTION
418 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
419 /*SRW.MESSAGE(1
420 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
421 RETURN (FALSE);
422 END;
423 RETURN (TRUE);
424 END AFTERREPORT;
425
426 FUNCTION CP_SEQ_MATCH_LABEL_P RETURN VARCHAR2 IS
427 BEGIN
428 RETURN CP_SEQ_MATCH_LABEL;
429 END CP_SEQ_MATCH_LABEL_P;
430
431 FUNCTION CP_SEQ_COLUMN_P RETURN VARCHAR2 IS
432 BEGIN
433 RETURN CP_SEQ_COLUMN;
434 END CP_SEQ_COLUMN_P;
435
436 FUNCTION CP_P_SCHEDULE_TYPE_P RETURN VARCHAR2 IS
437 BEGIN
438 RETURN CP_P_SCHEDULE_TYPE;
439 END CP_P_SCHEDULE_TYPE_P;
440
441 FUNCTION CP_P_SHIP_TO_P RETURN VARCHAR2 IS
442 BEGIN
443 RETURN CP_P_SHIP_TO;
444 END CP_P_SHIP_TO_P;
445
446 FUNCTION CP_P_SEQ_MATCH_LABEL_P RETURN VARCHAR2 IS
447 BEGIN
448 RETURN CP_P_SEQ_MATCH_LABEL;
449 END CP_P_SEQ_MATCH_LABEL_P;
450
451 FUNCTION CP_P_DEMAND_TYPE_P RETURN VARCHAR2 IS
452 BEGIN
453 RETURN CP_P_DEMAND_TYPE;
454 END CP_P_DEMAND_TYPE_P;
455
456 FUNCTION CP_P_DISCREPANCIES_ONLY_P RETURN VARCHAR2 IS
457 BEGIN
458 RETURN CP_P_DISCREPANCIES_ONLY;
459 END CP_P_DISCREPANCIES_ONLY_P;
460
461 FUNCTION CP_P_SCHEDULE_REF_NUM_P RETURN VARCHAR2 IS
462 BEGIN
463 RETURN CP_P_SCHEDULE_REF_NUM;
464 END CP_P_SCHEDULE_REF_NUM_P;
465
466 FUNCTION CP_P_SHIP_FROM_P RETURN VARCHAR2 IS
467 BEGIN
468 RETURN CP_P_SHIP_FROM;
469 END CP_P_SHIP_FROM_P;
470
471 FUNCTION CP_DEFAULT_OU_P RETURN VARCHAR2 IS
472 BEGIN
473 RETURN CP_DEFAULT_OU;
474 END CP_DEFAULT_OU_P;
475
476 END RLM_RLMDMCOM_XMLP_PKG;