6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ENG_Default_Eco_Revision';
7:
8: -- Package global used within the package.
9:
10: g_eco_revision_rec ENG_Eco_PUB.Eco_Revision_Rec_Type;
11:
12: -- Get functions.
13:
14: FUNCTION Get_Revision
110: * In case of an error the Mesg Token table is filled and
111: * an error status is set.
112: **************************************************************************/
113: PROCEDURE Attribute_Defaulting
114: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
115: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
116: , x_eco_revision_rec IN OUT NOCOPY ENG_Eco_PUB.Eco_Revision_Rec_Type
117: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
118: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
111: * an error status is set.
112: **************************************************************************/
113: PROCEDURE Attribute_Defaulting
114: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
115: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
116: , x_eco_revision_rec IN OUT NOCOPY ENG_Eco_PUB.Eco_Revision_Rec_Type
117: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
118: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
119: , x_Return_Status OUT NOCOPY VARCHAR2
112: **************************************************************************/
113: PROCEDURE Attribute_Defaulting
114: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
115: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
116: , x_eco_revision_rec IN OUT NOCOPY ENG_Eco_PUB.Eco_Revision_Rec_Type
117: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
118: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
119: , x_Return_Status OUT NOCOPY VARCHAR2
120: )
113: PROCEDURE Attribute_Defaulting
114: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
115: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
116: , x_eco_revision_rec IN OUT NOCOPY ENG_Eco_PUB.Eco_Revision_Rec_Type
117: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
118: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
119: , x_Return_Status OUT NOCOPY VARCHAR2
120: )
121: IS
118: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
119: , x_Return_Status OUT NOCOPY VARCHAR2
120: )
121: IS
122: l_Eco_Rev_Unexp_Rec Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type;
123: BEGIN
124:
125: -- Initialize g_eco_revision_rec
126:
183: * database, for all those columns that the user has left blank.
184: * User filled columns will not be overwritten.
185: ***************************************************************************/
186: PROCEDURE Populate_Null_Columns
187: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
184: * User filled columns will not be overwritten.
185: ***************************************************************************/
186: PROCEDURE Populate_Null_Columns
187: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
185: ***************************************************************************/
186: PROCEDURE Populate_Null_Columns
187: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
193: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
186: PROCEDURE Populate_Null_Columns
187: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
193: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
194: )
187: ( p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
193: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
194: )
195: IS
188: , p_old_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
189: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
190: , p_Old_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
191: , x_Eco_Revision_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
193: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
194: )
195: IS
196: l_eco_revision_rec ENG_Eco_PUB.Eco_Revision_Rec_Type :=
192: , x_Eco_Rev_Unexp_Rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
193: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
194: )
195: IS
196: l_eco_revision_rec ENG_Eco_PUB.Eco_Revision_Rec_Type :=
197: p_eco_revision_rec;
198: l_Eco_Rev_Unexp_Rec Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type :=
199: p_Eco_Rev_Unexp_Rec;
200: BEGIN
194: )
195: IS
196: l_eco_revision_rec ENG_Eco_PUB.Eco_Revision_Rec_Type :=
197: p_eco_revision_rec;
198: l_Eco_Rev_Unexp_Rec Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type :=
199: p_Eco_Rev_Unexp_Rec;
200: BEGIN
201:
202: --dbms_output.put_line('performing complete record . . . ');