[Home] [Help]
PACKAGE BODY: APPS.GMD_QCRCOA03_XMLP_PKG
Source
1 PACKAGE BODY GMD_QCRCOA03_XMLP_PKG AS
2 /* $Header: QCRCOA03B.pls 120.0 2007/12/24 13:10:38 krreddy noship $ */
3 FUNCTION CF_REPORT_NAMEFORMULA(REPORT_TITLE IN VARCHAR2) RETURN CHAR IS
4 COA_REPORT_TITLE VARCHAR2(80);
5 BEGIN
6 SELECT
7 MEANING
8 INTO COA_REPORT_TITLE
9 FROM
10 GEM_LOOKUPS
11 WHERE LOOKUP_TYPE = 'GMD_COA_REPORT_TITLE'
12 AND LOOKUP_CODE = REPORT_TITLE;
13 RETURN (COA_REPORT_TITLE);
14 END CF_REPORT_NAMEFORMULA;
15
16 PROCEDURE QCRCOA01_HEADER IS
17 BEGIN
18 NULL;
19 END QCRCOA01_HEADER;
20
21 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
22 BEGIN
23 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
24 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
25 RETURN (TRUE);
26 END BEFOREREPORT;
27
28 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
29 BEGIN
30 RETURN (TRUE);
31 END BEFOREPFORM;
32
33 FUNCTION AFTERPFORM RETURN BOOLEAN IS
34 CURSOR GET_REPORT_TITLE IS
35 SELECT
36 C.REPORT_TITLE,
37 MEANING
38 FROM
39 GEM_LOOKUPS L,
40 GMD_COA_HEADERS C
41 WHERE L.LOOKUP_TYPE = 'GMD_COA_REPORT_TITLE'
42 AND L.LOOKUP_CODE = C.REPORT_TITLE;
43 CURSOR GET_REPORT_TITLE_BLANK IS
44 SELECT
45 MEANING
46 FROM
47 GEM_LOOKUPS L
48 WHERE L.LOOKUP_TYPE = 'GMD_COA_REPORT_TITLE'
49 AND L.LOOKUP_CODE = 'BLK';
50 PARAM_REC GMD_COA_DATA_OM_NEW.T_COA_PARAMETERS;
51 X_STATUS BOOLEAN;
52 X_CONC_ID NUMBER;
53 X_WHICH_REPORT VARCHAR2(80);
54 X_REPORT_TITLE VARCHAR2(30);
55 X_RETURN_STATUS VARCHAR2(1);
56 X_MSG_COUNT NUMBER;
57 X_MSG_DATA VARCHAR2(2200);
58 P_INIT_MSG_LIST VARCHAR2(1);
59 P_COMMIT VARCHAR2(1);
60 P_VALIDATION_LEVEL NUMBER;
61 P_API_VERSION CONSTANT NUMBER DEFAULT 1.5;
62 P_MSG VARCHAR2(4000);
63 TBL_NDX BINARY_INTEGER := 1;
64 CURSOR C_COA_DATA IS
65 SELECT
66 count(*)
67 FROM
68 GMD_COA_HEADERS;
69 CURSOR C_COA_DETAILS IS
70 SELECT
71 count(*)
72 FROM
73 GMD_COA_DETAILS;
74 CURSOR C_COA_SPEC_TEXT IS
75 SELECT
76 count(*)
77 FROM
78 GMD_COA_SPEC_TEXT;
79 CURSOR C_COA_RSLT_TEXT IS
80 SELECT
81 count(*)
82 FROM
83 GMD_COA_RSLT_TEXT;
84 CURSOR C_COA_SPEC_HDR_TEXT IS
85 SELECT
86 count(*)
87 FROM
88 GMD_COA_SPEC_HDR_TEXT;
89 L_COUNT NUMBER;
90 BEGIN
91 OPEN C_COA_DATA;
92 FETCH C_COA_DATA
93 INTO L_COUNT;
94 CLOSE C_COA_DATA;
95 IF (L_COUNT > 0) THEN
96 DELETE FROM GMD_COA_HEADERS;
97 END IF;
98 OPEN C_COA_DETAILS;
99 FETCH C_COA_DETAILS
100 INTO L_COUNT;
101 CLOSE C_COA_DETAILS;
102 IF (L_COUNT > 0) THEN
103 DELETE FROM GMD_COA_DETAILS;
104 END IF;
105 OPEN C_COA_SPEC_TEXT;
106 FETCH C_COA_SPEC_TEXT
107 INTO L_COUNT;
108 CLOSE C_COA_SPEC_TEXT;
109 IF (L_COUNT > 0) THEN
110 DELETE FROM GMD_COA_SPEC_TEXT;
111 END IF;
112 OPEN C_COA_RSLT_TEXT;
113 FETCH C_COA_RSLT_TEXT
114 INTO L_COUNT;
115 CLOSE C_COA_RSLT_TEXT;
116 IF (L_COUNT > 0) THEN
117 DELETE FROM GMD_COA_RSLT_TEXT;
118 END IF;
119 OPEN C_COA_SPEC_HDR_TEXT;
120 FETCH C_COA_SPEC_HDR_TEXT
121 INTO L_COUNT;
122 CLOSE C_COA_SPEC_HDR_TEXT;
123 IF (L_COUNT > 0) THEN
124 DELETE FROM GMD_COA_SPEC_HDR_TEXT;
125 END IF;
126 PARAM_REC.ORGANIZATION_ID := P_ORGANIZATION_ID;
127 PARAM_REC.INVENTORY_ITEM_ID := P_INVENTORY_ITEM_ID;
128 PARAM_REC.REVISION := P_REVISION;
129 PARAM_REC.LOT_NUMBER := P_LOT_NUMBER;
130 PARAM_REC.SUBINVENTORY := P_SUBINVENTORY;
131 PARAM_REC.ORG_ID := P_ORG_ID;
132 PARAM_REC.ORDER_ID := P_ORDER_ID;
133 PARAM_REC.CUST_ID := P_CUST_ID;
134 PARAM_REC.DELIVERY_ID := P_DELIVERY_ID;
135 PARAM_REC.SHIP_TO_SITE_ID := P_SHIP_TO_SITE_ID;
136 P_INIT_MSG_LIST := 'T';
137 P_COMMIT := 'F';
138 P_VALIDATION_LEVEL := 0;
139 /*SRW.MESSAGE(2000
140 ,'==============================================================')*/NULL;
141 GMD_COA_DATA_OM_NEW.POPULATE_COA_DATA(P_API_VERSION
142 ,P_INIT_MSG_LIST
143 ,P_COMMIT
144 ,P_VALIDATION_LEVEL
145 ,X_RETURN_STATUS
146 ,X_MSG_COUNT
147 ,X_MSG_DATA
148 ,PARAM_REC);
149 FOR I IN 1 .. NVL(X_MSG_COUNT
150 ,0) LOOP
151 X_MSG_DATA := SUBSTRB(FND_MSG_PUB.GET(I
152 ,'F')
153 ,1
154 ,2200);
155 /*SRW.MESSAGE(I
156 ,SUBSTRB(X_MSG_DATA
157 ,1
158 ,2200))*/NULL;
159 END LOOP;
160 /*SRW.MESSAGE(2001
161 ,'==============================================================')*/NULL;
162 IF X_RETURN_STATUS = 'S' THEN
163 OPEN GET_REPORT_TITLE;
164 FETCH GET_REPORT_TITLE
165 INTO X_REPORT_TITLE,X_WHICH_REPORT;
166 CLOSE GET_REPORT_TITLE;
167 END IF;
168 RETURN (TRUE);
169 END AFTERPFORM;
170
171 FUNCTION AFTERREPORT RETURN BOOLEAN IS
172 BEGIN
173 ROLLBACK;
174 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
175 RETURN (TRUE);
176 END AFTERREPORT;
177
178 FUNCTION PRINT_TEXT_FLAG_P RETURN NUMBER IS
179 BEGIN
180 RETURN PRINT_TEXT_FLAG;
181 END PRINT_TEXT_FLAG_P;
182
183 END GMD_QCRCOA03_XMLP_PKG;
184