[Home] [Help]
80: -- passed but the workorder and operation is passed, then the login is at operation level.
81: -- If resource details are passed, then login is at the operation and resource level.
82: --
83: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
84: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
85: p_commit IN VARCHAR2 := FND_API.G_FALSE,
86: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
87: p_module_type IN VARCHAR2 := NULL,
88: x_return_status OUT NOCOPY VARCHAR2,
81: -- If resource details are passed, then login is at the operation and resource level.
82: --
83: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
84: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
85: p_commit IN VARCHAR2 := FND_API.G_FALSE,
86: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
87: p_module_type IN VARCHAR2 := NULL,
88: x_return_status OUT NOCOPY VARCHAR2,
89: x_msg_count OUT NOCOPY NUMBER,
82: --
83: PROCEDURE Workorder_Login(p_api_version IN NUMBER,
84: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
85: p_commit IN VARCHAR2 := FND_API.G_FALSE,
86: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
87: p_module_type IN VARCHAR2 := NULL,
88: x_return_status OUT NOCOPY VARCHAR2,
89: x_msg_count OUT NOCOPY NUMBER,
90: x_msg_data OUT NOCOPY VARCHAR2,
129: 'At the start of PLSQL procedure' );
130: END IF;
131:
132: -- Standard call to check for api compatibility
133: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
134: G_PKG_NAME) THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
131:
132: -- Standard call to check for api compatibility
133: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
134: G_PKG_NAME) THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: -- Standard start of API savepoint
139: SAVEPOINT Workorder_Login_Pvt;
138: -- Standard start of API savepoint
139: SAVEPOINT Workorder_Login_Pvt;
140:
141: -- Initialize message list if p_init_msg_list is set to TRUE
142: IF FND_API.To_Boolean(p_init_msg_list) THEN
143: FND_MSG_PUB.Initialize;
144: END IF;
145:
146: -- Initialize Procedure return status to success
143: FND_MSG_PUB.Initialize;
144: END IF;
145:
146: -- Initialize Procedure return status to success
147: x_return_status := FND_API.G_RET_STS_SUCCESS;
148:
149:
150: -- Dump Input parameters.
151: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
195: IF (NVL(FND_PROFILE.value('AHL_MANUAL_RES_TXN'),'N') = 'Y') OR
196: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
197: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
198: FND_MSG_PUB.ADD;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201:
202: -- Initialize local variables.
203: l_employee_num := p_employee_num;
230: 'After call to ConvertWO_Value_to_IDs: return status' || x_return_status );
231: END IF;
232:
233: -- Raise errors if exceptions occur
234: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
231: END IF;
232:
233: -- Raise errors if exceptions occur
234: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
239:
232:
233: -- Raise errors if exceptions occur
234: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
239:
240: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
233: -- Raise errors if exceptions occur
234: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
237: RAISE FND_API.G_EXC_ERROR;
238: END IF;
239:
240: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
241: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Login',
247: IF (l_workorder_id IS NULL) THEN
248: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
249: --FND_MESSAGE.set_token('WO_ID',l_workorder_id);
250: FND_MSG_PUB.ADD;
251: RAISE FND_API.G_EXC_ERROR;
252: ELSE
253: -- get WO number to display error message.
254: OPEN c_wo_name(p_workorder_id);
255: FETCH c_wo_name INTO l_workorder_name;
257: CLOSE c_wo_name;
258: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
259: FND_MESSAGE.set_token('WO_ID',l_workorder_id);
260: FND_MSG_PUB.ADD;
261: RAISE FND_API.G_EXC_ERROR;
262:
263: END IF;
264:
265: CLOSE c_wo_name;
347: END IF; --l_resource_id IS NOT NULL
348:
349:
350: -- Raise errors if exceptions occur
351: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
348:
349:
350: -- Raise errors if exceptions occur
351: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
356:
349:
350: -- Raise errors if exceptions occur
351: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
356:
357: -- Standard check of p_commit
350: -- Raise errors if exceptions occur
351: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
353: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
356:
357: -- Standard check of p_commit
358: IF FND_API.TO_BOOLEAN(p_commit) THEN
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
356:
357: -- Standard check of p_commit
358: IF FND_API.TO_BOOLEAN(p_commit) THEN
359: COMMIT WORK;
360: END IF;
361:
362: -- Standard call to get message count and if count is 1, get message info
362: -- Standard call to get message count and if count is 1, get message info
363: FND_MSG_PUB.Count_And_Get
364: ( p_count => x_msg_count,
365: p_data => x_msg_data,
366: p_encoded => fnd_api.g_false
367: );
368:
369: -- log debug message.
370: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN
373: END IF;
374:
375: --
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: Rollback to Workorder_Login_PVT;
380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
381: p_data => x_msg_data,
374:
375: --
376: EXCEPTION
377: WHEN FND_API.G_EXC_ERROR THEN
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: Rollback to Workorder_Login_PVT;
380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
381: p_data => x_msg_data,
382: p_encoded => fnd_api.g_false);
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: Rollback to Workorder_Login_PVT;
380: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
381: p_data => x_msg_data,
382: p_encoded => fnd_api.g_false);
383:
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: p_data => x_msg_data,
382: p_encoded => fnd_api.g_false);
383:
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Workorder_Login_PVT;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
382: p_encoded => fnd_api.g_false);
383:
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Workorder_Login_PVT;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
390: p_encoded => fnd_api.g_false);
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Rollback to Workorder_Login_PVT;
388: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
389: p_data => x_msg_data,
390: p_encoded => fnd_api.g_false);
391:
392: WHEN OTHERS THEN
393:
394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: p_encoded => fnd_api.g_false);
391:
392: WHEN OTHERS THEN
393:
394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
395: Rollback to Workorder_Login_PVT;
396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
397: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
398: p_procedure_name => 'Workorder_Login',
399: p_error_text => SUBSTR(SQLERRM,1,240));
400: END IF;
401: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
402: p_data => x_msg_data,
403: p_encoded => fnd_api.g_false);
404:
405:
406: END Workorder_Login;
407: ---------------------------------------------------------------------------------------------
435:
436: BEGIN
437:
438: -- Initialize Procedure return status to success
439: x_return_status := FND_API.G_RET_STS_SUCCESS;
440:
441: -- Employee num/ID
442: IF (p_x_employee_id IS NULL AND p_employee_num IS NOT NULL) THEN
443: p_x_employee_id := AHL_PRD_WO_LOGIN_PVT.Get_Employee_ID(p_employee_num);
447: IF (p_x_workorder_id IS NULL) THEN
448: IF (p_workorder_name IS NULL OR p_org_code IS NULL) THEN
449: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
450: FND_MSG_PUB.ADD;
451: x_return_status := FND_API.G_RET_STS_ERROR;
452: ELSE
453: OPEN c_get_wo_id(p_workorder_name, p_org_code);
454: FETCH c_get_wo_id INTO l_workorder_id;
455: IF (c_get_wo_id%NOTFOUND) THEN
456: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
457: FND_MESSAGE.set_token('WO_NUM', p_workorder_name);
458: FND_MESSAGE.set_token('ORG_CODE', p_org_code);
459: FND_MSG_PUB.ADD;
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: ELSE
462: p_x_workorder_id := l_workorder_id;
463: END IF;
464: CLOSE c_get_wo_id;
597: 'p_resource_id:' || p_resource_id);
598: END IF;
599:
600: -- Initialize Procedure return status to success
601: x_return_status := FND_API.G_RET_STS_SUCCESS;
602:
603: -- Based on input, lock WO and Operation records.
604: IF (p_operation_seq_num IS NOT NULL) THEN
605: OPEN c_lock_wo_oper (p_workorder_id, p_operation_seq_num);
612: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
613: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
614: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
615: FND_MSG_PUB.ADD;
616: RAISE FND_API.G_EXC_ERROR;
617: END IF;
618: CLOSE c_lock_wo_oper;
619:
620: -- check operation status.
623: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
624: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
625: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
626: FND_MSG_PUB.ADD;
627: RAISE FND_API.G_EXC_ERROR;
628: END IF;
629:
630: END IF; -- p_operation_seq_num IS NOT NULL
631:
647: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
648: END IF;
649:
650: -- Error out based on login allowed flag.
651: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: -- Initialize resource assignment table index.
648: END IF;
649:
650: -- Error out based on login allowed flag.
651: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: -- Initialize resource assignment table index.
656: i := 1;
662: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_RES_NULL');
663: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
664: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
665: FND_MSG_PUB.ADD;
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668:
669:
670: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
747: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_RES_INVALID');
748: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
749: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
750: FND_MSG_PUB.ADD;
751: RAISE FND_API.G_EXC_ERROR;
752:
753: END IF; -- c_qualified_req%FOUND
754: CLOSE c_qualified_req;
755:
762: END IF;
763:
764: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
765: p_api_version => 1.0,
766: p_commit => Fnd_Api.G_FALSE,
767: p_operation_flag => 'C',
768: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
769: x_return_status => x_return_status,
770: x_msg_count => l_msg_count,
776: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_RES_Login',
777: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
778: END IF;
779:
780: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
777: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
778: END IF;
779:
780: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
778: END IF;
779:
780: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786: END IF; -- l_resrc_assign_cre_tbl.COUNT > 0
779:
780: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786: END IF; -- l_resrc_assign_cre_tbl.COUNT > 0
787:
954: 'p_operation_seq_num:' || p_operation_seq_num);
955: END IF;
956:
957: -- Initialize Procedure return status to success
958: x_return_status := FND_API.G_RET_STS_SUCCESS;
959:
960: -- Based on input, lock WO and Operation records.
961: IF (p_operation_seq_num IS NOT NULL) THEN
962: OPEN c_lock_wo_oper (p_workorder_id, p_operation_seq_num);
968: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
969: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
970: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
971: FND_MSG_PUB.ADD;
972: RAISE FND_API.G_EXC_ERROR;
973: ELSIF (l_oper_status <> 2) THEN
974: CLOSE c_lock_wo_oper;
975:
976: -- add error to stack.
977: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
978: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
979: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
980: FND_MSG_PUB.ADD;
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983: CLOSE c_lock_wo_oper;
984:
985: ELSE
987: -- add error to stack.
988: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_NULL');
989: FND_MESSAGE.set_token('WO_NUM' , p_workorder_name);
990: FND_MSG_PUB.ADD;
991: RAISE FND_API.G_EXC_ERROR;
992: END IF; -- p_operation_seq_num IS NOT NULL
993:
994: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
995: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_OP_Login',
1007: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
1008: END IF;
1009:
1010: -- Error out based on login allowed flag.
1011: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1015: -- Commented out user_role condn to fix bug 5015149.
1008: END IF;
1009:
1010: -- Error out based on login allowed flag.
1011: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014:
1015: -- Commented out user_role condn to fix bug 5015149.
1016: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
1084: END IF;
1085:
1086: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
1087: p_api_version => 1.0,
1088: p_commit => Fnd_Api.G_FALSE,
1089: p_operation_flag => 'C',
1090: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
1091: x_return_status => x_return_status,
1092: x_msg_count => l_msg_count,
1098: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_OP_Login',
1099: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1100: END IF;
1101:
1102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1099: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1100: END IF;
1101:
1102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1100: END IF;
1101:
1102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: END IF;
1101:
1102: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: END IF;
1109:
1267: 'p_workorder_id:' || p_workorder_id);
1268: END IF;
1269:
1270: -- Initialize Procedure return status to success
1271: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272:
1273: -- Lock WO record.
1274: OPEN c_lock_wo (p_workorder_id);
1275: FETCH c_lock_wo INTO l_wo_status;
1299: 'After call to Is_Login_Allowed procedure:l_login_allowed_flag:' || l_login_allowed_flag);
1300: END IF;
1301:
1302: -- Error out based on login allowed flag.
1303: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: -- Commented out user_role condn to fix bug 5015149.
1300: END IF;
1301:
1302: -- Error out based on login allowed flag.
1303: IF (l_login_allowed_flag = FND_API.G_FALSE) THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306:
1307: -- Commented out user_role condn to fix bug 5015149.
1308: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
1375: END IF;
1376:
1377: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
1378: p_api_version => 1.0,
1379: p_commit => Fnd_Api.G_FALSE,
1380: p_operation_flag => 'C',
1381: p_x_resrc_assign_tbl => l_resrc_assign_cre_tbl,
1382: x_return_status => x_return_status,
1383: x_msg_count => l_msg_count,
1389: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Process_WO_Login',
1390: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1391: END IF;
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1390: 'After calling Create AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign:x_return_status:' || x_return_status);
1391: END IF;
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1391: END IF;
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399: END IF; -- l_resrc_assign_cre_tbl.COUNT
1392:
1393: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399: END IF; -- l_resrc_assign_cre_tbl.COUNT
1400:
1458: --
1459: --
1460: --
1461: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1462: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1463: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1464: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1465: p_module_type IN VARCHAR2 := NULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1459: --
1460: --
1461: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1462: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1463: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1464: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1465: p_module_type IN VARCHAR2 := NULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1467: x_msg_count OUT NOCOPY NUMBER,
1460: --
1461: PROCEDURE Workorder_Logout( p_api_version IN NUMBER,
1462: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1463: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1464: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1465: p_module_type IN VARCHAR2 := NULL,
1466: x_return_status OUT NOCOPY VARCHAR2,
1467: x_msg_count OUT NOCOPY NUMBER,
1468: x_msg_data OUT NOCOPY VARCHAR2,
1501: END IF;
1502:
1503:
1504: -- Standard call to check for call compatibility
1505: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1506: G_PKG_NAME) THEN
1507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1508: END IF;
1509:
1503:
1504: -- Standard call to check for call compatibility
1505: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1506: G_PKG_NAME) THEN
1507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1508: END IF;
1509:
1510: -- Standard start of API savepoint
1511: SAVEPOINT Workorder_Logout_Pvt;
1510: -- Standard start of API savepoint
1511: SAVEPOINT Workorder_Logout_Pvt;
1512:
1513: -- Initialize message list if p_init_msg_list is set to TRUE
1514: IF FND_API.To_Boolean(p_init_msg_list) THEN
1515: FND_MSG_PUB.Initialize;
1516: END IF;
1517:
1518: -- Initialize Procedure return status to success
1515: FND_MSG_PUB.Initialize;
1516: END IF;
1517:
1518: -- Initialize Procedure return status to success
1519: x_return_status := FND_API.G_RET_STS_SUCCESS;
1520:
1521:
1522: -- Dump Input parameters.
1523: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
1570: IF (NVL(FND_PROFILE.value('AHL_MANUAL_RES_TXN'),'N') = 'Y') OR
1571: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
1572: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
1573: FND_MSG_PUB.ADD;
1574: RAISE FND_API.G_EXC_ERROR;
1575: END IF; */
1576:
1577: -- Initialize local variables.
1578: l_employee_num := p_employee_num;
1605: 'After call to ConvertWO_Value_to_IDs: return status' || x_return_status );
1606: END IF;
1607:
1608: -- Raise error if exception occurs
1609: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1611: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: END IF;
1606: END IF;
1607:
1608: -- Raise error if exception occurs
1609: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1611: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1607:
1608: -- Raise error if exception occurs
1609: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1611: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: -- If employee ID and emp num are NULL then default logged in user.
1608: -- Raise error if exception occurs
1609: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1611: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1612: RAISE FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: -- If employee ID and emp num are NULL then default logged in user.
1616: IF (l_employee_id IS NULL AND l_employee_num IS NULL) THEN
1620: -- Check required parameters.
1621: IF (l_workorder_id IS NULL) THEN
1622: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
1623: FND_MSG_PUB.ADD;
1624: RAISE FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1627: IF (l_employee_id IS NULL) THEN
1628: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_NULL');
1626:
1627: IF (l_employee_id IS NULL) THEN
1628: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_NULL');
1629: FND_MSG_PUB.ADD;
1630: RAISE FND_API.G_EXC_ERROR;
1631: END IF;
1632:
1633: -- debug checkpoint.
1634: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
1651: END IF;
1652:
1653:
1654: -- Raise errors if exceptions occur
1655: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1652:
1653:
1654: -- Raise errors if exceptions occur
1655: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1653:
1654: -- Raise errors if exceptions occur
1655: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1661: -- Standard check of p_commit
1654: -- Raise errors if exceptions occur
1655: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1657: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1661: -- Standard check of p_commit
1662: IF FND_API.TO_BOOLEAN(p_commit) THEN
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660:
1661: -- Standard check of p_commit
1662: IF FND_API.TO_BOOLEAN(p_commit) THEN
1663: COMMIT WORK;
1664: END IF;
1665:
1666: -- Standard call to get message count and if count is 1, get message info
1666: -- Standard call to get message count and if count is 1, get message info
1667: FND_MSG_PUB.Count_And_Get
1668: ( p_count => x_msg_count,
1669: p_data => x_msg_data,
1670: p_encoded => fnd_api.g_false
1671: );
1672:
1673: -- log debug message.
1674: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN
1677: END IF;
1678:
1679: --
1680: EXCEPTION
1681: WHEN FND_API.G_EXC_ERROR THEN
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: Rollback to Workorder_Logout_PVT;
1684: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1685: p_data => x_msg_data,
1678:
1679: --
1680: EXCEPTION
1681: WHEN FND_API.G_EXC_ERROR THEN
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: Rollback to Workorder_Logout_PVT;
1684: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1685: p_data => x_msg_data,
1686: p_encoded => fnd_api.g_false);
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: Rollback to Workorder_Logout_PVT;
1684: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1685: p_data => x_msg_data,
1686: p_encoded => fnd_api.g_false);
1687:
1688:
1689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1685: p_data => x_msg_data,
1686: p_encoded => fnd_api.g_false);
1687:
1688:
1689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: Rollback to Workorder_Logout_PVT;
1692: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1693: p_data => x_msg_data,
1686: p_encoded => fnd_api.g_false);
1687:
1688:
1689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: Rollback to Workorder_Logout_PVT;
1692: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1693: p_data => x_msg_data,
1694: p_encoded => fnd_api.g_false);
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: Rollback to Workorder_Logout_PVT;
1692: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1693: p_data => x_msg_data,
1694: p_encoded => fnd_api.g_false);
1695:
1696: WHEN OTHERS THEN
1697:
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: p_encoded => fnd_api.g_false);
1695:
1696: WHEN OTHERS THEN
1697:
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: Rollback to Workorder_Logout_PVT;
1700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1701: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1702: p_procedure_name => 'Workorder_Logout',
1703: p_error_text => SUBSTR(SQLERRM,1,240));
1704: END IF;
1705: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1706: p_data => x_msg_data,
1707: p_encoded => fnd_api.g_false);
1708:
1709:
1710: END Workorder_Logout ;
1711: --------------------------------------------------------------------------------------------
1960: 'p_resource_id:' || p_resource_id);
1961: END IF;
1962:
1963: -- Initialize Procedure return status to success
1964: x_return_status := FND_API.G_RET_STS_SUCCESS;
1965:
1966:
1967: -- get workorder login details.
1968: OPEN c_emp_login_details (p_employee_id, p_workorder_id);
1980: IF (c_emp_login_details%NOTFOUND) THEN
1981: CLOSE c_emp_login_details;
1982: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_NOTLOGGEDIN');
1983: FND_MSG_PUB.ADD;
1984: RAISE FND_API.G_EXC_ERROR;
1985: END IF;
1986:
1987: -- Check login WO matches input WO.
1988: IF (l_login_workorder_id IS NULL) THEN
1988: IF (l_login_workorder_id IS NULL) THEN
1989: -- user is not logged in any workorder.
1990: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_NOTLOGGEDIN');
1991: FND_MSG_PUB.ADD;
1992: RAISE FND_API.G_EXC_ERROR;
1993: ELSIF (l_login_workorder_id <> p_workorder_id) THEN
1994: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_WO_INVALID');
1995: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
1996: FND_MSG_PUB.ADD;
1993: ELSIF (l_login_workorder_id <> p_workorder_id) THEN
1994: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_WO_INVALID');
1995: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
1996: FND_MSG_PUB.ADD;
1997: RAISE FND_API.G_EXC_ERROR;
1998: END IF;
1999:
2000: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2001: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2005: -- For 'R' and 'O' logins, operation_seq_num is mandatory.
2006: IF (l_login_level <> 'W' AND p_operation_seq_num IS NULL) THEN
2007: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_NULL');
2008: FND_MSG_PUB.ADD;
2009: RAISE FND_API.G_EXC_ERROR;
2010: ELSIF (p_operation_seq_num <> l_operation_seq_num) THEN
2011: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_INVALID');
2012: FND_MESSAGE.set_token('OP_NUM', p_operation_seq_num);
2013: FND_MSG_PUB.ADD;
2010: ELSIF (p_operation_seq_num <> l_operation_seq_num) THEN
2011: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_OP_INVALID');
2012: FND_MESSAGE.set_token('OP_NUM', p_operation_seq_num);
2013: FND_MSG_PUB.ADD;
2014: RAISE FND_API.G_EXC_ERROR;
2015: END IF;
2016:
2017: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2018: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2023: IF (l_login_level = 'R' AND
2024: p_resource_seq_num IS NULL AND p_resource_id IS NULL) THEN
2025: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_NULL');
2026: FND_MSG_PUB.ADD;
2027: RAISE FND_API.G_EXC_ERROR;
2028: ELSIF (p_resource_seq_num IS NOT NULL) AND
2029: (p_resource_seq_num <> nvl(l_resource_seq_num, -1) ) THEN
2030: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2031: FND_MESSAGE.set_token('RES_NUM', p_resource_seq_num);
2029: (p_resource_seq_num <> nvl(l_resource_seq_num, -1) ) THEN
2030: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2031: FND_MESSAGE.set_token('RES_NUM', p_resource_seq_num);
2032: FND_MSG_PUB.ADD;
2033: RAISE FND_API.G_EXC_ERROR;
2034: ELSIF (p_resource_id IS NOT NULL) THEN
2035: IF (p_resource_id <> nvl(l_resource_id,-1)) THEN
2036: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RESID_INVALID');
2037: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2035: IF (p_resource_id <> nvl(l_resource_id,-1)) THEN
2036: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RESID_INVALID');
2037: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2038: FND_MSG_PUB.ADD;
2039: RAISE FND_API.G_EXC_ERROR;
2040: /* jkjain, Bug No 8325834, FP for Bug No 7759348
2041:
2042: ELSE
2043: -- get resource seq num.
2047: CLOSE c_get_resrc_seq;
2048: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGNOUT_RES_INVALID');
2049: FND_MESSAGE.set_token('RES_ID', p_resource_id);
2050: FND_MSG_PUB.ADD;
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052: END IF; -- c_get_resrc_seq
2053: CLOSE c_get_resrc_seq;
2054: */
2055: END IF; -- p_resource_id <> ..
2063: -- Check Unit locked.
2064: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,
2065: p_ue_id => null,
2066: p_visit_id => null,
2067: p_item_instance_id => null) = FND_API.g_true THEN
2068: -- Unit is locked, therefore cannot perform resource transactions
2069: -- and cannot login to the workorder
2070: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
2071: FND_MESSAGE.set_token('WO_NUM' , l_workorder_name);
2069: -- and cannot login to the workorder
2070: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
2071: FND_MESSAGE.set_token('WO_NUM' , l_workorder_name);
2072: FND_MSG_PUB.ADD;
2073: RAISE FND_API.G_EXC_ERROR;
2074: END IF;
2075:
2076: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2077: fnd_log.string(G_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Workorder_Logout',
2275:
2276: END LOOP;
2277:
2278: AHL_PRD_RESOURCE_TRANX_PVT.Process_Resource_Txns(p_api_version => 1.0,
2279: p_init_msg_list => FND_API.G_TRUE,
2280: p_commit => FND_API.G_FALSE,
2281: x_return_status => l_return_status,
2282: x_msg_count => l_msg_count,
2283: x_msg_data => l_msg_data,
2276: END LOOP;
2277:
2278: AHL_PRD_RESOURCE_TRANX_PVT.Process_Resource_Txns(p_api_version => 1.0,
2279: p_init_msg_list => FND_API.G_TRUE,
2280: p_commit => FND_API.G_FALSE,
2281: x_return_status => l_return_status,
2282: x_msg_count => l_msg_count,
2283: x_msg_data => l_msg_data,
2284: p_x_prd_resrc_txn_tbl => l_prd_res_txn_tbl);
2289: 'After call to resource txns: return status:' || l_return_status);
2290: END IF;
2291:
2292: -- Raise errors if exceptions occur
2293: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2295: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2296: RAISE FND_API.G_EXC_ERROR;
2297: END IF;
2290: END IF;
2291:
2292: -- Raise errors if exceptions occur
2293: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2295: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2296: RAISE FND_API.G_EXC_ERROR;
2297: END IF;
2298:
2291:
2292: -- Raise errors if exceptions occur
2293: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2295: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2296: RAISE FND_API.G_EXC_ERROR;
2297: END IF;
2298:
2299: END IF; -- l_prd_res_txn_tbl.COUNT > 0
2292: -- Raise errors if exceptions occur
2293: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2295: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2296: RAISE FND_API.G_EXC_ERROR;
2297: END IF;
2298:
2299: END IF; -- l_prd_res_txn_tbl.COUNT > 0
2300:
2515:
2516: END IF;
2517:
2518: -- Initialize Procedure return status to success
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2520:
2521: -- Check input parameter for NULL.
2522: IF (p_employee_id IS NULL) THEN
2523: l_employee_id := Get_Employee_ID();
2528: -- Return error if employee id not found.
2529: IF (l_employee_id IS NULL) THEN
2530: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LGN_EMP_NULL');
2531: FND_MSG_PUB.ADD;
2532: RAISE FND_API.G_EXC_ERROR;
2533: END IF;
2534:
2535: -- Get login info.
2536: OPEN c_emp_login_details(l_employee_id);
2576: 'At End of procedure AHL_PRD_WO_LOGIN_PVT.Get_Current_Emp_Login');
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN FND_API.G_EXC_ERROR THEN
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: FND_MSG_PUB.count_and_get
2583: (
2584: p_count => x_msg_count,
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN FND_API.G_EXC_ERROR THEN
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: FND_MSG_PUB.count_and_get
2583: (
2584: p_count => x_msg_count,
2585: p_data => x_msg_data,
2582: FND_MSG_PUB.count_and_get
2583: (
2584: p_count => x_msg_count,
2585: p_data => x_msg_data,
2586: p_encoded => fnd_api.g_false
2587: );
2588:
2589:
2590: WHEN OTHERS THEN
2587: );
2588:
2589:
2590: WHEN OTHERS THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2593: fnd_msg_pub.add_exc_msg
2594: (
2595: p_pkg_name => G_PKG_NAME,
2600: FND_MSG_PUB.count_and_get
2601: (
2602: p_count => x_msg_count,
2603: p_data => x_msg_data,
2604: p_encoded => fnd_api.g_false
2605: );
2606:
2607: END Get_Current_Emp_Login;
2608:
2624: -- User is allowed to login only if value of the profile
2625: -- 'Technician Role: Enable Manual Resource Transactions Mode'
2626: -- is set to Yes. Login is not allowed for Data Clerk role.
2627: --
2628: -- This function returns fnd_api.g_false if login is not allowed
2629: -- and return fnd_api.g_true if login is allowed. Error
2630: -- messages are added to the message stack.
2631: --
2632: --
2625: -- 'Technician Role: Enable Manual Resource Transactions Mode'
2626: -- is set to Yes. Login is not allowed for Data Clerk role.
2627: --
2628: -- This function returns fnd_api.g_false if login is not allowed
2629: -- and return fnd_api.g_true if login is allowed. Error
2630: -- messages are added to the message stack.
2631: --
2632: --
2633:
2906: IF (NVL(FND_PROFILE.value('AHL_PRD_MANUAL_RES_TXN'),'N') = 'Y') OR
2907: (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN
2908: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_AUTOTXN_DSBLD');
2909: FND_MSG_PUB.ADD;
2910: Return FND_API.G_FALSE;
2911: END IF;
2912:
2913: -- Debug Checkpoint.
2914: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2919: -- Check required parameters.
2920: IF p_workorder_id IS NULL THEN
2921: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NULL');
2922: FND_MSG_PUB.ADD;
2923: Return FND_API.G_FALSE;
2924: END IF;
2925:
2926: -- Debug Checkpoint.
2927: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2935: IF c_is_wo_valid%NOTFOUND THEN
2936: CLOSE c_is_wo_valid;
2937: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_INVALID');
2938: FND_MSG_PUB.ADD;
2939: RETURN FND_API.G_FALSE;
2940: END IF;
2941: CLOSE c_is_wo_valid;
2942:
2943: -- Validate WO status.
2944: IF l_wo_status in ('1','6','7','22','12','4','5') THEN
2945: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOSTS_INVLD');
2946: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
2947: FND_MSG_PUB.ADD;
2948: RETURN FND_API.G_FALSE;
2949: END IF;
2950:
2951: -- Debug Checkpoint.
2952: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
2965: CLOSE c_is_emp_valid;
2966: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_EMPID_INVALID');
2967: FND_MESSAGE.set_token('EMP_ID' , p_employee_id);
2968: FND_MSG_PUB.ADD;
2969: RETURN FND_API.G_FALSE;
2970: END IF;
2971: CLOSE c_is_emp_valid;
2972: END IF;
2973:
2989: x_resource_id => l_login_resource_id,
2990: x_resource_seq_num => l_login_resrc_seq_num,
2991: x_employee_name => l_employee_name);
2992:
2993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2994: RAISE FND_API.G_EXC_ERROR;
2995: END IF;
2996:
2997: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2990: x_resource_seq_num => l_login_resrc_seq_num,
2991: x_employee_name => l_employee_name);
2992:
2993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2994: RAISE FND_API.G_EXC_ERROR;
2995: END IF;
2996:
2997: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2998: IF (l_login_workorder_id IS NOT NULL) THEN
2997: -- Check for login WO. If user already logged in, then do not allow login into another WO.
2998: IF (l_login_workorder_id IS NOT NULL) THEN
2999: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_USER_LOGGED_IN');
3000: FND_MSG_PUB.ADD;
3001: RETURN FND_API.G_FALSE;
3002: END IF;
3003:
3004: -- Debug Checkpoint.
3005: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3010: -- Check Unit locked.
3011: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,
3012: p_ue_id => null,
3013: p_visit_id => null,
3014: p_item_instance_id => null) = FND_API.g_true THEN
3015: -- Unit is locked, therefore cannot perform resource transactions
3016: -- and hence cannot login to the workorder
3017: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
3018: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3016: -- and hence cannot login to the workorder
3017: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_UNTLCKD');
3018: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3019: FND_MSG_PUB.ADD;
3020: RETURN FND_API.G_FALSE;
3021: END IF;
3022:
3023: IF (p_fnd_function_name IS NULL) THEN
3024: l_fnd_function_name := get_user_role();
3028:
3029: IF (l_fnd_function_name IS NULL) THEN
3030: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_FUNC_NULL');
3031: FND_MSG_PUB.ADD;
3032: Return FND_API.G_FALSE;
3033: END IF;
3034:
3035: -- Debug Checkpoint.
3036: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3055: CLOSE c_workorder_oper;
3056: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOOPS_COMPLETE');
3057: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3058: FND_MSG_PUB.ADD;
3059: RETURN FND_API.G_FALSE;
3060: END IF;
3061: CLOSE c_workorder_oper;
3062:
3063: -- validate WO has at least one 'person' resource reqmt.
3068: CLOSE c_check_res_reqd;
3069: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WO_NO_RESREQ');
3070: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3071: FND_MSG_PUB.ADD;
3072: RETURN FND_API.G_FALSE;
3073: END IF; -- c_check_res_reqd.
3074: CLOSE c_check_res_reqd;
3075:
3076: -- Validate qualification to login into a WO in Technician case.
3084: CLOSE c_qualified_for_one_res;
3085: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_WOOPS_NOTQUAL');
3086: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3087: FND_MSG_PUB.ADD;
3088: RETURN FND_API.G_FALSE;
3089: END IF; -- c_qualified_for_one_ops
3090: CLOSE c_qualified_for_one_res;
3091: END LOOP; -- operation_rec
3092: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3102: CLOSE c_check_res_multiple_wo;
3103: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_MULTI_RES_WO');
3104: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3105: FND_MSG_PUB.ADD;
3106: RETURN FND_API.G_FALSE;
3107: END IF;
3108: CLOSE c_check_res_multiple_wo;
3109: END IF;
3110: */
3129: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_INVALID');
3130: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3131: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3132: FND_MSG_PUB.ADD;
3133: RETURN FND_API.G_FALSE;
3134: END IF; -- c_is_op_seq_valid.
3135: CLOSE c_is_op_seq_valid;
3136:
3137: -- Check login into Operation or Operation+resource.
3157: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_OP_NOT_QUAL');
3158: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3159: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3160: FND_MSG_PUB.ADD;
3161: RETURN FND_API.G_FALSE;
3162: END IF; -- c_qualified_for_one_res
3163: CLOSE c_qualified_for_one_res;
3164: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3165:
3174: CLOSE c_check_res_multiple_op;
3175: FND_MESSAGE.set_name('AHL', 'AHL_PRD_LGN_MULTI_RES_OP');
3176: FND_MESSAGE.set_token('OP_NUM' , p_operation_seq_num);
3177: FND_MSG_PUB.ADD;
3178: RETURN FND_API.G_FALSE;
3179: END IF;
3180: CLOSE c_check_res_multiple_op;
3181: END IF;
3182: */
3199: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3200: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3201: FND_MESSAGE.set_token('RES_NAME' ,p_resource_seq_num);
3202: FND_MSG_PUB.ADD;
3203: RETURN FND_API.G_FALSE;
3204: END IF;
3205: CLOSE c_get_resrc_id;
3206: ELSE
3207: l_resource_id := p_resource_id;
3216: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3217: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3218: FND_MESSAGE.set_token('RES_ID' , l_resource_id);
3219: FND_MSG_PUB.ADD;
3220: RETURN FND_API.G_FALSE;
3221: END IF; -- c_is_resource_valid
3222: CLOSE c_is_resource_valid;
3223:
3224: -- Validate qualification in case of technician.
3233: FND_MESSAGE.SET_TOKEN('OP_NUM', p_operation_seq_num);
3234: FND_MESSAGE.set_token('WO_NUM' , l_wo_name);
3235: FND_MESSAGE.set_token('RES_NUM', l_resource_code);
3236: FND_MSG_PUB.ADD;
3237: RETURN FND_API.G_FALSE;
3238: END IF;
3239: CLOSE c_qualify_res;
3240: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3241:
3255: 'At End of procedure AHL_PRD_WO_LOGIN_PVT.Is_Login_Allowed');
3256: END IF;
3257:
3258: -- Set login allowed flag.
3259: RETURN FND_API.G_TRUE;
3260:
3261: EXCEPTION
3262: WHEN FND_API.G_EXC_ERROR THEN
3263: --x_return_status := FND_API.G_RET_STS_ERROR;
3258: -- Set login allowed flag.
3259: RETURN FND_API.G_TRUE;
3260:
3261: EXCEPTION
3262: WHEN FND_API.G_EXC_ERROR THEN
3263: --x_return_status := FND_API.G_RET_STS_ERROR;
3264:
3265: RETURN FND_API.G_FALSE;
3266:
3259: RETURN FND_API.G_TRUE;
3260:
3261: EXCEPTION
3262: WHEN FND_API.G_EXC_ERROR THEN
3263: --x_return_status := FND_API.G_RET_STS_ERROR;
3264:
3265: RETURN FND_API.G_FALSE;
3266:
3267: WHEN OTHERS THEN
3261: EXCEPTION
3262: WHEN FND_API.G_EXC_ERROR THEN
3263: --x_return_status := FND_API.G_RET_STS_ERROR;
3264:
3265: RETURN FND_API.G_FALSE;
3266:
3267: WHEN OTHERS THEN
3268: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3264:
3265: RETURN FND_API.G_FALSE;
3266:
3267: WHEN OTHERS THEN
3268: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3270: fnd_msg_pub.add_exc_msg
3271: (
3272: p_pkg_name => G_PKG_NAME,
3273: p_procedure_name => 'Is_Login_Allowed',
3274: p_error_text => SUBSTR(SQLERRM,1,240)
3275: );
3276: END IF;
3277: RETURN FND_API.G_FALSE;
3278:
3279: END Is_Login_Allowed;
3280:
3281:
3550: AND WLGN.employee_id = c_employee_id
3551: AND WLGN.logout_date IS NULL;
3552:
3553: BEGIN
3554: --Return FND_API.G_FALSE;
3555: -- Check if login enabled.
3556: IF (NVL(FND_PROFILE.value('AHL_PRD_MANUAL_RES_TXN'),'N') = 'Y') THEN
3557: Return FND_API.G_FALSE;
3558: END IF;
3553: BEGIN
3554: --Return FND_API.G_FALSE;
3555: -- Check if login enabled.
3556: IF (NVL(FND_PROFILE.value('AHL_PRD_MANUAL_RES_TXN'),'N') = 'Y') THEN
3557: Return FND_API.G_FALSE;
3558: END IF;
3559:
3560: -- Check required parameters.
3561: IF p_workorder_id IS NULL THEN
3558: END IF;
3559:
3560: -- Check required parameters.
3561: IF p_workorder_id IS NULL THEN
3562: Return FND_API.G_FALSE;
3563: END IF;
3564: -- Validate Workorder.
3565: OPEN c_is_wo_valid (p_workorder_id);
3566: FETCH c_is_wo_valid INTO l_wo_status, l_wo_name, l_wip_entity_id, l_org_id;
3565: OPEN c_is_wo_valid (p_workorder_id);
3566: FETCH c_is_wo_valid INTO l_wo_status, l_wo_name, l_wip_entity_id, l_org_id;
3567: IF c_is_wo_valid%NOTFOUND THEN
3568: CLOSE c_is_wo_valid;
3569: RETURN FND_API.G_FALSE;
3570: END IF;
3571: CLOSE c_is_wo_valid;
3572:
3573: -- Validate WO status.
3571: CLOSE c_is_wo_valid;
3572:
3573: -- Validate WO status.
3574: IF l_wo_status in ('1','6','7','22','12','4','5') THEN
3575: RETURN FND_API.G_FALSE;
3576: END IF;
3577:
3578: -- Default employee if input is null.
3579: IF (p_employee_id IS NULL) THEN
3579: IF (p_employee_id IS NULL) THEN
3580: l_employee_id := Get_Employee_ID();
3581: END IF;
3582: IF(l_employee_id IS NULL) THEN
3583: RETURN FND_API.G_FALSE;
3584: END IF;
3585:
3586:
3587: -- Get login info.
3600: CLOSE c_emp_login_details;
3601:
3602: -- Check for login WO. If user already logged in, then do not allow login into another WO.
3603: IF (l_login_workorder_id IS NOT NULL) THEN
3604: RETURN FND_API.G_FALSE;
3605: END IF;
3606:
3607:
3608: -- Check Unit locked.
3608: -- Check Unit locked.
3609: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,
3610: p_ue_id => null,
3611: p_visit_id => null,
3612: p_item_instance_id => null) = FND_API.g_true THEN
3613: -- Unit is locked, therefore cannot perform resource transactions
3614: -- and hence cannot login to the workorder
3615: RETURN FND_API.G_FALSE;
3616: END IF;
3611: p_visit_id => null,
3612: p_item_instance_id => null) = FND_API.g_true THEN
3613: -- Unit is locked, therefore cannot perform resource transactions
3614: -- and hence cannot login to the workorder
3615: RETURN FND_API.G_FALSE;
3616: END IF;
3617:
3618:
3619: -- validate login into workorder/operation/operation-resource.
3623: OPEN c_workorder_oper(p_workorder_id);
3624: FETCH c_workorder_oper INTO l_junk;
3625: IF (c_workorder_oper%FOUND) THEN
3626: CLOSE c_workorder_oper;
3627: RETURN FND_API.G_FALSE;
3628: END IF;
3629: CLOSE c_workorder_oper;
3630:
3631: -- validate WO has at least one 'person' resource reqmt.
3633: FETCH c_check_res_reqd INTO l_junk;
3634: IF c_check_res_reqd%NOTFOUND THEN
3635: -- Login at the workorder level will be disabled.
3636: CLOSE c_check_res_reqd;
3637: RETURN FND_API.G_FALSE;
3638: END IF; -- c_check_res_reqd.
3639: CLOSE c_check_res_reqd;
3640:
3641: -- Validate qualification to login into a WO in Technician case.
3646: OPEN c_qualified_for_one_res(l_employee_id, l_wip_entity_id, operation_rec.operation_seq_num);
3647: FETCH c_qualified_for_one_res INTO l_junk;
3648: IF c_qualified_for_one_res%NOTFOUND THEN
3649: CLOSE c_qualified_for_one_res;
3650: RETURN FND_API.G_FALSE;
3651: END IF; -- c_qualified_for_one_ops
3652: CLOSE c_qualified_for_one_res;
3653: END LOOP; -- operation_rec
3654: END IF; -- operation_seq_num IS NULL
3661: OPEN c_is_op_seq_valid (p_workorder_id, p_operation_seq_num, l_wip_entity_id);
3662: FETCH c_is_op_seq_valid INTO l_junk;
3663: IF c_is_op_seq_valid%NOTFOUND THEN
3664: CLOSE c_is_op_seq_valid;
3665: RETURN FND_API.G_FALSE;
3666: END IF; -- c_is_op_seq_valid.
3667: CLOSE c_is_op_seq_valid;
3668:
3669: -- Check login into Operation or Operation+resource.
3677: OPEN c_qualified_for_one_res(l_employee_id, l_wip_entity_id, p_operation_seq_num);
3678: FETCH c_qualified_for_one_res INTO l_junk;
3679: IF (c_qualified_for_one_res%NOTFOUND) THEN
3680: CLOSE c_qualified_for_one_res;
3681: RETURN FND_API.G_FALSE;
3682: END IF; -- c_qualified_for_one_res
3683: CLOSE c_qualified_for_one_res;
3684: ELSE -- login into operation + resource.
3685: -- Get resource ID if resource seq num is input and resource_id is NULL.
3687: OPEN c_get_resrc_id(l_wip_entity_id, p_operation_seq_num, p_resource_seq_num);
3688: FETCH c_get_resrc_id INTO l_resource_id;
3689: IF (c_get_resrc_id%NOTFOUND) THEN
3690: CLOSE c_get_resrc_id;
3691: RETURN FND_API.G_FALSE;
3692: END IF;
3693: CLOSE c_get_resrc_id;
3694: ELSE
3695: l_resource_id := p_resource_id;
3699: OPEN c_is_resource_valid(l_resource_id, l_org_id);
3700: FETCH c_is_resource_valid INTO l_resource_code;
3701: IF (c_is_resource_valid%NOTFOUND) THEN
3702: CLOSE c_is_resource_valid;
3703: RETURN FND_API.G_FALSE;
3704: END IF; -- c_is_resource_valid
3705: CLOSE c_is_resource_valid;
3706:
3707: -- Validate qualification in case of technician.
3711: l_resource_id);
3712: FETCH c_qualify_res INTO l_junk;
3713: IF (c_qualify_res%FOUND) THEN
3714: CLOSE c_qualify_res;
3715: RETURN FND_API.G_FALSE;
3716: END IF;
3717: CLOSE c_qualify_res;
3718: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO
3719:
3720: END IF; -- p_resource_id IS NULL
3721:
3722: END IF; -- operation_seq_num is not null.
3723: -- Set login allowed flag.
3724: RETURN FND_API.G_TRUE;
3725: END Is_Login_Enabled;
3726:
3727: ---------------------------------------------------------------------------------------------
3728:
3768: AND WLGN.employee_id = c_employee_id
3769: AND WLGN.logout_date IS NULL; -- employee logged in.
3770: BEGIN
3771: IF (NVL(FND_PROFILE.value('AHL_PRD_MANUAL_RES_TXN'),'N') = 'Y') THEN
3772: Return FND_API.G_FALSE;
3773: END IF;
3774:
3775: -- Check required parameters.
3776: IF p_workorder_id IS NULL THEN
3773: END IF;
3774:
3775: -- Check required parameters.
3776: IF p_workorder_id IS NULL THEN
3777: Return FND_API.G_FALSE;
3778: END IF;
3779: IF (p_employee_id IS NULL) THEN
3780: l_employee_id := Get_Employee_ID();
3781: ELSE
3783: END IF;
3784:
3785: -- Return error if employee id not found.
3786: IF (l_employee_id IS NULL) THEN
3787: RETURN FND_API.G_FALSE;
3788: END IF;
3789:
3790: -- Get login info.
3791: OPEN c_emp_login_details(l_employee_id);
3802: END IF; -- c_emp_login_details%NOTFOUND
3803: CLOSE c_emp_login_details;
3804:
3805: IF(l_login_workorder_id IS NULL) THEN
3806: RETURN FND_API.G_FALSE;
3807: ELSIF (l_login_op_seq_num IS NULL AND l_login_workorder_id = p_workorder_id AND p_operation_seq_num IS NULL) THEN
3808: RETURN FND_API.G_TRUE;
3809: ELSIF(l_login_op_seq_num IS NOT NULL AND l_login_resrc_seq_num IS NOT NULL)THEN
3810: IF(l_login_workorder_id = p_workorder_id AND l_login_op_seq_num = p_operation_seq_num
3804:
3805: IF(l_login_workorder_id IS NULL) THEN
3806: RETURN FND_API.G_FALSE;
3807: ELSIF (l_login_op_seq_num IS NULL AND l_login_workorder_id = p_workorder_id AND p_operation_seq_num IS NULL) THEN
3808: RETURN FND_API.G_TRUE;
3809: ELSIF(l_login_op_seq_num IS NOT NULL AND l_login_resrc_seq_num IS NOT NULL)THEN
3810: IF(l_login_workorder_id = p_workorder_id AND l_login_op_seq_num = p_operation_seq_num
3811: AND l_login_resrc_seq_num = p_resource_seq_num AND l_login_resource_id = p_resource_id)THEN
3812: RETURN FND_API.G_TRUE;
3808: RETURN FND_API.G_TRUE;
3809: ELSIF(l_login_op_seq_num IS NOT NULL AND l_login_resrc_seq_num IS NOT NULL)THEN
3810: IF(l_login_workorder_id = p_workorder_id AND l_login_op_seq_num = p_operation_seq_num
3811: AND l_login_resrc_seq_num = p_resource_seq_num AND l_login_resource_id = p_resource_id)THEN
3812: RETURN FND_API.G_TRUE;
3813: END IF;
3814: END IF;
3815: RETURN FND_API.G_FALSE;
3816: END Is_Logout_Enabled;
3811: AND l_login_resrc_seq_num = p_resource_seq_num AND l_login_resource_id = p_resource_id)THEN
3812: RETURN FND_API.G_TRUE;
3813: END IF;
3814: END IF;
3815: RETURN FND_API.G_FALSE;
3816: END Is_Logout_Enabled;
3817:
3818:
3819: END AHL_PRD_WO_LOGIN_PVT;