APPS.GMS_FP_DISTRIBUTIONS_PKG dependencies on GMS_FP_DISTRIBUTIONS

Line 1: Package Body GMS_FP_DISTRIBUTIONS_PKG AS

1: Package Body GMS_FP_DISTRIBUTIONS_PKG AS
2: -- $Header: gmsfdtbb.pls 120.1 2005/07/26 14:22:03 appldev ship $
3:
4: PROCEDURE INSERT_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE)
5: IS

Line 4: PROCEDURE INSERT_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE)

1: Package Body GMS_FP_DISTRIBUTIONS_PKG AS
2: -- $Header: gmsfdtbb.pls 120.1 2005/07/26 14:22:03 appldev ship $
3:
4: PROCEDURE INSERT_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE)
5: IS
6: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
7:
8: BEGIN

Line 6: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;

2: -- $Header: gmsfdtbb.pls 120.1 2005/07/26 14:22:03 appldev ship $
3:
4: PROCEDURE INSERT_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE)
5: IS
6: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
7:
8: BEGIN
9: X_rec := P_rec;
10:

Line 14: insert into GMS_FP_DISTRIBUTIONS(funding_pattern_id

10:
11: IF X_rec.creation_date is NULL THEN
12: x_rec.creation_date := SYSDATE ;
13: END IF ;
14: insert into GMS_FP_DISTRIBUTIONS(funding_pattern_id
15: ,distribution_number
16: ,award_id
17: ,distribution_value
18: ,last_update_date

Line 39: PROCEDURE LOCK_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS

35:
36:
37: END INSERT_ROW;
38:
39: PROCEDURE LOCK_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
40: Counter NUMBER;
41: CURSOR C IS
42: SELECT funding_pattern_id
43: ,distribution_number

Line 46: FROM GMS_FP_DISTRIBUTIONS

42: SELECT funding_pattern_id
43: ,distribution_number
44: ,award_id
45: ,distribution_value
46: FROM GMS_FP_DISTRIBUTIONS
47: WHERE funding_pattern_id = P_rec.funding_pattern_id
48: AND distribution_number = P_rec.distribution_number
49: AND award_id = P_rec.award_id;
50: X_rec C%ROWTYPE;

Line 97: PROCEDURE UPDATE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS

93: END IF;
94: end;
95: end loop;
96: END LOCK_ROW;
97: PROCEDURE UPDATE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
98: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
99: BEGIN
100: X_rec := P_rec;
101:

Line 98: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;

94: end;
95: end loop;
96: END LOCK_ROW;
97: PROCEDURE UPDATE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
98: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
99: BEGIN
100: X_rec := P_rec;
101:
102: update GMS_FP_DISTRIBUTIONS

Line 102: update GMS_FP_DISTRIBUTIONS

98: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
99: BEGIN
100: X_rec := P_rec;
101:
102: update GMS_FP_DISTRIBUTIONS
103: set distribution_value = X_rec.distribution_value
104: ,award_id = X_rec.award_id
105: where funding_pattern_id = X_rec.funding_pattern_id
106: and distribution_number = X_rec.distribution_number;

Line 116: PROCEDURE DELETE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS

112: WHEN OTHERS THEN
113: RAISE ;
114:
115: END UPDATE_ROW;
116: PROCEDURE DELETE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
117: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
118: BEGIN
119: X_rec := P_rec;
120: delete gms_fp_distributions

Line 117: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;

113: RAISE ;
114:
115: END UPDATE_ROW;
116: PROCEDURE DELETE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
117: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
118: BEGIN
119: X_rec := P_rec;
120: delete gms_fp_distributions
121: where funding_pattern_id = X_rec.funding_pattern_id

Line 120: delete gms_fp_distributions

116: PROCEDURE DELETE_ROW ( P_rec GMS_FP_DISTRIBUTIONS%ROWTYPE) IS
117: X_rec GMS_FP_DISTRIBUTIONS%ROWTYPE;
118: BEGIN
119: X_rec := P_rec;
120: delete gms_fp_distributions
121: where funding_pattern_id = X_rec.funding_pattern_id
122: and distribution_number = X_rec.distribution_number;
123:
124: IF (SQL%NOTFOUND) THEN

Line 133: END GMS_FP_DISTRIBUTIONS_PKG;

129: WHEN OTHERS THEN
130: RAISE ;
131: END DELETE_ROW;
132:
133: END GMS_FP_DISTRIBUTIONS_PKG;