[Home] [Help]
6: --------------------------------------------------------------------------
7: -- Start of comments
8: -- API name : Create_BRMRule
9: -- Type : Private
10: -- Function : Create record in JTF_BRM_RULES_B and _TL tables.
11: -- Pre-reqs : None.
12: -- Parameters :
13: -- name direction type required?
14: -- ---- --------- ---- ---------
49: l_rowid ROWID;
50: l_rule_id NUMBER;
51:
52: CURSOR c IS SELECT ROWID
53: FROM JTF_BRM_RULES_B
54: WHERE RULE_ID = l_rule_id;
55:
56: BEGIN
57: --
98:
99: --
100: -- Insert into _B table
101: --
102: INSERT INTO JTF_BRM_RULES_B
103: ( RULE_ID
104: , BRM_OBJECT_TYPE
105: , BRM_OBJECT_CODE
106: , SEEDED_FLAG
266: --------------------------------------------------------------------------
267: -- Start of comments
268: -- API name : Update_BRMRule
269: -- Type : Private
270: -- Function : Update record in JTF_BRM_RULES_B and _TL tables.
271: -- Pre-reqs : None.
272: -- Parameters :
273: -- name direction type required?
274: -- ---- --------- ---- ---------
344: SELECT JTF_BRM_OBJECT_VERSION_S.NEXTVAL
345: INTO l_object_version_number
346: FROM DUAL;
347:
348: UPDATE JTF_BRM_RULES_B
349: SET BRM_OBJECT_TYPE = p_br_rec.BRM_OBJECT_TYPE
350: , BRM_OBJECT_CODE = p_br_rec.BRM_OBJECT_CODE
351: , SEEDED_FLAG = p_br_rec.SEEDED_FLAG
352: , VIEW_DEFINITION = TO_CLOB(p_br_rec.VIEW_DEFINITION)
455: --------------------------------------------------------------------------
456: -- Start of comments
457: -- API Name : Delete_BRMRule
458: -- Type : Private
459: -- Description : Delete record in JTF_BRM_RULES_B and _TL tables.
460: -- Pre-reqs : None
461: -- Parameters :
462: -- name direction type required?
463: -- ---- --------- ---- ---------
536: THEN
537: RAISE no_data_found;
538: END IF;
539:
540: DELETE FROM JTF_BRM_RULES_B
541: WHERE RULE_ID = p_rule_id;
542:
543: --
544: -- Check whether delete was succesful
593: --------------------------------------------------------------------------
594: -- Start of comments
595: -- API Name : Add_Language
596: -- Type : Private
597: -- Description : Additional Language processing for JTF_BRM_RULES_B and
598: -- _TL tables.
599: -- Pre-reqs : None
600: -- Parameters : None
601: -- Version : Current version 1.0
614: -- Delete all records that don't have a base record
615: --
616: DELETE FROM JTF_BRM_RULES_TL t
617: WHERE NOT EXISTS (SELECT NULL
618: FROM JTF_BRM_RULES_B b
619: WHERE b.RULE_ID = t.RULE_ID
620: );
621:
622: --
689: --------------------------------------------------------------------------
690: -- Start of comments
691: -- API Name : Translate_Row
692: -- Type : Private
693: -- Description : Additional Language processing for JTF_BRM_RULES_B and
694: -- _TL tables. Used in the FNDLOAD definition file (.lct)
695: -- Pre-reqs : None
696: -- Parameters : None
697: -- Version : Current version 1.0
724: --------------------------------------------------------------------------
725: -- Start of comments
726: -- API Name : Load_Row
727: -- Type : Private
728: -- Description : Additional Language processing for JTF_BRM_RULES_B and
729: -- _TL tables. Used in the FNDLOAD definition file (.lct)
730: -- Pre-reqs : None
731: -- Parameters : None
732: -- Version : Current version 1.0
758:
759: ------------------------------------------------------------------------
760: -- Try to update the record in the base table
761: ------------------------------------------------------------------------
762: UPDATE JTF_BRM_RULES_B
763: SET BRM_OBJECT_TYPE = p_br_rec.brm_object_type
764: , BRM_OBJECT_CODE = p_br_rec.brm_object_code
765: , SEEDED_FLAG = p_br_rec.seeded_flag
766: , VIEW_DEFINITION = TO_CLOB(p_br_rec.view_definition)
795: -- Apparently the record doesn't exist so create it
796: ------------------------------------------------------------------------
797: IF (SQL%NOTFOUND)
798: THEN
799: INSERT INTO JTF_BRM_RULES_B
800: ( RULE_ID
801: , BRM_OBJECT_TYPE
802: , BRM_OBJECT_CODE
803: , SEEDED_FLAG