DBA Data[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