154: -- is not available in base 11i.
155: --
156: l_sql :=
157: ' BEGIN '
158: ||' IF NOT hr_utility.debug_enabled THEN '
159: ||' hr_po_info.g_debug := FALSE; '
160: ||' END IF; '
161: ||' END; ';
162:
183:
184: BEGIN
185:
186: IF g_debug THEN
187: hr_utility.set_location(l_PROC, 10);
188: END IF;
189:
190: --
191: -- Return a boolean indicating whether services procurement is
207:
208: BEGIN
209:
210: IF g_debug THEN
211: hr_utility.set_location(l_PROC, 10);
212: END IF;
213:
214: --
215: -- Return a varchar indicating whether services procurement is
234:
235: BEGIN
236:
237: IF g_debug THEN
238: hr_utility.set_location(l_PROC, 10);
239: END IF;
240:
241: --
242: -- Package instantiation ensures this flag is always set
258:
259: BEGIN
260:
261: IF g_debug THEN
262: hr_utility.set_location(l_PROC, 10);
263: END IF;
264:
265: --
266: -- Package instantiation ensures this flag is always set
287:
288: BEGIN
289:
290: IF g_debug THEN
291: hr_utility.set_location('Entering: ' || l_PROC, 10);
292: hr_utility.set_location(to_char(p_po_line_id), 20);
293: END IF;
294:
295: IF p_po_line_id IS NOT NULL AND asg_po_cols_exist THEN
288: BEGIN
289:
290: IF g_debug THEN
291: hr_utility.set_location('Entering: ' || l_PROC, 10);
292: hr_utility.set_location(to_char(p_po_line_id), 20);
293: END IF;
294:
295: IF p_po_line_id IS NOT NULL AND asg_po_cols_exist THEN
296: --
315:
316: END IF;
317:
318: IF g_debug THEN
319: hr_utility.set_location('Leaving: ' || l_PROC, 30);
320: END IF;
321:
322: EXCEPTION
323:
323:
324: WHEN no_data_found THEN
325:
326: IF g_debug THEN
327: hr_utility.set_location('Leaving: ' || l_PROC, 40);
328: END IF;
329:
330: END get_person_for_po_line;
331: --
344:
345: BEGIN
346:
347: IF g_debug THEN
348: hr_utility.set_location('Entering: ' || l_PROC, 10);
349: END IF;
350:
351: get_person_for_po_line
352: (p_po_line_id => p_po_line_id
353: ,p_person_id => l_person_id
354: ,p_assignment_id => l_dummy);
355:
356: IF g_debug THEN
357: hr_utility.set_location('Leaving: ' || l_PROC, 20);
358: END IF;
359:
360: RETURN l_person_id;
361:
376:
377: BEGIN
378:
379: IF g_debug THEN
380: hr_utility.set_location('Entering: ' || l_PROC, 10);
381: END IF;
382:
383: get_person_for_po_line
384: (p_po_line_id => p_po_line_id
385: ,p_person_id => l_dummy
386: ,p_assignment_id => l_asg_id);
387:
388: IF g_debug THEN
389: hr_utility.set_location('Leaving: ' || l_PROC, 20);
390: END IF;
391:
392: RETURN l_asg_id;
393:
407:
408: BEGIN
409:
410: IF g_debug THEN
411: hr_utility.set_location('Entering: ' || l_PROC, 10);
412: hr_utility.set_location(to_char(p_po_header_id), 20);
413: END IF;
414:
415: IF p_po_header_id IS NOT NULL AND asg_po_cols_exist THEN
408: BEGIN
409:
410: IF g_debug THEN
411: hr_utility.set_location('Entering: ' || l_PROC, 10);
412: hr_utility.set_location(to_char(p_po_header_id), 20);
413: END IF;
414:
415: IF p_po_header_id IS NOT NULL AND asg_po_cols_exist THEN
416: --
433:
434: END IF;
435:
436: IF g_debug THEN
437: hr_utility.set_location('Leaving: ' || l_PROC, 30);
438: END IF;
439:
440: RETURN (l_found = g_TRUE);
441:
443:
444: WHEN no_data_found THEN
445:
446: IF g_debug THEN
447: hr_utility.set_location('Leaving: ' || l_PROC, 40);
448: END IF;
449:
450: --
451: -- There are no assignments for this PO.
466:
467: BEGIN
468:
469: IF g_debug THEN
470: hr_utility.set_location(l_PROC, 10);
471: END IF;
472:
473: RETURN (get_asg_id_for_po_line
474: (p_po_line_id => p_po_line_id) IS NOT NULL);
489:
490: BEGIN
491:
492: IF g_debug THEN
493: hr_utility.set_location('Entering: ' || l_PROC, 10);
494: END IF;
495:
496: --
497: -- Record the BOOLEAN as a VARCHAR2.
501: l_return := g_TRUE;
502: END IF;
503:
504: IF g_debug THEN
505: hr_utility.set_location('Leaving: ' || l_PROC, 20);
506: END IF;
507:
508: RETURN l_return;
509:
523:
524: BEGIN
525:
526: IF g_debug THEN
527: hr_utility.set_location('Entering: ' || l_PROC, 10);
528: END IF;
529:
530: --
531: -- Record the BOOLEAN as a VARCHAR2.
535: l_return := g_TRUE;
536: END IF;
537:
538: IF g_debug THEN
539: hr_utility.set_location('Leaving: ' || l_PROC, 20);
540: END IF;
541:
542: RETURN l_return;
543:
557:
558: BEGIN
559:
560: IF g_debug THEN
561: hr_utility.set_location('Entering: ' || l_PROC, 10);
562: END IF;
563:
564: --
565: -- Enumerate through the passed in PL/SQL table.
571:
572: FOR i IN p_po_in_tbl.FIRST..p_po_in_tbl.LAST LOOP
573:
574: IF g_debug THEN
575: hr_utility.set_location
576: (to_char(p_po_in_tbl(i)), 20);
577: END IF;
578:
579: --
590:
591: END IF;
592:
593: IF g_debug THEN
594: hr_utility.set_location('Leaving: ' || l_PROC, 30);
595: END IF;
596:
597: END asgs_exist_for_pos;
598: --
611:
612: BEGIN
613:
614: IF g_debug THEN
615: hr_utility.set_location('Entering: ' || l_PROC, 10);
616: END IF;
617:
618: --
619: -- Enumerate through the passed in PL/SQL table.
625:
626: FOR i IN p_po_lines_in_tbl.FIRST..p_po_lines_in_tbl.LAST LOOP
627:
628: IF g_debug THEN
629: hr_utility.set_location
630: (to_char(p_po_lines_in_tbl(i)), 20);
631: END IF;
632:
633: --
644:
645: END IF;
646:
647: IF g_debug THEN
648: hr_utility.set_location('Leaving: ' || l_PROC, 30);
649: END IF;
650:
651: END asgs_exist_for_po_lines;
652: --
672:
673: BEGIN
674:
675: IF g_debug THEN
676: hr_utility.set_location('Entering: ' || l_PROC, 10);
677: hr_utility.set_location(to_char(p_vendor_site_id), 20);
678: END IF;
679:
680: IF p_vendor_site_id IS NOT NULL AND asg_po_cols_exist THEN
673: BEGIN
674:
675: IF g_debug THEN
676: hr_utility.set_location('Entering: ' || l_PROC, 10);
677: hr_utility.set_location(to_char(p_vendor_site_id), 20);
678: END IF;
679:
680: IF p_vendor_site_id IS NOT NULL AND asg_po_cols_exist THEN
681: --
700:
701: END IF;
702:
703: IF g_debug THEN
704: hr_utility.set_location('Leaving: ' || l_PROC, 30);
705: END IF;
706:
707: EXCEPTION
708:
708:
709: WHEN no_data_found THEN
710:
711: IF g_debug THEN
712: hr_utility.set_location('Leaving: ' || l_PROC, 40);
713: END IF;
714:
715: END get_person_for_vendor_site;
716: */
734:
735: BEGIN
736:
737: IF g_debug THEN
738: hr_utility.set_location('Entering: ' || l_PROC, 10);
739: END IF;
740:
741: get_person_for_vendor_site
742: (p_vendor_site_id => p_vendor_site_id
743: ,p_person_id => l_person_id
744: ,p_assignment_id => l_dummy);
745:
746: IF g_debug THEN
747: hr_utility.set_location('Leaving: ' || l_PROC, 20);
748: END IF;
749:
750: RETURN l_person_id;
751:
771:
772: BEGIN
773:
774: IF g_debug THEN
775: hr_utility.set_location('Entering: ' || l_PROC, 10);
776: END IF;
777:
778: get_person_for_vendor_site
779: (p_vendor_site_id => p_vendor_site_id
780: ,p_person_id => l_dummy
781: ,p_assignment_id => l_asg_id);
782:
783: IF g_debug THEN
784: hr_utility.set_location('Leaving: ' || l_PROC, 20);
785: END IF;
786:
787: RETURN l_asg_id;
788:
803:
804: BEGIN
805:
806: IF g_debug THEN
807: hr_utility.set_location('Entering: ' || l_PROC, 10);
808: hr_utility.set_location(to_char(p_vendor_id), 20);
809: END IF;
810:
811: -- Bug 3391399
804: BEGIN
805:
806: IF g_debug THEN
807: hr_utility.set_location('Entering: ' || l_PROC, 10);
808: hr_utility.set_location(to_char(p_vendor_id), 20);
809: END IF;
810:
811: -- Bug 3391399
812: -- Call function asg_vendor_id_exist instead of asg_po_cols_exist
829:
830: END IF;
831:
832: IF g_debug THEN
833: hr_utility.set_location('Leaving: ' || l_PROC, 30);
834: END IF;
835:
836: RETURN (l_found = g_TRUE);
837:
839:
840: WHEN no_data_found THEN
841:
842: IF g_debug THEN
843: hr_utility.set_location('Leaving: ' || l_PROC, 40);
844: END IF;
845:
846: --
847: -- There are no assignments for this vendor.
865:
866: BEGIN
867:
868: IF g_debug THEN
869: hr_utility.set_location(l_PROC, 10);
870: END IF;
871:
872: --
873: -- Check to see if any assignments exist for this site.
884:
885: EXECUTE IMMEDIATE l_sql INTO l_found;
886:
887: IF g_debug THEN
888: hr_utility.set_location('Leaving: ' || l_PROC, 20);
889: END IF;
890:
891: RETURN (l_found = g_TRUE);
892:
894:
895: WHEN no_data_found THEN
896:
897: IF g_debug THEN
898: hr_utility.set_location('Leaving: ' || l_PROC, 30);
899: END IF;
900:
901: --
902: -- There are no assignments for this vendor site.
918:
919: BEGIN
920:
921: IF g_debug THEN
922: hr_utility.set_location('Entering: ' || l_PROC, 10);
923: END IF;
924:
925: --
926: -- Record the BOOLEAN as a VARCHAR2.
930: l_return := g_TRUE;
931: END IF;
932:
933: IF g_debug THEN
934: hr_utility.set_location('Leaving: ' || l_PROC, 20);
935: END IF;
936:
937: RETURN l_return;
938:
952:
953: BEGIN
954:
955: IF g_debug THEN
956: hr_utility.set_location('Entering: ' || l_PROC, 10);
957: END IF;
958:
959: --
960: -- Record the BOOLEAN as a VARCHAR2.
964: l_return := g_TRUE;
965: END IF;
966:
967: IF g_debug THEN
968: hr_utility.set_location('Leaving: ' || l_PROC, 20);
969: END IF;
970:
971: RETURN l_return;
972:
987:
988: BEGIN
989:
990: IF g_debug THEN
991: hr_utility.set_location('Entering: ' || l_PROC, 10);
992: END IF;
993:
994: --
995: -- Enumerate through the passed in PL/SQL table.
1001:
1002: FOR i IN p_vendors_in_tbl.FIRST..p_vendors_in_tbl.LAST LOOP
1003:
1004: IF g_debug THEN
1005: hr_utility.set_location
1006: (to_char(p_vendors_in_tbl(i)), 20);
1007: END IF;
1008:
1009: --
1020:
1021: END IF;
1022:
1023: IF g_debug THEN
1024: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1025: END IF;
1026:
1027: END asgs_exist_for_vendors;
1028: --
1041:
1042: BEGIN
1043:
1044: IF g_debug THEN
1045: hr_utility.set_location('Entering: ' || l_PROC, 10);
1046: END IF;
1047:
1048: --
1049: -- Enumerate through the passed in PL/SQL table.
1056: FOR i IN p_vendor_sites_in_tbl.FIRST..p_vendor_sites_in_tbl.LAST
1057: LOOP
1058:
1059: IF g_debug THEN
1060: hr_utility.set_location
1061: (to_char(p_vendor_sites_in_tbl(i)), 20);
1062: END IF;
1063:
1064: --
1075:
1076: END IF;
1077:
1078: IF g_debug THEN
1079: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1080: END IF;
1081:
1082: END asgs_exist_for_vendor_sites;
1083: --
1098:
1099: BEGIN
1100:
1101: IF g_debug THEN
1102: hr_utility.set_location('Entering: ' || l_PROC, 10);
1103: END IF;
1104:
1105: IF p_person_id IS NOT NULL AND p_effective_date IS NOT NULL
1106: AND asg_po_cols_exist THEN
1108: -- Fetch the vendor and vendor site for the person's
1109: -- primary assignment.
1110: --
1111: IF g_debug THEN
1112: hr_utility.set_location(l_PROC, 20);
1113: END IF;
1114:
1115: l_sql :=
1116: ' SELECT paaf.vendor_id '
1130:
1131: END IF;
1132:
1133: IF g_debug THEN
1134: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1135: END IF;
1136:
1137: EXCEPTION
1138:
1138:
1139: WHEN no_data_found THEN
1140:
1141: IF g_debug THEN
1142: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1143: END IF;
1144:
1145: END get_vendor_for_primary_asg;
1146: --
1161:
1162: BEGIN
1163:
1164: IF g_debug THEN
1165: hr_utility.set_location('Entering: ' || l_PROC, 10);
1166: END IF;
1167:
1168: IF p_assignment_id IS NOT NULL AND p_effective_date IS NOT NULL
1169: AND asg_po_cols_exist THEN
1170: --
1171: -- Fetch the vendor and vendor site for the given assignment.
1172: --
1173: IF g_debug THEN
1174: hr_utility.set_location(l_PROC, 20);
1175: END IF;
1176:
1177: l_sql :=
1178: ' SELECT paaf.vendor_id '
1191:
1192: END IF;
1193:
1194: IF g_debug THEN
1195: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1196: END IF;
1197:
1198: EXCEPTION
1199:
1199:
1200: WHEN no_data_found THEN
1201:
1202: IF g_debug THEN
1203: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1204: END IF;
1205:
1206: END get_vendor_for_asg;
1207: --
1222:
1223: BEGIN
1224:
1225: IF g_debug THEN
1226: hr_utility.set_location('Entering: ' || l_PROC, 10);
1227: END IF;
1228:
1229: IF p_person_id IS NOT NULL AND p_effective_date IS NOT NULL
1230: AND asg_po_cols_exist THEN
1232: -- Fetch the PO Header and Line for the person's
1233: -- primary assignment.
1234: --
1235: IF g_debug THEN
1236: hr_utility.set_location(l_PROC, 20);
1237: END IF;
1238:
1239: l_sql :=
1240: ' SELECT paaf.po_header_id '
1254:
1255: END IF;
1256:
1257: IF g_debug THEN
1258: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1259: END IF;
1260:
1261: EXCEPTION
1262:
1262:
1263: WHEN no_data_found THEN
1264:
1265: IF g_debug THEN
1266: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1267: END IF;
1268:
1269: END get_po_for_primary_asg;
1270: --
1285:
1286: BEGIN
1287:
1288: IF g_debug THEN
1289: hr_utility.set_location('Entering: ' || l_PROC, 10);
1290: END IF;
1291:
1292: IF p_assignment_id IS NOT NULL AND p_effective_date IS NOT NULL
1293: AND asg_po_cols_exist THEN
1294: --
1295: -- Fetch the vendor and vendor site for the given assignment.
1296: --
1297: IF g_debug THEN
1298: hr_utility.set_location(l_PROC, 20);
1299: END IF;
1300:
1301: l_sql :=
1302: ' SELECT paaf.po_header_id '
1315:
1316: END IF;
1317:
1318: IF g_debug THEN
1319: hr_utility.set_location('Leaving: ' || l_PROC, 30);
1320: END IF;
1321:
1322: EXCEPTION
1323:
1323:
1324: WHEN no_data_found THEN
1325:
1326: IF g_debug THEN
1327: hr_utility.set_location('Leaving: ' || l_PROC, 40);
1328: END IF;
1329:
1330: END get_po_for_asg;
1331: --