[Home] [Help]
PACKAGE: APPS.GL_LEDGER_NORM_SEG_VALS_PKG
Source
1 PACKAGE GL_LEDGER_NORM_SEG_VALS_PKG AS
2 /* $Header: glistsvs.pls 120.5 2003/04/24 01:35:38 djogg noship $ */
3 --
4 -- Package
5 -- GL_LEDGER_NORM_SEG_VALS_PKG
6 -- Purpose
7 -- To create GL_LEDGER_NORM_SEG_VALS_PKG package.
8 -- History
9 -- 02/08/01 O Monnier Created.
10 --
11
12 --
13 -- Procedure
14 -- Get_Record_Id
15 -- Purpose
16 -- Get the record id for this row.
17 -- History
18 -- 02/08/01 O Monnier Created
19 -- Arguments
20 -- none
21 -- Example
22 -- Record_Id := GL_LEDGER_NORM_SEG_VALS_PKG.Get_Record_Id;
23 -- Notes
24 --
25 FUNCTION Get_Record_Id RETURN NUMBER;
26
27 -- *********************************************************************
28
29 --
30 -- Procedure
31 -- Check_Unique
32 -- Purpose
33 -- Ensure the Segment Value is only specified once for the interval of dates specified.
34 -- History
35 -- 02/08/01 O Monnier Created
36 -- Arguments
37 -- X_Rowid The ID of the row to be checked
38 -- X_Ledger_Id The ledger id
39 -- X_Segment_Value The segment value to be checked
40 -- X_Segment_Type_Code The segment type code
41 -- X_Start_Date The start date for the combination
42 -- X_End_Date The end date for the combination
43 -- Example
44 -- GL_LEDGER_NORM_SEG_VALS_PKG.Check_Unique( '12345', 1, 'T', 'B', null, null );
45 -- Notes
46 --
47 PROCEDURE Check_Unique(X_Rowid VARCHAR2,
48 X_Ledger_Id NUMBER,
49 X_Segment_Value VARCHAR2,
50 X_Segment_Type_Code VARCHAR2,
51 X_Start_Date DATE,
52 X_End_Date DATE);
53
54 -- *********************************************************************
55
56 --
57 -- Procedure
58 -- Check_Exist
59 -- Purpose
60 -- Ensure at least one Segment Value is specified when deleting a Segment Value.
61 -- History
62 -- 02/08/01 O Monnier Created
63 -- Arguments
64 -- X_Ledger_Id The ledger id
65 -- X_Segment_Type_Code The segment type code
66 -- Example
67 -- test := GL_LEDGER_NORM_SEG_VALS_PKG.Check_Exist( 1, 'B' );
68 -- Notes
69 --
70 FUNCTION Check_Exist(X_Ledger_Id NUMBER,
71 X_Segment_Type_Code VARCHAR2) RETURN BOOLEAN;
72
73 -- *********************************************************************
74
75 --
76 -- Procedure
77 -- Check_Concurrency_With_Flat
78 -- Purpose
79 -- Ensure that none of the Segment Values are currently being
80 -- processed by the flattening program. We need to check this
81 -- before deleting all the segment values.
82 -- History
83 -- 10/29/01 O Monnier Created
84 -- Arguments
85 -- X_Ledger_Id The ledger id
86 -- X_Segment_Type_Code The segment type code
87 -- Example
88 -- test := GL_LEDGER_NORM_SEG_VALS_PKG.Check_Conc_With_Flat( 1, 'B' );
89 -- Notes
90 --
91 FUNCTION Check_Conc_With_Flat(X_Ledger_Id NUMBER,
92 X_Segment_Type_Code VARCHAR2) RETURN BOOLEAN;
93
94 -- *********************************************************************
95
96 -- The following procedures are necessary to handle the base view form.
97
98 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
99 X_Ledger_Id NUMBER,
100 X_Segment_Type_Code VARCHAR2,
101 X_Segment_Value VARCHAR2,
102 X_Segment_Value_Type_Code VARCHAR2,
103 X_Record_Id NUMBER,
104 X_Last_Update_Date DATE,
105 X_Last_Updated_By NUMBER,
106 X_Creation_Date DATE,
107 X_Created_By NUMBER,
108 X_Last_Update_Login NUMBER,
109 X_Start_Date DATE,
110 X_End_Date DATE,
111 X_Context VARCHAR2,
112 X_Attribute1 VARCHAR2,
113 X_Attribute2 VARCHAR2,
114 X_Attribute3 VARCHAR2,
115 X_Attribute4 VARCHAR2,
116 X_Attribute5 VARCHAR2,
117 X_Attribute6 VARCHAR2,
118 X_Attribute7 VARCHAR2,
119 X_Attribute8 VARCHAR2,
120 X_Attribute9 VARCHAR2,
121 X_Attribute10 VARCHAR2,
122 X_Attribute11 VARCHAR2,
123 X_Attribute12 VARCHAR2,
124 X_Attribute13 VARCHAR2,
125 X_Attribute14 VARCHAR2,
126 X_Attribute15 VARCHAR2,
127 X_Request_Id NUMBER
128 );
129
130 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
131 X_Ledger_Id NUMBER,
132 X_Segment_Type_Code VARCHAR2,
133 X_Segment_Value VARCHAR2,
134 X_Segment_Value_Type_Code VARCHAR2,
135 X_Record_Id NUMBER,
136 X_Start_Date DATE,
137 X_End_Date DATE,
138 X_Context VARCHAR2,
139 X_Attribute1 VARCHAR2,
140 X_Attribute2 VARCHAR2,
141 X_Attribute3 VARCHAR2,
142 X_Attribute4 VARCHAR2,
143 X_Attribute5 VARCHAR2,
144 X_Attribute6 VARCHAR2,
145 X_Attribute7 VARCHAR2,
146 X_Attribute8 VARCHAR2,
147 X_Attribute9 VARCHAR2,
148 X_Attribute10 VARCHAR2,
149 X_Attribute11 VARCHAR2,
150 X_Attribute12 VARCHAR2,
151 X_Attribute13 VARCHAR2,
152 X_Attribute14 VARCHAR2,
153 X_Attribute15 VARCHAR2,
154 X_Request_Id NUMBER
155 );
156
157 PROCEDURE Update_Row(X_Rowid VARCHAR2,
158 X_Ledger_Id NUMBER,
159 X_Segment_Type_Code VARCHAR2,
160 X_Segment_Value VARCHAR2,
161 X_Segment_Value_Type_Code VARCHAR2,
162 X_Record_Id NUMBER,
163 X_Last_Update_Date DATE,
164 X_Last_Updated_By NUMBER,
165 X_Last_Update_Login NUMBER,
166 X_Start_Date DATE,
167 X_End_Date DATE,
168 X_Context VARCHAR2,
169 X_Attribute1 VARCHAR2,
170 X_Attribute2 VARCHAR2,
171 X_Attribute3 VARCHAR2,
172 X_Attribute4 VARCHAR2,
173 X_Attribute5 VARCHAR2,
174 X_Attribute6 VARCHAR2,
175 X_Attribute7 VARCHAR2,
176 X_Attribute8 VARCHAR2,
177 X_Attribute9 VARCHAR2,
178 X_Attribute10 VARCHAR2,
179 X_Attribute11 VARCHAR2,
180 X_Attribute12 VARCHAR2,
181 X_Attribute13 VARCHAR2,
182 X_Attribute14 VARCHAR2,
183 X_Attribute15 VARCHAR2,
184 X_Request_Id NUMBER
185 );
186
187 PROCEDURE Delete_Row(X_Rowid VARCHAR2);
188
189 --
190 -- Procedure
191 -- Delete_All_Rows
192 -- Purpose
193 -- Delete all specified segment values when changing the segment option
194 -- from 'Specify Individual' to 'Include All'.
195 -- History
196 -- 02/08/01 O Monnier Created
197 -- Arguments
198 -- X_Ledger_Id The ledger id
199 -- X_Segment_Type_Code The segment type code
200 -- Example
201 -- GL_LEDGER_NORM_SEG_VALS_PKG.Delete_All_Rows( 1, 'B' );
202 -- Notes
203 --
204 PROCEDURE Delete_All_Rows(X_Ledger_Id NUMBER,
205 X_Segment_Type_Code VARCHAR2);
206
207 END GL_LEDGER_NORM_SEG_VALS_PKG;
208