[Home] [Help]
PACKAGE BODY: APPS.GMF_FND_GET_ORGANIZATION
Source
1 PACKAGE BODY GMF_FND_GET_ORGANIZATION as
2 /* $Header: gmfgetob.pls 120.1 2005/10/05 07:47:57 rseshadr noship $ */
3 CURSOR CUR_GMS_GET_ORGANIZATION(PORG_ID NUMBER,
4 PORG_NAME VARCHAR2,
5 PSOB_NAME VARCHAR2) IS
6 SELECT OU.ORGANIZATION_ID,
7 OU.NAME,
8 OU.DATE_FROM,
9 OU.DATE_TO,
10 null as OL_NAME,
11 null as OL_DATE_FROM,
12 null as OL_DATE_TO,
13 0,
14 SOB.ledger_id,
15 SOB.CURRENCY_CODE,
16 SOB.CHART_OF_ACCOUNTS_ID,
17 SOB.NAME,
18 SOB.PERIOD_SET_NAME,
19 SOB.SUSPENSE_ALLOWED_FLAG,
20 null as ALLOW_POSTING_WARNING_FLAG,
21 SOB.ACCOUNTED_PERIOD_TYPE,
22 SOB.SHORT_NAME,
23 SOB.REQUIRE_BUDGET_JOURNALS_FLAG,
24 SOB.ENABLE_BUDGETARY_CONTROL_FLAG,
25 SOB.ALLOW_INTERCOMPANY_POST_FLAG,
26 SOB.LAST_UPDATE_LOGIN,
27 SOB.LATEST_ENCUMBRANCE_YEAR,
28 null as EARLIEST_UNTRANS_PERIOD_NAME,
29 SOB.CUM_TRANS_CODE_COMBINATION_ID,
30 SOB.FUTURE_ENTERABLE_PERIODS_LIMIT,
31 SOB.LATEST_OPENED_PERIOD_NAME,
32 SOB.RET_EARN_CODE_COMBINATION_ID,
33 SOB.RES_ENCUMB_CODE_COMBINATION_ID,
34 SOB.DESCRIPTION,
35 SOB.CREATED_BY,
36 SOB.CREATION_DATE,
37 SOB.LAST_UPDATE_DATE,
38 SOB.LAST_UPDATED_BY
39 FROM HR_OPERATING_UNITS OU,
40 gl_ledgers SOB
41 WHERE OU.set_of_books_id = sob.ledger_id
42 AND OU.ORGANIZATION_ID = NVL(PORG_ID, OU.ORGANIZATION_ID)
43 AND OU.NAME = NVL(PORG_NAME, OU.NAME)
44 AND SOB.NAME = NVL(PSOB_NAME, SOB.NAME);
45
46 PROCEDURE GMS_GET_ORGANIZATION
47 (PORG_ID IN OUT NOCOPY NUMBER,
48 PORG_NAME IN OUT NOCOPY VARCHAR2,
49 PSOB_NAME IN OUT NOCOPY VARCHAR2,
50 OU_DATE_FROM OUT NOCOPY VARCHAR2,
51 OU_DATE_TO OUT NOCOPY VARCHAR2,
52 OL_NAME OUT NOCOPY VARCHAR2,
53 OL_DATE_FROM OUT NOCOPY VARCHAR2,
54 OL_DATE_TO OUT NOCOPY VARCHAR2,
55 VAT_REGISTRATION_NUMBER OUT NOCOPY NUMBER,
56 SET_OF_BOOKS_ID OUT NOCOPY NUMBER,
57 CURRENCY_CODE OUT NOCOPY VARCHAR2,
58 CHART_OF_ACCOUNTS_ID OUT NOCOPY NUMBER,
59 PERIOD_SET_NAME OUT NOCOPY VARCHAR2,
60 SUSPENSE_ALLOWED_FLAG OUT NOCOPY VARCHAR2,
61 ALLOW_POSTING_WARNING_FLAG OUT NOCOPY VARCHAR2,
62 ACCOUNTED_PERIOD_TYPE OUT NOCOPY VARCHAR2,
63 SHORT_NAME OUT NOCOPY VARCHAR2,
64 REQUIRE_BUDGET_JOURNALS_FLAG OUT NOCOPY VARCHAR2,
65 ENABLE_BUDGETARY_CONTROL_FLAG OUT NOCOPY VARCHAR2,
66 ALLOW_INTERCOMPANY_POST_FLAG OUT NOCOPY VARCHAR2,
67 LAST_UPDATE_LOGIN OUT NOCOPY VARCHAR2,
68 LATEST_ENCUMBRANCE_YEAR OUT NOCOPY VARCHAR2,
69 EARLIEST_UNTRANS_PERIOD_NAME OUT NOCOPY VARCHAR2,
70 CUM_TRANS_CODE_COMBINATION_ID OUT NOCOPY VARCHAR2,
71 FUTURE_ENTERABLE_PERIODS_LIMIT OUT NOCOPY VARCHAR2,
72 LATEST_OPENED_PERIOD_NAME OUT NOCOPY VARCHAR2,
73 RET_EARN_CODE_COMBINATION_ID OUT NOCOPY VARCHAR2,
74 RES_ENCUMB_CODE_COMBINATION_ID OUT NOCOPY VARCHAR2,
75 DESCRIPTION OUT NOCOPY VARCHAR2,
76 CREATED_BY OUT NOCOPY VARCHAR2,
77 CREATION_DATE OUT NOCOPY DATE,
78 LAST_UPDATE_DATE OUT NOCOPY DATE,
79 LAST_UPDATED_BY OUT NOCOPY VARCHAR2,
80 ROW_TO_FETCH IN OUT NOCOPY NUMBER,
81 ERROR_STATUS OUT NOCOPY NUMBER) IS
82
83 CREATEDBY NUMBER;
84 MODIFIEDBY NUMBER;
85
86 BEGIN
87 IF NOT CUR_GMS_GET_ORGANIZATION%ISOPEN THEN
88 OPEN CUR_GMS_GET_ORGANIZATION(PORG_ID, PORG_NAME, PSOB_NAME);
89 END IF;
90
91 FETCH CUR_GMS_GET_ORGANIZATION
92 INTO PORG_ID, PORG_NAME,
93 OU_DATE_FROM, OU_DATE_TO,
94 OL_NAME, OL_DATE_FROM,
95 OL_DATE_TO, VAT_REGISTRATION_NUMBER,
96 SET_OF_BOOKS_ID, CURRENCY_CODE,
97 CHART_OF_ACCOUNTS_ID, PSOB_NAME,
98 PERIOD_SET_NAME, SUSPENSE_ALLOWED_FLAG,
99 ALLOW_POSTING_WARNING_FLAG, ACCOUNTED_PERIOD_TYPE,
100 SHORT_NAME, REQUIRE_BUDGET_JOURNALS_FLAG,
101 ENABLE_BUDGETARY_CONTROL_FLAG, ALLOW_INTERCOMPANY_POST_FLAG,
102 LAST_UPDATE_LOGIN, LATEST_ENCUMBRANCE_YEAR,
103 EARLIEST_UNTRANS_PERIOD_NAME, CUM_TRANS_CODE_COMBINATION_ID,
104 FUTURE_ENTERABLE_PERIODS_LIMIT, LATEST_OPENED_PERIOD_NAME,
105 RET_EARN_CODE_COMBINATION_ID, RES_ENCUMB_CODE_COMBINATION_ID,
106 DESCRIPTION, CREATEDBY,
107 CREATION_DATE, LAST_UPDATE_DATE,
108 MODIFIEDBY;
109
110 IF CUR_GMS_GET_ORGANIZATION%NOTFOUND THEN
111 ERROR_STATUS := 100;
112 CLOSE CUR_GMS_GET_ORGANIZATION;
113 ELSE
114 -- Bug 2499848
115 -- CREATED_BY := GMF_FND_GET_USERS.FND_GET_USERS(CREATEDBY);
116 -- LAST_UPDATED_BY := GMF_FND_GET_USERS.FND_GET_USERS(MODIFIEDBY);
117 CREATED_BY := CREATEDBY;
118 LAST_UPDATED_BY := MODIFIEDBY;
119 END IF;
120
121 IF ROW_TO_FETCH = 1 AND CUR_GMS_GET_ORGANIZATION%ISOPEN THEN
122 CLOSE CUR_GMS_GET_ORGANIZATION;
123 END IF;
124
125 EXCEPTION
126 WHEN OTHERS THEN
127 ERROR_STATUS := SQLCODE;
128 END GMS_GET_ORGANIZATION;
129
130 END GMF_FND_GET_ORGANIZATION;