APPS.AHL_UC_UNITCONFIG_PVT dependencies on FND_API

Line 48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN

44: IS
45: BEGIN
46: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
47: p_x_uc_header_rec.instance_id := NULL;
48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;
50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN

Line 49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;

45: BEGIN
46: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
47: p_x_uc_header_rec.instance_id := NULL;
48: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
49: p_x_uc_header_rec.instance_id := FND_API.G_MISS_NUM;
50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;

Line 54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND

50: END IF;
51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;

Line 55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

51: IF (p_x_uc_header_rec.mc_name IS NULL AND
52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;
59:

Line 56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;

52: p_x_uc_header_rec.mc_revision IS NULL) THEN
53: p_x_uc_header_rec.mc_header_id := NULL;
54: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR AND
55: p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
56: p_x_uc_header_rec.mc_header_id := FND_API.G_MISS_NUM;
57: END IF;
58: END clear_lov_attribute_ids;
59:
60: -- Procedure to change G_MISS values to NULL in case they are passed during creation

Line 65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN

61: PROCEDURE nullify_attributes(
62: p_x_uc_header_rec IN OUT NOCOPY ahl_uc_instance_pvt.uc_header_rec_type)
63: IS
64: BEGIN
65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
66: p_x_uc_header_rec.active_uc_status_code := null;
67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;

Line 68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN

64: BEGIN
65: IF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
66: p_x_uc_header_rec.active_uc_status_code := null;
67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;
70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;

Line 71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN

67: END IF;
68: IF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
69: p_x_uc_header_rec.mc_header_id := null;
70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;
73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;

Line 74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

70: END IF;
71: IF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
72: p_x_uc_header_rec.mc_name := null;
73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;
76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;

Line 77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN

73: END IF;
74: IF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
75: p_x_uc_header_rec.mc_revision := null;
76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;
79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;

Line 80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN

76: END IF;
77: IF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
78: p_x_uc_header_rec.parent_uc_header_id := null;
79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;
82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;

Line 83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN

79: END IF;
80: IF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
81: p_x_uc_header_rec.active_end_date := null;
82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;
85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;

Line 86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN

82: END IF;
83: IF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
84: p_x_uc_header_rec.attribute_category := null;
85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;
88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;

Line 89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN

85: END IF;
86: IF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
87: p_x_uc_header_rec.attribute1 := null;
88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;
91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;

Line 92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN

88: END IF;
89: IF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
90: p_x_uc_header_rec.attribute2 := null;
91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;
94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;

Line 95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN

91: END IF;
92: IF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
93: p_x_uc_header_rec.attribute3 := null;
94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;
97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;

Line 98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN

94: END IF;
95: IF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
96: p_x_uc_header_rec.attribute4 := null;
97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;
100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;

Line 101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN

97: END IF;
98: IF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
99: p_x_uc_header_rec.attribute5 := null;
100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;
103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;

Line 104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN

100: END IF;
101: IF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
102: p_x_uc_header_rec.attribute6 := null;
103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;
106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;

Line 107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN

103: END IF;
104: IF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
105: p_x_uc_header_rec.attribute7 := null;
106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;
109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;

Line 110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN

106: END IF;
107: IF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
108: p_x_uc_header_rec.attribute8 := null;
109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;
112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;

Line 113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN

109: END IF;
110: IF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
111: p_x_uc_header_rec.attribute9 := null;
112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;
115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;

Line 116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN

112: END IF;
113: IF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
114: p_x_uc_header_rec.attribute10 := null;
115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;
118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;

Line 119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN

115: END IF;
116: IF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
117: p_x_uc_header_rec.attribute11 := null;
118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;
121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;

Line 122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN

118: END IF;
119: IF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
120: p_x_uc_header_rec.attribute12 := null;
121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;
124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;

Line 125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN

121: END IF;
122: IF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
123: p_x_uc_header_rec.attribute13 := null;
124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;
127: END IF;
128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
129: p_x_uc_header_rec.attribute15 := null;

Line 128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN

124: END IF;
125: IF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
126: p_x_uc_header_rec.attribute14 := null;
127: END IF;
128: IF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
129: p_x_uc_header_rec.attribute15 := null;
130: END IF;
131: END nullify_attributes;
132:

Line 141: x_return_status := FND_API.G_RET_STS_SUCCESS;

137: x_return_status OUT NOCOPY VARCHAR2)
138: IS
139: l_old_uc_header_rec get_uc_header%ROWTYPE;
140: BEGIN
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: OPEN get_uc_header( p_x_uc_header_rec.uc_header_id );
143: FETCH get_uc_header INTO l_old_uc_header_rec;
144: IF ( get_uc_header%NOTFOUND ) THEN
145: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');

Line 148: x_return_status := FND_API.G_RET_STS_ERROR;

144: IF ( get_uc_header%NOTFOUND ) THEN
145: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
146: FND_MESSAGE.set_token('UC_HEADER_ID', p_x_uc_header_rec.uc_header_id);
147: FND_MSG_PUB.add;
148: x_return_status := FND_API.G_RET_STS_ERROR;
149: END IF;
150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
152: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');

Line 154: x_return_status := FND_API.G_RET_STS_ERROR;

150: IF ( l_old_uc_header_rec.object_version_number <>
151: p_x_uc_header_rec.object_version_number ) THEN
152: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
153: FND_MSG_PUB.add;
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: END IF;
156: CLOSE get_uc_header;
157:
158: IF (p_x_uc_header_rec.uc_name IS NULL) THEN

Line 160: ELSIF (p_x_uc_header_rec.uc_name = FND_API.G_MISS_CHAR) THEN

156: CLOSE get_uc_header;
157:
158: IF (p_x_uc_header_rec.uc_name IS NULL) THEN
159: p_x_uc_header_rec.uc_name := l_old_uc_header_rec.uc_name;
160: ELSIF (p_x_uc_header_rec.uc_name = FND_API.G_MISS_CHAR) THEN
161: p_x_uc_header_rec.uc_name := null;
162: END IF;
163: IF (p_x_uc_header_rec.mc_header_id IS NULL) THEN
164: p_x_uc_header_rec.mc_header_id := l_old_uc_header_rec.mc_header_id;

Line 165: ELSIF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN

161: p_x_uc_header_rec.uc_name := null;
162: END IF;
163: IF (p_x_uc_header_rec.mc_header_id IS NULL) THEN
164: p_x_uc_header_rec.mc_header_id := l_old_uc_header_rec.mc_header_id;
165: ELSIF (p_x_uc_header_rec.mc_header_id = FND_API.G_MISS_NUM) THEN
166: p_x_uc_header_rec.mc_header_id := null;
167: END IF;
168: IF (p_x_uc_header_rec.mc_name IS NULL) THEN
169: p_x_uc_header_rec.mc_name := l_old_uc_header_rec.mc_name;

Line 170: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN

166: p_x_uc_header_rec.mc_header_id := null;
167: END IF;
168: IF (p_x_uc_header_rec.mc_name IS NULL) THEN
169: p_x_uc_header_rec.mc_name := l_old_uc_header_rec.mc_name;
170: ELSIF (p_x_uc_header_rec.mc_name = FND_API.G_MISS_CHAR) THEN
171: p_x_uc_header_rec.mc_name := null;
172: END IF;
173: IF (p_x_uc_header_rec.mc_revision IS NULL) THEN
174: p_x_uc_header_rec.mc_revision := l_old_uc_header_rec.mc_revision;

Line 175: ELSIF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN

171: p_x_uc_header_rec.mc_name := null;
172: END IF;
173: IF (p_x_uc_header_rec.mc_revision IS NULL) THEN
174: p_x_uc_header_rec.mc_revision := l_old_uc_header_rec.mc_revision;
175: ELSIF (p_x_uc_header_rec.mc_revision = FND_API.G_MISS_CHAR) THEN
176: p_x_uc_header_rec.mc_revision := null;
177: END IF;
178: IF (p_x_uc_header_rec.instance_id IS NULL) THEN
179: p_x_uc_header_rec.instance_id := l_old_uc_header_rec.csi_instance_id;

Line 180: ELSIF (p_x_uc_header_rec.instance_id = FND_API.G_MISS_NUM) THEN

176: p_x_uc_header_rec.mc_revision := null;
177: END IF;
178: IF (p_x_uc_header_rec.instance_id IS NULL) THEN
179: p_x_uc_header_rec.instance_id := l_old_uc_header_rec.csi_instance_id;
180: ELSIF (p_x_uc_header_rec.instance_id = FND_API.G_MISS_NUM) THEN
181: p_x_uc_header_rec.instance_id := null;
182: END IF;
183: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
184: p_x_uc_header_rec.instance_number := l_old_uc_header_rec.instance_number;

Line 185: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN

181: p_x_uc_header_rec.instance_id := null;
182: END IF;
183: IF (p_x_uc_header_rec.instance_number IS NULL) THEN
184: p_x_uc_header_rec.instance_number := l_old_uc_header_rec.instance_number;
185: ELSIF (p_x_uc_header_rec.instance_number = FND_API.G_MISS_CHAR) THEN
186: p_x_uc_header_rec.instance_number := null;
187: END IF;
188: IF (p_x_uc_header_rec.unit_config_status_code IS NULL) THEN
189: p_x_uc_header_rec.unit_config_status_code := l_old_uc_header_rec.uc_status_code;

Line 190: ELSIF (p_x_uc_header_rec.unit_config_status_code = FND_API.G_MISS_CHAR) THEN

186: p_x_uc_header_rec.instance_number := null;
187: END IF;
188: IF (p_x_uc_header_rec.unit_config_status_code IS NULL) THEN
189: p_x_uc_header_rec.unit_config_status_code := l_old_uc_header_rec.uc_status_code;
190: ELSIF (p_x_uc_header_rec.unit_config_status_code = FND_API.G_MISS_CHAR) THEN
191: p_x_uc_header_rec.unit_config_status_code := null;
192: END IF;
193: IF (p_x_uc_header_rec.active_start_date IS NULL) THEN
194: p_x_uc_header_rec.active_start_date := l_old_uc_header_rec.active_start_date;

Line 195: ELSIF (p_x_uc_header_rec.active_start_date = FND_API.G_MISS_DATE) THEN

191: p_x_uc_header_rec.unit_config_status_code := null;
192: END IF;
193: IF (p_x_uc_header_rec.active_start_date IS NULL) THEN
194: p_x_uc_header_rec.active_start_date := l_old_uc_header_rec.active_start_date;
195: ELSIF (p_x_uc_header_rec.active_start_date = FND_API.G_MISS_DATE) THEN
196: p_x_uc_header_rec.active_start_date := null;
197: END IF;
198: IF (p_x_uc_header_rec.active_end_date IS NULL) THEN
199: p_x_uc_header_rec.active_end_date := l_old_uc_header_rec.active_end_date;

Line 200: ELSIF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN

196: p_x_uc_header_rec.active_start_date := null;
197: END IF;
198: IF (p_x_uc_header_rec.active_end_date IS NULL) THEN
199: p_x_uc_header_rec.active_end_date := l_old_uc_header_rec.active_end_date;
200: ELSIF (p_x_uc_header_rec.active_end_date = FND_API.G_MISS_DATE) THEN
201: p_x_uc_header_rec.active_end_date := null;
202: END IF;
203: IF (p_x_uc_header_rec.active_uc_status_code IS NULL) THEN
204: p_x_uc_header_rec.active_uc_status_code := l_old_uc_header_rec.active_uc_status_code;

Line 205: ELSIF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN

201: p_x_uc_header_rec.active_end_date := null;
202: END IF;
203: IF (p_x_uc_header_rec.active_uc_status_code IS NULL) THEN
204: p_x_uc_header_rec.active_uc_status_code := l_old_uc_header_rec.active_uc_status_code;
205: ELSIF (p_x_uc_header_rec.active_uc_status_code = FND_API.G_MISS_CHAR) THEN
206: p_x_uc_header_rec.active_uc_status_code := null;
207: END IF;
208: IF (p_x_uc_header_rec.parent_uc_header_id IS NULL) THEN
209: p_x_uc_header_rec.parent_uc_header_id := l_old_uc_header_rec.parent_uc_header_id;

Line 210: ELSIF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN

206: p_x_uc_header_rec.active_uc_status_code := null;
207: END IF;
208: IF (p_x_uc_header_rec.parent_uc_header_id IS NULL) THEN
209: p_x_uc_header_rec.parent_uc_header_id := l_old_uc_header_rec.parent_uc_header_id;
210: ELSIF (p_x_uc_header_rec.parent_uc_header_id = FND_API.G_MISS_NUM) THEN
211: p_x_uc_header_rec.parent_uc_header_id := null;
212: END IF;
213: IF (p_x_uc_header_rec.attribute_category IS NULL) THEN
214: p_x_uc_header_rec.attribute_category := l_old_uc_header_rec.attribute_category;

Line 215: ELSIF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN

211: p_x_uc_header_rec.parent_uc_header_id := null;
212: END IF;
213: IF (p_x_uc_header_rec.attribute_category IS NULL) THEN
214: p_x_uc_header_rec.attribute_category := l_old_uc_header_rec.attribute_category;
215: ELSIF (p_x_uc_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
216: p_x_uc_header_rec.attribute_category := null;
217: END IF;
218: IF (p_x_uc_header_rec.attribute1 IS NULL) THEN
219: p_x_uc_header_rec.attribute1 := l_old_uc_header_rec.attribute1;

Line 220: ELSIF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN

216: p_x_uc_header_rec.attribute_category := null;
217: END IF;
218: IF (p_x_uc_header_rec.attribute1 IS NULL) THEN
219: p_x_uc_header_rec.attribute1 := l_old_uc_header_rec.attribute1;
220: ELSIF (p_x_uc_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
221: p_x_uc_header_rec.attribute1 := null;
222: END IF;
223: IF (p_x_uc_header_rec.attribute2 IS NULL) THEN
224: p_x_uc_header_rec.attribute2 := l_old_uc_header_rec.attribute2;

Line 225: ELSIF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN

221: p_x_uc_header_rec.attribute1 := null;
222: END IF;
223: IF (p_x_uc_header_rec.attribute2 IS NULL) THEN
224: p_x_uc_header_rec.attribute2 := l_old_uc_header_rec.attribute2;
225: ELSIF (p_x_uc_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
226: p_x_uc_header_rec.attribute2 := null;
227: END IF;
228: IF (p_x_uc_header_rec.attribute3 IS NULL) THEN
229: p_x_uc_header_rec.attribute3 := l_old_uc_header_rec.attribute3;

Line 230: ELSIF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN

226: p_x_uc_header_rec.attribute2 := null;
227: END IF;
228: IF (p_x_uc_header_rec.attribute3 IS NULL) THEN
229: p_x_uc_header_rec.attribute3 := l_old_uc_header_rec.attribute3;
230: ELSIF (p_x_uc_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
231: p_x_uc_header_rec.attribute3 := null;
232: END IF;
233: IF (p_x_uc_header_rec.attribute4 IS NULL) THEN
234: p_x_uc_header_rec.attribute4 := l_old_uc_header_rec.attribute4;

Line 235: ELSIF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN

231: p_x_uc_header_rec.attribute3 := null;
232: END IF;
233: IF (p_x_uc_header_rec.attribute4 IS NULL) THEN
234: p_x_uc_header_rec.attribute4 := l_old_uc_header_rec.attribute4;
235: ELSIF (p_x_uc_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
236: p_x_uc_header_rec.attribute4 := null;
237: END IF;
238: IF (p_x_uc_header_rec.attribute5 IS NULL) THEN
239: p_x_uc_header_rec.attribute5 := l_old_uc_header_rec.attribute5;

Line 240: ELSIF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN

236: p_x_uc_header_rec.attribute4 := null;
237: END IF;
238: IF (p_x_uc_header_rec.attribute5 IS NULL) THEN
239: p_x_uc_header_rec.attribute5 := l_old_uc_header_rec.attribute5;
240: ELSIF (p_x_uc_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
241: p_x_uc_header_rec.attribute5 := null;
242: END IF;
243: IF (p_x_uc_header_rec.attribute6 IS NULL) THEN
244: p_x_uc_header_rec.attribute6 := l_old_uc_header_rec.attribute6;

Line 245: ELSIF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN

241: p_x_uc_header_rec.attribute5 := null;
242: END IF;
243: IF (p_x_uc_header_rec.attribute6 IS NULL) THEN
244: p_x_uc_header_rec.attribute6 := l_old_uc_header_rec.attribute6;
245: ELSIF (p_x_uc_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
246: p_x_uc_header_rec.attribute6 := null;
247: END IF;
248: IF (p_x_uc_header_rec.attribute7 IS NULL) THEN
249: p_x_uc_header_rec.attribute7 := l_old_uc_header_rec.attribute7;

Line 250: ELSIF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN

246: p_x_uc_header_rec.attribute6 := null;
247: END IF;
248: IF (p_x_uc_header_rec.attribute7 IS NULL) THEN
249: p_x_uc_header_rec.attribute7 := l_old_uc_header_rec.attribute7;
250: ELSIF (p_x_uc_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
251: p_x_uc_header_rec.attribute7 := null;
252: END IF;
253: IF (p_x_uc_header_rec.attribute8 IS NULL) THEN
254: p_x_uc_header_rec.attribute8 := l_old_uc_header_rec.attribute8;

Line 255: ELSIF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN

251: p_x_uc_header_rec.attribute7 := null;
252: END IF;
253: IF (p_x_uc_header_rec.attribute8 IS NULL) THEN
254: p_x_uc_header_rec.attribute8 := l_old_uc_header_rec.attribute8;
255: ELSIF (p_x_uc_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
256: p_x_uc_header_rec.attribute8 := null;
257: END IF;
258: IF (p_x_uc_header_rec.attribute9 IS NULL) THEN
259: p_x_uc_header_rec.attribute9 := l_old_uc_header_rec.attribute9;

Line 260: ELSIF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN

256: p_x_uc_header_rec.attribute8 := null;
257: END IF;
258: IF (p_x_uc_header_rec.attribute9 IS NULL) THEN
259: p_x_uc_header_rec.attribute9 := l_old_uc_header_rec.attribute9;
260: ELSIF (p_x_uc_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
261: p_x_uc_header_rec.attribute9 := null;
262: END IF;
263: IF (p_x_uc_header_rec.attribute10 IS NULL) THEN
264: p_x_uc_header_rec.attribute10 := l_old_uc_header_rec.attribute10;

Line 265: ELSIF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN

261: p_x_uc_header_rec.attribute9 := null;
262: END IF;
263: IF (p_x_uc_header_rec.attribute10 IS NULL) THEN
264: p_x_uc_header_rec.attribute10 := l_old_uc_header_rec.attribute10;
265: ELSIF (p_x_uc_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
266: p_x_uc_header_rec.attribute10 := null;
267: END IF;
268: IF (p_x_uc_header_rec.attribute11 IS NULL) THEN
269: p_x_uc_header_rec.attribute11 := l_old_uc_header_rec.attribute11;

Line 270: ELSIF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN

266: p_x_uc_header_rec.attribute10 := null;
267: END IF;
268: IF (p_x_uc_header_rec.attribute11 IS NULL) THEN
269: p_x_uc_header_rec.attribute11 := l_old_uc_header_rec.attribute11;
270: ELSIF (p_x_uc_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
271: p_x_uc_header_rec.attribute11 := null;
272: END IF;
273: IF (p_x_uc_header_rec.attribute12 IS NULL) THEN
274: p_x_uc_header_rec.attribute12 := l_old_uc_header_rec.attribute12;

Line 275: ELSIF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN

271: p_x_uc_header_rec.attribute11 := null;
272: END IF;
273: IF (p_x_uc_header_rec.attribute12 IS NULL) THEN
274: p_x_uc_header_rec.attribute12 := l_old_uc_header_rec.attribute12;
275: ELSIF (p_x_uc_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
276: p_x_uc_header_rec.attribute12 := null;
277: END IF;
278: IF (p_x_uc_header_rec.attribute13 IS NULL) THEN
279: p_x_uc_header_rec.attribute13 := l_old_uc_header_rec.attribute13;

Line 280: ELSIF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN

276: p_x_uc_header_rec.attribute12 := null;
277: END IF;
278: IF (p_x_uc_header_rec.attribute13 IS NULL) THEN
279: p_x_uc_header_rec.attribute13 := l_old_uc_header_rec.attribute13;
280: ELSIF (p_x_uc_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
281: p_x_uc_header_rec.attribute13 := null;
282: END IF;
283: IF (p_x_uc_header_rec.attribute14 IS NULL) THEN
284: p_x_uc_header_rec.attribute14 := l_old_uc_header_rec.attribute14;

Line 285: ELSIF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN

281: p_x_uc_header_rec.attribute13 := null;
282: END IF;
283: IF (p_x_uc_header_rec.attribute14 IS NULL) THEN
284: p_x_uc_header_rec.attribute14 := l_old_uc_header_rec.attribute14;
285: ELSIF (p_x_uc_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
286: p_x_uc_header_rec.attribute14 := null;
287: END IF;
288: IF (p_x_uc_header_rec.attribute15 IS NULL) THEN
289: p_x_uc_header_rec.attribute15 := l_old_uc_header_rec.attribute15;

Line 290: ELSIF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN

286: p_x_uc_header_rec.attribute14 := null;
287: END IF;
288: IF (p_x_uc_header_rec.attribute15 IS NULL) THEN
289: p_x_uc_header_rec.attribute15 := l_old_uc_header_rec.attribute15;
290: ELSIF (p_x_uc_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
291: p_x_uc_header_rec.attribute15 := null;
292: END IF;
293: END convert_attributes;
294:

Line 301: x_return_status := FND_API.G_RET_STS_SUCCESS;

297: p_uc_header_rec IN ahl_uc_instance_pvt.uc_header_rec_type,
298: x_return_status OUT NOCOPY VARCHAR2)
299: IS
300: BEGIN
301: x_return_status := FND_API.G_RET_STS_SUCCESS;
302: IF (p_uc_header_rec.mc_name IS NULL AND
303: p_uc_header_rec.mc_revision IS NOT NULL) OR
304: (p_uc_header_rec.mc_name IS NOT NULL AND
305: p_uc_header_rec.mc_revision IS NULL) THEN

Line 308: x_return_status := FND_API.G_RET_STS_ERROR;

304: (p_uc_header_rec.mc_name IS NOT NULL AND
305: p_uc_header_rec.mc_revision IS NULL) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_UC_MC_NAME_REV_INVALID' );
307: FND_MSG_PUB.add;
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: END IF;
310: END;
311:
312: -- Procedure to validate mc_header

Line 344: x_return_status := FND_API.G_RET_STS_SUCCESS;

340: AND R.parent_relationship_id IS NULL
341: AND trunc(nvl(R.active_start_date,SYSDATE)) <= trunc(SYSDATE)
342: AND trunc(nvl(R.active_end_date, SYSDATE+1)) > trunc(SYSDATE);
343: BEGIN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: IF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
346: p_x_mc_header_id IS NULL THEN
347: x_return_status := FND_API.G_RET_STS_ERROR;
348: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');

Line 347: x_return_status := FND_API.G_RET_STS_ERROR;

343: BEGIN
344: x_return_status := FND_API.G_RET_STS_SUCCESS;
345: IF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
346: p_x_mc_header_id IS NULL THEN
347: x_return_status := FND_API.G_RET_STS_ERROR;
348: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
349: FND_MSG_PUB.add;
350: ELSIF (p_mc_name IS NULL OR p_mc_revision IS NULL) AND
351: p_x_mc_header_id IS NOT NULL THEN

Line 355: x_return_status := FND_API.G_RET_STS_ERROR;

351: p_x_mc_header_id IS NOT NULL THEN
352: OPEN get_rec_from_id(p_x_mc_header_id);
353: FETCH get_rec_from_id INTO l_mc_header_id, l_relationship_id;
354: IF get_rec_from_id%NOTFOUND THEN
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_ID_INVALID');
357: FND_MESSAGE.set_token('MC_HEADER_ID', p_x_mc_header_id);
358: FND_MSG_PUB.add;
359: ELSE

Line 371: x_return_status := FND_API.G_RET_STS_ERROR;

367: FETCH get_rec_from_value INTO l_mc_header_id, l_relationship_id;
368: EXIT WHEN get_rec_from_value%NOTFOUND;
369: END LOOP;
370: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
373: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
374: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
375: FND_MSG_PUB.add;

Line 380: x_return_status := FND_API.G_RET_STS_ERROR;

376: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
377: p_x_mc_header_id := l_mc_header_id;
378: x_relationship_id := l_relationship_id;
379: ELSE
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: FND_MESSAGE.set_name('AHL', 'AHL_UC_MC_HEADER_INVALID');
382: FND_MESSAGE.set_token('MC_NAME', p_mc_name);
383: FND_MESSAGE.set_token('MC_REV', p_mc_revision);
384: FND_MSG_PUB.add;

Line 467: x_return_status := FND_API.G_RET_STS_SUCCESS;

463: FROM ahl_unit_config_headers H
464: WHERE H.csi_item_instance_id = C.instance_id
465: AND trunc(nvl(H.active_end_date, SYSDATE+1)) > trunc(SYSDATE));
466: BEGIN
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468: IF p_instance_num IS NULL AND p_x_instance_id IS NULL THEN
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
471: FND_MSG_PUB.add;

Line 469: x_return_status := FND_API.G_RET_STS_ERROR;

465: AND trunc(nvl(H.active_end_date, SYSDATE+1)) > trunc(SYSDATE));
466: BEGIN
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468: IF p_instance_num IS NULL AND p_x_instance_id IS NULL THEN
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: FND_MESSAGE.set_name('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
471: FND_MSG_PUB.add;
472: ELSIF p_instance_num IS NULL AND p_x_instance_id IS NOT NULL THEN
473: OPEN get_rec_from_id(p_x_instance_id, p_relationship_id);

Line 476: x_return_status := FND_API.G_RET_STS_ERROR;

472: ELSIF p_instance_num IS NULL AND p_x_instance_id IS NOT NULL THEN
473: OPEN get_rec_from_id(p_x_instance_id, p_relationship_id);
474: FETCH get_rec_from_id INTO l_instance_id;
475: IF get_rec_from_id%NOTFOUND THEN
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
478: FND_MESSAGE.set_token('CSII', p_x_instance_id);
479: FND_MSG_PUB.add;
480: END IF;

Line 489: x_return_status := FND_API.G_RET_STS_ERROR;

485: FETCH get_rec_from_value INTO l_instance_id;
486: EXIT WHEN get_rec_from_value%NOTFOUND;
487: END LOOP;
488: IF ( get_rec_from_value%ROWCOUNT = 0 ) THEN
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
491: FND_MESSAGE.set_token('CSII', p_instance_num);
492: FND_MSG_PUB.add;
493: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN

Line 496: x_return_status := FND_API.G_RET_STS_ERROR;

492: FND_MSG_PUB.add;
493: ELSIF ( get_rec_from_value%ROWCOUNT = 1 ) THEN
494: p_x_instance_id := l_instance_id;
495: ELSE
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
498: FND_MESSAGE.set_token('CSII', p_instance_num);
499: FND_MSG_PUB.add;
500: END IF;

Line 528: x_return_status := FND_API.G_RET_STS_SUCCESS;

524: l_dummy varchar2(1);
525: l_name check_uc_name3%ROWTYPE;
526:
527: BEGIN
528: x_return_status := FND_API.G_RET_STS_SUCCESS;
529: -- Check if name is unique when creating or updating a UC header record
530: IF p_dml_operation = 'C' THEN
531: OPEN check_uc_name1(p_uc_header_rec.uc_name);
532: FETCH check_uc_name1 INTO l_dummy;

Line 537: x_return_status := FND_API.G_RET_STS_ERROR;

533: IF check_uc_name1%FOUND THEN
534: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
535: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
536: FND_MSG_PUB.add;
537: x_return_status := FND_API.G_RET_STS_ERROR;
538: END IF;
539: CLOSE check_uc_name1;
540: ELSIF p_dml_operation = 'U' THEN
541: OPEN check_uc_name2(p_uc_header_rec.uc_name, p_uc_header_rec.uc_header_id);

Line 547: x_return_status := FND_API.G_RET_STS_ERROR;

543: IF check_uc_name2%FOUND THEN
544: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_DUPLICATE' );
545: FND_MESSAGE.set_token( 'NAME', p_uc_header_rec.uc_name );
546: FND_MSG_PUB.add;
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: END IF;
549: CLOSE check_uc_name2;
550:
551: -- UC name change is only allowed when the unit_config_status is DRAFT

Line 558: x_return_status := FND_API.G_RET_STS_ERROR;

554: FETCH check_uc_name3 INTO l_name;
555: IF check_uc_name3%FOUND AND (l_name.name <> p_uc_header_rec.uc_name) THEN
556: FND_MESSAGE.set_name( 'AHL','AHL_UC_NAME_CHANGE_UNALLOWED' );
557: FND_MSG_PUB.add;
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: END IF;
560: CLOSE check_uc_name3;
561: END IF;
562: END IF;

Line 569: x_return_status := FND_API.G_RET_STS_ERROR;

565: -- and update.
566: IF p_uc_header_rec.uc_name is NULL THEN
567: FND_MESSAGE.set_name('AHL','AHL_UC_NAME_NULL');
568: FND_MSG_PUB.add;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: END IF;
571: -- The following checks are actually not really necessary.
572: -- Check if the master_config_id contains a null value.
573: IF p_uc_header_rec.mc_header_id IS NULL THEN

Line 577: x_return_status := FND_API.G_RET_STS_ERROR;

573: IF p_uc_header_rec.mc_header_id IS NULL THEN
574: FND_MESSAGE.set_name('AHL','AHL_MC_HEADER_ID_INVALID');
575: FND_MESSAGE.set_token('MC_HEADER_ID', p_uc_header_rec.mc_header_id);
576: FND_MSG_PUB.add;
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
581: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_NULL');

Line 583: x_return_status := FND_API.G_RET_STS_ERROR;

579: -- Check if the csi_item_instance_id contains a null value.
580: IF p_uc_header_rec.instance_id IS NULL THEN
581: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_NULL');
582: FND_MSG_PUB.add;
583: x_return_status := FND_API.G_RET_STS_ERROR;
584: END IF;
585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
587: FND_MESSAGE.set_name('AHL','AHL_UC_CONFIG_STATUS_NULL');

Line 589: x_return_status := FND_API.G_RET_STS_ERROR;

585: -- Check if the unit_config_status_code contains a null value.
586: IF p_uc_header_rec.unit_config_status_code IS NULL THEN
587: FND_MESSAGE.set_name('AHL','AHL_UC_CONFIG_STATUS_NULL');
588: FND_MSG_PUB.add;
589: x_return_status := FND_API.G_RET_STS_ERROR;
590: END IF;
591:
592: END validate_attributes;
593:

Line 598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

594: -- Define Procedure create_uc_header --
595: -- This API is used to create a UC header record in ahl_unit_config_headers
596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,

Line 599: p_commit IN VARCHAR2 := FND_API.G_FALSE,

595: -- This API is used to create a UC header record in ahl_unit_config_headers
596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,

Line 600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

596: PROCEDURE create_uc_header(
597: p_api_version IN NUMBER := 1.0,
598: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
599: p_commit IN VARCHAR2 := FND_API.G_FALSE,
600: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
601: p_module_type IN VARCHAR2 := NULL,
602: x_return_status OUT NOCOPY VARCHAR2,
603: x_msg_count OUT NOCOPY NUMBER,
604: x_msg_data OUT NOCOPY VARCHAR2,

Line 635: x_return_status := FND_API.G_RET_STS_SUCCESS;

631: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
632: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
633: BEGIN
634: -- Initialize API return status to success
635: x_return_status := FND_API.G_RET_STS_SUCCESS;
636:
637: -- Standard Start of API savepoint
638: SAVEPOINT create_uc_header;
639:

Line 641: IF NOT FND_API.compatible_api_call(

637: -- Standard Start of API savepoint
638: SAVEPOINT create_uc_header;
639:
640: -- Standard call to check for call compatibility.
641: IF NOT FND_API.compatible_api_call(
642: l_api_version,
643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)

Line 647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

643: p_api_version,
644: l_api_name,
645: G_PKG_NAME)
646: THEN
647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 651: IF FND_API.to_boolean( p_init_msg_list ) THEN

647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648: END IF;
649:
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654:
655: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

673: ': after nullify_attributes');
674: END IF;
675:
676: validate_parameters(p_x_uc_header_rec, l_return_status);
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: validate_mc_header(p_x_uc_header_rec.mc_name,
681: p_x_uc_header_rec.mc_revision,

Line 678: RAISE FND_API.G_EXC_ERROR;

674: END IF;
675:
676: validate_parameters(p_x_uc_header_rec, l_return_status);
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: validate_mc_header(p_x_uc_header_rec.mc_name,
681: p_x_uc_header_rec.mc_revision,
682: p_x_uc_header_rec.mc_header_id,

Line 685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

681: p_x_uc_header_rec.mc_revision,
682: p_x_uc_header_rec.mc_header_id,
683: l_relationship_id,
684: l_return_status);
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688: --dbms_output.put_line('after mc_header validate and mc_name '|| p_x_uc_header_rec.mc_name);
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 686: RAISE FND_API.G_EXC_ERROR;

682: p_x_uc_header_rec.mc_header_id,
683: l_relationship_id,
684: l_return_status);
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688: --dbms_output.put_line('after mc_header validate and mc_name '|| p_x_uc_header_rec.mc_name);
689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,

Line 701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

697: validate_csi_instance(p_x_uc_header_rec.instance_number,
698: p_x_uc_header_rec.instance_id,
699: l_relationship_id,
700: l_return_status);
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704: --END IF;
705:

Line 702: RAISE FND_API.G_EXC_ERROR;

698: p_x_uc_header_rec.instance_id,
699: l_relationship_id,
700: l_return_status);
701: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704: --END IF;
705:
706: -- Validate all attributes (Item level validation)

Line 707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

703: END IF;
704: --END IF;
705:
706: -- Validate all attributes (Item level validation)
707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;

Line 710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

706: -- Validate all attributes (Item level validation)
707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;

Line 711: RAISE FND_API.G_EXC_ERROR;

707: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;

Line 712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

708: validate_attributes(p_x_uc_header_rec, 'C', l_return_status);
709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;
716:

Line 713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

709: -- If any severe error occurs, then, abort API.
710: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
711: RAISE FND_API.G_EXC_ERROR;
712: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: END IF;
716:
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

796:
797: -- Insert into the exactly same record into ahl_unit_config_headers_h
798: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
799: --IF history copy failed, then don't raise exception, just add the message to the message stack
800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
801: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
802: FND_MSG_PUB.add;
803: END IF;
804:

Line 815: RAISE FND_API.G_EXC_ERROR;

811: IF get_serial_number%NOTFOUND THEN
812: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
813: FND_MESSAGE.set_token('CSII', p_x_uc_header_rec.instance_id);
814: FND_MSG_PUB.add;
815: RAISE FND_API.G_EXC_ERROR;
816: CLOSE get_serial_number;
817: ELSE
818: CLOSE get_serial_number;
819: END IF;

Line 838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

834: END IF;
835: --Build CSI transaction record, first get transaction_type_id
836: AHL_Util_UC_Pkg.getcsi_transaction_id('UC_UPDATE', l_transaction_type_id, l_return_val);
837: IF NOT(l_return_val) THEN
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
839: END IF;
840:
841: l_csi_transaction_rec.source_transaction_date := SYSDATE;
842: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;

Line 863: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

859: x_return_status => l_return_status,
860: x_msg_count => l_msg_count,
861: x_msg_data => l_msg_data);
862:
863: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;

Line 864: RAISE FND_API.G_EXC_ERROR;

860: x_msg_count => l_msg_count,
861: x_msg_data => l_msg_data);
862:
863: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868: END IF;

Line 865: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

861: x_msg_data => l_msg_data);
862:
863: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868: END IF;
869: END IF;

Line 866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

862:
863: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868: END IF;
869: END IF;
870:

Line 880: RAISE FND_API.G_EXC_ERROR;

876: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
877: l_msg_count := FND_MSG_PUB.count_msg;
878: IF l_msg_count > 0 THEN
879: x_msg_count := l_msg_count;
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: -- Perform the Commit (if requested)
883: IF FND_API.to_boolean( p_commit ) THEN
884: COMMIT;

Line 883: IF FND_API.to_boolean( p_commit ) THEN

879: x_msg_count := l_msg_count;
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: -- Perform the Commit (if requested)
883: IF FND_API.to_boolean( p_commit ) THEN
884: COMMIT;
885: END IF;
886: -- Count and Get messages (optional)
887: FND_MSG_PUB.count_and_get(

Line 888: p_encoded => FND_API.G_FALSE,

884: COMMIT;
885: END IF;
886: -- Count and Get messages (optional)
887: FND_MSG_PUB.count_and_get(
888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
890: p_data => x_msg_data);
891: EXCEPTION
892: WHEN FND_API.G_EXC_ERROR THEN

Line 892: WHEN FND_API.G_EXC_ERROR THEN

888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
890: p_data => x_msg_data);
891: EXCEPTION
892: WHEN FND_API.G_EXC_ERROR THEN
893: ROLLBACK TO create_uc_header;
894: x_return_status := FND_API.G_RET_STS_ERROR ;
895: FND_MSG_PUB.count_and_get(
896: p_encoded => FND_API.G_FALSE,

Line 894: x_return_status := FND_API.G_RET_STS_ERROR ;

890: p_data => x_msg_data);
891: EXCEPTION
892: WHEN FND_API.G_EXC_ERROR THEN
893: ROLLBACK TO create_uc_header;
894: x_return_status := FND_API.G_RET_STS_ERROR ;
895: FND_MSG_PUB.count_and_get(
896: p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => x_msg_data);

Line 896: p_encoded => FND_API.G_FALSE,

892: WHEN FND_API.G_EXC_ERROR THEN
893: ROLLBACK TO create_uc_header;
894: x_return_status := FND_API.G_RET_STS_ERROR ;
895: FND_MSG_PUB.count_and_get(
896: p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO create_uc_header;

Line 899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

895: FND_MSG_PUB.count_and_get(
896: p_encoded => FND_API.G_FALSE,
897: p_count => x_msg_count,
898: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO create_uc_header;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
902: FND_MSG_PUB.count_and_get(
903: p_encoded => FND_API.G_FALSE,

Line 901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

897: p_count => x_msg_count,
898: p_data => x_msg_data);
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO create_uc_header;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
902: FND_MSG_PUB.count_and_get(
903: p_encoded => FND_API.G_FALSE,
904: p_count => x_msg_count,
905: p_data => x_msg_data);

Line 903: p_encoded => FND_API.G_FALSE,

899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO create_uc_header;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
902: FND_MSG_PUB.count_and_get(
903: p_encoded => FND_API.G_FALSE,
904: p_count => x_msg_count,
905: p_data => x_msg_data);
906: WHEN OTHERS THEN
907: ROLLBACK TO create_uc_header;

Line 908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

904: p_count => x_msg_count,
905: p_data => x_msg_data);
906: WHEN OTHERS THEN
907: ROLLBACK TO create_uc_header;
908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
910: THEN
911: FND_MSG_PUB.add_exc_msg(
912: p_pkg_name => G_PKG_NAME,

Line 917: p_encoded => FND_API.G_FALSE,

913: p_procedure_name => l_api_name,
914: p_error_text => SUBSTRB(SQLERRM,1,240));
915: END IF;
916: FND_MSG_PUB.count_and_get(
917: p_encoded => FND_API.G_FALSE,
918: p_count => x_msg_count,
919: p_data => x_msg_data);
920: END create_uc_header;
921:

Line 927: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

923: -- This API is used to update a UC header name or some attributes of the top node
924: -- instance of the UC.
925: PROCEDURE update_uc_header(
926: p_api_version IN NUMBER := 1.0,
927: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
928: p_commit IN VARCHAR2 := FND_API.G_FALSE,
929: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
930: p_module_type IN VARCHAR2 := NULL,
931: x_return_status OUT NOCOPY VARCHAR2,

Line 928: p_commit IN VARCHAR2 := FND_API.G_FALSE,

924: -- instance of the UC.
925: PROCEDURE update_uc_header(
926: p_api_version IN NUMBER := 1.0,
927: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
928: p_commit IN VARCHAR2 := FND_API.G_FALSE,
929: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
930: p_module_type IN VARCHAR2 := NULL,
931: x_return_status OUT NOCOPY VARCHAR2,
932: x_msg_count OUT NOCOPY NUMBER,

Line 929: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

925: PROCEDURE update_uc_header(
926: p_api_version IN NUMBER := 1.0,
927: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
928: p_commit IN VARCHAR2 := FND_API.G_FALSE,
929: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
930: p_module_type IN VARCHAR2 := NULL,
931: x_return_status OUT NOCOPY VARCHAR2,
932: x_msg_count OUT NOCOPY NUMBER,
933: x_msg_data OUT NOCOPY VARCHAR2,

Line 944: x_return_status := FND_API.G_RET_STS_SUCCESS;

940: l_msg_count NUMBER;
941:
942: BEGIN
943: -- Initialize API return status to success
944: x_return_status := FND_API.G_RET_STS_SUCCESS;
945:
946: -- Standard Start of API savepoint
947: SAVEPOINT update_uc_header;
948:

Line 950: IF NOT FND_API.compatible_api_call(

946: -- Standard Start of API savepoint
947: SAVEPOINT update_uc_header;
948:
949: -- Standard call to check for call compatibility.
950: IF NOT FND_API.compatible_api_call(
951: l_api_version,
952: p_api_version,
953: l_api_name,
954: G_PKG_NAME)

Line 956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

952: p_api_version,
953: l_api_name,
954: G_PKG_NAME)
955: THEN
956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: -- Initialize message list if p_init_msg_list is set to TRUE.
960: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 960: IF FND_API.to_boolean( p_init_msg_list ) THEN

956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957: END IF;
958:
959: -- Initialize message list if p_init_msg_list is set to TRUE.
960: IF FND_API.to_boolean( p_init_msg_list ) THEN
961: FND_MSG_PUB.initialize;
962: END IF;
963:
964: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

968: END IF;
969:
970: -- Convert G_MISS values to NULL and NULL to OLD values
971: convert_attributes(p_x_uc_header_rec, l_return_status);
972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;

Line 973: RAISE FND_API.G_EXC_ERROR;

969:
970: -- Convert G_MISS values to NULL and NULL to OLD values
971: convert_attributes(p_x_uc_header_rec, l_return_status);
972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:

Line 974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

970: -- Convert G_MISS values to NULL and NULL to OLD values
971: convert_attributes(p_x_uc_header_rec, l_return_status);
972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
978: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

971: convert_attributes(p_x_uc_header_rec, l_return_status);
972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
973: RAISE FND_API.G_EXC_ERROR;
974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
978: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
979: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 985: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN

981: ': after convert_attributes');
982: END IF;
983:
984: -- ACL :: Changes for R12
985: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
986: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
987: FND_MSG_PUB.add;
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;

Line 988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

984: -- ACL :: Changes for R12
985: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_x_uc_header_rec.uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
986: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
987: FND_MSG_PUB.add;
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990:
991: -- Validate all attributes (Item level validation)
992: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

Line 992: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN

988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990:
991: -- Validate all attributes (Item level validation)
992: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
993: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
994: -- If any severe error occurs, then, abort API.
995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
996: RAISE FND_API.G_EXC_ERROR;

Line 995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

991: -- Validate all attributes (Item level validation)
992: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
993: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
994: -- If any severe error occurs, then, abort API.
995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
996: RAISE FND_API.G_EXC_ERROR;
997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;

Line 996: RAISE FND_API.G_EXC_ERROR;

992: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
993: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
994: -- If any severe error occurs, then, abort API.
995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
996: RAISE FND_API.G_EXC_ERROR;
997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000: END IF;

Line 997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

993: validate_attributes(p_x_uc_header_rec, 'U', l_return_status);
994: -- If any severe error occurs, then, abort API.
995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
996: RAISE FND_API.G_EXC_ERROR;
997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000: END IF;
1001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

994: -- If any severe error occurs, then, abort API.
995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
996: RAISE FND_API.G_EXC_ERROR;
997: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000: END IF;
1001: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 1047: x_return_status := FND_API.G_RET_STS_ERROR;

1043: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','ovn='||p_x_uc_header_rec.object_version_number);
1044: END IF;
1045: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1046: FND_MSG_PUB.add;
1047: x_return_status := FND_API.G_RET_STS_ERROR;
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050:
1051: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);

Line 1048: RAISE FND_API.G_EXC_ERROR;

1044: END IF;
1045: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1046: FND_MSG_PUB.add;
1047: x_return_status := FND_API.G_RET_STS_ERROR;
1048: RAISE FND_API.G_EXC_ERROR;
1049: END IF;
1050:
1051: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
1052: --IF history copy failed, then don't raise exception, just add the message to the message stack

Line 1053: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1049: END IF;
1050:
1051: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_uc_header_rec.uc_header_id, l_return_status);
1052: --IF history copy failed, then don't raise exception, just add the message to the message stack
1053: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1054: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1055: FND_MSG_PUB.add;
1056: END IF;
1057:

Line 1073: p_init_msg_list => FND_API.G_FALSE,

1069: --will be null.
1070: IF p_uc_instance_rec.instance_id IS NOT NULL THEN
1071: ahl_uc_instance_pvt.update_instance_attr(
1072: p_api_version => 1.0,
1073: p_init_msg_list => FND_API.G_FALSE,
1074: p_commit => FND_API.G_FALSE,
1075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1076: x_return_status => x_return_status,
1077: x_msg_count => x_msg_count,

Line 1074: p_commit => FND_API.G_FALSE,

1070: IF p_uc_instance_rec.instance_id IS NOT NULL THEN
1071: ahl_uc_instance_pvt.update_instance_attr(
1072: p_api_version => 1.0,
1073: p_init_msg_list => FND_API.G_FALSE,
1074: p_commit => FND_API.G_FALSE,
1075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1076: x_return_status => x_return_status,
1077: x_msg_count => x_msg_count,
1078: x_msg_data => x_msg_data,

Line 1075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

1071: ahl_uc_instance_pvt.update_instance_attr(
1072: p_api_version => 1.0,
1073: p_init_msg_list => FND_API.G_FALSE,
1074: p_commit => FND_API.G_FALSE,
1075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1076: x_return_status => x_return_status,
1077: x_msg_count => x_msg_count,
1078: x_msg_data => x_msg_data,
1079: p_uc_header_id => p_x_uc_header_rec.uc_header_id,

Line 1092: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1088: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1089: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1090: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','x_return_status='||x_return_status);
1091: END IF;
1092: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095: END IF;
1096:

Line 1093: RAISE FND_API.G_EXC_ERROR;

1089: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1090: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API','x_return_status='||x_return_status);
1091: END IF;
1092: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095: END IF;
1096:
1097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1106: RAISE FND_API.G_EXC_ERROR;

1102: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1103: l_msg_count := FND_MSG_PUB.count_msg;
1104: IF l_msg_count > 0 THEN
1105: x_msg_count := l_msg_count;
1106: RAISE FND_API.G_EXC_ERROR;
1107: END IF;
1108:
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,

Line 1115: IF FND_API.to_boolean( p_commit ) THEN

1111: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': within API', 'Before commit');
1112: END IF;
1113:
1114: -- Perform the Commit (if requested)
1115: IF FND_API.to_boolean( p_commit ) THEN
1116: COMMIT;
1117: END IF;
1118:
1119: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1126: p_encoded => FND_API.G_FALSE,

1122: END IF;
1123:
1124: -- Count and Get messages (optional)
1125: FND_MSG_PUB.count_and_get(
1126: p_encoded => FND_API.G_FALSE,
1127: p_count => x_msg_count,
1128: p_data => x_msg_data);
1129:
1130: EXCEPTION

Line 1131: WHEN FND_API.G_EXC_ERROR THEN

1127: p_count => x_msg_count,
1128: p_data => x_msg_data);
1129:
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: ROLLBACK TO update_uc_header;
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.G_FALSE,

Line 1133: x_return_status := FND_API.G_RET_STS_ERROR ;

1129:
1130: EXCEPTION
1131: WHEN FND_API.G_EXC_ERROR THEN
1132: ROLLBACK TO update_uc_header;
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => x_msg_count,
1137: p_data => x_msg_data);

Line 1135: p_encoded => FND_API.G_FALSE,

1131: WHEN FND_API.G_EXC_ERROR THEN
1132: ROLLBACK TO update_uc_header;
1133: x_return_status := FND_API.G_RET_STS_ERROR ;
1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => x_msg_count,
1137: p_data => x_msg_data);
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO update_uc_header;

Line 1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1134: FND_MSG_PUB.count_and_get(
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => x_msg_count,
1137: p_data => x_msg_data);
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO update_uc_header;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1141: FND_MSG_PUB.count_and_get(
1142: p_encoded => FND_API.G_FALSE,

Line 1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1136: p_count => x_msg_count,
1137: p_data => x_msg_data);
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO update_uc_header;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1141: FND_MSG_PUB.count_and_get(
1142: p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);

Line 1142: p_encoded => FND_API.G_FALSE,

1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO update_uc_header;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1141: FND_MSG_PUB.count_and_get(
1142: p_encoded => FND_API.G_FALSE,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1145: WHEN OTHERS THEN
1146: ROLLBACK TO update_uc_header;

Line 1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1143: p_count => x_msg_count,
1144: p_data => x_msg_data);
1145: WHEN OTHERS THEN
1146: ROLLBACK TO update_uc_header;
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1149: THEN
1150: FND_MSG_PUB.add_exc_msg(
1151: p_pkg_name => G_PKG_NAME,

Line 1156: p_encoded => FND_API.G_FALSE,

1152: p_procedure_name => l_api_name,
1153: p_error_text => SUBSTRB(SQLERRM,1,240));
1154: END IF;
1155: FND_MSG_PUB.count_and_get(
1156: p_encoded => FND_API.G_FALSE,
1157: p_count => x_msg_count,
1158: p_data => x_msg_data);
1159: END update_uc_header;
1160:

Line 1165: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

1161: -- Define Procedure delete_uc_header --
1162:
1163: PROCEDURE delete_uc_header(
1164: p_api_version IN NUMBER := 1.0,
1165: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1166: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1168: x_return_status OUT NOCOPY VARCHAR2,
1169: x_msg_count OUT NOCOPY NUMBER,

Line 1166: p_commit IN VARCHAR2 := FND_API.G_FALSE,

1162:
1163: PROCEDURE delete_uc_header(
1164: p_api_version IN NUMBER := 1.0,
1165: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1166: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1168: x_return_status OUT NOCOPY VARCHAR2,
1169: x_msg_count OUT NOCOPY NUMBER,
1170: x_msg_data OUT NOCOPY VARCHAR2,

Line 1167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

1163: PROCEDURE delete_uc_header(
1164: p_api_version IN NUMBER := 1.0,
1165: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1166: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1168: x_return_status OUT NOCOPY VARCHAR2,
1169: x_msg_count OUT NOCOPY NUMBER,
1170: x_msg_data OUT NOCOPY VARCHAR2,
1171: p_uc_header_id IN NUMBER,

Line 1227: x_return_status := FND_API.G_RET_STS_SUCCESS;

1223: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
1224: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1225: BEGIN
1226: -- Initialize API return status to success
1227: x_return_status := FND_API.G_RET_STS_SUCCESS;
1228:
1229: -- Standard Start of API savepoint
1230: SAVEPOINT delete_uc_header;
1231:

Line 1233: IF NOT FND_API.compatible_api_call(

1229: -- Standard Start of API savepoint
1230: SAVEPOINT delete_uc_header;
1231:
1232: -- Standard call to check for call compatibility.
1233: IF NOT FND_API.compatible_api_call(
1234: l_api_version,
1235: p_api_version,
1236: l_api_name,
1237: G_PKG_NAME)

Line 1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1235: p_api_version,
1236: l_api_name,
1237: G_PKG_NAME)
1238: THEN
1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243: IF FND_API.to_boolean( p_init_msg_list ) THEN

Line 1243: IF FND_API.to_boolean( p_init_msg_list ) THEN

1239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1240: END IF;
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243: IF FND_API.to_boolean( p_init_msg_list ) THEN
1244: FND_MSG_PUB.initialize;
1245: END IF;
1246:
1247: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1253: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR

1249: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1250: 'At the start of the procedure');
1251: END IF;
1252:
1253: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1256: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1257: FND_MSG_PUB.add;

Line 1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR

1250: 'At the start of the procedure');
1251: END IF;
1252:
1253: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1256: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1257: FND_MSG_PUB.add;
1258: RAISE FND_API.G_EXC_ERROR;

Line 1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN

1251: END IF;
1252:
1253: IF (p_uc_header_id IS NULL OR p_uc_header_id = FND_API.G_MISS_NUM OR
1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1256: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1257: FND_MSG_PUB.add;
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;

Line 1258: RAISE FND_API.G_EXC_ERROR;

1254: p_object_version_number IS NULL OR p_object_version_number = FND_API.G_MISS_NUM OR
1255: p_csi_instance_ovn IS NULL OR p_csi_instance_ovn = FND_API.G_MISS_NUM ) THEN
1256: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1257: FND_MSG_PUB.add;
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261: --In case p_uc_header_id is a subunit, then whether it can be expired depends on its ancestor
1262: --uc_header_id's status

Line 1271: RAISE FND_API.G_EXC_ERROR;

1267: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1268: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1269: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1270: FND_MSG_PUB.add;
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1273: CLOSE get_top_unit;
1274: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1275: FND_MSG_PUB.add;

Line 1276: RAISE FND_API.G_EXC_ERROR;

1272: ELSIF (l_uc_status IS NULL OR l_uc_status NOT IN ('DRAFT', 'APPROVAL_REJECTED')) THEN
1273: CLOSE get_top_unit;
1274: FND_MESSAGE.set_name( 'AHL', 'AHL_UC_STATUS_NOT_DRAFT' );
1275: FND_MSG_PUB.add;
1276: RAISE FND_API.G_EXC_ERROR;
1277: END IF;
1278:
1279: --Get p_uc_header_id its own attribute from ahl_unit_config_headers_v
1280: OPEN get_uc_header(p_uc_header_id);

Line 1288: RAISE FND_API.G_EXC_ERROR;

1284: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1285: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1286: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1287: FND_MSG_PUB.add;
1288: RAISE FND_API.G_EXC_ERROR;
1289: ELSE
1290: CLOSE get_uc_header;
1291: END IF;
1292:

Line 1307: x_return_status := FND_API.G_RET_STS_ERROR;

1303:
1304: IF SQL%NOTFOUND THEN
1305: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1306: FND_MSG_PUB.add;
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: RAISE FND_API.G_EXC_ERROR;
1309: END IF;
1310:
1311: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);

Line 1308: RAISE FND_API.G_EXC_ERROR;

1304: IF SQL%NOTFOUND THEN
1305: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1306: FND_MSG_PUB.add;
1307: x_return_status := FND_API.G_RET_STS_ERROR;
1308: RAISE FND_API.G_EXC_ERROR;
1309: END IF;
1310:
1311: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);
1312: --IF history copy failed, then don't raise exception, just add the message tothe message stack

Line 1313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1309: END IF;
1310:
1311: ahl_util_uc_pkg.copy_uc_header_to_history(p_uc_header_id, l_return_status);
1312: --IF history copy failed, then don't raise exception, just add the message tothe message stack
1313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1314: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1315: FND_MSG_PUB.add;
1316: END IF;
1317:

Line 1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1320: --the relationship below the subunit are not expired.
1321: --First, get transaction_type_id.
1322: AHL_UTIL_UC_PKG.getcsi_transaction_id('UC_UPDATE',l_transaction_type_id, l_return_value);
1323: IF NOT l_return_value THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: --Set the CSI transaction record
1327: l_csi_transaction_rec.source_transaction_date := SYSDATE;
1328: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;

Line 1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1339: IF (get_csi_obj_ver_num%NOTFOUND) THEN
1340: CLOSE get_csi_obj_ver_num;
1341: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_DELETED');
1342: FND_MSG_PUB.add;
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1345: CLOSE get_csi_obj_ver_num;
1346: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1347: FND_MSG_PUB.add;

Line 1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1344: ELSIF (l_csi_instance_ovn <> p_csi_instance_ovn) THEN
1345: CLOSE get_csi_obj_ver_num;
1346: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
1347: FND_MSG_PUB.add;
1348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: IF l_uc_header_rec.parent_uc_header_id IS NOT NULL THEN
1352: --Means it is a subunit, need to expire the relationship with its parent (here we can also

Line 1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1357: CLOSE get_csi_ii_relationship;
1358: FND_MESSAGE.set_name('AHL','AHL_UC_CSI_REL_REC_INVALID');
1359: FND_MESSAGE.set_token('INSTANCE', l_uc_header_rec.csi_instance_id);
1360: FND_MSG_PUB.add;
1361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1362: ELSE
1363: CLOSE get_csi_ii_relationship;
1364: END IF;
1365:

Line 1378: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN

1374: x_return_status => l_return_status,
1375: x_msg_count => l_msg_count,
1376: x_msg_data => l_msg_data);
1377:
1378: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1379: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1381: RAISE FND_API.G_EXC_ERROR;
1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

Line 1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN

1376: x_msg_data => l_msg_data);
1377:
1378: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1379: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1381: RAISE FND_API.G_EXC_ERROR;
1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;

Line 1381: RAISE FND_API.G_EXC_ERROR;

1377:
1378: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1379: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1381: RAISE FND_API.G_EXC_ERROR;
1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;
1385: END IF;

Line 1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1378: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1379: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1381: RAISE FND_API.G_EXC_ERROR;
1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;
1385: END IF;
1386:

Line 1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1379: l_csi_instance_ovn := l_csi_instance_ovn + 1;
1380: ELSIF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
1381: RAISE FND_API.G_EXC_ERROR;
1382: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: END IF;
1385: END IF;
1386:
1387: --Call CSI API to expire the instance and all its descendants if exist

Line 1393: p_expire_children => FND_API.G_TRUE,

1389: l_csi_instance_rec.object_version_number := l_csi_instance_ovn;
1390: CSI_ITEM_INSTANCE_PUB.expire_item_instance(
1391: p_api_version => 1.0,
1392: p_instance_rec => l_csi_instance_rec,
1393: p_expire_children => FND_API.G_TRUE,
1394: p_txn_rec => l_csi_upd_transaction_rec,
1395: x_instance_id_lst => l_csi_instance_id_lst,
1396: x_return_status => l_return_status,
1397: x_msg_count => l_msg_count,

Line 1400: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

1396: x_return_status => l_return_status,
1397: x_msg_count => l_msg_count,
1398: x_msg_data => l_msg_data);
1399: --dbms_output.put_line('l_msg_date='||l_msg_data);
1400: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;

Line 1401: RAISE FND_API.G_EXC_ERROR;

1397: x_msg_count => l_msg_count,
1398: x_msg_data => l_msg_data);
1399: --dbms_output.put_line('l_msg_date='||l_msg_data);
1400: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405:

Line 1402: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

1398: x_msg_data => l_msg_data);
1399: --dbms_output.put_line('l_msg_date='||l_msg_data);
1400: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405:
1406: --Then expire all of the subunit headers. Here don't need to worry about the status of subunit.

Line 1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1399: --dbms_output.put_line('l_msg_date='||l_msg_data);
1400: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1401: RAISE FND_API.G_EXC_ERROR;
1402: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405:
1406: --Then expire all of the subunit headers. Here don't need to worry about the status of subunit.
1407: --because all the Draft units can only have Draft subunits and only separate units are allowed

Line 1421: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1417: --here no object_version_number check
1418:
1419: ahl_util_uc_pkg.copy_uc_header_to_history(l_subunits.unit_config_header_id,l_return_status);
1420: --IF history copy failed, then don't raise exception, just add the messageto the message stack
1421: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1422: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1423: FND_MSG_PUB.add;
1424: END IF;
1425: END LOOP;

Line 1433: IF FND_API.to_boolean( p_commit ) THEN

1429: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After normal execution','At the end of the procedure');
1430: END IF;
1431:
1432: -- Perform the Commit (if requested)
1433: IF FND_API.to_boolean( p_commit ) THEN
1434: COMMIT;
1435: END IF;
1436: -- Count and Get messages (optional)
1437: FND_MSG_PUB.count_and_get(

Line 1438: p_encoded => FND_API.G_FALSE,

1434: COMMIT;
1435: END IF;
1436: -- Count and Get messages (optional)
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.G_FALSE,
1439: p_count => x_msg_count,
1440: p_data => x_msg_data);
1441:
1442: EXCEPTION

Line 1443: WHEN FND_API.G_EXC_ERROR THEN

1439: p_count => x_msg_count,
1440: p_data => x_msg_data);
1441:
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_ERROR THEN
1444: ROLLBACK TO delete_uc_header;
1445: x_return_status := FND_API.G_RET_STS_ERROR ;
1446: FND_MSG_PUB.count_and_get(
1447: p_encoded => FND_API.G_FALSE,

Line 1445: x_return_status := FND_API.G_RET_STS_ERROR ;

1441:
1442: EXCEPTION
1443: WHEN FND_API.G_EXC_ERROR THEN
1444: ROLLBACK TO delete_uc_header;
1445: x_return_status := FND_API.G_RET_STS_ERROR ;
1446: FND_MSG_PUB.count_and_get(
1447: p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => x_msg_data);

Line 1447: p_encoded => FND_API.G_FALSE,

1443: WHEN FND_API.G_EXC_ERROR THEN
1444: ROLLBACK TO delete_uc_header;
1445: x_return_status := FND_API.G_RET_STS_ERROR ;
1446: FND_MSG_PUB.count_and_get(
1447: p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => x_msg_data);
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO delete_uc_header;

Line 1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1446: FND_MSG_PUB.count_and_get(
1447: p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => x_msg_data);
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO delete_uc_header;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1453: FND_MSG_PUB.count_and_get(
1454: p_encoded => FND_API.G_FALSE,

Line 1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1448: p_count => x_msg_count,
1449: p_data => x_msg_data);
1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO delete_uc_header;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1453: FND_MSG_PUB.count_and_get(
1454: p_encoded => FND_API.G_FALSE,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data);

Line 1454: p_encoded => FND_API.G_FALSE,

1450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: ROLLBACK TO delete_uc_header;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1453: FND_MSG_PUB.count_and_get(
1454: p_encoded => FND_API.G_FALSE,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data);
1457: WHEN OTHERS THEN
1458: ROLLBACK TO delete_uc_header;

Line 1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1455: p_count => x_msg_count,
1456: p_data => x_msg_data);
1457: WHEN OTHERS THEN
1458: ROLLBACK TO delete_uc_header;
1459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1461: THEN
1462: FND_MSG_PUB.add_exc_msg(
1463: p_pkg_name => G_PKG_NAME,

Line 1468: p_encoded => FND_API.G_FALSE,

1464: p_procedure_name => l_api_name,
1465: p_error_text => SUBSTRB(SQLERRM,1,240));
1466: END IF;
1467: FND_MSG_PUB.count_and_get(
1468: p_encoded => FND_API.G_FALSE,
1469: p_count => x_msg_count,
1470: p_data => x_msg_data);
1471: END delete_uc_header;
1472: