[Home] [Help]
77: -- passed but the workorder and operation is passed, then the login is at operation level.
78: -- If resource details are passed, then login is at the operation and resource level.
79: --
80: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: p_module_type IN VARCHAR2 := NULL,
85: x_return_status OUT NOCOPY VARCHAR2,
78: -- If resource details are passed, then login is at the operation and resource level.
79: --
80: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: p_module_type IN VARCHAR2 := NULL,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
79: --
80: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
81: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82: p_commit IN VARCHAR2 := FND_API.G_FALSE,
83: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
84: p_module_type IN VARCHAR2 := NULL,
85: x_return_status OUT NOCOPY VARCHAR2,
86: x_msg_count OUT NOCOPY NUMBER,
87: x_msg_data OUT NOCOPY VARCHAR2,
126: 'At the start of PLSQL procedure' );
127: END IF;
128:
129: -- Standard call to check for api compatibility
130: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
131: G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
128:
129: -- Standard call to check for api compatibility
130: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
131: G_PKG_NAME) THEN
132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133: END IF;
134:
135: -- Standard start of API savepoint
136: SAVEPOINT Workorder_Login_Pvt;
135: -- Standard start of API savepoint
136: SAVEPOINT Workorder_Login_Pvt;
137:
138: -- Initialize message list if p_init_msg_list is set to TRUE
139: IF FND_API.To_Boolean(p_init_msg_list) THEN
140: FND_MSG_PUB.Initialize;
141: END IF;
142:
143: -- Initialize Procedure return status to success
140: FND_MSG_PUB.Initialize;
141: END IF;
142:
143: -- Initialize Procedure return status to success
144: x_return_status := FND_API.G_RET_STS_SUCCESS;
145:
146:
147: -- Dump Input parameters.
148: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
192: IF (NVL(FND_PROFILE.value('AHL_MANUAL_RES_TXN'),'N') = 'Y') OR
193: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
194: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
195: FND_MSG_PUB.ADD;
196: RAISE FND_API.G_EXC_ERROR;
197: END IF;
198:
199: -- Initialize local variables.
200: l_employee_num := p_employee_num;
227: 'After call to ConvertWO_Value_to_IDs: return status' || x_return_status );
228: END IF;
229:
230: -- Raise errors if exceptions occur
231: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
228: END IF;
229:
230: -- Raise errors if exceptions occur
231: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
229:
230: -- Raise errors if exceptions occur
231: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
237: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
230: -- Raise errors if exceptions occur
231: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
237: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
238: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Login',
244: IF (l_workorder_id IS NULL) THEN
245: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
246: --FND_MESSAGE.set_token('WO_ID',l_workorder_id);
247: FND_MSG_PUB.ADD;
248: RAISE FND_API.G_EXC_ERROR;
249: ELSE
250: -- get WO number to display error message.
251: OPEN c_wo_name(p_workorder_id);
252: FETCH c_wo_name INTO l_workorder_name;
254: CLOSE c_wo_name;
255: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
256: FND_MESSAGE.set_token('WO_ID',l_workorder_id);
257: FND_MSG_PUB.ADD;
258: RAISE FND_API.G_EXC_ERROR;
259:
260: END IF;
261:
262: CLOSE c_wo_name;
344: END IF; --l_resource_id IS NOT NULL
345:
346:
347: -- Raise errors if exceptions occur
348: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
345:
346:
347: -- Raise errors if exceptions occur
348: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
346:
347: -- Raise errors if exceptions occur
348: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: -- Standard check of p_commit
347: -- Raise errors if exceptions occur
348: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: -- Standard check of p_commit
355: IF FND_API.TO_BOOLEAN(p_commit) THEN
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: -- Standard check of p_commit
355: IF FND_API.TO_BOOLEAN(p_commit) THEN
356: COMMIT WORK;
357: END IF;
358:
359: -- Standard call to get message count and if count is 1, get message info
359: -- Standard call to get message count and if count is 1, get message info
360: FND_MSG_PUB.Count_And_Get
361: ( p_count => x_msg_count,
362: p_data => x_msg_data,
363: p_encoded => fnd_api.g_false
364: );
365:
366: -- log debug message.
367: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN
370: END IF;
371:
372: --
373: EXCEPTION
374: WHEN FND_API.G_EXC_ERROR THEN
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: Rollback to Workorder_Login_PVT;
377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
378: p_data => x_msg_data,
371:
372: --
373: EXCEPTION
374: WHEN FND_API.G_EXC_ERROR THEN
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: Rollback to Workorder_Login_PVT;
377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
378: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
375: x_return_status := FND_API.G_RET_STS_ERROR;
376: Rollback to Workorder_Login_PVT;
377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
378: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
380:
381:
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
380:
381:
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: Rollback to Workorder_Login_PVT;
385: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
386: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
380:
381:
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: Rollback to Workorder_Login_PVT;
385: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
386: p_data => x_msg_data,
387: p_encoded => fnd_api.g_false);
383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
384: Rollback to Workorder_Login_PVT;
385: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
386: p_data => x_msg_data,
387: p_encoded => fnd_api.g_false);
388:
389: WHEN OTHERS THEN
390:
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: p_encoded => fnd_api.g_false);
388:
389: WHEN OTHERS THEN
390:
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
392: Rollback to Workorder_Login_PVT;
393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
394: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
395: p_procedure_name => 'Workorder_Login',
396: p_error_text => SUBSTR(SQLERRM,1,240));
397: END IF;
398: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
399: p_data => x_msg_data,
400: p_encoded => fnd_api.g_false);
401:
402:
403: END Workorder_Login;
404: ---------------------------------------------------------------------------------------------
432:
433: BEGIN
434:
435: -- Initialize Procedure return status to success
436: x_return_status := FND_API.G_RET_STS_SUCCESS;
437:
438: -- Employee num/ID
439: IF (p_x_employee_id IS NULL AND p_employee_num IS NOT NULL) THEN
440: p_x_employee_id := AHL_PRD_WO_LOGIN_PVT.Get_Employee_ID(p_employee_num);
444: IF (p_x_workorder_id IS NULL) THEN
445: IF (p_workorder_name IS NULL OR p_org_code IS NULL) THEN
446: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
447: FND_MSG_PUB.ADD;
448: x_return_status := FND_API.G_RET_STS_ERROR;
449: ELSE
450: OPEN c_get_wo_id(p_workorder_name, p_org_code);
451: FETCH c_get_wo_id INTO l_workorder_id;
452: IF (c_get_wo_id%NOTFOUND) THEN
453: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
454: FND_MESSAGE.set_token('WO_NUM', p_workorder_name);
455: FND_MESSAGE.set_token('ORG_CODE', p_org_code);
456: FND_MSG_PUB.ADD;
457: x_return_status := FND_API.G_RET_STS_ERROR;
458: ELSE
459: p_x_workorder_id := l_workorder_id;
460: END IF;
461: CLOSE c_get_wo_id;
594: 'p_resource_id:' || p_resource_id);
595: END IF;
596:
597: -- Initialize Procedure return status to success
598: x_return_status := FND_API.G_RET_STS_SUCCESS;
599:
600: -- Based on input, lock WO and Operation records.
601: IF (p_operation_seq_num IS NOT NULL) THEN
602: OPEN c_lock_wo_oper (p_workorder_id, p_operation_seq_num);
609: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
610: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
611: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
615: CLOSE c_lock_wo_oper;
616:
617: -- check operation status.
620: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
621: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
622: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
623: FND_MSG_PUB.ADD;
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626:
627: END IF; -- p_operation_seq_num IS NOT NULL
628:
644: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
645: END IF;
646:
647: -- Error out based on login allowed flag.
648: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651:
652: -- Initialize resource assignment table index.
645: END IF;
646:
647: -- Error out based on login allowed flag.
648: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651:
652: -- Initialize resource assignment table index.
653: i := 1;
659: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_RES_NULL');
660: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
661: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
662: FND_MSG_PUB.ADD;
663: RAISE FND_API.G_EXC_ERROR;
664: END IF;
665:
666:
667: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
744: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_RES_INVALID');
745: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
746: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
747: FND_MSG_PUB.ADD;
748: RAISE FND_API.G_EXC_ERROR;
749:
750: END IF; -- c_qualified_req%FOUND
751: CLOSE c_qualified_req;
752:
759: END IF;
760:
761: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
762: p_api_version => 1.0,
763: p_commit => Fnd_Api.G_FALSE,
764: p_operation_flag => 'C',
765: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
766: x_return_status => x_return_status,
767: x_msg_count => l_msg_count,
773: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_RES_Login',
774: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
775: END IF;
776:
777: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
774: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
775: END IF;
776:
777: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
775: END IF;
776:
777: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: END IF; -- l_resrc_assign_cre_tbl.COUNT > 0
776:
777: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
780: RAISE FND_API.G_EXC_ERROR;
781: END IF;
782:
783: END IF; -- l_resrc_assign_cre_tbl.COUNT > 0
784:
951: 'p_operation_seq_num:' || p_operation_seq_num);
952: END IF;
953:
954: -- Initialize Procedure return status to success
955: x_return_status := FND_API.G_RET_STS_SUCCESS;
956:
957: -- Based on input, lock WO and Operation records.
958: IF (p_operation_seq_num IS NOT NULL) THEN
959: OPEN c_lock_wo_oper (p_workorder_id, p_operation_seq_num);
965: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
966: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
967: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
968: FND_MSG_PUB.ADD;
969: RAISE FND_API.G_EXC_ERROR;
970: ELSIF (l_oper_status <> 2) THEN
971: CLOSE c_lock_wo_oper;
972:
973: -- add error to stack.
974: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
975: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
976: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
977: FND_MSG_PUB.ADD;
978: RAISE FND_API.G_EXC_ERROR;
979: END IF;
980: CLOSE c_lock_wo_oper;
981:
982: ELSE
984: -- add error to stack.
985: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_NULL');
986: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
987: FND_MSG_PUB.ADD;
988: RAISE FND_API.G_EXC_ERROR;
989: END IF; -- p_operation_seq_num IS NOT NULL
990:
991: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
992: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_OP_Login',
1004: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
1005: END IF;
1006:
1007: -- Error out based on login allowed flag.
1008: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011:
1012: -- Commented out user_role condn to fix bug 5015149.
1005: END IF;
1006:
1007: -- Error out based on login allowed flag.
1008: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF;
1011:
1012: -- Commented out user_role condn to fix bug 5015149.
1013: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
1081: END IF;
1082:
1083: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
1084: p_api_version => 1.0,
1085: p_commit => Fnd_Api.G_FALSE,
1086: p_operation_flag => 'C',
1087: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
1088: x_return_status => x_return_status,
1089: x_msg_count => l_msg_count,
1095: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_OP_Login',
1096: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1097: END IF;
1098:
1099: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1096: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1097: END IF;
1098:
1099: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1097: END IF;
1098:
1099: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: END IF;
1098:
1099: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: END IF;
1106:
1264: 'p_workorder_id:' || p_workorder_id);
1265: END IF;
1266:
1267: -- Initialize Procedure return status to success
1268: x_return_status := FND_API.G_RET_STS_SUCCESS;
1269:
1270: -- Lock WO record.
1271: OPEN c_lock_wo (p_workorder_id);
1272: FETCH c_lock_wo INTO l_wo_status;
1296: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
1297: END IF;
1298:
1299: -- Error out based on login allowed flag.
1300: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303:
1304: -- Commented out user_role condn to fix bug 5015149.
1297: END IF;
1298:
1299: -- Error out based on login allowed flag.
1300: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303:
1304: -- Commented out user_role condn to fix bug 5015149.
1305: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
1372: END IF;
1373:
1374: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
1375: p_api_version => 1.0,
1376: p_commit => Fnd_Api.G_FALSE,
1377: p_operation_flag => 'C',
1378: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
1379: x_return_status => x_return_status,
1380: x_msg_count => l_msg_count,
1386: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_WO_Login',
1387: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1388: END IF;
1389:
1390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1387: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1388: END IF;
1389:
1390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1388: END IF;
1389:
1390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396: END IF; -- l_resrc_assign_cre_tbl.COUNT
1389:
1390: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396: END IF; -- l_resrc_assign_cre_tbl.COUNT
1397:
1455: --
1456: --
1457: --
1458: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1462: p_module_type IN VARCHAR2 := NULL,
1463: x_return_status OUT NOCOPY VARCHAR2,
1456: --
1457: --
1458: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1462: p_module_type IN VARCHAR2 := NULL,
1463: x_return_status OUT NOCOPY VARCHAR2,
1464: x_msg_count OUT NOCOPY NUMBER,
1457: --
1458: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1459: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1460: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1461: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1462: p_module_type IN VARCHAR2 := NULL,
1463: x_return_status OUT NOCOPY VARCHAR2,
1464: x_msg_count OUT NOCOPY NUMBER,
1465: x_msg_data OUT NOCOPY VARCHAR2,
1498: END IF;
1499:
1500:
1501: -- Standard call to check for call compatibility
1502: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1503: G_PKG_NAME) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506:
1500:
1501: -- Standard call to check for call compatibility
1502: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1503: G_PKG_NAME) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506:
1507: -- Standard start of API savepoint
1508: SAVEPOINT Workorder_Logout_Pvt;
1507: -- Standard start of API savepoint
1508: SAVEPOINT Workorder_Logout_Pvt;
1509:
1510: -- Initialize message list if p_init_msg_list is set to TRUE
1511: IF FND_API.To_Boolean(p_init_msg_list) THEN
1512: FND_MSG_PUB.Initialize;
1513: END IF;
1514:
1515: -- Initialize Procedure return status to success
1512: FND_MSG_PUB.Initialize;
1513: END IF;
1514:
1515: -- Initialize Procedure return status to success
1516: x_return_status := FND_API.G_RET_STS_SUCCESS;
1517:
1518:
1519: -- Dump Input parameters.
1520: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
1567: IF (NVL(FND_PROFILE.value('AHL_MANUAL_RES_TXN'),'N') = 'Y') OR
1568: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
1569: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
1570: FND_MSG_PUB.ADD;
1571: RAISE FND_API.G_EXC_ERROR;
1572: END IF; */
1573:
1574: -- Initialize local variables.
1575: l_employee_num := p_employee_num;
1602: 'After call to ConvertWO_Value_to_IDs: return status' || x_return_status );
1603: END IF;
1604:
1605: -- Raise error if exception occurs
1606: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1609: RAISE FND_API.G_EXC_ERROR;
1610: END IF;
1603: END IF;
1604:
1605: -- Raise error if exception occurs
1606: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1609: RAISE FND_API.G_EXC_ERROR;
1610: END IF;
1611:
1604:
1605: -- Raise error if exception occurs
1606: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1609: RAISE FND_API.G_EXC_ERROR;
1610: END IF;
1611:
1612: -- If employee ID and emp num are NULL then default logged in user.
1605: -- Raise error if exception occurs
1606: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1609: RAISE FND_API.G_EXC_ERROR;
1610: END IF;
1611:
1612: -- If employee ID and emp num are NULL then default logged in user.
1613: IF (l_employee_id IS NULL AND l_employee_num IS NULL) THEN
1617: -- Check required parameters.
1618: IF (l_workorder_id IS NULL) THEN
1619: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
1620: FND_MSG_PUB.ADD;
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: IF (l_employee_id IS NULL) THEN
1625: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_NULL');
1623:
1624: IF (l_employee_id IS NULL) THEN
1625: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_NULL');
1626: FND_MSG_PUB.ADD;
1627: RAISE FND_API.G_EXC_ERROR;
1628: END IF;
1629:
1630: -- debug checkpoint.
1631: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
1648: END IF;
1649:
1650:
1651: -- Raise errors if exceptions occur
1652: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1649:
1650:
1651: -- Raise errors if exceptions occur
1652: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1657:
1650:
1651: -- Raise errors if exceptions occur
1652: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1657:
1658: -- Standard check of p_commit
1651: -- Raise errors if exceptions occur
1652: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1657:
1658: -- Standard check of p_commit
1659: IF FND_API.TO_BOOLEAN(p_commit) THEN
1655: RAISE FND_API.G_EXC_ERROR;
1656: END IF;
1657:
1658: -- Standard check of p_commit
1659: IF FND_API.TO_BOOLEAN(p_commit) THEN
1660: COMMIT WORK;
1661: END IF;
1662:
1663: -- Standard call to get message count and if count is 1, get message info
1663: -- Standard call to get message count and if count is 1, get message info
1664: FND_MSG_PUB.Count_And_Get
1665: ( p_count => x_msg_count,
1666: p_data => x_msg_data,
1667: p_encoded => fnd_api.g_false
1668: );
1669:
1670: -- log debug message.
1671: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN
1674: END IF;
1675:
1676: --
1677: EXCEPTION
1678: WHEN FND_API.G_EXC_ERROR THEN
1679: x_return_status := FND_API.G_RET_STS_ERROR;
1680: Rollback to Workorder_Logout_PVT;
1681: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1682: p_data => x_msg_data,
1675:
1676: --
1677: EXCEPTION
1678: WHEN FND_API.G_EXC_ERROR THEN
1679: x_return_status := FND_API.G_RET_STS_ERROR;
1680: Rollback to Workorder_Logout_PVT;
1681: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1682: p_data => x_msg_data,
1683: p_encoded => fnd_api.g_false);
1679: x_return_status := FND_API.G_RET_STS_ERROR;
1680: Rollback to Workorder_Logout_PVT;
1681: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1682: p_data => x_msg_data,
1683: p_encoded => fnd_api.g_false);
1684:
1685:
1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: p_data => x_msg_data,
1683: p_encoded => fnd_api.g_false);
1684:
1685:
1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1688: Rollback to Workorder_Logout_PVT;
1689: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1690: p_data => x_msg_data,
1683: p_encoded => fnd_api.g_false);
1684:
1685:
1686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1688: Rollback to Workorder_Logout_PVT;
1689: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1690: p_data => x_msg_data,
1691: p_encoded => fnd_api.g_false);
1687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1688: Rollback to Workorder_Logout_PVT;
1689: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1690: p_data => x_msg_data,
1691: p_encoded => fnd_api.g_false);
1692:
1693: WHEN OTHERS THEN
1694:
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: p_encoded => fnd_api.g_false);
1692:
1693: WHEN OTHERS THEN
1694:
1695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1696: Rollback to Workorder_Logout_PVT;
1697: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1698: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1699: p_procedure_name => 'Workorder_Logout',
1700: p_error_text => SUBSTR(SQLERRM,1,240));
1701: END IF;
1702: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1703: p_data => x_msg_data,
1704: p_encoded => fnd_api.g_false);
1705:
1706:
1707: END Workorder_Logout ;
1708: --------------------------------------------------------------------------------------------
1957: 'p_resource_id:' || p_resource_id);
1958: END IF;
1959:
1960: -- Initialize Procedure return status to success
1961: x_return_status := FND_API.G_RET_STS_SUCCESS;
1962:
1963:
1964: -- get workorder login details.
1965: OPEN c_emp_login_details (p_employee_id, p_workorder_id);
1977: IF (c_emp_login_details%NOTFOUND) THEN
1978: CLOSE c_emp_login_details;
1979: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_NOTLOGGEDIN');
1980: FND_MSG_PUB.ADD;
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1984: -- Check login WO matches input WO.
1985: IF (l_login_workorder_id IS NULL) THEN
1985: IF (l_login_workorder_id IS NULL) THEN
1986: -- user is not logged in any workorder.
1987: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_NOTLOGGEDIN');
1988: FND_MSG_PUB.ADD;
1989: RAISE FND_API.G_EXC_ERROR;
1990: ELSIF (l_login_workorder_id <> p_workorder_id) THEN
1991: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_WO_INVALID');
1992: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
1993: FND_MSG_PUB.ADD;
1990: ELSIF (l_login_workorder_id <> p_workorder_id) THEN
1991: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_WO_INVALID');
1992: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
1993: FND_MSG_PUB.ADD;
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996:
1997: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
1998: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2002: -- For 'R' and 'O' logins, operation_seq_num is mandatory.
2003: IF (l_login_level <> 'W' AND p_operation_seq_num IS NULL) THEN
2004: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_NULL');
2005: FND_MSG_PUB.ADD;
2006: RAISE FND_API.G_EXC_ERROR;
2007: ELSIF (p_operation_seq_num <> l_operation_seq_num) THEN
2008: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_INVALID');
2009: FND_MESSAGE.set_token('OP_NUM', p_operation_seq_num);
2010: FND_MSG_PUB.ADD;
2007: ELSIF (p_operation_seq_num <> l_operation_seq_num) THEN
2008: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_INVALID');
2009: FND_MESSAGE.set_token('OP_NUM', p_operation_seq_num);
2010: FND_MSG_PUB.ADD;
2011: RAISE FND_API.G_EXC_ERROR;
2012: END IF;
2013:
2014: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2015: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2020: IF (l_login_level = 'R' AND
2021: p_resource_seq_num IS NULL AND p_resource_id IS NULL) THEN
2022: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_NULL');
2023: FND_MSG_PUB.ADD;
2024: RAISE FND_API.G_EXC_ERROR;
2025: ELSIF (p_resource_seq_num IS NOT NULL) AND
2026: (p_resource_seq_num <> nvl(l_resource_seq_num, -1) ) THEN
2027: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2028: FND_MESSAGE.set_token('RES_NUM', p_resource_seq_num);
2026: (p_resource_seq_num <> nvl(l_resource_seq_num, -1) ) THEN
2027: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2028: FND_MESSAGE.set_token('RES_NUM', p_resource_seq_num);
2029: FND_MSG_PUB.ADD;
2030: RAISE FND_API.G_EXC_ERROR;
2031: ELSIF (p_resource_id IS NOT NULL) THEN
2032: IF (p_resource_id <> nvl(l_resource_id,-1)) THEN
2033: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RESID_INVALID');
2034: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2032: IF (p_resource_id <> nvl(l_resource_id,-1)) THEN
2033: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RESID_INVALID');
2034: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2035: FND_MSG_PUB.ADD;
2036: RAISE FND_API.G_EXC_ERROR;
2037: ELSE
2038: -- get resource seq num.
2039: OPEN c_get_resrc_seq(l_wip_entity_id, l_operation_seq_num, l_resource_id);
2040: FETCH c_get_resrc_seq INTO l_resource_seq_num;
2042: CLOSE c_get_resrc_seq;
2043: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2044: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2045: FND_MSG_PUB.ADD;
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF; -- c_get_resrc_seq
2048: CLOSE c_get_resrc_seq;
2049: END IF; -- p_resource_id <> ..
2050: END IF; -- l_login_level = 'R' ..
2057: -- Check Unit locked.
2058: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,
2059: p_ue_id => null,
2060: p_visit_id => null,
2061: p_item_instance_id => null) = FND_API.g_true THEN
2062: -- Unit is locked, therefore cannot perform resource transactions
2063: -- and cannot login to the workorder
2064: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
2065: FND_MESSAGE.set_token('WO_NUM' , l_workorder_name);
2063: -- and cannot login to the workorder
2064: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
2065: FND_MESSAGE.set_token('WO_NUM' , l_workorder_name);
2066: FND_MSG_PUB.ADD;
2067: RAISE FND_API.G_EXC_ERROR;
2068: END IF;
2069:
2070: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2071: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2269:
2270: END LOOP;
2271:
2272: AHL_PRD_RESOURCE_TRANX_PVT.Process_Resource_Txns(p_api_version => 1.0,
2273: p_init_msg_list => FND_API.G_TRUE,
2274: p_commit => FND_API.G_FALSE,
2275: x_return_status => l_return_status,
2276: x_msg_count => l_msg_count,
2277: x_msg_data => l_msg_data,
2270: END LOOP;
2271:
2272: AHL_PRD_RESOURCE_TRANX_PVT.Process_Resource_Txns(p_api_version => 1.0,
2273: p_init_msg_list => FND_API.G_TRUE,
2274: p_commit => FND_API.G_FALSE,
2275: x_return_status => l_return_status,
2276: x_msg_count => l_msg_count,
2277: x_msg_data => l_msg_data,
2278: p_x_prd_resrc_txn_tbl => l_prd_res_txn_tbl);
2283: 'After call to resource txns: return status:' || l_return_status);
2284: END IF;
2285:
2286: -- Raise errors if exceptions occur
2287: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2284: END IF;
2285:
2286: -- Raise errors if exceptions occur
2287: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2285:
2286: -- Raise errors if exceptions occur
2287: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2293: END IF; -- l_prd_res_txn_tbl.COUNT > 0
2286: -- Raise errors if exceptions occur
2287: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2289: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292:
2293: END IF; -- l_prd_res_txn_tbl.COUNT > 0
2294:
2507:
2508: END IF;
2509:
2510: -- Initialize Procedure return status to success
2511: x_return_status := FND_API.G_RET_STS_SUCCESS;
2512:
2513: -- Check input parameter for NULL.
2514: IF (p_employee_id IS NULL) THEN
2515: l_employee_id := Get_Employee_ID();
2520: -- Return error if employee id not found.
2521: IF (l_employee_id IS NULL) THEN
2522: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LGN_EMP_NULL');
2523: FND_MSG_PUB.ADD;
2524: RAISE FND_API.G_EXC_ERROR;
2525: END IF;
2526:
2527: -- Get login info.
2528: OPEN c_emp_login_details(l_employee_id);
2568: 'At End of procedure AHL_PRD_WO_LOGIN_PVT.Get_Current_Emp_Login');
2569: END IF;
2570:
2571: EXCEPTION
2572: WHEN FND_API.G_EXC_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: FND_MSG_PUB.count_and_get
2575: (
2576: p_count => x_msg_count,
2569: END IF;
2570:
2571: EXCEPTION
2572: WHEN FND_API.G_EXC_ERROR THEN
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: FND_MSG_PUB.count_and_get
2575: (
2576: p_count => x_msg_count,
2577: p_data => x_msg_data,
2574: FND_MSG_PUB.count_and_get
2575: (
2576: p_count => x_msg_count,
2577: p_data => x_msg_data,
2578: p_encoded => fnd_api.g_false
2579: );
2580:
2581:
2582: WHEN OTHERS THEN
2579: );
2580:
2581:
2582: WHEN OTHERS THEN
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2585: fnd_msg_pub.add_exc_msg
2586: (
2587: p_pkg_name => G_PKG_NAME,
2592: FND_MSG_PUB.count_and_get
2593: (
2594: p_count => x_msg_count,
2595: p_data => x_msg_data,
2596: p_encoded => fnd_api.g_false
2597: );
2598:
2599: END Get_Current_Emp_Login;
2600:
2616: -- User is allowed to login only if value of the profile
2617: -- 'Technician Role: Enable Manual Resource Transactions Mode'
2618: -- is set to Yes. Login is not allowed for Data Clerk role.
2619: --
2620: -- This function returns fnd_api.g_false if login is not allowed
2621: -- and return fnd_api.g_true if login is allowed. Error
2622: -- messages are added to the message stack.
2623: --
2624: --
2617: -- 'Technician Role: Enable Manual Resource Transactions Mode'
2618: -- is set to Yes. Login is not allowed for Data Clerk role.
2619: --
2620: -- This function returns fnd_api.g_false if login is not allowed
2621: -- and return fnd_api.g_true if login is allowed. Error
2622: -- messages are added to the message stack.
2623: --
2624: --
2625:
2898: IF (NVL(FND_PROFILE.value('AHL_PRD_MANUAL_RES_TXN'),'N') = 'Y') OR
2899: (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
2900: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
2901: FND_MSG_PUB.ADD;
2902: Return FND_API.G_FALSE;
2903: END IF;
2904:
2905: -- Debug Checkpoint.
2906: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2911: -- Check required parameters.
2912: IF p_workorder_id IS NULL THEN
2913: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
2914: FND_MSG_PUB.ADD;
2915: Return FND_API.G_FALSE;
2916: END IF;
2917:
2918: -- Debug Checkpoint.
2919: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2927: IF c_is_wo_valid%NOTFOUND THEN
2928: CLOSE c_is_wo_valid;
2929: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
2930: FND_MSG_PUB.ADD;
2931: RETURN FND_API.G_FALSE;
2932: END IF;
2933: CLOSE c_is_wo_valid;
2934:
2935: -- Validate WO status.
2936: IF l_wo_status in ('1','6','7','22','12','4','5') THEN
2937: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOSTS_INVLD');
2938: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
2939: FND_MSG_PUB.ADD;
2940: RETURN FND_API.G_FALSE;
2941: END IF;
2942:
2943: -- Debug Checkpoint.
2944: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2957: CLOSE c_is_emp_valid;
2958: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_INVALID');
2959: FND_MESSAGE.set_token('EMP_ID' , p_employee_id);
2960: FND_MSG_PUB.ADD;
2961: RETURN FND_API.G_FALSE;
2962: END IF;
2963: CLOSE c_is_emp_valid;
2964: END IF;
2965:
2981: x_resource_id => l_login_resource_id,
2982: x_resource_seq_num => l_login_resrc_seq_num,
2983: x_employee_name => l_employee_name);
2984:
2985: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2986: RAISE FND_API.G_EXC_ERROR;
2987: END IF;
2988:
2989: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2982: x_resource_seq_num => l_login_resrc_seq_num,
2983: x_employee_name => l_employee_name);
2984:
2985: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2986: RAISE FND_API.G_EXC_ERROR;
2987: END IF;
2988:
2989: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2990: IF (l_login_workorder_id IS NOT NULL) THEN
2989: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2990: IF (l_login_workorder_id IS NOT NULL) THEN
2991: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_USER_LOGGED_IN');
2992: FND_MSG_PUB.ADD;
2993: RETURN FND_API.G_FALSE;
2994: END IF;
2995:
2996: -- Debug Checkpoint.
2997: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3002: -- Check Unit locked.
3003: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,
3004: p_ue_id => null,
3005: p_visit_id => null,
3006: p_item_instance_id => null) = FND_API.g_true THEN
3007: -- Unit is locked, therefore cannot perform resource transactions
3008: -- and hence cannot login to the workorder
3009: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
3010: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3008: -- and hence cannot login to the workorder
3009: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
3010: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3011: FND_MSG_PUB.ADD;
3012: RETURN FND_API.G_FALSE;
3013: END IF;
3014:
3015: IF (p_fnd_function_name IS NULL) THEN
3016: l_fnd_function_name := get_user_role();
3020:
3021: IF (l_fnd_function_name IS NULL) THEN
3022: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_FUNC_NULL');
3023: FND_MSG_PUB.ADD;
3024: Return FND_API.G_FALSE;
3025: END IF;
3026:
3027: -- Debug Checkpoint.
3028: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3047: CLOSE c_workorder_oper;
3048: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOOPS_COMPLETE');
3049: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3050: FND_MSG_PUB.ADD;
3051: RETURN FND_API.G_FALSE;
3052: END IF;
3053: CLOSE c_workorder_oper;
3054:
3055: -- validate WO has at least one 'person' resource reqmt.
3060: CLOSE c_check_res_reqd;
3061: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NO_RESREQ');
3062: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3063: FND_MSG_PUB.ADD;
3064: RETURN FND_API.G_FALSE;
3065: END IF; -- c_check_res_reqd.
3066: CLOSE c_check_res_reqd;
3067:
3068: -- Validate qualification to login into a WO in Technician case.
3076: CLOSE c_qualified_for_one_res;
3077: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOOPS_NOTQUAL');
3078: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3079: FND_MSG_PUB.ADD;
3080: RETURN FND_API.G_FALSE;
3081: END IF; -- c_qualified_for_one_ops
3082: CLOSE c_qualified_for_one_res;
3083: END LOOP; -- operation_rec
3084: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3094: CLOSE c_check_res_multiple_wo;
3095: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_MULTI_RES_WO');
3096: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3097: FND_MSG_PUB.ADD;
3098: RETURN FND_API.G_FALSE;
3099: END IF;
3100: CLOSE c_check_res_multiple_wo;
3101: END IF;
3102: */
3121: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
3122: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3123: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3124: FND_MSG_PUB.ADD;
3125: RETURN FND_API.G_FALSE;
3126: END IF; -- c_is_op_seq_valid.
3127: CLOSE c_is_op_seq_valid;
3128:
3129: -- Check login into Operation or Operation+resource.
3149: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_NOT_QUAL');
3150: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3151: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3152: FND_MSG_PUB.ADD;
3153: RETURN FND_API.G_FALSE;
3154: END IF; -- c_qualified_for_one_res
3155: CLOSE c_qualified_for_one_res;
3156: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3157:
3166: CLOSE c_check_res_multiple_op;
3167: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_MULTI_RES_OP');
3168: FND_MESSAGE.set_token('OP_NUM' , p_operation_seq_num);
3169: FND_MSG_PUB.ADD;
3170: RETURN FND_API.G_FALSE;
3171: END IF;
3172: CLOSE c_check_res_multiple_op;
3173: END IF;
3174: */
3191: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3192: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3193: FND_MESSAGE.set_token('RES_NAME' ,p_resource_seq_num);
3194: FND_MSG_PUB.ADD;
3195: RETURN FND_API.G_FALSE;
3196: END IF;
3197: CLOSE c_get_resrc_id;
3198: ELSE
3199: l_resource_id := p_resource_id;
3208: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3209: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3210: FND_MESSAGE.set_token('RES_ID' , l_resource_id);
3211: FND_MSG_PUB.ADD;
3212: RETURN FND_API.G_FALSE;
3213: END IF; -- c_is_resource_valid
3214: CLOSE c_is_resource_valid;
3215:
3216: -- Validate qualification in case of technician.
3225: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3226: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3227: FND_MESSAGE.set_token('RES_NUM', l_resource_code);
3228: FND_MSG_PUB.ADD;
3229: RETURN FND_API.G_FALSE;
3230: END IF;
3231: CLOSE c_qualify_res;
3232: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3233:
3247: 'At End of procedure AHL_PRD_WO_LOGIN_PVT.Is_Login_Allowed');
3248: END IF;
3249:
3250: -- Set login allowed flag.
3251: RETURN FND_API.G_TRUE;
3252:
3253: EXCEPTION
3254: WHEN FND_API.G_EXC_ERROR THEN
3255: --x_return_status := FND_API.G_RET_STS_ERROR;
3250: -- Set login allowed flag.
3251: RETURN FND_API.G_TRUE;
3252:
3253: EXCEPTION
3254: WHEN FND_API.G_EXC_ERROR THEN
3255: --x_return_status := FND_API.G_RET_STS_ERROR;
3256:
3257: RETURN FND_API.G_FALSE;
3258:
3251: RETURN FND_API.G_TRUE;
3252:
3253: EXCEPTION
3254: WHEN FND_API.G_EXC_ERROR THEN
3255: --x_return_status := FND_API.G_RET_STS_ERROR;
3256:
3257: RETURN FND_API.G_FALSE;
3258:
3259: WHEN OTHERS THEN
3253: EXCEPTION
3254: WHEN FND_API.G_EXC_ERROR THEN
3255: --x_return_status := FND_API.G_RET_STS_ERROR;
3256:
3257: RETURN FND_API.G_FALSE;
3258:
3259: WHEN OTHERS THEN
3260: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3261: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3256:
3257: RETURN FND_API.G_FALSE;
3258:
3259: WHEN OTHERS THEN
3260: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3261: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3262: fnd_msg_pub.add_exc_msg
3263: (
3264: p_pkg_name => G_PKG_NAME,
3265: p_procedure_name => 'Is_Login_Allowed',
3266: p_error_text => SUBSTR(SQLERRM,1,240)
3267: );
3268: END IF;
3269: RETURN FND_API.G_FALSE;
3270:
3271: END Is_Login_Allowed;
3272:
3273: