1: PACKAGE BODY AHL_UMP_SMRINSTANCE_PVT AS
2: /* $Header: AHLVSMRB.pls 120.9.12010000.2 2008/12/27 18:00:29 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UMP_SMRINSTANCE_PVT';
5:
1: PACKAGE BODY AHL_UMP_SMRINSTANCE_PVT AS
2: /* $Header: AHLVSMRB.pls 120.9.12010000.2 2008/12/27 18:00:29 sracha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_UMP_SMRINSTANCE_PVT';
5:
6: -- FND Logging Constants
7: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: -- Declare Local Procedures --
14: -------------------------------
15: PROCEDURE populate_instances(
16: p_module_type IN VARCHAR2,
17: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type);
18:
19:
20: PROCEDURE populate_dependent_instances(
21: p_module_type IN VARCHAR2,
18:
19:
20: PROCEDURE populate_dependent_instances(
21: p_module_type IN VARCHAR2,
22: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type);
23:
24: TYPE nbr_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
25:
26: -------------------------------------
82: p_default IN VARCHAR2 := FND_API.G_TRUE,
83: p_module_type IN VARCHAR2 := NULL,
84: p_start_row IN NUMBER,
85: p_rows_per_page IN NUMBER,
86: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type,
87: x_results_mr_instance_tbl OUT NOCOPY AHL_UMP_SMRINSTANCE_PVT.Results_MRInstance_Tbl_Type,
88: x_results_count OUT NOCOPY NUMBER,
89: x_return_status OUT NOCOPY VARCHAR2,
90: x_msg_count OUT NOCOPY NUMBER,
83: p_module_type IN VARCHAR2 := NULL,
84: p_start_row IN NUMBER,
85: p_rows_per_page IN NUMBER,
86: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type,
87: x_results_mr_instance_tbl OUT NOCOPY AHL_UMP_SMRINSTANCE_PVT.Results_MRInstance_Tbl_Type,
88: x_results_count OUT NOCOPY NUMBER,
89: x_return_status OUT NOCOPY VARCHAR2,
90: x_msg_count OUT NOCOPY NUMBER,
91: x_msg_data OUT NOCOPY VARCHAR2 ) IS
300: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)THEN
301: fnd_log.string
302: (
303: G_DEBUG_PROC,
304: 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances.begin',
305: 'At the start of PLSQL procedure'
306: );
307: END IF;
308: -- Standard start of API savepoint
329: -- Logging input
330: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)THEN
331: fnd_log.string
332: (
333: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
334: 'p_search_mr_instance_rec.unit_name :' || p_search_mr_instance_rec.unit_name
335: );
336: fnd_log.string
337: (
334: 'p_search_mr_instance_rec.unit_name :' || p_search_mr_instance_rec.unit_name
335: );
336: fnd_log.string
337: (
338: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
339: 'p_search_mr_instance_rec.part_number :' || p_search_mr_instance_rec.part_number
340: );
341: fnd_log.string
342: (
339: 'p_search_mr_instance_rec.part_number :' || p_search_mr_instance_rec.part_number
340: );
341: fnd_log.string
342: (
343: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
344: 'p_search_mr_instance_rec.serial_number :' || p_search_mr_instance_rec.serial_number
345: );
346: fnd_log.string
347: (
344: 'p_search_mr_instance_rec.serial_number :' || p_search_mr_instance_rec.serial_number
345: );
346: fnd_log.string
347: (
348: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
349: 'p_search_mr_instance_rec.sort_by :' || p_search_mr_instance_rec.sort_by
350: );
351: fnd_log.string
352: (
349: 'p_search_mr_instance_rec.sort_by :' || p_search_mr_instance_rec.sort_by
350: );
351: fnd_log.string
352: (
353: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
354: 'p_search_mr_instance_rec.mr_status :' || p_search_mr_instance_rec.mr_status
355: );
356: fnd_log.string
357: (
354: 'p_search_mr_instance_rec.mr_status :' || p_search_mr_instance_rec.mr_status
355: );
356: fnd_log.string
357: (
358: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
359: 'p_search_mr_instance_rec.program_type :' || p_search_mr_instance_rec.program_type
360: );
361: fnd_log.string
362: (
359: 'p_search_mr_instance_rec.program_type :' || p_search_mr_instance_rec.program_type
360: );
361: fnd_log.string
362: (
363: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
364: 'p_search_mr_instance_rec.due_from :' || p_search_mr_instance_rec.due_from
365: );
366: fnd_log.string
367: (
364: 'p_search_mr_instance_rec.due_from :' || p_search_mr_instance_rec.due_from
365: );
366: fnd_log.string
367: (
368: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
369: 'p_search_mr_instance_rec.due_to :' || p_search_mr_instance_rec.due_to
370: );
371: fnd_log.string
372: (
369: 'p_search_mr_instance_rec.due_to :' || p_search_mr_instance_rec.due_to
370: );
371: fnd_log.string
372: (
373: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
374: 'p_search_mr_instance_rec.show_tolerance :' || p_search_mr_instance_rec.show_tolerance
375: );
376: fnd_log.string
377: (
374: 'p_search_mr_instance_rec.show_tolerance :' || p_search_mr_instance_rec.show_tolerance
375: );
376: fnd_log.string
377: (
378: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
379: 'p_search_mr_instance_rec.components_flag :' || p_search_mr_instance_rec.components_flag
380: );
381: fnd_log.string
382: (
379: 'p_search_mr_instance_rec.components_flag :' || p_search_mr_instance_rec.components_flag
380: );
381: fnd_log.string
382: (
383: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
384: 'p_search_mr_instance_rec.repetitive_flag :' || p_search_mr_instance_rec.repetitive_flag
385: );
386: fnd_log.string
387: (
384: 'p_search_mr_instance_rec.repetitive_flag :' || p_search_mr_instance_rec.repetitive_flag
385: );
386: fnd_log.string
387: (
388: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
389: 'p_search_mr_instance_rec.contract_number :' || p_search_mr_instance_rec.contract_number
390: );
391: fnd_log.string
392: (
389: 'p_search_mr_instance_rec.contract_number :' || p_search_mr_instance_rec.contract_number
390: );
391: fnd_log.string
392: (
393: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
394: 'p_search_mr_instance_rec.contract_modifier :' || p_search_mr_instance_rec.contract_modifier
395: );
396: fnd_log.string
397: (
394: 'p_search_mr_instance_rec.contract_modifier :' || p_search_mr_instance_rec.contract_modifier
395: );
396: fnd_log.string
397: (
398: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
399: 'p_search_mr_instance_rec.contract_number :' || p_search_mr_instance_rec.contract_number
400: );
401: fnd_log.string
402: (
399: 'p_search_mr_instance_rec.contract_number :' || p_search_mr_instance_rec.contract_number
400: );
401: fnd_log.string
402: (
403: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
404: 'p_search_mr_instance_rec.service_line_id :' || p_search_mr_instance_rec.service_line_id
405: );
406: fnd_log.string
407: (
404: 'p_search_mr_instance_rec.service_line_id :' || p_search_mr_instance_rec.service_line_id
405: );
406: fnd_log.string
407: (
408: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
409: 'p_search_mr_instance_rec.service_line_num :' || p_search_mr_instance_rec.service_line_num
410: );
411: fnd_log.string
412: (
409: 'p_search_mr_instance_rec.service_line_num :' || p_search_mr_instance_rec.service_line_num
410: );
411: fnd_log.string
412: (
413: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
414: 'p_search_mr_instance_rec.program_id :' || p_search_mr_instance_rec.program_id
415: );
416: fnd_log.string
417: (
414: 'p_search_mr_instance_rec.program_id :' || p_search_mr_instance_rec.program_id
415: );
416: fnd_log.string
417: (
418: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
419: 'p_search_mr_instance_rec.program_title :' || p_search_mr_instance_rec.program_title
420: );
421: fnd_log.string
422: (
419: 'p_search_mr_instance_rec.program_title :' || p_search_mr_instance_rec.program_title
420: );
421: fnd_log.string
422: (
423: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
424: 'p_search_mr_instance_rec.show_groupmr :' || p_search_mr_instance_rec.show_groupmr
425: );
426: fnd_log.string
427: (
424: 'p_search_mr_instance_rec.show_groupmr :' || p_search_mr_instance_rec.show_groupmr
425: );
426: fnd_log.string
427: (
428: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
429: 'p_search_mr_instance_rec.object_type :' || p_search_mr_instance_rec.object_type
430: );
431:
432: fnd_log.string
430: );
431:
432: fnd_log.string
433: (
434: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
435: 'p_search_mr_instance_rec.search_for_type :' || p_search_mr_instance_rec.search_for_type
436: );
437:
438: fnd_log.string
436: );
437:
438: fnd_log.string
439: (
440: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
441: 'p_search_mr_instance_rec.INCIDENT_TYPE_ID :' || p_search_mr_instance_rec.INCIDENT_TYPE_ID
442: );
443:
444: fnd_log.string
442: );
443:
444: fnd_log.string
445: (
446: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
447: 'p_search_mr_instance_rec.SERVICE_REQ_NUM :' || p_search_mr_instance_rec.SERVICE_REQ_NUM
448: );
449: END IF;
450:
888: -- Logging the sql string .
889: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)THEN
890: fnd_log.string
891: (
892: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
893: 'Prepared SQL string IS '
894: );
895: l_sql_segment_count := CEIL(LENGTH(l_sql_string)/4000);
896: FOR i in 1..l_sql_segment_count LOOP
896: FOR i in 1..l_sql_segment_count LOOP
897: IF(i < l_sql_segment_count - 1) THEN
898: fnd_log.string
899: (
900: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
901: SUBSTR(l_sql_string,(i-1)*4000,4000)
902: );
903: ELSE
904: fnd_log.string
902: );
903: ELSE
904: fnd_log.string
905: (
906: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
907: SUBSTR(l_sql_string,(i-1)*4000, LENGTH(l_sql_string) - (l_sql_segment_count -1 ) * 4000)
908: );
909: END IF;
910: END LOOP;
1159: -- Logging input
1160: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)THEN
1161: fnd_log.string
1162: (
1163: G_DEBUG_STMT, 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances',
1164: 'number of records returned :' || x_results_count
1165: );
1166: END IF;
1167:
1168: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)THEN
1169: fnd_log.string
1170: (
1171: G_DEBUG_PROC,
1172: 'ahl.plsql.AHL_UMP_SMRINSTANCE_PVT.Search_MR_Instances.end',
1173: 'At the end of PLSQL procedure'
1174: );
1175: END IF;
1176:
1205:
1206:
1207: PROCEDURE populate_instances(
1208: p_module_type IN VARCHAR2,
1209: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type) IS
1210:
1211:
1212: CURSOR only_units_csr(p_unit_name in VARCHAR2) IS
1213: Select ahlu.csi_item_instance_id from ahl_unit_config_headers ahlu
1326:
1327:
1328: PROCEDURE populate_dependent_instances(
1329: p_module_type IN VARCHAR2,
1330: p_search_mr_instance_rec IN AHL_UMP_SMRINSTANCE_PVT.Search_MRInstance_Rec_Type)IS
1331:
1332: CURSOR dependent_components_csr IS
1333: SELECT subject_id from csi_ii_relationships csii WHERE
1334: EXISTS (select 'x' from ahl_unit_effectivities_b UE where UE.csi_item_instance_id = csii.subject_id)
1367:
1368:
1369: END populate_dependent_instances;
1370:
1371: END AHL_UMP_SMRINSTANCE_PVT;