1 PACKAGE BODY GME_GMEBCHTK_XMLP_PKG AS
2 /* $Header: GMEBCHTKB.pls 120.0 2007/12/24 12:43:33 nchinnam noship $ */
3 FUNCTION RANGECF1FORMULA RETURN VARCHAR2 IS
4 BEGIN
5 IF FROM_BATCH_NO IS NULL THEN
6 IF TO_BATCH_NO IS NULL THEN
7 RETURN ('1=1');
8 END IF;
9 ELSE
10 IF TO_BATCH_NO IS NULL THEN
11 RETURN ('Lpad(pm_btch_hdr.batch_no,32,''0'')>=''' || LPAD(FROM_BATCH_NO
12 ,32
13 ,'0') || '''');
14 ELSE
15 RETURN ('Lpad(pm_btch_hdr.batch_no,32,''0'')>=''' || LPAD(FROM_BATCH_NO
16 ,32
17 ,'0') || ''' and Lpad(pm_btch_hdr.batch_no,32,''0'')<=''' || LPAD(TO_BATCH_NO
18 ,32
19 ,'0') || '''');
20 END IF;
21 END IF;
22 RETURN ('1=1');
23 END RANGECF1FORMULA;
24 FUNCTION RANGECF2FORMULA RETURN VARCHAR2 IS
25 BEGIN
26 RETURN NULL;
27 END RANGECF2FORMULA;
28 FUNCTION ORDCFFORMULA RETURN VARCHAR2 IS
29 BEGIN
30 IF SORTRETCFFORMULA = 'Batch No' THEN
31 RETURN ('pm_btch_hdr.batch_no,pm_btch_hdr.text_code,
32 gem_lookups.meaning desc,pm_matl_dtl.line_no');
33 ELSE
34 RETURN ('pm_btch_hdr.plan_start_date,pm_btch_hdr.batch_no,pm_btch_hdr.text_code,
35 gem_lookups.meaning desc,pm_matl_dtl.line_no');
36 END IF;
37 RETURN NULL;
38 END ORDCFFORMULA;
39 FUNCTION FLAGCFFORMULA(TEXTCODE2 IN NUMBER) RETURN NUMBER IS
40 BEGIN
41 IF TEXTCODE2 IS NULL THEN
42 RETURN (0);
43 ELSE
44 RETURN (1);
45 END IF;
46 RETURN NULL;
47 END FLAGCFFORMULA;
48 FUNCTION AFTERPFORM RETURN BOOLEAN IS
49 BEGIN
50 IF FROM_BATCH_NO > TO_BATCH_NO THEN
51 /*SRW.MESSAGE(100
52 ,GGM_MESSAGE.GET('IC_FROM_LTE_THRU'))*/NULL;
53 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
54 END IF;
55 IF FROM_START_DATE > TO_START_DATE THEN
56 /*SRW.MESSAGE(100
57 ,GGM_MESSAGE.GET('IC_FROM_LTE_THRU'))*/NULL;
58 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59 END IF;
60 IF FROM_BATCH_NO IS NULL THEN
61 IF TO_BATCH_NO IS NOT NULL THEN
62 /*SRW.MESSAGE(100
63 ,GGM_MESSAGE.GET('IC_FRM_REQD_FOR_THRU'))*/NULL;
64 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
65 END IF;
66 END IF;
67 RETURN (TRUE);
68 END AFTERPFORM;
69 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
70 BEGIN
71 P_ROWS := 0;
72 CNTTEXT := 0;
73 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
74 FROM_START_DATE_1 := to_char(FROM_START_DATE, 'DD-MON-YYYY');
75 TO_START_DATE_1 := to_char(TO_START_DATE, 'DD-MON-YYYY');
76 FROM_START_DATE1 := to_char(FROM_START_DATE, 'DD-MON-YYYY HH24:MI:SS');
77 TO_START_DATE1 := to_char(TO_START_DATE, 'DD-MON-YYYY HH24:MI:SS');
78 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
79 RETURN (TRUE);
80 END BEFOREREPORT;
81 FUNCTION TYPE_DESCCFFORMULA(MEANING IN VARCHAR2) RETURN VARCHAR2 IS
82 BEGIN
83 RETURN (MEANING);
84 END TYPE_DESCCFFORMULA;
85 FUNCTION SORTRETCFFORMULA RETURN VARCHAR2 IS
86 X_SORT1 VARCHAR2(80);
87 CURSOR CUR_SELECT IS
88 SELECT
89 MEANING
90 FROM
91 GEM_LOOKUP_VALUES
92 WHERE LOOKUP_CODE = SORT_BY
93 AND LOOKUP_TYPE = 'PM_RIPMBUSR_SORT';
94 BEGIN
95 OPEN CUR_SELECT;
96 FETCH CUR_SELECT
97 INTO X_SORT1;
98 CLOSE CUR_SELECT;
99 RETURN (X_SORT1);
100 END SORTRETCFFORMULA;
101 PROCEDURE HEADER IS
102 BEGIN
103 NULL;
104 END HEADER;
105 FUNCTION AFTERREPORT RETURN BOOLEAN IS
106 BEGIN
107 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
108 RETURN (TRUE);
109 END AFTERREPORT;
110 FUNCTION CF_CONTEXT_ORGFORMULA RETURN VARCHAR2 IS
111 CURSOR C_GET_ORG IS
112 SELECT
113 ORGANIZATION_CODE
114 FROM
115 MTL_PARAMETERS
116 WHERE ORGANIZATION_ID = P_ORG_ID;
117 L_ORG VARCHAR2(6);
118 BEGIN
119 OPEN C_GET_ORG;
120 FETCH C_GET_ORG
121 INTO L_ORG;
122 CLOSE C_GET_ORG;
123 L_ORG := '(' || L_ORG || ')';
124 RETURN L_ORG;
125 END CF_CONTEXT_ORGFORMULA;
126 FUNCTION CF_SUBINV_LABELFORMULA(LINE_TYPE IN NUMBER) RETURN CHAR IS
127 L_TYPE VARCHAR2(2);
128 L_LABEL VARCHAR2(40);
129 CURSOR C_GET_MEANING IS
130 SELECT
131 MEANING
132 FROM
133 FND_LOOKUP_VALUES_VL
134 WHERE VIEW_APPLICATION_ID = 553
135 AND LOOKUP_TYPE = 'GME_SUBINVENTORY_TYPE'
136 AND LOOKUP_CODE = L_TYPE;
137 BEGIN
138 IF LINE_TYPE = -1 THEN
139 L_TYPE := 'S';
140 ELSE
141 L_TYPE := 'Y';
142 END IF;
143 OPEN C_GET_MEANING;
144 FETCH C_GET_MEANING
145 INTO L_LABEL;
146 CLOSE C_GET_MEANING;
147 RETURN L_LABEL;
148 END CF_SUBINV_LABELFORMULA;
149 function R_batchFormatTrigger(batch_no1 VARCHAR2) return varchar2 is
150 pragma autonomous_transaction;
151 begin
152 update gme_batch_header set print_count = print_count + 1 where organization_id = p_org_id and
153 batch_no = batch_no1;
154 commit;
155 return 'TRUE';
156 end;
157 END GME_GMEBCHTK_XMLP_PKG;
158