37: BEGIN
38:
39:
40: -- Initialize the Message Stack
41: FND_MSG_PUB.Initialize;
42:
43: var_age_for_expired_lots := p_age_for_expired_lots;
44: --dbms_output.enable(1000000);
45:
105:
106: Exception
107: When others then
108: IF
109: FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
110: THEN
111: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
112: , 'Update Age for Lot Attributes '
113: );
107: When others then
108: IF
109: FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
110: THEN
111: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
112: , 'Update Age for Lot Attributes '
113: );
114: END IF;
115:
112: , 'Update Age for Lot Attributes '
113: );
114: END IF;
115:
116: x_errbuf := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
117: x_retcode := 2;
118: RAISE;
119:
120: END update_lot_age;