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.PA_CAPITAL_EVENTS_PVT dependencies on PA_DEBUG

Line 48: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

44: v_ret_tasks_count NUMBER := 0;
45: v_return_status VARCHAR2(1);
46: v_msg_data VARCHAR2(2000);
47:
48: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
49:
50: p_event_period_name_missing EXCEPTION;
51: p_asset_date_through_missing EXCEPTION;
52: unexp_error_in_client_extn EXCEPTION;

Line 336: PA_DEBUG.SET_PROCESS(x_process => 'PLSQL',

332: BEGIN
333: --Initialize variables
334: retcode := 0;
335: errbuf := NULL;
336: PA_DEBUG.SET_PROCESS(x_process => 'PLSQL',
337: x_debug_mode => PG_DEBUG);
338:
339: PA_DEBUG.WRITE_FILE('LOG', TO_CHAR(SYSDATE,'HH:MI:SS')||': PA_DEBUG_MODE: '||PG_DEBUG);
340:

Line 339: PA_DEBUG.WRITE_FILE('LOG', TO_CHAR(SYSDATE,'HH:MI:SS')||': PA_DEBUG_MODE: '||PG_DEBUG);

335: errbuf := NULL;
336: PA_DEBUG.SET_PROCESS(x_process => 'PLSQL',
337: x_debug_mode => PG_DEBUG);
338:
339: PA_DEBUG.WRITE_FILE('LOG', TO_CHAR(SYSDATE,'HH:MI:SS')||': PA_DEBUG_MODE: '||PG_DEBUG);
340:
341: --CHANGING date arguments from VARCHAR2 TO DATE
342: p_asset_date_through := fnd_date.canonical_to_date(p_asset_date_through_arg);
343: p_ei_date_through := fnd_date.canonical_to_date(p_ei_date_through_arg);

Line 356: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Opening ac_projects_cur');

352: END IF;
353:
354:
355: IF PG_DEBUG = 'Y' THEN
356: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Opening ac_projects_cur');
357: END IF;
358:
359:
360: --Verify that project(s) exist to process

Line 469: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Calling pre_capital_event client extension for project id: '||ac_projects_rec.project_id);

465: --Loop through all "Periodic Event Creation" projects
466: FOR ac_projects_rec IN ac_projects_cur LOOP
467:
468: IF PG_DEBUG = 'Y' THEN
469: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Calling pre_capital_event client extension for project id: '||ac_projects_rec.project_id);
470: END IF;
471:
472: --Call the PRE_CAPITAL_EVENT client extension
473: PA_CLIENT_EXTN_PRE_CAP_EVENT.PRE_CAPITAL_EVENT

Line 483: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Error in pre_capital_event client extension for project id: '||ac_projects_rec.project_id);

479: x_msg_data => v_msg_data);
480:
481: IF v_return_status = 'E' THEN
482: IF PG_DEBUG = 'Y' THEN
483: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Error in pre_capital_event client extension for project id: '||ac_projects_rec.project_id);
484: END IF;
485:
486: RAISE error_in_client_extn;
487: ELSIF v_return_status = 'U' THEN

Line 489: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Unexpected Error in pre_capital_event client extension for project id: '||ac_projects_rec.project_id);

485:
486: RAISE error_in_client_extn;
487: ELSIF v_return_status = 'U' THEN
488: IF PG_DEBUG = 'Y' THEN
489: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Unexpected Error in pre_capital_event client extension for project id: '||ac_projects_rec.project_id);
490: END IF;
491:
492: RAISE unexp_error_in_client_extn;
493: END IF;

Line 860: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

856: v_capital_type pa_lookups.meaning%TYPE;
857: v_wbs_branch_assets_exist VARCHAR2(1) := 'N';
858:
859:
860: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
861:
862: empty_cursor_error EXCEPTION;
863:
864: BEGIN

Line 883: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Project has a project-level Common Assignment');

879: --Process events for Common Asset Assignment projects
880: IF v_common_project = 'Y' THEN
881:
882: IF PG_DEBUG = 'Y' THEN
883: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Project has a project-level Common Assignment');
884: END IF;
885:
886: --Determine if a event exists for the event period specified
887: OPEN capital_event_cur(p_project_id, p_event_type);

Line 900: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'An Event already exists for the period specified, Event ID: '||capital_event_rec.capital_event_id);

896: --Process projects where the event exists for the event period specified
897: IF v_event_exists = 'Y' THEN
898:
899: IF PG_DEBUG = 'Y' THEN
900: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'An Event already exists for the period specified, Event ID: '||capital_event_rec.capital_event_id);
901: END IF;
902:
903:
904: --Assign all new assets to the existing event

Line 945: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'No Event currently exists for the period specified');

941:
942: ELSE --No event exists for the current event period
943:
944: IF PG_DEBUG = 'Y' THEN
945: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'No Event currently exists for the period specified');
946: END IF;
947:
948: --Possibly create a new event, if both new assets and new costs exist
949:

Line 1003: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, a new event will be created');

999:
1000: --Create a new event, and assign the new costs and assets to it
1001:
1002: IF PG_DEBUG = 'Y' THEN
1003: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, a new event will be created');
1004: END IF;
1005:
1006: --Determine the highest existing event number
1007: SELECT NVL(MAX(capital_event_number),0)

Line 1091: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Event number '||v_event_number||' successfully created for Project: '||p_project_number);

1087:
1088: END LOOP;
1089:
1090: IF PG_DEBUG = 'Y' THEN
1091: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Event number '||v_event_number||' successfully created for Project: '||p_project_number);
1092: END IF;
1093:
1094:
1095: ELSIF (v_asset_count = 0) AND (v_ei_count = 0) THEN

Line 1143: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');

1139: );
1140:
1141:
1142: IF PG_DEBUG = 'Y' THEN
1143: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');
1144: END IF;
1145:
1146: ELSIF (v_asset_count > 0) AND (v_ei_count = 0) THEN
1147:

Line 1193: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');

1189: v_org_id --org_id
1190: );
1191:
1192: IF PG_DEBUG = 'Y' THEN
1193: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');
1194: END IF;
1195:
1196: ELSIF (v_asset_count = 0) AND (v_ei_count > 0) THEN
1197:

Line 1244: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');

1240: );
1241:
1242:
1243: IF PG_DEBUG = 'Y' THEN
1244: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||v_ei_count||' costs and '||v_asset_count||' assets exist, no new event will be created');
1245: END IF;
1246:
1247: END IF; --Processing based on asset and cost item counts
1248:

Line 1255: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Project does not have a project-level Common Assignment');

1251: ELSE --Process events for projects that do not have 'Common' Asset Assignments
1252:
1253:
1254: IF PG_DEBUG = 'Y' THEN
1255: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Project does not have a project-level Common Assignment');
1256: END IF;
1257:
1258: --Loop through all new assets and their asset assignments for the project
1259: FOR new_assets_rec IN new_assets_cur(p_project_id, p_event_type) LOOP

Line 1275: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'An Event already exists for the period specified, Event ID: '||capital_event_rec.capital_event_id);

1271: --Process projects where the event exists for the event period specified
1272: IF v_event_exists = 'Y' THEN
1273:
1274: IF PG_DEBUG = 'Y' THEN
1275: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'An Event already exists for the period specified, Event ID: '||capital_event_rec.capital_event_id);
1276: END IF;
1277:
1278: --Look for costs in the event at the asset grouping level
1279: IF new_assets_rec.task_id = 0 THEN

Line 1339: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Costs already exists on the Event, add asset id: '||new_assets_rec.project_asset_id);

1335:
1336: IF v_ei_count > 0 THEN --costs already exist on the event
1337:
1338: IF PG_DEBUG = 'Y' THEN
1339: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Costs already exists on the Event, add asset id: '||new_assets_rec.project_asset_id);
1340: END IF;
1341:
1342: --Add the asset to the event
1343: UPDATE pa_project_assets_all

Line 1395: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs and assets exist for the Event, add asset id: '||new_assets_rec.project_asset_id);

1391:
1392: IF v_ei_count > 0 THEN
1393:
1394: IF PG_DEBUG = 'Y' THEN
1395: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs and assets exist for the Event, add asset id: '||new_assets_rec.project_asset_id);
1396: END IF;
1397:
1398:
1399: --Add the asset to the event

Line 1447: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'No Event currently exists for period specified');

1443:
1444: ELSE --No event exists as yet
1445:
1446: IF PG_DEBUG = 'Y' THEN
1447: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'No Event currently exists for period specified');
1448: END IF;
1449:
1450:
1451: --Look for new costs at the asset assignment grouping level

Line 1492: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs and assets exist, create a new Event');

1488: IF v_ei_count > 0 THEN
1489:
1490: --Create a new event, and assign the new costs and assets to it
1491: IF PG_DEBUG = 'Y' THEN
1492: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs and assets exist, create a new Event');
1493: END IF;
1494:
1495:
1496: --Determine the highest existing event number

Line 1589: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Event number '||v_event_number||' successfully created for Project: '||p_project_number);

1585: AND NVL(retirement_cost_flag,'N') = DECODE(p_event_type,'R','Y','N'))
1586: );
1587:
1588: IF PG_DEBUG = 'Y' THEN
1589: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Event number '||v_event_number||' successfully created for Project: '||p_project_number);
1590: END IF;
1591:
1592: END IF; --New costs existed for the asset and event was created
1593:

Line 1627: PA_DEBUG.DEBUG('Common Task assignment made at Top Task Level for Task ID '||common_tasks_rec.task_id);

1623: --Test if the Common Assignment is made at the Top Task Level
1624: IF common_tasks_rec.assignment_task_id = common_tasks_rec.top_task_id THEN
1625:
1626: IF PG_DEBUG = 'Y' THEN
1627: PA_DEBUG.DEBUG('Common Task assignment made at Top Task Level for Task ID '||common_tasks_rec.task_id);
1628: END IF;
1629:
1630: --Attach all common costs to the event associated with a Top Task Assignment
1631: UPDATE pa_expenditure_items_all

Line 1649: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New common costs added to Event number '||v_event_number);

1645: AND task_id = common_tasks_rec.task_id;
1646:
1647: IF SQL%ROWCOUNT > 0 THEN
1648: IF PG_DEBUG = 'Y' THEN
1649: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New common costs added to Event number '||v_event_number);
1650: END IF;
1651: END IF;
1652: ELSE --Common Task is assigned at the Lowest Level
1653:

Line 1655: PA_DEBUG.DEBUG('Common Task assignment made at Lowest Task Level for Task ID '||common_tasks_rec.task_id

1651: END IF;
1652: ELSE --Common Task is assigned at the Lowest Level
1653:
1654: IF PG_DEBUG = 'Y' THEN
1655: PA_DEBUG.DEBUG('Common Task assignment made at Lowest Task Level for Task ID '||common_tasks_rec.task_id
1656: ||' under Parent Task ID '||common_tasks_rec.parent_task_id);
1657: END IF;
1658:
1659: v_wbs_branch_assets_exist := 'N';

Line 1667: PA_DEBUG.DEBUG('Task Number '||wbs_branch_tasks_rec.task_number||' exists beneath Parent Task ID '||common_tasks_rec.parent_task_id);

1663: common_tasks_rec.task_id,
1664: p_event_type) LOOP
1665:
1666: IF PG_DEBUG = 'Y' THEN
1667: PA_DEBUG.DEBUG('Task Number '||wbs_branch_tasks_rec.task_number||' exists beneath Parent Task ID '||common_tasks_rec.parent_task_id);
1668: END IF;
1669:
1670: --Check for existence of asset assignments in current event on current task
1671: OPEN task_asgn_assets_cur(p_project_id,

Line 1678: PA_DEBUG.DEBUG('No assignments exist for current event for Task Number '||wbs_branch_tasks_rec.task_number);

1674: p_event_type);
1675: FETCH task_asgn_assets_cur INTO task_asgn_assets_rec;
1676: IF task_asgn_assets_cur%NOTFOUND THEN
1677: IF PG_DEBUG = 'Y' THEN
1678: PA_DEBUG.DEBUG('No assignments exist for current event for Task Number '||wbs_branch_tasks_rec.task_number);
1679: END IF;
1680: ELSE
1681: v_wbs_branch_assets_exist := 'Y';
1682: IF PG_DEBUG = 'Y' THEN

Line 1683: PA_DEBUG.DEBUG('Assignments exist for current event for Task Number '||wbs_branch_tasks_rec.task_number);

1679: END IF;
1680: ELSE
1681: v_wbs_branch_assets_exist := 'Y';
1682: IF PG_DEBUG = 'Y' THEN
1683: PA_DEBUG.DEBUG('Assignments exist for current event for Task Number '||wbs_branch_tasks_rec.task_number);
1684: END IF;
1685: END IF;
1686:
1687: CLOSE task_asgn_assets_cur;

Line 1775: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs added to Event number '||v_event_number||' from task id '||remaining_costs_rec.task_id);

1771: AND cost_distributed_flag = 'Y'
1772: AND task_id = remaining_costs_rec.task_id;
1773:
1774: IF PG_DEBUG = 'Y' THEN
1775: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'New costs added to Event number '||v_event_number||' from task id '||remaining_costs_rec.task_id);
1776: END IF;
1777:
1778: END IF; --Remaining costs match an existing asset grouping level for the event
1779:

Line 1840: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Costs but no corresponding assets exist on Task Number '||v_task_number

1836: v_org_id --org_id
1837: );
1838:
1839: IF PG_DEBUG = 'Y' THEN
1840: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': '||'Costs but no corresponding assets exist on Task Number '||v_task_number
1841: ||' for Project: '||p_project_number);
1842: END IF;
1843:
1844: END LOOP; --Remaining Costs Tasks

Line 1897: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name

1893: v_org_id --org_id
1894: );
1895:
1896: IF PG_DEBUG = 'Y' THEN
1897: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name
1898: ||' found with no asset assignment(s) on Project: '||p_project_number);
1899: END IF;
1900:
1901: ELSIF remaining_assets_rec.task_id = 0 THEN

Line 1948: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name

1944: v_org_id --org_id
1945: );
1946:
1947: IF PG_DEBUG = 'Y' THEN
1948: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name
1949: ||' found but no costs exist on Project: '||p_project_number);
1950: END IF;
1951:
1952: ELSIF remaining_assets_rec.task_id <> 0 THEN

Line 2005: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name

2001: v_org_id --org_id
2002: );
2003:
2004: IF PG_DEBUG = 'Y' THEN
2005: PA_DEBUG.WRITE_FILE('LOG',TO_CHAR(SYSDATE,'HH:MI:SS')||': Asset '||remaining_assets_rec.asset_name
2006: ||' found but no costs exist beneath Task Number '||v_task_number
2007: ||' for Project: '||p_project_number);
2008: END IF;
2009: