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.AHL_WARRANTY_ENTL_PVT dependencies on FND_LOG

Line 10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;

6:
7: ------------------------------------------------------------------------------------
8: -- Common constants and variables
9: ------------------------------------------------------------------------------------
10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;

Line 11: l_log_statement NUMBER := FND_LOG.level_statement;

7: ------------------------------------------------------------------------------------
8: -- Common constants and variables
9: ------------------------------------------------------------------------------------
10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;
15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;

Line 12: l_log_procedure NUMBER := FND_LOG.level_procedure;

8: -- Common constants and variables
9: ------------------------------------------------------------------------------------
10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;
15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
16: ------------------------------------------------------------------------------------

Line 13: l_log_error NUMBER := FND_LOG.level_error;

9: ------------------------------------------------------------------------------------
10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;
15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
16: ------------------------------------------------------------------------------------
17:

Line 14: l_log_exception NUMBER := FND_LOG.level_exception;

10: l_log_current_level NUMBER := FND_LOG.g_current_runtime_level;
11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;
15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
16: ------------------------------------------------------------------------------------
17:
18: ------------------------------------------------------------------------------------

Line 15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;

11: l_log_statement NUMBER := FND_LOG.level_statement;
12: l_log_procedure NUMBER := FND_LOG.level_procedure;
13: l_log_error NUMBER := FND_LOG.level_error;
14: l_log_exception NUMBER := FND_LOG.level_exception;
15: l_log_unexpected NUMBER := FND_LOG.level_unexpected;
16: ------------------------------------------------------------------------------------
17:
18: ------------------------------------------------------------------------------------
19: -- Private procedure prototypes

Line 97: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');

93: --
94:
95: BEGIN
96: IF (l_log_procedure >= l_log_current_level) THEN
97: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
98: END IF;
99:
100: -- Standard start of API savepoint
101: SAVEPOINT Process_Warranty_Entl_Pub;

Line 118: FND_LOG.string(l_log_statement, l_full_name, 'l_warranty_entl_tbl.COUNT = '|| l_warranty_entl_tbl.COUNT);

114: -- Initialize Procedure return status to success
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117: IF (l_log_statement >= l_log_current_level) THEN
118: FND_LOG.string(l_log_statement, l_full_name, 'l_warranty_entl_tbl.COUNT = '|| l_warranty_entl_tbl.COUNT);
119: END IF;
120:
121: -- Get the error message count till this point
122: l_msg_count := FND_MSG_PUB.count_msg;

Line 129: FND_LOG.string(l_log_statement, l_full_name, 'operation '||l_warranty_entl_tbl(i).operation_flag||

125: IF (l_warranty_entl_tbl.COUNT >= 1) THEN
126: FOR i IN l_warranty_entl_tbl.FIRST..l_warranty_entl_tbl.LAST LOOP
127:
128: IF (l_log_statement >= l_log_current_level) THEN
129: FND_LOG.string(l_log_statement, l_full_name, 'operation '||l_warranty_entl_tbl(i).operation_flag||
130: ' for record# '||i);
131: END IF;
132:
133: -- Check for the operation associated to the record.

Line 170: FND_LOG.string(l_log_statement, l_full_name, 'Process_Warranty_Entitlements errored out');

166:
167: -- If any errors occured, then raise them
168: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
169: IF (l_log_statement >= l_log_current_level) THEN
170: FND_LOG.string(l_log_statement, l_full_name, 'Process_Warranty_Entitlements errored out');
171: END IF;
172: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:

Line 181: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');

177: COMMIT WORK;
178: END IF;
179:
180: IF (l_log_procedure >= l_log_current_level) THEN
181: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
182: END IF;
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN

Line 192: FND_LOG.string(l_log_exception, l_full_name, 'Execution Error: ' || x_msg_data);

188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
189: p_data => x_msg_data,
190: p_encoded => FND_API.G_FALSE);
191: IF (l_log_exception >= l_log_current_level) THEN
192: FND_LOG.string(l_log_exception, l_full_name, 'Execution Error: ' || x_msg_data);
193: END IF;
194:
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: ROLLBACK TO Process_Warranty_Entl_Pub;

Line 202: FND_LOG.string(l_log_unexpected, l_full_name, 'Unexpected Exception: ' || x_msg_data);

198: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
199: p_data => x_msg_data,
200: p_encoded => FND_API.G_FALSE);
201: IF (l_log_unexpected >= l_log_current_level) THEN
202: FND_LOG.string(l_log_unexpected, l_full_name, 'Unexpected Exception: ' || x_msg_data);
203: END IF;
204:
205: WHEN OTHERS THEN
206: ROLLBACK TO Process_Warranty_Entl_Pub;

Line 217: FND_LOG.string(l_log_unexpected, l_full_name, 'Other Exception: ' || x_msg_data);

213: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
214: p_data => x_msg_data,
215: p_encoded => fnd_api.G_FALSE);
216: IF (l_log_unexpected >= l_log_current_level) THEN
217: FND_LOG.string(l_log_unexpected, l_full_name, 'Other Exception: ' || x_msg_data);
218: END IF;
219:
220: END Process_Warranty_Entitlements;
221: ------------------------------------------------------------------------------------

Line 331: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');

327: --
328:
329: BEGIN
330: IF (l_log_procedure >= l_log_current_level) THEN
331: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
332: END IF;
333:
334: -- initialize procedure return status to success
335: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 338: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||

334: -- initialize procedure return status to success
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336:
337: IF (l_log_statement >= l_log_current_level) THEN
338: FND_LOG.string(l_log_statement, l_full_name, 'the arguments: '||
339: ' p_entitlement_id > '||p_entitlement_id||
340: ', p_commit > '||p_commit);
341: END IF;
342:

Line 363: FND_LOG.string(l_log_statement, l_full_name, 'the returned values from AHL_UTILITY_PVT.Get_WF_Process_Name : '||

359: x_msg_data => l_msg_data,
360: x_return_status => x_return_status);
361:
362: IF (l_log_statement >= l_log_current_level) THEN
363: FND_LOG.string(l_log_statement, l_full_name, 'the returned values from AHL_UTILITY_PVT.Get_WF_Process_Name : '||
364: ' l_active_flag > '||l_active_flag||
365: ', l_process_name > '||l_process_name||
366: ', l_item_type > '||l_item_type||
367: ', x_return_status > '||x_return_status);

Line 381: FND_LOG.string(l_log_statement, l_full_name,

377: -- get the subject text
378: l_subject := FND_MESSAGE.GET_STRING(G_APP_NAME, G_WARRANTY_ENTL_SBJ);
379:
380: IF (l_log_statement >= l_log_current_level) THEN
381: FND_LOG.string(l_log_statement, l_full_name,
382: 'before calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification with arguments: '||
383: ' p_object > '||G_WF_ENTL_OBJ||
384: ', p_process_name > '||l_process_name||
385: ', p_item_type > '||l_item_type||

Line 405: FND_LOG.string(l_log_statement, l_full_name,

401: x_item_key => x_item_key,
402: x_return_status => x_return_status);
403:
404: IF (l_log_statement >= l_log_current_level) THEN
405: FND_LOG.string(l_log_statement, l_full_name,
406: 'after calling AHL_WF_NOTIFICATION_PVT.Launch_OA_Notification, '||
407: ' x_item_key > '||x_item_key||
408: ', x_return_status > '||x_return_status);
409: END IF;

Line 423: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');

419: COMMIT WORK;
420: END IF;
421:
422: IF (l_log_procedure >= l_log_current_level) THEN
423: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
424: END IF;
425:
426: END Launch_Entl_Notification;
427: ------------------------------------------------------------------------------------

Line 777: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

773: --
774:
775: BEGIN
776: IF (l_log_procedure >= l_log_current_level) THEN
777: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
778: END IF;
779:
780: IF (l_log_statement >= l_log_current_level) THEN
781: FND_LOG.string(l_log_statement, l_full_name, 'p_entitlement_id > '||p_entitlement_id);

Line 781: FND_LOG.string(l_log_statement, l_full_name, 'p_entitlement_id > '||p_entitlement_id);

777: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
778: END IF;
779:
780: IF (l_log_statement >= l_log_current_level) THEN
781: FND_LOG.string(l_log_statement, l_full_name, 'p_entitlement_id > '||p_entitlement_id);
782: END IF;
783:
784: -- get the instance id from the visit task id
785: OPEN get_visit_task_inst_csr(p_entitlement_id);

Line 790: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);

786: FETCH get_visit_task_inst_csr INTO l_ret_val;
787: CLOSE get_visit_task_inst_csr;
788:
789: IF (l_log_statement >= l_log_current_level) THEN
790: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
791: END IF;
792:
793: -- if not found, then get the instance id from the OSP order line id
794: IF (l_ret_val IS NULL) THEN

Line 801: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);

797: CLOSE get_osp_line_inst_csr;
798: END IF;
799:
800: IF (l_log_statement >= l_log_current_level) THEN
801: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
802: END IF;
803:
804: IF (l_log_procedure >= l_log_current_level) THEN
805: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 805: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

801: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
802: END IF;
803:
804: IF (l_log_procedure >= l_log_current_level) THEN
805: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
806: END IF;
807:
808: RETURN l_ret_val;
809:

Line 848: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

844: --
845:
846: BEGIN
847: IF (l_log_procedure >= l_log_current_level) THEN
848: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
849: END IF;
850:
851: IF (l_log_statement >= l_log_current_level) THEN
852: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

Line 852: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

848: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
849: END IF;
850:
851: IF (l_log_statement >= l_log_current_level) THEN
852: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);
853: END IF;
854:
855: -- get the OSP order number for the given OSP line id
856: OPEN get_osp_order_number_csr(p_osp_line_id);

Line 861: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);

857: FETCH get_osp_order_number_csr INTO l_ret_val;
858: CLOSE get_osp_order_number_csr;
859:
860: IF (l_log_statement >= l_log_current_level) THEN
861: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
862: END IF;
863:
864: IF (l_log_procedure >= l_log_current_level) THEN
865: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 865: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

861: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
862: END IF;
863:
864: IF (l_log_procedure >= l_log_current_level) THEN
865: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
866: END IF;
867:
868: RETURN l_ret_val;
869:

Line 907: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

903: --
904:
905: BEGIN
906: IF (l_log_procedure >= l_log_current_level) THEN
907: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
908: END IF;
909:
910: IF (l_log_statement >= l_log_current_level) THEN
911: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

Line 911: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

907: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
908: END IF;
909:
910: IF (l_log_statement >= l_log_current_level) THEN
911: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);
912: END IF;
913:
914: -- get the OSP line number for the given OSP line id
915: OPEN get_osp_line_number_csr(p_osp_line_id);

Line 920: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);

916: FETCH get_osp_line_number_csr INTO l_ret_val;
917: CLOSE get_osp_line_number_csr;
918:
919: IF (l_log_statement >= l_log_current_level) THEN
920: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
921: END IF;
922:
923: IF (l_log_procedure >= l_log_current_level) THEN
924: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 924: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

920: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
921: END IF;
922:
923: IF (l_log_procedure >= l_log_current_level) THEN
924: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
925: END IF;
926:
927: RETURN l_ret_val;
928:

Line 968: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

964: --
965:
966: BEGIN
967: IF (l_log_procedure >= l_log_current_level) THEN
968: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
969: END IF;
970:
971: IF (l_log_statement >= l_log_current_level) THEN
972: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

Line 972: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);

968: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
969: END IF;
970:
971: IF (l_log_statement >= l_log_current_level) THEN
972: FND_LOG.string(l_log_statement, l_full_name, 'p_osp_line_id > '||p_osp_line_id);
973: END IF;
974:
975: -- get the OSP line status for the given OSP line id
976: OPEN get_osp_line_status_csr(p_osp_line_id);

Line 981: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);

977: FETCH get_osp_line_status_csr INTO l_ret_val;
978: CLOSE get_osp_line_status_csr;
979:
980: IF (l_log_statement >= l_log_current_level) THEN
981: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
982: END IF;
983:
984: IF (l_log_procedure >= l_log_current_level) THEN
985: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 985: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

981: FND_LOG.string(l_log_statement, l_full_name, 'l_ret_val > '||l_ret_val);
982: END IF;
983:
984: IF (l_log_procedure >= l_log_current_level) THEN
985: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
986: END IF;
987:
988: RETURN l_ret_val;
989:

Line 1017: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

1013: --
1014:
1015: BEGIN
1016: IF (l_log_procedure >= l_log_current_level) THEN
1017: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1018: END IF;
1019:
1020: -- module type check commented for present requirements. can be used in future
1021: -- IF (p_module_type = 'JSP') THEN

Line 1117: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for create had errors');

1113:
1114: -- if any errors occured, then don't proceed any further
1115: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1116: IF (l_log_statement >= l_log_current_level) THEN
1117: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for create had errors');
1118: END IF;
1119: RETURN;
1120: END IF;
1121:

Line 1141: FND_LOG.string(l_log_statement, l_full_name, 'Before Insert_Row');

1137: l_contract_id := NULL;
1138: END IF;
1139:
1140: IF (l_log_statement >= l_log_current_level) THEN
1141: FND_LOG.string(l_log_statement, l_full_name, 'Before Insert_Row');
1142: END IF;
1143:
1144: AHL_WARRANTY_ENTITLEMENTS_PKG.Insert_Row(
1145: x_row_id => l_dummy_char,

Line 1184: FND_LOG.string(l_log_statement, l_full_name, 'After Insert_Row');

1180: x_last_update_login => p_x_warranty_entl_rec.last_update_login
1181: );
1182:
1183: IF (l_log_statement >= l_log_current_level) THEN
1184: FND_LOG.string(l_log_statement, l_full_name, 'After Insert_Row');
1185: END IF;
1186:
1187: -- for non-planner user and Approval Pending status creation, launch the notification
1188: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND

Line 1191: FND_LOG.string(l_log_statement, l_full_name,

1187: -- for non-planner user and Approval Pending status creation, launch the notification
1188: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND
1189: NVL(p_x_warranty_entl_rec.entitlement_status_code, 'X') = 'APPROVAL_PENDING') THEN
1190: IF (l_log_statement >= l_log_current_level) THEN
1191: FND_LOG.string(l_log_statement, l_full_name,
1192: 'before calling Launch_Entl_Notification with arguments: '||
1193: ' p_entitlement_id > '||p_x_warranty_entl_rec.warranty_entitlement_id);
1194: END IF;
1195:

Line 1205: FND_LOG.string(l_log_statement, l_full_name,

1201: x_item_key => l_item_key,
1202: x_return_status => l_return_status);
1203:
1204: IF (l_log_statement >= l_log_current_level) THEN
1205: FND_LOG.string(l_log_statement, l_full_name,
1206: 'after calling Launch_Entl_Notification, '||
1207: ' l_item_key > '||l_item_key||
1208: ', l_return_status'||l_return_status);
1209: END IF;

Line 1213: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

1209: END IF;
1210: END IF;
1211:
1212: IF (l_log_procedure >= l_log_current_level) THEN
1213: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
1214: END IF;
1215: END Create_Warranty_Entitlement;
1216: ------------------------------------------------------------------------------------
1217:

Line 1243: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

1239: --
1240:
1241: BEGIN
1242: IF (l_log_procedure >= l_log_current_level) THEN
1243: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1244: END IF;
1245:
1246: OPEN warranty_entl_csr(p_x_warranty_entl_rec.warranty_entitlement_id);
1247: FETCH warranty_entl_csr INTO l_warranty_entl_rec;

Line 1251: FND_LOG.string(l_log_statement, l_full_name, 'invalid entitlement id for update');

1247: FETCH warranty_entl_csr INTO l_warranty_entl_rec;
1248: IF (warranty_entl_csr%NOTFOUND) THEN
1249: -- invalid entitlement id
1250: IF (l_log_statement >= l_log_current_level) THEN
1251: FND_LOG.string(l_log_statement, l_full_name, 'invalid entitlement id for update');
1252: END IF;
1253: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_ID_INVLD'); -- Warranty entitlement id ENTL_ID is invalid.
1254: FND_MESSAGE.Set_Token('ENTL_ID', p_x_warranty_entl_rec.warranty_entitlement_id);
1255: FND_MSG_PUB.ADD;

Line 1263: FND_LOG.string(l_log_statement, l_full_name, 'object_version_number mismatch');

1259:
1260: -- check for object_version_number
1261: IF (p_x_warranty_entl_rec.object_version_number <> l_warranty_entl_rec.object_version_number) THEN
1262: IF (l_log_statement >= l_log_current_level) THEN
1263: FND_LOG.string(l_log_statement, l_full_name, 'object_version_number mismatch');
1264: END IF;
1265: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_COM_RECORD_CHANGED'); -- Record has been modified by another user.
1266: FND_MSG_PUB.ADD;
1267: RETURN;

Line 1421: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for update had errors');

1417:
1418: -- if any errors occured, then don't proceed any further
1419: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1420: IF (l_log_statement >= l_log_current_level) THEN
1421: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for update had errors');
1422: END IF;
1423: RETURN;
1424: END IF;
1425:

Line 1441: FND_LOG.string(l_log_statement, l_full_name, 'Before Update_Row');

1437: l_contract_id := l_warranty_entl_rec.old_warranty_contract_id;
1438: END IF;
1439:
1440: IF (l_log_statement >= l_log_current_level) THEN
1441: FND_LOG.string(l_log_statement, l_full_name, 'Before Update_Row');
1442: END IF;
1443:
1444: AHL_WARRANTY_ENTITLEMENTS_PKG.Update_Row(
1445: x_warranty_entitlement_id => p_x_warranty_entl_rec.warranty_entitlement_id,

Line 1481: FND_LOG.string(l_log_statement, l_full_name, 'After Update_Row');

1477: x_last_update_login => p_x_warranty_entl_rec.last_update_login
1478: );
1479:
1480: IF (l_log_statement >= l_log_current_level) THEN
1481: FND_LOG.string(l_log_statement, l_full_name, 'After Update_Row');
1482: END IF;
1483:
1484: -- for non-planner user and Approval Pending status update, launch the notification
1485: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND

Line 1488: FND_LOG.string(l_log_statement, l_full_name,

1484: -- for non-planner user and Approval Pending status update, launch the notification
1485: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND
1486: NVL(p_x_warranty_entl_rec.entitlement_status_code, 'X') = 'APPROVAL_PENDING') THEN
1487: IF (l_log_statement >= l_log_current_level) THEN
1488: FND_LOG.string(l_log_statement, l_full_name,
1489: 'before calling Launch_Entl_Notification with arguments: '||
1490: ' p_entitlement_id > '||p_x_warranty_entl_rec.warranty_entitlement_id);
1491: END IF;
1492:

Line 1502: FND_LOG.string(l_log_statement, l_full_name,

1498: x_item_key => l_item_key,
1499: x_return_status => l_return_status);
1500:
1501: IF (l_log_statement >= l_log_current_level) THEN
1502: FND_LOG.string(l_log_statement, l_full_name,
1503: 'after calling Launch_Entl_Notification, '||
1504: ' l_item_key > '||l_item_key||
1505: ', l_return_status'||l_return_status);
1506: END IF;

Line 1510: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

1506: END IF;
1507: END IF;
1508:
1509: IF (l_log_procedure >= l_log_current_level) THEN
1510: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
1511: END IF;
1512: END Update_Warranty_Entitlement;
1513: ------------------------------------------------------------------------------------
1514:

Line 1529: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

1525: --
1526:
1527: BEGIN
1528: IF (l_log_procedure >= l_log_current_level) THEN
1529: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1530: END IF;
1531:
1532: -- check if the user is planner or not
1533: IF (NVL(p_user_role, 'X') <> G_USER_PLANNER) THEN

Line 1535: FND_LOG.string(l_log_statement, l_full_name, 'deletion permitted only to planner user');

1531:
1532: -- check if the user is planner or not
1533: IF (NVL(p_user_role, 'X') <> G_USER_PLANNER) THEN
1534: IF (l_log_statement >= l_log_current_level) THEN
1535: FND_LOG.string(l_log_statement, l_full_name, 'deletion permitted only to planner user');
1536: END IF;
1537: -- Warranty entitlement deletion is allowed only to the planner or the administrator.
1538: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_DEL_NOT_ALWD');
1539: FND_MSG_PUB.ADD;

Line 1544: FND_LOG.string(l_log_statement, l_full_name, 'Before Delete_Row');

1540: RETURN;
1541: END IF;
1542:
1543: IF (l_log_statement >= l_log_current_level) THEN
1544: FND_LOG.string(l_log_statement, l_full_name, 'Before Delete_Row');
1545: END IF;
1546:
1547: -- delete row
1548: AHL_WARRANTY_ENTITLEMENTS_PKG.Delete_Row(

Line 1553: FND_LOG.string(l_log_statement, l_full_name, 'After Delete_Row');

1549: x_warranty_entitlement_id => p_x_warranty_entl_rec.warranty_entitlement_id
1550: );
1551:
1552: IF (l_log_statement >= l_log_current_level) THEN
1553: FND_LOG.string(l_log_statement, l_full_name, 'After Delete_Row');
1554: END IF;
1555:
1556: IF (l_log_procedure >= l_log_current_level) THEN
1557: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 1557: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

1553: FND_LOG.string(l_log_statement, l_full_name, 'After Delete_Row');
1554: END IF;
1555:
1556: IF (l_log_procedure >= l_log_current_level) THEN
1557: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
1558: END IF;
1559: END Delete_Warranty_Entitlement;
1560: ------------------------------------------------------------------------------------
1561:

Line 1594: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

1590: --
1591:
1592: BEGIN
1593: IF (l_log_procedure >= l_log_current_level) THEN
1594: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1595: END IF;
1596:
1597: -- get the error message count till this point
1598: l_msg_count := FND_MSG_PUB.count_msg;

Line 1606: FND_LOG.string(l_log_statement, l_full_name,

1602: FETCH warranty_entl_csr INTO l_warranty_entl_rec;
1603: IF (warranty_entl_csr%NOTFOUND) THEN
1604: -- invalid entitlement id
1605: IF (l_log_statement >= l_log_current_level) THEN
1606: FND_LOG.string(l_log_statement, l_full_name,
1607: 'invalid entitlement id for approve '||p_x_warranty_entl_rec.warranty_entitlement_id);
1608: END IF;
1609: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_ID_INVLD'); -- Warranty entitlement id ENTL_ID is invalid.
1610: FND_MESSAGE.Set_Token('ENTL_ID', p_x_warranty_entl_rec.warranty_entitlement_id);

Line 1619: FND_LOG.string(l_log_statement, l_full_name,

1615: -- check for the user
1616: IF (NVL(p_user_role, 'X') <> G_USER_PLANNER) THEN
1617: -- invalid user
1618: IF (l_log_statement >= l_log_current_level) THEN
1619: FND_LOG.string(l_log_statement, l_full_name,
1620: 'invalid user for approve '||p_user_role);
1621: END IF;
1622: -- Warranty entitlement approval is allowed only to the administrator.
1623: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_USER_INVLD');

Line 1631: FND_LOG.string(l_log_statement, l_full_name,

1627: -- check for the approval action
1628: IF (NVL(p_appr_action, 'X') NOT IN (G_APPR_ACCEPT, G_APPR_REJECT)) THEN
1629: -- invalid approval action
1630: IF (l_log_statement >= l_log_current_level) THEN
1631: FND_LOG.string(l_log_statement, l_full_name,
1632: 'invalid approval action '||p_appr_action);
1633: END IF;
1634: -- Warranty entitlement approval action can only be Accept or Reject.
1635: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_ACTION_INVLD');

Line 1643: FND_LOG.string(l_log_statement, l_full_name,

1639: -- check for the entitlement status
1640: IF (NVL(p_x_warranty_entl_rec.entitlement_status_code, 'X') <> 'APPROVAL_PENDING') THEN
1641: -- invalid entitlement status
1642: IF (l_log_statement >= l_log_current_level) THEN
1643: FND_LOG.string(l_log_statement, l_full_name,
1644: 'invalid entitlement status for approve '||p_x_warranty_entl_rec.entitlement_status_code);
1645: END IF;
1646: -- For approval operation, the warranty entitlement status can only be Approval Pending.
1647: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_STS_INVLD');

Line 1660: FND_LOG.string(l_log_statement, l_full_name,

1656: IF ((NVL(p_appr_action, 'X') = G_APPR_ACCEPT AND p_x_warranty_entl_rec.warranty_contract_id IS NULL) OR
1657: (NVL(p_appr_action, 'X') = G_APPR_REJECT AND l_warranty_entl_rec.old_warranty_contract_id IS NULL)) THEN
1658: -- use Not Applicable button instead
1659: IF (l_log_statement >= l_log_current_level) THEN
1660: FND_LOG.string(l_log_statement, l_full_name,
1661: 'Not Applicable button should be used instead');
1662: END IF;
1663: -- For dis-associating the warranty entitlement from a contract, use the Not Applicable action.
1664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_USE_NA');

Line 1674: FND_LOG.string(l_log_statement, l_full_name, 'approval errored out, no need to validate contract id');

1670: -- 2) for Reject, validate the old contract
1671: -- NOTE: point 2 above is not needed, but retaining it for code consistency
1672: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1673: IF (l_log_statement >= l_log_current_level) THEN
1674: FND_LOG.string(l_log_statement, l_full_name, 'approval errored out, no need to validate contract id');
1675: END IF;
1676: RETURN;
1677: END IF;
1678: IF (p_appr_action = G_APPR_ACCEPT) THEN

Line 1687: FND_LOG.string(l_log_statement, l_full_name,

1683: OPEN chk_war_cont_id_csr (l_contract_id);
1684: FETCH chk_war_cont_id_csr INTO l_dummy;
1685: IF (chk_war_cont_id_csr%NOTFOUND) THEN
1686: IF (l_log_statement >= l_log_current_level) THEN
1687: FND_LOG.string(l_log_statement, l_full_name,
1688: 'invalid contract id '||l_contract_id);
1689: END IF;
1690: -- Warranty contract id CONT_ID is invalid.
1691: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CONT_ID_INVLD');

Line 1701: FND_LOG.string(l_log_statement, l_full_name, 'approval status transition errored out');

1697:
1698: -- if any errors occured, then don't proceed any further
1699: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1700: IF (l_log_statement >= l_log_current_level) THEN
1701: FND_LOG.string(l_log_statement, l_full_name, 'approval status transition errored out');
1702: END IF;
1703: RETURN;
1704: END IF;
1705:

Line 1707: FND_LOG.string(l_log_statement, l_full_name, 'Before approval update');

1703: RETURN;
1704: END IF;
1705:
1706: IF (l_log_statement >= l_log_current_level) THEN
1707: FND_LOG.string(l_log_statement, l_full_name, 'Before approval update');
1708: END IF;
1709:
1710: -- update the warranty contract id, old contract id and the status
1711: UPDATE AHL_WARRANTY_ENTITLEMENTS SET

Line 1718: FND_LOG.string(l_log_statement, l_full_name, 'After approval update');

1714: entitlement_status_code = l_entl_status
1715: WHERE warranty_entitlement_id = p_x_warranty_entl_rec.warranty_entitlement_id;
1716:
1717: IF (l_log_statement >= l_log_current_level) THEN
1718: FND_LOG.string(l_log_statement, l_full_name, 'After approval update');
1719: END IF;
1720:
1721: IF (l_log_procedure >= l_log_current_level) THEN
1722: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

Line 1722: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

1718: FND_LOG.string(l_log_statement, l_full_name, 'After approval update');
1719: END IF;
1720:
1721: IF (l_log_procedure >= l_log_current_level) THEN
1722: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
1723: END IF;
1724: END Approve_Warranty_Entitlement;
1725: ------------------------------------------------------------------------------------
1726:

Line 1783: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');

1779: --
1780:
1781: BEGIN
1782: IF (l_log_procedure >= l_log_current_level) THEN
1783: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1784: END IF;
1785:
1786: -- Check: Non-planner user can create or update entitlement only in Approval Pending status
1787: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND

Line 1790: FND_LOG.string(l_log_statement, l_full_name,

1786: -- Check: Non-planner user can create or update entitlement only in Approval Pending status
1787: IF (NVL(p_user_role, 'X') = G_USER_NONPLANNER AND
1788: NVL(p_warranty_entl_rec.entitlement_status_code, 'X') <> 'APPROVAL_PENDING') THEN
1789: IF (l_log_statement >= l_log_current_level) THEN
1790: FND_LOG.string(l_log_statement, l_full_name,
1791: 'non-planner with incorrect status '||p_warranty_entl_rec.entitlement_status_code);
1792: END IF;
1793: -- Non-planner or non-administrator can create or update warranty entitlement only in Approval Pending status.
1794: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_NP_STS_INVLD');

Line 1802: FND_LOG.string(l_log_statement, l_full_name,

1798: -- Check: Not Applicable or Review status is allowed only for NULL contract id
1799: IF (NVL(p_warranty_entl_rec.entitlement_status_code, 'X') IN ('NOT_APPLICABLE', 'REVIEW') AND
1800: p_warranty_entl_rec.warranty_contract_id IS NOT NULL) THEN
1801: IF (l_log_statement >= l_log_current_level) THEN
1802: FND_LOG.string(l_log_statement, l_full_name,
1803: 'Not Applicable or Review status is allowed only for NULL contract id');
1804: END IF;
1805: -- Warranty entitlement can have status Not Applicable or Review only if it has no contract associated to it.
1806: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_NAR_STS_INVLD');

Line 1814: FND_LOG.string(l_log_statement, l_full_name,

1810: -- Check: Approved status is allowed only for non-NULL contract id
1811: IF (NVL(p_warranty_entl_rec.entitlement_status_code, 'X') = 'APPROVED' AND
1812: p_warranty_entl_rec.warranty_contract_id IS NULL) THEN
1813: IF (l_log_statement >= l_log_current_level) THEN
1814: FND_LOG.string(l_log_statement, l_full_name,
1815: 'Approved status is allowed only for non-NULL contract id');
1816: END IF;
1817: -- Warranty entitlement can have status Approved only if it has a valid contract associated to it.
1818: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APRD_STS_INVLD');

Line 1830: FND_LOG.string(l_log_statement, l_full_name,

1826: OPEN chk_war_cont_id_csr (p_warranty_entl_rec.warranty_contract_id);
1827: FETCH chk_war_cont_id_csr INTO l_dummy;
1828: IF (chk_war_cont_id_csr%NOTFOUND) THEN
1829: IF (l_log_statement >= l_log_current_level) THEN
1830: FND_LOG.string(l_log_statement, l_full_name,
1831: 'invalid contract id '||p_warranty_entl_rec.warranty_contract_id);
1832: END IF;
1833: -- Warranty contract id CONT_ID is invalid.
1834: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CONT_ID_INVLD');

Line 1847: FND_LOG.string(l_log_statement, l_full_name,

1843: OPEN chk_entl_sts_code_csr (p_warranty_entl_rec.entitlement_status_code);
1844: FETCH chk_entl_sts_code_csr INTO l_dummy;
1845: IF (chk_entl_sts_code_csr%NOTFOUND) THEN
1846: IF (l_log_statement >= l_log_current_level) THEN
1847: FND_LOG.string(l_log_statement, l_full_name,
1848: 'invalid entitlement status code '||p_warranty_entl_rec.entitlement_status_code);
1849: END IF;
1850: -- Warranty entitlement status code ENTL_STS is invalid.
1851: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_STS_INVLD');

Line 1864: FND_LOG.string(l_log_statement, l_full_name,

1860: OPEN chk_claim_id_csr (p_warranty_entl_rec.warranty_claim_id);
1861: FETCH chk_claim_id_csr INTO l_dummy;
1862: IF (chk_claim_id_csr%NOTFOUND) THEN
1863: IF (l_log_statement >= l_log_current_level) THEN
1864: FND_LOG.string(l_log_statement, l_full_name,
1865: 'invalid claim id '||p_warranty_entl_rec.warranty_claim_id);
1866: END IF;
1867: -- Warranty entitlement claim id CLAIM_ID is invalid.
1868: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CLAIM_ID_INVLD');

Line 1881: FND_LOG.string(l_log_statement, l_full_name,

1877: OPEN chk_incident_id_csr (p_warranty_entl_rec.sr_incident_id);
1878: FETCH chk_incident_id_csr INTO l_dummy;
1879: IF (chk_incident_id_csr%NOTFOUND) THEN
1880: IF (l_log_statement >= l_log_current_level) THEN
1881: FND_LOG.string(l_log_statement, l_full_name,
1882: 'invalid SR id '||p_warranty_entl_rec.sr_incident_id);
1883: END IF;
1884: -- The incident id 'INCIDENT_ID' is not valid.
1885: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');

Line 1898: FND_LOG.string(l_log_statement, l_full_name,

1894: OPEN chk_visit_tsk_id_csr (p_warranty_entl_rec.visit_task_id);
1895: FETCH chk_visit_tsk_id_csr INTO l_dummy;
1896: IF (chk_visit_tsk_id_csr%NOTFOUND) THEN
1897: IF (l_log_statement >= l_log_current_level) THEN
1898: FND_LOG.string(l_log_statement, l_full_name,
1899: 'invalid visit task id '||p_warranty_entl_rec.visit_task_id);
1900: END IF;
1901: -- Visit task TASK_ID is invalid.
1902: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_LTP_TASK_ID_INVALID');

Line 1915: FND_LOG.string(l_log_statement, l_full_name,

1911: OPEN chk_workorder_id_csr (p_warranty_entl_rec.workorder_id);
1912: FETCH chk_workorder_id_csr INTO l_dummy;
1913: IF (chk_workorder_id_csr%NOTFOUND) THEN
1914: IF (l_log_statement >= l_log_current_level) THEN
1915: FND_LOG.string(l_log_statement, l_full_name,
1916: 'invalid workorder id '||p_warranty_entl_rec.workorder_id);
1917: END IF;
1918: -- Workorder id FIELD1 invalid.
1919: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_WORKORDER_ID_INVALID');

Line 1932: FND_LOG.string(l_log_statement, l_full_name,

1928: OPEN chk_osp_line_id_csr (p_warranty_entl_rec.osp_order_line_id);
1929: FETCH chk_osp_line_id_csr INTO l_dummy;
1930: IF (chk_osp_line_id_csr%NOTFOUND) THEN
1931: IF (l_log_statement >= l_log_current_level) THEN
1932: FND_LOG.string(l_log_statement, l_full_name,
1933: 'invalid OSP order line id '||p_warranty_entl_rec.osp_order_line_id);
1934: END IF;
1935: -- OSP order line id OLINE_ID is invalid.
1936: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_OLINE_ID_INVLD');

Line 1945: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');

1941: END IF;
1942: -- ***************************************
1943:
1944: IF (l_log_procedure >= l_log_current_level) THEN
1945: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'Exiting Procedure');
1946: END IF;
1947: END Validate_Warranty_Entitlement;
1948: ------------------------------------------------------------------------------------
1949: