1 PACKAGE BODY GME_GMEPRACT_XMLP_PKG AS
2 /* $Header: GMEPRACTB.pls 120.1 2008/01/07 06:47:52 nchinnam noship $ */
3 FUNCTION CF_WHEREFORMULA RETURN VARCHAR2 IS
4 X_WHERE VARCHAR2(500);
5 X_WHERE1 VARCHAR2(500);
6 X_WHERE2 VARCHAR2(1000);
7 BEGIN
8 IF FROM_BATCH IS NOT NULL AND TO_BATCH IS NOT NULL THEN
9 X_WHERE := 'Lpad(pm.batch_no,32,''0'') >=' || '''' || LPAD(FROM_BATCH
10 ,32
11 ,'0') || '''' || ' AND
12 Lpad(pm.batch_no,32,''0'') <= ' || '''' || LPAD(TO_BATCH
13 ,32
14 ,'0') || '''';
15 ELSIF FROM_BATCH IS NULL AND TO_BATCH IS NOT NULL THEN
16 X_WHERE := 'Lpad(pm.batch_no,32,''0'') <=' || '''' || LPAD(TO_BATCH
17 ,32
18 ,'0') || '''';
19 ELSIF FROM_BATCH IS NOT NULL AND TO_BATCH IS NULL THEN
20 X_WHERE := 'Lpad(pm.batch_no,32,''0'') >=' || '''' || LPAD(FROM_BATCH
21 ,32
22 ,'0') || '''';
23 ELSE
24 X_WHERE := NULL;
25 END IF;
26 IF X_WHERE IS NOT NULL AND X_WHERE1 IS NOT NULL THEN
27 X_WHERE2 := X_WHERE || ' AND ' || X_WHERE1;
28 ELSE
29 X_WHERE2 := X_WHERE || X_WHERE1;
30 END IF;
31 if X_WHERE2 Is NULL THEN
32 X_WHERE2:='pm.batch_no>''0''';
33 end if;
34 RETURN (X_WHERE2);
35 END CF_WHEREFORMULA;
36
37 FUNCTION CF_ORD_BYFORMULA RETURN VARCHAR2 IS
38 BEGIN
39 IF SORTRETFFORMULA = 'Start Date,Recipe,Version' THEN
40 RETURN ('pm.plan_start_date,rcp.recipe_no,rcp.recipe_version');
41 ELSE
42 RETURN ('rcp.recipe_no,rcp.recipe_version,pm.plan_start_date');
43 END IF;
44 RETURN ' ';
45 END CF_ORD_BYFORMULA;
46
47 FUNCTION CF_BATCH_TYPEFORMULA(BATCH_TYPE IN NUMBER) RETURN VARCHAR2 IS
48 BEGIN
49 IF BATCH_TYPE = 0 THEN
50 RETURN ('PROD');
51 ELSIF BATCH_TYPE = 10 THEN
52 RETURN ('FPO');
53 END IF;
54 RETURN NULL;
55 END CF_BATCH_TYPEFORMULA;
56
57 FUNCTION SORTRETFFORMULA RETURN VARCHAR2 IS
58 X_SORT1 VARCHAR2(80);
59 CURSOR CUR_SELECT IS
60 SELECT
61 MEANING
62 FROM
63 GEM_LOOKUP_VALUES
64 WHERE LOOKUP_CODE = SORT_BY
65 AND LOOKUP_TYPE = 'GME_GMEPRACT_SORT';
66 BEGIN
67 OPEN CUR_SELECT;
68 FETCH CUR_SELECT
69 INTO X_SORT1;
70 CLOSE CUR_SELECT;
71 RETURN (X_SORT1);
72 END SORTRETFFORMULA;
73
74 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
75 BEGIN
76 FROM_DATE2:=to_char(FROM_DATE,'DD-MON-YY');
77 TO_DATE2:=to_char(TO_DATE,'DD-MON-YY');
78 FROM_DATE1:=to_char(FROM_DATE,'DD-MON-YYYY');
79 TO_DATE1:=to_char(TO_DATE,'DD-MON-YYYY');
80 FROM_DATE_1:=to_char(FROM_DATE,'DD-MON-YYYY HH24:MI:SS');
81 TO_DATE_1:=to_char(TO_DATE,'DD-MON-YYYY HH24:MI:SS');
82 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
83 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
84 RETURN (TRUE);
85 END BEFOREREPORT;
86
87 PROCEDURE HEADER IS
88 BEGIN
89 NULL;
90 END HEADER;
91
92 FUNCTION AFTERREPORT RETURN BOOLEAN IS
93 BEGIN
94 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
95 RETURN (TRUE);
96 END AFTERREPORT;
97
98 FUNCTION CF_CONTEXT_ORGFORMULA RETURN CHAR IS
99 CURSOR C_GET_ORG IS
100 SELECT
101 ORGANIZATION_CODE
102 FROM
103 MTL_PARAMETERS
104 WHERE ORGANIZATION_ID = P_ORG_ID;
105 L_ORG VARCHAR2(6);
106 BEGIN
107 OPEN C_GET_ORG;
108 FETCH C_GET_ORG
109 INTO L_ORG;
110 CLOSE C_GET_ORG;
111 L_ORG := '(' || L_ORG || ')';
112 RETURN L_ORG;
113 END CF_CONTEXT_ORGFORMULA;
114
115 END GME_GMEPRACT_XMLP_PKG;
116