189: , p_mesg_token_tbl => x_mesg_token_tbl
190: , x_mesg_token_tbl => x_mesg_token_tbl
191: );
192:
193: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR ;
194:
195: END Query_Row;
196:
197:
230: -- Initialize Common Record and Status
231: --
232: l_change_line_rec := p_change_line_rec ;
233: l_change_line_unexp_rec := p_change_line_unexp_rec ;
234: l_return_status := FND_API.G_RET_STS_SUCCESS ;
235: x_return_status := FND_API.G_RET_STS_SUCCESS ;
236:
237: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
238: ('Performing Database Writes . . .') ;
231: --
232: l_change_line_rec := p_change_line_rec ;
233: l_change_line_unexp_rec := p_change_line_unexp_rec ;
234: l_return_status := FND_API.G_RET_STS_SUCCESS ;
235: x_return_status := FND_API.G_RET_STS_SUCCESS ;
236:
237: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
238: ('Performing Database Writes . . .') ;
239: END IF ;
252: , x_return_status => l_temp_return_status
253: , x_mesg_token_tbl => l_temp_mesg_token_tbl
254: ) ;
255:
256: IF l_temp_return_status <> FND_API.G_RET_STS_SUCCESS
257: THEN
258: l_return_status := l_temp_return_status ;
259: l_mesg_token_Tbl := l_temp_Mesg_Token_Tbl ;
260: END IF ;
273: , x_return_status => l_temp_return_status
274: , x_mesg_token_tbl => l_temp_mesg_token_tbl
275: ) ;
276:
277: IF l_temp_return_status <> FND_API.G_RET_STS_SUCCESS
278: THEN
279: l_return_status := l_temp_return_status ;
280: l_mesg_token_Tbl := l_temp_Mesg_Token_Tbl ;
281: END IF ;
295: , x_return_status => l_temp_return_status
296: , x_mesg_token_tbl => l_temp_mesg_token_tbl
297: ) ;
298:
299: IF l_temp_return_status <> FND_API.G_RET_STS_SUCCESS
300: THEN
301: l_return_status := l_temp_return_status ;
302: l_mesg_token_Tbl := l_temp_Mesg_Token_Tbl ;
303: END IF ;
328: , x_mesg_token_tbl => l_mesg_token_tbl
329: ) ;
330:
331: -- Return the status and message table.
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: x_mesg_token_tbl := l_mesg_token_tbl ;
334:
335: END Perform_Writes;
336:
368:
369: l_change_id NUMBER;
370: BEGIN
371:
372: l_return_status := FND_API.G_RET_STS_SUCCESS ;
373: x_return_status := FND_API.G_RET_STS_SUCCESS ;
374:
375: l_change_id := p_change_line_unexp_rec.change_id;
376: IF l_change_id IS NULL THEN
369: l_change_id NUMBER;
370: BEGIN
371:
372: l_return_status := FND_API.G_RET_STS_SUCCESS ;
373: x_return_status := FND_API.G_RET_STS_SUCCESS ;
374:
375: l_change_id := p_change_line_unexp_rec.change_id;
376: IF l_change_id IS NULL THEN
377: IF NOT c_csr %ISOPEN
521: ) ;
522: END IF ;
523:
524: -- Return the status and message table.
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
526: x_mesg_token_tbl := l_mesg_token_tbl ;
527:
528: END Insert_Row ;
529:
553: l_Token_Tbl Error_Handler.Token_Tbl_Type;
554:
555: BEGIN
556:
557: l_return_status := FND_API.G_RET_STS_SUCCESS ;
558: x_return_status := FND_API.G_RET_STS_SUCCESS ;
559:
560: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update change line . . .') ;
561: END IF ;
554:
555: BEGIN
556:
557: l_return_status := FND_API.G_RET_STS_SUCCESS ;
558: x_return_status := FND_API.G_RET_STS_SUCCESS ;
559:
560: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update change line . . .') ;
561: END IF ;
562:
612: ) ;
613: END IF ;
614:
615: -- Return the status and message table.
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
617: x_mesg_token_tbl := l_mesg_token_tbl ;
618:
619: END Update_Row ;
620:
645: l_Token_Tbl Error_Handler.Token_Tbl_Type;
646:
647:
648: BEGIN
649: l_return_status := FND_API.G_RET_STS_SUCCESS ;
650: x_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
652: --
653: -- Initialize Common Record and Status
646:
647:
648: BEGIN
649: l_return_status := FND_API.G_RET_STS_SUCCESS ;
650: x_return_status := FND_API.G_RET_STS_SUCCESS ;
651:
652: --
653: -- Initialize Common Record and Status
654: --
695: ) ;
696: END IF ;
697:
698: -- Return the status and message table.
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
700: x_mesg_token_tbl := l_mesg_token_tbl ;
701:
702: END Delete_Row ;
703:
754: l_err_text VARCHAR2(2000);
755:
756: BEGIN
757:
758: l_return_status := FND_API.G_RET_STS_SUCCESS;
759:
760: l_user_id := Eng_Globals.Get_User_Id;
761: l_login_id := Eng_Globals.Get_Login_Id;
762: l_request_id := ENG_GLOBALS.Get_request_id;
782: IF p_change_line_rec.pk1_name IS NOT NULL
783: THEN
784: --l_org_id := ENG_Val_To_Id.ORGANIZATION(p_change_line_rec.pk2_name, l_err_text);
785: l_change_subject_unexp_rec.pk2_value := l_org_id;
786: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num)
787: THEN
788: l_inv_item_id := ENG_Val_To_Id.revised_item(
789: p_change_line_rec.pk1_name,
790: l_org_id,
790: l_org_id,
791: l_err_text);
792: l_change_subject_unexp_rec.pk1_value := l_inv_item_id;
793: IF l_inv_item_id IS NOT NULL
794: AND l_inv_item_id <> fnd_api.g_miss_num
795: THEN
796: IF p_change_line_rec.pk3_name IS NOT NULL
797: THEN
798: l_rev_id := ENG_Val_To_Id.revised_item_code(
799: l_inv_item_id,
800: l_org_id,
801: p_change_line_rec.pk3_name);
802: l_change_subject_unexp_rec.pk3_value := l_rev_id;
803: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
804: THEN
805: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
806: ELSE
807: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
801: p_change_line_rec.pk3_name);
802: l_change_subject_unexp_rec.pk3_value := l_rev_id;
803: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
804: THEN
805: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
806: ELSE
807: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
808: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
809: error_handler.add_error_token(
810: p_message_name => 'ENG_PK3_NAME_INVALID',
811: p_mesg_token_tbl => l_mesg_token_tbl,
812: x_mesg_token_tbl => l_mesg_token_tbl,
813: p_token_tbl => l_token_tbl);
814: l_return_status := FND_API.G_RET_STS_ERROR;
815: END IF; --end of l_rev_id IS NOT NULL
816: END IF; -- end of pk3_name is not null
817: ELSE
818: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
821: p_message_name => 'ENG_PK1_NAME_INVALID',
822: p_mesg_token_tbl => l_mesg_token_tbl,
823: x_mesg_token_tbl => l_mesg_token_tbl,
824: p_token_tbl => l_token_tbl );
825: l_return_status := FND_API.G_RET_STS_ERROR;
826: END IF; -- l_inv_item_id IS NOT NULL
827: ELSE
828: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
829: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
831: p_message_name => 'ENG_PK2_NAME_INVALID',
832: p_mesg_token_tbl => l_mesg_token_tbl,
833: x_mesg_token_tbl => l_mesg_token_tbl,
834: p_token_tbl => l_token_tbl );
835: l_return_status := FND_API.G_RET_STS_ERROR;
836: END IF; --l_org_id IS NOT NULL
837: END IF; -- p_eco_rec.Pk1_Name is not null
838: ELSIF l_entity_name = 'EGO_ITEM'
839: THEN
841: IF p_change_line_rec.pk1_name IS NOT NULL
842: THEN
843: --l_org_id := ENG_Val_To_Id.ORGANIZATION(p_change_line_rec.pk2_name, l_err_text);
844: l_change_subject_unexp_rec.pk2_value := l_org_id;
845: IF (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM)
846: THEN
847: l_rev_id := ENG_Val_To_Id.revised_item (p_change_line_rec.pk1_name,
848: l_org_id,
849: l_err_text);
847: l_rev_id := ENG_Val_To_Id.revised_item (p_change_line_rec.pk1_name,
848: l_org_id,
849: l_err_text);
850: l_change_subject_unexp_rec.pk1_value := l_rev_id;
851: IF (l_rev_id IS NOT NULL AND l_rev_id <> FND_API.G_MISS_NUM)
852: THEN
853: l_return_status := 'S';
854: ELSE
855: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
858: p_message_name => 'ENG_PK1_NAME_INVALID',
859: p_mesg_token_tbl => l_mesg_token_tbl,
860: x_mesg_token_tbl => l_mesg_token_tbl,
861: p_token_tbl => l_token_tbl );
862: l_return_status := FND_API.G_RET_STS_ERROR;
863: END IF; --l_rev_id IS NOT NULL
864: ELSE
865: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
866: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
868: p_message_name => 'ENG_PK2_NAME_INVALID',
869: p_mesg_token_tbl => l_mesg_token_tbl,
870: x_mesg_token_tbl => l_mesg_token_tbl,
871: p_token_tbl => l_token_tbl );
872: l_return_status := FND_API.G_RET_STS_ERROR;
873: END IF; --l_org_id IS NOT NULL
874: END IF; -- p_eco_rec.Pk1_Name is not null
875: END IF; --End Of If of check for l_entity_name
876: