[Home] [Help]
57: ,p_ATTRIBUTE14 VARCHAR2
58: ,p_ATTRIBUTE15 VARCHAR2
59: )
60: IS
61: CURSOR C2 IS SELECT PV_PROCESS_RULES_B_S.nextval FROM sys.dual;
62: BEGIN
63: If (px_PROCESS_RULE_ID IS NULL) OR (px_PROCESS_RULE_ID = FND_API.G_MISS_NUM) then
64: OPEN C2;
65: FETCH C2 INTO px_PROCESS_RULE_ID;
64: OPEN C2;
65: FETCH C2 INTO px_PROCESS_RULE_ID;
66: CLOSE C2;
67: End If;
68: INSERT INTO PV_PROCESS_RULES_B(
69: PROCESS_RULE_ID
70: ,PARENT_RULE_ID
71: ,LAST_UPDATE_DATE
72: ,LAST_UPDATED_BY
215: ,p_ATTRIBUTE15 VARCHAR2
216: )
217: IS
218: BEGIN
219: Update PV_PROCESS_RULES_B
220: SET
221: LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
222: ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
223: ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
280: PROCEDURE Delete_Row(
281: p_PROCESS_RULE_ID NUMBER)
282: IS
283: BEGIN
284: DELETE FROM PV_PROCESS_RULES_B
285: WHERE PROCESS_RULE_ID = p_PROCESS_RULE_ID;
286: If (SQL%NOTFOUND) then
287: RAISE NO_DATA_FOUND;
288: End If;
336: )
337: IS
338: CURSOR C IS
339: SELECT *
340: FROM PV_PROCESS_RULES_B
341: WHERE PROCESS_RULE_ID = p_PROCESS_RULE_ID
342: FOR UPDATE of PROCESS_RULE_ID NOWAIT;
343: Recinfo C%ROWTYPE;
344:
493: BEGIN
494: DELETE FROM PV_PROCESS_RULES_TL T
495: WHERE NOT EXISTS
496: (SELECT NULL
497: FROM PV_PROCESS_RULES_B B
498: WHERE B.PROCESS_RULE_ID = T.PROCESS_RULE_ID
499: );
500:
501: UPDATE PV_PROCESS_RULES_TL T SET (
577: l_row_id VARCHAR2(100);
578:
579: CURSOR c_get_last_updated (c_PROCESS_RULE_ID NUMBER) IS
580: SELECT last_updated_by, OBJECT_VERSION_NUMBER
581: FROM PV_PROCESS_RULES_B
582: WHERE PROCESS_RULE_ID = c_PROCESS_RULE_ID;
583: l_last_updated_by NUMBER;
584: l_object_version_number NUMBER;
585: