DBA Data[Home] [Help]

APPS.OKC_REP_CONTRACT_IMP_PVT dependencies on FND_FILE

Line 770: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));

766: okc_debug.log('200: Org row not found', 2);
767: END IF;
768: FND_MESSAGE.SET_NAME(G_APP_NAME, 'OKC_REP_IMP_INV_ORG');
769: FND_MSG_PUB.add;
770: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));
771: retcode := 2;
772: return;
773: END IF;
774: END IF;

Line 789: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));

785: okc_debug.log('300: Contract Type not found', 2);
786: END IF;
787: FND_MESSAGE.SET_NAME(G_APP_NAME, 'OKC_REP_INV_CONTRACT_TYPE');
788: FND_MSG_PUB.add;
789: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));
790: retcode := 2;
791: return;
792: END IF;
793: END IF;

Line 841: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));

837: okc_debug.log('600: No Rows found to import');
838: END IF;
839: FND_MESSAGE.SET_NAME(G_APP_NAME, 'OKC_REP_IMP_NO_VALID_ROWS');
840: FND_MSG_PUB.add;
841: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(1, p_encoded =>FND_API.G_FALSE ));
842: retcode := 1;
843: return;
844: END IF;
845:

Line 936: FND_FILE.PUT_LINE(FND_FILE.LOG,sqlerrm);

932: l_return_status := G_RET_STS_UNEXP_ERROR ;
933: IF c_org_info_csr%ISOPEN Then
934: close c_org_info_csr;
935: END IF;
936: FND_FILE.PUT_LINE(FND_FILE.LOG,sqlerrm);
937: errbuf := substr(sqlerrm,1,200);
938: retcode := 2;
939:
940: END validate_and_insert_con_cp;

Line 2963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entered OKC_REP_CONTRACT_IMP_PVT.' || l_api_name);

2959:
2960: BEGIN
2961: l_api_name := 'migrate_contract_relations';
2962:
2963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entered OKC_REP_CONTRACT_IMP_PVT.' || l_api_name);
2964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_purge_and_rerun: ' || p_purge_and_rerun);
2965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_simulate: ' || p_simulate);
2966:
2967: g_conc_request_id := FND_GLOBAL.conc_request_id;

Line 2964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_purge_and_rerun: ' || p_purge_and_rerun);

2960: BEGIN
2961: l_api_name := 'migrate_contract_relations';
2962:
2963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entered OKC_REP_CONTRACT_IMP_PVT.' || l_api_name);
2964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_purge_and_rerun: ' || p_purge_and_rerun);
2965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_simulate: ' || p_simulate);
2966:
2967: g_conc_request_id := FND_GLOBAL.conc_request_id;
2968: g_conc_program_id := FND_GLOBAL.conc_program_id;

Line 2965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_simulate: ' || p_simulate);

2961: l_api_name := 'migrate_contract_relations';
2962:
2963: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Entered OKC_REP_CONTRACT_IMP_PVT.' || l_api_name);
2964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_purge_and_rerun: ' || p_purge_and_rerun);
2965: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input parameter p_simulate: ' || p_simulate);
2966:
2967: g_conc_request_id := FND_GLOBAL.conc_request_id;
2968: g_conc_program_id := FND_GLOBAL.conc_program_id;
2969: g_conc_login_id := FND_GLOBAL.conc_login_id;

Line 2972: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_request_id:' || g_conc_request_id);

2968: g_conc_program_id := FND_GLOBAL.conc_program_id;
2969: g_conc_login_id := FND_GLOBAL.conc_login_id;
2970: g_prog_appl_id := FND_GLOBAL.prog_appl_id;
2971:
2972: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_request_id:' || g_conc_request_id);
2973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_program_id:' || g_conc_program_id);
2974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_login_id:' || g_conc_login_id);
2975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_prog_appl_id:' || g_prog_appl_id);
2976:

Line 2973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_program_id:' || g_conc_program_id);

2969: g_conc_login_id := FND_GLOBAL.conc_login_id;
2970: g_prog_appl_id := FND_GLOBAL.prog_appl_id;
2971:
2972: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_request_id:' || g_conc_request_id);
2973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_program_id:' || g_conc_program_id);
2974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_login_id:' || g_conc_login_id);
2975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_prog_appl_id:' || g_prog_appl_id);
2976:
2977: BEGIN

Line 2974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_login_id:' || g_conc_login_id);

2970: g_prog_appl_id := FND_GLOBAL.prog_appl_id;
2971:
2972: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_request_id:' || g_conc_request_id);
2973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_program_id:' || g_conc_program_id);
2974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_login_id:' || g_conc_login_id);
2975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_prog_appl_id:' || g_prog_appl_id);
2976:
2977: BEGIN
2978: SELECT count(1) INTO l_source_rels

Line 2975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_prog_appl_id:' || g_prog_appl_id);

2971:
2972: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_request_id:' || g_conc_request_id);
2973: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_program_id:' || g_conc_program_id);
2974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_conc_login_id:' || g_conc_login_id);
2975: FND_FILE.PUT_LINE(FND_FILE.LOG, 'g_prog_appl_id:' || g_prog_appl_id);
2976:
2977: BEGIN
2978: SELECT count(1) INTO l_source_rels
2979: FROM okc_rep_contract_rels;

Line 2990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occured: ' || sqlerrm);

2986: FROM okc_rep_contract_usages usages
2987: WHERE source_code = 'MIGRATION';
2988: EXCEPTION
2989: WHEN OTHERS THEN
2990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occured: ' || sqlerrm);
2991: END;
2992:
2993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows in okc_rep_contract_rels table: ' || l_source_rels);
2994: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected no. of rows to be migrated: ' || l_source_rows);

Line 2993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows in okc_rep_contract_rels table: ' || l_source_rels);

2989: WHEN OTHERS THEN
2990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occured: ' || sqlerrm);
2991: END;
2992:
2993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows in okc_rep_contract_rels table: ' || l_source_rels);
2994: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected no. of rows to be migrated: ' || l_source_rows);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Rows which are already migrated (rows with source_code as MIGRATION): ' || l_already_migrated);
2996:
2997: IF nvl(p_purge_and_rerun, 'No') = 'Yes' THEN

Line 2994: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected no. of rows to be migrated: ' || l_source_rows);

2990: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error occured: ' || sqlerrm);
2991: END;
2992:
2993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows in okc_rep_contract_rels table: ' || l_source_rels);
2994: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected no. of rows to be migrated: ' || l_source_rows);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Rows which are already migrated (rows with source_code as MIGRATION): ' || l_already_migrated);
2996:
2997: IF nvl(p_purge_and_rerun, 'No') = 'Yes' THEN
2998: DELETE FROM okc_rep_contract_usages

Line 2995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Rows which are already migrated (rows with source_code as MIGRATION): ' || l_already_migrated);

2991: END;
2992:
2993: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows in okc_rep_contract_rels table: ' || l_source_rels);
2994: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected no. of rows to be migrated: ' || l_source_rows);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Rows which are already migrated (rows with source_code as MIGRATION): ' || l_already_migrated);
2996:
2997: IF nvl(p_purge_and_rerun, 'No') = 'Yes' THEN
2998: DELETE FROM okc_rep_contract_usages
2999: WHERE source_code = 'MIGRATION';

Line 3002: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows purged in okc_rep_contract_usages table: ' || sql%rowcount);

2998: DELETE FROM okc_rep_contract_usages
2999: WHERE source_code = 'MIGRATION';
3000:
3001: IF SQL%FOUND THEN
3002: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows purged in okc_rep_contract_usages table: ' || sql%rowcount);
3003: END IF;
3004: END IF;
3005:
3006: OPEN c_migrate_rels;

Line 3012: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Fetched ' || l_src_contract_ids.count || 'rows.');

3008: FETCH c_migrate_rels BULK COLLECT INTO l_src_contract_ids, l_src_contract_types, l_src_contract_ver_nums, l_tgt_contract_ids, l_tgt_contract_types, l_tgt_contract_ver_nums,
3009: l_tgt_contract_nums, l_relationship_ids, l_object_ver_nums, l_created_bys, l_creation_dates, l_last_updated_bys, l_last_update_dates, l_last_update_logins LIMIT 10000;
3010: EXIT WHEN l_src_contract_ids.count = 0;
3011:
3012: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Fetched ' || l_src_contract_ids.count || 'rows.');
3013:
3014: BEGIN
3015: FORALL i IN 1 .. l_src_contract_ids.count SAVE EXCEPTIONS
3016: INSERT INTO okc_rep_contract_usages

Line 3065: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows failed to migrate out of fetched rows: ' || sql%BULK_EXCEPTIONS.COUNT);

3061: RETURNING sequence_id BULK COLLECT INTO l_seq_nums;
3062:
3063: EXCEPTION
3064: WHEN bulk_errors THEN
3065: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows failed to migrate out of fetched rows: ' || sql%BULK_EXCEPTIONS.COUNT);
3066:
3067: FOR indx IN 1 .. sql%BULK_EXCEPTIONS.COUNT
3068: LOOP
3069: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Failed Row: Contract_id:' || l_src_contract_ids(sql%BULK_EXCEPTIONS(indx).ERROR_INDEX) ||

Line 3069: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Failed Row: Contract_id:' || l_src_contract_ids(sql%BULK_EXCEPTIONS(indx).ERROR_INDEX) ||

3065: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows failed to migrate out of fetched rows: ' || sql%BULK_EXCEPTIONS.COUNT);
3066:
3067: FOR indx IN 1 .. sql%BULK_EXCEPTIONS.COUNT
3068: LOOP
3069: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Failed Row: Contract_id:' || l_src_contract_ids(sql%BULK_EXCEPTIONS(indx).ERROR_INDEX) ||
3070: ' Related_contract_id:' || l_tgt_contract_ids(sql%BULK_EXCEPTIONS(indx).ERROR_INDEX) ||
3071: ' Relationship_ID: ' || l_relationship_ids(sql%BULK_EXCEPTIONS(indx).ERROR_INDEX) ||
3072: ' Error:' || SQLERRM(-sql%BULK_EXCEPTIONS(indx).ERROR_CODE));
3073: END LOOP;

Line 3076: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows migrated successfully out of fetched rows: ' || l_seq_nums.count);

3072: ' Error:' || SQLERRM(-sql%BULK_EXCEPTIONS(indx).ERROR_CODE));
3073: END LOOP;
3074: END;
3075:
3076: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No. of rows migrated successfully out of fetched rows: ' || l_seq_nums.count);
3077: l_total_rows := l_total_rows + l_seq_nums.count;
3078:
3079: END LOOP;
3080: CLOSE c_migrate_rels;

Line 3082: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total No. of rows migrated successfully: ' || l_total_rows);

3078:
3079: END LOOP;
3080: CLOSE c_migrate_rels;
3081:
3082: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total No. of rows migrated successfully: ' || l_total_rows);
3083:
3084: IF nvl(p_simulate, 'Yes') = 'No' THEN
3085: --After migration commiting the data, if simulate is 'No'
3086: COMMIT;

Line 3087: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Done with the migrating data from okc_rep_conract_rels to okc_rep_contract_usages. COMMITTED MIGRATED DATA');

3083:
3084: IF nvl(p_simulate, 'Yes') = 'No' THEN
3085: --After migration commiting the data, if simulate is 'No'
3086: COMMIT;
3087: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Done with the migrating data from okc_rep_conract_rels to okc_rep_contract_usages. COMMITTED MIGRATED DATA');
3088: END IF;
3089:
3090: IF nvl(p_simulate, 'Yes') = 'Yes' THEN -- if simulate = 'Yes', then there is not need to commit data.
3091: ROLLBACK;

Line 3092: FND_FILE.PUT_LINE(FND_FILE.LOG, 'This program is run in simulate mode, so the MIGRATED DATA WILL NOT BE COMMITTED.');

3088: END IF;
3089:
3090: IF nvl(p_simulate, 'Yes') = 'Yes' THEN -- if simulate = 'Yes', then there is not need to commit data.
3091: ROLLBACK;
3092: FND_FILE.PUT_LINE(FND_FILE.LOG, 'This program is run in simulate mode, so the MIGRATED DATA WILL NOT BE COMMITTED.');
3093: END IF;
3094:
3095: retcode := G_RETURN_CODE_SUCCESS;
3096: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving OKC_REP_CONTRACT_IMP_PVT.'||l_api_name);

Line 3096: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving OKC_REP_CONTRACT_IMP_PVT.'||l_api_name);

3092: FND_FILE.PUT_LINE(FND_FILE.LOG, 'This program is run in simulate mode, so the MIGRATED DATA WILL NOT BE COMMITTED.');
3093: END IF;
3094:
3095: retcode := G_RETURN_CODE_SUCCESS;
3096: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving OKC_REP_CONTRACT_IMP_PVT.'||l_api_name);
3097:
3098: EXCEPTION
3099: WHEN OTHERS THEN
3100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving migrate_contract_relations because of EXCEPTION: ' || sqlerrm);

Line 3100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving migrate_contract_relations because of EXCEPTION: ' || sqlerrm);

3096: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving OKC_REP_CONTRACT_IMP_PVT.'||l_api_name);
3097:
3098: EXCEPTION
3099: WHEN OTHERS THEN
3100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Leaving migrate_contract_relations because of EXCEPTION: ' || sqlerrm);
3101: retcode := G_RETURN_CODE_ERROR;
3102: errbuf := substr(SQLERRM, 1, 200);
3103:
3104: END migrate_contract_relations;