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.GMS_PA_COSTING_PKG dependencies on GMS_ERROR_PKG

Line 170: gms_error_pkg.gms_debug (g_error_stage,'C');

166:
167: Set_Debug_Context;
168:
169: IF g_debug_context = 'Y' THEN
170: gms_error_pkg.gms_debug (g_error_stage,'C');
171: gms_error_pkg.gms_debug ('Debug profile set to : ' || g_debug_context,'C');
172: END IF;
173:
174: g_error_stage := 'Checking if there are any CDLs to be processed';

Line 171: gms_error_pkg.gms_debug ('Debug profile set to : ' || g_debug_context,'C');

167: Set_Debug_Context;
168:
169: IF g_debug_context = 'Y' THEN
170: gms_error_pkg.gms_debug (g_error_stage,'C');
171: gms_error_pkg.gms_debug ('Debug profile set to : ' || g_debug_context,'C');
172: END IF;
173:
174: g_error_stage := 'Checking if there are any CDLs to be processed';
175:

Line 178: gms_error_pkg.gms_debug ('Did not find any CDLs to be processed. Exit','C');

174: g_error_stage := 'Checking if there are any CDLs to be processed';
175:
176: if More_CDLs_to_Process = 'N' then
177: IF g_debug_context = 'Y' THEN
178: gms_error_pkg.gms_debug ('Did not find any CDLs to be processed. Exit','C');
179: END IF;
180: p_return_status := 0;
181: return;
182: end if;

Line 188: gms_error_pkg.gms_debug (g_error_stage ,'C');

184: -- Expenditure items need to be processed. Get packetid and set of books info.
185: g_error_stage := 'Execute INIT. Get set of books id and packet id';
186:
187: IF g_debug_context = 'Y' THEN
188: gms_error_pkg.gms_debug (g_error_stage ,'C');
189: END IF;
190:
191: INIT;
192:

Line 194: gms_error_pkg.gms_debug ('Set of Books : '|| g_set_of_books_id ||

190:
191: INIT;
192:
193: IF g_debug_context = 'Y' THEN
194: gms_error_pkg.gms_debug ('Set of Books : '|| g_set_of_books_id ||
195: 'Packet ID : ' || g_packet_id ,'C');
196: END IF;
197:
198: g_process := 'Costing';

Line 210: gms_error_pkg.gms_debug ('Execute Funds Check returned: ' || l_fck_return_code, 'C');

206:
207: if l_fck_return_code < 0 then
208:
209: IF g_debug_context = 'Y' THEN
210: gms_error_pkg.gms_debug ('Execute Funds Check returned: ' || l_fck_return_code, 'C');
211: gms_error_pkg.gms_debug ('Error Stage : ' || l_fck_error_stage,'C');
212: END IF;
213: end if;
214:

Line 211: gms_error_pkg.gms_debug ('Error Stage : ' || l_fck_error_stage,'C');

207: if l_fck_return_code < 0 then
208:
209: IF g_debug_context = 'Y' THEN
210: gms_error_pkg.gms_debug ('Execute Funds Check returned: ' || l_fck_return_code, 'C');
211: gms_error_pkg.gms_debug ('Error Stage : ' || l_fck_error_stage,'C');
212: END IF;
213: end if;
214:
215: -- Mark failure result code in cost_dist_rejection_code for expenditure items that failed

Line 228: gms_error_pkg.gms_debug ('In when others of FundsCheck_CDL. Stage :' || g_error_stage , 'C');

224: exception
225: when others then
226:
227: IF g_debug_context = 'Y' THEN
228: gms_error_pkg.gms_debug ('In when others of FundsCheck_CDL. Stage :' || g_error_stage , 'C');
229: END IF;
230:
231: p_return_status := -1;
232: return;

Line 248: gms_error_pkg.set_debug_context;

244: begin
245: if (NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N') = 'Y' or
246: NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N') = 'Y') then
247: g_debug_context := 'Y';
248: gms_error_pkg.set_debug_context;
249: end if;
250: end Set_Debug_Context;
251:
252: -------------------------------------------------------------------------------

Line 396: gms_error_pkg.gms_debug ('Did not find any CDLs to be processed','C');

392:
393: if t_document_header_id.count = 0 then
394:
395: IF g_debug_context = 'Y' THEN
396: gms_error_pkg.gms_debug ('Did not find any CDLs to be processed','C');
397: END IF;
398:
399: return 'N';
400: else

Line 402: gms_error_pkg.gms_debug ('Found CDLs to be processed','C');

398:
399: return 'N';
400: else
401: IF g_debug_context = 'Y' THEN
402: gms_error_pkg.gms_debug ('Found CDLs to be processed','C');
403: END IF;
404:
405: return 'Y';
406: end if;

Line 716: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

712: BEGIN
713:
714: g_error_stage := 'GET_BUD_TASK_DETAILS: Checking for current baselined budget';
715: IF g_debug_context = 'Y' THEN
716: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
717: END IF;
718:
719: -- REL12 : AP lines uptake enhancement :
720: -- Code introduced to fetch budget_version_id and bud_task_id only if

Line 740: gms_error_pkg.gms_debug ('No current baselined budget found. Fail the current packet.','C');

736: exception
737: when no_data_found then
738:
739: IF g_debug_context = 'Y' THEN
740: gms_error_pkg.gms_debug ('No current baselined budget found. Fail the current packet.','C');
741: gms_error_pkg.gms_debug ('Award: ' || p_award_id || ' Project: ' || p_project_id, 'C');
742: END IF;
743:
744: p_fck_return_code := -1;

Line 741: gms_error_pkg.gms_debug ('Award: ' || p_award_id || ' Project: ' || p_project_id, 'C');

737: when no_data_found then
738:
739: IF g_debug_context = 'Y' THEN
740: gms_error_pkg.gms_debug ('No current baselined budget found. Fail the current packet.','C');
741: gms_error_pkg.gms_debug ('Award: ' || p_award_id || ' Project: ' || p_project_id, 'C');
742: END IF;
743:
744: p_fck_return_code := -1;
745: p_fck_err_stage := 'F10';

Line 811: gms_error_pkg.gms_debug ('GET_BUD_TASK_DETAILS : when others exception .\','C');

807: END If;
808: EXCEPTION
809: WHEN OTHERS THEN
810: IF g_debug_context = 'Y' THEN
811: gms_error_pkg.gms_debug ('GET_BUD_TASK_DETAILS : when others exception .\','C');
812: END IF;
813: RAISE;
814: END GET_BUD_TASK_DETAILS;
815:

Line 883: gms_error_pkg.gms_debug ('Fundscheck errored at: ' || l_err_buf, 'C');

879:
880: g_error_stage := 'Execute FundsCheck : ' || l_err_buf ;
881:
882: IF g_debug_context = 'Y' THEN
883: gms_error_pkg.gms_debug ('Fundscheck errored at: ' || l_err_buf, 'C');
884: END IF;
885:
886: -- Set the error codes and related information.
887: p_fck_return_code := -1;

Line 927: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

923: if g_process = 'Interface' then
924:
925: g_error_stage := 'In Execute_FundsCheck for Interface items';
926: IF g_debug_context = 'Y' THEN
927: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
928: END IF;
929:
930: --REL12 : AP lines uptake enhancement : Intializing variables
931: l_old_award_id := 0;

Line 953: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

949: -- which rejects interfacing of payables adjustments against uncosted expenditure Items.
950:
951: g_error_stage := 'Getting new ind compiled set id';
952: IF g_debug_context = 'Y' THEN
953: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
954: END IF;
955:
956: l_new_compiled_set_id := gms_cost_plus_extn.get_award_cmt_compiled_set_id(g_xface_rec.task_id,
957: g_xface_rec.expenditure_item_date,

Line 964: gms_error_pkg.gms_debug ('New compiled set id is : ' || l_new_compiled_set_id, 'C');

960: 'C',
961: g_xface_rec.award_id);
962:
963: IF g_debug_context = 'Y' THEN
964: gms_error_pkg.gms_debug ('New compiled set id is : ' || l_new_compiled_set_id, 'C');
965: END IF;
966:
967: IF g_xface_rec.adjusted_expenditure_item_id IS NOT NULL THEN
968: l_adj_ei_populated := 'Y' ;

Line 1017: gms_error_pkg.gms_debug ('Transaction source : ' || g_txn_source, 'C');

1013: l_bc_pkt.txn_interface_id := t_txn_interface_id(i);
1014:
1015:
1016: IF g_debug_context = 'Y' THEN
1017: gms_error_pkg.gms_debug ('Transaction source : ' || g_txn_source, 'C');
1018: END IF;
1019:
1020: -- R12 AP lines uptake : Logic for handling transactions where only actuals need to be reserved
1021: -- and no commitment relieving is required.

Line 1127: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..1', 'C');

1123: IF NVL( t_nz_adj_flag(i) , 'N') = 'N' then
1124: if not gms_cost_plus_extn.update_bc_pkt_burden_raw_cost(g_packet_id, 'R') then
1125: g_error_stage := 'Could not get burdenable raw cost..fail';
1126: IF g_debug_context = 'Y' THEN
1127: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..1', 'C');
1128: END IF;
1129: p_fck_return_code := -1;
1130: p_fck_err_stage := 'F06';
1131: commit;

Line 1205: gms_error_pkg.gms_debug (g_error_stage, 'C');

1201: OR ( NVL(l_cash_fc_required,'N') = 'N' AND g_xface_rec.cdl_system_reference4 IS NOT NULL) then
1202:
1203: g_error_stage := 'Indirect rate did not change..switch buckets';
1204: IF g_debug_context = 'Y' THEN
1205: gms_error_pkg.gms_debug (g_error_stage, 'C');
1206: END IF;
1207:
1208: IF NVL( t_nz_adj_flag(i) , 'N') = 'Y' then
1209: l_cmt_releived := 'N';

Line 1311: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');

1307: IF NVL( t_nz_adj_flag(i) , 'N') = 'N' then
1308: if not gms_cost_plus_extn.update_bc_pkt_burden_raw_cost(g_packet_id, 'R') then
1309: g_error_stage := 'Could not get burdenable raw cost..fail';
1310: IF g_debug_context = 'Y' THEN
1311: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');
1312: END IF;
1313:
1314: p_fck_return_code := -1;
1315: p_fck_err_stage := 'F06';

Line 1336: gms_error_pkg.gms_debug ('Populated Invoice switching entries', 'C');

1332:
1333: -- populate burden for both the raw lines.
1334: --populate_indirect_cost(g_packet_id); -- shifted outside the loop
1335: IF g_debug_context = 'Y' THEN
1336: gms_error_pkg.gms_debug ('Populated Invoice switching entries', 'C');
1337: END IF;
1338: g_error_stage := 'Done with invoice switching entries';
1339:
1340: else -- ind compiled set id changed OR FC required for cash based accounting scenarios

Line 1344: gms_error_pkg.gms_debug (g_error_stage, 'C');

1340: else -- ind compiled set id changed OR FC required for cash based accounting scenarios
1341:
1342: g_error_stage := 'Indirect Rate Changed..processing';
1343: if g_debug_context = 'Y' THEN
1344: gms_error_pkg.gms_debug (g_error_stage, 'C');
1345: end if;
1346:
1347: -- Start of code for Commitment line record inserting in gms_bc_packets
1348: IF l_adl_fully_paid <> 'Y' THEN -- Will be YES for fully paid cash based accounting invoice

Line 1392: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');

1388: -- calculate the burdenable raw cost if null
1389: if not gms_cost_plus_extn.update_bc_pkt_burden_raw_cost(g_packet_id, 'R') then
1390: g_error_stage := 'Could not get burdenable raw cost..fail';
1391: IF g_debug_context = 'Y' THEN
1392: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');
1393: END IF;
1394:
1395: p_fck_return_code := -1;
1396: p_fck_err_stage := 'F06';

Line 1454: gms_error_pkg.gms_debug ('Populated Invoice data for fundscheck', 'C');

1450:
1451: l_fc_required := 'Y';
1452: -- call FC.
1453: IF g_debug_context = 'Y' THEN
1454: gms_error_pkg.gms_debug ('Populated Invoice data for fundscheck', 'C');
1455: END IF;
1456: g_error_stage := 'Populated invoice data for fundscheck';
1457:
1458: -- calculate the burdenable raw cost and update bc_packet entries.

Line 1462: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');

1458: -- calculate the burdenable raw cost and update bc_packet entries.
1459: if not gms_cost_plus_extn.update_bc_pkt_burden_raw_cost(g_packet_id, 'R') then
1460: g_error_stage := 'Could not get burdenable raw cost..fail';
1461: IF g_debug_context = 'Y' THEN
1462: gms_error_pkg.gms_debug ('Could not get burdenable raw cost..2', 'C');
1463: END IF;
1464:
1465: p_fck_return_code := -1;
1466: p_fck_err_stage := 'F06';

Line 1483: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1479: populate_indirect_cost(g_packet_id);
1480:
1481: g_error_stage := 'Calling setup_rlmi for non-fundschecked txns.';
1482: IF g_debug_context = 'Y' THEN
1483: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1484: END IF;
1485: gms_funds_control_pkg.setup_rlmi(g_packet_id, 'R', l_err_code, l_err_buf);
1486:
1487: g_error_stage := 'Calling update top task and parent resource for non-FCd txns';

Line 1489: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1485: gms_funds_control_pkg.setup_rlmi(g_packet_id, 'R', l_err_code, l_err_buf);
1486:
1487: g_error_stage := 'Calling update top task and parent resource for non-FCd txns';
1488: IF g_debug_context = 'Y' THEN
1489: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1490: END IF;
1491: gms_cost_plus_extn.update_top_tsk_par_res(g_packet_id);
1492:
1493: g_error_stage := 'Populate Arrival Order Sequence Order table';

Line 1495: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1491: gms_cost_plus_extn.update_top_tsk_par_res(g_packet_id);
1492:
1493: g_error_stage := 'Populate Arrival Order Sequence Order table';
1494: IF g_debug_context = 'Y' THEN
1495: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1496: END IF;
1497: Insert_Arrival_Order_Seq(g_packet_id, 'R');
1498:
1499: g_error_stage := 'Update the status and results codes for non-fcd txns';

Line 1501: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1497: Insert_Arrival_Order_Seq(g_packet_id, 'R');
1498:
1499: g_error_stage := 'Update the status and results codes for non-fcd txns';
1500: IF g_debug_context = 'Y' THEN
1501: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1502: END IF;
1503: update gms_bc_packets gbc
1504: set gbc.result_code = 'P76',
1505: gbc.award_result_code = 'P76',

Line 1543: gms_error_pkg.gms_debug ('Fundscheck returned error..2', 'C');

1539:
1540: g_error_stage := 'Execute FundsCheck : ' || p_fck_err_stage ;
1541:
1542: IF g_debug_context = 'Y' THEN
1543: gms_error_pkg.gms_debug ('Fundscheck returned error..2', 'C');
1544: gms_error_pkg.gms_debug ('Error : ' || l_err_code || ' Stage : ' || l_err_buf, 'C');
1545: END IF;
1546: -- Set the error codes and related information exit.
1547:

Line 1544: gms_error_pkg.gms_debug ('Error : ' || l_err_code || ' Stage : ' || l_err_buf, 'C');

1540: g_error_stage := 'Execute FundsCheck : ' || p_fck_err_stage ;
1541:
1542: IF g_debug_context = 'Y' THEN
1543: gms_error_pkg.gms_debug ('Fundscheck returned error..2', 'C');
1544: gms_error_pkg.gms_debug ('Error : ' || l_err_code || ' Stage : ' || l_err_buf, 'C');
1545: END IF;
1546: -- Set the error codes and related information exit.
1547:
1548: p_fck_return_code := -1;

Line 1564: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1560: -- transaction interface id.
1561:
1562: g_error_stage := 'Updating Fundschecked txns with EXP doc type';
1563: IF g_debug_context = 'Y' THEN
1564: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1565: END IF;
1566:
1567: --
1568: -- Bug : 3603121

Line 1646: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1642: --
1643: -- update switching burden record to correct doc type.
1644: g_error_stage := 'Updating burden record to EXP';
1645: IF g_debug_context = 'Y' THEN
1646: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1647: END IF;
1648:
1649: -- bug : 3612707 incorrect actuals in funds check burdenable cost.
1650: -- bug : 3607250 burdenable cost -ve

Line 1670: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');

1666: --
1667: -- update the reversing AP line with raw cost
1668: g_error_stage := 'Updating raw cost on reversing AP line';
1669: IF g_debug_context = 'Y' THEN
1670: gms_error_pkg.gms_debug(g_process||':' || g_error_stage, 'C');
1671: END IF;
1672:
1673: update gms_bc_packets
1674: set entered_dr = decode(sign(g_xface_rec.acct_raw_cost),

Line 1802: gms_error_pkg.gms_debug ('Populated gms_bc_packets with costing data for FC', 'C');

1798: t_transaction_source(i),
1799: t_burdenable_raw_cost(i) ); --R12 AP lines uptake :Forward port bug 4217161);
1800:
1801: IF g_debug_context = 'Y' THEN
1802: gms_error_pkg.gms_debug ('Populated gms_bc_packets with costing data for FC', 'C');
1803: END IF;
1804:
1805: end Populate_BC_Packets;
1806:

Line 1894: gms_error_pkg.gms_debug ('Populated BC packets with interface data for FC', 'C');

1890: p_bc_pkt.expenditure_category, --Bug: 5003642
1891: p_bc_pkt.revenue_category); --Bug: 5003642
1892:
1893: IF g_debug_context = 'Y' THEN
1894: gms_error_pkg.gms_debug ('Populated BC packets with interface data for FC', 'C');
1895: END IF;
1896:
1897: COMMIT;
1898:

Line 1920: gms_error_pkg.gms_debug ( 'Handle_net_zero_txn : Start','C');

1916: Begin
1917:
1918: g_error_stage := 'In Handle Net Zero Procedure';
1919: if g_debug_context = 'Y' then
1920: gms_error_pkg.gms_debug ( 'Handle_net_zero_txn : Start','C');
1921: gms_error_pkg.gms_debug ( 'p_mode : '||p_mode,'C');
1922: end if;
1923:
1924: If p_mode = 'Check_Adjusted' then

Line 1921: gms_error_pkg.gms_debug ( 'p_mode : '||p_mode,'C');

1917:
1918: g_error_stage := 'In Handle Net Zero Procedure';
1919: if g_debug_context = 'Y' then
1920: gms_error_pkg.gms_debug ( 'Handle_net_zero_txn : Start','C');
1921: gms_error_pkg.gms_debug ( 'p_mode : '||p_mode,'C');
1922: end if;
1923:
1924: If p_mode = 'Check_Adjusted' then
1925:

Line 1928: gms_error_pkg.gms_debug ('Fail adjusting txn if adjusted is not FCd', 'C');

1924: If p_mode = 'Check_Adjusted' then
1925:
1926: -- Fail adjusting txn. If adjusted has not been funds checked -F08
1927: IF g_debug_context = 'Y' THEN
1928: gms_error_pkg.gms_debug ('Fail adjusting txn if adjusted is not FCd', 'C');
1929: END IF;
1930:
1931: update gms_bc_packets gbc
1932: set gbc.result_code = 'F08',

Line 1976: gms_error_pkg.gms_debug ( 'Handle_net_zero_txn : End','C');

1972:
1973: end loop;
1974:
1975: if g_debug_context = 'Y' then
1976: gms_error_pkg.gms_debug ( 'Handle_net_zero_txn : End','C');
1977: end if;
1978:
1979: End If;
1980:

Line 2028: gms_error_pkg.gms_debug ('Populated concurrency table..end', 'C');

2024: end;
2025:
2026: g_error_stage := 'Populate concurrency table..end';
2027: IF g_debug_context = 'Y' THEN
2028: gms_error_pkg.gms_debug ('Populated concurrency table..end', 'C');
2029: END IF;
2030: Exception
2031: When others then
2032: RAISE;

Line 2057: gms_error_pkg.gms_debug (g_error_stage, 'C');

2053:
2054: Begin
2055: g_error_stage := 'In Mark_ExpItem_As_Failed';
2056: IF g_debug_context = 'Y' THEN
2057: gms_error_pkg.gms_debug (g_error_stage, 'C');
2058: END IF;
2059:
2060: open get_failed_exps;
2061: fetch get_failed_exps bulk collect into fc_expenditure_item_id,

Line 2126: gms_error_pkg.gms_debug ('Updating reversed flag on CDLs..in mark exp item as failed', 'C');

2122: and parent_bc_packet_id is null
2123: and document_type = 'EXP');
2124:
2125: IF g_debug_context = 'Y' THEN
2126: gms_error_pkg.gms_debug ('Updating reversed flag on CDLs..in mark exp item as failed', 'C');
2127: END IF;
2128:
2129: forall i in fc_expenditure_item_id.FIRST..fc_expenditure_item_id.LAST
2130: update pa_cost_distribution_lines

Line 2142: gms_error_pkg.gms_debug ('End Mark_ExpItem_As_Failed', 'C');

2138: fc_result_code.delete;
2139:
2140:
2141: IF g_debug_context = 'Y' THEN
2142: gms_error_pkg.gms_debug ('End Mark_ExpItem_As_Failed', 'C');
2143: END IF;
2144:
2145: END Mark_ExpItem_As_Failed;
2146:

Line 2217: gms_error_pkg.gms_debug (g_error_stage, 'C');

2213: p_return_status := -1;
2214:
2215: g_error_stage := 'Update Source Burden Raw Cost failed..rollback';
2216: IF g_debug_context = 'Y' THEN
2217: gms_error_pkg.gms_debug (g_error_stage, 'C');
2218: END IF;
2219:
2220: return;
2221: end if;

Line 2225: gms_error_pkg.gms_debug (g_error_stage, 'C');

2221: end if;
2222:
2223: g_error_stage := 'Calling update_gms_bc_packets from FundsCheck_TieBack';
2224: IF g_debug_context = 'Y' THEN
2225: gms_error_pkg.gms_debug (g_error_stage, 'C');
2226: END IF;
2227:
2228: update_gms_bc_packets(g_process, g_request_id);
2229:

Line 2232: gms_error_pkg.gms_debug (g_error_stage, 'C');

2228: update_gms_bc_packets(g_process, g_request_id);
2229:
2230: g_error_stage := 'Calling Create_ADLs from FundsCheck_TieBack';
2231: IF g_debug_context = 'Y' THEN
2232: gms_error_pkg.gms_debug (g_error_stage, 'C');
2233: END IF;
2234:
2235: -- Note: Do not change the order of create_adls and update_gms_bc_packets ...
2236: create_adls(g_process, g_request_id);

Line 2240: gms_error_pkg.gms_debug (g_error_stage, 'C');

2236: create_adls(g_process, g_request_id);
2237:
2238: g_error_stage := 'Calling Delete_concurrency_records from FundsCheck_TieBack';
2239: IF g_debug_context = 'Y' THEN
2240: gms_error_pkg.gms_debug (g_error_stage, 'C');
2241: END IF;
2242:
2243: delete_concurrency_records;
2244:

Line 2273: gms_error_pkg.gms_debug ('Update GMS BC Packets start..', 'C');

2269: p_request_id IN NUMBER) is
2270: Begin
2271: g_error_stage := 'Update_GMS_BC_Packets...start';
2272: IF g_debug_context = 'Y' THEN
2273: gms_error_pkg.gms_debug ('Update GMS BC Packets start..', 'C');
2274: END IF;
2275:
2276: -- If this procedure is called from interface then we need to use
2277: -- request_id for update ...

Line 2296: gms_error_pkg.gms_debug ('Update_GMS_BC_Packets...end', 'C');

2292: and status_code = 'P';
2293: End If;
2294:
2295: IF g_debug_context = 'Y' THEN
2296: gms_error_pkg.gms_debug ('Update_GMS_BC_Packets...end', 'C');
2297: END IF;
2298:
2299: End Update_GMS_BC_Packets;
2300:

Line 2382: gms_error_pkg.gms_debug (g_error_stage, 'C');

2378:
2379: Begin
2380: g_error_stage := 'Create_ADLs...start';
2381: IF g_debug_context = 'Y' THEN
2382: gms_error_pkg.gms_debug (g_error_stage, 'C');
2383: END IF;
2384: --Variables used in insert ..
2385: v_login := fnd_global.login_id;
2386: v_date := sysdate;

Line 2496: gms_error_pkg.gms_debug (g_error_stage, 'C');

2492:
2493: -- update the reversed flag on adls.
2494: g_error_stage := 'Created costing ADLs..update reversed flag';
2495: IF g_debug_context = 'Y' THEN
2496: gms_error_pkg.gms_debug (g_error_stage, 'C');
2497: END IF;
2498:
2499: open reversed_cur;
2500: fetch reversed_cur bulk collect into v_exp_item_id,v_cdl_line_num;

Line 2533: gms_error_pkg.gms_debug (g_error_stage, 'C');

2529: where rowid = v_rowid(i);
2530:
2531: g_error_stage := 'Creating ADLs for interface..';
2532: IF g_debug_context = 'Y' THEN
2533: gms_error_pkg.gms_debug (g_error_stage, 'C');
2534: END IF;
2535:
2536: forall i in v_rowid.first..v_rowid.last
2537: insert into gms_award_distributions(

Line 2621: gms_error_pkg.gms_debug (g_error_stage, 'C');

2617: end if; /* process = 'Costing' */
2618:
2619: g_error_stage := 'Create_ADLs...end';
2620: IF g_debug_context = 'Y' THEN
2621: gms_error_pkg.gms_debug (g_error_stage, 'C');
2622: END IF;
2623: End Create_ADLs;
2624:
2625: -------------------------------------------------------------------------------

Line 2633: gms_error_pkg.gms_debug (g_error_stage, 'C');

2629: Procedure Delete_Concurrency_Records is
2630: Begin
2631: g_error_stage := 'Delete_Concurrency_Records..starts';
2632: IF g_debug_context = 'Y' THEN
2633: gms_error_pkg.gms_debug (g_error_stage, 'C');
2634: END IF;
2635:
2636: delete from gms_concurrency_control
2637: where process_name = 'GMSFCSYS'

Line 2642: gms_error_pkg.gms_debug (g_error_stage, 'C');

2638: and request_id = g_request_id;
2639:
2640: g_error_stage := 'Delete_Concurrency_Records..end';
2641: IF g_debug_context = 'Y' THEN
2642: gms_error_pkg.gms_debug (g_error_stage, 'C');
2643: END IF;
2644:
2645: End Delete_Concurrency_Records;
2646:

Line 2728: gms_error_pkg.gms_debug ('x---- Start of GMS interface process ----x', 'C');

2724: Set_Debug_Context;
2725:
2726: g_error_stage := 'In FundsCheck_Supplier_Cost..start';
2727: IF g_debug_context = 'Y' THEN
2728: gms_error_pkg.gms_debug ('x---- Start of GMS interface process ----x', 'C');
2729: gms_error_pkg.gms_debug (g_error_stage, 'C');
2730: END IF;
2731:
2732: -- Bug 5344693 : Modified the following condition so that records with transaction source as 'AP VARIANCE' are also funds checked.

Line 2729: gms_error_pkg.gms_debug (g_error_stage, 'C');

2725:
2726: g_error_stage := 'In FundsCheck_Supplier_Cost..start';
2727: IF g_debug_context = 'Y' THEN
2728: gms_error_pkg.gms_debug ('x---- Start of GMS interface process ----x', 'C');
2729: gms_error_pkg.gms_debug (g_error_stage, 'C');
2730: END IF;
2731:
2732: -- Bug 5344693 : Modified the following condition so that records with transaction source as 'AP VARIANCE' are also funds checked.
2733: if p_transaction_source not in ('AP INVOICE', 'AP DISCOUNTS',

Line 2737: gms_error_pkg.gms_debug (g_error_stage, 'C');

2733: if p_transaction_source not in ('AP INVOICE', 'AP DISCOUNTS',
2734: 'AP NRTAX', 'AP EXPENSE', 'AP ERV' , 'AP VARIANCE' ) then /* Bug 5284323 */
2735: g_error_stage := 'Not a supported txn source..return';
2736: IF g_debug_context = 'Y' THEN
2737: gms_error_pkg.gms_debug (g_error_stage, 'C');
2738: END IF;
2739: return;
2740: end if;
2741:

Line 2753: gms_error_pkg.gms_debug ('Txn Src: ' || g_txn_source ||', xface id: ' || g_txn_xface_id

2749:
2750: INIT;
2751:
2752: IF g_debug_context = 'Y' THEN
2753: gms_error_pkg.gms_debug ('Txn Src: ' || g_txn_source ||', xface id: ' || g_txn_xface_id
2754: ||', Request ID: ' || g_request_id, 'C');
2755: END IF;
2756:
2757: g_error_stage := 'Call execute fundscheck from fundscheck_supplier_cost';

Line 2759: gms_error_pkg.gms_debug (g_error_stage, 'C');

2755: END IF;
2756:
2757: g_error_stage := 'Call execute fundscheck from fundscheck_supplier_cost';
2758: IF g_debug_context = 'Y' THEN
2759: gms_error_pkg.gms_debug (g_error_stage, 'C');
2760: END IF;
2761:
2762: open get_xface_cur;
2763: fetch get_xface_cur into g_xface_rec;

Line 2771: gms_error_pkg.gms_debug ('No Interface records to process', 'C');

2767:
2768: g_error_stage := 'No interface records found to process';
2769:
2770: IF g_debug_context = 'Y' THEN
2771: gms_error_pkg.gms_debug ('No Interface records to process', 'C');
2772: END IF;
2773:
2774: return;
2775: else

Line 2780: gms_error_pkg.gms_debug ('Interface records to process', 'C');

2776: close get_xface_cur;
2777: g_error_stage := 'Interface records found to process';
2778:
2779: IF g_debug_context = 'Y' THEN
2780: gms_error_pkg.gms_debug ('Interface records to process', 'C');
2781: END IF;
2782: end if;
2783:
2784: -- Bug 5236418 : All the collection variables should be cleared before they are used.

Line 2842: gms_error_pkg.gms_debug ('No Interface records to process', 'C');

2838:
2839: if t_txn_interface_id.count = 0 then
2840: g_error_stage := 'No interface records found to process';
2841: IF g_debug_context = 'Y' THEN
2842: gms_error_pkg.gms_debug ('No Interface records to process', 'C');
2843: END IF;
2844: return;
2845: end if;
2846: ELSE

Line 2902: gms_error_pkg.gms_debug ('Error returned by Execute Fundscheck: ' || p_status, 'C');

2898:
2899: if l_fck_return_code < 0 then
2900: p_status := substr(l_fck_error_stage, 1, 30);
2901: IF g_debug_context = 'Y' THEN
2902: gms_error_pkg.gms_debug ('Error returned by Execute Fundscheck: ' || p_status, 'C');
2903: END IF;
2904: elsif (l_status = 'F') then
2905: p_status := 'GMS_FC_ERROR';
2906: IF g_debug_context = 'Y' THEN

Line 2907: gms_error_pkg.gms_debug ('Error returned by Mark_Xface_Item_AS_Failed', 'C');

2903: END IF;
2904: elsif (l_status = 'F') then
2905: p_status := 'GMS_FC_ERROR';
2906: IF g_debug_context = 'Y' THEN
2907: gms_error_pkg.gms_debug ('Error returned by Mark_Xface_Item_AS_Failed', 'C');
2908: END IF;
2909: end if;
2910:
2911: g_error_stage := ' -- Done with FundsCheck_Supplier_Cost..end -- ';

Line 2913: gms_error_pkg.gms_debug (g_error_stage, 'C');

2909: end if;
2910:
2911: g_error_stage := ' -- Done with FundsCheck_Supplier_Cost..end -- ';
2912: IF g_debug_context = 'Y' THEN
2913: gms_error_pkg.gms_debug (g_error_stage, 'C');
2914: END IF;
2915:
2916: return;
2917:

Line 2923: gms_error_pkg.gms_debug (g_error_stage, 'C');

2919: when others then
2920: p_status := 'GMS_FC_ERROR';
2921: g_error_stage := 'Exception in FundsCheck_Supplier_Costs..return error';
2922: IF g_debug_context = 'Y' THEN
2923: gms_error_pkg.gms_debug (g_error_stage, 'C');
2924: END IF;
2925: return;
2926:
2927: End FundsCheck_Supplier_Cost;

Line 2939: gms_error_pkg.gms_debug (g_error_stage, 'C');

2935:
2936: BEGIN
2937: g_error_stage := 'In Populate_Indirect_Cost..start';
2938: IF g_debug_context = 'Y' THEN
2939: gms_error_pkg.gms_debug (g_error_stage, 'C');
2940: END IF;
2941:
2942: Insert into gms_bc_packets
2943: ( PACKET_ID,

Line 3064: gms_error_pkg.gms_debug (g_error_stage, 'C');

3060: -- and gbc.document_type = 'AP' ;
3061:
3062: g_error_stage := 'Done populating indirect cost';
3063: IF g_debug_context = 'Y' THEN
3064: gms_error_pkg.gms_debug (g_error_stage, 'C');
3065: END IF;
3066: END Populate_Indirect_Cost;
3067:
3068: -------------------------------------------------------------------------------

Line 3118: gms_error_pkg.gms_debug (g_error_stage, 'C');

3114: Begin
3115:
3116: g_error_stage := 'TieBack_Xface: Start';
3117: IF g_debug_context = 'Y' THEN
3118: gms_error_pkg.gms_debug (g_error_stage, 'C');
3119: END IF;
3120:
3121: -- check the transactions which are rejected and fail gms_bc_packets
3122: -- entries

Line 3132: gms_error_pkg.gms_debug('Following packets are marked as failed :', 'C');

3128:
3129: if v_packet_id.count > 0 then
3130:
3131: IF g_debug_context = 'Y' THEN
3132: gms_error_pkg.gms_debug('Following packets are marked as failed :', 'C');
3133: END IF;
3134: IF g_debug_context = 'Y' THEN
3135: for i in v_packet_id.first..v_packet_id.last loop
3136: gms_error_pkg.gms_debug('Failed packet : ' || v_packet_id(i), 'C');

Line 3136: gms_error_pkg.gms_debug('Failed packet : ' || v_packet_id(i), 'C');

3132: gms_error_pkg.gms_debug('Following packets are marked as failed :', 'C');
3133: END IF;
3134: IF g_debug_context = 'Y' THEN
3135: for i in v_packet_id.first..v_packet_id.last loop
3136: gms_error_pkg.gms_debug('Failed packet : ' || v_packet_id(i), 'C');
3137: end loop;
3138: END IF;
3139:
3140: forall i in v_packet_id.FIRST..v_packet_id.LAST

Line 3173: gms_error_pkg.gms_debug (g_error_stage || ' for Packet ID : ' || x_packet_id, 'C');

3169: gms_cost_plus_extn.update_source_burden_raw_cost(x_packet_id, 'R', 'Y') then
3170:
3171: g_error_stage := 'TieBack_Xface: Error returned from update_source_burden_raw_cost';
3172: IF g_debug_context = 'Y' THEN
3173: gms_error_pkg.gms_debug (g_error_stage || ' for Packet ID : ' || x_packet_id, 'C');
3174: END IF;
3175:
3176: x_error_occured := 'Y';
3177: Mark_Xface_Item_As_Failed(x_packet_id, v_status);

Line 3188: gms_error_pkg.gms_debug('Call to Source Burden Raw Cost failed..return failure', 'C');

3184: -- If error occurs, retrurn with failure status. Rollback everything
3185: if x_error_occured = 'Y' then
3186: p_status := FND_API.G_RET_STS_UNEXP_ERROR;
3187: IF g_debug_context = 'Y' THEN
3188: gms_error_pkg.gms_debug('Call to Source Burden Raw Cost failed..return failure', 'C');
3189: END IF;
3190: return;
3191: end if;
3192:

Line 3217: gms_error_pkg.gms_debug (g_error_stage, 'C');

3213: if v_all_pkts_failed = 'N' then
3214:
3215: g_error_stage := 'TieBack_Xface: Calling Create ADLs';
3216: IF g_debug_context = 'Y' THEN
3217: gms_error_pkg.gms_debug (g_error_stage, 'C');
3218: END IF;
3219:
3220: -- Note:
3221: -- ADLs should be created before Updating status_code on gms_bc_packets to 'A'.

Line 3228: gms_error_pkg.gms_debug (g_error_stage, 'C');

3224: create_adls('Interface', p_request_id);
3225:
3226: g_error_stage := 'TieBack_Xface: Calling update_gms_bc_packets';
3227: IF g_debug_context = 'Y' THEN
3228: gms_error_pkg.gms_debug (g_error_stage, 'C');
3229: END IF;
3230:
3231: update_gms_bc_packets('Interface', p_request_id);
3232:

Line 3242: gms_error_pkg.gms_debug (g_error_stage, 'C');

3238: when others then
3239: p_status := 'GMS_FC_ERROR';
3240: g_error_stage := 'Exception in TieBack_Interface..return error';
3241: IF g_debug_context = 'Y' THEN
3242: gms_error_pkg.gms_debug (g_error_stage, 'C');
3243: END IF;
3244:
3245: return;
3246:

Line 3279: gms_error_pkg.gms_debug (g_error_stage, 'C');

3275: v_userid := fnd_global.user_id;
3276:
3277: g_error_stage := 'TieBack_Xface: Net_zero_adls starts here';
3278: IF g_debug_context = 'Y' THEN
3279: gms_error_pkg.gms_debug (g_error_stage, 'C');
3280: END IF;
3281:
3282: insert into gms_award_distributions(
3283: AWARD_SET_ID,

Line 3367: gms_error_pkg.gms_debug (g_error_stage, 'C');

3363: and adl2.adl_line_num = 1 );
3364:
3365: g_error_stage := 'TieBack_Xface: Net_zero_adls ends here';
3366: IF g_debug_context = 'Y' THEN
3367: gms_error_pkg.gms_debug (g_error_stage, 'C');
3368: END IF;
3369:
3370: end Net_zero_adls ;
3371:

Line 3392: gms_error_pkg.gms_debug (g_error_stage, 'C');

3388: Begin
3389:
3390: g_error_stage := 'Mark_Xface_Item_As_Failed: Start';
3391: IF g_debug_context = 'Y' THEN
3392: gms_error_pkg.gms_debug (g_error_stage, 'C');
3393: END IF;
3394:
3395: p_status := 'S';
3396:

Line 3414: gms_error_pkg.gms_debug (g_error_stage, 'C');

3410: close c1;
3411:
3412: g_error_stage := 'Mark_Xface_Item_As_Failed: End';
3413: IF g_debug_context = 'Y' THEN
3414: gms_error_pkg.gms_debug (g_error_stage, 'C');
3415: END IF;
3416:
3417: End Mark_Xface_Item_AS_Failed;
3418: