APPS.JG_ZZ_TA_ACCOUNT_RANGES_PKG dependencies on JG_ZZ_TA_ACCOUNT_RANGES

Line 1: PACKAGE BODY JG_ZZ_TA_ACCOUNT_RANGES_PKG AS

1: PACKAGE BODY JG_ZZ_TA_ACCOUNT_RANGES_PKG AS
2: /* $Header: jgzztaab.pls 115.1 2002/11/15 17:07:50 arimai ship $ */
3: --
4: -- PUBLIC FUNCTIONS
5: --

Line 12: FROM JG_ZZ_TA_ACCOUNT_RANGES ACC

8: X_cc_range_id NUMBER,
9: X_account_range_low VARCHAR2,
10: X_account_range_high VARCHAR2 ) IS
11: CURSOR C1 IS SELECT 'Overlaps'
12: FROM JG_ZZ_TA_ACCOUNT_RANGES ACC
13: WHERE ACC.CC_RANGE_ID = X_cc_range_id
14: AND ((ACC.account_range_low between
15: X_account_range_low and X_account_range_high)
16: OR

Line 68: FROM JG_ZZ_TA_ACCOUNT_RANGES

64: ,X_attribute15 VARCHAR2 )
65: IS
66:
67: CURSOR C IS SELECT rowid
68: FROM JG_ZZ_TA_ACCOUNT_RANGES
69: WHERE X_account_range_id = account_range_id;
70: CURSOR C2 IS SELECT JG_ZZ_TA_ACCOUNT_RANGES_S.nextval FROM sys.dual;
71: BEGIN
72: IF (X_account_range_id IS NULL) THEN

Line 70: CURSOR C2 IS SELECT JG_ZZ_TA_ACCOUNT_RANGES_S.nextval FROM sys.dual;

66:
67: CURSOR C IS SELECT rowid
68: FROM JG_ZZ_TA_ACCOUNT_RANGES
69: WHERE X_account_range_id = account_range_id;
70: CURSOR C2 IS SELECT JG_ZZ_TA_ACCOUNT_RANGES_S.nextval FROM sys.dual;
71: BEGIN
72: IF (X_account_range_id IS NULL) THEN
73: OPEN C2;
74: FETCH C2 INTO X_account_range_id;

Line 77: INSERT INTO JG_ZZ_TA_ACCOUNT_RANGES

73: OPEN C2;
74: FETCH C2 INTO X_account_range_id;
75: CLOSE C2;
76: END IF;
77: INSERT INTO JG_ZZ_TA_ACCOUNT_RANGES
78: (
79: cc_range_id
80: ,account_range_id
81: ,account_range_low

Line 176: UPDATE JG_ZZ_TA_ACCOUNT_RANGES

172: BEGIN
173: --
174: -- Standard ON-UPDATE routine
175: --
176: UPDATE JG_ZZ_TA_ACCOUNT_RANGES
177: SET
178: cc_range_id = X_cc_range_id
179: ,account_range_id = X_account_range_id
180: ,account_range_low = X_account_range_low

Line 218: FROM JG_ZZ_TA_ACCOUNT_RANGES P

214: CURSOR Get_Children(P_rowid VARCHAR2) IS
215: SELECT Row_Id
216: FROM JG_ZZ_TA_RULE_LINES_V C
217: WHERE C.ACCOUNT_RANGE_ID = (SELECT P.ACCOUNT_RANGE_ID
218: FROM JG_ZZ_TA_ACCOUNT_RANGES P
219: WHERE P.ROWID = P_rowid);
220: -- ITHEODOR CHANGE END
221:
222: BEGIN

Line 231: DELETE FROM JG_ZZ_TA_ACCOUNT_RANGES

227: JG_ZZ_TA_RULE_LINES_PKG.Delete_Row( Rec.Row_id );
228: END LOOP;
229: -- ITHEODOR CHANGE END
230:
231: DELETE FROM JG_ZZ_TA_ACCOUNT_RANGES
232: WHERE
233: ROWID = X_rowid;
234: IF (SQL%NOTFOUND) THEN
235: RAISE NO_DATA_FOUND;

Line 270: FROM JG_ZZ_TA_ACCOUNT_RANGES

266: ,X_attribute15 VARCHAR2 )
267: IS
268: CURSOR C IS
269: SELECT *
270: FROM JG_ZZ_TA_ACCOUNT_RANGES
271: WHERE rowid = X_Rowid
272: FOR UPDATE of cc_range_id NOWAIT;
273: Recinfo C%ROWTYPE;
274: BEGIN

Line 355: END JG_ZZ_TA_ACCOUNT_RANGES_PKG;

351: APP_EXCEPTION.RAISE_EXCEPTION;
352: END IF;
353: END Lock_Row;
354:
355: END JG_ZZ_TA_ACCOUNT_RANGES_PKG;