[Home] [Help]
69: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
70:
71: PROCEDURE Initialize IS
72: BEGIN
73: SELECT CZ_PS_NODES_S.NEXTVAL INTO currentPSNode FROM dual;
74: currPSSeqVal:=currentPSNode;
75:
76: SELECT TO_NUMBER(value) INTO mINCREMENT FROM cz_db_settings
77: WHERE UPPER(setting_id)=UPPER('OracleSequenceIncr') AND section_name='SCHEMA';
90:
91: IF currentPSNode
93: ELSE
94: SELECT CZ_PS_NODES_S.nextval INTO currPSSeqVal FROM dual;
95: currentPSNode:=currPSSeqVal;
96: END IF;
97: RETURN currentPSNode;
98: END getPSSeqVal;
122:
123: FUNCTION GetRunID return INTEGER IS
124: RUN_ID NUMBER;
125: BEGIN
126: select CZ_XFR_RUN_INFOS_S.NEXTVAL INTO RUN_ID FROM dual;
127: return RUN_ID;
128: END GetRunID;
129:
130: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
149: -- initialize global run_id ( <-> CZ_DB_LOGS.run_id )
150: --
151: --PROCEDURE Initialize IS
152: --BEGIN
153: -- SELECT CZ_XFR_RUN_INFOS_S.NEXTVAL INTO gRUN_ID FROM dual;
154: -- fnd_msg_pub.initialize;
155: --END Initialize;
156:
157: --
578: FUNCTION allocateId(p_sequence_name IN VARCHAR2) RETURN NUMBER IS
579: l_id NUMBER;
580: BEGIN
581: EXECUTE IMMEDIATE
582: 'SELECT '||p_sequence_name||'.NEXTVAL FROM dual' INTO l_id;
583: RETURN l_id;
584: END allocateId;
585:
586: --
2538:
2539: END IF;
2540:
2541: BEGIN
2542: SELECT CZ_RULE_FOLDERS_S.NEXTVAL INTO x_out_rule_folder_id FROM dual;
2543: INSERT INTO CZ_RULE_FOLDERS
2544: (RULE_FOLDER_ID,
2545: FOLDER_TYPE,
2546: NAME,
5339: --
5341: l_attrib_val := g_attribute_map(p_attrib_val);
5342: ELSE
5343: SELECT cz_ui_page_elements_s.nextval INTO l_new_seq FROM dual;
5344: l_attrib_val := '_czc'||l_new_seq;
5345: g_attribute_map(p_attrib_val) := l_attrib_val;
5346: END IF;
5347:
5356: -- This case can happen when user:attribute3 is processed before the id attribute
5357: -- We have no control over the order in which these attributes are returned.
5358: -- So this case can occur. Since id is not yet processed we dont have the new id
5359: -- So let us just create a new id for the switcher right now and put it in the map
5360: SELECT cz_ui_page_elements_s.nextval INTO l_new_seq FROM dual;
5361: -- this is the new id attribute value for the switcher.
5362: -- We will put it in the map so that it gets used when processing the id attribute in the
5363: -- first If block in this function
5364: l_attrib_val := '_czc'||l_new_seq;
5538: END IF;
5539:
5540: ELSE
5541:
5542: SELECT cz_ui_actions_s.nextval INTO l_new_element_id FROM dual;
5543:
5544: INSERT INTO CZ_UI_ACTIONS
5545: (UI_ACTION_ID,UI_DEF_ID,SOURCE_PAGE_ID,CONTEXT_COMPONENT_ID,ELEMENT_ID,RENDER_CONDITION_ID,
5546: UI_ACTION_TYPE,TARGET_UI_DEF_ID,TARGET_PERSISTENT_NODE_ID,TARGET_NODE_PATH,TARGET_PAGE_SET_ID,
10666: ---------------------------------------------------------------------------------------
10667: BEGIN
10668:
10669: IF(x_run_id IS NULL OR x_run_id = 0)THEN
10670: SELECT cz_xfr_run_infos_s.NEXTVAL INTO x_run_id FROM DUAL;
10671: END IF;
10672:
10673: SELECT rule_type, component_id, model_ref_expl_id, devl_project_id, rule_folder_id, name,
10674: class_name, seeded_flag, invalid_flag, instantiation_scope
11972: l_index NUMBER;
11973: l_next_index NUMBER;
11974: BEGIN
11975:
11976: SELECT REVERSE(p_class_name) INTO l_reverse_string FROM dual;
11977: SELECT REVERSE(p_pattern) INTO l_reverse_pattern FROM dual;
11978:
11979: l_index := INSTR(l_reverse_string,'.');
11980:
11973: l_next_index NUMBER;
11974: BEGIN
11975:
11976: SELECT REVERSE(p_class_name) INTO l_reverse_string FROM dual;
11977: SELECT REVERSE(p_pattern) INTO l_reverse_pattern FROM dual;
11978:
11979: l_index := INSTR(l_reverse_string,'.');
11980:
11981: IF l_index=0 THEN
12153:
12154: -- For numeric data_type property value should be number.
12155: IF (l_data_type in (1,2,3)) THEN
12156: BEGIN
12157: SELECT TO_NUMBER(p_property_value) INTO l_invalid FROM dual;
12158:
12159: EXCEPTION
12160: WHEN INVALID_NUMBER THEN
12161: RAISE data_type_mismatch;