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 294: v_SQL := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_ID@' || l_temp_db

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

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

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

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

382: --l_temp_db := dblink || '.' || domainName;
383: initialize_over_dblink(user_id, resp_id, app_id, dblink);
384: l_request_id := request_id;
385: l_in_table_name := i_parallel_name || group_id;
386: v_SQL := 'BEGIN '||' :l_group_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Group_ID@' || dblink||';'||' END;';
387: EXECUTE IMMEDIATE v_SQL USING OUT l_group_id;
388: COMMIT;
389: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_GROUP_ID');
390: FND_MESSAGE.set_token('GROUP', l_group_id);

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

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

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

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

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

597: func_name varchar2(30);
598: BEGIN
599: l_count := 0;
600: dblink := p_dblink ||'.' || domainName;
601: v_SQL := 'BEGIN ' || ':test := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Menu_Validation@' ||dblink ||
602: '(:user_id, :resp_id, :app_id, :JI, :JP); ' || 'END;';
603: 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;
604: return l_test;
605: END Verify_Menu_Access;

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

632: l_access_set_name varchar2(30);
633: BEGIN
634: dblink := p_dblink ||'.' || domainName;
635: --input: target ledger id, period name
636: v_PDSQL := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Period_Exists@' || dblink
637: || '(:ledger_id, :period_name)' ||';'||' END;';
638: EXECUTE IMMEDIATE v_PDSQL USING OUT l_count, IN p_r_ledger_id, p_pd_name;
639: if l_count = 1 then
640: v_PDSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Period_Info@' || dblink ||

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

880: l_temp_db := dblink || '.' || domainName;
881:
882: Get_Schema_Name(l_temp_db); --bug#2630145
883: --make sure this responsibility exists in the target db
884: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Validate_Resp@' ||l_temp_db ||
885: '(:resp_name); ' || 'END;';
886: EXECUTE IMMEDIATE v_SQL1 USING OUT l_error_code, IN p_resp_name;
887: if l_error_code = 2 then
888: result := 'GL_US_CI_VALID_FAIL_RESP';

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

893: --make sure the same user exists in the target db
894: l_app_id := 101;
895: --l_user_name := 'LEDGER';
896: l_user_name := fnd_global.USER_NAME; --bug#2543150, remove username from input
897: v_SQL1 := 'BEGIN ' || ':num := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Login_Ids@' || l_temp_db ||
898: '(:1, :2, :3, :4);' || ' END;';
899: 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;
900:
901: initialize_over_dblink(l_user_id, l_resp_id, l_app_id,l_temp_db);

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

1136:
1137:
1138: l_user_name := fnd_global.USER_NAME; --bug#2543150, remove username
1139: --from Remote Option form
1140: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_User_ID@' || dblink
1141: || '(:user_name)' ||';'||' END;';
1142: EXECUTE IMMEDIATE v_SQL1 USING OUT l_user_id, IN l_user_name;
1143: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Resp_ID@' || dblink
1144: || '(:resp_name)' ||';'||' END;';

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

1139: --from Remote Option form
1140: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_User_ID@' || dblink
1141: || '(:user_name)' ||';'||' END;';
1142: EXECUTE IMMEDIATE v_SQL1 USING OUT l_user_id, IN l_user_name;
1143: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Resp_ID@' || dblink
1144: || '(:resp_name)' ||';'||' END;';
1145: EXECUTE IMMEDIATE v_SQL1 USING OUT l_resp_id, IN p_resp_name;
1146: if l_debug = 'Y' then
1147: debug_message('User ID is ' || l_user_id || ' and Responsibility ID is ' || l_resp_id,TRUE);

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

1160: global_retcode := 1;
1161: raise GLOBAL_ERROR;
1162: end if;
1163: if l_to_ledger_id >= 0 then
1164: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Get_Ledger_Name@' || dblink
1165: || '(:ledger_id)' ||';'||' END;';
1166: EXECUTE IMMEDIATE v_SQL1 USING OUT l_target_ledger_name, IN l_to_ledger_id;
1167: if l_debug = 'Y' then
1168: debug_message('Target ledger id is ' || l_to_ledger_id,TRUE);

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

1176: raise GLOBAL_ERROR;
1177: end if;
1178: end if;
1179: --+check if the suspense posting is allowed for this ledger on the target instance
1180: v_SQL1 := 'BEGIN '||' :a := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Suspense_Flag@' || dblink
1181: || '(:ledger_id)' ||';'||' END;';
1182: EXECUTE IMMEDIATE v_SQL1 USING OUT l_suspense_flag, IN l_to_ledger_id;
1183: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_ENTER_CI');
1184: log_message('==>' || FND_MESSAGE.get, TRUE);

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

1231: end if;
1232: IF (p_j_import = 'N') THEN
1233: --+populates the gl_interface_control table and gl_cons_interface_to_group_id table
1234: --+add an average flag to indicate whether this is a adb balances transfer or not
1235: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||
1236: '(:usr_id, :rsp_id, :ap_id, :sb_id, :gp_id, :pd_name, :flag, :avg);'||' END;';
1237: 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,
1238: IN l_to_group_id, IN l_pd_name, IN p_actual_flag, IN l_avg_flag;
1239: commit;

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

1252: debug_message('Populates the gl_interface_control table on Target database',TRUE);
1253: debug_message('Updates the gl_cons_interface_' || l_to_group_id || ' on target database',TRUE);
1254: end if;
1255: --+populates the gl_interface_control table and gl_cons_interface_to_group_id table
1256: v_SQL := 'BEGIN '||' :l_id := ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Apps_Initialize@' || dblink ||
1257: '(:usr_id, :rsp_id, :ap_id, :sb_id, :gp_id, :pd_name, :flag, :avg);'||' END;';
1258: 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,
1259: IN l_to_group_id, IN l_pd_name, IN p_actual_flag, IN l_avg_flag;
1260: commit;

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

1262: if l_debug = 'Y' then
1263: debug_message('Start Journal Import on Target database',TRUE);
1264: end if;
1265: --+Journal Import
1266: v_SQL := 'BEGIN' || ' :r_id := ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Import@' || dblink ||
1267: '(:usr_id, :rsp_id, :ap_id, :run_id, :sb_id, :csj_flag);' || ' END;';
1268: EXECUTE IMMEDIATE v_SQL USING OUT l_reqJI_id, IN l_user_id, IN l_resp_id, IN l_app_id,
1269: IN l_inter_run_id, IN l_to_ledger_id, IN p_csj_flag;
1270: commit;

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

1273: end if;
1274: --+dbms_output.put_line('import sql is ' || v_SQL);
1275: if (l_reqJI_id <> 0) then
1276: --+Wait for Journal Import completes
1277: v_WaitSQL := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||
1278: '(:r_id, :result);' || ' END;';
1279: EXECUTE IMMEDIATE v_WaitSQL USING IN l_reqJI_id, OUT l_result;
1280: --COMMIT;
1281: if l_debug = 'Y' then

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

1282: debug_message('Section number is ' || section_number,TRUE);
1283: debug_message('Journal Import has completed, status is ' || l_result,TRUE);
1284: end if;
1285: if l_result = 'COMPLETE:PASS' then
1286: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Import@' || dblink ||
1287: '(:gp_id, :result);' || ' END;';
1288: EXECUTE IMMEDIATE v_SQL2 USING IN l_to_group_id, OUT l_verify;
1289: --commit;
1290: if l_debug = 'Y' then

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

1308: FETCH v_ReturnCursor INTO v_Batches;
1309: EXIT WHEN v_ReturnCursor%NOTFOUND;
1310: l_batch_id := v_Batches.je_batch_id;
1311: l_status := 'U';
1312: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Get_Postable_Rows@' || dblink ||
1313: '(:1, :2, :3, :4, :5, :6, :7);' || ' END;';
1314: --+dbms_output.put_line('Get postable rows sql is ' || v_SQL2);
1315: EXECUTE IMMEDIATE v_SQL2 USING IN l_to_ledger_id, IN l_pd_name,
1316: IN l_batch_id, IN l_status, IN p_actual_flag, IN l_avg_flag, OUT l_postable_rows;

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

1318: if l_debug = 'Y' then
1319: debug_message('After Journal Import, the number of postable rows is ' || l_postable_rows,TRUE);
1320: end if;
1321: --+dbms_output.put_line('Get postable rows is ' || l_postable_rows);
1322: v_SQL2 := 'BEGIN ' || applSysSchema || '.GL_CI_REMOTE_INVOKE_PKG.Run_Journal_Post@' || dblink ||
1323: '(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12);' || ' END;';
1324: --+dbms_output.put_line('sql is ' || v_SQL2);
1325: EXECUTE IMMEDIATE v_SQL2 USING IN l_user_id, IN l_resp_id, IN l_app_id,
1326: IN l_to_ledger_id, IN l_pd_name, IN l_to_group_id, IN l_reqJI_id,

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

1331: debug_message('Journal Post has been submitted, the request ID is ' || l_reqPost_id,TRUE);
1332: end if;
1333: if (l_reqPost_id <> 0) then
1334: --+Wait for Journal Posting completes
1335: v_WaitSQL := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.wait_for_request@' || dblink ||
1336: ' (:r_id, :result);' || ' END;';
1337: EXECUTE IMMEDIATE v_WaitSQL USING IN l_reqPost_id, OUT l_result;
1338: --COMMIT;
1339: if l_debug = 'Y' then

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

1340: debug_message('Journal Post is complete. The status is ' || l_result,TRUE);
1341: end if;
1342: if l_result = 'COMPLETE:PASS' then
1343: --+dbms_output.put_line('Journal post complete');
1344: v_SQL2 := 'BEGIN ' || applSysSchema ||'.GL_CI_REMOTE_INVOKE_PKG.Verify_Journal_Post@' || dblink ||
1345: '(:pd_name, :r, :ledger_id, :bid, :flag, :avg, :result);' || ' END;';
1346: EXECUTE IMMEDIATE v_SQL2 USING IN l_pd_name, IN l_postable_rows,
1347: IN l_to_ledger_id, IN l_batch_id, IN p_actual_flag, IN l_avg_flag, OUT l_verify;
1348: --COMMIT;