DBA Data[Home] [Help]

APPS.AHL_PRD_WO_LOGIN_PVT dependencies on AHL_PRD_UTIL_PKG

Line 193: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN

189: -- Check if login/logout enabled.
190: l_user_role := get_user_role();
191:
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;

Line 675: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN

671:
672: -- process for technician and transit tech roles.
673: -- Commented out user_role condn to fix bug 5015149.
674: --
675: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
676:
677: -- Create assignment and login record.
678: -- login into a specific resource.
679: OPEN c_qualified_req(p_employee_id => p_employee_id,

Line 1013: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) 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
1014:
1015: -- For creating assignment user needs to be qualified.
1016: -- Initialize resource assignment table index.
1017: i := 1;

Line 1305: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) 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
1306:
1307: -- to create assignment, user needs to be qualified.
1308: -- Initialize resource assignment table index.
1309: i := 1;

Line 1568: (l_user_role = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN

1564:
1565: /* THis validation is not needed. Data Clerk can complete WO in which case all users
1566: should be logged out
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; */

Line 2058: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,

2054: 'After check for resource login');
2055: END IF;
2056:
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

Line 2091: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN

2087: 'processing resource txns for RES login:Emp:WE:OP:RES' || p_employee_id || ':'|| l_wip_entity_id || ':' || l_operation_seq_num || ':' || l_resource_seq_num);
2088: END IF;
2089:
2090: -- Commented out user_role condn to fix bug 5015149.
2091: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
2092: FOR qual_res_rec IN c_qualified_req_RES(p_employee_id, l_wip_entity_id,
2093: l_operation_seq_num, l_resource_seq_num)
2094: LOOP
2095: i := i + 1;

Line 2146: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN

2142: 'processing resource txns for OP login:Emp:WE:OP:' || p_employee_id || ':'|| l_wip_entity_id || ':' || l_operation_seq_num);
2143: END IF;
2144:
2145: -- Commented out user_role condn to fix bug 5015149.
2146: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
2147: FOR qual_res_rec IN c_qualified_req_OP(p_employee_id, l_wip_entity_id,
2148: l_operation_seq_num)
2149: LOOP
2150: i := i + 1;

Line 2200: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN

2196: 'processing resource txns for WO login:Emp:WE:' || p_employee_id || ':'|| l_wip_entity_id );
2197: END IF;
2198:
2199: -- Commented out user_role condn to fix bug 5015149.
2200: --IF (p_user_role = ahl_prd_util_pkg.G_TECH_MYWO) THEN
2201: FOR qual_res_rec IN c_qualified_req_WO(p_employee_id, l_wip_entity_id)
2202: LOOP
2203: i := i + 1;
2204:

Line 2332: IF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_TECH_MYWO)) THEN

2328: fnd_log.string(G_DEBUG_PROC, 'ahl.plsql.AHL_PRD_WO_LOGIN_PVT.Get_User_Role.Start',
2329: 'At Start of procedure AHL_PRD_WO_LOGIN_PVT.Get_User_Role');
2330: END IF;
2331:
2332: IF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_TECH_MYWO)) THEN
2333: -- Technician Role.
2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;
2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN
2336: -- Data Clerk Role.

Line 2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;

2330: END IF;
2331:
2332: IF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_TECH_MYWO)) THEN
2333: -- Technician Role.
2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;
2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN
2336: -- Data Clerk Role.
2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;
2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN

Line 2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN

2331:
2332: IF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_TECH_MYWO)) THEN
2333: -- Technician Role.
2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;
2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN
2336: -- Data Clerk Role.
2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;
2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN
2339: -- Transit Check Role.

Line 2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;

2333: -- Technician Role.
2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;
2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN
2336: -- Data Clerk Role.
2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;
2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN
2339: -- Transit Check Role.
2340: l_user_role := AHL_PRD_UTIL_PKG.G_LINE_TECH;
2341: END IF;

Line 2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN

2334: l_user_role := AHL_PRD_UTIL_PKG.G_TECH_MYWO;
2335: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_DATA_CLERK)) THEN
2336: -- Data Clerk Role.
2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;
2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN
2339: -- Transit Check Role.
2340: l_user_role := AHL_PRD_UTIL_PKG.G_LINE_TECH;
2341: END IF;
2342:

Line 2340: l_user_role := AHL_PRD_UTIL_PKG.G_LINE_TECH;

2336: -- Data Clerk Role.
2337: l_user_role := AHL_PRD_UTIL_PKG.G_DATA_CLERK;
2338: ELSIF (FND_FUNCTION.TEST(AHL_PRD_UTIL_PKG.G_LINE_TECH)) THEN
2339: -- Transit Check Role.
2340: l_user_role := AHL_PRD_UTIL_PKG.G_LINE_TECH;
2341: END IF;
2342:
2343: -- log debug message.
2344: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN

Line 2899: (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_DATA_CLERK) THEN

2895: END IF;
2896:
2897: -- Check if login enabled.
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;

Line 3003: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_workorder_id,

2999: 'After login check successful');
3000: END IF;
3001:
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

Line 3070: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN

3066: CLOSE c_check_res_reqd;
3067:
3068: -- Validate qualification to login into a WO in Technician case.
3069: -- Commented l_fnd_function_name validation to fix bug# 5015149.
3070: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN
3071: -- validate user qualifies for at least one resource requirement within each operation.
3072: FOR operation_rec IN c_get_workorder_oper(l_wip_entity_id) LOOP
3073: OPEN c_qualified_for_one_res(l_employee_id, l_wip_entity_id, operation_rec.operation_seq_num);
3074: FETCH c_qualified_for_one_res INTO l_junk;

Line 3084: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO

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
3085:
3086: /*
3087: -- If user qualifies for multiple resource requirements within the same operation and
3088: -- profile 'AHL_ALLOW_MULTI_RESRC_LOGIN' = 'Y then do not allow WO login.

Line 3143: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN

3139:
3140:
3141: -- Validate qualification to login into a Operation in Technician case.
3142: -- Commented l_fnd_function_name validation to fix bug# 5015149.
3143: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN
3144: -- validate user qualifies for at least one resource requirement for the operation.
3145: OPEN c_qualified_for_one_res(l_employee_id, l_wip_entity_id, p_operation_seq_num);
3146: FETCH c_qualified_for_one_res INTO l_junk;
3147: IF (c_qualified_for_one_res%NOTFOUND) THEN

Line 3156: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO

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:
3158: /*
3159: -- If user qualifies for multiple resource requirements within the same operation and
3160: -- profile 'AHL_ALLOW_MULTI_RESRC_LOGIN' = 'Y then do not allow WO-OP login.

Line 3218: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN

3214: CLOSE c_is_resource_valid;
3215:
3216: -- Validate qualification in case of technician.
3217: -- Commented l_fnd_function_name validation to fix bug# 5015149.
3218: -- IF (l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO) THEN
3219: OPEN c_qualify_res(l_employee_id, l_wip_entity_id, p_operation_seq_num,
3220: l_resource_id);
3221: FETCH c_qualify_res INTO l_junk;
3222: IF (c_qualify_res%FOUND) THEN

Line 3232: -- END IF; -- l_fnd_function_name = AHL_PRD_UTIL_PKG.G_TECH_MYWO

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:
3234: END IF; -- p_resource_id IS NULL
3235:
3236: END IF; -- operation_seq_num is not null.