[Home] [Help]
PACKAGE BODY: APPS.AS_MC_REPORTING_CURR_PKG
Source
1 PACKAGE BODY AS_MC_REPORTING_CURR_PKG as
2 /* $Header: asxtmrcb.pls 115.3 2002/11/06 00:54:45 appldev ship $ */
3 -- Start of Comments
4 -- Package name : AS_MC_REPORTING_CURR_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_MC_REPORTING_CURR_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtmrcb.pls';
13
14 PROCEDURE Insert_Row(
15 p_CREATED_BY NUMBER,
16 p_CREATION_DATE DATE,
17 p_LAST_UPDATED_BY NUMBER,
18 p_LAST_UPDATE_DATE DATE,
19 p_LAST_UPDATE_LOGIN NUMBER,
20 p_FROM_CURRENCY VARCHAR2,
21 p_END_DATE_ACTIVE DATE,
22 p_REPORTING_CURRENCY VARCHAR2,
23 p_START_DATE_ACTIVE DATE,
24 px_SETUP_CURRENCY_ID IN OUT NUMBER,
25 p_SECURITY_GROUP_ID NUMBER)
26
27 IS
28 CURSOR C2 IS SELECT AS_MC_REPORTING_CURR_S.nextval FROM sys.dual;
29 BEGIN
30 If (px_SETUP_CURRENCY_ID IS NULL) OR (px_SETUP_CURRENCY_ID = FND_API.G_MISS_NUM) then
31 OPEN C2;
32 FETCH C2 INTO px_SETUP_CURRENCY_ID;
33 CLOSE C2;
34 End If;
35 INSERT INTO AS_MC_REPORTING_CURR(
36 SETUP_CURRENCY_ID,
37 CREATED_BY,
38 CREATION_DATE,
39 LAST_UPDATED_BY,
40 LAST_UPDATE_DATE,
41 LAST_UPDATE_LOGIN,
42 FROM_CURRENCY,
43 END_DATE_ACTIVE,
44 REPORTING_CURRENCY,
45 START_DATE_ACTIVE
46 -- SECURITY_GROUP_ID
47 ) VALUES (
48 px_SETUP_CURRENCY_ID,
49 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
50 decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE),
51 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
52 decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
53 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
54 decode( p_FROM_CURRENCY, FND_API.G_MISS_CHAR, NULL, p_FROM_CURRENCY),
55 decode( p_END_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_END_DATE_ACTIVE),
56 decode( p_REPORTING_CURRENCY, FND_API.G_MISS_CHAR, NULL, p_REPORTING_CURRENCY),
57 decode( p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_START_DATE_ACTIVE));
58 -- decode( p_SECURITY_GROUP_ID, FND_API.G_MISS_NUM, NULL, p_SECURITY_GROUP_ID));
59 End Insert_Row;
60
61 PROCEDURE Update_Row(
62 p_CREATED_BY NUMBER,
63 p_CREATION_DATE DATE,
64 p_LAST_UPDATED_BY NUMBER,
65 p_LAST_UPDATE_DATE DATE,
66 p_LAST_UPDATE_LOGIN NUMBER,
67 p_FROM_CURRENCY VARCHAR2,
68 p_END_DATE_ACTIVE DATE,
69 p_REPORTING_CURRENCY VARCHAR2,
70 p_START_DATE_ACTIVE DATE,
71 p_SETUP_CURRENCY_ID NUMBER,
72 p_SECURITY_GROUP_ID NUMBER)
73
74 IS
75 BEGIN
76 Update AS_MC_REPORTING_CURR
77 SET
78 CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
79 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
80 LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
81 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
82 FROM_CURRENCY = decode( p_FROM_CURRENCY, FND_API.G_MISS_CHAR, FROM_CURRENCY, p_FROM_CURRENCY),
83 END_DATE_ACTIVE = decode( p_END_DATE_ACTIVE, FND_API.G_MISS_DATE, END_DATE_ACTIVE, p_END_DATE_ACTIVE),
84 REPORTING_CURRENCY = decode( p_REPORTING_CURRENCY, FND_API.G_MISS_CHAR, REPORTING_CURRENCY, p_REPORTING_CURRENCY),
85 START_DATE_ACTIVE = decode( p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, START_DATE_ACTIVE, p_START_DATE_ACTIVE),
86 SETUP_CURRENCY_ID = decode( p_SETUP_CURRENCY_ID, FND_API.G_MISS_NUM, SETUP_CURRENCY_ID, p_SETUP_CURRENCY_ID)
87 -- SECURITY_GROUP_ID = decode( p_SECURITY_GROUP_ID, FND_API.G_MISS_NUM, SECURITY_GROUP_ID, p_SECURITY_GROUP_ID)
88 where SETUP_CURRENCY_ID = p_SETUP_CURRENCY_ID;
89
90 If (SQL%NOTFOUND) then
91 RAISE NO_DATA_FOUND;
92 End If;
93 END Update_Row;
94
95 PROCEDURE Delete_Row(
96 p_SETUP_CURRENCY_ID NUMBER)
97 IS
98 BEGIN
99 DELETE FROM AS_MC_REPORTING_CURR
100 WHERE SETUP_CURRENCY_ID = p_SETUP_CURRENCY_ID;
101 If (SQL%NOTFOUND) then
102 RAISE NO_DATA_FOUND;
103 End If;
104 END Delete_Row;
105
106 PROCEDURE Lock_Row(
107 p_CREATED_BY NUMBER,
108 p_CREATION_DATE DATE,
109 p_LAST_UPDATED_BY NUMBER,
110 p_LAST_UPDATE_DATE DATE,
111 p_LAST_UPDATE_LOGIN NUMBER,
112 p_FROM_CURRENCY VARCHAR2,
113 p_END_DATE_ACTIVE DATE,
114 p_REPORTING_CURRENCY VARCHAR2,
115 p_START_DATE_ACTIVE DATE,
116 p_SETUP_CURRENCY_ID NUMBER,
117 p_SECURITY_GROUP_ID NUMBER)
118
119 IS
120 CURSOR C IS
121 SELECT *
122 FROM AS_MC_REPORTING_CURR
123 WHERE SETUP_CURRENCY_ID = p_SETUP_CURRENCY_ID
124 FOR UPDATE of SETUP_CURRENCY_ID NOWAIT;
125 Recinfo C%ROWTYPE;
126 BEGIN
127 OPEN C;
128 FETCH C INTO Recinfo;
129 If (C%NOTFOUND) then
130 CLOSE C;
131 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
132 APP_EXCEPTION.RAISE_EXCEPTION;
133 End If;
134 CLOSE C;
135 if (
136 ( Recinfo.CREATED_BY = p_CREATED_BY)
137 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
138 OR ( ( Recinfo.CREATION_DATE IS NULL )
139 AND ( p_CREATION_DATE IS NULL )))
140 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
141 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
142 AND ( p_LAST_UPDATED_BY IS NULL )))
143 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
144 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
145 AND ( p_LAST_UPDATE_DATE IS NULL )))
146 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
147 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
148 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
149 AND ( ( Recinfo.FROM_CURRENCY = p_FROM_CURRENCY)
150 OR ( ( Recinfo.FROM_CURRENCY IS NULL )
151 AND ( p_FROM_CURRENCY IS NULL )))
152 AND ( ( Recinfo.END_DATE_ACTIVE = p_END_DATE_ACTIVE)
153 OR ( ( Recinfo.END_DATE_ACTIVE IS NULL )
154 AND ( p_END_DATE_ACTIVE IS NULL )))
155 AND ( ( Recinfo.REPORTING_CURRENCY = p_REPORTING_CURRENCY)
156 OR ( ( Recinfo.REPORTING_CURRENCY IS NULL )
157 AND ( p_REPORTING_CURRENCY IS NULL )))
158 AND ( ( Recinfo.START_DATE_ACTIVE = p_START_DATE_ACTIVE)
159 OR ( ( Recinfo.START_DATE_ACTIVE IS NULL )
160 AND ( p_START_DATE_ACTIVE IS NULL )))
161 AND ( ( Recinfo.SETUP_CURRENCY_ID = p_SETUP_CURRENCY_ID)
162 OR ( ( Recinfo.SETUP_CURRENCY_ID IS NULL )
163 AND ( p_SETUP_CURRENCY_ID IS NULL )))
164 -- AND ( ( Recinfo.SECURITY_GROUP_ID = p_SECURITY_GROUP_ID)
165 -- OR ( ( Recinfo.SECURITY_GROUP_ID IS NULL )
166 -- AND ( p_SECURITY_GROUP_ID IS NULL )))
167 ) then
168 return;
169 else
170 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
171 APP_EXCEPTION.RAISE_EXCEPTION;
172 End If;
173 END Lock_Row;
174
175 End AS_MC_REPORTING_CURR_PKG;