52: IS
53:
54: CURSOR C IS
55: SELECT rowid
56: FROM psb_ws_distribution_rule_lines
57: WHERE distribution_rule_line_id = p_distribution_rule_line_id ;
58:
59: --
60: P_LAST_UPDATE_DATE DATE;
103: raise FND_API.G_EXC_ERROR;
104: end if;
105: --
106:
107: INSERT INTO psb_ws_distribution_rule_lines
108: ( distribution_rule_line_id,
109: distribution_rule_id,
110: budget_group_id,
111: distribute_flag,
272: attribute8,
273: attribute9,
274: attribute10,
275: context
276: FROM psb_ws_distribution_rule_lines
277: WHERE distribution_rule_line_id = p_distribution_rule_line_id
278: FOR UPDATE of distribution_rule_id NOWAIT;
279: Recinfo C%ROWTYPE;
280:
503: FND_MSG_PUB.Add ;
504: raise FND_API.G_EXC_ERROR ;
505: end if;
506: --
507: UPDATE psb_ws_distribution_rule_lines
508: SET
509: distribution_rule_id = p_distribution_rule_id,
510: Budget_Group_Id = p_Budget_Group_Id ,
511: distribute_flag = p_distribute_flag ,
621: p_return_status := FND_API.G_RET_STS_SUCCESS ;
622: --
623:
624: --
625: -- Deleting the record in psb_ws_distribution_rule_lines.
626: --
627: DELETE psb_ws_distribution_rule_lines
628: WHERE distribution_rule_line_id = p_distribution_rule_line_id;
629:
623:
624: --
625: -- Deleting the record in psb_ws_distribution_rule_lines.
626: --
627: DELETE psb_ws_distribution_rule_lines
628: WHERE distribution_rule_line_id = p_distribution_rule_line_id;
629:
630: IF (SQL%NOTFOUND) THEN
631: RAISE NO_DATA_FOUND ;
1128: FND_MSG_PUB.Add;
1129: RAISE FND_API.G_EXC_ERROR ;
1130: END IF;
1131: --
1132: -- Deleting the record in psb_ws_distribution_rule_lines and rules.
1133: --
1134: DELETE psb_ws_distribution_rules
1135: WHERE distribution_rule_id = p_distribution_rule_id;
1136:
1133: --
1134: DELETE psb_ws_distribution_rules
1135: WHERE distribution_rule_id = p_distribution_rule_id;
1136:
1137: DELETE psb_ws_distribution_rule_lines
1138: WHERE distribution_rule_id = p_distribution_rule_id;
1139:
1140: IF (SQL%NOTFOUND) THEN
1141: RAISE NO_DATA_FOUND ;
1221: attribute8 ,
1222: attribute9 ,
1223: attribute10 ,
1224: context
1225: FROM psb_ws_distribution_rule_lines
1226: WHERE distribution_rule_id = p_Source_Distribution_Rule_Id ;
1227:
1228: --
1229: l_api_name CONSTANT VARCHAR2(30) := 'Copy_Rule';