12: x_line_num NUMBER,
13: x_header_id NUMBER ) IS
14: CURSOR c_dup IS
15: SELECT 'Duplicate'
16: FROM gl_recurring_line_calc_rules r
17: WHERE r.rule_num = x_rule_num
18: AND r.recurring_line_num = x_line_num
19: AND r.recurring_header_id = x_header_id
20: AND ( x_rowid is NULL
52: x_old_line_num NUMBER,
53: x_header_id NUMBER ) IS
54: BEGIN
55:
56: UPDATE gl_recurring_line_calc_rules r
57: SET r.recurring_line_num = x_new_line_num
58: WHERE r.recurring_header_id = x_header_id
59: AND r.recurring_line_num = x_old_line_num;
60:
498:
499: BEGIN
500:
501: DELETE
502: FROM GL_RECURRING_LINE_CALC_RULES
503: WHERE RECURRING_HEADER_ID = x_header_id
504: AND RECURRING_LINE_NUM = x_line_num;
505:
506: EXCEPTION
574: X_Segment28 VARCHAR2,
575: X_Segment29 VARCHAR2,
576: X_Segment30 VARCHAR2
577: ) IS
578: CURSOR C IS SELECT rowid FROM GL_RECURRING_LINE_CALC_RULES
579: WHERE recurring_header_id = X_Recurring_Header_Id
580: and recurring_line_num = X_Recurring_Line_Num
581: and rule_num = X_Rule_Num;
582:
585: -- Check line for Uniqueness
586: Check_Unique(X_Rowid, X_Rule_Num, X_Recurring_Line_Num, X_Recurring_Header_Id );
587:
588:
589: INSERT INTO GL_RECURRING_LINE_CALC_RULES(
590:
591: recurring_header_id,
592: recurring_line_num,
593: rule_num,
768: X_Segment30 VARCHAR2
769: ) IS
770: CURSOR C IS
771: SELECT *
772: FROM GL_RECURRING_LINE_CALC_RULES
773: WHERE rowid = X_Rowid
774: FOR UPDATE of Recurring_Header_Id NOWAIT;
775: Recinfo C%ROWTYPE;
776:
1001: -- Check line for Uniqueness
1002: Check_Unique(X_Rowid, X_Rule_Num, X_Recurring_Line_Num, X_Recurring_Header_Id );
1003:
1004:
1005: UPDATE GL_RECURRING_LINE_CALC_RULES
1006: SET
1007: recurring_header_id = X_Recurring_Header_Id,
1008: recurring_line_num = X_Recurring_Line_Num,
1009: rule_num = X_Rule_Num,
1066:
1067:
1068: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
1069: BEGIN
1070: DELETE FROM GL_RECURRING_LINE_CALC_RULES
1071: WHERE rowid = X_Rowid;
1072:
1073: if (SQL%NOTFOUND) then
1074: Raise NO_DATA_FOUND;