APPS.JG_ZZ_TA_RULE_SETS_PKG dependencies on JG_ZZ_TA_RULE_SETS

Line 1: PACKAGE BODY JG_ZZ_TA_RULE_SETS_PKG AS

1: PACKAGE BODY JG_ZZ_TA_RULE_SETS_PKG AS
2: /* $Header: jgzztarb.pls 115.2 2002/11/18 14:19:09 arimai ship $ */
3: --
4: -- PUBLIC FUNCTIONS
5: --

Line 37: FROM JG_ZZ_TA_RULE_SETS

33: ,X_attribute15 VARCHAR2 )
34: IS
35:
36: CURSOR C IS SELECT rowid
37: FROM JG_ZZ_TA_RULE_SETS
38: WHERE rule_set_id = X_rule_set_id;
39: CURSOR C2 IS SELECT JG_ZZ_TA_RULE_SETS_S.nextval FROM sys.dual;
40: BEGIN
41: --

Line 39: CURSOR C2 IS SELECT JG_ZZ_TA_RULE_SETS_S.nextval FROM sys.dual;

35:
36: CURSOR C IS SELECT rowid
37: FROM JG_ZZ_TA_RULE_SETS
38: WHERE rule_set_id = X_rule_set_id;
39: CURSOR C2 IS SELECT JG_ZZ_TA_RULE_SETS_S.nextval FROM sys.dual;
40: BEGIN
41: --
42: -- Check if user has defined duplicate name
43: --

Line 49: INSERT INTO JG_ZZ_TA_RULE_SETS

45: OPEN C2;
46: FETCH C2 INTO X_rule_set_id;
47: CLOSE C2;
48: END IF;
49: INSERT INTO JG_ZZ_TA_RULE_SETS
50: (
51: rule_set_id
52: ,name
53: ,chart_of_accounts_id

Line 152: UPDATE JG_ZZ_TA_RULE_SETS

148: BEGIN
149: --
150: -- Standard ON-UPDATE routine
151: --
152: UPDATE JG_ZZ_TA_RULE_SETS
153: SET
154: rule_set_id = X_rule_set_id
155: ,name = X_name
156: ,chart_of_accounts_id = X_chart_of_accounts_id

Line 194: FROM JG_ZZ_TA_RULE_SETS P

190: CURSOR Get_Children(P_rowid VARCHAR2) IS
191: SELECT Row_Id
192: FROM JG_ZZ_TA_CC_RANGES_V C
193: WHERE C.RULE_SET_ID = (SELECT P.RULE_SET_ID
194: FROM JG_ZZ_TA_RULE_SETS P
195: WHERE P.ROWID = P_rowid);
196: -- ITHEODOR CHANGE END
197:
198: BEGIN

Line 206: DELETE FROM JG_ZZ_TA_RULE_SETS

202: JG_ZZ_TA_CC_RANGES_PKG.Delete_Row( Rec.Row_id );
203: END LOOP;
204: -- ITHEODOR CHANGE END
205:
206: DELETE FROM JG_ZZ_TA_RULE_SETS
207: WHERE
208: ROWID = X_rowid;
209: IF (SQL%NOTFOUND) THEN
210: RAISE NO_DATA_FOUND;

Line 246: FROM JG_ZZ_TA_RULE_SETS

242: ,X_attribute15 VARCHAR2 )
243: IS
244: CURSOR C IS
245: SELECT *
246: FROM JG_ZZ_TA_RULE_SETS
247: WHERE rowid = X_Rowid
248: FOR UPDATE of rule_set_id NOWAIT;
249: Recinfo C%ROWTYPE;
250: BEGIN

Line 333: END JG_ZZ_TA_RULE_SETS_PKG;

329: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
330: APP_EXCEPTION.RAISE_EXCEPTION;
331: END IF;
332: END Lock_Row;
333: END JG_ZZ_TA_RULE_SETS_PKG;