[Home] [Help]
PACKAGE BODY: APPS.PA_PERIOD_MASK_DETAILS_PKG
Source
1 PACKAGE BODY PA_PERIOD_MASK_DETAILS_PKG AS
2 --$Header: PAFPPMDB.pls 120.2 2007/02/06 10:04:30 dthakker noship $
3 PROCEDURE INSERT_ROW(
4 x_rowid IN OUT NOCOPY ROWID,
5 x_period_mask_id IN pa_period_mask_details.period_mask_id%type,
6 x_num_of_periods IN pa_period_mask_details.num_of_periods%type,
7 x_anchor_period_flag IN pa_period_mask_details.anchor_period_flag%type,
8 x_from_anchor_start IN pa_period_mask_details.from_anchor_start%type,
9 x_from_anchor_end IN pa_period_mask_details.from_anchor_end%type,
10 x_from_anchor_position IN pa_period_mask_details.from_anchor_position%type,
11 x_creation_date IN pa_period_mask_details.creation_date%type,
12 x_created_by IN pa_period_mask_details.created_by%type,
13 x_last_update_login IN pa_period_mask_details.last_update_login%type,
14 x_last_updated_by IN pa_period_mask_details.last_updated_by%type,
15 x_last_update_date IN pa_period_mask_details.last_update_date%type
16 ) IS
17
18 l_period_mask_id pa_period_mask_details.period_mask_id%type;
19
20
21 CURSOR C IS SELECT ROWID FROM PA_PERIOD_MASK_DETAILS
22 WHERE period_mask_id = l_period_mask_id;
23
24 cn_rowid ROWID;
25
26 BEGIN
27 cn_rowid := x_rowid;
28
29 SELECT x_period_mask_id
30 INTO l_period_mask_id
31 FROM DUAL;
32
33 INSERT INTO PA_PERIOD_MASK_DETAILS(
34 period_mask_id,
35 num_of_periods,
36 anchor_period_flag,
37 from_anchor_start,
38 from_anchor_end,
39 from_anchor_position,
40 creation_date,
41 created_by,
42 last_update_login,
43 last_updated_by,
44 last_update_date
45 ) VALUES (
46 l_period_mask_id,
47 X_NUM_OF_PERIODS,
48 X_ANCHOR_PERIOD_FLAG,
49 X_FROM_ANCHOR_START,
50 X_FROM_ANCHOR_END,
51 X_FROM_ANCHOR_POSITION,
52 x_creation_date,
53 x_created_by,
54 x_last_update_login,
55 x_last_updated_by,
56 x_last_update_date
57 );
58
59 EXCEPTION
60 WHEN OTHERS THEN
61 x_rowid := cn_rowid;
62 RAISE;
63
64 END INSERT_ROW;
65
66 PROCEDURE LOCK_ROW(
67 X_PERIOD_MASK_ID IN pa_period_mask_details.period_mask_id%type,
68 X_from_anchor_position IN pa_period_mask_details.from_anchor_position%type
69 ) IS
70 CURSOR c IS SELECT
71 period_mask_id,
72 num_of_periods,
73 anchor_period_flag,
74 from_anchor_start,
75 from_anchor_end,
76 from_anchor_position,
77 creation_date,
78 created_by,
79 last_update_login,
80 last_updated_by,
81 last_update_date
82 FROM pa_period_mask_details
83 WHERE period_mask_id = x_period_mask_id
84 AND from_anchor_position = x_from_anchor_position
85 FOR UPDATE OF period_mask_id NOWAIT;
86
87 recinfo c%ROWTYPE;
88
89 BEGIN
90
91 OPEN c;
92 FETCH c INTO recinfo;
93 IF (c%NOTFOUND) THEN
94 CLOSE c;
95 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
96 app_exception.raise_exception;
97 END IF;
98 CLOSE c;
99
100 RETURN;
101
102 END LOCK_ROW;
103
104 PROCEDURE UPDATE_ROW(
105 x_period_mask_id IN pa_period_mask_details.period_mask_id%type,
106 x_num_of_periods IN pa_period_mask_details.num_of_periods%type,
107 x_anchor_period_flag IN pa_period_mask_details.anchor_period_flag%type,
108 x_from_anchor_start IN pa_period_mask_details.from_anchor_start%type,
109 x_from_anchor_end IN pa_period_mask_details.from_anchor_end%type,
110 x_from_anchor_position IN pa_period_mask_details.from_anchor_position%type,
111 x_creation_date IN pa_period_mask_details.creation_date%type,
112 x_created_by IN pa_period_mask_details.created_by%type,
113 x_last_update_login IN pa_period_mask_details.last_update_login%type,
114 x_last_updated_by IN pa_period_mask_details.last_updated_by%type,
115 x_last_update_date IN pa_period_mask_details.last_update_date%type
116 ) IS
117 BEGIN
118
119 UPDATE pa_period_mask_details
120 SET num_of_periods = X_NUM_OF_PERIODS,
121 anchor_period_flag = X_ANCHOR_PERIOD_FLAG,
122 from_anchor_start = X_FROM_ANCHOR_START,
123 from_anchor_end = X_FROM_ANCHOR_END,
124 from_anchor_position = X_FROM_ANCHOR_POSITION,
125 creation_date = X_CREATION_DATE,
126 created_by = X_CREATED_BY,
127 last_update_login = X_LAST_UPDATE_LOGIN,
128 last_updated_by = X_LAST_UPDATED_BY,
129 last_update_date = X_LAST_UPDATE_DATE
130 WHERE period_mask_id = X_PERIOD_MASK_ID
131 AND from_anchor_position = X_FROM_ANCHOR_POSITION;
132
133 IF (SQL%NOTFOUND) THEN
134 RAISE no_data_found;
135 END IF;
136
137 END UPDATE_ROW;
138
139 PROCEDURE DELETE_ROW(
140 X_PERIOD_MASK_ID IN pa_period_mask_details.period_mask_id%type,
141 X_from_anchor_position IN pa_period_mask_details.from_anchor_position%type
142 ) IS
143 BEGIN
144 DELETE FROM PA_PERIOD_MASK_DETAILS
145 WHERE period_mask_id = X_PERIOD_MASK_ID AND
146 from_anchor_position = x_from_anchor_position;
147
148 IF (SQL%NOTFOUND) THEN
149 RAISE no_data_found;
150 END IF;
151
152 end DELETE_ROW;
153
154
155
156 PROCEDURE LOAD_ROW(
157
158 x_period_mask_id IN pa_period_mask_details.period_mask_id%type,
159 x_num_of_periods IN pa_period_mask_details.num_of_periods%type,
160 x_anchor_period_flag IN pa_period_mask_details.anchor_period_flag%type,
161 x_from_anchor_start IN pa_period_mask_details.from_anchor_start%type,
162 x_from_anchor_end IN pa_period_mask_details.from_anchor_end%type,
163 x_from_anchor_position IN pa_period_mask_details.from_anchor_position%type,
164 x_creation_date IN pa_period_mask_details.creation_date%type,
165 x_created_by IN pa_period_mask_details.created_by%type,
166 x_last_update_login IN pa_period_mask_details.last_update_login%type,
167 x_last_updated_by IN pa_period_mask_details.last_updated_by%type,
168 x_last_update_date IN pa_period_mask_details.last_update_date%type,
169 x_owner IN varchar2)
170 IS
171
172 X_ROWID ROWID;
173
174 BEGIN
175
176 PA_PERIOD_MASK_DETAILS_PKG.UPDATE_ROW(
177 X_PERIOD_MASK_ID => X_PERIOD_MASK_ID ,
178 X_NUM_OF_PERIODS => X_NUM_OF_PERIODS,
179 X_ANCHOR_PERIOD_FLAG => X_ANCHOR_PERIOD_FLAG,
180 X_FROM_ANCHOR_START => X_FROM_ANCHOR_START,
181 X_FROM_ANCHOR_END => X_FROM_ANCHOR_END,
182 X_FROM_ANCHOR_POSITION => X_FROM_ANCHOR_POSITION,
183 x_creation_date => x_creation_date,
184 x_created_by => x_created_by,
185 x_last_update_login => x_last_update_login,
186 x_last_updated_by => x_last_updated_by,
187 x_last_update_date => x_last_update_date);
188
189
190 EXCEPTION
191 WHEN no_data_found then
192 PA_PERIOD_MASK_DETAILS_PKG.INSERT_ROW(
193 X_ROWID => X_ROWID ,
194 X_PERIOD_MASK_ID => X_PERIOD_MASK_ID,
195 X_NUM_OF_PERIODS => X_NUM_OF_PERIODS,
196 X_ANCHOR_PERIOD_FLAG => X_ANCHOR_PERIOD_FLAG,
197 X_FROM_ANCHOR_START => X_FROM_ANCHOR_START,
198 X_FROM_ANCHOR_END => X_FROM_ANCHOR_END,
199 X_FROM_ANCHOR_POSITION => X_FROM_ANCHOR_POSITION,
200 x_creation_date => x_creation_date,
201 x_created_by => x_created_by,
202 x_last_update_login => x_last_update_login,
203 x_last_updated_by => x_last_updated_by,
204 x_last_update_date => x_last_update_date
205 );
206
207 END LOAD_ROW;
208
209
210 END PA_PERIOD_MASK_DETAILS_PKG;