[Home] [Help]
36: mCOUNTER INTEGER:=0;
37:
38: FAILED_TO_LOCK_MODEL EXCEPTION;
39:
40: mPS_NODE_SEQUENCE VARCHAR2(255) := 'CZ_PS_NODES_S';
41: mINTL_TEXT_SEQUENCE VARCHAR2(255) := 'CZ_INTL_TEXTS_S';
42:
43: mINCREMENT NUMBER := 20;
44:
137:
138: Get_Seq_Increment;
139:
140: IF p_seq_name=mPS_NODE_SEQUENCE THEN
141: SELECT CZ_PS_NODES_S.NEXTVAL INTO mNext_PS_Node_Id FROM dual;
142: mBase_PS_Node_Id:=mNext_PS_Node_Id;
143: ELSIF p_seq_name=mINTL_TEXT_SEQUENCE THEN
144: SELECT CZ_INTL_TEXTS_S.NEXTVAL INTO mNext_Text_Id FROM dual;
145: mBase_Text_Id := mNext_Text_Id;
156: IF p_seq_name=mPS_NODE_SEQUENCE THEN
157: IF (mNext_PS_Node_Id < mBase_PS_Node_Id+mINCREMENT-1) THEN
158: mNext_PS_Node_Id := mNext_PS_Node_Id + 1;
159: ELSE
160: SELECT CZ_PS_NODES_S.nextval INTO mBase_PS_Node_Id FROM dual;
161: mNext_PS_Node_Id:=mBase_PS_Node_Id;
162: END IF;
163: RETURN mNext_PS_Node_Id;
164: ELSIF p_seq_name=mINTL_TEXT_SEQUENCE THEN
1100: --
1101: -- delete those PS Tree nodes which don't satisfy --
1102: -- a Populator condition anymore --
1103: --
1104: UPDATE CZ_PS_NODES SET deleted_flag='1'
1105: WHERE parent_id=var_parent_id
1106: AND deleted_flag='0' AND
1107: USER_STR03 NOT IN
1108: (SELECT USER_STR03
1156: --
1157: -- delete those PS Tree nodes which don't satisfy --
1158: -- a Populator condition anymore --
1159: --
1160: UPDATE CZ_PS_NODES SET deleted_flag='1'
1161: WHERE parent_id=var_parent_id
1162: AND deleted_flag='0' AND
1163: (NVL(PROPERTY_BACKPTR,NULL_VALUE),
1164: NVL(ITEM_TYPE_BACKPTR,NULL_VALUE),NVL(ITEM_ID,NULL_VALUE),