[Home] [Help]
42:
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PVT.Create_cas ******** ');
47: END IF;
48: -- Standard Start of API savepoint
49: SAVEPOINT CREATE_CAS_PVT;
50:
57: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59: -- IF PG_DEBUG < 10 THEN
60: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
61: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After Compatibility Check');
62: END IF;
63:
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list )
87: RAISE FND_API.G_EXC_ERROR;
88: END IF;
89: -- IF PG_DEBUG < 10 THEN
90: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
91: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After Global user Check');
92: END IF;
93:
94: -- Get org_id if not present
95: IF (p_cas_rec.org_id IS NULL) OR (p_cas_rec.ORG_ID = FND_API.G_MISS_NUM) THEN
101: v_org_id :=p_cas_rec.org_id;
102: END IF;
103: -- IF PG_DEBUG < 10 THEN
104: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
105: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After ORG ID Check and Org_id is => '||v_org_id);
106: END IF;
107:
108: -- Set Status_code to 'CURRENT'
109: v_status_code :='CURRENT';
117: FETCH C2 INTO v_CAS_ID;
118: CLOSE C2;
119: -- IF PG_DEBUG < 10 THEN
120: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
121: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After CAS ID Check and cas_id is => '||v_cas_id);
122: END IF;
123:
124: --Case number
125: If (p_cas_rec.CASE_NUMBER IS NULL) OR (p_cas_rec.CASE_NUMBER = FND_API.G_MISS_CHAR) then
128: v_case_number := p_cas_rec.CASE_NUMBER;
129: end if;
130: -- IF PG_DEBUG < 10 THEN
131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
132: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After CAS Number Check and cas_number is => '||v_case_number);
133: END IF;
134:
135: --Active_flag
136: v_active_flag:='Y';
135: --Active_flag
136: v_active_flag:='Y';
137: -- IF PG_DEBUG < 10 THEN
138: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
139: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After active flag Check' );
140: END IF;
141:
142: --Case established Date
143: If (p_cas_rec.CASE_ESTABLISHED_DATE IS NULL) OR (p_cas_rec.CASE_ESTABLISHED_DATE = FND_API.G_MISS_DATE) then
146: v_CASE_ESTABLISHED_DATE := p_cas_rec.CASE_ESTABLISHED_DATE;
147: end if;
148: -- IF PG_DEBUG < 10 THEN
149: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
150: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After Case ESTABLISHED Date Check and case_ESTABLISHED is => '||v_case_ESTABLISHED_DATE);
151: END IF;
152: -- Added on 11/21/01
153: --Party Id check
154: IF (p_cas_rec.party_id IS NULL) OR (p_cas_rec.party_id =FND_API.G_MISS_NUM) THEN
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161: -- IF PG_DEBUG < 10 THEN
162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163: IEX_DEBUG_PUB.LogMessage ('Create_cas: ' || 'After Party id check');
164: END IF;
165:
166: -- IF PG_DEBUG < 10 THEN
167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
164: END IF;
165:
166: -- IF PG_DEBUG < 10 THEN
167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
168: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'Before Calling iex_cases_pkg.insert_row');
169: END IF;
170: -- Invoke table handler(IEX_CASES_ALL_B_PKG.Insert_Row)
171: IEX_CASES_PKG.Insert_Row(
172: x_rowid =>v_rowid,
216: -- Hint: Primary key should be returned.
217: x_CASE_ID := v_CAS_ID;
218: -- IF PG_DEBUG < 10 THEN
219: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
220: IEX_DEBUG_PUB.LogMessage('Create_cas: ' || 'After Calling iex_cases_pkg.insert_row and case id => '||x_case_id);
221: END IF;
222:
223:
224:
247: );
248:
249: -- IF PG_DEBUG < 10 THEN
250: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
251: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PVT.Create_cas ******** ');
252: END IF;
253: EXCEPTION
254: WHEN FND_API.G_EXC_ERROR THEN
255: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
305:
306: BEGIN
307: -- IF PG_DEBUG < 10 THEN
308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
309: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PVT.update_cas ******** ');
310: END IF;
311: -- Standard Start of API savepoint
312: SAVEPOINT UPDATE_CAS_PVT;
313:
336: --
337:
338: -- IF PG_DEBUG < 10 THEN
339: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
340: IEX_DEBUG_PUB.LogMessage('Update_cas: ' || 'Before Calling iex_cases_pkg.lock_row');
341: END IF;
342: -- Invoke table handler(IEX_CASES_ALL_B_PKG.Update_Row)
343: -- call locking table handler
344: IEX_CASES_PKG.lock_row (
346: l_object_version_number
347: );
348: -- IF PG_DEBUG < 10 THEN
349: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
350: IEX_DEBUG_PUB.LogMessage('Update_cas: ' || 'Before Calling iex_cases_pkg.update_row');
351: END IF;
352: IEX_CASES_PKG.Update_Row(
353: x_CAS_ID => p_cas_rec.CAS_ID,
354: x_CASE_NUMBER => p_cas_rec.CASE_NUMBER,
417: p_data => x_msg_data
418: );
419: -- IF PG_DEBUG < 10 THEN
420: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
421: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PVT.Update_cas ******** ');
422: END IF;
423: EXCEPTION
424: WHEN FND_API.G_EXC_ERROR THEN
425: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(