[Home] [Help]
26: l_result varchar2(3) :='F';
27:
28: Begin
29:
30: hr_utility.set_location(' Entering:' || l_proc,10);
31:
32: open any_child;
33: fetch any_child into l_exists;
34: if any_child%NOTFOUND then
68: l_result varchar2(3) :='F';
69:
70: Begin
71:
72: hr_utility.set_location(' Entering:' || l_proc,10);
73:
74: open any_child;
75: fetch any_child into l_exists;
76: if any_child%NOTFOUND then
136: v_enroll_status VARCHAR2(30);
137:
138: BEGIN
139:
140: hr_utility.set_location(' Step:'|| l_proc, 10);
141: FOR rec IN enroll_status
142: LOOP
143: v_enroll_status :=rec.status ;
144: EXIT;
145: END LOOP;
146:
147: RETURN v_enroll_status;
148:
149: hr_utility.set_location(' Step:'|| l_proc, 20);
150:
151: END get_enroll_status;
152:
153: -- ---------------------------------------------------------------------------
165: l_proc VARCHAR2(72) := g_package|| 'chk_login_person';
166:
167: BEGIN
168:
169: hr_utility.set_location(' Step:'|| l_proc, 10);
170:
171: -- Modified for Bug#3479186
172: SELECT tps.person_id,tps.contact_id
173: INTO l_person_id, l_contact_id
178: INTO l_login_person, l_login_customer
179: FROM fnd_user
180: WHERE user_id = fnd_profile.value('USER_ID');
181:
182: hr_utility.set_location(' Step:'|| l_proc, 20);
183: IF l_login_person IS NOT NULL THEN
184: IF l_login_person = l_person_id THEN
185: RETURN 'E';
186: ELSE
191: END IF;
192:
193:
194:
195: hr_utility.set_location(' Step:'|| l_proc, 30);
196: END chk_login_person;
197:
198:
199: -- ---------------------------------------------------------------------------
230: l_training_plan_id number(9) :=0;
231:
232: BEGIN
233:
234: hr_utility.set_location(' Step:'|| l_proc, 10);
235:
236: OPEN csr_get_TP ;
237: FETCH csr_get_TP INTO l_training_plan_id;
238:
238:
239: CLOSE csr_get_TP;
240: RETURN l_training_plan_id;
241:
242: hr_utility.set_location(' Step:'|| l_proc, 20);
243:
244: END chk_src_func_tlntmgt;
245:
246: -- ---------------------------------------------------------------------------
271: l_act_version_id number(9);
272:
273: BEGIN
274:
275: hr_utility.set_location(' Step:'|| l_proc, 10);
276:
277: OPEN csr_attached_TPC;
278: FETCH csr_attached_TPC INTO l_act_version_id;
279: IF csr_attached_TPC%FOUND THEN
283: ELSE
284: CLOSE csr_attached_TPC;
285: END IF;
286:
287: hr_utility.set_location(' Step:'|| l_proc, 20);
288: END chk_valid_act_version_dates;
289:
290: -- ---------------------------------------------------------------------------
291: -- |----------------------< chk_enrollment_exist >--------------------------|
326: l_found BOOLEAN := FALSE;
327:
328: BEGIN
329:
330: hr_utility.set_location(' Step:'|| l_proc, 10);
331:
332: OPEN chk_enr;
333: FETCH chk_enr INTO l_return_val;
334: IF chk_enr%FOUND THEN
337: --
338: END IF;
339: CLOSE chk_enr;
340: --
341: hr_utility.set_location('Leaving '||l_proc,10);
342:
343: RETURN l_found;
344:
345: END chk_enrollment_exist;
415: l_plan_source varchar2(30);
416:
417: BEGIN
418:
419: hr_utility.set_location(' Step:'|| l_proc, 10);
420:
421: -- Remove the original date checks for creating members of non tlnt mgmt sources.
422: -- This is requied to determine past completed course before enrolling or creating a LP
423: open csr_plan_source;
439: end if;
440:
441: RETURN v_enroll_status;
442:
443: hr_utility.set_location(' Step:'|| l_proc, 20);
444:
445: END get_enroll_status;
446:
447: -- ---------------------------------------------------------------------------
464: l_contact_id OTA_TRAINING_PLANS.CONTACT_ID%TYPE;
465:
466: BEGIN
467:
468: hr_utility.set_location('Entering:'|| l_proc, 10);
469:
470: -- Modified for Bug#3479186
471: SELECT tp.person_id, tp.contact_id
472: INTO l_person_id , l_contact_id
496: p_member_status_id := 'OTA_PLANNED';
497:
498: END IF;
499:
500: hr_utility.set_location('LEAVING:'|| l_proc, 20);
501:
502: EXCEPTION
503: WHEN others THEN
504:
527: l_contact_id OTA_TRAINING_PLANS.CONTACT_ID%TYPE;
528:
529: BEGIN
530:
531: hr_utility.set_location('Entering:'|| l_proc, 10);
532:
533: -- Modified for Bug#3479186
534: SELECT tp.person_id, tp.contact_id
535: INTO l_person_id , l_contact_id
559: p_member_status_id := 'OTA_PLANNED';
560:
561: END IF;
562:
563: hr_utility.set_location('LEAVING:'|| l_proc, 20);
564:
565: EXCEPTION
566: WHEN others THEN
567:
634: l_proc VARCHAR2(72) := g_package|| 'is_personal_trng_plan';
635:
636: BEGIN
637:
638: hr_utility.set_location(' Step:'|| l_proc, 10);
639:
640: IF g_is_per_trng_plan IS NOT NULL
641: THEN
642: RETURN g_is_per_trng_plan;
657: l_proc VARCHAR2(72) := g_package|| 'is_personal_trng_plan';
658:
659: BEGIN
660:
661: hr_utility.set_location(' Step:'|| l_proc, 10);
662:
663: SELECT tps.person_id, tps.contact_id
664: INTO l_person_id, l_contact_id
665: FROM ota_training_plans tps
664: INTO l_person_id, l_contact_id
665: FROM ota_training_plans tps
666: WHERE tps.training_plan_id = p_training_plan_id;
667:
668: hr_utility.set_location(' Step:'|| l_proc, 20);
669:
670: IF l_person_id IS NOT NULL OR l_contact_id IS NOT NULL
671: THEN
672: g_is_per_trng_plan := true;
671: THEN
672: g_is_per_trng_plan := true;
673: END IF;
674:
675: hr_utility.set_location(' Step:'|| l_proc, 30);
676:
677: RETURN g_is_per_trng_plan;
678: END is_personal_trng_plan;
679: