[Home] [Help]
80: -- FUNCTION
81: -- Get_Restrictive_UE_CRF
82:
83: -- Returns the Id of the UE whose due date is nearest in the future to sysdate.
84: -- when MR Program subtype is fetched from the ahl parameters table
85: --------------------------------------------------------------------
86: FUNCTION Get_Restrictive_UE_CRF(p_instance_id IN NUMBER)
87: RETURN NUMBER IS
88:
97: AND ue.due_date >= sysdate
98: AND ue.status_code IS NULL
99: AND mr.program_subtype_code in (
100: Select parameter_value
101: From ahl_parameters
102: Where parameter_source_type = 'Reports'
103: And parameter_source_sub_type = 'CRF'
104: And parameter_name like 'PROGRAM_SUBTYPE%')
105: AND mr.mr_header_id = ue.mr_header_id
154: --l_uom_code VARCHAR2(3);
155:
156: CURSOR c_get_counter_id(c_counter_index VARCHAR2,c_report_name VARCHAR2 ) IS
157: SELECT TO_NUMBER(parameter_value)
158: FROM AHL_PARAMETERS
159: WHERE parameter_name = c_counter_index
160: AND parameter_source_type = 'Reports'
161: AND parameter_source_sub_type = c_report_name;
162:
244: --
245: CURSOR c_get_counter_id (c_counter_index VARCHAR2) IS
246: SELECT TO_NUMBER(parameter_value)
247:
248: FROM AHL_PARAMETERS
249:
250: WHERE parameter_source_type = 'Reports'
251: AND parameter_source_sub_type = 'USN'
252: AND parameter_name = c_counter_index;
277: fnd_log.string(fnd_log.level_procedure, l_debug || '.begin', 'At the start of function');
278: fnd_log.string(fnd_log.level_procedure, l_debug, 'UE id is:' || p_ue_id || ' Counter_index is: ' || p_counter_index);
279: END IF;
280:
281: -- get the counter id from AHL_PARAMETERS
282: OPEN c_get_counter_id (p_counter_index);
283: FETCH c_get_counter_id INTO l_counter_id;
284: IF( c_get_counter_id%NOTFOUND ) THEN
285: CLOSE c_get_counter_id;
334: l_accomplished_UE NUMBER;
335:
336: CURSOR c_get_counter_id(c_counter_index VARCHAR2) IS
337: SELECT TO_NUMBER(PARAMETER_VALUE)
338: FROM AHL_PARAMETERS
339: WHERE PARAMETER_NAME = c_counter_index
340: AND PARAMETER_SOURCE_TYPE = 'Reports'
341: AND PARAMETER_SOURCE_SUB_TYPE = 'CRF';
342:
348: WHERE AUEB.STATUS_CODE = 'MR-TERMINATE'
349: AND AUEB.CSI_ITEM_INSTANCE_ID = c_instance_id
350: AND MRHB.PROGRAM_SUBTYPE_CODE IN (
351: Select parameter_value
352: From ahl_parameters
353: Where parameter_source_type = 'Reports'
354: And parameter_source_sub_type = 'CRF'
355: And parameter_name like 'PROGRAM_SUBTYPE%')
356: AND AUEB.MR_HEADER_ID = MRHB.MR_HEADER_ID
660: -- To find the next id value from counter sequence
661:
662: -- To find whether id already exists
663: CURSOR c_id_exists (x_id IN NUMBER) IS
664: SELECT 1 FROM Ahl_Parameters
665: WHERE PARAMETER_ID = x_id;
666:
667: -- To validate records
668: -- Duplicate counter ids not allowed for a given counter
667: -- To validate records
668: -- Duplicate counter ids not allowed for a given counter
669: CURSOR c_check_for_dup(x_parameter_name IN VARCHAR2) IS
670: SELECT count(parameter_value)
671: FROM ahl_parameters
672: WHERE parameter_source_type = 'Reports'
673: AND parameter_name like x_parameter_name
674: GROUP BY parameter_value, parameter_source_sub_type
675: HAVING ( COUNT(parameter_value) > 1 );
721: RAISE Fnd_Api.G_EXC_ERROR;
722: END IF;
723: CLOSE c_id_exists;
724: --Update the table with the new counter values
725: UPDATE ahl_parameters
726: SET --parameter_name = p_rem_counter_tbl(i).counter_parameter_name,
727: parameter_value = p_rem_counter_tbl(i).counter_parameter_value,
728: OBJECT_VERSION_NUMBER = object_version_number + 1,
729: LAST_UPDATE_DATE = SYSDATE,
821: -- Procedure
822: -- Insert_Records
823: --
824: -- PURPOSE
825: -- To insert records in AHL_PARAMETERS table.
826: --------------------------------------------------------------------
827:
828: PROCEDURE Insert_Records(p_report_name IN VARCHAR,p_parameter_name IN VARCHAR,p_description IN VARCHAR2,p_count IN NUMBER)
829: IS
832: l_description VARCHAR2(200);
833:
834: BEGIN
835: -- Delete records if any exists for the given parameter name and report
836: DELETE FROM AHL_PARAMETERS
837: WHERE Parameter_Source_type = 'Reports'
838: AND Parameter_Source_Sub_Type = p_report_name
839: AND parameter_name like p_parameter_name;
840:
842: for i in 1..p_count loop
843: l_parameter_name := p_parameter_name || i;
844: l_description := p_description || i;
845:
846: Insert into AHL_PARAMETERS (PARAMETER_ID,PARAMETER_SOURCE_TYPE,PARAMETER_SOURCE_SUB_TYPE,PARAMETER_NAME,PARAMETER_VALUE,PARAMETER_DESCRIPTION,OBJECT_VERSION_NUMBER,LAST_UPDATE_DATE,LAST_UPDATED_BY,CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN)
847: values (AHL_PARAMETERS_S.nextval,'Reports',p_report_name,l_parameter_name,null,l_description,1,sysdate,1,sysdate,1,1);
848:
849: end loop;
850:
843: l_parameter_name := p_parameter_name || i;
844: l_description := p_description || i;
845:
846: Insert into AHL_PARAMETERS (PARAMETER_ID,PARAMETER_SOURCE_TYPE,PARAMETER_SOURCE_SUB_TYPE,PARAMETER_NAME,PARAMETER_VALUE,PARAMETER_DESCRIPTION,OBJECT_VERSION_NUMBER,LAST_UPDATE_DATE,LAST_UPDATED_BY,CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN)
847: values (AHL_PARAMETERS_S.nextval,'Reports',p_report_name,l_parameter_name,null,l_description,1,sysdate,1,sysdate,1,1);
848:
849: end loop;
850:
851: END Insert_Records;
851: END Insert_Records;
852:
853: --------------------------------------------------------------------
854: -- Procedure
855: -- Insert_Ahl_Parameters
856: --
857: -- PURPOSE
858: -- To insert into AHL_PARAMETERS table.
859: --------------------------------------------------------------------
854: -- Procedure
855: -- Insert_Ahl_Parameters
856: --
857: -- PURPOSE
858: -- To insert into AHL_PARAMETERS table.
859: --------------------------------------------------------------------
860:
861: PROCEDURE Insert_Ahl_Parameters
862: IS
857: -- PURPOSE
858: -- To insert into AHL_PARAMETERS table.
859: --------------------------------------------------------------------
860:
861: PROCEDURE Insert_Ahl_Parameters
862: IS
863: l_get_count NUMBER;
864:
865: -- To find whether record already exists
863: l_get_count NUMBER;
864:
865: -- To find whether record already exists
866: CURSOR c_record_exists(c_report_name VARCHAR2, c_parameter_name VARCHAR2) IS
867: SELECT count(*) FROM Ahl_Parameters
868: WHERE Parameter_Source_type = 'Reports'
869: AND Parameter_Source_Sub_Type = c_report_name
870: AND parameter_name like c_parameter_name;
871:
868: WHERE Parameter_Source_type = 'Reports'
869: AND Parameter_Source_Sub_Type = c_report_name
870: AND parameter_name like c_parameter_name;
871:
872: L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_Ahl_Parameters';
873: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
874: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
875:
876: BEGIN
935: IF ( l_get_count <> l_quality_plan) THEN
936: insert_records('CRIH','COLLECTION_PLAN_NAME_','Collection Plan Name ',l_quality_plan);
937: END IF;
938:
939: END Insert_Ahl_Parameters;
940:
941:
942: FUNCTION Get_Date
943: RETURN VARCHAR2 AS