eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKE_ACTION_VALIDATIONS_PKG dependencies on FND_MESSAGE

Line 12: FND_MESSAGE.Set_Name ( 'OKE', name );

8: PROCEDURE Add_Attr_To_Required_List( name VARCHAR2 ) IS
9: l_msg VARCHAR2(2000) := NULL;
10: BEGIN
11: IF name LIKE 'OKE%' THEN
12: FND_MESSAGE.Set_Name ( 'OKE', name );
13: l_msg := FND_MESSAGE.Get;
14: ELSE
15: l_msg := name;
16: END IF;

Line 13: l_msg := FND_MESSAGE.Get;

9: l_msg VARCHAR2(2000) := NULL;
10: BEGIN
11: IF name LIKE 'OKE%' THEN
12: FND_MESSAGE.Set_Name ( 'OKE', name );
13: l_msg := FND_MESSAGE.Get;
14: ELSE
15: l_msg := name;
16: END IF;
17: IF L_req_list IS NOT NULL THEN

Line 18: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_LIST' ); -- 'START, END' for left2right and reverse for right2left

14: ELSE
15: l_msg := name;
16: END IF;
17: IF L_req_list IS NOT NULL THEN
18: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_LIST' ); -- 'START, END' for left2right and reverse for right2left
19: FND_MESSAGE.Set_Token ( 'START', L_req_list );
20: FND_MESSAGE.Set_Token ( 'END', L_msg );
21: L_req_list := FND_MESSAGE.Get;
22: ELSE

Line 19: FND_MESSAGE.Set_Token ( 'START', L_req_list );

15: l_msg := name;
16: END IF;
17: IF L_req_list IS NOT NULL THEN
18: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_LIST' ); -- 'START, END' for left2right and reverse for right2left
19: FND_MESSAGE.Set_Token ( 'START', L_req_list );
20: FND_MESSAGE.Set_Token ( 'END', L_msg );
21: L_req_list := FND_MESSAGE.Get;
22: ELSE
23: L_req_list := l_msg ;

Line 20: FND_MESSAGE.Set_Token ( 'END', L_msg );

16: END IF;
17: IF L_req_list IS NOT NULL THEN
18: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_LIST' ); -- 'START, END' for left2right and reverse for right2left
19: FND_MESSAGE.Set_Token ( 'START', L_req_list );
20: FND_MESSAGE.Set_Token ( 'END', L_msg );
21: L_req_list := FND_MESSAGE.Get;
22: ELSE
23: L_req_list := l_msg ;
24: END IF;

Line 21: L_req_list := FND_MESSAGE.Get;

17: IF L_req_list IS NOT NULL THEN
18: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_LIST' ); -- 'START, END' for left2right and reverse for right2left
19: FND_MESSAGE.Set_Token ( 'START', L_req_list );
20: FND_MESSAGE.Set_Token ( 'END', L_msg );
21: L_req_list := FND_MESSAGE.Get;
22: ELSE
23: L_req_list := l_msg ;
24: END IF;
25: END Add_Attr_To_Required_List;

Line 73: --FND_MESSAGE.Set_Name('OKE', 'OKE_PROJECT_NOT_SETUP');

69: FETCH Prj_C INTO L_Value;
70: CLOSE Prj_C;
71:
72: IF L_Value IS NULL THEN
73: --FND_MESSAGE.Set_Name('OKE', 'OKE_PROJECT_NOT_SETUP');
74: --L_Msg := FND_MESSAGE.Get;
75: -- l_msg := 'Project is not set up in project manufacturing';
76: -- Add_Msg ( P_Action_ID, L_Msg );
77: L_Result := FALSE;

Line 74: --L_Msg := FND_MESSAGE.Get;

70: CLOSE Prj_C;
71:
72: IF L_Value IS NULL THEN
73: --FND_MESSAGE.Set_Name('OKE', 'OKE_PROJECT_NOT_SETUP');
74: --L_Msg := FND_MESSAGE.Get;
75: -- l_msg := 'Project is not set up in project manufacturing';
76: -- Add_Msg ( P_Action_ID, L_Msg );
77: L_Result := FALSE;
78: ELSE

Line 109: FND_MESSAGE.Set_Name ( 'PA', 'PA_ACTION_NAME_ERR');

105:
106: PA_DELIVERABLE_UTILS.Get_Action_Detail ( p_dlvr_action_ver_id => L_ID
107: , x_name => L_Name
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:

Line 110: FND_MESSAGE.Set_Token ( 'ACTION_NAME', L_Name );

106: PA_DELIVERABLE_UTILS.Get_Action_Detail ( p_dlvr_action_ver_id => L_ID
107: , x_name => L_Name
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;

Line 111: FND_MESSAGE.Set_Token ( 'MESSAGE', P_Msg );

107: , x_name => L_Name
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:

Line 181: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );

177: FETCH c3 INTO l_dummy;
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:

Line 212: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');

208: END IF;
209:
210: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
211: -- l_msg := 'PJM setup is required';
212: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
213: L_Msg := FND_MESSAGE.Get;
214: Add_Msg ( P_Action_ID, L_Msg );
215: l_ret := G_NO;
216: END IF;

Line 213: L_Msg := FND_MESSAGE.Get;

209:
210: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
211: -- l_msg := 'PJM setup is required';
212: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
213: L_Msg := FND_MESSAGE.Get;
214: Add_Msg ( P_Action_ID, L_Msg );
215: l_ret := G_NO;
216: END IF;
217:

Line 222: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST' );

218: IF P_Expected_Date IS NULL THEN
219: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
220: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
221: -- l_msg := 'The date is past due';
222: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST' );
223: L_Msg := FND_MESSAGE.Get;
224: Add_Msg ( P_Action_ID, L_Msg );
225: l_ret := G_NO;
226: END IF;

Line 223: L_Msg := FND_MESSAGE.Get;

219: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
220: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
221: -- l_msg := 'The date is past due';
222: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST' );
223: L_Msg := FND_MESSAGE.Get;
224: Add_Msg ( P_Action_ID, L_Msg );
225: l_ret := G_NO;
226: END IF;
227:

Line 234: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');

230: END IF;
231:
232: IF L_req_list IS NOT NULL THEN
233: -- l_msg := 'The following data are required: ' || L_req_list;
234: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
235: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
236: L_Msg := FND_MESSAGE.Get;
237: Add_Msg ( P_Action_ID, L_Msg );
238: l_ret := G_NO;

Line 235: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );

231:
232: IF L_req_list IS NOT NULL THEN
233: -- l_msg := 'The following data are required: ' || L_req_list;
234: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
235: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
236: L_Msg := FND_MESSAGE.Get;
237: Add_Msg ( P_Action_ID, L_Msg );
238: l_ret := G_NO;
239: END IF;

Line 236: L_Msg := FND_MESSAGE.Get;

232: IF L_req_list IS NOT NULL THEN
233: -- l_msg := 'The following data are required: ' || L_req_list;
234: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
235: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
236: L_Msg := FND_MESSAGE.Get;
237: Add_Msg ( P_Action_ID, L_Msg );
238: l_ret := G_NO;
239: END IF;
240:

Line 305: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );

301: FETCH c1 INTO L_Item_ID, L_Org_ID, L_ID, L_Project_ID, l_dummy;
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:

Line 338: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOSHIP');

334: CLOSE c2;
335:
336: IF l_Dummy IS NULL THEN
337: -- l_msg := 'Item is not shippable';
338: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOSHIP');
339: L_Msg := FND_MESSAGE.Get;
340: Add_Msg ( P_Action_ID, L_Msg );
341: l_ret := G_NO;
342: END IF;

Line 339: L_Msg := FND_MESSAGE.Get;

335:
336: IF l_Dummy IS NULL THEN
337: -- l_msg := 'Item is not shippable';
338: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOSHIP');
339: L_Msg := FND_MESSAGE.Get;
340: Add_Msg ( P_Action_ID, L_Msg );
341: l_ret := G_NO;
342: END IF;
343: END IF;

Line 369: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_WSH' );

365: IF P_Expected_Date IS NULL THEN
366: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
367: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
368: -- l_msg := 'The date is past due';
369: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_WSH' );
370: L_Msg := FND_MESSAGE.Get;
371: Add_Msg ( P_Action_ID, L_Msg );
372: l_ret := G_NO;
373: END IF;

Line 370: L_Msg := FND_MESSAGE.Get;

366: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
367: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
368: -- l_msg := 'The date is past due';
369: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_WSH' );
370: L_Msg := FND_MESSAGE.Get;
371: Add_Msg ( P_Action_ID, L_Msg );
372: l_ret := G_NO;
373: END IF;
374:

Line 377: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');

373: END IF;
374:
375: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
376: -- l_msg := 'PJM setup is required';
377: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
378: L_Msg := FND_MESSAGE.Get;
379: Add_Msg ( P_Action_ID, L_Msg );
380: l_ret := G_NO;
381: END IF;

Line 378: L_Msg := FND_MESSAGE.Get;

374:
375: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
376: -- l_msg := 'PJM setup is required';
377: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
378: L_Msg := FND_MESSAGE.Get;
379: Add_Msg ( P_Action_ID, L_Msg );
380: l_ret := G_NO;
381: END IF;
382:

Line 385: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');

381: END IF;
382:
383: IF L_req_list IS NOT NULL THEN
384: -- l_msg := 'The following data are required: ' || L_req_list;
385: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
386: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
387: L_Msg := FND_MESSAGE.Get;
388: Add_Msg ( P_Action_ID, L_Msg );
389: l_ret := G_NO;

Line 386: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );

382:
383: IF L_req_list IS NOT NULL THEN
384: -- l_msg := 'The following data are required: ' || L_req_list;
385: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
386: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
387: L_Msg := FND_MESSAGE.Get;
388: Add_Msg ( P_Action_ID, L_Msg );
389: l_ret := G_NO;
390: END IF;

Line 387: L_Msg := FND_MESSAGE.Get;

383: IF L_req_list IS NOT NULL THEN
384: -- l_msg := 'The following data are required: ' || L_req_list;
385: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
386: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
387: L_Msg := FND_MESSAGE.Get;
388: Add_Msg ( P_Action_ID, L_Msg );
389: l_ret := G_NO;
390: END IF;
391:

Line 564: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_SAVE_BEFORE_PROCEED' );

560: FETCH c1 INTO L_Item_ID, L_Org_ID, L_Project_ID, L_ID, l_dummy;
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:

Line 593: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOPO');

589: FETCH c2 INTO l_dummy;
590: CLOSE c2;
591: IF l_dummy IS NULL THEN
592: -- l_msg := 'Item not purchasable';
593: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOPO');
594: L_Msg := FND_MESSAGE.Get;
595: Add_Msg ( P_Action_ID, L_Msg );
596: l_ret := G_NO;
597: END IF;

Line 594: L_Msg := FND_MESSAGE.Get;

590: CLOSE c2;
591: IF l_dummy IS NULL THEN
592: -- l_msg := 'Item not purchasable';
593: FND_MESSAGE.Set_Name ( 'OKE', 'OKE_DTS_ITEM_NOPO');
594: L_Msg := FND_MESSAGE.Get;
595: Add_Msg ( P_Action_ID, L_Msg );
596: l_ret := G_NO;
597: END IF;
598:

Line 634: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_REQ' );

630: IF P_Expected_Date IS NULL THEN
631: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
632: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
633: -- l_msg := 'The date is past due';
634: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_REQ' );
635: L_Msg := FND_MESSAGE.Get;
636: Add_Msg ( P_Action_ID, L_Msg );
637: l_ret := G_NO;
638: END IF;

Line 635: L_Msg := FND_MESSAGE.Get;

631: Add_Attr_To_Required_List('OKE_DTS_REQ_DATE');
632: ELSIF P_Expected_Date < Trunc( SYSDATE ) THEN
633: -- l_msg := 'The date is past due';
634: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_EXP_DATE_PAST_REQ' );
635: L_Msg := FND_MESSAGE.Get;
636: Add_Msg ( P_Action_ID, L_Msg );
637: l_ret := G_NO;
638: END IF;
639:

Line 665: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');

661: END IF;
662:
663: IF L_req_list IS NOT NULL THEN
664: -- l_msg := 'The following data are required: ' || L_req_list;
665: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
666: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
667: L_Msg := FND_MESSAGE.Get;
668: Add_Msg ( P_Action_ID, L_Msg );
669: l_ret := G_NO;

Line 666: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );

662:
663: IF L_req_list IS NOT NULL THEN
664: -- l_msg := 'The following data are required: ' || L_req_list;
665: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
666: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
667: L_Msg := FND_MESSAGE.Get;
668: Add_Msg ( P_Action_ID, L_Msg );
669: l_ret := G_NO;
670: END IF;

Line 667: L_Msg := FND_MESSAGE.Get;

663: IF L_req_list IS NOT NULL THEN
664: -- l_msg := 'The following data are required: ' || L_req_list;
665: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_MISS_REQ_DATA');
666: FND_MESSAGE.Set_Token ( 'DATA', L_req_list );
667: L_Msg := FND_MESSAGE.Get;
668: Add_Msg ( P_Action_ID, L_Msg );
669: l_ret := G_NO;
670: END IF;
671:

Line 680: FND_MESSAGE.Set_Name('OKE' , l_error_code);

676: open pi;
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

Line 690: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');

686: end if;
687:
688: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
689: -- l_msg := 'PJM setup is required';
690: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
691: L_Msg := FND_MESSAGE.Get;
692: Add_Msg ( P_Action_ID, L_Msg );
693: l_ret := G_NO;
694: END IF;

Line 691: L_Msg := FND_MESSAGE.Get;

687:
688: IF NOT Check_Pjm ( P_Action_ID, L_Org_ID, L_Project_ID ) THEN
689: -- l_msg := 'PJM setup is required';
690: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_NO_PJM_SETUP');
691: L_Msg := FND_MESSAGE.Get;
692: Add_Msg ( P_Action_ID, L_Msg );
693: l_ret := G_NO;
694: END IF;
695:

Line 703: FND_MESSAGE.Set_Name('OKE' , l_error_code);

699: open pe;
700: loop
701: fetch pe into l_error_code;
702: exit when pe%notfound;
703: FND_MESSAGE.Set_Name('OKE' , l_error_code);
704: L_Msg := FND_MESSAGE.Get;
705: Add_Msg ( P_Action_ID, L_Msg );
706: end loop;
707: close pe;

Line 704: L_Msg := FND_MESSAGE.Get;

700: loop
701: fetch pe into l_error_code;
702: exit when pe%notfound;
703: FND_MESSAGE.Set_Name('OKE' , l_error_code);
704: L_Msg := FND_MESSAGE.Get;
705: Add_Msg ( P_Action_ID, L_Msg );
706: end loop;
707: close pe;
708: if ( l_error_code is not null ) then

Line 743: FND_MESSAGE.SET_NAME(l_Msg_Application, l_msg);

739: , X_billable_flag => l_billable_flag
740: );
741:
742: IF l_msg IS NOT NULL THEN
743: FND_MESSAGE.SET_NAME(l_Msg_Application, l_msg);
744: IF l_Msg_Token1 IS NOT NULL THEN
745: FND_MESSAGE.SET_TOKEN('patc_msg_token1', l_Msg_Token1);
746: END IF;
747: IF l_Msg_Token2 IS NOT NULL THEN

Line 745: FND_MESSAGE.SET_TOKEN('patc_msg_token1', l_Msg_Token1);

741:
742: IF l_msg IS NOT NULL THEN
743: FND_MESSAGE.SET_NAME(l_Msg_Application, l_msg);
744: IF l_Msg_Token1 IS NOT NULL THEN
745: FND_MESSAGE.SET_TOKEN('patc_msg_token1', l_Msg_Token1);
746: END IF;
747: IF l_Msg_Token2 IS NOT NULL THEN
748: FND_MESSAGE.SET_TOKEN('patc_msg_token2', l_Msg_Token2);
749: END IF;

Line 748: FND_MESSAGE.SET_TOKEN('patc_msg_token2', l_Msg_Token2);

744: IF l_Msg_Token1 IS NOT NULL THEN
745: FND_MESSAGE.SET_TOKEN('patc_msg_token1', l_Msg_Token1);
746: END IF;
747: IF l_Msg_Token2 IS NOT NULL THEN
748: FND_MESSAGE.SET_TOKEN('patc_msg_token2', l_Msg_Token2);
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;

Line 751: FND_MESSAGE.SET_TOKEN('patc_msg_token3', l_Msg_Token3);

747: IF l_Msg_Token2 IS NOT NULL THEN
748: FND_MESSAGE.SET_TOKEN('patc_msg_token2', l_Msg_Token2);
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;