69: -- If there was an error in processing the row, then raise an error
70: --
71: IF l_any_errors
72: THEN
73: raise FND_API.G_EXC_ERROR;
74: END IF;
75:
76: END Convert_Debrief_Value_To_Id;
77:
105: l_interest_code_id NUMBER;
106: l_secondary_interest_code_id NUMBER;
107: BEGIN
108:
109: p_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111: -- Initialize Out Variables
112: p_out_interest_type_id := NULL;
113: p_out_primary_interest_code_id := NULL;
115:
116: -- Convert Interest Type
117: --
118: IF (p_interest_type_id is not NULL and
119: p_interest_type_id <> FND_API.G_MISS_NUM)
120: THEN
121: p_out_interest_type_id := p_interest_type_id;
122: l_interest_type_id := p_interest_type_id;
123:
121: p_out_interest_type_id := p_interest_type_id;
122: l_interest_type_id := p_interest_type_id;
123:
124: IF (p_interest_type is not NULL and
125: p_interest_type <> FND_API.G_MISS_CHAR)
126: THEN
127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
128: THEN
129: FND_MESSAGE.Set_Name ('CSF', 'API_ATTRIBUTE_IGNORED');
132: END IF;
133: END IF;
134:
135: ELSIF (p_interest_type is not NULL and
136: p_interest_type <> FND_API.G_MISS_CHAR)
137: THEN
138: OPEN C_Get_Int_Type ( p_interest_type );
139: FETCH C_Get_Int_Type INTO l_interest_type_id;
140: CLOSE C_Get_Int_Type;
148: FND_MESSAGE.Set_Token('VALUE', p_interest_type, FALSE);
149: FND_MSG_PUB.Add;
150: END IF;
151:
152: raise FND_API.G_EXC_ERROR;
153:
154: ELSE
155: p_out_interest_type_id := l_interest_type_id;
156: END IF;
164: FND_MESSAGE.Set_Token ('COLUMN', 'INTEREST_TYPE', FALSE);
165: FND_MSG_PUB.Add;
166: END IF;
167:
168: raise FND_API.G_EXC_ERROR;
169: END IF;
170:
171: -- Convert Primary Code
172: --
170:
171: -- Convert Primary Code
172: --
173: IF (p_primary_interest_code_id is not NULL and
174: p_primary_interest_code_id <> FND_API.G_MISS_NUM)
175: THEN
176: p_out_primary_interest_code_id := p_primary_interest_code_id;
177: l_interest_code_id := p_primary_interest_code_id;
178:
176: p_out_primary_interest_code_id := p_primary_interest_code_id;
177: l_interest_code_id := p_primary_interest_code_id;
178:
179: IF (p_primary_interest_code is not NULL and
180: p_primary_interest_code <> FND_API.G_MISS_CHAR)
181: THEN
182: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
183: THEN
184: FND_MESSAGE.Set_Name ('CSF','API_ATTRIBUTE_IGNORED');
187: END IF;
188: END IF;
189:
190: ELSIF (p_primary_interest_code is not NULL and
191: p_primary_interest_code <> FND_API.G_MISS_CHAR)
192: THEN
193: OPEN C_Get_Int_Code ( p_primary_interest_code,
194: l_interest_type_id );
195: FETCH C_Get_Int_Code INTO l_interest_code_id;
204: FND_MESSAGE.Set_Token('VALUE', p_primary_interest_code, FALSE);
205: FND_MSG_PUB.Add;
206: END IF;
207:
208: p_return_status := FND_API.G_RET_STS_ERROR;
209:
210: ELSE
211: p_out_primary_interest_code_id := l_interest_code_id;
212: END IF;
214:
215: -- Convert Secondary Code
216: --
217: IF (p_secondary_interest_code_id is not NULL and
218: p_secondary_interest_code_id <> FND_API.G_MISS_NUM)
219: THEN
220: p_out_second_interest_code_id := p_secondary_interest_code_id;
221: l_secondary_interest_code_id := p_secondary_interest_code_id;
222:
220: p_out_second_interest_code_id := p_secondary_interest_code_id;
221: l_secondary_interest_code_id := p_secondary_interest_code_id;
222:
223: IF (p_secondary_interest_code is not NULL and
224: p_secondary_interest_code <> FND_API.G_MISS_CHAR)
225: THEN
226: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
227: THEN
228: FND_MESSAGE.Set_Name ('CSF', 'API_ATTRIBUTE_IGNORED');
231: END IF;
232: END IF;
233:
234: ELSIF (p_secondary_interest_code is not NULL and
235: p_secondary_interest_code <> FND_API.G_MISS_CHAR)
236: THEN
237: OPEN C_Get_Int_Code ( p_secondary_interest_code,
238: l_interest_type_id );
239: FETCH C_Get_Int_Code INTO l_secondary_interest_code_id;
247: FND_MESSAGE.Set_Token ('COLUMN', 'SECONDARY_INTEREST_CODE', FALSE);
248: FND_MESSAGE.Set_Token('VALUE', p_secondary_interest_code, FALSE);
249: FND_MSG_PUB.Add;
250: END IF;
251: p_return_status := FND_API.G_RET_STS_ERROR;
252:
253: ELSE
254: p_out_second_interest_code_id := l_secondary_interest_code_id;
255:
391: x_pvt_debrief_line_tbl(l_curr_row).project_task_id := p_debrief_line_rec.project_task_id;
392:
393: IF l_any_errors
394: THEN
395: raise FND_API.G_EXC_ERROR;
396: END IF;
397:
398: EXCEPTION
399: WHEN OTHERS THEN
408: END Conv_DEBRIEF_LINE_ValToId;
409:
410: PROCEDURE Create_Debrief(
411: P_Api_Version_Number IN NUMBER,
412: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
413: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
414: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
415: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type ,
416: -- DEFAULT G_MISS_DEBRIEF_LINE_tbl,
409:
410: PROCEDURE Create_Debrief(
411: P_Api_Version_Number IN NUMBER,
412: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
413: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
414: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
415: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type ,
416: -- DEFAULT G_MISS_DEBRIEF_LINE_tbl,
417: X_DEBRIEF_HEADER_ID OUT NOCOPY NUMBER,
431: BEGIN
432: SAVEPOINT CREATE_DEBRIEF_PUB;
433:
434: -- Standard call to check for call compatibility.
435: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
436: p_api_version_number,
437: l_api_name,
438: G_PKG_NAME)
439: THEN
436: p_api_version_number,
437: l_api_name,
438: G_PKG_NAME)
439: THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list )
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list )
445: THEN
446: FND_MSG_PUB.initialize;
447: END IF;
448:
446: FND_MSG_PUB.initialize;
447: END IF;
448:
449: -- Initialize API return status to SUCCESS
450: x_return_status := FND_API.G_RET_STS_SUCCESS;
451:
452: -- API body
453: --
454: -- Convert the values to ids
464:
465: -- Calling Private package: Create_DEBRIEF
466: CSF_DEBRIEF_PVT.Create_debrief(
467: P_Api_Version_Number => 1.0,
468: P_Init_Msg_List => FND_API.G_FALSE,
469: P_Commit => FND_API.G_FALSE,
470: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
471: P_DEBRIEF_Rec => l_pvt_DEBRIEF_Rec ,
472: P_DEBRIEF_LINE_tbl => l_pvt_DEBRIEF_LINE_tbl,
465: -- Calling Private package: Create_DEBRIEF
466: CSF_DEBRIEF_PVT.Create_debrief(
467: P_Api_Version_Number => 1.0,
468: P_Init_Msg_List => FND_API.G_FALSE,
469: P_Commit => FND_API.G_FALSE,
470: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
471: P_DEBRIEF_Rec => l_pvt_DEBRIEF_Rec ,
472: P_DEBRIEF_LINE_tbl => l_pvt_DEBRIEF_LINE_tbl,
473: X_DEBRIEF_HEADER_ID => x_DEBRIEF_HEADER_ID,
466: CSF_DEBRIEF_PVT.Create_debrief(
467: P_Api_Version_Number => 1.0,
468: P_Init_Msg_List => FND_API.G_FALSE,
469: P_Commit => FND_API.G_FALSE,
470: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
471: P_DEBRIEF_Rec => l_pvt_DEBRIEF_Rec ,
472: P_DEBRIEF_LINE_tbl => l_pvt_DEBRIEF_LINE_tbl,
473: X_DEBRIEF_HEADER_ID => x_DEBRIEF_HEADER_ID,
474: X_Return_Status => x_return_status,
477:
478:
479: -- End of API body.
480: --
481: IF x_return_status = FND_API.G_RET_STS_ERROR then
482: raise FND_API.G_EXC_ERROR;
483: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
484: raise FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
478:
479: -- End of API body.
480: --
481: IF x_return_status = FND_API.G_RET_STS_ERROR then
482: raise FND_API.G_EXC_ERROR;
483: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
484: raise FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
479: -- End of API body.
480: --
481: IF x_return_status = FND_API.G_RET_STS_ERROR then
482: raise FND_API.G_EXC_ERROR;
483: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
484: raise FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487: IF FND_API.to_Boolean( p_commit )
480: --
481: IF x_return_status = FND_API.G_RET_STS_ERROR then
482: raise FND_API.G_EXC_ERROR;
483: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
484: raise FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487: IF FND_API.to_Boolean( p_commit )
488: THEN
483: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
484: raise FND_API.G_EXC_UNEXPECTED_ERROR;
485: END IF;
486:
487: IF FND_API.to_Boolean( p_commit )
488: THEN
489: COMMIT WORK;
490: END IF;
491:
495: );
496:
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500:
501: ROLLBACK TO CREATE_DEBRIEF_PUB;
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: FND_MSG_PUB.Count_And_Get (
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500:
501: ROLLBACK TO CREATE_DEBRIEF_PUB;
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: FND_MSG_PUB.Count_And_Get (
504: P_COUNT => X_MSG_COUNT
505: ,P_DATA => X_MSG_DATA);
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: FND_MSG_PUB.Count_And_Get (
504: P_COUNT => X_MSG_COUNT
505: ,P_DATA => X_MSG_DATA);
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO CREATE_DEBRIEF_PUB;
508:
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get (
505: ,P_DATA => X_MSG_DATA);
506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
507: ROLLBACK TO CREATE_DEBRIEF_PUB;
508:
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get (
511: P_COUNT => X_MSG_COUNT
512: ,P_DATA => X_MSG_DATA);
513: WHEN OTHERS THEN
512: ,P_DATA => X_MSG_DATA);
513: WHEN OTHERS THEN
514: ROLLBACK TO CREATE_DEBRIEF_PUB;
515:
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: IF FND_MSG_PUB.Check_Msg_Level
518: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
519: THEN
520: FND_MSG_PUB.Add_Exc_Msg (
530: -- Bug 12671055.
531: -- shadas - Create_Debrief overloaded procedure added for updating default dff values.
532: PROCEDURE Create_Debrief_With_Dff_Vals(
533: P_Api_Version_Number IN NUMBER,
534: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
535: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
536: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
537: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type ,
538: X_DEBRIEF_HEADER_ID OUT NOCOPY NUMBER,
531: -- shadas - Create_Debrief overloaded procedure added for updating default dff values.
532: PROCEDURE Create_Debrief_With_Dff_Vals(
533: P_Api_Version_Number IN NUMBER,
534: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
535: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
536: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
537: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type ,
538: X_DEBRIEF_HEADER_ID OUT NOCOPY NUMBER,
539: X_Return_Status OUT NOCOPY VARCHAR2,
553: BEGIN
554: SAVEPOINT CREATE_DEBRIEF_PUB;
555:
556: -- Standard call to check for call compatibility.
557: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
554: SAVEPOINT CREATE_DEBRIEF_PUB;
555:
556: -- Standard call to check for call compatibility.
557: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list ) THEN
563: FND_MSG_PUB.initialize;
564: END IF;
565:
566: -- Initialize API return status to SUCCESS
563: FND_MSG_PUB.initialize;
564: END IF;
565:
566: -- Initialize API return status to SUCCESS
567: x_return_status := FND_API.G_RET_STS_SUCCESS;
568:
569: -- Update the p_debrief_rec values to l_debrief_rec
570: l_debrief_rec.DEBRIEF_HEADER_ID := p_debrief_rec.DEBRIEF_HEADER_ID;
571: l_debrief_rec.DEBRIEF_NUMBER := p_debrief_rec.DEBRIEF_NUMBER;
674:
675: -- API body --
676: Create_DEBRIEF(
677: P_Api_Version_Number => 1.0,
678: P_Init_Msg_List => FND_API.G_FALSE,
679: P_Commit => FND_API.G_FALSE,
680: P_DEBRIEF_Rec => l_debrief_rec,
681: P_DEBRIEF_LINE_tbl => P_DEBRIEF_LINE_tbl,
682: X_DEBRIEF_HEADER_ID => X_DEBRIEF_HEADER_ID,
675: -- API body --
676: Create_DEBRIEF(
677: P_Api_Version_Number => 1.0,
678: P_Init_Msg_List => FND_API.G_FALSE,
679: P_Commit => FND_API.G_FALSE,
680: P_DEBRIEF_Rec => l_debrief_rec,
681: P_DEBRIEF_LINE_tbl => P_DEBRIEF_LINE_tbl,
682: X_DEBRIEF_HEADER_ID => X_DEBRIEF_HEADER_ID,
683: X_Return_Status => X_Return_Status,
685: X_Msg_Data => x_msg_data
686: );
687: -- End of API body. --
688:
689: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
690: raise FND_API.G_EXC_ERROR;
691: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
686: );
687: -- End of API body. --
688:
689: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
690: raise FND_API.G_EXC_ERROR;
691: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694:
687: -- End of API body. --
688:
689: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
690: raise FND_API.G_EXC_ERROR;
691: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694:
695: IF FND_API.to_Boolean( p_commit ) THEN
688:
689: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
690: raise FND_API.G_EXC_ERROR;
691: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694:
695: IF FND_API.to_Boolean( p_commit ) THEN
696: COMMIT WORK;
691: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
693: END IF;
694:
695: IF FND_API.to_Boolean( p_commit ) THEN
696: COMMIT WORK;
697: END IF;
698: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
699: EXCEPTION
696: COMMIT WORK;
697: END IF;
698: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
699: EXCEPTION
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO CREATE_DEBRIEF_PUB;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,p_data => x_msg_data);
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
699: EXCEPTION
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO CREATE_DEBRIEF_PUB;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,p_data => x_msg_data);
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: ROLLBACK TO CREATE_DEBRIEF_PUB;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: WHEN FND_API.G_EXC_ERROR THEN
701: ROLLBACK TO CREATE_DEBRIEF_PUB;
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,p_data => x_msg_data);
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: ROLLBACK TO CREATE_DEBRIEF_PUB;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,P_DATA => X_MSG_DATA);
708: WHEN OTHERS THEN
702: x_return_status := FND_API.G_RET_STS_ERROR;
703: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,p_data => x_msg_data);
704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
705: ROLLBACK TO CREATE_DEBRIEF_PUB;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,P_DATA => X_MSG_DATA);
708: WHEN OTHERS THEN
709: ROLLBACK TO CREATE_DEBRIEF_PUB;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: FND_MSG_PUB.Count_And_Get ( P_COUNT => X_MSG_COUNT ,P_DATA => X_MSG_DATA);
708: WHEN OTHERS THEN
709: ROLLBACK TO CREATE_DEBRIEF_PUB;
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
712: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,L_API_NAME );
713: END IF;
714: fnd_msg_pub.count_and_get ( p_count => x_msg_count ,p_data => x_msg_data);
715: END Create_Debrief_With_Dff_Vals;
716:
717: PROCEDURE Update_debrief(
718: P_Api_Version_Number IN NUMBER,
719: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
720: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
721: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type ,
722: X_Return_Status OUT NOCOPY VARCHAR2,
723: X_Msg_Count OUT NOCOPY NUMBER,
716:
717: PROCEDURE Update_debrief(
718: P_Api_Version_Number IN NUMBER,
719: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
720: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
721: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type ,
722: X_Return_Status OUT NOCOPY VARCHAR2,
723: X_Msg_Count OUT NOCOPY NUMBER,
724: X_Msg_Data OUT NOCOPY VARCHAR2
730: BEGIN
731: -- Standard Start of API savepoint
732: SAVEPOINT UPDATE_DEBRIEF_PUB;
733: -- Standard call to check for call compatibility.
734: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
735: p_api_version_number,
736: l_api_name,
737: G_PKG_NAME)
738: THEN
735: p_api_version_number,
736: l_api_name,
737: G_PKG_NAME)
738: THEN
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
741:
742: -- Initialize message list if p_init_msg_list is set to TRUE.
743: IF FND_API.to_Boolean( p_init_msg_list )
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
741:
742: -- Initialize message list if p_init_msg_list is set to TRUE.
743: IF FND_API.to_Boolean( p_init_msg_list )
744: THEN
745: FND_MSG_PUB.initialize;
746: END IF;
747:
745: FND_MSG_PUB.initialize;
746: END IF;
747:
748: -- Initialize API return status to SUCCESS
749: x_return_status := FND_API.G_RET_STS_SUCCESS;
750:
751: -- API body
752: -- Convert the values to ids
753: --
757: );
758:
759: CSF_DEBRIEF_PVT.Update_debrief(
760: P_Api_Version_Number => 1.0,
761: P_Init_Msg_List => FND_API.G_FALSE,
762: P_Commit => p_commit,
763: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
764: P_DEBRIEF_Rec => l_pvt_DEBRIEF_Rec ,
765: X_Return_Status => x_return_status,
759: CSF_DEBRIEF_PVT.Update_debrief(
760: P_Api_Version_Number => 1.0,
761: P_Init_Msg_List => FND_API.G_FALSE,
762: P_Commit => p_commit,
763: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
764: P_DEBRIEF_Rec => l_pvt_DEBRIEF_Rec ,
765: X_Return_Status => x_return_status,
766: X_Msg_Count => x_msg_count,
767: X_Msg_Data => x_msg_data);
766: X_Msg_Count => x_msg_count,
767: X_Msg_Data => x_msg_data);
768:
769: -- Check return status from the above procedure call
770: IF x_return_status = FND_API.G_RET_STS_ERROR then
771: raise FND_API.G_EXC_ERROR;
772: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
767: X_Msg_Data => x_msg_data);
768:
769: -- Check return status from the above procedure call
770: IF x_return_status = FND_API.G_RET_STS_ERROR then
771: raise FND_API.G_EXC_ERROR;
772: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775: -- End of API body
768:
769: -- Check return status from the above procedure call
770: IF x_return_status = FND_API.G_RET_STS_ERROR then
771: raise FND_API.G_EXC_ERROR;
772: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775: -- End of API body
776: --
769: -- Check return status from the above procedure call
770: IF x_return_status = FND_API.G_RET_STS_ERROR then
771: raise FND_API.G_EXC_ERROR;
772: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775: -- End of API body
776: --
777: IF FND_API.to_Boolean( p_commit )
773: raise FND_API.G_EXC_UNEXPECTED_ERROR;
774: END IF;
775: -- End of API body
776: --
777: IF FND_API.to_Boolean( p_commit )
778: THEN
779: COMMIT WORK;
780: END IF;
781:
784: p_data => x_msg_data
785: );
786:
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO UPDATE_DEBRIEF_PUB;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MSG_PUB.Count_And_Get (
792: P_COUNT => X_MSG_COUNT
786:
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO UPDATE_DEBRIEF_PUB;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MSG_PUB.Count_And_Get (
792: P_COUNT => X_MSG_COUNT
793: ,P_DATA => X_MSG_DATA);
794:
791: FND_MSG_PUB.Count_And_Get (
792: P_COUNT => X_MSG_COUNT
793: ,P_DATA => X_MSG_DATA);
794:
795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
796: ROLLBACK TO UPDATE_DEBRIEF_PUB;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: FND_MSG_PUB.Count_And_Get (
799: P_COUNT => X_MSG_COUNT
793: ,P_DATA => X_MSG_DATA);
794:
795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
796: ROLLBACK TO UPDATE_DEBRIEF_PUB;
797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: FND_MSG_PUB.Count_And_Get (
799: P_COUNT => X_MSG_COUNT
800: ,P_DATA => X_MSG_DATA);
801:
800: ,P_DATA => X_MSG_DATA);
801:
802: WHEN OTHERS THEN
803: ROLLBACK TO UPDATE_DEBRIEF_PUB;
804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805: IF FND_MSG_PUB.Check_Msg_Level
806: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
807: THEN
808: FND_MSG_PUB.Add_Exc_Msg (
817: End Update_debrief;
818:
819: PROCEDURE Create_debrief_lines(
820: P_Api_Version_Number IN NUMBER,
821: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
822: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
823: P_Upd_tskassgnstatus IN VARCHAR2 ,
824: P_Task_Assignment_status IN VARCHAR2 ,
825: P_DEBRIEF_LINE_Tbl IN DEBRIEF_LINE_Tbl_Type := G_MISS_DEBRIEF_LINE_Tbl,
818:
819: PROCEDURE Create_debrief_lines(
820: P_Api_Version_Number IN NUMBER,
821: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
822: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
823: P_Upd_tskassgnstatus IN VARCHAR2 ,
824: P_Task_Assignment_status IN VARCHAR2 ,
825: P_DEBRIEF_LINE_Tbl IN DEBRIEF_LINE_Tbl_Type := G_MISS_DEBRIEF_LINE_Tbl,
826: P_DEBRIEF_HEADER_ID IN NUMBER,
839: -- Standard Start of API savepoint
840: SAVEPOINT CREATE_DEBRIEF_LINE_PUB;
841:
842: -- Standard call to check for call compatibility.
843: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
844: p_api_version_number,
845: l_api_name,
846: G_PKG_NAME)
847: THEN
844: p_api_version_number,
845: l_api_name,
846: G_PKG_NAME)
847: THEN
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -- Initialize message list if p_init_msg_list is set to TRUE.
852: IF FND_API.to_Boolean( p_init_msg_list )
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
850:
851: -- Initialize message list if p_init_msg_list is set to TRUE.
852: IF FND_API.to_Boolean( p_init_msg_list )
853: THEN FND_MSG_PUB.initialize; END IF;
854:
855: -- Initialize API return status to SUCCESS
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
852: IF FND_API.to_Boolean( p_init_msg_list )
853: THEN FND_MSG_PUB.initialize; END IF;
854:
855: -- Initialize API return status to SUCCESS
856: x_return_status := FND_API.G_RET_STS_SUCCESS;
857:
858: -- API body
859: --
860: -- Convert the values to ids
867: -- Calling Private package: Create_DEBRIEF_LINE
868: --dbms_output.put_line('l_pvt_DEBRIEF_LINE_tbl(1).usage_type :: '||l_pvt_DEBRIEF_LINE_tbl(1).usage_type);
869: CSF_debrief_PVT.Create_debrief_lines(
870: P_Api_Version_Number => 1.0,
871: P_Init_Msg_List => FND_API.G_FALSE,
872: P_Commit => FND_API.G_FALSE,
873: P_Upd_tskassgnstatus => P_Upd_tskassgnstatus,
874: P_Task_Assignment_status => P_Task_Assignment_status ,
875: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
868: --dbms_output.put_line('l_pvt_DEBRIEF_LINE_tbl(1).usage_type :: '||l_pvt_DEBRIEF_LINE_tbl(1).usage_type);
869: CSF_debrief_PVT.Create_debrief_lines(
870: P_Api_Version_Number => 1.0,
871: P_Init_Msg_List => FND_API.G_FALSE,
872: P_Commit => FND_API.G_FALSE,
873: P_Upd_tskassgnstatus => P_Upd_tskassgnstatus,
874: P_Task_Assignment_status => P_Task_Assignment_status ,
875: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
876: P_DEBRIEF_LINE_tbl => l_pvt_DEBRIEF_LINE_tbl,
871: P_Init_Msg_List => FND_API.G_FALSE,
872: P_Commit => FND_API.G_FALSE,
873: P_Upd_tskassgnstatus => P_Upd_tskassgnstatus,
874: P_Task_Assignment_status => P_Task_Assignment_status ,
875: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
876: P_DEBRIEF_LINE_tbl => l_pvt_DEBRIEF_LINE_tbl,
877: P_DEBRIEF_HEADER_ID => P_DEBRIEF_HEADER_ID,
878: P_SOURCE_OBJECT_TYPE_CODE => P_SOURCE_OBJECT_TYPE_CODE,
879: X_Return_Status => x_return_status,
880: X_Msg_Count => x_msg_count,
881: X_Msg_Data => x_msg_data);
882:
883: -- Check return status from the above procedure call
884: IF x_return_status = FND_API.G_RET_STS_ERROR then
885: raise FND_API.G_EXC_ERROR;
886: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
887: raise FND_API.G_EXC_UNEXPECTED_ERROR;
888: END IF;
881: X_Msg_Data => x_msg_data);
882:
883: -- Check return status from the above procedure call
884: IF x_return_status = FND_API.G_RET_STS_ERROR then
885: raise FND_API.G_EXC_ERROR;
886: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
887: raise FND_API.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
882:
883: -- Check return status from the above procedure call
884: IF x_return_status = FND_API.G_RET_STS_ERROR then
885: raise FND_API.G_EXC_ERROR;
886: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
887: raise FND_API.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
890: -- End of API body.
883: -- Check return status from the above procedure call
884: IF x_return_status = FND_API.G_RET_STS_ERROR then
885: raise FND_API.G_EXC_ERROR;
886: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
887: raise FND_API.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
890: -- End of API body.
891: --
888: END IF;
889:
890: -- End of API body.
891: --
892: IF FND_API.to_Boolean( p_commit )
893: THEN
894: COMMIT WORK;
895: END IF;
896:
899: p_data => x_msg_data
900: );
901:
902: EXCEPTION
903: WHEN FND_API.G_EXC_ERROR THEN
904: ROLLBACK TO CREATE_DEBRIEF_LINE_PUB;
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: FND_MSG_PUB.Count_And_Get (
907: P_COUNT => X_MSG_COUNT
901:
902: EXCEPTION
903: WHEN FND_API.G_EXC_ERROR THEN
904: ROLLBACK TO CREATE_DEBRIEF_LINE_PUB;
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: FND_MSG_PUB.Count_And_Get (
907: P_COUNT => X_MSG_COUNT
908: ,P_DATA => X_MSG_DATA);
909:
906: FND_MSG_PUB.Count_And_Get (
907: P_COUNT => X_MSG_COUNT
908: ,P_DATA => X_MSG_DATA);
909:
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: --dbms_output.put_line('sqlerr:'||sqlerrm);
912: --dbms_output.put_line('sqlcode:'||sqlcode);
913: ROLLBACK TO CREATE_DEBRIEF_LINE_PUB;
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: --dbms_output.put_line('sqlerr:'||sqlerrm);
912: --dbms_output.put_line('sqlcode:'||sqlcode);
913: ROLLBACK TO CREATE_DEBRIEF_LINE_PUB;
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
915: FND_MSG_PUB.Count_And_Get (
916: P_COUNT => X_MSG_COUNT
917: ,P_DATA => X_MSG_DATA);
918:
919: WHEN OTHERS THEN
920: --dbms_output.put_line('sqlerr:'||sqlerrm);
921: --dbms_output.put_line('sqlcode:'||sqlcode);
922: ROLLBACK TO CREATE_DEBRIEF_LINE_PUB;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: IF FND_MSG_PUB.Check_Msg_Level
925: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
926: THEN
927: FND_MSG_PUB.Add_Exc_Msg (
936: End Create_debrief_lines;
937:
938: PROCEDURE Update_debrief_line(
939: P_Api_Version_Number IN NUMBER,
940: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
941: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
942: P_Upd_tskassgnstatus IN VARCHAR2 ,
943: P_Task_Assignment_status IN VARCHAR2 ,
944: P_DEBRIEF_LINE_Rec IN DEBRIEF_LINE_Rec_Type,
937:
938: PROCEDURE Update_debrief_line(
939: P_Api_Version_Number IN NUMBER,
940: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
941: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
942: P_Upd_tskassgnstatus IN VARCHAR2 ,
943: P_Task_Assignment_status IN VARCHAR2 ,
944: P_DEBRIEF_LINE_Rec IN DEBRIEF_LINE_Rec_Type,
945: X_Return_Status OUT NOCOPY VARCHAR2,
956: -- Standard Start of API savepoint
957: SAVEPOINT UPDATE_DEBRIEF_LINE_PUB;
958:
959: -- Standard call to check for call compatibility.
960: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
961: p_api_version_number,
962: l_api_name,
963: G_PKG_NAME)
964: THEN
961: p_api_version_number,
962: l_api_name,
963: G_PKG_NAME)
964: THEN
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967: -- dbms_output.put_line ( 'step 3 PUB');
968: -- Initialize message list if p_init_msg_list is set to TRUE.
969: IF FND_API.to_Boolean( p_init_msg_list )
965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
966: END IF;
967: -- dbms_output.put_line ( 'step 3 PUB');
968: -- Initialize message list if p_init_msg_list is set to TRUE.
969: IF FND_API.to_Boolean( p_init_msg_list )
970: THEN
971: FND_MSG_PUB.initialize;
972: END IF;
973: -- dbms_output.put_line ( 'step 4 PUB');
972: END IF;
973: -- dbms_output.put_line ( 'step 4 PUB');
974:
975: -- Initialize API return status to SUCCESS
976: x_return_status := FND_API.G_RET_STS_SUCCESS;
977: --
978: -- API body
979:
980: -- Convert the values to ids
991: -- dbms_output.put_line ( 'step 1 PUB');
992:
993: CSF_DEBRIEF_PVT.Update_debrief_line(
994: P_Api_Version_Number => 1.0,
995: P_Init_Msg_List => FND_API.G_FALSE,
996: P_Commit => p_commit,
997: P_Upd_tskassgnstatus => P_Upd_tskassgnstatus ,
998: P_Task_Assignment_status => P_Task_Assignment_status ,
999: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
995: P_Init_Msg_List => FND_API.G_FALSE,
996: P_Commit => p_commit,
997: P_Upd_tskassgnstatus => P_Upd_tskassgnstatus ,
998: P_Task_Assignment_status => P_Task_Assignment_status ,
999: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
1000: P_DEBRIEF_LINE_Rec => l_pvt_DEBRIEF_LINE_tbl(1),
1001: X_Return_Status => x_return_status,
1002: X_Msg_Count => x_msg_count,
1003: X_Msg_Data => x_msg_data);
1003: X_Msg_Data => x_msg_data);
1004:
1005: -- dbms_output.put_line ( 'step 1 PUB');
1006: -- Check return status from the above procedure call
1007: IF x_return_status = FND_API.G_RET_STS_ERROR then
1008:
1009: raise FND_API.G_EXC_ERROR;
1010: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1011:
1005: -- dbms_output.put_line ( 'step 1 PUB');
1006: -- Check return status from the above procedure call
1007: IF x_return_status = FND_API.G_RET_STS_ERROR then
1008:
1009: raise FND_API.G_EXC_ERROR;
1010: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1011:
1012: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1013: END IF;
1006: -- Check return status from the above procedure call
1007: IF x_return_status = FND_API.G_RET_STS_ERROR then
1008:
1009: raise FND_API.G_EXC_ERROR;
1010: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1011:
1012: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1013: END IF;
1014: -- End of API body
1008:
1009: raise FND_API.G_EXC_ERROR;
1010: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1011:
1012: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1013: END IF;
1014: -- End of API body
1015: --
1016:
1013: END IF;
1014: -- End of API body
1015: --
1016:
1017: IF FND_API.to_Boolean( p_commit )
1018: THEN
1019: COMMIT WORK;
1020: END IF;
1021:
1024: p_data => x_msg_data
1025: );
1026:
1027: EXCEPTION
1028: WHEN FND_API.G_EXC_ERROR THEN
1029: ROLLBACK TO UPDATE_DEBRIEF_LINE_PUB;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: FND_MSG_PUB.Count_And_Get (
1032: P_COUNT => X_MSG_COUNT
1026:
1027: EXCEPTION
1028: WHEN FND_API.G_EXC_ERROR THEN
1029: ROLLBACK TO UPDATE_DEBRIEF_LINE_PUB;
1030: x_return_status := FND_API.G_RET_STS_ERROR;
1031: FND_MSG_PUB.Count_And_Get (
1032: P_COUNT => X_MSG_COUNT
1033: ,P_DATA => X_MSG_DATA);
1034:
1031: FND_MSG_PUB.Count_And_Get (
1032: P_COUNT => X_MSG_COUNT
1033: ,P_DATA => X_MSG_DATA);
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: ROLLBACK TO UPDATE_DEBRIEF_LINE_PUB;
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: FND_MSG_PUB.Count_And_Get (
1039: P_COUNT => X_MSG_COUNT
1033: ,P_DATA => X_MSG_DATA);
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: ROLLBACK TO UPDATE_DEBRIEF_LINE_PUB;
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: FND_MSG_PUB.Count_And_Get (
1039: P_COUNT => X_MSG_COUNT
1040: ,P_DATA => X_MSG_DATA);
1041:
1040: ,P_DATA => X_MSG_DATA);
1041:
1042: WHEN OTHERS THEN
1043: ROLLBACK TO UPDATE_DEBRIEF_LINE_PUB;
1044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1045: IF FND_MSG_PUB.Check_Msg_Level
1046: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: FND_MSG_PUB.Add_Exc_Msg (
1075: v_cursorid INTEGER;
1076: v_blockstr VARCHAR2(2000);
1077: v_dummy INTEGER;
1078: BEGIN
1079: x_return_status := fnd_api.g_ret_sts_success;
1080:
1081: FOR i IN c1
1082: LOOP
1083: v_cursorid := DBMS_SQL.open_cursor;
1088: v_dummy := DBMS_SQL.execute (v_cursorid);
1089: DBMS_SQL.variable_value (v_cursorid, ':1', x_return_status);
1090: DBMS_SQL.close_cursor (v_cursorid);
1091:
1092: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
1093: THEN
1094: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
1095: fnd_message.set_token (
1096: 'P_PROCEDURE',
1096: 'P_PROCEDURE',
1097: i.hook_package || '.' || i.hook_api
1098: );
1099: fnd_msg_pub.add;
1100: x_return_status := fnd_api.g_ret_sts_unexp_error;
1101: RAISE fnd_api.g_exc_unexpected_error;
1102: x_return_status := fnd_api.g_ret_sts_unexp_error;
1103: RAISE fnd_api.g_exc_unexpected_error;
1104: END IF;
1097: i.hook_package || '.' || i.hook_api
1098: );
1099: fnd_msg_pub.add;
1100: x_return_status := fnd_api.g_ret_sts_unexp_error;
1101: RAISE fnd_api.g_exc_unexpected_error;
1102: x_return_status := fnd_api.g_ret_sts_unexp_error;
1103: RAISE fnd_api.g_exc_unexpected_error;
1104: END IF;
1105:
1098: );
1099: fnd_msg_pub.add;
1100: x_return_status := fnd_api.g_ret_sts_unexp_error;
1101: RAISE fnd_api.g_exc_unexpected_error;
1102: x_return_status := fnd_api.g_ret_sts_unexp_error;
1103: RAISE fnd_api.g_exc_unexpected_error;
1104: END IF;
1105:
1106: IF x_return_status IS NULL
1099: fnd_msg_pub.add;
1100: x_return_status := fnd_api.g_ret_sts_unexp_error;
1101: RAISE fnd_api.g_exc_unexpected_error;
1102: x_return_status := fnd_api.g_ret_sts_unexp_error;
1103: RAISE fnd_api.g_exc_unexpected_error;
1104: END IF;
1105:
1106: IF x_return_status IS NULL
1107: THEN
1106: IF x_return_status IS NULL
1107: THEN
1108: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
1109: fnd_msg_pub.add;
1110: x_return_status := fnd_api.g_ret_sts_unexp_error;
1111: RAISE fnd_api.g_exc_unexpected_error;
1112: END IF;
1113: END LOOP;
1114: EXCEPTION
1107: THEN
1108: fnd_message.set_name ('JTF', 'JTF_TASK_MISSING_RETURN_STATUS');
1109: fnd_msg_pub.add;
1110: x_return_status := fnd_api.g_ret_sts_unexp_error;
1111: RAISE fnd_api.g_exc_unexpected_error;
1112: END IF;
1113: END LOOP;
1114: EXCEPTION
1115: WHEN fnd_api.g_exc_unexpected_error
1111: RAISE fnd_api.g_exc_unexpected_error;
1112: END IF;
1113: END LOOP;
1114: EXCEPTION
1115: WHEN fnd_api.g_exc_unexpected_error
1116: THEN
1117: x_return_status := fnd_api.g_ret_sts_unexp_error;
1118: WHEN OTHERS
1119: THEN
1113: END LOOP;
1114: EXCEPTION
1115: WHEN fnd_api.g_exc_unexpected_error
1116: THEN
1117: x_return_status := fnd_api.g_ret_sts_unexp_error;
1118: WHEN OTHERS
1119: THEN
1120: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
1121: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
1119: THEN
1120: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
1121: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
1122: fnd_msg_pub.add;
1123: x_return_status := fnd_api.g_ret_sts_unexp_error;
1124: END;
1125:
1126: PROCEDURE set_auto_debrief (p_auto_debrief boolean) IS
1127: begin