[Home] [Help]
PACKAGE BODY: APPS.GMF_GET_PRODUCT_INFO
Source
1 PACKAGE BODY GMF_GET_PRODUCT_INFO AS
2 /* $Header: gmfgtprb.pls 115.2 2002/11/11 00:38:16 rseshadr ship $ */
3 CURSOR CUR_GMS_GET_PRODUCT_INFO IS
4 SELECT PR.PRODUCT_GROUP_ID,
5 PR.PRODUCT_GROUP_NAME,
6 PR.RELEASE_NAME,
7 -99,
8 PR.PRODUCT_GROUP_TYPE,
9 PR.ARGUMENT1,
10 PR.MULTI_ORG_FLAG,
11 PR.MULTI_LINGUAL_FLAG,
12 '',
13 PR.LAST_UPDATE_DATE,
14 PR.LAST_UPDATED_BY,
15 PR.CREATION_DATE,
16 PR.CREATED_BY
17 FROM FND_PRODUCT_GROUPS PR;
18 PROCEDURE GMS_GET_PRODUCT_INFO
19 (PRODUCT_GROUP_ID OUT NOCOPY NUMBER,
20 PRODUCT_GROUP_NAME OUT NOCOPY VARCHAR2,
21 RELEASE_NAME OUT NOCOPY VARCHAR2,
22 LANGUAGE_ID OUT NOCOPY NUMBER,
23 PRODUCT_GROUP_TYPE OUT NOCOPY VARCHAR2,
24 ARGUMENT1 OUT NOCOPY VARCHAR2,
25 MULTI_ORG_FLAG OUT NOCOPY VARCHAR2,
26 MULTI_LINGUAL_FLAG OUT NOCOPY VARCHAR2,
27 CODESET OUT NOCOPY VARCHAR2,
28 CREATED_BY OUT NOCOPY NUMBER,
29 CREATION_DATE OUT NOCOPY DATE,
30 LAST_UPDATE_DATE OUT NOCOPY DATE,
31 LAST_UPDATED_BY OUT NOCOPY NUMBER,
32 ROW_TO_FETCH IN OUT NOCOPY NUMBER,
33 ERROR_STATUS OUT NOCOPY NUMBER) IS
34 /* CREATEDBY NUMBER;*/
35 /* MODIFIEDBY NUMBER;*/
36 BEGIN
37 IF NOT CUR_GMS_GET_PRODUCT_INFO%ISOPEN THEN
38 OPEN CUR_GMS_GET_PRODUCT_INFO;
39 END IF;
40 FETCH CUR_GMS_GET_PRODUCT_INFO
41 INTO PRODUCT_GROUP_ID, PRODUCT_GROUP_NAME,
42 RELEASE_NAME, LANGUAGE_ID,
43 PRODUCT_GROUP_TYPE, ARGUMENT1,
44 MULTI_ORG_FLAG, MULTI_LINGUAL_FLAG,
45 CODESET,
46 LAST_UPDATE_DATE, LAST_UPDATED_BY,
47 CREATION_DATE, CREATED_BY;
48 IF CUR_GMS_GET_PRODUCT_INFO%NOTFOUND THEN
49 ERROR_STATUS := 100;
50 CLOSE CUR_GMS_GET_PRODUCT_INFO;
51 /* ELSE*/
52 /* CREATED_BY := PKG_FND_GET_USERS.FND_GET_USERS(CREATEDBY);*/
53 /* LAST_UPDATED_BY := PKG_FND_GET_USERS.FND_GET_USERS(MODIFIEDBY);*/
54 END IF;
55 IF ROW_TO_FETCH = 1 AND CUR_GMS_GET_PRODUCT_INFO%ISOPEN THEN
56 CLOSE CUR_GMS_GET_PRODUCT_INFO;
57 END IF;
58 EXCEPTION
59 WHEN OTHERS THEN
60 ERROR_STATUS := SQLCODE;
61 END GMS_GET_PRODUCT_INFO;
62 END GMF_GET_PRODUCT_INFO;