DBA Data[Home] [Help]

APPS.BOM_DELETE_GROUPS_API dependencies on FND_FILE

Line 327: fnd_file.put_line( which => fnd_file.output, buff => ERRBUF);

323: ELSE
324: RETCODE := '0';
325: Fnd_Message.Set_Name('INV','INV_STATUS_SUCCESS');
326: ERRBUF := Fnd_Message.Get;
327: fnd_file.put_line( which => fnd_file.output, buff => ERRBUF);
328: END IF; -- end if ( RETCODE = '1' )
329:
330: EXCEPTION
331: when CONC_FAILURE then

Line 333: fnd_file.put_line( which => fnd_file.output,

329:
330: EXCEPTION
331: when CONC_FAILURE then
332: ROLLBACK;
333: fnd_file.put_line( which => fnd_file.output,
334: buff => ERRBUF);
335: RETCODE := '2';
336: WHEN others THEN
337: ERRBUF := ERRBUF||'Bom_Delete_Groups_Api '||stmt_num||' '||substrb(SQLERRM,1,500);

Line 338: fnd_file.put_line( which => fnd_file.output,

334: buff => ERRBUF);
335: RETCODE := '2';
336: WHEN others THEN
337: ERRBUF := ERRBUF||'Bom_Delete_Groups_Api '||stmt_num||' '||substrb(SQLERRM,1,500);
338: fnd_file.put_line( which => fnd_file.output,
339: buff => ERRBUF);
340: RETCODE := '2';
341:
342: end;

Line 443: fnd_file.put_line (Which => FND_FILE.LOG,

439: SAVEPOINT start_process;
440:
441: current_seq_id := entity_record.delete_entity_seq_id;
442: if(p_debug = 'Y')then
443: fnd_file.put_line (Which => FND_FILE.LOG,
444: buff => 'delete_entity_Seq_id = '|| to_char(current_seq_id));
445: end if;
446: curr_del_entity_type:= entity_record.delete_entity_type;
447: token_list.inventory_item_id := entity_record.inventory_item_id;

Line 570: fnd_file.put_line (Which => FND_FILE.LOG,

566: SAVEPOINT start_process;
567:
568: current_seq_id := sub_entity_record.DELETE_ENTITY_SEQ_ID;
569: if(p_debug = 'Y')then
570: fnd_file.put_line (Which => FND_FILE.LOG,
571: buff => 'delete_entity_Seq_id = '|| to_char(current_seq_id));
572: end if;
573: curr_del_entity_type:= delete_type;
574: token_list.inventory_item_id := sub_entity_record.inventory_item_id;

Line 820: fnd_file.put_line (Which => FND_FILE.LOG,

816: WHERE SQL_STATEMENT_NAME = cur_rec.stmt_name;
817:
818: constraint_stmt := UPPER(constraint_stmt);
819: if(p_debug = 'Y')then
820: fnd_file.put_line (Which => FND_FILE.LOG,
821: buff => constraint_stmt);
822: end if;
823:
824: /*

Line 840: fnd_file.put_line (Which => FND_FILE.LOG,

836: return 2;
837: else
838:
839: if(p_debug = 'Y')then
840: fnd_file.put_line (Which => FND_FILE.LOG,
841: buff => constraint_stmt);
842: end if;
843: stmt_num := 7;
844: begin

Line 862: fnd_file.put_line ( Which => FND_FILE.LOG,

858: cnt := 0;
859: dbms_sql.close_cursor(cursor_name);
860: when others then
861: if(p_debug = 'Y')then
862: fnd_file.put_line ( Which => FND_FILE.LOG,
863: buff => SUBSTRB(SQLERRM,1,500) );
864: end if;
865: DBMS_SQL.close_cursor(cursor_name);
866: end;

Line 869: fnd_file.put_line (Which => FND_FILE.LOG,

865: DBMS_SQL.close_cursor(cursor_name);
866: end;
867:
868: if(p_debug = 'Y')then
869: fnd_file.put_line (Which => FND_FILE.LOG,
870: buff => ' No of Rows = '||to_char(cnt));
871: end if;
872: if (cnt =0 AND cur_rec.delete_on_success_flag = 1) OR
873: (cnt <> 0 and cur_rec.delete_on_success_flag =2) then

Line 1023: fnd_file.put_line (Which => FND_FILE.LOG,

1019:
1020: BEGIN
1021: stmt_num := 1;
1022: if(p_debug = 'Y')then
1023: fnd_file.put_line (Which => FND_FILE.LOG,
1024: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1025: fnd_file.put_line (Which => FND_FILE.LOG,
1026: buff => 'organization_id:'||to_char(p_organization_id));
1027:

Line 1025: fnd_file.put_line (Which => FND_FILE.LOG,

1021: stmt_num := 1;
1022: if(p_debug = 'Y')then
1023: fnd_file.put_line (Which => FND_FILE.LOG,
1024: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1025: fnd_file.put_line (Which => FND_FILE.LOG,
1026: buff => 'organization_id:'||to_char(p_organization_id));
1027:
1028: fnd_file.put_line (Which => FND_FILE.LOG,
1029: buff => 'delete_entity_type:'||to_char(p_delete_entity_type));

Line 1028: fnd_file.put_line (Which => FND_FILE.LOG,

1024: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1025: fnd_file.put_line (Which => FND_FILE.LOG,
1026: buff => 'organization_id:'||to_char(p_organization_id));
1027:
1028: fnd_file.put_line (Which => FND_FILE.LOG,
1029: buff => 'delete_entity_type:'||to_char(p_delete_entity_type));
1030: end if;
1031:
1032: select MSI.AUTO_CREATED_CONFIG_FLAG,

Line 1212: fnd_file.put_line (Which => FND_FILE.LOG,

1208:
1209: delete_stmt := upper(cur_rec.stmt);
1210:
1211: if(p_debug = 'Y')then
1212: fnd_file.put_line (Which => FND_FILE.LOG,
1213: buff => delete_stmt);
1214: end if;
1215: /*
1216: ** check to see if the first word in the statement is other than

Line 1231: fnd_file.put_line (Which => FND_FILE.LOG,

1227: if (substitute_tokens( token_list,delete_stmt,bind_list,err_text)<>0) THEN
1228: return 2;
1229: else
1230: if(p_debug = 'Y')then
1231: fnd_file.put_line (Which => FND_FILE.LOG,
1232: buff => delete_stmt);
1233: end if;
1234: if (cur_rec.archive_table_length > 0 AND archive_flag = 1) THEN
1235: stmt_num := 6;

Line 1327: FND_FILE.put_line ( Which => FND_FILE.LOG,

1323: delete_stmt := UPPER(cur_rec.stmt);
1324:
1325: IF ( p_debug = 'Y' )
1326: THEN
1327: FND_FILE.put_line ( Which => FND_FILE.LOG,
1328: buff => delete_stmt);
1329: END IF;
1330:
1331: /* check to see if the first word in the statement is UPDATE. */

Line 1345: fnd_file.put_line ( Which => FND_FILE.LOG,

1341: RETURN 2;
1342: ELSE
1343: IF ( p_debug = 'Y' )
1344: THEN
1345: fnd_file.put_line ( Which => FND_FILE.LOG,
1346: buff => delete_stmt );
1347: END IF;
1348: END IF ;
1349:

Line 1532: fnd_file.put_line (Which => FND_FILE.LOG,

1528: ||', PROGRAM_ID = ' || prog_id ||', PROGRAM_APPLICATION_ID =' || resp_appl_id
1529: ||', PROGRAM_UPDATE_DATE = sysdate ';
1530:
1531: if(p_debug = 'Y')then
1532: fnd_file.put_line (Which => FND_FILE.LOG,
1533: buff => update_stmt);
1534: end if;
1535: update_stmt := update_stmt ||' WHERE '||where_clause;
1536: stmt_num := 2;

Line 1604: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));

1600: stmt_num := 5;
1601: insert_stmt := insert_stmt || ' INSERT INTO '||insert_table || '( ';
1602:
1603: IF (p_debug = 'Y') THEN
1604: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1605: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1606: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1607: END IF;
1608:

Line 1605: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));

1601: insert_stmt := insert_stmt || ' INSERT INTO '||insert_table || '( ';
1602:
1603: IF (p_debug = 'Y') THEN
1604: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1605: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1606: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1607: END IF;
1608:
1609: for col_list in col_list_cursor(prod_table, l_schema, l_oracleUser) loop

Line 1606: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));

1602:
1603: IF (p_debug = 'Y') THEN
1604: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1605: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1606: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1607: END IF;
1608:
1609: for col_list in col_list_cursor(prod_table, l_schema, l_oracleUser) loop
1610: insert_stmt := insert_stmt || col_list.column_name || ' , ';

Line 1629: fnd_file.put_line (Which => FND_FILE.LOG,

1625: insert_stmt := insert_stmt || ' FROM '|| prod_table || ' WHERE ' ||where_clause;
1626:
1627: stmt_num := 8;
1628: if(p_debug = 'Y')then
1629: fnd_file.put_line (Which => FND_FILE.LOG,
1630: buff => insert_stmt);
1631: end if;
1632: cursor_name := dbms_sql.open_cursor;
1633: DBMS_SQL.PARSE(cursor_name, insert_stmt,dbms_sql.native);

Line 1764: fnd_file.put_line (Which => FND_FILE.LOG,

1760: Fnd_Message.set_token('EFFDATE', eff_date);
1761: err_text2 := Fnd_Message.get;
1762: end if;
1763: if err_text1 IS NOT NULL THEN
1764: fnd_file.put_line (Which => FND_FILE.LOG,
1765: buff => err_text1);
1766: else
1767:
1768: if err_text2 is not null then

Line 1769: fnd_file.put_line (Which => FND_FILE.LOG,

1765: buff => err_text1);
1766: else
1767:
1768: if err_text2 is not null then
1769: fnd_file.put_line (Which => FND_FILE.LOG,
1770: buff => err_text2);
1771:
1772: end if;
1773: end if;