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 565: fnd_file.put_line (Which => FND_FILE.LOG,

561: SAVEPOINT start_process;
562:
563: current_seq_id := sub_entity_record.DELETE_ENTITY_SEQ_ID;
564: if(p_debug = 'Y')then
565: fnd_file.put_line (Which => FND_FILE.LOG,
566: buff => 'delete_entity_Seq_id = '|| to_char(current_seq_id));
567: end if;
568: curr_del_entity_type:= delete_type;
569: token_list.inventory_item_id := sub_entity_record.inventory_item_id;

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

811: WHERE SQL_STATEMENT_NAME = cur_rec.stmt_name;
812:
813: constraint_stmt := UPPER(constraint_stmt);
814: if(p_debug = 'Y')then
815: fnd_file.put_line (Which => FND_FILE.LOG,
816: buff => constraint_stmt);
817: end if;
818:
819: /*

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

831: return 2;
832: else
833:
834: if(p_debug = 'Y')then
835: fnd_file.put_line (Which => FND_FILE.LOG,
836: buff => constraint_stmt);
837: end if;
838: stmt_num := 7;
839: begin

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

853: cnt := 0;
854: dbms_sql.close_cursor(cursor_name);
855: when others then
856: if(p_debug = 'Y')then
857: fnd_file.put_line ( Which => FND_FILE.LOG,
858: buff => SUBSTRB(SQLERRM,1,500) );
859: end if;
860: DBMS_SQL.close_cursor(cursor_name);
861: end;

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

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

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

1014:
1015: BEGIN
1016: stmt_num := 1;
1017: if(p_debug = 'Y')then
1018: fnd_file.put_line (Which => FND_FILE.LOG,
1019: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1020: fnd_file.put_line (Which => FND_FILE.LOG,
1021: buff => 'organization_id:'||to_char(p_organization_id));
1022:

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

1016: stmt_num := 1;
1017: if(p_debug = 'Y')then
1018: fnd_file.put_line (Which => FND_FILE.LOG,
1019: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1020: fnd_file.put_line (Which => FND_FILE.LOG,
1021: buff => 'organization_id:'||to_char(p_organization_id));
1022:
1023: fnd_file.put_line (Which => FND_FILE.LOG,
1024: buff => 'delete_entity_type:'||to_char(p_delete_entity_type));

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

1019: buff => 'inventory_item_id:'||to_char(p_inventory_item_id));
1020: fnd_file.put_line (Which => FND_FILE.LOG,
1021: buff => 'organization_id:'||to_char(p_organization_id));
1022:
1023: fnd_file.put_line (Which => FND_FILE.LOG,
1024: buff => 'delete_entity_type:'||to_char(p_delete_entity_type));
1025: end if;
1026:
1027: select MSI.AUTO_CREATED_CONFIG_FLAG,

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

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

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

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

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

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

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

1336: RETURN 2;
1337: ELSE
1338: IF ( p_debug = 'Y' )
1339: THEN
1340: fnd_file.put_line ( Which => FND_FILE.LOG,
1341: buff => delete_stmt );
1342: END IF;
1343: END IF ;
1344:

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

1485: ||', PROGRAM_ID = ' || prog_id ||', PROGRAM_APPLICATION_ID =' || resp_appl_id
1486: ||', PROGRAM_UPDATE_DATE = sysdate ';
1487:
1488: if(p_debug = 'Y')then
1489: fnd_file.put_line (Which => FND_FILE.LOG,
1490: buff => update_stmt);
1491: end if;
1492: update_stmt := update_stmt ||' WHERE '||where_clause;
1493: stmt_num := 2;

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

1557: stmt_num := 5;
1558: insert_stmt := insert_stmt || ' INSERT INTO '||insert_table || '( ';
1559:
1560: IF (p_debug = 'Y') THEN
1561: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1562: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1563: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1564: END IF;
1565:

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

1558: insert_stmt := insert_stmt || ' INSERT INTO '||insert_table || '( ';
1559:
1560: IF (p_debug = 'Y') THEN
1561: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1562: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1563: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1564: END IF;
1565:
1566: for col_list in col_list_cursor(prod_table, l_schema, l_oracleUser) loop

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

1559:
1560: IF (p_debug = 'Y') THEN
1561: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Schema Name:' || l_schema));
1562: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Oracle User:' || l_oracleUser));
1563: fnd_file.put_line (Which => FND_FILE.LOG, buff => ('Prod Table:' || prod_table));
1564: END IF;
1565:
1566: for col_list in col_list_cursor(prod_table, l_schema, l_oracleUser) loop
1567: insert_stmt := insert_stmt || col_list.column_name || ' , ';

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

1582: insert_stmt := insert_stmt || ' FROM '|| prod_table || ' WHERE ' ||where_clause;
1583:
1584: stmt_num := 8;
1585: if(p_debug = 'Y')then
1586: fnd_file.put_line (Which => FND_FILE.LOG,
1587: buff => insert_stmt);
1588: end if;
1589: cursor_name := dbms_sql.open_cursor;
1590: DBMS_SQL.PARSE(cursor_name, insert_stmt,dbms_sql.native);

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

1717: Fnd_Message.set_token('EFFDATE', eff_date);
1718: err_text2 := Fnd_Message.get;
1719: end if;
1720: if err_text1 IS NOT NULL THEN
1721: fnd_file.put_line (Which => FND_FILE.LOG,
1722: buff => err_text1);
1723: else
1724:
1725: if err_text2 is not null then

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

1722: buff => err_text1);
1723: else
1724:
1725: if err_text2 is not null then
1726: fnd_file.put_line (Which => FND_FILE.LOG,
1727: buff => err_text2);
1728:
1729: end if;
1730: end if;