[Home] [Help]
488: | PRIVATE procedure Create_Per_Person_Party
489: |
490: | DESCRIPTION
491: | *** Copy from ARHUSRPB.pls ***
492: | Create a party for a per_all_people_f person if it has not
493: | already created. The concept here is that we believe that
494: | HR person is more reliable resource than email_address for
495: | the fnd users that are already assigned a per_all_people.
496: |
501: |
502: | PSEUDO CODE/LOGIC
503: |
504: | PARAMETERS
505: | p_per_person_id Person Identifier for PER_ALL_PEOPLE_F
506: |
507: |
508: | RETURNS
509: | x_party_id Party Identifier
513: x_party_id OUT NOCOPY NUMBER) IS
514:
515: /*-----------------------------------------------------+
516: | Cursor for fetching a person record from |
517: | per_all_people_f for creating a person party. |
518: | |
519: | Note: We don't try to do a full mapping here. |
520: | That will be done in TCA/HR merge. |
521: | Only minimal information is populated here for UI |
521: | Only minimal information is populated here for UI |
522: | to display basic personal information about a user |
523: +-----------------------------------------------------*/
524: CURSOR per_person_cur(l_per_person_id
525: per_all_people_f.person_id%TYPE) IS
526: SELECT per.person_id,
527: per.first_name,
528: per.last_name,
529: per.email_address
526: SELECT per.person_id,
527: per.first_name,
528: per.last_name,
529: per.email_address
530: FROM per_all_people_f per
531: WHERE per.person_id = l_per_person_id
532: AND TRUNC(SYSDATE) BETWEEN effective_start_date
533: AND effective_end_date;
534:
553: FETCH per_person_cur INTO per_person_rec;
554: CLOSE per_person_cur;
555:
556: --
557: -- Raise an exception if PER_ALL_PEOPLE_F not found.
558: --
559:
560: --
561: -- Create a Person Party