DBA Data[Home] [Help]

APPS.AHL_VWP_TIMES_PVT dependencies on FND_LOG

Line 42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;

38: G_STAGES_TBL Number_Tbl_Type; -- Stores the stage offsets for visit
39: ------------------------------------
40: -- Common constants and variables --
41: ------------------------------------
42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
43: l_log_statement NUMBER := fnd_log.level_statement;
44: l_log_procedure NUMBER := fnd_log.level_procedure;
45: l_log_error NUMBER := fnd_log.level_error;
46: l_log_unexpected NUMBER := fnd_log.level_unexpected;

Line 43: l_log_statement NUMBER := fnd_log.level_statement;

39: ------------------------------------
40: -- Common constants and variables --
41: ------------------------------------
42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
43: l_log_statement NUMBER := fnd_log.level_statement;
44: l_log_procedure NUMBER := fnd_log.level_procedure;
45: l_log_error NUMBER := fnd_log.level_error;
46: l_log_unexpected NUMBER := fnd_log.level_unexpected;
47: -----------------------------------------------------------------------

Line 44: l_log_procedure NUMBER := fnd_log.level_procedure;

40: -- Common constants and variables --
41: ------------------------------------
42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
43: l_log_statement NUMBER := fnd_log.level_statement;
44: l_log_procedure NUMBER := fnd_log.level_procedure;
45: l_log_error NUMBER := fnd_log.level_error;
46: l_log_unexpected NUMBER := fnd_log.level_unexpected;
47: -----------------------------------------------------------------------
48: /*procedure adbug(p_msg_txt in varchar2 , p_message in date)

Line 45: l_log_error NUMBER := fnd_log.level_error;

41: ------------------------------------
42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
43: l_log_statement NUMBER := fnd_log.level_statement;
44: l_log_procedure NUMBER := fnd_log.level_procedure;
45: l_log_error NUMBER := fnd_log.level_error;
46: l_log_unexpected NUMBER := fnd_log.level_unexpected;
47: -----------------------------------------------------------------------
48: /*procedure adbug(p_msg_txt in varchar2 , p_message in date)
49: is

Line 46: l_log_unexpected NUMBER := fnd_log.level_unexpected;

42: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
43: l_log_statement NUMBER := fnd_log.level_statement;
44: l_log_procedure NUMBER := fnd_log.level_procedure;
45: l_log_error NUMBER := fnd_log.level_error;
46: l_log_unexpected NUMBER := fnd_log.level_unexpected;
47: -----------------------------------------------------------------------
48: /*procedure adbug(p_msg_txt in varchar2 , p_message in date)
49: is
50: begin

Line 173: fnd_log.string(l_log_procedure,

169: --
170: BEGIN
171:
172: IF (l_log_procedure >= l_log_current_level) THEN
173: fnd_log.string(l_log_procedure,
174: L_DEBUG_KEY ||'.begin',
175: 'At the start of PL SQL function. Visit Id = ' || p_visit_id);
176: END IF;
177:

Line 188: fnd_log.string(l_log_procedure,

184: OPEN get_actual_start_date_csr (p_visit_id);
185: FETCH get_actual_start_date_csr INTO l_actual_start_date;
186: CLOSE get_actual_start_date_csr;
187: IF (l_log_procedure >= l_log_current_level) THEN
188: fnd_log.string(l_log_procedure,
189: L_DEBUG_KEY ||'.end',
190: 'At the end of PL SQL function. Visit Start Date = ' || l_actual_start_date);
191: END IF;
192: RETURN l_actual_start_date;

Line 197: fnd_log.string(l_log_procedure,

193:
194: -- Planning/Released/Partially Released/Cancelled
195: ELSE
196: IF (l_log_procedure >= l_log_current_level) THEN
197: fnd_log.string(l_log_procedure,
198: L_DEBUG_KEY ||'.end',
199: 'At the end of PL SQL function. Visit Start Date = ' || c_visit_rec.START_DATE_TIME);
200: END IF;
201: RETURN c_visit_rec.START_DATE_TIME;

Line 253: fnd_log.string(l_log_procedure,

249: --
250: BEGIN
251:
252: IF (l_log_procedure >= l_log_current_level) THEN
253: fnd_log.string(l_log_procedure,
254: L_DEBUG_KEY ||'.begin',
255: 'At the start of PL SQL function. Visit Id = ' || p_visit_id );
256: END IF;
257:

Line 358: fnd_log.string(l_log_procedure,

354:
355: SAVEPOINT calculate_task_Times_pvt;
356:
357: IF (l_log_procedure >= l_log_current_level) THEN
358: fnd_log.string(l_log_procedure,
359: L_DEBUG_KEY ||'.begin',
360: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
361: END IF;
362:

Line 388: fnd_log.string(l_log_statement, L_DEBUG_KEY , 'p_visit_id = ' || p_visit_id);

384: l_stage_id_end_dt_map_Tbl(l_stage_rec.stage_id) := l_stage_rec.planned_end_date;
385: END LOOP;
386:
387: IF (l_log_statement >= l_log_current_level) THEN
388: fnd_log.string(l_log_statement, L_DEBUG_KEY , 'p_visit_id = ' || p_visit_id);
389: END IF;
390:
391: --Loop through all the tasks of the visit
392: FOR l_task_rec IN get_visit_tasks( p_visit_id ) LOOP

Line 414: fnd_log.string(l_log_statement,

410: END IF;
411: /*END IF;*/
412:
413: IF (l_log_statement >= l_log_current_level) THEN
414: fnd_log.string(l_log_statement,
415: L_DEBUG_KEY , 'l_task_start_date = ' || to_char(l_task_start_date,'DD-MON-YY hh24:mi:ss'));
416: fnd_log.string(l_log_statement,
417: L_DEBUG_KEY , 'l_task_end_date = ' || to_char(l_task_end_date,'DD-MON-YY hh24:mi:ss'));
418: END IF;

Line 416: fnd_log.string(l_log_statement,

412:
413: IF (l_log_statement >= l_log_current_level) THEN
414: fnd_log.string(l_log_statement,
415: L_DEBUG_KEY , 'l_task_start_date = ' || to_char(l_task_start_date,'DD-MON-YY hh24:mi:ss'));
416: fnd_log.string(l_log_statement,
417: L_DEBUG_KEY , 'l_task_end_date = ' || to_char(l_task_end_date,'DD-MON-YY hh24:mi:ss'));
418: END IF;
419:
420: UPDATE AHL_VISIT_TASKS_B

Line 440: fnd_log.string(l_log_procedure,

436: p_encoded => Fnd_Api.g_false
437: );
438:
439: IF (l_log_procedure >= l_log_current_level) THEN
440: fnd_log.string(l_log_procedure,
441: L_DEBUG_KEY ||'.end',
442: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
443: END IF;
444:

Line 551: fnd_log.string(l_log_procedure,

547:
548: SAVEPOINT Adjust_Task_Times_pvt;
549:
550: IF (l_log_procedure >= l_log_current_level) THEN
551: fnd_log.string(l_log_procedure,
552: L_DEBUG_KEY ||'.begin',
553: 'At the start of PL SQL procedure. Task Id = ' || p_task_id);
554: END IF;
555:

Line 631: fnd_log.string(l_log_procedure,

627: p_encoded => Fnd_Api.g_false
628: );
629:
630: IF (l_log_procedure >= l_log_current_level) THEN
631: fnd_log.string(l_log_procedure,
632: L_DEBUG_KEY ||'.end',
633: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
634: END IF;
635:

Line 721: fnd_log.string(l_log_procedure,

717: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
718: --
719: BEGIN
720: IF (l_log_procedure >= l_log_current_level) THEN
721: fnd_log.string(l_log_procedure,
722: L_DEBUG_KEY ||'.begin',
723: 'At the start of PL SQL procedure. Visit Task Id = ' || p_task_id);
724: END IF;
725:

Line 777: fnd_log.string(l_log_statement,

773:
774: --4. Now derive the end date
775: l_end_date := compute_date(l_start_date, l_task_dept_id, l_task_duration);
776: IF (l_log_statement >= l_log_current_level) THEN
777: fnd_log.string(l_log_statement,
778: L_DEBUG_KEY,
779: 'Start Date = ' || l_start_date ||
780: '. End Date = ' || l_end_date);
781: END IF;

Line 804: fnd_log.string(l_log_statement,

800: LOOP
801: FETCH get_child_dependency_csr INTO l_child_task_id;
802: EXIT WHEN get_child_dependency_csr%NOTFOUND;
803: IF (l_log_statement >= l_log_current_level) THEN
804: fnd_log.string(l_log_statement,
805: L_DEBUG_KEY,
806: 'Calling child task: ' || l_child_task_id);
807: END IF;
808: Adjust_Task_Times_Internal(l_child_task_id);

Line 818: fnd_log.string(l_log_procedure,

814: END IF; --end found
815: CLOSE get_task_data_csr;
816:
817: IF (l_log_procedure >= l_log_current_level) THEN
818: fnd_log.string(l_log_procedure,
819: L_DEBUG_KEY ||'.end',
820: 'At the end of PL SQL procedure.');
821: END IF;
822:

Line 872: fnd_log.string(l_log_procedure,

868: BEGIN
869: SAVEPOINT Calculate_Times_for_dept_pvt;
870:
871: IF (l_log_procedure >= l_log_current_level) THEN
872: fnd_log.string(l_log_procedure,
873: L_DEBUG_KEY ||'.begin',
874: 'At the start of PL SQL procedure. Dept Id = ' || p_dept_id);
875: END IF;
876:

Line 897: fnd_log.string(l_log_statement,

893: FETCH get_all_visits_csr INTO l_visit_id;
894: EXIT WHEN get_all_visits_csr%NOTFOUND;
895:
896: IF (l_log_statement >= l_log_current_level) THEN
897: fnd_log.string(l_log_statement,
898: L_DEBUG_KEY,
899: 'Before calling CALCULATE_TASK_TIMES.');
900: END IF;
901:

Line 912: fnd_log.string(l_log_statement,

908: x_msg_data => x_msg_data,
909: p_visit_id => l_visit_id);
910:
911: IF (l_log_statement >= l_log_current_level) THEN
912: fnd_log.string(l_log_statement,
913: L_DEBUG_KEY,
914: 'After calling CALCULATE_TASK_TIMES. RETURN Status = ' ||
915: x_return_status);
916: END IF;

Line 920: fnd_log.string(l_log_statement,

916: END IF;
917:
918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
919: IF (l_log_statement >= l_log_current_level) THEN
920: fnd_log.string(l_log_statement,
921: L_DEBUG_KEY,
922: 'Errors from CALCULATE_TASK_TIMES. Message count: ' ||
923: x_msg_count || ', message data: ' || x_msg_data);
924: END IF;

Line 948: fnd_log.string(l_log_procedure,

944: p_encoded => Fnd_Api.g_false
945: );
946:
947: IF (l_log_procedure >= l_log_current_level) THEN
948: fnd_log.string(l_log_procedure,
949: L_DEBUG_KEY ||'.end',
950: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
951: END IF;
952:

Line 1041: fnd_log.string(l_log_procedure,

1037: --
1038: BEGIN
1039:
1040: IF (l_log_procedure >= l_log_current_level) THEN
1041: fnd_log.string(l_log_procedure,
1042: L_DEBUG_KEY ||'.begin',
1043: 'At the start of PL SQL function. Start Date = ' || p_start_date ||
1044: ', Department Id = ' || p_dept_id || ', Duration = ' || p_duration);
1045: END IF;

Line 1106: fnd_log.string(l_log_procedure,

1102:
1103: IF (p_duration = 0) THEN
1104: -- If duration is 0, RETURN the adjusted start date.
1105: IF (l_log_procedure >= l_log_current_level) THEN
1106: fnd_log.string(l_log_procedure,
1107: L_DEBUG_KEY ||'.end',
1108: 'At the end of PL SQL function. Start Date = ' || l_start_date);
1109: END IF;
1110: RETURN l_start_date;

Line 1225: fnd_log.string(l_log_procedure,

1221: END IF;
1222:
1223: --RETURN the derived end date.
1224: IF (l_log_procedure >= l_log_current_level) THEN
1225: fnd_log.string(l_log_procedure,
1226: L_DEBUG_KEY ||'.end',
1227: 'At the end of PL SQL function. End Date = ' || l_end_date);
1228: END IF;
1229: RETURN l_end_date;

Line 1273: fnd_log.string(l_log_procedure,

1269: --
1270: BEGIN
1271:
1272: IF (l_log_procedure >= l_log_current_level) THEN
1273: fnd_log.string(l_log_procedure,
1274: L_DEBUG_KEY ||'.begin',
1275: 'At the start of PL SQL procedure. Department Id = ' || p_department_id);
1276: END IF;
1277: -- Get the department informations

Line 1303: fnd_log.string(l_log_procedure,

1299: END LOOP;
1300: CLOSE l_exceptions_csr;
1301:
1302: IF (l_log_procedure >= l_log_current_level) THEN
1303: fnd_log.string(l_log_procedure,
1304: L_DEBUG_KEY ||'.end',
1305: 'At the end of PL SQL procedure.');
1306: END IF;
1307:

Line 1403: fnd_log.string(l_log_procedure,

1399:
1400: BEGIN
1401: -- Log API entry point
1402: IF (l_log_procedure >= l_log_current_level) THEN
1403: fnd_log.string(l_log_procedure,
1404: L_DEBUG_KEY ||'.begin',
1405: 'At the start of function. Route Id = ' || p_route_id || ' and Task Quantity = ' || p_vst_task_qty);
1406: END IF;
1407:

Line 1410: fnd_log.string(l_log_statement,

1406: END IF;
1407:
1408: IF (p_route_id IS NULL) THEN
1409: IF (l_log_statement >= l_log_current_level)THEN
1410: fnd_log.string(l_log_statement,
1411: L_DEBUG_KEY,
1412: 'Route Id is null.');
1413: END IF;
1414: RETURN 0;

Line 1422: fnd_log.string(l_log_statement,

1418: FETCH c_get_route_time_span INTO rt_time_span;
1419: CLOSE c_get_route_time_span;
1420:
1421: IF (l_log_statement >= l_log_current_level)THEN
1422: fnd_log.string(l_log_statement,
1423: L_DEBUG_KEY,
1424: 'Route time span = ' || rt_time_span || ', Visit task Quantity = ' || l_vst_task_qty);
1425: END IF;
1426:

Line 1429: fnd_log.string(l_log_statement,

1425: END IF;
1426:
1427: IF (nvl(l_vst_task_qty,1) = 1) THEN --serialized items
1428: IF (l_log_statement >= l_log_current_level)THEN
1429: fnd_log.string(l_log_statement,
1430: L_DEBUG_KEY,
1431: 'serialized item. rt_time_span = ' || rt_time_span);
1432: END IF;
1433: RETURN rt_time_span;

Line 1487: fnd_log.string(l_log_statement,

1483: rt_final_duration := total_opr_duration;
1484: END IF; --requirements exist at route level
1485:
1486: IF (l_log_statement >= l_log_current_level)THEN
1487: fnd_log.string(l_log_statement,
1488: L_DEBUG_KEY,
1489: 'Route Duration - ' ||rt_final_duration);
1490: END IF;
1491:

Line 1494: fnd_log.string(l_log_procedure,

1490: END IF;
1491:
1492: IF (rt_time_span >= rt_final_duration) THEN
1493: IF (l_log_procedure >= l_log_current_level) THEN
1494: fnd_log.string(l_log_procedure,
1495: L_DEBUG_KEY ||'.end',
1496: 'At the end of PL SQL function. non-serialized item. rt_time_span = ' || rt_time_span);
1497: END IF;
1498: RETURN rt_time_span;

Line 1501: fnd_log.string(l_log_procedure,

1497: END IF;
1498: RETURN rt_time_span;
1499: ELSE
1500: IF (l_log_procedure >= l_log_current_level) THEN
1501: fnd_log.string(l_log_procedure,
1502: L_DEBUG_KEY ||'.end',
1503: 'At the end of PL SQL function. non-serialized item. rt_final_duration = ' || rt_final_duration);
1504: END IF;
1505: RETURN rt_final_duration;

Line 1551: fnd_log.string(l_log_procedure,

1547: --
1548: BEGIN
1549:
1550: IF (l_log_procedure >= l_log_current_level) THEN
1551: fnd_log.string(l_log_procedure,
1552: L_DEBUG_KEY ||'.start',
1553: 'At the start of PL SQL function. ');
1554: END IF;
1555:

Line 1557: fnd_log.string(l_log_statement,

1553: 'At the start of PL SQL function. ');
1554: END IF;
1555:
1556: IF (l_log_statement >= l_log_current_level) THEN
1557: fnd_log.string(l_log_statement,
1558: L_DEBUG_KEY , ' Params: p_dept_id : '||p_dept_id||
1559: ', p_duration : '||p_duration||
1560: ', p_end_date : '||to_char(p_end_date,'dd:mm:yyyy hh24:mi:ss'));
1561: END IF;

Line 1622: fnd_log.string(l_log_procedure,

1618:
1619: IF (p_duration = 0) THEN
1620: -- If duration is 0, RETURN the adjusted start date.
1621: IF (l_log_procedure >= l_log_current_level) THEN
1622: fnd_log.string(l_log_procedure,
1623: L_DEBUG_KEY ||'.end',
1624: 'At the end of PL SQL function. Start Date = ' || to_char(l_end_date,'dd:mm:yyyy hh24:mi:ss'));
1625: END IF;
1626: RETURN l_end_date;

Line 1640: fnd_log.string(l_log_statement,

1636: l_shift_off_time := 1-(G_SHIFT_END-G_SHIFT_START);
1637: END IF;
1638:
1639: IF (l_log_statement >= l_log_current_level) THEN
1640: fnd_log.string(l_log_statement,
1641: L_DEBUG_KEY , ' l_shift_off_time : '||l_shift_off_time||' l_shift_duration:'||l_shift_duration);
1642: END IF;
1643:
1644: --Subtract duration days considering shift timings from end date

Line 1659: fnd_log.string(l_log_statement,

1655: l_start_date := l_start_date_wo_offset - MOD(p_duration/24, l_shift_duration);
1656: END IF;
1657:
1658: IF (l_log_statement >= l_log_current_level) THEN
1659: fnd_log.string(l_log_statement,
1660: L_DEBUG_KEY , ' l_start_date : '||to_char(l_start_date,'dd:mm:yyyy hh24:mi:ss')
1661: ||' l_start_date_wo_offset : '||to_char(l_start_date_wo_offset,'dd:mm:yyyy hh24:mi:ss'));
1662: END IF;
1663:

Line 1697: fnd_log.string(l_log_statement,

1693: FETCH get_holiday_csr INTO l_days_to_add;
1694: CLOSE get_holiday_csr;
1695:
1696: IF (l_log_statement >= l_log_current_level) THEN
1697: fnd_log.string(l_log_statement,
1698: L_DEBUG_KEY , ' l_days_to_add : '||l_days_to_add);
1699: END IF;
1700:
1701: WHILE (l_days_to_add > 0) LOOP

Line 1717: fnd_log.string(l_log_statement,

1713: END IF;
1714: END LOOP;
1715:
1716: IF (l_log_statement >= l_log_current_level) THEN
1717: fnd_log.string(l_log_statement,
1718: L_DEBUG_KEY , ' Before exact match correction l_start_date : '||to_char(l_start_date,'dd:mm:yyyy hh24:mi:ss')||
1719: ' trunc(l_start_date)+G_SHIFT_END : '||to_char(trunc(l_start_date)+G_SHIFT_END,'dd:mm:yyyy hh24:mi:ss'));
1720: END IF;
1721:

Line 1732: fnd_log.string(l_log_procedure,

1728: END IF;
1729: END IF;
1730:
1731: IF (l_log_procedure >= l_log_current_level) THEN
1732: fnd_log.string(l_log_procedure,
1733: L_DEBUG_KEY ||'.end',
1734: 'At the end of PL SQL function. Start Date = ' || to_char(l_start_date,'dd:mm:yyyy hh24:mi:ss'));
1735: END IF;
1736: