159: -- is not available in base 11i.
160: --
161: l_sql :=
162: ' BEGIN '
163: ||' IF NOT hr_utility.debug_enabled THEN '
164: ||' hr_po_info.g_debug := FALSE; '
165: ||' END IF; '
166: ||' END; ';
167:
188:
189: BEGIN
190:
191: IF g_debug THEN
192: hr_utility.set_location(l_PROC, 10);
193: END IF;
194:
195: --
196: -- Return a boolean indicating whether services procurement is
212:
213: BEGIN
214:
215: IF g_debug THEN
216: hr_utility.set_location(l_PROC, 10);
217: END IF;
218:
219: --
220: -- Return a varchar indicating whether services procurement is
239:
240: BEGIN
241:
242: IF g_debug THEN
243: hr_utility.set_location(l_PROC, 10);
244: END IF;
245:
246: --
247: -- Package instantiation ensures this flag is always set
263:
264: BEGIN
265:
266: IF g_debug THEN
267: hr_utility.set_location(l_PROC, 10);
268: END IF;
269:
270: --
271: -- Package instantiation ensures this flag is always set
292:
293: BEGIN
294:
295: IF g_debug THEN
296: hr_utility.set_location('Entering: ' || l_PROC, 10);
297: hr_utility.set_location(to_char(p_po_line_id), 20);
298: END IF;
299:
300: IF p_po_line_id IS NOT NULL AND asg_po_cols_exist THEN
293: BEGIN
294:
295: IF g_debug THEN
296: hr_utility.set_location('Entering: ' || l_PROC, 10);
297: hr_utility.set_location(to_char(p_po_line_id), 20);
298: END IF;
299:
300: IF p_po_line_id IS NOT NULL AND asg_po_cols_exist THEN
301: --
320:
321: END IF;
322:
323: IF g_debug THEN
324: hr_utility.set_location('Leaving: ' || l_PROC, 30);
325: END IF;
326:
327: EXCEPTION
328:
328:
329: WHEN no_data_found THEN
330:
331: IF g_debug THEN
332: hr_utility.set_location('Leaving: ' || l_PROC, 40);
333: END IF;
334:
335: END get_person_for_po_line;
336: --
349:
350: BEGIN
351:
352: IF g_debug THEN
353: hr_utility.set_location('Entering: ' || l_PROC, 10);
354: END IF;
355:
356: get_person_for_po_line
357: (p_po_line_id => p_po_line_id
358: ,p_person_id => l_person_id
359: ,p_assignment_id => l_dummy);
360:
361: IF g_debug THEN
362: hr_utility.set_location('Leaving: ' || l_PROC, 20);
363: END IF;
364:
365: RETURN l_person_id;
366:
381:
382: BEGIN
383:
384: IF g_debug THEN
385: hr_utility.set_location('Entering: ' || l_PROC, 10);
386: END IF;
387:
388: get_person_for_po_line
389: (p_po_line_id => p_po_line_id
390: ,p_person_id => l_dummy
391: ,p_assignment_id => l_asg_id);
392:
393: IF g_debug THEN
394: hr_utility.set_location('Leaving: ' || l_PROC, 20);
395: END IF;
396:
397: RETURN l_asg_id;
398:
412:
413: BEGIN
414:
415: IF g_debug THEN
416: hr_utility.set_location('Entering: ' || l_PROC, 10);
417: hr_utility.set_location(to_char(p_po_header_id), 20);
418: END IF;
419:
420: IF p_po_header_id IS NOT NULL AND asg_po_cols_exist THEN
413: BEGIN
414:
415: IF g_debug THEN
416: hr_utility.set_location('Entering: ' || l_PROC, 10);
417: hr_utility.set_location(to_char(p_po_header_id), 20);
418: END IF;
419:
420: IF p_po_header_id IS NOT NULL AND asg_po_cols_exist THEN
421: --
438:
439: END IF;
440:
441: IF g_debug THEN
442: hr_utility.set_location('Leaving: ' || l_PROC, 30);
443: END IF;
444:
445: RETURN (l_found = g_TRUE);
446:
448:
449: WHEN no_data_found THEN
450:
451: IF g_debug THEN
452: hr_utility.set_location('Leaving: ' || l_PROC, 40);
453: END IF;
454:
455: --
456: -- There are no assignments for this PO.
471:
472: BEGIN
473:
474: IF g_debug THEN
475: hr_utility.set_location(l_PROC, 10);
476: END IF;
477:
478: RETURN (get_asg_id_for_po_line
479: (p_po_line_id => p_po_line_id) IS NOT NULL);
494:
495: BEGIN
496:
497: IF g_debug THEN
498: hr_utility.set_location('Entering: ' || l_PROC, 10);
499: END IF;
500:
501: --
502: -- Record the BOOLEAN as a VARCHAR2.
506: l_return := g_TRUE;
507: END IF;
508:
509: IF g_debug THEN
510: hr_utility.set_location('Leaving: ' || l_PROC, 20);
511: END IF;
512:
513: RETURN l_return;
514:
528:
529: BEGIN
530:
531: IF g_debug THEN
532: hr_utility.set_location('Entering: ' || l_PROC, 10);
533: END IF;
534:
535: --
536: -- Record the BOOLEAN as a VARCHAR2.
540: l_return := g_TRUE;
541: END IF;
542:
543: IF g_debug THEN
544: hr_utility.set_location('Leaving: ' || l_PROC, 20);
545: END IF;
546:
547: RETURN l_return;
548:
562:
563: BEGIN
564:
565: IF g_debug THEN
566: hr_utility.set_location('Entering: ' || l_PROC, 10);
567: END IF;
568:
569: --
570: -- Enumerate through the passed in PL/SQL table.
576:
577: FOR i IN p_po_in_tbl.FIRST..p_po_in_tbl.LAST LOOP
578:
579: IF g_debug THEN
580: hr_utility.set_location
581: (to_char(p_po_in_tbl(i)), 20);
582: END IF;
583:
584: --
595:
596: END IF;
597:
598: IF g_debug THEN
599: hr_utility.set_location('Leaving: ' || l_PROC, 30);
600: END IF;
601:
602: END asgs_exist_for_pos;
603: --
616:
617: BEGIN
618:
619: IF g_debug THEN
620: hr_utility.set_location('Entering: ' || l_PROC, 10);
621: END IF;
622:
623: --
624: -- Enumerate through the passed in PL/SQL table.
630:
631: FOR i IN p_po_lines_in_tbl.FIRST..p_po_lines_in_tbl.LAST LOOP
632:
633: IF g_debug THEN
634: hr_utility.set_location
635: (to_char(p_po_lines_in_tbl(i)), 20);
636: END IF;
637:
638: --
649:
650: END IF;
651:
652: IF g_debug THEN
653: hr_utility.set_location('Leaving: ' || l_PROC, 30);
654: END IF;
655:
656: END asgs_exist_for_po_lines;
657: --
677:
678: BEGIN
679:
680: IF g_debug THEN
681: hr_utility.set_location('Entering: ' || l_PROC, 10);
682: hr_utility.set_location(to_char(p_vendor_site_id), 20);
683: END IF;
684:
685: IF p_vendor_site_id IS NOT NULL AND asg_po_cols_exist THEN
678: BEGIN
679:
680: IF g_debug THEN
681: hr_utility.set_location('Entering: ' || l_PROC, 10);
682: hr_utility.set_location(to_char(p_vendor_site_id), 20);
683: END IF;
684:
685: IF p_vendor_site_id IS NOT NULL AND asg_po_cols_exist THEN
686: --
705:
706: END IF;
707:
708: IF g_debug THEN
709: hr_utility.set_location('Leaving: ' || l_PROC, 30);
710: END IF;
711:
712: EXCEPTION
713:
713:
714: WHEN no_data_found THEN
715:
716: IF g_debug THEN
717: hr_utility.set_location('Leaving: ' || l_PROC, 40);
718: END IF;
719:
720: END get_person_for_vendor_site;
721: */
739:
740: BEGIN
741:
742: IF g_debug THEN
743: hr_utility.set_location('Entering: ' || l_PROC, 10);
744: END IF;
745:
746: get_person_for_vendor_site
747: (p_vendor_site_id => p_vendor_site_id
748: ,p_person_id => l_person_id
749: ,p_assignment_id => l_dummy);
750:
751: IF g_debug THEN
752: hr_utility.set_location('Leaving: ' || l_PROC, 20);
753: END IF;
754:
755: RETURN l_person_id;
756:
776:
777: BEGIN
778:
779: IF g_debug THEN
780: hr_utility.set_location('Entering: ' || l_PROC, 10);
781: END IF;
782:
783: get_person_for_vendor_site
784: (p_vendor_site_id => p_vendor_site_id
785: ,p_person_id => l_dummy
786: ,p_assignment_id => l_asg_id);
787:
788: IF g_debug THEN
789: hr_utility.set_location('Leaving: ' || l_PROC, 20);
790: END IF;
791:
792: RETURN l_asg_id;
793:
808:
809: BEGIN
810:
811: IF g_debug THEN
812: hr_utility.set_location('Entering: ' || l_PROC, 10);
813: hr_utility.set_location(to_char(p_vendor_id), 20);
814: END IF;
815:
816: -- Bug 3391399
809: BEGIN
810:
811: IF g_debug THEN
812: hr_utility.set_location('Entering: ' || l_PROC, 10);
813: hr_utility.set_location(to_char(p_vendor_id), 20);
814: END IF;
815:
816: -- Bug 3391399
817: -- Call function asg_vendor_id_exist instead of asg_po_cols_exist
834:
835: END IF;
836:
837: IF g_debug THEN
838: hr_utility.set_location('Leaving: ' || l_PROC, 30);
839: END IF;
840:
841: RETURN (l_found = g_TRUE);
842:
844:
845: WHEN no_data_found THEN
846:
847: IF g_debug THEN
848: hr_utility.set_location('Leaving: ' || l_PROC, 40);
849: END IF;
850:
851: --
852: -- There are no assignments for this vendor.
870:
871: BEGIN
872:
873: IF g_debug THEN
874: hr_utility.set_location(l_PROC, 10);
875: END IF;
876:
877: --
878: -- Check to see if any assignments exist for this site.
889:
890: EXECUTE IMMEDIATE l_sql INTO l_found;
891:
892: IF g_debug THEN
893: hr_utility.set_location('Leaving: ' || l_PROC, 20);
894: END IF;
895:
896: RETURN (l_found = g_TRUE);
897:
899:
900: WHEN no_data_found THEN
901:
902: IF g_debug THEN
903: hr_utility.set_location('Leaving: ' || l_PROC, 30);
904: END IF;
905:
906: --
907: -- There are no assignments for this vendor site.
923:
924: BEGIN
925:
926: IF g_debug THEN
927: hr_utility.set_location('Entering: ' || l_PROC, 10);
928: END IF;
929:
930: --
931: -- Record the BOOLEAN as a VARCHAR2.
935: l_return := g_TRUE;
936: END IF;
937:
938: IF g_debug THEN
939: hr_utility.set_location('Leaving: ' || l_PROC, 20);
940: END IF;
941:
942: RETURN l_return;
943:
957:
958: BEGIN
959:
960: IF g_debug THEN
961: hr_utility.set_location('Entering: ' || l_PROC, 10);
962: END IF;
963:
964: --
965: -- Record the BOOLEAN as a VARCHAR2.
969: l_return := g_TRUE;
970: END IF;
971:
972: IF g_debug THEN
973: hr_utility.set_location('Leaving: ' || l_PROC, 20);
974: END IF;
975:
976: RETURN l_return;
977:
992:
993: BEGIN
994:
995: IF g_debug THEN
996: hr_utility.set_location('Entering: ' || l_PROC, 10);
997: END IF;
998:
999: --
1000: -- Enumerate through the passed in PL/SQL table.
1006:
1007: FOR i IN p_vendors_in_tbl.FIRST..p_vendors_in_tbl.LAST LOOP
1008:
1009: IF g_debug THEN
1010: hr_utility.set_location
1011: (to_char(p_vendors_in_tbl(i)), 20);
1012: END IF;
1013:
1014: --
1025:
1026: END IF;
1027:
1028: IF g_debug THEN
1029: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1030: END IF;
1031:
1032: END asgs_exist_for_vendors;
1033: --
1046:
1047: BEGIN
1048:
1049: IF g_debug THEN
1050: hr_utility.set_location('Entering: ' || l_PROC, 10);
1051: END IF;
1052:
1053: --
1054: -- Enumerate through the passed in PL/SQL table.
1061: FOR i IN p_vendor_sites_in_tbl.FIRST..p_vendor_sites_in_tbl.LAST
1062: LOOP
1063:
1064: IF g_debug THEN
1065: hr_utility.set_location
1066: (to_char(p_vendor_sites_in_tbl(i)), 20);
1067: END IF;
1068:
1069: --
1080:
1081: END IF;
1082:
1083: IF g_debug THEN
1084: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1085: END IF;
1086:
1087: END asgs_exist_for_vendor_sites;
1088: --
1103:
1104: BEGIN
1105:
1106: IF g_debug THEN
1107: hr_utility.set_location('Entering: ' || l_PROC, 10);
1108: END IF;
1109:
1110: IF p_person_id IS NOT NULL AND p_effective_date IS NOT NULL
1111: AND asg_po_cols_exist THEN
1113: -- Fetch the vendor and vendor site for the person's
1114: -- primary assignment.
1115: --
1116: IF g_debug THEN
1117: hr_utility.set_location(l_PROC, 20);
1118: END IF;
1119:
1120: l_sql :=
1121: ' SELECT paaf.vendor_id '
1135:
1136: END IF;
1137:
1138: IF g_debug THEN
1139: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1140: END IF;
1141:
1142: EXCEPTION
1143:
1143:
1144: WHEN no_data_found THEN
1145:
1146: IF g_debug THEN
1147: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1148: END IF;
1149:
1150: END get_vendor_for_primary_asg;
1151: --
1166:
1167: BEGIN
1168:
1169: IF g_debug THEN
1170: hr_utility.set_location('Entering: ' || l_PROC, 10);
1171: END IF;
1172:
1173: IF p_assignment_id IS NOT NULL AND p_effective_date IS NOT NULL
1174: AND asg_po_cols_exist THEN
1175: --
1176: -- Fetch the vendor and vendor site for the given assignment.
1177: --
1178: IF g_debug THEN
1179: hr_utility.set_location(l_PROC, 20);
1180: END IF;
1181:
1182: l_sql :=
1183: ' SELECT paaf.vendor_id '
1196:
1197: END IF;
1198:
1199: IF g_debug THEN
1200: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1201: END IF;
1202:
1203: EXCEPTION
1204:
1204:
1205: WHEN no_data_found THEN
1206:
1207: IF g_debug THEN
1208: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1209: END IF;
1210:
1211: END get_vendor_for_asg;
1212: --
1227:
1228: BEGIN
1229:
1230: IF g_debug THEN
1231: hr_utility.set_location('Entering: ' || l_PROC, 10);
1232: END IF;
1233:
1234: IF p_person_id IS NOT NULL AND p_effective_date IS NOT NULL
1235: AND asg_po_cols_exist THEN
1237: -- Fetch the PO Header and Line for the person's
1238: -- primary assignment.
1239: --
1240: IF g_debug THEN
1241: hr_utility.set_location(l_PROC, 20);
1242: END IF;
1243:
1244: l_sql :=
1245: ' SELECT paaf.po_header_id '
1259:
1260: END IF;
1261:
1262: IF g_debug THEN
1263: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1264: END IF;
1265:
1266: EXCEPTION
1267:
1267:
1268: WHEN no_data_found THEN
1269:
1270: IF g_debug THEN
1271: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1272: END IF;
1273:
1274: END get_po_for_primary_asg;
1275: --
1290:
1291: BEGIN
1292:
1293: IF g_debug THEN
1294: hr_utility.set_location('Entering: ' || l_PROC, 10);
1295: END IF;
1296:
1297: IF p_assignment_id IS NOT NULL AND p_effective_date IS NOT NULL
1298: AND asg_po_cols_exist THEN
1299: --
1300: -- Fetch the vendor and vendor site for the given assignment.
1301: --
1302: IF g_debug THEN
1303: hr_utility.set_location(l_PROC, 20);
1304: END IF;
1305:
1306: l_sql :=
1307: ' SELECT paaf.po_header_id '
1320:
1321: END IF;
1322:
1323: IF g_debug THEN
1324: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1325: END IF;
1326:
1327: EXCEPTION
1328:
1328:
1329: WHEN no_data_found THEN
1330:
1331: IF g_debug THEN
1332: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1333: END IF;
1334:
1335: END get_po_for_asg;
1336: --