[Home] [Help]
694: P_action_Rec action_Rec_Type;
695: p_validation_mode VARCHAR2(1);
696: l_reason_type_count NUMBER;
697:
698: CURSOR C2 IS SELECT OZF_REASONS_S.nextval FROM sys.dual;
699:
700: CURSOR C_REASON_TYPE_COUNT(l_reason_type_id NUMBER)
701: IS SELECT COUNT(REASON_TYPE_ID)
702: FROM OZF_REASONS
698: CURSOR C2 IS SELECT OZF_REASONS_S.nextval FROM sys.dual;
699:
700: CURSOR C_REASON_TYPE_COUNT(l_reason_type_id NUMBER)
701: IS SELECT COUNT(REASON_TYPE_ID)
702: FROM OZF_REASONS
703: WHERE REASON_TYPE_ID = l_reason_type_id;
704:
705:
706: CURSOR db_rec_csr (p_id number) IS
707: SELECT object_version_number
708: , task_template_group_id
709: , active_flag
710: , default_flag
711: FROM ozf_reasons
712: WHERE reason_type_id = p_id;
713:
714: BEGIN
715:
788: EXIT WHEN l_reason_type_count = 0;
789: END LOOP;
790:
791: BEGIN
792: INSERT INTO ozf_reasons (
793: REASON_TYPE_ID,
794: OBJECT_VERSION_NUMBER,
795: LAST_UPDATE_DATE,
796: LAST_UPDATED_BY,
851: OR l_active_flag <> p_action_tbl(i).active_flag
852: OR l_default_flag <> p_action_tbl(i).default_flag
853: THEN
854: BEGIN
855: UPDATE ozf_reasons
856: SET OBJECT_VERSION_NUMBER = l_object_version_number
857: , LAST_UPDATE_DATE = SYSDATE
858: , LAST_UPDATED_BY = FND_GLOBAL.USER_ID
859: , LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID
1010: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1011: END IF;
1012:
1013: -- Invoke table handler(OZF_reason_codes_All_PKG.Delete_Row)
1014: DELETE FROM ozf_reasons
1015: WHERE reason_type_id = p_reason_type_id
1016: AND object_version_number = p_object_version_number;
1017:
1018: If (SQL%NOTFOUND) then
1115:
1116: IF( p_validation_mode = JTF_PLSQL_API.g_create )
1117: THEN
1118: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
1119: 'OZF_REASONS',
1120: ' TASK_TEMPLATE_GROUP_ID ='||' '||P_action_Rec.TASK_TEMPLATE_GROUP_ID ||''||
1121: ' AND REASON_CODE_ID = '||' '|| P_action_Rec.REASON_CODE_ID
1122: );
1123: END IF;