DBA Data[Home] [Help]

APPS.ITG_SETUP dependencies on ITG_SETUP

Line 1: PACKAGE BODY itg_setup AS

1: PACKAGE BODY itg_setup AS
2: /* $Header: itghlocb.pls 120.3 2006/07/28 12:34:37 bsaratna noship $ */
3: l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'itg_setup';

Line 5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'itg_setup';

1: PACKAGE BODY itg_setup AS
2: /* $Header: itghlocb.pls 120.3 2006/07/28 12:34:37 bsaratna noship $ */
3: l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'itg_setup';
6: G_EXEC_PROC_NAME VARCHAR2(30) := 'setup';
7:
8:
9: -- Name

Line 80: x_errbuf := 'ITG Setup failed (step 1) : ' || l_retmesg;

76: END IF;
77:
78: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
79: x_retcode := 2;
80: x_errbuf := 'ITG Setup failed (step 1) : ' || l_retmesg;
81: RETURN;
82: END IF;
83:
84: setup_ecx_tp_header(l_retmesg,l_retcode,l_tp_hdr_id,l_location_code,'[email protected]');

Line 93: x_errbuf := 'ITG Setup failed (step 2): ' || l_retmesg;

89: END IF;
90:
91: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
92: x_retcode := 2;
93: x_errbuf := 'ITG Setup failed (step 2): ' || l_retmesg;
94: RETURN;
95: END IF;
96:
97: setup_tp_details(l_retmesg,l_retcode,l_tp_hdr_id);

Line 105: x_errbuf := 'ITG Setup failed (step 3): ' || l_retmesg;

101: END IF;
102:
103: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
104: x_retcode := 2;
105: x_errbuf := 'ITG Setup failed (step 3): ' || l_retmesg;
106: RETURN;
107: END IF;
108:
109: trigger_control(l_retmesg,l_retcode,true);

Line 117: x_errbuf := 'ITG Setup failed (step 4): ' || l_retmesg;

113: END IF;
114:
115: IF l_retcode <> FND_API.G_RET_STS_SUCCESS THEN
116: x_retcode := 2;
117: x_errbuf := 'ITG Setup failed (step 4): ' || l_retmesg;
118: RETURN;
119: END IF;
120:
121: x_retcode := 0;

Line 125: itg_debug_pub.Add('EXITING itg_setup.setup successful', 2);

121: x_retcode := 0;
122: x_errbuf := 'Successful';
123:
124: IF (l_Debug_Level <= 2) THEN
125: itg_debug_pub.Add('EXITING itg_setup.setup successful', 2);
126: END IF;
127:
128: -- Exception Handling
129: EXCEPTION

Line 133: x_errbuf := 'ITG Setup failed : ' || x_errbuf;

129: EXCEPTION
130: WHEN OTHERS THEN
131: x_retcode := 2;
132: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
133: x_errbuf := 'ITG Setup failed : ' || x_errbuf;
134:
135: IF (l_Debug_Level <= 6) THEN
136: itg_debug_pub.Add(x_errbuf, 6);
137: itg_debug_pub.Add('EXITING itg_setup.setup fails,returns on exception', 6);

Line 137: itg_debug_pub.Add('EXITING itg_setup.setup fails,returns on exception', 6);

133: x_errbuf := 'ITG Setup failed : ' || x_errbuf;
134:
135: IF (l_Debug_Level <= 6) THEN
136: itg_debug_pub.Add(x_errbuf, 6);
137: itg_debug_pub.Add('EXITING itg_setup.setup fails,returns on exception', 6);
138: END IF;
139:
140: END;
141:

Line 209: x_errbuf := 'Missing mandatory parameter for itg_setup.setup_hr_loc';

205: x_retcode := FND_API.G_RET_STS_ERROR;
206: -- Not using a translated message her, since this condition will never occur
207: -- the Concurrent Request submit form itself will validate that input parameters
208: -- are entered by the user.
209: x_errbuf := 'Missing mandatory parameter for itg_setup.setup_hr_loc';
210: IF (l_Debug_Level <= 6 ) THEN
211: itg_debug_pub.Add('Missing mandatory parameter for itg_setup.setup_hr_loc',6);
212: END IF;
213:

Line 211: itg_debug_pub.Add('Missing mandatory parameter for itg_setup.setup_hr_loc',6);

207: -- the Concurrent Request submit form itself will validate that input parameters
208: -- are entered by the user.
209: x_errbuf := 'Missing mandatory parameter for itg_setup.setup_hr_loc';
210: IF (l_Debug_Level <= 6 ) THEN
211: itg_debug_pub.Add('Missing mandatory parameter for itg_setup.setup_hr_loc',6);
212: END IF;
213:
214: RETURN;
215: END IF;

Line 292: itg_debug_pub.Add('EXITING itg_setup.setup_hr_loc returns normal' ,2);

288: x_retcode := FND_API.G_RET_STS_SUCCESS;
289: x_errbuf := 'Successful';
290:
291: IF (l_Debug_Level <= 2 ) THEN
292: itg_debug_pub.Add('EXITING itg_setup.setup_hr_loc returns normal' ,2);
293: END IF;
294:
295: -- Exception Handling
296: EXCEPTION

Line 303: itg_debug_pub.Add('EXITING itg_setup.setup_hr_loc fails,returns on exception',6);

299: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
300:
301: IF (l_Debug_Level <= 6 ) THEN
302: itg_debug_pub.Add(x_errbuf,6);
303: itg_debug_pub.Add('EXITING itg_setup.setup_hr_loc fails,returns on exception',6);
304: END IF;
305: END;
306:
307: -- Name

Line 362: itg_debug_pub.Add('itg_setup.trigger_control(true) - ' || SQLCODE || ' - ' || SQLERRM, 5);

358: itg_debug_pub.Add(l_action || ' - ' || trigger_list(i));
359: EXCEPTION
360: WHEN OTHERS THEN
361: IF (l_Debug_Level <= 5 ) THEN
362: itg_debug_pub.Add('itg_setup.trigger_control(true) - ' || SQLCODE || ' - ' || SQLERRM, 5);
363: END IF;
364: END;
365: END LOOP;
366:

Line 371: itg_debug_pub.Add('EXITING itg_setup.trigger_control(true) returns normal' ,2);

367: x_retcode := FND_API.G_RET_STS_SUCCESS;
368: x_errbuf := 'Successful';
369:
370: IF (l_Debug_Level <= 2 ) THEN
371: itg_debug_pub.Add('EXITING itg_setup.trigger_control(true) returns normal' ,2);
372: END IF;
373: EXCEPTION
374: WHEN OTHERS THEN
375: x_retcode := FND_API.G_RET_STS_ERROR;

Line 380: itg_debug_pub.Add('EXITING itg_setup.trigger_control(true) fails,returns on exception', 6);

376: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
377:
378: IF (l_Debug_Level <= 6 ) THEN
379: itg_debug_pub.Add(x_errbuf ,6);
380: itg_debug_pub.Add('EXITING itg_setup.trigger_control(true) fails,returns on exception', 6);
381: END IF;
382: END;
383:
384: -- Name

Line 517: itg_debug_pub.Add('EXITING itg_setup.setup_ecx_tp_header returns normal' ,1);

513: x_tp_hdr_id := l_tp_hdr_id;
514: END IF;
515:
516: IF (l_Debug_Level <= 1 ) THEN
517: itg_debug_pub.Add('EXITING itg_setup.setup_ecx_tp_header returns normal' ,1);
518: itg_debug_pub.Add('x_errbuf - ' || x_errbuf ,1);
519: itg_debug_pub.Add('x_retcode - ' || x_retcode ,1);
520: itg_debug_pub.Add('x_tp_hdr_id - ' || x_tp_hdr_id ,1);
521: itg_debug_pub.Add('---------------------------------' ,1);

Line 532: itg_debug_pub.Add('EXITING itg_setup.setup_ecx_tp_header fails,returns on exception',6);

528: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
529:
530: IF (l_Debug_Level <= 6 )THEN
531: itg_debug_pub.Add(x_errbuf ,6);
532: itg_debug_pub.Add('EXITING itg_setup.setup_ecx_tp_header fails,returns on exception',6);
533: END IF;
534: END;
535:
536:

Line 815: itg_debug_pub.Add(' EXITING itg_setup.setup_tp_details normal', 2);

811: x_errbuf := 'Successful';
812:
813:
814: IF (l_Debug_Level <= 2 )THEN
815: itg_debug_pub.Add(' EXITING itg_setup.setup_tp_details normal', 2);
816: END IF;
817: EXCEPTION
818: WHEN OTHERS THEN
819: x_retcode := FND_API.G_RET_STS_ERROR;

Line 824: itg_debug_pub.Add('EXITING itg_setup.setup_tp_details fails,returns on exception',6);

820: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
821:
822: IF (l_Debug_Level <= 6 )THEN
823: itg_debug_pub.Add(x_errbuf, 6);
824: itg_debug_pub.Add('EXITING itg_setup.setup_tp_details fails,returns on exception',6);
825: END IF;
826: END;
827:
828: -- Name

Line 1104: itg_debug_pub.Add('EXITING itg_setup.add_or_update_tp_detail returns normal', 2);

1100: x_errbuf := l_retmesg;
1101: END IF;
1102:
1103: IF (l_Debug_Level <= 2) THEN
1104: itg_debug_pub.Add('EXITING itg_setup.add_or_update_tp_detail returns normal', 2);
1105: END IF;
1106: -- Exception Handling
1107: EXCEPTION
1108: WHEN OTHERS THEN

Line 1114: itg_debug_pub.Add('EXITING itg_setup.add_or_update_tp_detail fails,returns on exception',6);

1110: set_errmesg(x_errbuf,SQLCODE,SQLERRM);
1111:
1112: IF (l_Debug_Level <= 6) THEN
1113: itg_debug_pub.Add(x_errbuf, 6);
1114: itg_debug_pub.Add('EXITING itg_setup.add_or_update_tp_detail fails,returns on exception',6);
1115: END IF;
1116: END;
1117:
1118:

Line 1164: END itg_setup;

1160: END IF;
1161: x_errbuf := p_errcode || ' - ' || p_errmesg;
1162: END;
1163:
1164: END itg_setup;