1: Package Body GMS_FUNDING_PATTERNS_PKG AS
2: -- $Header: gmsfptbb.pls 120.1 2005/07/26 14:22:06 appldev ship $
3:
4: PROCEDURE INSERT_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
5: IS
6: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
7:
8: BEGIN
2: -- $Header: gmsfptbb.pls 120.1 2005/07/26 14:22:06 appldev ship $
3:
4: PROCEDURE INSERT_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
5: IS
6: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
7:
8: BEGIN
9: X_rec := P_rec;
10:
18: IF X_REC.creation_date is NULL THEN
19: x_rec.creation_date := SYSDATE ;
20: END IF ;
21:
22: insert into GMS_FUNDING_PATTERNS_ALL( funding_pattern_id
23: ,org_id
24: ,funding_sequence
25: ,funding_name
26: ,retroactive_flag
57: END;
58:
59:
60:
61: PROCEDURE LOCK_ROW ( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE) IS
62: Counter NUMBER;
63: CURSOR C IS
64: SELECT funding_pattern_id
65: ,org_id
71: ,status
72: ,funds_status
73: ,start_date
74: ,end_date
75: FROM GMS_FUNDING_PATTERNS_ALL
76: WHERE funding_pattern_id = P_rec.funding_pattern_id
77: AND funding_sequence = P_rec.funding_sequence
78: AND funding_name = P_rec.funding_name
79: AND status = P_rec.status;
145: end;
146: end loop;
147: END LOCK_ROW;
148:
149: PROCEDURE UPDATE_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
150: IS
151: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
152:
153: BEGIN
147: END LOCK_ROW;
148:
149: PROCEDURE UPDATE_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
150: IS
151: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
152:
153: BEGIN
154: X_rec := P_rec;
155: update GMS_FUNDING_PATTERNS_ALL
151: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
152:
153: BEGIN
154: X_rec := P_rec;
155: update GMS_FUNDING_PATTERNS_ALL
156: set funding_sequence = X_rec.funding_sequence
157: ,funding_name = X_rec.funding_name
158: ,retroactive_flag = X_rec.retroactive_flag
159: ,status = X_rec.status
169: RAISE ;
170:
171: END UPDATE_ROW;
172:
173: PROCEDURE DELETE_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
174: IS
175: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
176: BEGIN
177: X_rec := P_rec;
171: END UPDATE_ROW;
172:
173: PROCEDURE DELETE_ROW( P_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE)
174: IS
175: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
176: BEGIN
177: X_rec := P_rec;
178: delete gms_funding_patterns_all
179: where funding_pattern_id=X_rec.funding_pattern_id ;
174: IS
175: X_rec GMS_FUNDING_PATTERNS_ALL%ROWTYPE;
176: BEGIN
177: X_rec := P_rec;
178: delete gms_funding_patterns_all
179: where funding_pattern_id=X_rec.funding_pattern_id ;
180:
181: IF (SQL%NOTFOUND) THEN
182: raise NO_DATA_FOUND;