eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CN_RATE_SCH_DIMS_PKG

Source


1 PACKAGE BODY CN_RATE_SCH_DIMS_PKG AS
2 /* $Header: cntschdb.pls 120.2 2005/10/05 22:25:08 kjayapau ship $ */
3 
4 procedure INSERT_ROW (
5   X_RATE_SCH_DIM_ID       IN OUT NOCOPY CN_RATE_SCH_DIMS.RATE_SCH_DIM_ID%TYPE,
6   X_RATE_DIMENSION_ID     IN     CN_RATE_SCH_DIMS.RATE_DIMENSION_ID%TYPE,
7   X_RATE_SCHEDULE_ID      IN     CN_RATE_SCH_DIMS.RATE_SCHEDULE_ID%TYPE,
8   X_RATE_DIM_SEQUENCE     IN     CN_RATE_SCH_DIMS.RATE_DIM_SEQUENCE%TYPE,
9   --R12 MOAC Changes--Start
10   X_ORG_ID                IN     CN_RATE_SCH_DIMS.ORG_ID%TYPE, --new
11   --R12 MOAC Changes--End
12   X_ATTRIBUTE_CATEGORY    IN     CN_RATE_SCH_DIMS.ATTRIBUTE_CATEGORY%TYPE := NULL,
13   X_ATTRIBUTE1            IN     CN_RATE_SCH_DIMS.ATTRIBUTE1%TYPE := NULL,
14   X_ATTRIBUTE2            IN     CN_RATE_SCH_DIMS.ATTRIBUTE2%TYPE := NULL,
15   X_ATTRIBUTE3            IN     CN_RATE_SCH_DIMS.ATTRIBUTE3%TYPE := NULL,
16   X_ATTRIBUTE4            IN     CN_RATE_SCH_DIMS.ATTRIBUTE4%TYPE := NULL,
17   X_ATTRIBUTE5            IN     CN_RATE_SCH_DIMS.ATTRIBUTE5%TYPE := NULL,
18   X_ATTRIBUTE6            IN     CN_RATE_SCH_DIMS.ATTRIBUTE6%TYPE := NULL,
19   X_ATTRIBUTE7            IN     CN_RATE_SCH_DIMS.ATTRIBUTE7%TYPE := NULL,
20   X_ATTRIBUTE8            IN     CN_RATE_SCH_DIMS.ATTRIBUTE8%TYPE := NULL,
21   X_ATTRIBUTE9            IN     CN_RATE_SCH_DIMS.ATTRIBUTE9%TYPE := NULL,
22   X_ATTRIBUTE10           IN     CN_RATE_SCH_DIMS.ATTRIBUTE10%TYPE := NULL,
23   X_ATTRIBUTE11           IN     CN_RATE_SCH_DIMS.ATTRIBUTE11%TYPE := NULL,
24   X_ATTRIBUTE12           IN     CN_RATE_SCH_DIMS.ATTRIBUTE12%TYPE := NULL,
25   X_ATTRIBUTE13           IN     CN_RATE_SCH_DIMS.ATTRIBUTE13%TYPE := NULL,
26   X_ATTRIBUTE14           IN     CN_RATE_SCH_DIMS.ATTRIBUTE14%TYPE := NULL,
27   X_ATTRIBUTE15           IN     CN_RATE_SCH_DIMS.ATTRIBUTE15%TYPE := NULL,
28   X_CREATION_DATE         IN     CN_RATE_SCH_DIMS.CREATION_DATE%TYPE    := SYSDATE,
29   X_CREATED_BY            IN     CN_RATE_SCH_DIMS.CREATED_BY%TYPE       := FND_GLOBAL.USER_ID,
30   X_LAST_UPDATE_DATE      IN     CN_RATE_SCH_DIMS.LAST_UPDATE_DATE%TYPE := SYSDATE,
31   X_LAST_UPDATED_BY       IN     CN_RATE_SCH_DIMS.LAST_UPDATED_BY%TYPE  := FND_GLOBAL.USER_ID,
32   X_LAST_UPDATE_LOGIN     IN     CN_RATE_SCH_DIMS.LAST_UPDATE_LOGIN%TYPE:= FND_GLOBAL.LOGIN_ID) is
33   cursor C is select rate_sch_dim_id from CN_RATE_SCH_DIMS
34     where RATE_SCH_DIM_ID = x_rate_sch_dim_id;
35 
36   CURSOR id IS SELECT cn_rate_sch_dims_s.NEXTVAL FROM dual;
37 BEGIN
38    IF (x_rate_sch_dim_id IS NULL) THEN
39       OPEN id;
40       FETCH id INTO x_rate_sch_dim_id;
41       IF (id%notfound) THEN
42 	 CLOSE id;
43 	 RAISE no_data_found;
44       END IF;
45       CLOSE id;
46    END IF;
47 
48   insert into CN_RATE_SCH_DIMS (
49     RATE_SCH_DIM_ID,
50     RATE_DIMENSION_ID,
51     RATE_SCHEDULE_ID,
52     RATE_DIM_SEQUENCE,
53     --R12 MOAC Changes--Start
54     ORG_ID,
55     --R12 MOAC Changes--End
56     ATTRIBUTE_CATEGORY,
57     ATTRIBUTE1,
58     ATTRIBUTE2,
59     ATTRIBUTE3,
60     ATTRIBUTE4,
61     ATTRIBUTE5,
62     ATTRIBUTE6,
63     ATTRIBUTE7,
64     ATTRIBUTE8,
65     ATTRIBUTE9,
66     ATTRIBUTE10,
67     ATTRIBUTE11,
68     ATTRIBUTE12,
69     ATTRIBUTE13,
70     ATTRIBUTE14,
71     ATTRIBUTE15,
72     CREATED_BY,
73     CREATION_DATE,
74     LAST_UPDATE_LOGIN,
75     LAST_UPDATE_DATE,
76     LAST_UPDATED_BY,
77     OBJECT_VERSION_NUMBER
78   ) VALUES (
79     X_RATE_SCH_DIM_ID,
80     X_RATE_DIMENSION_ID,
81     X_RATE_SCHEDULE_ID,
82     X_RATE_DIM_SEQUENCE,
83     --R12 MOAC Changes--Start
84     X_ORG_ID,
85     --R12 MOAC Changes--End
86     X_ATTRIBUTE_CATEGORY,
87     X_ATTRIBUTE1,
88     X_ATTRIBUTE2,
89     X_ATTRIBUTE3,
90     X_ATTRIBUTE4,
91     X_ATTRIBUTE5,
92     X_ATTRIBUTE6,
93     X_ATTRIBUTE7,
94     X_ATTRIBUTE8,
95     X_ATTRIBUTE9,
96     X_ATTRIBUTE10,
97     X_ATTRIBUTE11,
98     X_ATTRIBUTE12,
99     X_ATTRIBUTE13,
100     X_ATTRIBUTE14,
101     X_ATTRIBUTE15,
102     X_CREATED_BY,
103     X_CREATION_DATE,
104     X_LAST_UPDATE_LOGIN,
105     X_LAST_UPDATE_DATE,
106     X_LAST_UPDATED_BY,
107     1);
108 
109 end INSERT_ROW;
110 
111 procedure LOCK_ROW (
112   X_RATE_SCH_DIM_ID       IN     CN_RATE_SCH_DIMS.RATE_SCH_DIM_ID%TYPE,
113   X_OBJECT_VERSION_NUMBER IN     CN_RATE_SCH_DIMS.OBJECT_VERSION_NUMBER%TYPE) IS
114 
115    cursor c is
116    select object_version_number
117      from CN_RATE_SCH_DIMS
118     where RATE_SCH_DIM_ID = X_RATE_SCH_DIM_ID;
119 
120    tlinfo c%rowtype ;
121 BEGIN
122    open  c;
123    fetch c into tlinfo;
124    if (c%notfound) then
125       close c;
126       fnd_message.set_name('CN', 'CN_RECORD_DELETED');
127       fnd_msg_pub.add;
128       raise fnd_api.g_exc_unexpected_error;
129    end if;
130    close c;
131 
132    if (tlinfo.object_version_number <> x_object_version_number) then
133       fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
134       fnd_msg_pub.add;
135       raise fnd_api.g_exc_unexpected_error;
136    end if;
137 
138 END LOCK_ROW;
139 
140 procedure UPDATE_ROW (
141   X_RATE_SCH_DIM_ID       IN     CN_RATE_SCH_DIMS.RATE_SCH_DIM_ID%TYPE,
142   X_RATE_DIMENSION_ID     IN     CN_RATE_SCH_DIMS.RATE_DIMENSION_ID%TYPE  := cn_api.g_miss_num,
143   X_RATE_SCHEDULE_ID      IN     CN_RATE_SCH_DIMS.RATE_SCHEDULE_ID%TYPE   := cn_api.g_miss_num,
144   X_RATE_DIM_SEQUENCE     IN     CN_RATE_SCH_DIMS.RATE_DIM_SEQUENCE%TYPE  := cn_api.g_miss_num,
145   X_ATTRIBUTE_CATEGORY    IN     CN_RATE_SCH_DIMS.ATTRIBUTE_CATEGORY%TYPE := cn_api.g_miss_char,
146   X_ATTRIBUTE1            IN     CN_RATE_SCH_DIMS.ATTRIBUTE1%TYPE         := cn_api.g_miss_char,
147   X_ATTRIBUTE2            IN     CN_RATE_SCH_DIMS.ATTRIBUTE2%TYPE         := cn_api.g_miss_char,
148   X_ATTRIBUTE3            IN     CN_RATE_SCH_DIMS.ATTRIBUTE3%TYPE         := cn_api.g_miss_char,
149   X_ATTRIBUTE4            IN     CN_RATE_SCH_DIMS.ATTRIBUTE4%TYPE         := cn_api.g_miss_char,
150   X_ATTRIBUTE5            IN     CN_RATE_SCH_DIMS.ATTRIBUTE5%TYPE         := cn_api.g_miss_char,
151   X_ATTRIBUTE6            IN     CN_RATE_SCH_DIMS.ATTRIBUTE6%TYPE         := cn_api.g_miss_char,
152   X_ATTRIBUTE7            IN     CN_RATE_SCH_DIMS.ATTRIBUTE7%TYPE         := cn_api.g_miss_char,
153   X_ATTRIBUTE8            IN     CN_RATE_SCH_DIMS.ATTRIBUTE8%TYPE         := cn_api.g_miss_char,
154   X_ATTRIBUTE9            IN     CN_RATE_SCH_DIMS.ATTRIBUTE9%TYPE         := cn_api.g_miss_char,
155   X_ATTRIBUTE10           IN     CN_RATE_SCH_DIMS.ATTRIBUTE10%TYPE        := cn_api.g_miss_char,
156   X_ATTRIBUTE11           IN     CN_RATE_SCH_DIMS.ATTRIBUTE11%TYPE        := cn_api.g_miss_char,
157   X_ATTRIBUTE12           IN     CN_RATE_SCH_DIMS.ATTRIBUTE12%TYPE        := cn_api.g_miss_char,
158   X_ATTRIBUTE13           IN     CN_RATE_SCH_DIMS.ATTRIBUTE13%TYPE        := cn_api.g_miss_char,
159   X_ATTRIBUTE14           IN     CN_RATE_SCH_DIMS.ATTRIBUTE14%TYPE        := cn_api.g_miss_char,
160   X_ATTRIBUTE15           IN     CN_RATE_SCH_DIMS.ATTRIBUTE15%TYPE        := cn_api.g_miss_char,
161   X_OBJECT_VERSION_NUMBER IN OUT NOCOPY CN_RATE_SCH_DIMS.OBJECT_VERSION_NUMBER%TYPE,
162   X_LAST_UPDATE_DATE      IN     CN_RATE_SCH_DIMS.LAST_UPDATE_DATE%TYPE := SYSDATE,
163   X_LAST_UPDATED_BY       IN     CN_RATE_SCH_DIMS.LAST_UPDATED_BY%TYPE  := FND_GLOBAL.USER_ID,
164   X_LAST_UPDATE_LOGIN     IN     CN_RATE_SCH_DIMS.LAST_UPDATE_LOGIN%TYPE:= FND_GLOBAL.LOGIN_ID) is
165 BEGIN
166 
167 X_OBJECT_VERSION_NUMBER := X_OBJECT_VERSION_NUMBER + 1;
168 
169   update CN_RATE_SCH_DIMS set
170     RATE_DIMENSION_ID = Decode(X_RATE_DIMENSION_ID, fnd_api.g_miss_num, rate_dimension_id, x_rate_dimension_id),
171     -- RATE_SCHEDULE_ID = Decode(X_RATE_SCHEDULE_ID, fnd_api.g_miss_num, rate_schedule_id, x_rate_schedule_id),
172     RATE_DIM_SEQUENCE = Decode(X_RATE_DIM_SEQUENCE, fnd_api.g_miss_num, rate_dim_sequence, x_rate_dim_sequence),
173     ATTRIBUTE_CATEGORY = Decode(X_ATTRIBUTE_CATEGORY, fnd_api.g_miss_char, attribute_category, x_attribute_category),
174     ATTRIBUTE1 = Decode(X_ATTRIBUTE1, fnd_api.g_miss_char, attribute1, x_attribute1),
175     ATTRIBUTE2 = Decode(X_ATTRIBUTE2, fnd_api.g_miss_char, attribute2, x_attribute2),
176     ATTRIBUTE3 = Decode(X_ATTRIBUTE3, fnd_api.g_miss_char, attribute3, x_attribute3),
177     ATTRIBUTE4 = Decode(X_ATTRIBUTE4, fnd_api.g_miss_char, attribute4, x_attribute4),
178     ATTRIBUTE5 = Decode(X_ATTRIBUTE5, fnd_api.g_miss_char, attribute5, x_attribute5),
179     ATTRIBUTE6 = Decode(X_ATTRIBUTE6, fnd_api.g_miss_char, attribute6, x_attribute6),
180     ATTRIBUTE7 = Decode(X_ATTRIBUTE7, fnd_api.g_miss_char, attribute7, x_attribute7),
181     ATTRIBUTE8 = Decode(X_ATTRIBUTE8, fnd_api.g_miss_char, attribute8, x_attribute8),
182     ATTRIBUTE9 = Decode(X_ATTRIBUTE9, fnd_api.g_miss_char, attribute9, x_attribute9),
183     ATTRIBUTE10 = Decode(X_ATTRIBUTE10, fnd_api.g_miss_char, attribute10, x_attribute10),
184     ATTRIBUTE11 = Decode(X_ATTRIBUTE11, fnd_api.g_miss_char, attribute11, x_attribute11),
185     ATTRIBUTE12 = Decode(X_ATTRIBUTE12, fnd_api.g_miss_char, attribute12, x_attribute12),
186     ATTRIBUTE13 = Decode(X_ATTRIBUTE13, fnd_api.g_miss_char, attribute13, x_attribute13),
187     ATTRIBUTE14 = Decode(X_ATTRIBUTE14, fnd_api.g_miss_char, attribute14, x_attribute14),
188     ATTRIBUTE15 = Decode(X_ATTRIBUTE15, fnd_api.g_miss_char, attribute15, x_attribute15),
189     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
190     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
191     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
192     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
193   where RATE_SCH_DIM_ID = x_rate_sch_dim_id;
194 
195   if (sql%notfound) then
196     raise no_data_found;
197   end if;
198 end UPDATE_ROW;
199 
200 procedure DELETE_ROW (
201   X_RATE_SCH_DIM_ID         IN     CN_RATE_SCH_DIMS.RATE_SCH_DIM_ID%TYPE) is
202 begin
203   delete from CN_RATE_SCH_DIMS
204   where RATE_SCH_DIM_ID = X_RATE_SCH_DIM_ID;
205 
206   if (sql%notfound) then
207      fnd_message.set_name('CN', 'CN_RECORD_DELETED');
208      fnd_msg_pub.add;
209      raise fnd_api.g_exc_unexpected_error;
210   end if;
211 
212 end DELETE_ROW;
213 
214 end CN_RATE_SCH_DIMS_PKG;