eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GL_CI_DATA_TRANSFER_PKG dependencies on GL_CI_REMOTE_INVOKE_PKG

Line 21: chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes

17: applSysSchema varchar2(30); --+bug#2630145, get applsys schema name
18: --+don't hardcoded the apps schema name
19: domainName varchar2(150); --+ bug fix for bug#2712006
20: --+ a place to keep COA attributes
21: chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes
22: remote_chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes
23: --+ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
24: --+ Debug/Diagnostic routine
25: --+ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Line 22: remote_chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes

18: --+don't hardcoded the apps schema name
19: domainName varchar2(150); --+ bug fix for bug#2712006
20: --+ a place to keep COA attributes
21: chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes
22: remote_chart gl_ci_remote_invoke_pkg.coa_table; --+ holds coa attributes
23: --+ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
24: --+ Debug/Diagnostic routine
25: --+ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
26: procedure debug_message (

Line 292: v_SQL := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_ID@' || l_temp_db

288: --can be called from many places.
289: l_temp_db := dblink || '.' || domainName;
290: Get_Schema_name(L_TEMP_DB); --+bug#2630145
291: --Use Native Dynamic SQL
292: v_SQL := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_ID@' || l_temp_db
293: || '(:user_id, :resp_id, :app_id, :id, :access_set, :code)' ||';'||' END;';
294: EXECUTE IMMEDIATE v_SQL USING OUT ledger_id, IN user_id,
295: IN resp_id, IN app_id, OUT access_set_id, OUT access_set, OUT access_code;
296: return ledger_id;

Line 315: v_SQL := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Budget_Version_ID@' || dblink

311: v_SQL varchar2(500);
312: begin
313: --Get_Schema_name(dblink); --+bug#2630145
314: --Use Native Dynamic SQL
315: v_SQL := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Budget_Version_ID@' || dblink
316: || '(:user_id, :resp_id, :app_id, :budget_name)' ||';'||' END;';
317: EXECUTE IMMEDIATE v_SQL USING OUT budget_version_id, IN user_id, IN resp_id, IN app_id, IN budget_name;
318: return budget_version_id;
319: end Get_Budget_Version_ID;

Line 380: v_SQL := 'BEGIN '||' :l_group_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Group_ID@' || dblink||';'||' END;';

376: --+procedure, make sure you get source data from gl_interface table
377: --+l_in_table_name := 'GL_INTERFACE';
378: l_request_id := request_id;
379: l_in_table_name := i_parallel_name || group_id;
380: v_SQL := 'BEGIN '||' :l_group_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Group_ID@' || dblink||';'||' END;';
381: EXECUTE IMMEDIATE v_SQL USING OUT l_group_id;
382: COMMIT;
383: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_GROUP_ID');
384: FND_MESSAGE.set_token('GROUP', l_group_id);

Line 390: v_BlockSQL := 'BEGIN '|| applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Create_Interface_Table@' || dblink||'(:l_group_id, :l_db_username);'||' END;';

386: v_SQL := 'select apps_username ' ||
387: 'from rg_database_links ' ||
388: 'where name = :pd';
389: EXECUTE IMMEDIATE v_SQL INTO l_db_username USING p_dblink;
390: v_BlockSQL := 'BEGIN '|| applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Create_Interface_Table@' || dblink||'(:l_group_id, :l_db_username);'||' END;';
391: EXECUTE IMMEDIATE v_BlockSQL USING IN l_group_id,l_db_username;
392: commit;
393: --+dbms_output.put_line('after table is created in the target ');
394: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_INTERFACE');

Line 444: '.GL_CI_REMOTE_INVOKE_PKG.Get_Target_Je_source_Name@' || dblink||

440: --+one in the source db.
441: --+get the je source name from the target db. Insert this name
442: --+into the gl_cons_interface table for the target.
443: v_BlockSQL := 'BEGIN '|| applSysSchema ||
444: '.GL_CI_REMOTE_INVOKE_PKG.Get_Target_Je_source_Name@' || dblink||
445: '(:l_adb, :l_source);'||' END;';
446: EXECUTE IMMEDIATE v_BlockSQL USING OUT l_r_adb_je_source, OUT l_r_je_source;
447: if l_count > 0 then
448: avg_flag := 'N';

Line 595: v_SQL := 'BEGIN ' || ':test := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Menu_Validation@' ||dblink ||

591: func_name varchar2(30);
592: BEGIN
593: l_count := 0;
594: dblink := p_dblink ||'.' || domainName;
595: v_SQL := 'BEGIN ' || ':test := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Menu_Validation@' ||dblink ||
596: '(:user_id, :resp_id, :app_id, :JI, :JP); ' || 'END;';
597: EXECUTE IMMEDIATE v_SQL USING OUT l_test, IN user_id, IN resp_id, IN app_id, IN p_j_import, IN p_j_post;
598: return l_test;
599: END Verify_Menu_Access;

Line 630: v_PDSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Period_Exists@' || dblink

626: l_access_set_name varchar2(30);
627: BEGIN
628: dblink := p_dblink ||'.' || domainName;
629: --input: target ledger id, period name
630: v_PDSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Period_Exists@' || dblink
631: || '(:ledger_id, :period_name)' ||';'||' END;';
632: EXECUTE IMMEDIATE v_PDSQL USING OUT l_count, IN p_r_ledger_id, p_pd_name;
633: if l_count = 1 then
634: v_PDSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Period_Info@' || dblink ||

Line 634: v_PDSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Period_Info@' || dblink ||

630: v_PDSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Period_Exists@' || dblink
631: || '(:ledger_id, :period_name)' ||';'||' END;';
632: EXECUTE IMMEDIATE v_PDSQL USING OUT l_count, IN p_r_ledger_id, p_pd_name;
633: if l_count = 1 then
634: v_PDSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Period_Info@' || dblink ||
635: '(:1, :2, :3, :4, :5, :6);' || ' END;';
636: EXECUTE IMMEDIATE v_PDSQL USING IN p_r_ledger_id, IN p_pd_name,
637: OUT l_r_start_date, OUT l_r_end_date, OUT l_r_quarter_date, OUT l_r_year_date;
638: v_PDSQL := 'select p.start_date, p.end_date, p.quarter_start_date, ' ||

Line 691: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Daily_Balance_Flag@' || dblink

687: v_ledgerSQL := 'select enable_average_balances_flag from gl_ledgers ' ||
688: 'where ledger_id = :ledger_id';
689: EXECUTE IMMEDIATE v_ledgerSQL INTO l_daily_bal USING l_ledger_id;
690: --+input: target ledger id
691: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Daily_Balance_Flag@' || dblink
692: || '(:ledger_id)' ||';'||' END;';
693: EXECUTE IMMEDIATE v_R_ledgerSQL USING OUT l_r_daily_bal, IN p_r_ledger_id;
694: --+dbms_output.put_line('what is the ledger id? ' || p_r_ledger_id);
695: if l_daily_bal <> l_r_daily_bal then

Line 702: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Cons_ledger_Flag@' || dblink

698: v_ledgerSQL := 'select consolidation_ledger_flag from gl_ledgers ' ||
699: 'where ledger_id = :ledger_id';
700: EXECUTE IMMEDIATE v_ledgerSQL INTO l_cons_ledger USING l_ledger_id;
701: --+dbms_output.put_line('what is the source cons flag? ' || l_cons_ledger);
702: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Cons_ledger_Flag@' || dblink
703: || '(:ledger_id)' ||';'||' END;';
704: EXECUTE IMMEDIATE v_R_ledgerSQL USING OUT l_r_cons_ledger, IN p_r_ledger_id;
705: --+dbms_output.put_line('what is the target cons flag? ' || l_r_cons_ledger);
706: if l_cons_ledger <> l_r_cons_ledger then

Line 713: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Currency_Code@' || dblink

709: v_ledgerSQL := 'SELECT CURRENCY_CODE FROM GL_ledgers ' ||
710: 'WHERE ledger_id = :ledger_id';
711: EXECUTE IMMEDIATE v_ledgerSQL INTO l_cur_code USING l_ledger_id;
712: --+dbms_output.put_line('what is source currency ' || l_cur_code);
713: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Currency_Code@' || dblink
714: || '(:ledger_id)' ||';'||' END;';
715: EXECUTE IMMEDIATE v_R_ledgerSQL USING OUT l_r_cur_code, IN p_r_ledger_id;
716: --+dbms_output.put_line('what is target currency ' || l_r_cur_code);
717: if l_cur_code <> l_r_cur_code then

Line 792: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_COA_Id@' || dblink

788: l_index := l_index + 1;
789: END LOOP;
790: CLOSE v_COACursor;
791: remote_chart.DELETE;
792: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_COA_Id@' || dblink
793: || '(:ledger_id)' ||';'||' END;';
794: EXECUTE IMMEDIATE v_R_ledgerSQL USING OUT l_r_coa_id, IN l_r_ledger_id;
795: --+get coa information from the fnd table in the target database
796: v_R_SQL := 'BEGIN '||applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.coa_info@' || dblink

Line 796: v_R_SQL := 'BEGIN '||applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.coa_info@' || dblink

792: v_R_ledgerSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_COA_Id@' || dblink
793: || '(:ledger_id)' ||';'||' END;';
794: EXECUTE IMMEDIATE v_R_ledgerSQL USING OUT l_r_coa_id, IN l_r_ledger_id;
795: --+get coa information from the fnd table in the target database
796: v_R_SQL := 'BEGIN '||applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.coa_info@' || dblink
797: || '(:coa_id, :cnt)' ||';'||' END;';
798: EXECUTE IMMEDIATE v_R_SQL USING IN l_r_coa_id, IN OUT l_r_index;
799: if l_index <> l_r_index then
800: result := 'COA Not matched';

Line 804: v_R_SQL := 'BEGIN '||applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Detail_coa_info@' || dblink

800: result := 'COA Not matched';
801: return result;
802: end if;
803: while p_count < l_index loop
804: v_R_SQL := 'BEGIN '||applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Detail_coa_info@' || dblink
805: || '(:coa_id, :cnt, :1, :2)' ||';'||' END;';
806: EXECUTE IMMEDIATE v_R_SQL USING IN l_r_coa_id, IN p_count, IN OUT l_r_column_name,
807: IN OUT l_r_display_size;
808: if chart(p_count).display_size <> l_r_display_size then

Line 873: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Validate_Resp@' ||l_temp_db ||

869: Get_Domain_Name(dblink);
870: l_temp_db := dblink || '.' || domainName;
871: Get_Schema_Name(l_temp_db); --bug#2630145
872: --make sure this responsibility exists in the target db
873: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Validate_Resp@' ||l_temp_db ||
874: '(:resp_name); ' || 'END;';
875: EXECUTE IMMEDIATE v_SQL1 USING OUT l_error_code, IN p_resp_name;
876: if l_error_code = 2 then
877: result := 'GL_US_CI_VALID_FAIL_RESP';

Line 886: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Login_Ids@' || l_temp_db ||

882: --make sure the same user exists in the target db
883: l_app_id := 101;
884: l_user_name := 'LEDGER';
885: -- l_user_name := fnd_global.USER_NAME; --bug#2543150, remove username from input
886: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Login_Ids@' || l_temp_db ||
887: '(:1, :2, :3, :4);' || ' END;';
888: EXECUTE IMMEDIATE v_SQL1 USING OUT l_error_code, IN l_user_name, IN p_resp_name, OUT l_user_id, OUT l_resp_id;
889: if l_error_code = 1 then
890: result := 'GL_US_CI_VALID_FAIL_USER';

Line 1102: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_User_ID@' || dblink

1098: EXECUTE IMMEDIATE 'ALTER SESSION SET SQL_TRACE TRUE';
1099: end if;
1100: l_user_name := fnd_global.USER_NAME; --bug#2543150, remove username
1101: --from Remote Option form
1102: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_User_ID@' || dblink
1103: || '(:user_name)' ||';'||' END;';
1104: EXECUTE IMMEDIATE v_SQL1 USING OUT l_user_id, IN l_user_name;
1105: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Resp_ID@' || dblink
1106: || '(:resp_name)' ||';'||' END;';

Line 1105: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Resp_ID@' || dblink

1101: --from Remote Option form
1102: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_User_ID@' || dblink
1103: || '(:user_name)' ||';'||' END;';
1104: EXECUTE IMMEDIATE v_SQL1 USING OUT l_user_id, IN l_user_name;
1105: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Resp_ID@' || dblink
1106: || '(:resp_name)' ||';'||' END;';
1107: EXECUTE IMMEDIATE v_SQL1 USING OUT l_resp_id, IN p_resp_name;
1108: if l_debug = 'Y' then
1109: debug_message('User ID is ' || l_user_id || ' and Responsibility ID is ' || l_resp_id,TRUE);

Line 1125: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_Name@' || dblink

1121: global_retcode := 1;
1122: raise GLOBAL_ERROR;
1123: end if;
1124: if l_to_ledger_id >= 0 then
1125: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_Name@' || dblink
1126: || '(:ledger_id)' ||';'||' END;';
1127: EXECUTE IMMEDIATE v_SQL1 USING OUT l_target_ledger_name, IN l_to_ledger_id;
1128: if l_debug = 'Y' then
1129: debug_message('Target ledger id is ' || l_to_ledger_id,TRUE);

Line 1141: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Suspense_Flag@' || dblink

1137: raise GLOBAL_ERROR;
1138: end if;
1139: end if;
1140: --+check if the suspense posting is allowed for this ledger on the target instance
1141: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Suspense_Flag@' || dblink
1142: || '(:ledger_id)' ||';'||' END;';
1143: EXECUTE IMMEDIATE v_SQL1 USING OUT l_suspense_flag, IN l_to_ledger_id;
1144: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_ENTER_CI');
1145: log_message('==>' || FND_MESSAGE.get, TRUE);

Line 1196: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||

1192: end if;
1193: IF (p_j_import = 'N') THEN
1194: --+populates the gl_interface_control table and gl_cons_interface_to_group_id table
1195: --+add an average flag to indicate whether this is a adb balances transfer or not
1196: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||
1197: '(:usr_id, :rsp_id, :ap_id, :sb_id, :gp_id, :pd_name, :flag, :avg);'||' END;';
1198: EXECUTE IMMEDIATE v_SQL USING OUT l_inter_run_id, IN l_user_id, IN l_resp_id, IN l_app_id, IN l_to_ledger_id,
1199: IN l_to_group_id, IN l_pd_name, IN p_actual_flag, IN l_avg_flag;
1200: commit;

Line 1217: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||

1213: debug_message('Populates the gl_interface_control table on Target database',TRUE);
1214: debug_message('Updates the gl_cons_interface_' || l_to_group_id || ' on target database',TRUE);
1215: end if;
1216: --+populates the gl_interface_control table and gl_cons_interface_to_group_id table
1217: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||
1218: '(:usr_id, :rsp_id, :ap_id, :sb_id, :gp_id, :pd_name, :flag, :avg);'||' END;';
1219: EXECUTE IMMEDIATE v_SQL USING OUT l_inter_run_id, IN l_user_id, IN l_resp_id, IN l_app_id, IN l_to_ledger_id,
1220: IN l_to_group_id, IN l_pd_name, IN p_actual_flag, IN l_avg_flag;
1221: commit;

Line 1227: v_SQL := 'BEGIN' || ' :r_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Import@' || dblink ||

1223: if l_debug = 'Y' then
1224: debug_message('Start Journal Import on Target database',TRUE);
1225: end if;
1226: --+Journal Import
1227: v_SQL := 'BEGIN' || ' :r_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Import@' || dblink ||
1228: '(:usr_id, :rsp_id, :ap_id, :run_id, :sb_id, :csj_flag);' || ' END;';
1229: EXECUTE IMMEDIATE v_SQL USING OUT l_reqJI_id, IN l_user_id, IN l_resp_id, IN l_app_id,
1230: IN l_inter_run_id, IN l_to_ledger_id, IN p_csj_flag;
1231: commit;

Line 1238: v_WaitSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||

1234: end if;
1235: --+dbms_output.put_line('import sql is ' || v_SQL);
1236: if (l_reqJI_id <> 0) then
1237: --+Wait for Journal Import completes
1238: v_WaitSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||
1239: '(:r_id, :result);' || ' END;';
1240: EXECUTE IMMEDIATE v_WaitSQL USING IN l_reqJI_id, OUT l_result;
1241: --COMMIT;
1242: if l_debug = 'Y' then

Line 1247: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Import@' || dblink ||

1243: debug_message('Section number is ' || section_number,TRUE);
1244: debug_message('Journal Import has completed, status is ' || l_result,TRUE);
1245: end if;
1246: if l_result = 'COMPLETE:PASS' then
1247: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Import@' || dblink ||
1248: '(:gp_id, :result);' || ' END;';
1249: EXECUTE IMMEDIATE v_SQL2 USING IN l_to_group_id, OUT l_verify;
1250: --commit;
1251: if l_debug = 'Y' then

Line 1273: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Postable_Rows@' || dblink ||

1269: FETCH v_ReturnCursor INTO v_Batches;
1270: EXIT WHEN v_ReturnCursor%NOTFOUND;
1271: l_batch_id := v_Batches.je_batch_id;
1272: l_status := 'U';
1273: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Postable_Rows@' || dblink ||
1274: '(:1, :2, :3, :4, :5, :6, :7);' || ' END;';
1275: --+dbms_output.put_line('Get postable rows sql is ' || v_SQL2);
1276: EXECUTE IMMEDIATE v_SQL2 USING IN l_to_ledger_id, IN l_pd_name,
1277: IN l_batch_id, IN l_status, IN p_actual_flag, IN l_avg_flag, OUT l_postable_rows;

Line 1283: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Post@' || dblink ||

1279: if l_debug = 'Y' then
1280: debug_message('After Journal Import, the number of postable rows is ' || l_postable_rows,TRUE);
1281: end if;
1282: --+dbms_output.put_line('Get postable rows is ' || l_postable_rows);
1283: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Post@' || dblink ||
1284: '(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12);' || ' END;';
1285: --+dbms_output.put_line('sql is ' || v_SQL2);
1286: EXECUTE IMMEDIATE v_SQL2 USING IN l_user_id, IN l_resp_id, IN l_app_id,
1287: IN l_to_ledger_id, IN l_pd_name, IN l_to_group_id, IN l_reqJI_id,

Line 1296: v_WaitSQL := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||

1292: debug_message('Journal Post has been submitted, the request ID is ' || l_reqPost_id,TRUE);
1293: end if;
1294: if (l_reqPost_id <> 0) then
1295: --+Wait for Journal Posting completes
1296: v_WaitSQL := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||
1297: ' (:r_id, :result);' || ' END;';
1298: EXECUTE IMMEDIATE v_WaitSQL USING IN l_reqPost_id, OUT l_result;
1299: --COMMIT;
1300: if l_debug = 'Y' then

Line 1305: v_SQL2 := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Post@' || dblink ||

1301: debug_message('Journal Post is complete. The status is ' || l_result,TRUE);
1302: end if;
1303: if l_result = 'COMPLETE:PASS' then
1304: --+dbms_output.put_line('Journal post complete');
1305: v_SQL2 := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Post@' || dblink ||
1306: '(:pd_name, :r, :ledger_id, :bid, :flag, :avg, :result);' || ' END;';
1307: EXECUTE IMMEDIATE v_SQL2 USING IN l_pd_name, IN l_postable_rows,
1308: IN l_to_ledger_id, IN l_batch_id, IN p_actual_flag, IN l_avg_flag, OUT l_verify;
1309: --COMMIT;