108: , x_number => L_Number );
109: FND_MESSAGE.Set_Name ( 'PA', 'PA_ACTION_NAME_ERR');
110: FND_MESSAGE.Set_Token ( 'ACTION_NAME', L_Name );
111: FND_MESSAGE.Set_Token ( 'MESSAGE', P_Msg );
112: FND_MSG_PUB.Add;
113:
114: END Add_Msg;
115:
116:
168: ;
169:
170: BEGIN
171:
172: FND_MSG_PUB.Initialize;
173: L_req_list := NULL;
174:
175: l_dummy := NULL;
176: OPEN c3;
178: CLOSE c3;
179:
180: IF l_dummy IS NULL THEN
181: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );
182: FND_MSG_PUB.Add;
183: RETURN G_NO;
184: END IF;
185:
186: OPEN c1;
292: AND NVL(shippable_item_flag, 'N') = 'Y';
293:
294: BEGIN
295:
296: FND_MSG_PUB.Initialize;
297: L_req_list := NULL;
298:
299: l_dummy := NULL;
300: OPEN c1;
302: CLOSE c1;
303:
304: IF l_dummy IS NULL THEN
305: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );
306: FND_MSG_PUB.Add;
307: RETURN G_NO;
308: END IF;
309:
310: IF P_Quantity IS NULL THEN
551: AND gl.currency_code = p_currency_code;
552:
553: BEGIN
554:
555: FND_MSG_PUB.Initialize;
556: L_req_list := NULL;
557:
558: l_dummy := NULL;
559: OPEN c1;
561: CLOSE c1;
562:
563: IF l_dummy IS NULL THEN
564: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );
565: FND_MSG_PUB.Add;
566: RETURN G_NO;
567: END IF;
568:
569: IF P_Destination_Type_Code IS NULL THEN
677: loop
678: fetch pi into l_error_code;
679: exit when pi%notfound;
680: FND_MESSAGE.Set_Name('OKE' , l_error_code);
681: FND_MSG_PUB.Add;
682: end loop;
683: close pi;
684: if ( l_error_code is not null ) then
685: l_ret := G_NO;
749: END IF;
750: IF l_Msg_Token3 IS NOT NULL THEN
751: FND_MESSAGE.SET_TOKEN('patc_msg_token3', l_Msg_Token3);
752: END IF;
753: FND_MSG_PUB.Add;
754: l_ret := G_NO;
755: END IF;
756: END IF;
757: