APPS.GL_LEDGER_NORM_SEG_VALS_PKG dependencies on GL_LEDGER_NORM_SEG_VALS

Line 1: PACKAGE BODY GL_LEDGER_NORM_SEG_VALS_PKG AS

1: PACKAGE BODY GL_LEDGER_NORM_SEG_VALS_PKG AS
2: /* $Header: glistsvb.pls 120.5 2003/04/24 01:35:34 djogg noship $ */
3:
4: --
5: -- PUBLIC FUNCTIONS

Line 11: SELECT GL_LEDGER_NORM_SEG_VALS_REC_S.NEXTVAL

7:
8: FUNCTION Get_Record_Id RETURN NUMBER
9: IS
10: CURSOR get_id IS
11: SELECT GL_LEDGER_NORM_SEG_VALS_REC_S.NEXTVAL
12: FROM dual;
13:
14: v_record_id NUMBER(15);
15:

Line 25: fnd_message.set_token('SEQUENCE', 'GL_LEDGER_NORM_SEG_VALS_REC_S');

21: CLOSE get_id;
22: ELSE
23: CLOSE get_id;
24: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
25: fnd_message.set_token('SEQUENCE', 'GL_LEDGER_NORM_SEG_VALS_REC_S');
26: app_exception.raise_exception;
27: END IF;
28:
29: RETURN (v_record_id);

Line 36: fnd_message.set_token('PROCEDURE', 'GL_LEDGER_NORM_SEG_VALS_PKG.Get_Record_Id');

32: WHEN app_exceptions.application_exception THEN
33: RAISE;
34: WHEN OTHERS THEN
35: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
36: fnd_message.set_token('PROCEDURE', 'GL_LEDGER_NORM_SEG_VALS_PKG.Get_Record_Id');
37: RAISE;
38:
39: END Get_Record_Id;
40:

Line 54: FROM GL_LEDGER_NORM_SEG_VALS

50: dummy VARCHAR2(1);
51:
52: CURSOR check_unique IS
53: SELECT 'X'
54: FROM GL_LEDGER_NORM_SEG_VALS
55: WHERE ledger_id = X_Ledger_Id
56: AND segment_value = X_Segment_Value
57: AND segment_type_code = X_Segment_Type_Code
58: AND (start_date <= X_End_Date

Line 85: 'GL_LEDGER_NORM_SEG_VALS_PKG.check_unique');

81: RAISE;
82: WHEN OTHERS THEN
83: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
84: fnd_message.set_token('PROCEDURE',
85: 'GL_LEDGER_NORM_SEG_VALS_PKG.check_unique');
86: RAISE;
87: END Check_Unique;
88:
89: -- **********************************************************************

Line 98: FROM GL_LEDGER_NORM_SEG_VALS

94: dummy VARCHAR2(1);
95:
96: CURSOR check_exist IS
97: SELECT 'X'
98: FROM GL_LEDGER_NORM_SEG_VALS
99: WHERE ledger_id = X_Ledger_Id
100: AND segment_type_code = X_Segment_Type_Code
101: AND NVL(status_code,'X') <> 'D';
102:

Line 118: 'GL_LEDGER_NORM_SEG_VALS_PKG.Check_Exist');

114: EXCEPTION
115: WHEN OTHERS THEN
116: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
117: fnd_message.set_token('PROCEDURE',
118: 'GL_LEDGER_NORM_SEG_VALS_PKG.Check_Exist');
119: RAISE;
120:
121: END Check_Exist;
122:

Line 130: FROM GL_LEDGER_NORM_SEG_VALS

126: X_Segment_Type_Code VARCHAR2) RETURN BOOLEAN
127: IS
128: CURSOR Seg_Val_Request_Id IS
129: SELECT DISTINCT request_id
130: FROM GL_LEDGER_NORM_SEG_VALS
131: WHERE ledger_id = X_Ledger_Id
132: AND segment_type_code = X_Segment_Type_Code
133: AND request_id IS NOT NULL
134: AND NVL(status_code,'X') <> 'D';

Line 176: 'GL_LEDGER_NORM_SEG_VALS_PKG.Check_Conc_With_Flat');

172: EXCEPTION
173: WHEN OTHERS THEN
174: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
175: fnd_message.set_token('PROCEDURE',
176: 'GL_LEDGER_NORM_SEG_VALS_PKG.Check_Conc_With_Flat');
177: RAISE;
178:
179: END Check_Conc_With_Flat;
180:

Line 216: FROM GL_LEDGER_NORM_SEG_VALS

212: X_Request_Id NUMBER
213: ) IS
214: CURSOR C
215: IS SELECT rowid
216: FROM GL_LEDGER_NORM_SEG_VALS
217: WHERE ledger_id = X_Ledger_Id
218: AND segment_type_code = X_Segment_Type_Code
219: AND segment_value = X_Segment_Value
220: AND (start_date = X_Start_Date OR

Line 228: GL_LEDGER_NORM_SEG_VALS_PKG.Check_Unique(X_Rowid,

224: AND NVL(status_code,'X') <> 'D';
225:
226: BEGIN
227: -- Verify that this combination is unique and does not overlap with other dates.
228: GL_LEDGER_NORM_SEG_VALS_PKG.Check_Unique(X_Rowid,
229: X_Ledger_Id,
230: X_Segment_Value,
231: X_Segment_Type_Code,
232: X_Start_Date,

Line 235: INSERT INTO GL_LEDGER_NORM_SEG_VALS(

231: X_Segment_Type_Code,
232: X_Start_Date,
233: X_End_Date);
234:
235: INSERT INTO GL_LEDGER_NORM_SEG_VALS(
236: ledger_id,
237: segment_type_code,
238: segment_value,
239: segment_value_type_code,

Line 338: FROM GL_LEDGER_NORM_SEG_VALS

334: X_Request_Id NUMBER
335: ) IS
336: CURSOR C IS
337: SELECT *
338: FROM GL_LEDGER_NORM_SEG_VALS
339: WHERE rowid = X_Rowid
340: FOR UPDATE of Ledger_Id NOWAIT;
341: Recinfo C%ROWTYPE;
342:

Line 499: GL_LEDGER_NORM_SEG_VALS_PKG.Check_Unique(X_Rowid,

495: v_status_code VARCHAR2(1);
496:
497: BEGIN
498: -- Verify that this combination is unique and does not overlap with other dates.
499: GL_LEDGER_NORM_SEG_VALS_PKG.Check_Unique(X_Rowid,
500: X_Ledger_Id,
501: X_Segment_Value,
502: X_Segment_Type_Code,
503: X_Start_Date,

Line 511: FROM GL_LEDGER_NORM_SEG_VALS

507: -- In this case, the status_code should remain 'I'.
508: -- Otherwise, the status_code should be 'U'.
509: SELECT NVL(status_code,'X')
510: INTO v_status_code
511: FROM GL_LEDGER_NORM_SEG_VALS
512: WHERE rowid = X_Rowid;
513:
514: IF (SQL%NOTFOUND) THEN
515: RAISE NO_DATA_FOUND;

Line 522: UPDATE GL_LEDGER_NORM_SEG_VALS

518: IF (v_status_code <> 'I') THEN
519: v_status_code := 'U';
520: END IF;
521:
522: UPDATE GL_LEDGER_NORM_SEG_VALS
523: SET
524: ledger_id = X_Ledger_Id,
525: segment_type_code = X_Segment_Type_Code,
526: segment_value = X_Segment_Value,

Line 566: UPDATE GL_LEDGER_NORM_SEG_VALS

562: BEGIN
563: -- This is a norm table. We do not delete row since the Flattening program will
564: -- take care of this.
565: -- Set the status code to 'Delete'.
566: UPDATE GL_LEDGER_NORM_SEG_VALS
567: SET status_code = 'D'
568: WHERE rowid = X_Rowid;
569:
570: IF (SQL%NOTFOUND) THEN

Line 584: UPDATE GL_LEDGER_NORM_SEG_VALS

580: BEGIN
581: -- This is a norm table. We do not delete row since the Flattening program will
582: -- take care of this.
583: -- Set the status code to 'Delete'.
584: UPDATE GL_LEDGER_NORM_SEG_VALS
585: SET status_code = 'D'
586: WHERE ledger_id = X_Ledger_Id
587: and segment_type_code = X_Segment_Type_Code;
588:

Line 591: END GL_LEDGER_NORM_SEG_VALS_PKG;

587: and segment_type_code = X_Segment_Type_Code;
588:
589: END Delete_All_Rows;
590:
591: END GL_LEDGER_NORM_SEG_VALS_PKG;