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.PA_CROSS_BUSINESS_GRP dependencies on PA_CROSS_BUSINESS_GRP

Line 1: PACKAGE BODY PA_CROSS_BUSINESS_GRP

1: PACKAGE BODY PA_CROSS_BUSINESS_GRP
2: -- $Header: PAXCBGAB.pls 120.2 2005/08/19 17:11:01 mwasowic noship $
3: AS
4:
5: G_package_name VARCHAR2(30) := 'Pa_Cross_Business_Grp';

Line 5: G_package_name VARCHAR2(30) := 'Pa_Cross_Business_Grp';

1: PACKAGE BODY PA_CROSS_BUSINESS_GRP
2: -- $Header: PAXCBGAB.pls 120.2 2005/08/19 17:11:01 mwasowic noship $
3: AS
4:
5: G_package_name VARCHAR2(30) := 'Pa_Cross_Business_Grp';
6:
7: /* The following global variables are used to track the size of the
8: * plsql table and the name and type of plsql tables being used.
9: */

Line 137: pa_cross_business_grp.ErrorStage(

133:
134: BEGIN
135:
136: pa_cc_utils.set_curr_function(G_package_name || '.GetMappedToJob().');
137: pa_cross_business_grp.ErrorStage(
138: P_Message => '20.10: Assign input variables to local table variables.',
139: X_Stage => X_Error_Stage);
140:
141: l_From_Job_Id_Tab(1) := P_From_Job_Id ;

Line 148: pa_cross_business_grp.ErrorStage(

144: /* The following two variables are set to NULL intentionally. */
145: l_To_Job_Id_Tab(1) := NULL ;
146: l_Status_Code_Tab(1) := NULL ;
147:
148: pa_cross_business_grp.ErrorStage(
149: P_Message => '20.20: Calling procedure ' || G_package_name || '.GetMappedToJobs().',
150: X_Stage => X_Error_Stage );
151:
152: pa_cross_business_grp.GetMappedToJobs (

Line 152: pa_cross_business_grp.GetMappedToJobs (

148: pa_cross_business_grp.ErrorStage(
149: P_Message => '20.20: Calling procedure ' || G_package_name || '.GetMappedToJobs().',
150: X_Stage => X_Error_Stage );
151:
152: pa_cross_business_grp.GetMappedToJobs (
153: P_From_Job_Id_Tab => l_From_Job_Id_Tab ,
154: P_To_Job_Group_Id_Tab => l_To_Job_Group_Id_Tab ,
155: X_To_Job_Id_Tab => l_To_Job_Id_Tab ,
156: X_StatusTab => l_Status_Code_Tab ,

Line 160: pa_cross_business_grp.ErrorStage(

156: X_StatusTab => l_Status_Code_Tab ,
157: X_Error_Stage => l_Error_Stage ,
158: X_Error_Code => l_Error_Code ) ;
159:
160: pa_cross_business_grp.ErrorStage(
161: P_Message => '20.30: Assigning returned value of To_Job_id.',
162: X_Stage => X_Error_Stage );
163:
164: X_To_Job_Id := l_To_Job_Id_Tab(1) ;

Line 166: pa_cross_business_grp.ErrorStage(

162: X_Stage => X_Error_Stage );
163:
164: X_To_Job_Id := l_To_Job_Id_Tab(1) ;
165:
166: pa_cross_business_grp.ErrorStage(
167: P_Message => '20.40: Exiting the procedure ' || G_package_name || '.GetMappedToJob().',
168: X_Stage => X_Error_Stage );
169:
170: pa_cc_utils.reset_curr_function;

Line 214: pa_cross_business_grp.ErrorStage(

210: BEGIN
211:
212: pa_cc_utils.set_curr_function(G_package_name || '.GetMappedToJobs().');
213:
214: pa_cross_business_grp.ErrorStage(
215: P_Message => '30.10: Assign Min and Max recs based on number of records in table.',
216: X_Stage => X_Error_Stage );
217:
218: l_MinRecs := P_From_Job_Id_Tab.FIRST ;

Line 221: pa_cross_business_grp.ErrorStage(

217:
218: l_MinRecs := P_From_Job_Id_Tab.FIRST ;
219: l_MaxRecs := P_From_Job_Id_Tab.LAST ;
220:
221: pa_cross_business_grp.ErrorStage(
222: P_Message => '30.15: Begin looping thru all the records in the table and process the data.',
223: X_Stage => X_Error_Stage );
224:
225: /* From the passed in arrays a determination is made on the number of records that

Line 231: pa_cross_business_grp.ErrorStage(

227: */
228: FOR j IN l_MinRecs..l_MaxRecs
229: LOOP
230:
231: pa_cross_business_grp.ErrorStage(
232: P_Message => '30.20: Concatenate the From_Job_Id with To_Job_Group_Id.',
233: X_Stage => X_Error_Stage );
234:
235: l_FromJobToGrp := to_char(P_From_Job_Id_Tab(j)) || '-' ||

Line 238: pa_cross_business_grp.ErrorStage(

234:
235: l_FromJobToGrp := to_char(P_From_Job_Id_Tab(j)) || '-' ||
236: to_char(P_To_Job_Group_Id_Tab(j));
237:
238: pa_cross_business_grp.ErrorStage(
239: P_Message => '30.25: Check if the job is already stored in the array table.',
240: X_Stage => X_Error_Stage );
241:
242: /* Try are retrieve from the plsqsql table the index that corrolates to the

Line 263: pa_cross_business_grp.ErrorStage(

259: * table_size by one so that it has a count of 1 more that the size
260: * of the plsql table.
261: */
262:
263: pa_cross_business_grp.ErrorStage(
264: P_Message => '30.26: Get GroupId for From Job Id.',
265: X_Stage => X_Error_Stage );
266:
267: SELECT job_group_id

Line 274: pa_cross_business_grp.ErrorStage(

270: WHERE job_id = P_From_Job_Id_Tab(j) ;
271:
272: If l_From_Job_Grp_Id = P_To_Job_Group_Id_Tab(j) Then
273:
274: pa_cross_business_grp.ErrorStage(
275: P_Message => '30.28: If From/To Job Groups are same then return From Job Id.',
276: X_Stage => X_Error_Stage );
277:
278: G_FromJobToGrp(TABLE_SIZE) := l_FromJobToGrp;

Line 284: pa_cross_business_grp.ErrorStage(

280:
281: TABLE_SIZE := TABLE_SIZE + 1;
282:
283: Else
284: pa_cross_business_grp.ErrorStage(
285: P_Message => '30.30: Open the cursor getJob.',
286: X_Stage => X_Error_Stage );
287:
288: OPEN getJob(P_From_Job_Id_Tab(j), P_To_Job_Group_Id_Tab(j));

Line 290: pa_cross_business_grp.ErrorStage(

286: X_Stage => X_Error_Stage );
287:
288: OPEN getJob(P_From_Job_Id_Tab(j), P_To_Job_Group_Id_Tab(j));
289:
290: pa_cross_business_grp.ErrorStage(
291: P_Message => '30.40: Fetch record from cursor getJob.',
292: X_Stage => X_Error_Stage );
293:
294: FETCH getJob

Line 299: pa_cross_business_grp.ErrorStage(

295: INTO X_To_Job_Id_Tab(j);
296:
297: If getJob%NOTFOUND Then
298:
299: pa_cross_business_grp.ErrorStage(
300: P_Message => '30.50: If NO_DATA_FOUND then set variables appropriately.',
301: X_Stage => X_Error_Stage );
302:
303: X_To_Job_Id_Tab(j) := NULL;

Line 308: pa_cross_business_grp.ErrorStage(

304: X_StatusTab(j) := 'PA_CBGA_NO_MAPPING_EXISTS' ;
305:
306: Else
307:
308: pa_cross_business_grp.ErrorStage(
309: P_Message => '30.55: If FOUND then store in table arrays.',
310: X_Stage => X_Error_Stage );
311:
312: G_FromJobToGrp(TABLE_SIZE) := l_FromJobToGrp;

Line 318: pa_cross_business_grp.ErrorStage(

314:
315: TABLE_SIZE := TABLE_SIZE + 1;
316: End If;
317:
318: pa_cross_business_grp.ErrorStage(
319: P_Message => '30.60: Close cursor getJob.',
320: X_Stage => X_Error_Stage );
321:
322: Close getJob;

Line 327: pa_cross_business_grp.ErrorStage(

323:
324: End If;
325: End If;
326:
327: pa_cross_business_grp.ErrorStage(
328: P_Message => '30.70: End Loop.',
329: X_Stage => X_Error_Stage );
330:
331: END LOOP ;

Line 333: pa_cross_business_grp.ErrorStage(

329: X_Stage => X_Error_Stage );
330:
331: END LOOP ;
332:
333: pa_cross_business_grp.ErrorStage(
334: P_Message => '30.80: Exiting procedure ' || G_package_name || '.GetMappedToJobs().',
335: X_Stage => X_Error_Stage );
336:
337: pa_cc_utils.reset_curr_function;

Line 354: IF pa_cross_business_grp.G_CrossBGProfile IS NULL THEN

350: l_Error_Stage VARCHAR2(150) ;
351: l_Error_Code NUMBER;
352:
353: BEGIN
354: IF pa_cross_business_grp.G_CrossBGProfile IS NULL THEN
355: pa_cross_business_grp.G_CrossBGProfile := FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP');
356: END IF;
357:
358:

Line 355: pa_cross_business_grp.G_CrossBGProfile := FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP');

351: l_Error_Code NUMBER;
352:
353: BEGIN
354: IF pa_cross_business_grp.G_CrossBGProfile IS NULL THEN
355: pa_cross_business_grp.G_CrossBGProfile := FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP');
356: END IF;
357:
358:
359: RETURN (pa_cross_business_grp.G_CrossBGProfile ) ;

Line 359: RETURN (pa_cross_business_grp.G_CrossBGProfile ) ;

355: pa_cross_business_grp.G_CrossBGProfile := FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP');
356: END IF;
357:
358:
359: RETURN (pa_cross_business_grp.G_CrossBGProfile ) ;
360:
361: EXCEPTION
362: WHEN OTHERS THEN
363: RAISE ;

Line 381: pa_cross_business_grp.ErrorStage(

377:
378: BEGIN
379: pa_cc_utils.set_curr_function(G_package_name || '.GetMasterGrpId().');
380:
381: pa_cross_business_grp.ErrorStage(
382: P_Message => '40.10: Check if the Global Master Group Id is already populated.',
383: X_Stage => X_Error_Stage );
384:
385: /* If the Global variable G_MasterGroupId is null then we need to get it

Line 391: If pa_cross_business_grp.G_MasterGroupId IS NULL Then

387: * global variable and return it the the calling procedure. At any given point there
388: * should be only 1 master group id for a given business group/enterprise so a global
389: * variable can be used.
390: */
391: If pa_cross_business_grp.G_MasterGroupId IS NULL Then
392:
393: pa_cross_business_grp.ErrorStage(
394: P_Message => '40.20: Check if the Business Group is NULL.',
395: X_Stage => X_Error_Stage );

Line 393: pa_cross_business_grp.ErrorStage(

389: * variable can be used.
390: */
391: If pa_cross_business_grp.G_MasterGroupId IS NULL Then
392:
393: pa_cross_business_grp.ErrorStage(
394: P_Message => '40.20: Check if the Business Group is NULL.',
395: X_Stage => X_Error_Stage );
396:
397: /* IF the profile HR_CROSS_BUSINESS_GROUP is 'N' Then it is expected that the

Line 400: If pa_cross_business_grp.IsCrossBGProfile = 'N' AND P_Business_Group_Id IS NULL Then

396:
397: /* IF the profile HR_CROSS_BUSINESS_GROUP is 'N' Then it is expected that the
398: * calling procedure will pass in the business group since it is then required.
399: */
400: If pa_cross_business_grp.IsCrossBGProfile = 'N' AND P_Business_Group_Id IS NULL Then
401: RAISE BUSINESS_GROUP_NEEDED;
402: End If;
403:
404: pa_cross_business_grp.ErrorStage(

Line 404: pa_cross_business_grp.ErrorStage(

400: If pa_cross_business_grp.IsCrossBGProfile = 'N' AND P_Business_Group_Id IS NULL Then
401: RAISE BUSINESS_GROUP_NEEDED;
402: End If;
403:
404: pa_cross_business_grp.ErrorStage(
405: P_Message => '40.30: Get the Master Group Id.',
406: X_Stage => X_Error_Stage );
407:
408: /* Based on the profile HR_CROSS_BUSINESS_GROUP this select statement will

Line 419: where pa_cross_business_grp.IsCrossBGProfile = 'N'

415: */
416: select job_group_id
417: into x_master_grp_id
418: from per_job_groups
419: where pa_cross_business_grp.IsCrossBGProfile = 'N'
420: and business_group_id = P_Business_group_Id
421: and master_flag = 'Y'
422: UNION ALL
423: select job_group_id

Line 425: where pa_cross_business_grp.IsCrossBGProfile = 'Y'

421: and master_flag = 'Y'
422: UNION ALL
423: select job_group_id
424: from per_job_groups
425: where pa_cross_business_grp.IsCrossBGProfile = 'Y'
426: and master_flag = 'Y' ;
427:
428: pa_cross_business_grp.ErrorStage(
429: P_Message => '40.40: Assign master group id to Global variable.',

Line 428: pa_cross_business_grp.ErrorStage(

424: from per_job_groups
425: where pa_cross_business_grp.IsCrossBGProfile = 'Y'
426: and master_flag = 'Y' ;
427:
428: pa_cross_business_grp.ErrorStage(
429: P_Message => '40.40: Assign master group id to Global variable.',
430: X_Stage => X_Error_Stage );
431:
432: pa_cross_business_grp.G_MasterGroupId := x_master_grp_id;

Line 432: pa_cross_business_grp.G_MasterGroupId := x_master_grp_id;

428: pa_cross_business_grp.ErrorStage(
429: P_Message => '40.40: Assign master group id to Global variable.',
430: X_Stage => X_Error_Stage );
431:
432: pa_cross_business_grp.G_MasterGroupId := x_master_grp_id;
433:
434: Else
435:
436: pa_cross_business_grp.ErrorStage(

Line 436: pa_cross_business_grp.ErrorStage(

432: pa_cross_business_grp.G_MasterGroupId := x_master_grp_id;
433:
434: Else
435:
436: pa_cross_business_grp.ErrorStage(
437: P_Message => '40.50: Get master group id from Global variable.',
438: X_Stage => X_Error_Stage );
439:
440: x_master_grp_id := pa_cross_business_grp.G_MasterGroupId;

Line 440: x_master_grp_id := pa_cross_business_grp.G_MasterGroupId;

436: pa_cross_business_grp.ErrorStage(
437: P_Message => '40.50: Get master group id from Global variable.',
438: X_Stage => X_Error_Stage );
439:
440: x_master_grp_id := pa_cross_business_grp.G_MasterGroupId;
441:
442: End If;
443:
444: pa_cross_business_grp.ErrorStage(

Line 444: pa_cross_business_grp.ErrorStage(

440: x_master_grp_id := pa_cross_business_grp.G_MasterGroupId;
441:
442: End If;
443:
444: pa_cross_business_grp.ErrorStage(
445: P_Message => '40.60:Exiting procedure ' || G_package_name || '.GetMasterGrpId().',
446: X_Stage => X_Error_Stage );
447:
448: pa_cc_utils.reset_curr_function;

Line 459: If pa_cross_business_grp.IsCrossBGProfile = 'Y' Then

455: WHEN TOO_MANY_ROWS THEN
456: /* This can occur if the customer defines more than 1 master group for the
457: * enterprise or business group which is being used.
458: */
459: If pa_cross_business_grp.IsCrossBGProfile = 'Y' Then
460: X_Status_Code := 'PA_CBGA_MULTI_GRP_G' ;
461: Else
462: X_Status_Code := 'PA_CBGA_MULTI_GRP_S' ;
463: End If;

Line 469: If pa_cross_business_grp.IsCrossBGProfile = 'Y' Then

465: WHEN NO_DATA_FOUND THEN
466: /* This can occur if the customer has not flagged any of the job group for either
467: * the enterprise or business group, as appropriate.
468: */
469: If pa_cross_business_grp.IsCrossBGProfile = 'Y' Then
470: X_Status_Code := 'PA_CBGA_NO_MASTER_G' ;
471: Else
472: X_Status_Code := 'PA_CBGA_NO_MASTER_S' ;
473: End If;

Line 495: pa_cross_business_grp.ErrorStage(

491: BEGIN
492:
493: pa_cc_utils.set_curr_function(G_package_name || '.GetGlobalHierarchy().');
494:
495: pa_cross_business_grp.ErrorStage(
496: P_Message => '50.10: Get the Global Hierarchy Flag using the Org Structure Id.',
497: X_Stage => X_Error_Stage );
498:
499: Select decode(business_group_id,NULL,'Y','N')

Line 505: pa_cross_business_grp.ErrorStage(

501: from per_organization_structures
502: where organization_structure_id = P_Org_Structure_id ;
503:
504:
505: pa_cross_business_grp.ErrorStage(
506: P_Message => '50.20:Exiting procedure ' || G_package_name || '.GetGlobalHierarchy().',
507: X_Stage => X_Error_Stage );
508:
509: pa_cc_utils.reset_curr_function;

Line 553: pa_cross_business_grp.ErrorStage(

549: BEGIN
550:
551: pa_cc_utils.set_curr_function(G_package_name || '.GetJobIds().');
552:
553: pa_cross_business_grp.ErrorStage(
554: P_Message => '60.05: Get the default cost job group for the project.',
555: X_Stage => X_Error_Stage );
556:
557: l_group_type := 'C';

Line 560: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,

556:
557: l_group_type := 'C';
558:
559: l_cost_job_group_id :=
560: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,
561: P_Group_Type => l_group_type);
562:
563: pa_cross_business_grp.ErrorStage(
564: P_Message => '60.10: Check if the default cost job group is populated.',

Line 563: pa_cross_business_grp.ErrorStage(

559: l_cost_job_group_id :=
560: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,
561: P_Group_Type => l_group_type);
562:
563: pa_cross_business_grp.ErrorStage(
564: P_Message => '60.10: Check if the default cost job group is populated.',
565: X_Stage => X_Error_Stage );
566:
567: If l_cost_job_group_id IS NULL Then

Line 576: pa_cross_business_grp.ErrorStage(

572: X_Cost_Job_Grp_Id := NULL;
573: X_Cost_Job_Id := NULL;
574: Else
575:
576: pa_cross_business_grp.ErrorStage(
577: P_Message => '60.20: Assign the cost job group id to the out variable.',
578: X_Stage => X_Error_Stage );
579:
580: X_Cost_Job_Grp_Id := l_cost_job_group_id;

Line 582: pa_cross_business_grp.ErrorStage(

578: X_Stage => X_Error_Stage );
579:
580: X_Cost_Job_Grp_Id := l_cost_job_group_id;
581:
582: pa_cross_business_grp.ErrorStage(
583: P_Message => '60.80: Get the cost job id.',
584: X_Stage => X_Error_Stage );
585:
586: X_Cost_Job_Id := IsMappedToJob( P_From_Job_id => P_HR_Job_Id,

Line 589: pa_cross_business_grp.ErrorStage(

585:
586: X_Cost_Job_Id := IsMappedToJob( P_From_Job_id => P_HR_Job_Id,
587: P_To_Job_Group_id => l_cost_job_group_id ) ;
588:
589: pa_cross_business_grp.ErrorStage(
590: P_Message => '60.90: Check if the cost job id is NULL.',
591: X_Stage => X_Error_Stage );
592:
593: If X_Cost_Job_Id IS NULL Then

Line 599: pa_cross_business_grp.ErrorStage(

595: RAISE MISSING_DATA;
596: End If;
597: End If;
598:
599: pa_cross_business_grp.ErrorStage(
600: P_Message => '60.25: Get the default bill job group for the project.',
601: X_Stage => X_Error_Stage );
602:
603: l_group_type := 'B';

Line 606: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,

602:
603: l_group_type := 'B';
604:
605: l_bill_job_group_id :=
606: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,
607: P_Group_Type => l_group_type) ;
608:
609: pa_cross_business_grp.ErrorStage(
610: P_Message => '60.30: Check if the default bill job group is populated.',

Line 609: pa_cross_business_grp.ErrorStage(

605: l_bill_job_group_id :=
606: pa_cross_business_grp.GetDefProjJobGrpId( P_Project_Id => P_Project_id,
607: P_Group_Type => l_group_type) ;
608:
609: pa_cross_business_grp.ErrorStage(
610: P_Message => '60.30: Check if the default bill job group is populated.',
611: X_Stage => X_Error_Stage );
612:
613: If l_bill_job_group_id IS NOT NULL Then

Line 615: pa_cross_business_grp.ErrorStage(

611: X_Stage => X_Error_Stage );
612:
613: If l_bill_job_group_id IS NOT NULL Then
614:
615: pa_cross_business_grp.ErrorStage(
616: P_Message => '60.40: Assign bill job group to the out variable.',
617: X_Stage => X_Error_Stage );
618:
619: X_Bill_Job_Grp_Id := l_bill_job_group_id;

Line 621: pa_cross_business_grp.ErrorStage(

617: X_Stage => X_Error_Stage );
618:
619: X_Bill_Job_Grp_Id := l_bill_job_group_id;
620:
621: pa_cross_business_grp.ErrorStage(
622: P_Message => '60.50: Get the bill job id.',
623: X_Stage => X_Error_Stage );
624:
625: X_Bill_Job_Id := IsMappedToJob( P_From_Job_id => P_HR_Job_Id,

Line 628: pa_cross_business_grp.ErrorStage(

624:
625: X_Bill_Job_Id := IsMappedToJob( P_From_Job_id => P_HR_Job_Id,
626: P_To_Job_Group_id => l_bill_job_group_id) ;
627:
628: pa_cross_business_grp.ErrorStage(
629: P_Message => '60.60: Check if the bill job id is NULL.',
630: X_Stage => X_Error_Stage );
631:
632: If X_Bill_Job_Id IS NULL Then

Line 637: pa_cross_business_grp.ErrorStage(

633: X_Status_Code := 'PA_CBGA_NO_BILL_JOB';
634: RAISE MISSING_DATA;
635: End If;
636:
637: pa_cross_business_grp.ErrorStage(
638: P_Message => '60.70: Assign bill job id to PP bill job id.',
639: X_Stage => X_Error_Stage );
640:
641: X_PP_Bill_Job_Id := X_Bill_Job_Id;

Line 658: If pa_cross_business_grp.G_CrossBGProfile = 'Y' THEN

654: pa_cc_utils.reset_curr_function;
655:
656: EXCEPTION
657: WHEN MISSING_DATA THEN
658: If pa_cross_business_grp.G_CrossBGProfile = 'Y' THEN
659: X_Status_Code := X_Status_Code || 'G' ;
660: Else
661: X_Status_Code := X_Status_Code || 'S' ;
662: