DBA Data[Home] [Help]

APPS.AMW_CONTROL_PVT dependencies on FND_FILE

Line 138: ---fnd_file.put_line (fnd_file.LOG,'Amw_Control_Pvt.Load_Control: Start');

134:
135: BEGIN
136: -- Standard Start of API savepoint
137: SAVEPOINT load_control_pvt;
138: ---fnd_file.put_line (fnd_file.LOG,'Amw_Control_Pvt.Load_Control: Start');
139: -- Standard call to check for call compatibility.
140: IF NOT fnd_api.compatible_api_call (l_api_version_number,
141: p_api_version_number,
142: l_api_name,

Line 160: ----fnd_file.put_line (fnd_file.LOG,'Going to Get_Name cursor');

156: l_control_rec := p_control_rec;
157: ---l_control_rec.requestor_id := p_party_id;
158: ----check if this control that user is trying to upload
159: ----exists in the application or not.
160: ----fnd_file.put_line (fnd_file.LOG,'Going to Get_Name cursor');
161: OPEN get_name;
162: LOOP
163: FETCH get_name
164: INTO l_get_name;

Line 175: ----fnd_file.put_line (fnd_file.LOG,'Out of Get_Name cursor, l_control_exists: '||l_control_exists);

171: l_control_exists := 1;
172: END IF;
173: END LOOP;
174: CLOSE get_name;
175: ----fnd_file.put_line (fnd_file.LOG,'Out of Get_Name cursor, l_control_exists: '||l_control_exists);
176:
177: IF (l_control_rec.approval_status IS NOT NULL AND
178: (l_control_rec.approval_status <> 'D' and l_control_rec.approval_status <> 'A')) THEN
179: ----amw_utility_pvt.debug_message('Validate_dm_model_rec: A Control can only be created in a Draft (''D'') status');

Line 214: ----fnd_file.put_line (fnd_file.LOG,'x_control_rev_id: '||l_control_rev_id);

210: x_msg_data => x_msg_data,
211: p_control_rec => l_control_rec,
212: x_control_rev_id => l_control_rev_id
213: );
214: ----fnd_file.put_line (fnd_file.LOG,'x_control_rev_id: '||l_control_rev_id);
215: ---these are the out variables, namely
216: ---control_rev_id and the mode (Create) for this uploaded row
217: OPEN get_control_id(l_CONTROL_REV_ID);
218: FETCH get_control_id INTO out_control_id;

Line 226: fnd_file.put_line (fnd_file.LOG,'Opening update_enabled');

222: x_control_rev_id := l_control_rev_id;
223: x_mode_affected := 'CREATE_CONTROL';
224: ELSIF (l_control_exists = 1) THEN
225: --check whether this is an updateable mode ....
226: fnd_file.put_line (fnd_file.LOG,'Opening update_enabled');
227: OPEN update_enabled;
228: LOOP
229: FETCH update_enabled
230: INTO updenb;

Line 247: ----fnd_file.put_line (fnd_file.LOG,'Closed update_enabled, l_update_row_found: '||l_update_row_found);

243: l_control_rec.requestor_id := updenb.requestor_id;
244: l_update_row_found := l_update_row_found + 1;
245: END LOOP;
246: CLOSE update_enabled;
247: ----fnd_file.put_line (fnd_file.LOG,'Closed update_enabled, l_update_row_found: '||l_update_row_found);
248: IF (l_update_row_found = 0) THEN
249: ---this has to be revision mode
250: OPEN rev_enabled;
251: LOOP

Line 268: ----fnd_file.put_line (fnd_file.LOG,'Closed rev_enabled, l_revision_row_found: '||l_revision_row_found);

264: --- l_control_rec.requestor_id := revenb.requestor_id;
265: l_revision_row_found := l_revision_row_found + 1;
266: END LOOP;
267: CLOSE rev_enabled;
268: ----fnd_file.put_line (fnd_file.LOG,'Closed rev_enabled, l_revision_row_found: '||l_revision_row_found);
269: IF (l_revision_row_found > 1) THEN
270: ---amw_utility_pvt.error_message(p_message_name => 'More than one row for this Control can be revised.');
271: ---amw_utility_pvt.error_message(p_message_name => 'Needs only one revisable row');
272: amw_utility_pvt.error_message(p_message_name => 'AMW_UNEXPECT_ERROR',

Line 279: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_revision_row_found: '||l_revision_row_found);

275:
276: x_return_status := fnd_api.g_ret_sts_error;
277: RAISE fnd_api.g_exc_error;
278: ELSIF (l_revision_row_found = 1) THEN ----elsif for revision status
279: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_revision_row_found: '||l_revision_row_found);
280: --do an update for this row
281: l_control_rec.latest_revision_flag := 'N';
282: l_control_rec.object_version_number := l_control_rec.object_version_number;
283: l_count := 0;

Line 301: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_approval_status: '||l_approval_status);

297: x_return_status := fnd_api.g_ret_sts_error;
298: RAISE fnd_api.g_exc_error;
299: END IF;
300: IF ((l_approval_status = 'R' OR l_approval_status = 'A')) THEN
301: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_approval_status: '||l_approval_status);
302: ---and l_control_rec.approval_status = 'D') then
303: --this means that there is no prior revision, hence create a revision
304: update_control_rec.latest_revision_flag := 'N';
305: if(l_control_rec.approval_status='A')then

Line 306: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_control_rec.approval_status: '||l_control_rec.approval_status);

302: ---and l_control_rec.approval_status = 'D') then
303: --this means that there is no prior revision, hence create a revision
304: update_control_rec.latest_revision_flag := 'N';
305: if(l_control_rec.approval_status='A')then
306: fnd_file.put_line (fnd_file.LOG,'>>>>>>>>>>> l_control_rec.approval_status: '||l_control_rec.approval_status);
307: update_control_rec.curr_approved_flag := 'N';
308: ---12.28.2004 npanandi: set the EndDate of the existing
309: ---Approved Control before creating a new Revision
310: update_control_rec.end_date := sysdate;

Line 324: ----fnd_file.put_line (fnd_file.LOG,'Revising this one, going to Update_Control');

320: ---value for Classification
321: if(update_control_rec.classification is null) then
322: update_control_rec.classification := l_control_rec.classification;
323: end if;
324: ----fnd_file.put_line (fnd_file.LOG,'Revising this one, going to Update_Control');
325: update_control
326: (p_api_version_number => l_api_version_number,
327: p_init_msg_list => p_init_msg_list,
328: p_commit => p_commit,

Line 352: ----fnd_file.put_line (fnd_file.LOG,'Revising this one, going to Create_Control');

348: -------l_control_rec.requestor_id := p_party_id;
349: l_control_rec.rev_num := l_control_rec.rev_num + 1;
350: l_control_rec.object_version_number := 1;
351: l_control_rec.control_id := l_control_id;
352: ----fnd_file.put_line (fnd_file.LOG,'Revising this one, going to Create_Control');
353: create_control
354: (p_api_version_number => p_api_version_number,
355: p_init_msg_list => p_init_msg_list,
356: p_commit => p_commit,

Line 364: -----fnd_file.put_line (fnd_file.LOG,'x_control_rev_id: '||l_control_rev_id);

360: x_msg_data => x_msg_data,
361: p_control_rec => l_control_rec,
362: x_control_rev_id => l_control_rev_id
363: );
364: -----fnd_file.put_line (fnd_file.LOG,'x_control_rev_id: '||l_control_rev_id);
365: OPEN get_control_id(l_CONTROL_REV_ID);
366: FETCH get_control_id INTO out_control_id;
367: CLOSE get_control_id;
368: x_control_id := out_control_id;

Line 382: fnd_file.put_line (fnd_file.LOG,'Inside L_Update_Row_Found = 1, l_control_rec.control_id: '||l_control_rec.control_id);

378: p_token_value => G_OBJ_TYPE);
379:
380: RAISE fnd_api.g_exc_error;
381: ELSIF (l_update_row_found = 1) THEN ----elsif for update status
382: fnd_file.put_line (fnd_file.LOG,'Inside L_Update_Row_Found = 1, l_control_rec.control_id: '||l_control_rec.control_id);
383: select count(*) into l_rev_count from amw_controls_b
384: where control_id=l_control_rec.control_id
385: and curr_approved_flag='Y'
386: and latest_revision_flag='N';

Line 388: -----fnd_file.put_line (fnd_file.LOG,'l_rev_count: '||l_rev_count);

384: where control_id=l_control_rec.control_id
385: and curr_approved_flag='Y'
386: and latest_revision_flag='N';
387:
388: -----fnd_file.put_line (fnd_file.LOG,'l_rev_count: '||l_rev_count);
389: /*if(l_rev_count=1)then --this is the previous version from which this
390: ---revised draft was created ....
391: */
392: --- this if is needed to set the curr_approved_flag of the

Line 395: fnd_file.put_line (fnd_file.LOG,'Inside controversial IF because ---> l_rev_count: '||l_rev_count||' l_control_rec.approval_status: '||l_control_rec.approval_status);

391: */
392: --- this if is needed to set the curr_approved_flag of the
393: --- previous revision to 'N'
394: if(l_rev_count=1 and l_control_rec.approval_status='A') then
395: fnd_file.put_line (fnd_file.LOG,'Inside controversial IF because ---> l_rev_count: '||l_rev_count||' l_control_rec.approval_status: '||l_control_rec.approval_status);
396: /*select nvl(object_version_number,0) into l_o_v_n from amw_controls_b
397: where control_id=l_control_rec.control_id
398: and curr_approved_flag='Y'
399: and latest_revision_flag='N';

Line 440: fnd_file.put_line (fnd_file.LOG,'2 --> $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');

436: p_token_value => G_OBJ_TYPE);
437: x_return_status := fnd_api.g_ret_sts_error;
438: RAISE fnd_api.g_exc_error;
439: END IF;
440: fnd_file.put_line (fnd_file.LOG,'2 --> $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
441: update_control (p_api_version_number => l_api_version_number,
442: p_init_msg_list => p_init_msg_list,
443: p_commit => p_commit,
444: p_validation_level => p_validation_level,

Line 451: fnd_file.put_line (fnd_file.LOG,'x_return_status: '||x_return_status);

447: x_msg_data => x_msg_data,
448: p_control_rec => l_control_rec,
449: x_object_version_number => l_object_version_number
450: );
451: fnd_file.put_line (fnd_file.LOG,'x_return_status: '||x_return_status);
452: OPEN get_control_id(l_control_rec.CONTROL_REV_ID);
453: FETCH get_control_id INTO out_control_id;
454: CLOSE get_control_id;
455:

Line 829: fnd_file.put_line (fnd_file.LOG,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');

825: l_control_rec.last_update_login := g_login_id;
826: IF (p_validation_level >= fnd_api.g_valid_level_full) THEN
827: -- Debug message
828: amw_utility_pvt.debug_message ('Calling Validate_Control');
829: fnd_file.put_line (fnd_file.LOG,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
830: fnd_file.put_line (fnd_file.LOG,'l_control_rec.control_classification: '||l_control_rec.classification);
831: -- Invoke validation procedures
832: validate_control (p_mode => 'UPDATE',
833: p_api_version_number => 1,

Line 830: fnd_file.put_line (fnd_file.LOG,'l_control_rec.control_classification: '||l_control_rec.classification);

826: IF (p_validation_level >= fnd_api.g_valid_level_full) THEN
827: -- Debug message
828: amw_utility_pvt.debug_message ('Calling Validate_Control');
829: fnd_file.put_line (fnd_file.LOG,'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
830: fnd_file.put_line (fnd_file.LOG,'l_control_rec.control_classification: '||l_control_rec.classification);
831: -- Invoke validation procedures
832: validate_control (p_mode => 'UPDATE',
833: p_api_version_number => 1,
834: p_init_msg_list => fnd_api.g_false,