[Home] [Help]
89: x_cas_rec OUT NOCOPY iex_cases_pvt.cas_Rec_Type) IS
90: Begin
91: -- IF PG_DEBUG < 10 THEN
92: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
93: iex_debug_pub.LogMessage('Convert_case_Record: ' || '*********Start of Convert Case record *********');
94: END IF;
95: x_cas_rec.CAS_ID := p_cas_rec.CAS_ID;
96: x_cas_rec.CASE_NUMBER := p_cas_rec.CASE_NUMBER;
97: x_cas_rec.ACTIVE_FLAG := p_cas_rec.ACTIVE_FLAG ;
133: x_cas_rec.PREDICTED_RECOVERY_AMOUNT := p_cas_rec.PREDICTED_RECOVERY_AMOUNT;
134: x_cas_rec.PREDICTED_CHANCE := p_cas_rec.PREDICTED_CHANCE;
135: -- IF PG_DEBUG < 10 THEN
136: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
137: iex_debug_pub.LogMessage('Convert_case_Record: ' || '*********End of Convert Case record *********');
138: END IF;
139:
140: end Convert_case_Record;
141:
146: x_case_object_rec OUT NOCOPY iex_case_objects_pvt.case_object_Rec_Type)IS
147: Begin
148: -- IF PG_DEBUG < 10 THEN
149: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
150: iex_debug_pub.LogMessage('Convert_case_object_Record: ' || '*********End of Convert case object Record record *********');
151: END IF;
152: x_case_object_rec.ACTIVE_FLAG := p_attribute_rec.ACTIVE_FLAG ;
153: x_case_object_rec.REQUEST_ID := p_attribute_rec.REQUEST_ID;
154: x_case_object_rec.PROGRAM_APPLICATION_ID := p_attribute_rec.PROGRAM_APPLICATION_ID;
177: x_case_object_rec.LAST_UPDATE_LOGIN := p_attribute_rec.LAST_UPDATE_LOGIN;
178:
179: -- IF PG_DEBUG < 10 THEN
180: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
181: iex_debug_pub.LogMessage('Convert_case_object_Record: ' || '*********Start of Convert case object Record record *********');
182: END IF;
183: end Convert_case_object_Record;
184:
185: /**Name Converts Case def record type from public to PVT **/
188: x_case_def_rec OUT NOCOPY iex_case_definitions_pvt.CASE_DEFINITION_Rec_Type) IS
189: Begin
190: -- IF PG_DEBUG < 10 THEN
191: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
192: iex_debug_pub.LogMessage('Convert_case_def_Record: ' || '*********End of Convert case def Record record *********');
193: END IF;
194: x_case_def_rec.ACTIVE_FLAG := p_attribute_rec.ACTIVE_FLAG ;
195: x_case_def_rec.REQUEST_ID := p_attribute_rec.REQUEST_ID;
196: x_case_def_rec.PROGRAM_APPLICATION_ID := p_attribute_rec.PROGRAM_APPLICATION_ID;
219: x_case_def_rec.LAST_UPDATE_LOGIN := p_attribute_rec.LAST_UPDATE_LOGIN;
220:
221: -- IF PG_DEBUG < 10 THEN
222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
223: iex_debug_pub.LogMessage('Convert_case_def_Record: ' || '*********Start of Convert case def Record record *********');
224: END IF;
225: end Convert_case_def_Record;
226:
227:
241: tbl_ctr NUMBER ;
242: BEGIN
243: -- IF PG_DEBUG < 10 THEN
244: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
245: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>PopulateCaseDefTbl ********* ');
246: END IF;
247: tbl_ctr := 1;
248: FOR get_case_def_rec IN get_case_def LOOP
249: x_case_definition_tbl(tbl_ctr).column_name :=get_case_def_rec.column_name ;
252: tbl_ctr := tbl_ctr +1;
253: END LOOP;
254: -- IF PG_DEBUG < 10 THEN
255: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
256: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>PopulateCaseDefTbl ********* ');
257: END IF;
258: END PopulateCaseDefTbl;
259:
260: /** Populate Case Record **/
273:
274: BEGIN
275: -- IF PG_DEBUG < 10 THEN
276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
277: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>PopCaseRec ********* ');
278: END IF;
279: FOR get_cas_rec in Case_rec_cur(p_cas_id) LOOP
280:
281: x_cas_rec.ORIG_CAS_ID := p_cas_id ;
316: END LOOP;
317: --get comments
318: -- IF PG_DEBUG < 10 THEN
319: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
320: IEX_DEBUG_PUB.LogMessage ('PopCaseRec: ' || 'Get comments for the case');
321: END IF;
322: For Case_comments_rec in Case_comments_cur (p_cas_id)
323: LOOP
324: x_cas_rec.COMMENTS :=Case_comments_rec.COMMENTS;
325: END LOOP;
326:
327: -- IF PG_DEBUG < 10 THEN
328: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
329: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>PopCaseRec *********');
330: END IF;
331: END PopCaseRec;
332:
333: /** Populate Case Definition Record **/
340: iex_case_definitions_pvt.case_definition_rec_type) IS
341: BEGIN
342: -- IF PG_DEBUG < 10 THEN
343: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
344: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>PopulateCaseDefRec*********');
345: END IF;
346: --to populate attributes 1-15 and concurrent programs
347: convert_case_def_record(p_attribute_rec,
348: x_case_def_rec);
351: x_case_def_rec.column_value := p_column_value;
352: x_case_def_rec.cas_id := p_cas_id;
353: -- IF PG_DEBUG < 10 THEN
354: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
355: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>PopulateCaseDefRec*********');
356: END IF;
357: END PopulateCaseDefRec;
358:
359: /** Populate Case Record **/
365: x_cas_rec OUT NOCOPY iex_cases_pvt.cas_rec_type) IS
366: BEGIN
367: -- IF PG_DEBUG < 10 THEN
368: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
369: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>PopulateCaseRec ********* ');
370: END IF;
371: --to populate attributes 1-15 and concurrent programs
372: convert_case_record(p_attribute_rec,x_cas_rec);
373: x_cas_rec.CASE_NUMBER :=p_case_number;
376: x_cas_rec.case_established_date :=p_case_established_date;
377:
378: -- IF PG_DEBUG < 10 THEN
379: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
380: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>PopulateCaseRec *********');
381: END IF;
382: END PopulateCaseRec;
383:
384: /** Populate Case Objects Record **/
391:
392: BEGIN
393: -- IF PG_DEBUG < 10 THEN
394: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
395: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>PopulateCaseObjectRec*********');
396: END IF;
397: --to populate attributes 1-15 and concurrent programs
398: convert_case_object_record(p_attribute_rec,x_case_object_rec);
399:
401: x_case_object_rec.object_id :=p_object_id;
402: x_case_object_rec.cas_id :=p_cas_id ;
403: -- IF PG_DEBUG < 10 THEN
404: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
405: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>PopulateCaseObjectRec *********');
406: END IF;
407:
408: END PopulateCaseObjectRec;
409:
553: from dual;
554:
555: -- IF PG_DEBUG < 10 THEN
556: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
557: iex_debug_pub.logmessage ('send_notification: ' || 'item Key in send notification of iex_cas_utl_pub '
558: || itemkey );
559: END IF;
560:
561: wf_engine.createprocess(itemtype => 'IEXCASNF',
597: x_return_status := 'F';
598: end if;
599: -- IF PG_DEBUG < 10 THEN
600: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
601: iex_debug_PUB.logmessage ('send_notification: ' || 'send notification status ' || x_return_status);
602: END IF;
603: EXCEPTION
604: WHEN OTHERS THEN
605: x_return_status := 'F';
626:
627: BEGIN
628: -- IF PG_DEBUG < 10 THEN
629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
630: IEX_DEBUG_PUB.LogMessage ('********* Start of Function =>CheckCaseDef ******** ');
631: END IF;
632: -- IF PG_DEBUG < 10 THEN
633: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
634: iex_debug_pub.logmessage ('CheckCaseDef: ' || 'table count'|| P_case_definition_tbl.COUNT );
630: IEX_DEBUG_PUB.LogMessage ('********* Start of Function =>CheckCaseDef ******** ');
631: END IF;
632: -- IF PG_DEBUG < 10 THEN
633: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
634: iex_debug_pub.logmessage ('CheckCaseDef: ' || 'table count'|| P_case_definition_tbl.COUNT );
635: END IF;
636:
637:
638:
644: (P_case_definition_tbl(i).column_value IS NOT NULL)) THEN
645:
646: -- IF PG_DEBUG < 10 THEN
647: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
648: iex_debug_pub.logmessage ('CheckCaseDef: ' || 'inside loop' ||P_case_definition_tbl(i).column_name||
649: P_case_definition_tbl(i).column_value);
650: END IF;
651:
652: If P_case_definition_tbl(i).table_name IS NOT NULL THEN
664: x_sql := x_sql || P_case_definition_tbl(i).column_value;
665: END IF;
666: -- IF PG_DEBUG < 10 THEN
667: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
668: IEX_DEBUG_PUB.LogMessage ('CheckCaseDef: ' || 'SQL =>'|| x_sql);
669: END IF;
670: BEGIN
671: EXECUTE IMMEDIATE x_sql INTO x_count;
672: If x_count =0 THEN
671: EXECUTE IMMEDIATE x_sql INTO x_count;
672: If x_count =0 THEN
673: -- IF PG_DEBUG < 10 THEN
674: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
675: IEX_DEBUG_PUB.LogMessage ('CheckCaseDef: ' || 'Invalid Case defintion');
676: END IF;
677: return FALSE;
678: End if;
679: EXCEPTION WHEN OTHERS THEN
678: End if;
679: EXCEPTION WHEN OTHERS THEN
680: -- IF PG_DEBUG < 10 THEN
681: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
682: IEX_DEBUG_PUB.LogMessage ('CheckCaseDef: ' || 'In Exception When Others =>'||SQLERRM);
683: END IF;
684: return FALSE;
685: END ;
686: END IF; --if table name is not null
686: END IF; --if table name is not null
687: ELSE -- else if column name or column value is null
688: -- IF PG_DEBUG < 10 THEN
689: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
690: IEX_DEBUG_PUB.LogMessage ('CheckCaseDef: ' || 'Column Name or column value is Null');
691: END IF;
692: return FALSE;
693: END IF; --if column name or column value is null
694: END LOOP;
694: END LOOP;
695: Return TRUE;
696: -- IF PG_DEBUG < 10 THEN
697: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
698: IEX_DEBUG_PUB.LogMessage ('*************End of iex =>CheckCaseDef ******** ');
699: END IF;
700: END CheckCaseDef;
701:
702: /* Name GetCaseID
759:
760: BEGIN
761: -- IF PG_DEBUG < 10 THEN
762: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
763: IEX_DEBUG_PUB.LogMessage ('*********Start of Procedure =>GetCaseID ********* ');
764: END IF;
765:
766: -- clchang updated for sql bind var 05/07/2003
767: l_first_sql := vstr1 || vstr2 ||
772: l_table_clause := vstr7 || vstr4 || l_table_name || vstr4;
773:
774: -- IF PG_DEBUG < 10 THEN
775: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
776: IEX_DEBUG_PUB.LogMessage ('l_first_sql='|| l_first_sql);
777: IEX_DEBUG_PUB.LogMessage ('l_table_clause='|| l_table_clause);
778: END IF;
779: -- end
780:
773:
774: -- IF PG_DEBUG < 10 THEN
775: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
776: IEX_DEBUG_PUB.LogMessage ('l_first_sql='|| l_first_sql);
777: IEX_DEBUG_PUB.LogMessage ('l_table_clause='|| l_table_clause);
778: END IF;
779: -- end
780:
781: x_cas_id := NULL;
788: l_sql :=l_sql ||l_no_table_clause;
789: end if;
790: -- IF PG_DEBUG < 10 THEN
791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
792: iex_debug_pub.logMessage('GetCaseID: ' || 'First Sql Stmt =>'||l_sql);
793: END IF;
794:
795: FOR i IN 2..P_case_definition_tbl.COUNT LOOP
796:
816: */
817:
818: -- IF PG_DEBUG < 10 THEN
819: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
820: IEX_DEBUG_PUB.LogMessage ('l_sql='|| l_sql);
821: END IF;
822: -- end updated
823:
824: /* check if table name passed is null */
831: l_table_name || ''''||l_end;
832: */
833: -- IF PG_DEBUG < 10 THEN
834: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
835: IEX_DEBUG_PUB.LogMessage ('l_sql='|| l_sql);
836: END IF;
837: -- end updated
838: else
839: l_sql :=l_sql ||l_no_table_clause||l_end;
839: l_sql :=l_sql ||l_no_table_clause||l_end;
840: end if;
841: -- IF PG_DEBUG < 10 THEN
842: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
843: iex_debug_pub.logMessage('GetCaseID: ' || ' ');
844: END IF;
845: -- IF PG_DEBUG < 10 THEN
846: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
847: iex_debug_pub.logMessage('GetCaseID: ' || 'Sql Stmt =>'||l_sql);
843: iex_debug_pub.logMessage('GetCaseID: ' || ' ');
844: END IF;
845: -- IF PG_DEBUG < 10 THEN
846: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
847: iex_debug_pub.logMessage('GetCaseID: ' || 'Sql Stmt =>'||l_sql);
848: END IF;
849: END LOOP;
850: l_sql := l_sql ||l_case_sql;
851:
851:
852: l_sql := l_sql ||l_multiple_rows ;
853: -- IF PG_DEBUG < 10 THEN
854: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
855: iex_debug_pub.logMessage('GetCaseID: ' || ' ');
856: END IF;
857: -- IF PG_DEBUG < 10 THEN
858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
859: iex_debug_pub.logMessage('GetCaseID: ' || 'Final Sql Stmt =>'||l_sql);
855: iex_debug_pub.logMessage('GetCaseID: ' || ' ');
856: END IF;
857: -- IF PG_DEBUG < 10 THEN
858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
859: iex_debug_pub.logMessage('GetCaseID: ' || 'Final Sql Stmt =>'||l_sql);
860: END IF;
861: BEGIN
862: EXECUTE IMMEDIATE l_sql INTO x_cas_id;
863: EXCEPTION
863: EXCEPTION
864: WHEN OTHERS THEN
865: -- IF PG_DEBUG < 10 THEN
866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
867: IEX_DEBUG_PUB.LogMessage ('GetCaseID: ' || '*********IN WHEN OTHERS => '||SQLERRM ||' ********* ');
868: END IF;
869: x_cas_id := NULL;
870: END;
871: -- IF PG_DEBUG < 10 THEN
869: x_cas_id := NULL;
870: END;
871: -- IF PG_DEBUG < 10 THEN
872: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
873: IEX_DEBUG_PUB.LogMessage ('*********End of Procedure =>GetCaseID ********* ');
874: END IF;
875: END GetCaseID;
876:
877:
935:
936: BEGIN
937: -- IF PG_DEBUG < 10 THEN
938: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
939: iex_debug_pub.logMessage('CloseCase: ' || '---------------------------------');
940: END IF;
941: -- IF PG_DEBUG < 10 THEN
942: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
943: IEX_DEBUG_PUB.LogMessage ('CloseCase: ' || '*********Start of Procedure => '||l_api_name||' *********');
939: iex_debug_pub.logMessage('CloseCase: ' || '---------------------------------');
940: END IF;
941: -- IF PG_DEBUG < 10 THEN
942: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
943: IEX_DEBUG_PUB.LogMessage ('CloseCase: ' || '*********Start of Procedure => '||l_api_name||' *********');
944: END IF;
945: -- Standard Start of API savepoint
946: SAVEPOINT CLOSECASE_PUB;
947:
962: END IF;
963:
964: -- IF PG_DEBUG < 10 THEN
965: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
966: iex_debug_pub.logMessage('CloseCase: ' || 'After Api compatability Check');
967: END IF;
968:
969: -- Initialize API return status to SUCCESS
970: x_return_status := FND_API.G_RET_STS_SUCCESS;
985: RAISE FND_API.G_EXC_ERROR;
986: END IF;
987: -- IF PG_DEBUG < 10 THEN
988: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
989: iex_debug_pub.logMessage('CloseCase: ' || 'After FND_GLOBAL_USER Check');
990: END IF;
991:
992: -- Item level validation
993: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
1023:
1024: END IF; --end of item level validation
1025: -- IF PG_DEBUG < 10 THEN
1026: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1027: iex_debug_pub.logMessage('CloseCase: ' || 'After Item validation ');
1028: END IF;
1029: -- Call update Case PVT to update the case_state to 'CLOSE';
1030: l_cas_rec.cas_id :=l_cas_id;
1031: l_cas_rec.object_version_number :=l_object_version_number;
1033: l_cas_rec.case_closing_date :=p_close_date;
1034:
1035: -- IF PG_DEBUG < 10 THEN
1036: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1037: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling Update PVT');
1038: END IF;
1039: iex_cases_pvt.update_cas
1040: (P_Api_Version_Number =>l_api_version_number,
1041: P_Init_Msg_List =>FND_API.G_FALSE,
1047: X_Msg_Data =>l_msg_data,
1048: xo_object_version_number =>l_object_version_number);
1049: -- IF PG_DEBUG < 10 THEN
1050: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1051: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling update case PVT and Status =>'||l_return_status);
1052: END IF;
1053:
1054: IF l_return_status = FND_API.G_RET_STS_ERROR then
1055: AddFailMsg( p_object => 'CASE',
1064: --Update case object with the new case ID.
1065: IF p_copy_objects =g_yes THEN
1066: -- IF PG_DEBUG < 10 THEN
1067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1068: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling Create Case PVT');
1069: END IF;
1070: PopCaseRec(p_cas_id =>l_cas_id,
1071: x_cas_rec =>l_cas_rec);
1072:
1104: l_cas_rec.owner_resource_id := l_resource_id;
1105: end if;
1106:
1107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1108: iex_debug_pub.logMessage('Get_assign_resource(C) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
1109: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
1110: END IF;
1111:
1112: exception
1105: end if;
1106:
1107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1108: iex_debug_pub.logMessage('Get_assign_resource(C) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
1109: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
1110: END IF;
1111:
1112: exception
1113: when others then
1126: X_Msg_Count =>l_msg_count,
1127: X_Msg_Data =>l_msg_data);
1128: -- IF PG_DEBUG < 10 THEN
1129: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1130: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
1131: END IF;
1132: IF l_return_status = FND_API.G_RET_STS_ERROR then
1133: AddFailMsg( p_object => 'CASE',
1134: p_operation => 'INSERT' );
1152: p_attribute_rec =>p_cas_rec,
1153: x_case_def_rec =>l_case_definition_Rec);
1154: -- IF PG_DEBUG < 10 THEN
1155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1156: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling Create Case Definition PVT');
1157: END IF;
1158: iex_case_definitions_pvt.create_case_definitions(
1159: P_Api_Version_Number =>l_api_version_number,
1160: P_Init_Msg_List =>FND_API.G_FALSE,
1166: X_Msg_Count =>l_msg_count,
1167: X_Msg_Data =>l_msg_data);
1168: -- IF PG_DEBUG < 10 THEN
1169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1170: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
1171: END IF;
1172: IF l_return_status = FND_API.G_RET_STS_ERROR then
1173: AddFailMsg( p_object => 'CASE DEFINITION',
1174: p_operation => 'INSERT' );
1178: END IF;
1179: END LOOP;
1180: -- IF PG_DEBUG < 10 THEN
1181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1182: iex_debug_pub.logMessage('CloseCase: ' || 'End of Case Definition' );
1183: END IF;
1184: --Populate Case object record for one CASE
1185: For cas_obj_rec in get_case_objects_obj_ver_num(l_cas_id) LOOP
1186: -- IF PG_DEBUG < 10 THEN
1184: --Populate Case object record for one CASE
1185: For cas_obj_rec in get_case_objects_obj_ver_num(l_cas_id) LOOP
1186: -- IF PG_DEBUG < 10 THEN
1187: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1188: IEX_DEBUG_PUB.LogMessage ('CloseCase: ' || ' the case object ID updated is =>'
1189: ||cas_obj_rec.case_object_id ||' and new cas ID is '||
1190: l_cas_new_id||' and old case id is => '||l_cas_id );
1191: END IF;
1192:
1197:
1198: --Call update_case_object_pvt to update Case object_id
1199: -- IF PG_DEBUG < 10 THEN
1200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1201: iex_debug_pub.logMessage('CloseCase: ' || 'Before Calling update Case Object PVT');
1202: END IF;
1203: iex_case_objects_pvt.update_case_objects(
1204: P_Api_Version_Number =>l_api_version_number,
1205: P_Init_Msg_List =>FND_API.G_FALSE,
1211: X_Msg_Data =>l_msg_data,
1212: xo_object_version_number =>l_object_version_number);
1213: -- IF PG_DEBUG < 10 THEN
1214: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1215: iex_debug_pub.logMessage('CloseCase: ' || 'After Calling update Case Object PVT and Status =>'||l_return_status);
1216: END IF;
1217: -- Check return status from the above procedure call
1218: IF l_return_status = FND_API.G_RET_STS_ERROR then
1219: AddFailMsg( p_object => 'CASE OBJECTS',
1237: END IF;
1238:
1239: -- IF PG_DEBUG < 10 THEN
1240: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1241: IEX_DEBUG_PUB.LogMessage ('CloseCase: ' || '*********End of Procedure => '||l_api_name||' *********');
1242: END IF;
1243: -- Debug Message
1244: -- Standard call to get message count and if count is 1, get message info.
1245: FND_MSG_PUB.Count_And_Get
1352:
1353: BEGIN
1354: -- IF PG_DEBUG < 10 THEN
1355: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1356: IEX_DEBUG_PUB.LogMessage ('CreateCaseObjects: ' || '*********Start of Procedure => '||l_api_name||' *********');
1357: END IF;
1358: -- Standard Start of API savepoint
1359: SAVEPOINT CREATECASEOBJECTS_PUB;
1360:
1375: END IF;
1376:
1377: -- IF PG_DEBUG < 10 THEN
1378: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1379: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Api compatability Check');
1380: END IF;
1381:
1382: -- Initialize API return status to SUCCESS
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1399: END IF;
1400:
1401: -- IF PG_DEBUG < 10 THEN
1402: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1403: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After FND_GLOBAL_USER Check');
1404: END IF;
1405:
1406: -- Item level validation
1407: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
1415: l_org_id := mo_global.get_current_org_id;
1416: END IF;
1417: -- IF PG_DEBUG < 10 THEN
1418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1419: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'After ORG ID Check and Org_id is => '||l_org_id);
1420: END IF;
1421:
1422: --Default Case_established_date to sysdate if null
1423: IF (p_Case_established_date IS NULL)OR
1425: l_Case_established_date := sysdate;
1426: END IF;
1427: -- IF PG_DEBUG < 10 THEN
1428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1429: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'After Case ESTABLISHED Date Check and case_established is => '||l_case_ESTABLISHED_DATE);
1430: END IF;
1431:
1432: -- Get object_code if not present
1433: IF (p_object_code IS NULL) OR
1435: l_object_code := 'CONTRACTS';
1436: END IF;
1437: -- IF PG_DEBUG < 10 THEN
1438: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1439: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'After Object Code Check and object is => '||l_object_code);
1440: END IF;
1441:
1442: -- Check for required parameter object_id
1443: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
1442: -- Check for required parameter object_id
1443: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
1444: -- IF PG_DEBUG < 10 THEN
1445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1446: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter p_object_id is invalid');
1447: END IF;
1448: AddMissingArgMsg(
1449: p_api_name => l_api_name_full,
1450: p_param_name => 'p_object_id' );
1454: -- Check for required parameter party_id
1455: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
1456: -- IF PG_DEBUG < 10 THEN
1457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1458: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter p_party_id is invalid');
1459: END IF;
1460: AddMissingArgMsg(
1461: p_api_name => l_api_name_full,
1462: p_param_name => 'p_party_id' );
1474:
1475: ELSIF ( P_case_definition_tbl.COUNT = 0 ) THEN
1476: -- IF PG_DEBUG < 10 THEN
1477: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1478: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter P_case_definition_tbl is EMPTY');
1479: END IF;
1480: AddMissingArgMsg(
1481: p_api_name => l_api_name_full,
1482: p_param_name => 'p_cas_id' );
1485: EXCEPTION
1486: WHEN NO_DATA_FOUND THEN
1487: -- IF PG_DEBUG < 10 THEN
1488: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1489: IEX_DEBUG_PUB.LogMessage('CreateCaseObjects: ' || 'Required Parameter p_cas_id is invalid');
1490: END IF;
1491: AddInvalidArgMsg(
1492: p_api_name => l_api_name_full,
1493: p_param_value => p_cas_id,
1500:
1501: --END IF; --end of item level validation
1502: -- IF PG_DEBUG < 10 THEN
1503: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1504: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Item validation ');
1505: END IF;
1506:
1507: --- Check Case Definition
1508: -- If case Id exists, call case_object_pvt with the given case_id
1513:
1514: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
1515: -- IF PG_DEBUG < 10 THEN
1516: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1517: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'case Id is passed '||l_cas_id);
1518: END IF;
1519: --Populate Case object record
1520: PopulateCaseObjectRec(p_object_code =>l_object_code,
1521: p_object_id =>p_object_id,
1524: x_case_object_rec =>l_case_object_Rec);
1525: --Call create_case_object_pvt to create Case object_id
1526: -- IF PG_DEBUG < 10 THEN
1527: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1528: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1529: END IF;
1530: iex_case_objects_pvt.Create_case_objects(
1531: P_Api_Version_Number =>l_api_version_number,
1532: P_Init_Msg_List =>FND_API.G_FALSE,
1539: X_Msg_Data =>l_msg_data);
1540:
1541: -- IF PG_DEBUG < 10 THEN
1542: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1543: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Status of Create Case object PVT => '||l_return_status);
1544: END IF;
1545: -- Check return status from the above procedure call
1546: IF l_return_status = FND_API.G_RET_STS_ERROR then
1547: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
1552: else
1553: x_case_object_id :=l_case_object_id;
1554: -- IF PG_DEBUG < 10 THEN
1555: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1556: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
1557: END IF;
1558: END IF;
1559:
1560: ELSE -- Check if case definition is valid and
1560: ELSE -- Check if case definition is valid and
1561: --get case id for the given case definition
1562: -- IF PG_DEBUG < 10 THEN
1563: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1564: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'case Id is not passed ');
1565: END IF;
1566: -- IF PG_DEBUG < 10 THEN
1567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1568: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1564: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'case Id is not passed ');
1565: END IF;
1566: -- IF PG_DEBUG < 10 THEN
1567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1568: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1569: END IF;
1570: If CheckCaseDef(P_case_definition_tbl) THEN
1571: -- IF PG_DEBUG < 10 THEN
1572: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1569: END IF;
1570: If CheckCaseDef(P_case_definition_tbl) THEN
1571: -- IF PG_DEBUG < 10 THEN
1572: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1573: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'case Defintion is Valid ');
1574: END IF;
1575: --Get case Id for the given Case definition
1576: -- IF PG_DEBUG < 10 THEN
1577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1574: END IF;
1575: --Get case Id for the given Case definition
1576: -- IF PG_DEBUG < 10 THEN
1577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1578: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1579: END IF;
1580: GetCaseId(
1581: P_case_definition_tbl=>P_case_definition_tbl,
1582: x_cas_id =>l_cas_id);
1582: x_cas_id =>l_cas_id);
1583: --Case definition is valid and if a matching case is found
1584: -- IF PG_DEBUG < 10 THEN
1585: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1586: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1587: END IF;
1588: if l_cas_id is NOT NULL THEN
1589: -- IF PG_DEBUG < 10 THEN
1590: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1587: END IF;
1588: if l_cas_id is NOT NULL THEN
1589: -- IF PG_DEBUG < 10 THEN
1590: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1591: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Matching case is found and CAS ID is => '||l_Cas_id);
1592: END IF;
1593: --Populate Case object record
1594: PopulateCaseObjectRec(p_object_code =>l_object_code,
1595: p_object_id =>p_object_id,
1598: x_case_object_rec =>l_case_object_Rec);
1599: --Call create_case_object_pvt to create Case object_id
1600: -- IF PG_DEBUG < 10 THEN
1601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1602: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Object PVT');
1603: END IF;
1604: -- IF PG_DEBUG < 10 THEN
1605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1606: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1602: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Object PVT');
1603: END IF;
1604: -- IF PG_DEBUG < 10 THEN
1605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1606: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1607: END IF;
1608: iex_case_objects_pvt.Create_case_objects(
1609: P_Api_Version_Number =>l_api_version_number,
1610: P_Init_Msg_List =>FND_API.G_FALSE,
1616: X_Msg_Count =>l_msg_count,
1617: X_Msg_Data =>l_msg_data);
1618: -- IF PG_DEBUG < 10 THEN
1619: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1620: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
1621: END IF;
1622: -- Check return status from the above procedure call
1623: IF l_return_status = FND_API.G_RET_STS_ERROR then
1624: AddFailMsg( p_object => 'CASE OBJECTS',
1629: else
1630: x_case_object_id :=l_case_object_id;
1631: -- IF PG_DEBUG < 10 THEN
1632: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1633: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
1634: END IF;
1635:
1636: END IF;
1637: Else
1639: -- Case , Create case defintion and then create case object
1640: -- Populate Case Record
1641: -- IF PG_DEBUG < 10 THEN
1642: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1643: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Case Definition is Valid , no case found');
1644: END IF;
1645: PopulateCaseRec(p_case_number =>p_case_number,
1646: p_comments =>p_case_comments,
1647: p_org_id =>l_org_id,
1691: l_cas_rec.owner_resource_id := l_resource_id;
1692: end if;
1693:
1694: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1695: iex_debug_pub.logMessage('Get_assign_resource(O) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
1696: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
1697: END IF;
1698:
1699: exception
1692: end if;
1693:
1694: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1695: iex_debug_pub.logMessage('Get_assign_resource(O) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
1696: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
1697: END IF;
1698:
1699: exception
1700: when others then
1704:
1705: --Call iex_cases_pvt to create a case
1706: -- IF PG_DEBUG < 10 THEN
1707: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1708: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case PVT');
1709: END IF;
1710:
1711: -- IF PG_DEBUG < 10 THEN
1712: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1709: END IF;
1710:
1711: -- IF PG_DEBUG < 10 THEN
1712: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1713: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1714: END IF;
1715:
1716: iex_cases_pvt.Create_CAS(
1717: P_Api_Version_Number =>l_api_version_number,
1724: X_Msg_Count =>l_msg_count,
1725: X_Msg_Data =>l_msg_data);
1726: -- IF PG_DEBUG < 10 THEN
1727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1728: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
1729: END IF;
1730: IF l_return_status = FND_API.G_RET_STS_ERROR then
1731: AddFailMsg( p_object => 'CASE',
1732: p_operation => 'INSERT' );
1744: p_attribute_rec =>p_cas_rec,
1745: x_case_def_rec =>l_case_definition_Rec);
1746: -- IF PG_DEBUG < 10 THEN
1747: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1748: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Definition PVT');
1749: END IF;
1750: -- IF PG_DEBUG < 10 THEN
1751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1752: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1748: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Definition PVT');
1749: END IF;
1750: -- IF PG_DEBUG < 10 THEN
1751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1752: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1753: END IF;
1754: iex_case_definitions_pvt.create_case_definitions(
1755: P_Api_Version_Number =>l_api_version_number,
1756: P_Init_Msg_List =>FND_API.G_FALSE,
1762: X_Msg_Count =>l_msg_count,
1763: X_Msg_Data =>l_msg_data);
1764: -- IF PG_DEBUG < 10 THEN
1765: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1766: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
1767: END IF;
1768: IF l_return_status = FND_API.G_RET_STS_ERROR then
1769: AddFailMsg( p_object => 'CASE DEFINITIONS',
1770: p_operation => 'INSERT' );
1781: x_case_object_rec =>l_case_object_Rec);
1782: --Call create_case_object_pvt to create Case object_id
1783: -- IF PG_DEBUG < 10 THEN
1784: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1785: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Object PVT');
1786: END IF;
1787: -- IF PG_DEBUG < 10 THEN
1788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1789: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1785: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Before Calling Create Case Object PVT');
1786: END IF;
1787: -- IF PG_DEBUG < 10 THEN
1788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1789: iex_debug_pub.logMessage('CreateCaseObjects: ' || '---------------------------------');
1790: END IF;
1791: iex_case_objects_pvt.Create_case_objects(
1792: P_Api_Version_Number =>l_api_version_number,
1793: P_Init_Msg_List =>FND_API.G_FALSE,
1799: X_Msg_Count =>l_msg_count,
1800: X_Msg_Data =>l_msg_data);
1801: -- IF PG_DEBUG < 10 THEN
1802: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1803: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
1804: END IF;
1805: -- Check return status from the above procedure call
1806: IF l_return_status = FND_API.G_RET_STS_ERROR then
1807: AddFailMsg( p_object => 'CASE OBJECTS',
1812: else
1813: x_case_object_id :=l_case_object_id;
1814: -- IF PG_DEBUG < 10 THEN
1815: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1816: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
1817: END IF;
1818: END IF;
1819:
1820: END IF; -- end of if G_match_Case_id is NOT NULL
1821: ELSE -- if case Definition is invalid then error out.
1822: --How to assign value of parameter,since it is table?
1823: -- IF PG_DEBUG < 10 THEN
1824: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1825: iex_debug_pub.logMessage('CreateCaseObjects: ' || 'Case Definition is invalid');
1826: END IF;
1827: AddInvalidArgMsg(
1828: p_api_name => l_api_name_full,
1829: p_param_value => 'P_case_definition_tbl',
1850: p_data => x_msg_data
1851: );
1852: -- IF PG_DEBUG < 10 THEN
1853: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1854: IEX_DEBUG_PUB.LogMessage ('CreateCaseObjects: ' || '*********End of Procedure => '||l_api_name||' *********');
1855: END IF;
1856: EXCEPTION
1857: WHEN FND_API.G_EXC_ERROR THEN
1858: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1975: BEGIN
1976:
1977: -- IF PG_DEBUG < 10 THEN
1978: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1979: IEX_DEBUG_PUB.LogMessage ('ReassignCaseObjects: ' || '*********Start of Procedure => '||l_api_name||' *********');
1980: END IF;
1981: -- Standard Start of API savepoint
1982: SAVEPOINT REASSIGNCASEOBJECTS_PUB;
1983:
1998: END IF;
1999:
2000: -- IF PG_DEBUG < 10 THEN
2001: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2002: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Api compatability Check');
2003: END IF;
2004:
2005: -- Initialize API return status to SUCCESS
2006: x_return_status := FND_API.G_RET_STS_SUCCESS;
2024: END IF;
2025:
2026: -- IF PG_DEBUG < 10 THEN
2027: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2028: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After FND_GLOBAL_USER Check');
2029: END IF;
2030:
2031: -- Item level validation
2032: --IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2041: l_org_id := mo_global.get_current_org_id;
2042: END IF;
2043: -- IF PG_DEBUG < 10 THEN
2044: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2045: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'After ORG ID Check and Org_id is => '||l_org_id);
2046: END IF;
2047:
2048: --Default Case_established_date to sysdate if null
2049: IF (p_Case_established_date IS NULL)OR
2051: l_Case_established_date := sysdate;
2052: END IF;
2053: -- IF PG_DEBUG < 10 THEN
2054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2055: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'After Case ESTABLISHED Date Check and case_established is => '||l_case_ESTABLISHED_DATE);
2056: END IF;
2057:
2058: -- Get object_code if not present
2059: IF (p_object_code IS NULL) OR
2061: l_object_code := 'CONTRACTS';
2062: END IF;
2063: -- IF PG_DEBUG < 10 THEN
2064: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2065: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'After Object Code Check and object is => '||l_object_code);
2066: END IF;
2067:
2068: -- Check for required parameter object_id
2069: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
2068: -- Check for required parameter object_id
2069: IF (p_object_id IS NULL) OR (p_object_id = FND_API.G_MISS_NUM) THEN
2070: -- IF PG_DEBUG < 10 THEN
2071: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2072: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter p_object_id is invalid');
2073: END IF;
2074: AddMissingArgMsg(
2075: p_api_name => l_api_name_full,
2076: p_param_name => 'p_object_id' );
2080: -- Check for required parameter party_id
2081: IF (p_party_id IS NULL) OR (p_party_id = FND_API.G_MISS_NUM) THEN
2082: -- IF PG_DEBUG < 10 THEN
2083: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2084: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter p_party_id is invalid');
2085: END IF;
2086: AddMissingArgMsg(
2087: p_api_name => l_api_name_full,
2088: p_param_name => 'p_party_id' );
2100:
2101: ELSIF ( P_case_definition_tbl.COUNT = 0 ) THEN
2102: -- IF PG_DEBUG < 10 THEN
2103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2104: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter P_case_definition_tbl is EMPTY');
2105: END IF;
2106: AddMissingArgMsg(
2107: p_api_name => l_api_name_full,
2108: p_param_name => 'p_cas_id' );
2111: EXCEPTION
2112: WHEN NO_DATA_FOUND THEN
2113: -- IF PG_DEBUG < 10 THEN
2114: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2115: IEX_DEBUG_PUB.LogMessage('ReassignCaseObjects: ' || 'Required Parameter p_cas_id is invalid');
2116: END IF;
2117: AddInvalidArgMsg(
2118: p_api_name => l_api_name_full,
2119: p_param_value => p_cas_id,
2132: and b.id =a.object_id;
2133:
2134: -- IF PG_DEBUG < 10 THEN
2135: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2136: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'old case Id ' || l_old_case_id);
2137: END IF;
2138: -- IF PG_DEBUG < 10 THEN
2139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2140: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'Contract Number ' || l_contract_number);
2136: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'old case Id ' || l_old_case_id);
2137: END IF;
2138: -- IF PG_DEBUG < 10 THEN
2139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2140: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'Contract Number ' || l_contract_number);
2141: END IF;
2142:
2143: EXCEPTION WHEN OTHERS THEN
2144: NULL;
2148: --if there is do not re assign, exit out.
2149: IF CheckAdvanceDelinquencies(l_old_case_id,x_del_id) THEN
2150: -- IF PG_DEBUG < 10 THEN
2151: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2152: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || l_old_case_id || ' has later stage of delinquencies');
2153: END IF;
2154: fnd_message.set_name('IEX', 'IEX_ADVANCE_DEL_EXISTS');
2155: fnd_message.set_token('DEL_ID', x_del_id);
2156: fnd_message.set_token('CASE_ID',l_old_case_id);
2181: raise FND_API.G_EXC_ERROR;
2182: ELSE
2183: -- IF PG_DEBUG < 10 THEN
2184: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2185: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'deletion of ' || p_object_id
2186: ||' successfull');
2187: END IF;
2188: END IF;
2189:
2191:
2192: --END IF; --end of item level validation
2193: -- IF PG_DEBUG < 10 THEN
2194: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2195: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Item validation ');
2196: END IF;
2197:
2198: --- Check Case Definition
2199: -- If case Id exists, call case_object_pvt with the given case_id
2204:
2205: IF (l_cas_id IS NOT NULL) AND (l_cas_id <> FND_API.G_MISS_NUM) THEN
2206: -- IF PG_DEBUG < 10 THEN
2207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2208: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'case Id is passed '||l_cas_id);
2209: END IF;
2210: --Populate Case object record
2211: PopulateCaseObjectRec(p_object_code =>l_object_code,
2212: p_object_id =>p_object_id,
2215: x_case_object_rec =>l_case_object_Rec);
2216: --Call create_case_object_pvt to create Case object_id
2217: -- IF PG_DEBUG < 10 THEN
2218: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2219: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2220: END IF;
2221: iex_case_objects_pvt.Create_case_objects(
2222: P_Api_Version_Number =>l_api_version_number,
2223: P_Init_Msg_List =>FND_API.G_FALSE,
2230: X_Msg_Data =>l_msg_data);
2231:
2232: -- IF PG_DEBUG < 10 THEN
2233: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2234: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Status of Create Case object PVT => '||l_return_status);
2235: END IF;
2236: -- Check return status from the above procedure call
2237: IF l_return_status = FND_API.G_RET_STS_ERROR then
2238: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CO');
2243: else
2244: x_case_object_id :=l_case_object_id;
2245: -- IF PG_DEBUG < 10 THEN
2246: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2247: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
2248: END IF;
2249: END IF;
2250:
2251: ELSE -- Check if case definition is valid and
2251: ELSE -- Check if case definition is valid and
2252: --get case id for the given case definition
2253: -- IF PG_DEBUG < 10 THEN
2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2255: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'case Id is not passed ');
2256: END IF;
2257: -- IF PG_DEBUG < 10 THEN
2258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2259: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2255: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'case Id is not passed ');
2256: END IF;
2257: -- IF PG_DEBUG < 10 THEN
2258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2259: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2260: END IF;
2261: If CheckCaseDef(P_case_definition_tbl) THEN
2262: -- IF PG_DEBUG < 10 THEN
2263: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2260: END IF;
2261: If CheckCaseDef(P_case_definition_tbl) THEN
2262: -- IF PG_DEBUG < 10 THEN
2263: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2264: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'case Defintion is Valid ');
2265: END IF;
2266: --Get case Id for the given Case definition
2267: -- IF PG_DEBUG < 10 THEN
2268: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2265: END IF;
2266: --Get case Id for the given Case definition
2267: -- IF PG_DEBUG < 10 THEN
2268: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2269: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2270: END IF;
2271: GetCaseId(
2272: P_case_definition_tbl=>P_case_definition_tbl,
2273: x_cas_id =>l_cas_id);
2273: x_cas_id =>l_cas_id);
2274: --Case definition is valid and if a matching case is found
2275: -- IF PG_DEBUG < 10 THEN
2276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2277: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2278: END IF;
2279: if l_cas_id is NOT NULL THEN
2280: -- IF PG_DEBUG < 10 THEN
2281: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2278: END IF;
2279: if l_cas_id is NOT NULL THEN
2280: -- IF PG_DEBUG < 10 THEN
2281: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2282: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Matching case is found and CAS ID is => '||l_Cas_id);
2283: END IF;
2284: --Populate Case object record
2285: PopulateCaseObjectRec(p_object_code =>l_object_code,
2286: p_object_id =>p_object_id,
2289: x_case_object_rec =>l_case_object_Rec);
2290: --Call create_case_object_pvt to create Case object_id
2291: -- IF PG_DEBUG < 10 THEN
2292: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2293: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Object PVT');
2294: END IF;
2295: -- IF PG_DEBUG < 10 THEN
2296: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2297: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2293: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Object PVT');
2294: END IF;
2295: -- IF PG_DEBUG < 10 THEN
2296: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2297: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2298: END IF;
2299: iex_case_objects_pvt.Create_case_objects(
2300: P_Api_Version_Number =>l_api_version_number,
2301: P_Init_Msg_List =>FND_API.G_FALSE,
2307: X_Msg_Count =>l_msg_count,
2308: X_Msg_Data =>l_msg_data);
2309: -- IF PG_DEBUG < 10 THEN
2310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2311: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
2312: END IF;
2313: -- Check return status from the above procedure call
2314: IF l_return_status = FND_API.G_RET_STS_ERROR then
2315: AddFailMsg( p_object => 'CASE OBJECTS',
2320: else
2321: x_case_object_id :=l_case_object_id;
2322: -- IF PG_DEBUG < 10 THEN
2323: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2324: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
2325: END IF;
2326:
2327: END IF;
2328: Else
2330: -- Case , Create case defintion and then create case object
2331: -- Populate Case Record
2332: -- IF PG_DEBUG < 10 THEN
2333: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2334: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Case Definition is Valid , no case found');
2335: END IF;
2336: PopulateCaseRec(p_case_number =>p_case_number,
2337: p_comments =>p_case_comments,
2338: p_org_id =>l_org_id,
2343: --Call iex_cases_pvt to create a case
2344:
2345: -- IF PG_DEBUG < 10 THEN
2346: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2347: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case PVT');
2348: END IF;
2349: -- IF PG_DEBUG < 10 THEN
2350: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2351: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2347: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case PVT');
2348: END IF;
2349: -- IF PG_DEBUG < 10 THEN
2350: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2351: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2352: END IF;
2353:
2354: -- added by ehuh Aug 10 2003
2355:
2386: l_cas_rec.owner_resource_id := l_resource_id;
2387: end if;
2388:
2389: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2390: iex_debug_pub.logMessage('Get_assign_resource(R) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
2391: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
2392: END IF;
2393:
2394: exception
2387: end if;
2388:
2389: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2390: iex_debug_pub.logMessage('Get_assign_resource(R) : ' || 'After Calling Get_assign_resource and Status =>'||l_return_status);
2391: iex_debug_pub.logMessage('Resource ID : ' || l_cas_rec.owner_resource_id );
2392: END IF;
2393:
2394: exception
2395: when others then
2410: X_Msg_Count =>l_msg_count,
2411: X_Msg_Data =>l_msg_data);
2412: -- IF PG_DEBUG < 10 THEN
2413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2414: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case PVT and Status =>'||l_return_status);
2415: END IF;
2416: IF l_return_status = FND_API.G_RET_STS_ERROR then
2417: AddFailMsg( p_object => 'CASE',
2418: p_operation => 'INSERT' );
2430: p_attribute_rec =>p_cas_rec,
2431: x_case_def_rec =>l_case_definition_Rec);
2432: -- IF PG_DEBUG < 10 THEN
2433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2434: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Definition PVT');
2435: END IF;
2436: -- IF PG_DEBUG < 10 THEN
2437: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2438: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2434: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Definition PVT');
2435: END IF;
2436: -- IF PG_DEBUG < 10 THEN
2437: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2438: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2439: END IF;
2440: iex_case_definitions_pvt.create_case_definitions(
2441: P_Api_Version_Number =>l_api_version_number,
2442: P_Init_Msg_List =>FND_API.G_FALSE,
2448: X_Msg_Count =>l_msg_count,
2449: X_Msg_Data =>l_msg_data);
2450: -- IF PG_DEBUG < 10 THEN
2451: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2452: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Definition PVT and Status =>'||l_return_status);
2453: END IF;
2454: IF l_return_status = FND_API.G_RET_STS_ERROR then
2455: AddFailMsg( p_object => 'CASE DEFINITIONS',
2456: p_operation => 'INSERT' );
2467: x_case_object_rec =>l_case_object_Rec);
2468: --Call create_case_object_pvt to create Case object_id
2469: -- IF PG_DEBUG < 10 THEN
2470: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2471: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Object PVT');
2472: END IF;
2473: -- IF PG_DEBUG < 10 THEN
2474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2475: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2471: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Before Calling Create Case Object PVT');
2472: END IF;
2473: -- IF PG_DEBUG < 10 THEN
2474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2475: iex_debug_pub.logMessage('ReassignCaseObjects: ' || '---------------------------------');
2476: END IF;
2477: iex_case_objects_pvt.Create_case_objects(
2478: P_Api_Version_Number =>l_api_version_number,
2479: P_Init_Msg_List =>FND_API.G_FALSE,
2485: X_Msg_Count =>l_msg_count,
2486: X_Msg_Data =>l_msg_data);
2487: -- IF PG_DEBUG < 10 THEN
2488: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2489: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'After Calling Create Case Object PVT and Status =>'||l_return_status);
2490: END IF;
2491: -- Check return status from the above procedure call
2492: IF l_return_status = FND_API.G_RET_STS_ERROR then
2493: AddFailMsg( p_object => 'CASE OBJECTS',
2498: else
2499: x_case_object_id :=l_case_object_id;
2500: -- IF PG_DEBUG < 10 THEN
2501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2502: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Value of x_case_object_id =>' ||x_case_object_id);
2503: END IF;
2504: END IF;
2505:
2506: END IF; -- end of if G_match_Case_id is NOT NULL
2507: ELSE -- if case Definition is invalid then error out.
2508: --How to assign value of parameter,since it is table?
2509: -- IF PG_DEBUG < 10 THEN
2510: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2511: iex_debug_pub.logMessage('ReassignCaseObjects: ' || 'Case Definition is invalid');
2512: END IF;
2513: AddInvalidArgMsg(
2514: p_api_name => l_api_name_full,
2515: p_param_value => 'P_case_definition_tbl',
2520: END IF; -- (l_cas_id IS NOT NULL) OR (l_cas_id <> FND_API.G_MISS_NUM)
2521:
2522: -- IF PG_DEBUG < 10 THEN
2523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2524: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'Case creation over, ready for notification');
2525: END IF;
2526:
2527:
2528: OPEN c_contract(p_object_id);
2529: FETCH c_contract INTO l_contract_number;
2530: CLOSE c_contract;
2531: -- IF PG_DEBUG < 10 THEN
2532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2533: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'contract Number'||l_contract_number);
2534: END IF;
2535:
2536:
2537: OPEN c_getname(l_old_case_id);
2538: FETCH c_getname INTO l_case_agent;
2539: CLOSE c_getname;
2540: -- IF PG_DEBUG < 10 THEN
2541: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2542: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'case agent'||l_case_Agent);
2543: END IF;
2544:
2545: --l_case_agent :='KWALKER';
2546:
2553: x_return_status =>l_return_status);
2554: else
2555: -- IF PG_DEBUG < 10 THEN
2556: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2557: iex_debug_pub.logmessage ('ReassignCaseObjects: ' || 'Could not send notification');
2558: END IF;
2559: l_return_status :='F';
2560: end if;
2561:
2592: p_data => x_msg_data
2593: );
2594: -- IF PG_DEBUG < 10 THEN
2595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2596: IEX_DEBUG_PUB.LogMessage ('ReassignCaseObjects: ' || '*********End of Procedure => '||l_api_name||' *********');
2597: END IF;
2598: EXCEPTION
2599: WHEN FND_API.G_EXC_ERROR THEN
2600: ROLLBACK TO REASSIGNCASEOBJECTS_PUB;
2653: l_object_version_number NUMBER;
2654: BEGIN
2655: -- IF PG_DEBUG < 10 THEN
2656: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2657: IEX_DEBUG_PUB.LogMessage ('UpdateCase: ' || '*********Start of Procedure => '||l_api_name||' *********');
2658: END IF;
2659: -- Standard Start of API savepoint
2660: SAVEPOINT UPDATECASE_PUB;
2661:
2676: END IF;
2677:
2678: -- IF PG_DEBUG < 10 THEN
2679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2680: iex_debug_pub.logMessage('UpdateCase: ' || 'After Api compatability Check');
2681: END IF;
2682:
2683: -- Initialize API return status to SUCCESS
2684: x_return_status := FND_API.G_RET_STS_SUCCESS;
2700: END IF;
2701:
2702: -- IF PG_DEBUG < 10 THEN
2703: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2704: iex_debug_pub.logMessage('UpdateCase: ' || 'After FND_GLOBAL_USER Check');
2705: END IF;
2706:
2707: -- Item level validation
2708: IF (p_validation_level > fnd_api.g_valid_level_none) THEN
2738:
2739: END IF; --end of item level validation
2740: -- IF PG_DEBUG < 10 THEN
2741: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2742: iex_debug_pub.logMessage('UpdateCase: ' || 'After Item validation ');
2743: END IF;
2744:
2745: -- Call update Case PVT to update
2746: PopulateCaseRec(p_attribute_rec =>p_cas_rec,
2755:
2756:
2757: -- IF PG_DEBUG < 10 THEN
2758: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2759: iex_debug_pub.logMessage('UpdateCase: ' || 'Before Calling Update PVT');
2760: END IF;
2761: iex_cases_pvt.update_cas
2762: (P_Api_Version_Number =>l_api_version_number,
2763: P_Init_Msg_List =>FND_API.G_FALSE,
2769: X_Msg_Data =>l_msg_data,
2770: xo_object_version_number =>l_object_version_number);
2771: -- IF PG_DEBUG < 10 THEN
2772: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2773: iex_debug_pub.logMessage('UpdateCase: ' || 'After Calling update case PVT and Status =>'||l_return_status);
2774: END IF;
2775:
2776: IF l_return_status = FND_API.G_RET_STS_ERROR then
2777: AddFailMsg( p_object => 'CASE ',
2798: p_data => x_msg_data
2799: );
2800: -- IF PG_DEBUG < 10 THEN
2801: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2802: IEX_DEBUG_PUB.LogMessage ('UpdateCase: ' || '*********End of Procedure => '||l_api_name||' *********');
2803: END IF;
2804: EXCEPTION
2805: WHEN FND_API.G_EXC_ERROR THEN
2806: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
2880: l_assign BOOLEAN DEFAULT FALSE;
2881: BEGIN
2882: -- IF PG_DEBUG < 10 THEN
2883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2884: IEX_DEBUG_PUB.LogMessage ('CreateCasecontacts: ' || '*********Start of Procedure => '||l_api_name||' *********');
2885: END IF;
2886: -- Standard Start of API savepoint
2887: SAVEPOINT CREATECASECONTACTS_PUB;
2888:
2903: END IF;
2904:
2905: -- IF PG_DEBUG < 10 THEN
2906: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2907: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Api compatability Check');
2908: END IF;
2909:
2910: -- Initialize API return status to SUCCESS
2911: x_return_status := FND_API.G_RET_STS_SUCCESS;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
2928: -- IF PG_DEBUG < 10 THEN
2929: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2930: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After FND_GLOBAL_USER Check');
2931: END IF;
2932: -- Check for required parameter cas_id
2933: IF (p_cas_id IS NULL) OR (p_cas_id = FND_API.G_MISS_NUM) THEN
2934: -- IF PG_DEBUG < 10 THEN
2932: -- Check for required parameter cas_id
2933: IF (p_cas_id IS NULL) OR (p_cas_id = FND_API.G_MISS_NUM) THEN
2934: -- IF PG_DEBUG < 10 THEN
2935: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2936: IEX_DEBUG_PUB.LogMessage('CreateCasecontacts: ' || 'Required Parameter p_cas_id is invalid');
2937: END IF;
2938: AddMissingArgMsg(
2939: p_api_name => l_api_name_full,
2940: p_param_name => 'p_cas_id' );
2948: l_case_contact_Rec.phone_id :=P_case_contact_tbl(i).phone_id;
2949: l_case_contact_Rec.primary_flag :=P_case_contact_tbl(i).primary_flag;
2950: -- IF PG_DEBUG < 10 THEN
2951: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2952: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'Before Calling Create Case Contacts PVT');
2953: END IF;
2954: -- IF PG_DEBUG < 10 THEN
2955: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2956: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
2952: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'Before Calling Create Case Contacts PVT');
2953: END IF;
2954: -- IF PG_DEBUG < 10 THEN
2955: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2956: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
2957: END IF;
2958: iex_case_contacts_pvt.create_case_contact(
2959: P_Api_Version_Number =>l_api_version_number,
2960: P_Init_Msg_List =>FND_API.G_FALSE,
2966: X_Msg_Count =>l_msg_count,
2967: X_Msg_Data =>l_msg_data);
2968: -- IF PG_DEBUG < 10 THEN
2969: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2970: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Calling Create Case'||
2971: 'contacts PVT and Status =>'||l_return_status);
2972: END IF;
2973: IF l_return_status = FND_API.G_RET_STS_ERROR then
2974: AddFailMsg( p_object => 'CASE CONTACTS',
2985:
2986: FOR j IN 1..P_case_contact_roles_tbl.COUNT LOOP
2987: -- IF PG_DEBUG < 10 THEN
2988: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2989: iex_debug_pub.LogMessage ('CreateCasecontacts: ' || 'Roles for contact Party_id = '||
2990: P_case_contact_roles_tbl(j).contact_party_id||
2991: 'P_case_contact_tbl(i).contact_party_id ='||
2992: P_case_contact_tbl(i).contact_party_id);
2993: END IF;
3007:
3008:
3009: -- IF PG_DEBUG < 10 THEN
3010: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3011: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'Before Calling Create Case Contact roles PVT');
3012: END IF;
3013: -- IF PG_DEBUG < 10 THEN
3014: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3015: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
3011: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'Before Calling Create Case Contact roles PVT');
3012: END IF;
3013: -- IF PG_DEBUG < 10 THEN
3014: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3015: iex_debug_pub.logMessage('CreateCasecontacts: ' || '---------------------------------');
3016: END IF;
3017: iex_case_contact_roles_pvt.create_case_contact_roles(
3018: P_Api_Version_Number =>l_api_version_number,
3019: P_Init_Msg_List =>FND_API.G_FALSE,
3025: X_Msg_Count =>l_msg_count,
3026: X_Msg_Data =>l_msg_data);
3027: -- IF PG_DEBUG < 10 THEN
3028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3029: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After Calling Create Case'||
3030: 'contacts roles PVT and Status =>'||l_return_status);
3031: END IF;
3032: IF l_return_status = FND_API.G_RET_STS_ERROR then
3033: AddFailMsg( p_object => 'CASE CONTACT ROLES',
3039: END IF; --contact party id are similar
3040: END LOOP; --contact roles table loop
3041: -- IF PG_DEBUG < 10 THEN
3042: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3043: iex_debug_pub.logMessage('CreateCasecontacts: ' || 'After creation of Case'||
3044: 'contacts roles for cas_contact_id '||l_case_contact_id);
3045: END IF;
3046: */
3047: END IF; --checking return status of case contact insert
3047: END IF; --checking return status of case contact insert
3048: END LOOP;
3049: -- IF PG_DEBUG < 10 THEN
3050: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3051: IEX_DEBUG_PUB.LogMessage ('CreateCasecontacts: ' || '*********End of Procedure => '||l_api_name||' *********');
3052: END IF;
3053:
3054: -- Debug Message
3055: -- Standard call to get message count and if count is 1, get message info.