1 PACKAGE BODY GML_ORAKRP_XMLP_PKG AS
2 /* $Header: ORAKRPB.pls 120.0 2007/12/24 13:21:40 nchinnam noship $ */
3 FUNCTION LCHG_DESCCFFORMULA(LINE_ID IN NUMBER
4 ,ORDER_ID IN NUMBER) RETURN VARCHAR2 IS
5 FLD1 VARCHAR2(25);
6 FLD2 NUMBER(20);
7 BEGIN
8 SELECT
9 DISTINCT
10 CHRGMST.CHARGE_DESC,
11 ORDRCHG.EXTENDED_AMOUNT
12 INTO FLD1,FLD2
13 FROM
14 OP_CHRG_MST CHRGMST,
15 OP_ORDR_CHG ORDRCHG
16 WHERE ORDRCHG.LINE_ID = LINE_ID
17 AND CHRGMST.CHARGE_ID = ORDRCHG.CHARGE_ID
18 AND ORDRCHG.ORDER_ID = ORDER_ID
19 AND ORDRCHG.DELETE_MARK = 0
20 AND ORDRCHG.BILLABLE_IND = 1
21 AND ORDRCHG.LINE_ID = 0;
22 CHARGE_DESCCP := FLD1;
23 CHARGE_DESCCP := FLD2;
24 RETURN NULL;
25 EXCEPTION
26 WHEN NO_DATA_FOUND THEN
27 CHARGE_DESCCP := NULL;
28 CHARGE_DESCCP := NULL;
29 RETURN NULL;
30 END LCHG_DESCCFFORMULA;
31
32 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
33 CURSOR ORGN_NAME1 IS
34 SELECT
35 ORGN_NAME
36 FROM
37 SY_ORGN_MST
38 WHERE ORGN_CODE = GML_ORAKRP_XMLP_PKG.ORGN_CODE;
39 BEGIN
40 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
41 FROM_ORDER_DATE_1 := to_char(FROM_ORDER_DATE, 'DD-MON-YYYY');
42 TO_ORDER_DATE_1 := to_char(TO_ORDER_DATE, 'DD-MON-YYYY');
43 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
44 OPEN ORGN_NAME1;
45 FETCH ORGN_NAME1
46 INTO ORGN_NAME_CP;
47 IF ORGN_NAME1%NOTFOUND THEN
48 ORGN_NAME_CP := NULL;
49 END IF;
50 CLOSE ORGN_NAME1;
51 SELECT
52 ORGN_NAME
53 INTO CP_ORGN_NAME
54 FROM
55 SY_ORGN_MST
56 WHERE ORGN_CODE = GML_ORAKRP_XMLP_PKG.ORGN_CODE;
57 SELECT
58 USER_NAME
59 INTO CP_USER
60 FROM
61 FND_USER
62 WHERE USER_ID = DEFAULT_USER;
63 RETURN (TRUE);
64 RETURN NULL;
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 RETURN (TRUE);
68 END BEFOREREPORT;
69
70 FUNCTION NET_WTCFFORMULA(ORDER_UM1 IN VARCHAR2
71 ,SHIPWT_UM IN VARCHAR2
72 ,SHIP_QTY1 IN NUMBER
73 ,ITEM_ID IN NUMBER
74 ,ITEM_UM IN VARCHAR2) RETURN NUMBER IS
75 V_PLAN_QTY_ITEMUM NUMBER(12);
76 X_RET NUMBER(5);
77 BEGIN
78 IF (ORDER_UM1 <> SHIPWT_UM OR NVL(SHIP_QTY1
79 ,0) <> 0) THEN
80 X_RET := GMISYUM.SY_UOMCV(ITEM_ID
81 ,0
82 ,NVL(SHIP_QTY1
83 ,0)
84 ,ORDER_UM1
85 ,ITEM_UM
86 ,V_PLAN_QTY_ITEMUM
87 ,ITEM_UM
88 ,0
89 ,0
90 ,NULL);
91 RETURN V_PLAN_QTY_ITEMUM;
92 ELSE
93 RETURN NVL(SHIP_QTY1
94 ,0);
95 END IF;
96 RETURN NULL;
97 END NET_WTCFFORMULA;
98
99 FUNCTION EXTENDED_AMT_CFFORMULA(ORDER_QTY1 IN NUMBER
100 ,NET_PRICE IN NUMBER) RETURN NUMBER IS
101 BEGIN
102 RETURN (ORDER_QTY1 * NET_PRICE);
103 END EXTENDED_AMT_CFFORMULA;
104
105 FUNCTION EXTENDED_AMOUNTCFFORMULA(LINE_ID IN NUMBER
106 ,ORDER_ID IN NUMBER
107 ,EXTENDED_PRICE IN NUMBER) RETURN NUMBER IS
108 EXT_AMT NUMBER;
109 BEGIN
110 BEGIN
111 SELECT
112 DISTINCT
113 ORDRCHG.EXTENDED_AMOUNT
114 INTO EXT_AMT
115 FROM
116 OP_CHRG_MST CHRGMST,
117 OP_ORDR_CHG ORDRCHG
118 WHERE CHRGMST.CHARGE_ID = ORDRCHG.CHARGE_ID
119 AND ORDRCHG.DELETE_MARK = 0
120 AND ORDRCHG.BILLABLE_IND = 1
121 AND ORDRCHG.LINE_ID = LINE_ID
122 AND ORDRCHG.ORDER_ID = ORDER_ID;
123 EXCEPTION
124 WHEN OTHERS THEN
125 EXT_AMT := 0;
126 END;
127 RETURN (EXTENDED_PRICE + EXT_AMT);
128 END EXTENDED_AMOUNTCFFORMULA;
129
130 FUNCTION ORDER_NUMBERCFFORMULA RETURN VARCHAR2 IS
131 BEGIN
132 /*SRW.REFERENCE(ORDER_NUMBERCP)*/NULL;
133 IF FROM_ORDER_NUMBER IS NOT NULL AND TO_ORDER_NUMBER IS NOT NULL THEN
134 ORDER_NUMBERCP := ' and ordr_hdr.order_no >= ''' || FROM_ORDER_NUMBER || ''' and ordr_hdr.order_no <= ''' || TO_ORDER_NUMBER || '''';
135 ELSIF FROM_ORDER_NUMBER IS NULL AND TO_ORDER_NUMBER IS NULL THEN
136 ORDER_NUMBERCP := NULL;
137 FROM_ORDER_NUMBER := FND_PROFILE.VALUE('SY$ALL');
138 TO_ORDER_NUMBER := FND_PROFILE.VALUE('SY$ALL');
139 ELSIF FROM_ORDER_NUMBER IS NOT NULL AND TO_ORDER_NUMBER IS NULL THEN
140 ORDER_NUMBERCP := ' and ordr_hdr.order_no >= ''' || FROM_ORDER_NUMBER || '''';
141 TO_ORDER_NUMBER := FND_PROFILE.VALUE('SY$ALL');
142 ELSIF FROM_ORDER_NUMBER IS NULL AND TO_ORDER_NUMBER IS NOT NULL THEN
143 ORDER_NUMBERCP := ' and ordr_hdr.order_no <= ''' || TO_ORDER_NUMBER || '''';
144 FROM_ORDER_NUMBER := FND_PROFILE.VALUE('SY$ALL');
145 END IF;
146 LTO_ORDER_NUMBER:=TO_ORDER_NUMBER;
147 LFROM_ORDER_NUMBER:=FROM_ORDER_NUMBER;
148 RETURN NULL;
149 END ORDER_NUMBERCFFORMULA;
150
151 FUNCTION ORDER_DATECFFORMULA RETURN VARCHAR2 IS
152 BEGIN
153 /*SRW.REFERENCE(ORDER_DATECP)*/NULL;
154 IF FROM_ORDER_DATE IS NOT NULL AND TO_ORDER_DATE IS NOT NULL THEN
155 ORDER_DATECP := ' and TRUNC(ordr_hdr.order_date) between :from_order_date and :to_order_date';
156 ELSIF FROM_ORDER_DATE IS NULL AND TO_ORDER_DATE IS NULL THEN
157 ORDER_DATECP := NULL;
158 ELSIF FROM_ORDER_DATE IS NOT NULL AND TO_ORDER_DATE IS NULL THEN
159 ORDER_DATECP := 'and ordr_hdr.order_date >= :from_order_date';
160 ELSIF FROM_ORDER_DATE IS NULL AND TO_ORDER_DATE IS NOT NULL THEN
161 ORDER_DATECP := 'and ordr_hdr.order_date <= :to_order_date';
162 END IF;
163 RETURN NULL;
164 END ORDER_DATECFFORMULA;
165
166 FUNCTION SOLD_TOCFFORMULA RETURN VARCHAR2 IS
167 BEGIN
168 /*SRW.REFERENCE(SOLD_TOCP)*/NULL;
169 IF FROM_SOLD_TO IS NOT NULL AND TO_SOLD_TO IS NOT NULL AND FROM_SOLD_TO = TO_SOLD_TO THEN
170 SOLD_TOCP := ' and soldcust.cust_no = ' || '''' || FROM_SOLD_TO || '''';
171 ELSIF FROM_SOLD_TO IS NOT NULL AND TO_SOLD_TO IS NOT NULL THEN
172 SOLD_TOCP := ' and soldcust.cust_no between ' || '''' || FROM_SOLD_TO || ''' and ' || '''' || TO_SOLD_TO || '''';
173 ELSIF FROM_SOLD_TO IS NULL AND TO_SOLD_TO IS NULL THEN
174 SOLD_TOCP := NULL;
175 FROM_SOLD_TO := FND_PROFILE.VALUE('SY$ALL');
176 TO_SOLD_TO := FND_PROFILE.VALUE('SY$ALL');
177 ELSIF FROM_SOLD_TO IS NOT NULL AND TO_SOLD_TO IS NULL THEN
178 SOLD_TOCP := 'soldcust.cust_no >= ' || '''' || FROM_SOLD_TO || '''';
179 FROM_SOLD_TO := FND_PROFILE.VALUE('SY$ALL');
180 ELSIF FROM_SOLD_TO IS NULL AND TO_SOLD_TO IS NOT NULL THEN
181 SOLD_TOCP := 'and soldcust.cust_no <= ' || '''' || TO_SOLD_TO || '''';
182 TO_SOLD_TO := FND_PROFILE.VALUE('SY$ALL');
183 END IF;
184 LTO_SOLD_TO:=TO_SOLD_TO;
185 LFROM_SOLD_TO:=FROM_SOLD_TO;
186 RETURN NULL;
187 END SOLD_TOCFFORMULA;
188
189 FUNCTION BILL_TOCFFORMULA RETURN VARCHAR2 IS
190 BEGIN
191 /*SRW.REFERENCE(BILL_TOCP)*/NULL;
192 IF FROM_BILL_TO IS NOT NULL AND TO_BILL_TO IS NOT NULL AND FROM_BILL_TO = TO_BILL_TO THEN
193 BILL_TOCP := ' and billcust.cust_no = ' || '''' || FROM_BILL_TO || '''';
194 ELSIF FROM_BILL_TO IS NOT NULL AND TO_BILL_TO IS NOT NULL THEN
195 BILL_TOCP := ' and billcust.cust_no between ' || '''' || FROM_BILL_TO || ''' and ' || '''' || TO_BILL_TO || '''';
196 ELSIF FROM_BILL_TO IS NULL AND TO_BILL_TO IS NULL THEN
197 BILL_TOCP := NULL;
198 FROM_BILL_TO := FND_PROFILE.VALUE('SY$ALL');
199 TO_BILL_TO := FND_PROFILE.VALUE('SY$ALL');
200 ELSIF FROM_BILL_TO IS NOT NULL AND TO_BILL_TO IS NULL THEN
201 BILL_TOCP := 'billcust.cust_no >= ' || '''' || FROM_BILL_TO || '''';
202 TO_BILL_TO := FND_PROFILE.VALUE('SY$ALL');
203 ELSIF FROM_BILL_TO IS NULL AND TO_BILL_TO IS NOT NULL THEN
204 BILL_TOCP := 'and billcust.cust_no <= ' || '''' || TO_BILL_TO || '''';
205 FROM_BILL_TO := FND_PROFILE.VALUE('SY$ALL');
206 END IF;
207 LFROM_BILL_TO:=FROM_BILL_TO;
208 LTO_BILL_TO:=TO_BILL_TO;
209 RETURN NULL;
210 END BILL_TOCFFORMULA;
211
212 FUNCTION EXCLUDE_PRINTEDCFFORMULA RETURN VARCHAR2 IS
213 BEGIN
214 /*SRW.REFERENCE(EXCLUDE_PRINTEDCP)*/NULL;
215 IF EXCLUDE_PRINTED = '1' THEN
216 EXCLUDE_PRINTEDCP := ' AND ordr_hdr.print_count = 0 ';
217 ELSE
218 EXCLUDE_PRINTEDCP := ' ';
219 END IF;
220 RETURN NULL;
221 END EXCLUDE_PRINTEDCFFORMULA;
222
223 FUNCTION EXCLUDED_ON_HOLDCFFORMULA RETURN VARCHAR2 IS
224 BEGIN
225 /*SRW.REFERENCE(EXCLUDE_ON_HOLDCP)*/NULL;
226 IF EXCLUDE_ON_HOLD = '1' THEN
227 EXCLUDE_ON_HOLDCP := 'and (ordr_hdr.holdreas_code is NULL OR ordr_hdr.holdreas_code = ' || '''' || 'NONE' || '''' || ')';
228 ELSE
229 EXCLUDE_ON_HOLDCP := ' ';
230 END IF;
231 RETURN NULL;
232 END EXCLUDED_ON_HOLDCFFORMULA;
233
234 FUNCTION SORT1_CFFORMULA RETURN VARCHAR2 IS
235 BEGIN
236 /*SRW.REFERENCE(SORT1_CP)*/NULL;
237 IF SORT_1 = '1' THEN
238 SORT1_CP := 'ordr_hdr.order_no,';
239 ELSIF SORT_1 = '2' THEN
240 SORT1_CP := 'ordr_hdr.order_date,';
241 ELSIF SORT_1 = '3' THEN
242 SORT1_CP := 'soldcust.cust_no,';
243 ELSIF SORT_1 = '4' THEN
244 SORT1_CP := 'billcust.cust_no,';
245 END IF;
246 RETURN NULL;
247 END SORT1_CFFORMULA;
248
249 FUNCTION SORT2_CFFORMULA RETURN VARCHAR2 IS
250 BEGIN
251 /*SRW.REFERENCE(SORT2_CP)*/NULL;
252 IF SORT_2 IS NOT NULL THEN
253 IF SORT_2 = '1' THEN
254 IF SORT_3 IS NULL THEN
255 SORT2_CP := ',ordr_hdr.order_no';
256 ELSE
257 SORT2_CP := ',ordr_hdr.order_no,';
258 END IF;
259 ELSIF SORT_2 = '2' THEN
260 IF SORT_3 IS NULL THEN
261 SORT2_CP := ',ordr_hdr.order_date';
262 ELSE
263 SORT2_CP := ',ordr_hdr.order_date,';
264 END IF;
265 ELSIF SORT_2 = '3' THEN
266 IF SORT_3 IS NULL THEN
267 SORT2_CP := ',soldcust.cust_no';
268 ELSE
269 SORT2_CP := ',soldcust.cust_no,';
270 END IF;
271 ELSIF SORT_2 = '4' THEN
272 IF SORT_3 IS NULL THEN
273 SORT2_CP := ',billcust.cust_no';
274 ELSE
275 SORT2_CP := ',billcust.cust_no,';
276 END IF;
277 END IF;
278 ELSE
279 SORT2_CP := ' ';
280 END IF;
281 RETURN NULL;
282 END SORT2_CFFORMULA;
283
284 FUNCTION TOT_ORDERCFFORMULA(TOTAL_E_PRICECS IN NUMBER
285 ,TOT_EXTENDED_AMTCS IN NUMBER) RETURN NUMBER IS
286 TOT_ORDER NUMBER;
287 BEGIN
288 TOT_ORDER := TOTAL_E_PRICECS + TOT_EXTENDED_AMTCS;
289 RETURN TOT_ORDER;
290 END TOT_ORDERCFFORMULA;
291
292 FUNCTION SORT3_CFFORMULA RETURN VARCHAR2 IS
293 BEGIN
294 /*SRW.REFERENCE(SORT3_CP)*/NULL;
295 IF SORT_3 IS NOT NULL THEN
296 IF SORT_3 = '1' THEN
297 IF SORT_2 IS NULL THEN
298 SORT3_CP := ',ordr_hdr.order_no';
299 ELSE
300 SORT3_CP := 'ordr_hdr.order_no';
301 END IF;
302 ELSIF SORT_3 = '2' THEN
303 IF SORT_2 IS NULL THEN
304 SORT3_CP := ',ordr_hdr.order_date';
305 ELSE
306 SORT3_CP := 'ordr_hdr.order_date';
307 END IF;
308 ELSIF SORT_3 = '3' THEN
309 IF (SORT_2 IS NULL) THEN
310 SORT3_CP := ',soldcust.cust_no';
311 ELSE
312 SORT3_CP := 'soldcust.cust_no';
313 END IF;
314 ELSIF SORT_3 = '4' THEN
315 IF (SORT_2 IS NULL) THEN
316 SORT3_CP := ',billcust.cust_no';
317 ELSE
318 SORT3_CP := 'billcust.cust_no';
319 END IF;
320 END IF;
321 ELSE
322 SORT3_CP := ' ';
323 END IF;
324
325 RETURN NULL;
326 END SORT3_CFFORMULA;
327
328 FUNCTION SORT3_CPFORMULA(SORT3_CF IN VARCHAR2) RETURN VARCHAR2 IS
329 BEGIN
330 /*SRW.REFERENCE(SORT3_CF)*/NULL;
331 RETURN NULL;
332 END SORT3_CPFORMULA;
333
334 FUNCTION TERMS_CODEFORMULA(TERMS IN VARCHAR2) RETURN VARCHAR2 IS
335 CODE VARCHAR2(40);
336 BEGIN
337 SELECT
338 TERMS_DESC
339 INTO CODE
340 FROM
341 OP_TERM_MST
342 WHERE TERMS_CODE = TERMS;
343 RETURN (CODE);
344 RETURN NULL;
345 EXCEPTION
346 WHEN NO_DATA_FOUND THEN
347 CODE := NULL;
348 RETURN NULL;
349 WHEN OTHERS THEN
350 CODE := NULL;
351 RETURN NULL;
352 END TERMS_CODEFORMULA;
353
354 PROCEDURE OROAKRP_HEADER IS
355 BEGIN
356 NULL;
357 END OROAKRP_HEADER;
358
359 FUNCTION UDATEFORMULA(ORDER_TYPE in Number, O_NO in varchar2, RELEASE_NO in number) RETURN VARCHAR2 IS
360 X_PRINT_COUNT NUMBER;
361 PRAGMA AUTONOMOUS_TRANSACTION;
362 BEGIN
363 IF EXCLUDE_PRINTED = '1' THEN
364 X_PRINT_COUNT := 0;
365 ELSE
369 'UPDATE OP_ORDR_HDR SET PRINT_COUNT=PRINT_COUNT+1,DATE_PRINTED=SYSDATE ' || 'WHERE ORDER_TYPE=:a ' ||
366 X_PRINT_COUNT := 999999;
367 END IF;
368 EXECUTE IMMEDIATE
370 'AND ORDER_NO = :b ' || 'AND RELEASE_NO=:c ' || 'AND ORGN_CODE=:d ' ||
371 'AND PRINT_COUNT < ' || TO_CHAR(X_PRINT_COUNT)
372 using ORDER_TYPE, O_NO, RELEASE_NO, GML_ORAKRP_XMLP_PKG.ORGN_CODE ;
373 COMMIT;
374 RETURN NULL;
375 END UDATEFORMULA;
376
377 FUNCTION LINE_CHARGESCFFORMULA(ORDER_ID IN NUMBER
378 ,LINE_ID IN NUMBER) RETURN NUMBER IS
379 EXT_AMT NUMBER;
380 BEGIN
381 BEGIN
382 SELECT
383 NVL(SUM(EXTENDED_AMOUNT)
384 ,0)
385 INTO EXT_AMT
386 FROM
387 OP_ORDR_CHG C
388 WHERE C.ORDER_ID = ORDER_ID
389 AND C.LINE_ID = LINE_ID
390 AND C.DELETE_MARK = 0
391 AND C.EXTENDED_AMOUNT > 0;
392 EXCEPTION
393 WHEN OTHERS THEN
394 EXT_AMT := 0;
395 END;
396 RETURN (EXT_AMT);
397 END LINE_CHARGESCFFORMULA;
398
399 FUNCTION LINEDISCOUNTS_CFFORMULA(ORDER_ID IN NUMBER
400 ,LINE_ID IN NUMBER) RETURN NUMBER IS
401 EXT_AMT NUMBER;
402 BEGIN
403 BEGIN
404 SELECT
405 NVL(ABS(SUM(EXTENDED_AMOUNT))
406 ,0)
407 INTO EXT_AMT
408 FROM
409 OP_ORDR_CHG C
410 WHERE C.ORDER_ID = ORDER_ID
411 AND C.LINE_ID = LINE_ID
412 AND C.DELETE_MARK = 0
413 AND C.EXTENDED_AMOUNT < 0;
414 EXCEPTION
415 WHEN OTHERS THEN
416 EXT_AMT := 0;
417 END;
418 RETURN (EXT_AMT);
419 END LINEDISCOUNTS_CFFORMULA;
420
421 FUNCTION HEAD_CHARGESCFFORMULA(ORDER_ID IN NUMBER) RETURN NUMBER IS
422 EXT_AMT NUMBER;
423 BEGIN
424 BEGIN
425 SELECT
426 NVL(SUM(EXTENDED_AMOUNT)
427 ,0)
428 INTO EXT_AMT
429 FROM
430 OP_ORDR_CHG C
431 WHERE C.ORDER_ID = ORDER_ID
432 AND C.LINE_ID IS NULL
433 AND C.DELETE_MARK = 0
434 AND C.EXTENDED_AMOUNT > 0;
435 EXCEPTION
436 WHEN OTHERS THEN
437 EXT_AMT := 0;
438 END;
439 RETURN (EXT_AMT);
440 END HEAD_CHARGESCFFORMULA;
441
442 FUNCTION HEAD_DISCOUNTSCFFORMULA(ORDER_ID IN NUMBER) RETURN NUMBER IS
443 EXT_AMT NUMBER;
444 BEGIN
445 BEGIN
446 SELECT
447 NVL(ABS(SUM(EXTENDED_AMOUNT))
448 ,0)
449 INTO EXT_AMT
450 FROM
451 OP_ORDR_CHG C
452 WHERE C.ORDER_ID = ORDER_ID
453 AND C.LINE_ID IS NULL
454 AND C.DELETE_MARK = 0
455 AND C.EXTENDED_AMOUNT < 0;
456 EXCEPTION
457 WHEN OTHERS THEN
458 EXT_AMT := 0;
459 END;
460 RETURN (EXT_AMT);
461 END HEAD_DISCOUNTSCFFORMULA;
462
463 FUNCTION ORD_TOT_FORMULA(ORDER_ID IN NUMBER) RETURN NUMBER IS
464 EXT_AMT NUMBER;
465 EXT_AMT_CHARGE NUMBER;
466 EXT_AMT_LINES NUMBER;
467 BEGIN
468 BEGIN
469 SELECT
470 NVL(SUM(EXTENDED_AMOUNT)
471 ,0)
472 INTO EXT_AMT_CHARGE
473 FROM
474 OP_ORDR_CHG C
475 WHERE C.ORDER_ID = ORD_TOT_FORMULA.ORDER_ID
476 AND C.DELETE_MARK = 0;
477 SELECT
478 NVL(SUM(EXTENDED_PRICE)
479 ,0)
480 INTO EXT_AMT_LINES
481 FROM
482 OP_ORDR_DTL D
483 WHERE D.ORDER_ID = ORD_TOT_FORMULA.ORDER_ID
484 AND D.DELETE_MARK = 0
485 AND D.LINE_STATUS <> - 1;
486 EXT_AMT := EXT_AMT_CHARGE + EXT_AMT_LINES;
487 EXCEPTION
488 WHEN OTHERS THEN
489 EXT_AMT := 0;
490 END;
491 RETURN (EXT_AMT);
492 END ORD_TOT_FORMULA;
493
494 FUNCTION AFTERPFORM RETURN BOOLEAN IS
495 BEGIN
496 RETURN (TRUE);
497 EXCEPTION
498 WHEN OTHERS THEN
499 RETURN (TRUE);
500 END AFTERPFORM;
501
502 FUNCTION AFTERREPORT RETURN BOOLEAN IS
503 BEGIN
504 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
505 RETURN (TRUE);
506 END AFTERREPORT;
507
508 FUNCTION CHARGE_DESCCP_P RETURN VARCHAR2 IS
509 BEGIN
510 RETURN CHARGE_DESCCP;
511 END CHARGE_DESCCP_P;
512
513 FUNCTION CHARGE_AMTCP_P RETURN NUMBER IS
514 BEGIN
515 RETURN CHARGE_AMTCP;
516 END CHARGE_AMTCP_P;
517
518 FUNCTION ORGN_NAME_CP_P RETURN VARCHAR2 IS
519 BEGIN
520 RETURN ORGN_NAME_CP;
521 END ORGN_NAME_CP_P;
522
523 FUNCTION ORDER_NUMBERCP_P RETURN VARCHAR2 IS
524 BEGIN
525 RETURN ORDER_NUMBERCP;
526 END ORDER_NUMBERCP_P;
527
528 FUNCTION ORDER_DATECP_P RETURN VARCHAR2 IS
529 BEGIN
530 RETURN ORDER_DATECP;
531 END ORDER_DATECP_P;
532
533 FUNCTION SOLD_TOCP_P RETURN VARCHAR2 IS
534 BEGIN
535 RETURN SOLD_TOCP;
536 END SOLD_TOCP_P;
537
538 FUNCTION BILL_TOCP_P RETURN VARCHAR2 IS
539 BEGIN
540 RETURN BILL_TOCP;
541 END BILL_TOCP_P;
542
543 FUNCTION EXCLUDE_PRINTEDCP_P RETURN VARCHAR2 IS
544 BEGIN
545 RETURN EXCLUDE_PRINTEDCP;
546 END EXCLUDE_PRINTEDCP_P;
547
548 FUNCTION EXCLUDE_ON_HOLDCP_P RETURN VARCHAR2 IS
549 BEGIN
550 RETURN EXCLUDE_ON_HOLDCP;
551 END EXCLUDE_ON_HOLDCP_P;
552
553 FUNCTION SORT1_CP_P RETURN VARCHAR2 IS
554 BEGIN
555 RETURN SORT1_CP;
556 END SORT1_CP_P;
557
558 FUNCTION SORT2_CP_P RETURN VARCHAR2 IS
559 BEGIN
560 RETURN SORT2_CP;
561 END SORT2_CP_P;
562
563 FUNCTION SORT3_CP_P RETURN VARCHAR2 IS
564 BEGIN
565 RETURN SORT3_CP;
566 END SORT3_CP_P;
567
568 FUNCTION CP_ORGN_NAME_P RETURN VARCHAR2 IS
569 BEGIN
570 RETURN CP_ORGN_NAME;
571 END CP_ORGN_NAME_P;
572
573 FUNCTION CP_USER_P RETURN VARCHAR2 IS
574 BEGIN
575 RETURN CP_USER;
576 END CP_USER_P;
577
578 END GML_ORAKRP_XMLP_PKG;
579