143: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
144: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
145: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
146: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
147: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
148: , x_return_status IN OUT NOCOPY VARCHAR2
149: )
150: IS
151: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;
205: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
206: , p_control_Rec IN Bom_Rtg_Pub.Control_Rec_Type
207: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
208: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
209: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
210: , x_return_status IN OUT NOCOPY VARCHAR2
211: )
212:
213: IS
216: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
217:
218: l_return_status VARCHAR2(1);
219: l_err_text VARCHAR2(2000) ;
220: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
221:
222:
223: BEGIN
224:
221:
222:
223: BEGIN
224:
225: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
226: ('Within the Sub Operation Resource Attr. Defaulting...') ;
227: END IF ;
228:
229: l_return_status := FND_API.G_RET_STS_SUCCESS ;
310: x_rev_sub_resource_rec := l_rev_sub_resource_rec ;
311: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec ;
312:
313: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
314: Error_Handler.Write_Debug('Getting out of Operation Resource Attribute Defualting...');
315: END IF ;
316:
317:
318: EXCEPTION
316:
317:
318: EXCEPTION
319: WHEN OTHERS THEN
320: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
321: ('Some unknown error in Attribute Defaulting . . .' || SQLERRM );
322: END IF ;
323:
324:
325: l_err_text := G_PKG_NAME || ' Default (Attr. Defaulting) '
326: || substrb(SQLERRM,1,200);
327: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
328:
329: Error_Handler.Add_Error_Token
330: ( p_message_name => NULL
331: , p_message_text => l_err_text
332: , p_mesg_token_tbl => l_mesg_token_tbl
333: , x_mesg_token_tbl => l_mesg_token_tbl
449: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;
450: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
451:
452: BEGIN
453: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
454: ('Within the Sub Operation Resource Populate null columns...') ;
455: END IF ;
456:
457: -- Initialize operation exp and unexp record
458: l_rev_sub_resource_rec := p_rev_sub_resource_rec ;
459: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
460:
461: -- Exposed Column
462: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
463: ('Populate null exposed columns......') ;
464: END IF ;
465:
466: IF l_rev_sub_resource_rec.ACD_Type IS NULL
625: -- Also copy the Unexposed Columns from Database to New record
626: --
627:
628:
629: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
630: ('Populate Null Unexposed columns......') ;
631: END IF ;
632:
633:
698: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
699: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
700: , x_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Rec_Type
701: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
702: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
703: , x_return_status IN OUT NOCOPY VARCHAR2
704: )
705: IS
706: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type ;
770: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
771: , p_control_Rec IN Bom_Rtg_Pub.Control_Rec_Type
772: , x_rev_sub_resource_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
773: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
774: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
775: , x_return_status IN OUT NOCOPY VARCHAR2
776: )
777:
778: IS
780: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
781:
782: l_return_status VARCHAR2(1);
783: l_err_text VARCHAR2(2000) ;
784: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
785: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
786:
787:
788:
781:
782: l_return_status VARCHAR2(1);
783: l_err_text VARCHAR2(2000) ;
784: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
785: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
786:
787:
788:
789:
788:
789:
790: BEGIN
791:
792: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
793: ('Within the Sub Operation Resource Entity Defaulting...') ;
794: END IF ;
795:
796: x_return_status := FND_API.G_RET_STS_SUCCESS;
874: -- Call Op Resource : BOM_Default_Op_Res.Get_Available_24hs_flag
875: --
876: ************************************************************/
877: /**** Commenting the following validation as per bug 2661684
878: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
879: ('Default Assigned Units. . . . ' || l_return_status) ;
880: END IF ;
881:
882: IF NVL(l_rev_sub_resource_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
901: l_Token_Tbl(2).token_value :=
902: p_rev_sub_resource_rec.schedule_sequence_number ;
903:
904: -- Set Warning Message
905: Error_Handler.Add_Error_Token
906: ( p_message_name => 'BOM_SUB_RES_DEF_ASSGN_UNIT'
907: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
908: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
909: , p_Token_Tbl => l_Token_Tbl
1041:
1042:
1043: EXCEPTION
1044: WHEN OTHERS THEN
1045: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1046: ('Some unknown error in Entity Defaulting . . .' || SQLERRM );
1047: END IF ;
1048:
1049:
1050: l_err_text := G_PKG_NAME || ' Defaulting (Entity Defaulting) '
1051: || substrb(SQLERRM,1,200);
1052: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1053:
1054: Error_Handler.Add_Error_Token
1055: ( p_message_name => NULL
1056: , p_message_text => l_err_text
1057: , p_mesg_token_tbl => l_mesg_token_tbl
1058: , x_mesg_token_tbl => l_mesg_token_tbl