DBA Data[Home] [Help]

APPS.AHL_FMP_PVT dependencies on AHL_FMP_PVT

Line 1: PACKAGE BODY AHL_FMP_PVT AS

1: PACKAGE BODY AHL_FMP_PVT AS
2: /* $Header: AHLVFMPB.pls 120.9.12010000.2 2008/12/27 01:04:51 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AHL_FMP_PVT';
5: G_APPLN_USAGE VARCHAR2(30):=FND_PROFILE.VALUE('AHL_APPLN_USAGE');

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AHL_FMP_PVT';

1: PACKAGE BODY AHL_FMP_PVT AS
2: /* $Header: AHLVFMPB.pls 120.9.12010000.2 2008/12/27 01:04:51 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AHL_FMP_PVT';
5: G_APPLN_USAGE VARCHAR2(30):=FND_PROFILE.VALUE('AHL_APPLN_USAGE');
6: --Define Global Cursor: get item instance attributes from ahl_unit_installed_details_v.
7: --The last two attributes: manufacturer_id and counctry_code are not in the view definition.
8: CURSOR get_inst_attri(c_item_instance_id NUMBER) IS

Line 682: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');

678: BEGIN
679: SAVEPOINT GET_MR_AFFECTED_ITEMS_PVT;
680: IF l_debug = 'Y' THEN
681: AHL_DEBUG_PUB.enable_debug;
682: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');
683: END IF;
684: IF FND_API.to_boolean(p_init_msg_list) THEN
685: FND_MSG_PUB.initialize;
686: END IF;

Line 999: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');

995: --IF FND_API.TO_BOOLEAN(p_commit) THEN
996: -- COMMIT;
997: --END IF;
998: IF l_debug = 'Y' THEN
999: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');
1000: AHL_DEBUG_PUB.disable_debug;
1001: END IF;
1002: EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1003: ROLLBACK TO GET_MR_AFFECTED_ITEMS_PVT;

Line 1011: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');

1007: p_data => x_msg_data);
1008: IF l_debug = 'Y' THEN
1009: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
1010: 'UNEXPECTED ERROR IN PRIVATE:' );
1011: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');
1012: AHL_DEBUG_PUB.disable_debug;
1013: END IF;
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: ROLLBACK TO GET_MR_AFFECTED_ITEMS_PVT;

Line 1023: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');

1019: p_data => x_msg_data);
1020: IF l_debug = 'Y' THEN
1021: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
1022: 'ERROR IN PRIVATE:' );
1023: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');
1024: AHL_DEBUG_PUB.disable_debug;
1025: END IF;
1026: WHEN OTHERS THEN
1027: ROLLBACK TO GET_MR_AFFECTED_ITEMS_PVT;

Line 1030: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',

1026: WHEN OTHERS THEN
1027: ROLLBACK TO GET_MR_AFFECTED_ITEMS_PVT;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1030: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',
1031: p_procedure_name => 'GET_MR_AFFECTED_ITEMS',
1032: p_error_text => SUBSTR(SQLERRM,1,240));
1033: END IF;
1034: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 1040: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');

1036: p_data => x_msg_data);
1037: IF l_debug = 'Y' THEN
1038: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data,
1039: 'OTHER ERROR IN PRIVATE:' );
1040: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS');
1041: AHL_DEBUG_PUB.disable_debug;
1042: END IF;
1043: END GET_MR_AFFECTED_ITEMS;
1044:

Line 1233: AHL_FMP_PVT.Instance_Matches_Path_Pos(cii.instance_id,A.relationship_id) = 'T'))

1229: AND SYSDATE between trunc(MR.effective_from) and trunc(nvl(MR.effective_to,SYSDATE+1))
1230: AND MR.version_number in (SELECT max(MRM.version_number) from ahl_mr_headers_app_v MRM where SYSDATE between trunc(MR.effective_from) and trunc(nvl(MR.effective_to,SYSDATE+1)) and title=mr.title and mr_status_code='COMPLETE' group by MRM.title)
1231: AND (A.inventory_item_id = cii.inventory_item_id OR
1232: (A.inventory_item_id IS NULL AND A.relationship_id IS NOT NULL AND
1233: AHL_FMP_PVT.Instance_Matches_Path_Pos(cii.instance_id,A.relationship_id) = 'T'))
1234: ORDER BY cir.depth, cir.subject_id; -- depth, subject_id
1235: */
1236:
1237: /* 15-Sept 08: Modified logic to seperate processing based Inventory Items, MC positions

Line 1322: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'

1318: AND a.relationship_id = mcp.path_position_id
1319: AND (a.inventory_item_id IS NULL OR a.inventory_item_id = cir.inventory_item_id)
1320: -- AND TO_NUMBER(cir.POSITION_REFERENCE) = rel.RELATIONSHIP_ID
1321: -- AND REL.mc_header_id = HDR.mc_header_id
1322: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'
1323: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,
1324: -- mcp.ENCODED_PATH_POSITION, hdr.mc_id,
1325: -- hdr.version_number, rel.position_key) = 'T'
1326:

Line 1323: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,

1319: AND (a.inventory_item_id IS NULL OR a.inventory_item_id = cir.inventory_item_id)
1320: -- AND TO_NUMBER(cir.POSITION_REFERENCE) = rel.RELATIONSHIP_ID
1321: -- AND REL.mc_header_id = HDR.mc_header_id
1322: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'
1323: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,
1324: -- mcp.ENCODED_PATH_POSITION, hdr.mc_id,
1325: -- hdr.version_number, rel.position_key) = 'T'
1326:
1327: ) appl_mr

Line 1462: AHL_FMP_PVT.Instance_Matches_Path_Pos(cii.instance_id,A.relationship_id) = 'T'))

1458: AND SYSDATE between trunc(MR.effective_from) and trunc(nvl(MR.effective_to,SYSDATE+1))
1459: AND MR.version_number in (SELECT max(MRM.version_number) from ahl_mr_headers_app_v MRM where SYSDATE between trunc(MR.effective_from) and trunc(nvl(MR.effective_to,SYSDATE+1)) and title=mr.title and mr_status_code='COMPLETE' group by MRM.title)
1460: AND (A.inventory_item_id = cii.inventory_item_id OR
1461: (A.inventory_item_id IS NULL AND A.relationship_id IS NOT NULL AND
1462: AHL_FMP_PVT.Instance_Matches_Path_Pos(cii.instance_id,A.relationship_id) = 'T'))
1463: ORDER BY cir.depth, cir.subject_id; -- depth, subject_id
1464: */
1465:
1466: /* 15-Sept 08: Modified logic to seperate processing based Inventory Items, MC positions

Line 1535: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'

1531: AND a.relationship_id = mcp.path_position_id
1532: AND (a.inventory_item_id IS NULL OR a.inventory_item_id = cir.inventory_item_id)
1533: -- AND TO_NUMBER(cir.POSITION_REFERENCE) = rel.RELATIONSHIP_ID
1534: -- AND REL.mc_header_id = HDR.mc_header_id
1535: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'
1536: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,
1537: -- mcp.ENCODED_PATH_POSITION, hdr.mc_id,
1538: -- hdr.version_number, rel.position_key) = 'T'
1539:

Line 1536: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,

1532: AND (a.inventory_item_id IS NULL OR a.inventory_item_id = cir.inventory_item_id)
1533: -- AND TO_NUMBER(cir.POSITION_REFERENCE) = rel.RELATIONSHIP_ID
1534: -- AND REL.mc_header_id = HDR.mc_header_id
1535: AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id) = 'T'
1536: -- AND AHL_FMP_PVT.Instance_Matches_Path_Pos(cir.subject_id,A.relationship_id,
1537: -- mcp.ENCODED_PATH_POSITION, hdr.mc_id,
1538: -- hdr.version_number, rel.position_key) = 'T'
1539:
1540: ) appl_mr

Line 1825: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_APPLICABLE_MRS');

1821: SAVEPOINT GET_APPLICABLE_MRS_PVT;
1822:
1823: IF l_debug = 'Y' THEN
1824: AHL_DEBUG_PUB.enable_debug;
1825: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_APPLICABLE_MRS');
1826: AHL_DEBUG_PUB.debug('Input p_item_instance_id:' || p_item_instance_id);
1827: AHL_DEBUG_PUB.debug('Input p_mr_header_id:' || p_mr_header_id);
1828: AHL_DEBUG_PUB.debug('Input p_components_flag:' || p_components_flag);
1829: AHL_DEBUG_PUB.debug('Input p_include_doNotImplmt:' || p_include_doNotImplmt);

Line 2268: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_APPLICABLE_MRS');

2264: DELETE FROM ahl_applicable_instances;
2265:
2266: --DBMS_OUTPUT.PUT_LINE('API2: Successfully executed API2!');
2267: IF l_debug = 'Y' THEN
2268: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_APPLICABLE_MRS');
2269: AHL_DEBUG_PUB.disable_debug;
2270: END IF;
2271:
2272:

Line 2284: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');

2280: p_data => x_msg_data);
2281: IF l_debug = 'Y' THEN
2282: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
2283: 'UNEXPECTED ERROR IN PRIVATE:' );
2284: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');
2285: AHL_DEBUG_PUB.disable_debug;
2286: END IF;
2287:
2288: WHEN FND_API.G_EXC_ERROR THEN

Line 2297: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');

2293: p_data => x_msg_data);
2294: IF l_debug = 'Y' THEN
2295: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
2296: 'ERROR IN PRIVATE:' );
2297: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');
2298: AHL_DEBUG_PUB.disable_debug;
2299: END IF;
2300:
2301: WHEN OTHERS THEN

Line 2305: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',

2301: WHEN OTHERS THEN
2302: ROLLBACK TO GET_APPLICABLE_MRS_PVT;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2305: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',
2306: p_procedure_name => 'GET_APPLICABLE_MRS',
2307: p_error_text => SUBSTRB(SQLERRM,1,240));
2308: END IF;
2309: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 2315: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');

2311: p_data => x_msg_data);
2312: IF l_debug = 'Y' THEN
2313: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data,
2314: 'OTHER ERROR IN PRIVATE:' );
2315: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_APPLICABLE_MRS');
2316: AHL_DEBUG_PUB.disable_debug;
2317: END IF;
2318: END GET_APPLICABLE_MRS;
2319:

Line 3013: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');

3009: BEGIN
3010: SAVEPOINT GET_PM_APPLICABLE_MRS_PVT;
3011: IF l_debug = 'Y' THEN
3012: AHL_DEBUG_PUB.enable_debug;
3013: AHL_DEBUG_PUB.debug('Begin private API: AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');
3014: AHL_DEBUG_PUB.debug('');
3015: END IF;
3016: IF FND_API.to_boolean(p_init_msg_list) THEN
3017: FND_MSG_PUB.initialize;

Line 3204: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');

3200: END LOOP;
3201: END IF;
3202:
3203: IF l_debug = 'Y' THEN
3204: AHL_DEBUG_PUB.debug('End private API: AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');
3205: AHL_DEBUG_PUB.disable_debug;
3206: END IF;
3207:
3208: EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 3217: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');

3213: p_data => x_msg_data);
3214: IF l_debug = 'Y' THEN
3215: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
3216: 'UNEXPECTED ERROR IN PRIVATE:' );
3217: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');
3218: AHL_DEBUG_PUB.disable_debug;
3219: END IF;
3220: WHEN FND_API.G_EXC_ERROR THEN
3221: ROLLBACK TO GET_PM_APPLICABLE_MRS_PVT;

Line 3229: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');

3225: p_data => x_msg_data);
3226: IF l_debug = 'Y' THEN
3227: AHL_DEBUG_PUB.log_app_messages(x_msg_count, x_msg_data,
3228: 'ERROR IN PRIVATE:' );
3229: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');
3230: AHL_DEBUG_PUB.disable_debug;
3231: END IF;
3232: WHEN OTHERS THEN
3233: ROLLBACK TO GET_PM_APPLICABLE_MRS_PVT;

Line 3236: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',

3232: WHEN OTHERS THEN
3233: ROLLBACK TO GET_PM_APPLICABLE_MRS_PVT;
3234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3235: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3236: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',
3237: p_procedure_name => 'GET_PM_APPLICABLE_MRS',
3238: p_error_text => SUBSTRB(SQLERRM,1,240));
3239: END IF;
3240: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 3247: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');

3243: IF l_debug = 'Y' THEN
3244:
3245: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data,
3246: 'OTHER ERROR IN PRIVATE:' );
3247: AHL_DEBUG_PUB.debug('AHL_FMP_PVT.GET_PM_APPLICABLE_MRS');
3248: AHL_DEBUG_PUB.disable_debug;
3249: END IF;
3250:
3251: END GET_PM_APPLICABLE_MRS;

Line 3267: l_appl_mrs_tbl AHL_FMP_PVT.applicable_mr_tbl_type;

3263: p_visit_type_code IN VARCHAR2
3264: )
3265: AS
3266: l_api_version CONSTANT NUMBER := 1.0;
3267: l_appl_mrs_tbl AHL_FMP_PVT.applicable_mr_tbl_type;
3268:
3269: BEGIN
3270: -- Initialize temporary table.
3271: SAVEPOINT GET_VISIT_APPLICABLE_MRS_PVT;

Line 3275: AHL_FMP_PVT.get_applicable_mrs(

3271: SAVEPOINT GET_VISIT_APPLICABLE_MRS_PVT;
3272: DELETE FROM AHL_APPLICABLE_MRS;
3273:
3274: -- call api to fetch all applicable mrs for ASO installation.
3275: AHL_FMP_PVT.get_applicable_mrs(
3276: p_api_version => l_api_version,
3277: p_init_msg_list => FND_API.G_FALSE,
3278: p_commit => FND_API.G_FALSE,
3279: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

Line 3370: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',

3366: WHEN OTHERS THEN
3367: ROLLBACK TO GET_VISIT_APPLICABLE_MRS_PVT;
3368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3370: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'AHL_FMP_PVT',
3371: p_procedure_name => 'GET_PM_APPLICABLE_MRS',
3372: p_error_text => SUBSTRB(SQLERRM,1,240));
3373: END IF;
3374: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 3379: END AHL_FMP_PVT; -- Package Body

3375: p_count => x_msg_count,
3376: p_data => x_msg_data);
3377: END GET_VISIT_APPLICABLE_MRS;
3378:
3379: END AHL_FMP_PVT; -- Package Body
3380: