204: /* Hint: more search criteria can be added here to
205: ** dynamically construct where clause at run time
206: */
207: IF ( (p_TERR_rec.TERR_ID IS NOT NULL) AND
208: (p_TERR_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
209:
210: x_use_flag := 'Y';
211: l_where_clause := l_where_clause || 'AND JTOV.TERR_ID = :p_TERR_1 ';
212:
212:
213: END IF;
214:
215: IF ( (p_TERR_rec.NAME IS NOT NULL) AND
216: (p_TERR_rec.NAME <> FND_API.G_MISS_CHAR) ) THEN
217:
218: --dbms_output.put_line('[2] Value of p_TERR_rec.NAME='|| p_TERR_rec.NAME);
219:
220: -- check if item value contains '%' wildcard
245: END IF;
246:
247:
248: IF ( (p_TERR_rec.START_DATE_ACTIVE IS NOT NULL) AND
249: (p_TERR_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
250:
251: -- check if item value contains '%' wildcard
252: OPEN c_chk_str1 ( p_TERR_rec.START_DATE_ACTIVE);
253: FETCH c_chk_str1 INTO str_csr1;
276:
277: END IF;
278:
279: IF ( (p_TERR_rec.END_DATE_ACTIVE IS NOT NULL) AND
280: (p_TERR_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
281:
282: -- check if item value contains '%' wildcard
283: OPEN c_chk_str1 ( p_TERR_rec.END_DATE_ACTIVE);
284: FETCH c_chk_str1 INTO str_csr1;
307: END IF;
308:
309:
310: IF ( (p_TERR_rec.PARENT_TERRITORY_ID IS NOT NULL) AND
311: (p_TERR_rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
312:
313: x_use_flag := 'Y';
314: l_where_clause := l_where_clause || 'AND JTOV.PARENT_TERRITORY_ID = :p_TERR_17 ';
315:
315:
316: END IF;
317:
318: IF ( (p_TERR_rec.TERRITORY_TYPE_ID IS NOT NULL) AND
319: (p_TERR_rec.TERRITORY_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
320:
321: x_use_flag := 'Y';
322: l_where_clause := l_where_clause || 'AND JTOV.TERRITORY_TYPE_ID = :p_TERR_18 ';
323:
323:
324: END IF;
325:
326: IF ( (p_TERR_rec.TEMPLATE_TERRITORY_ID IS NOT NULL) AND
327: (p_TERR_rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
328:
329: x_use_flag := 'Y';
330: l_where_clause := l_where_clause || 'AND JTOV.TEMPLATE_TERRITORY_ID = :p_TERR_19 ';
331:
331:
332: END IF;
333:
334: IF ( (p_TERR_rec.TEMPLATE_FLAG IS NOT NULL) AND
335: (p_TERR_rec.TEMPLATE_FLAG <> FND_API.G_MISS_CHAR) ) THEN
336:
337: x_use_flag := 'Y';
338: l_where_clause := l_where_clause || 'AND JTOV.TEMPLATE_FLAG ' ||
339: l_operator || ' :p_TERR_20 ';
340:
341: END IF;
342:
343: IF ( (p_TERR_rec.ESCALATION_TERRITORY_ID IS NOT NULL) AND
344: (p_TERR_rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
345:
346: x_use_flag := 'Y';
347: l_where_clause := l_where_clause || 'AND JTOV.ESCALATION_TERRITORY_ID = :p_TERR_21 ';
348:
348:
349: END IF;
350:
351: IF ( (p_TERR_rec.ESCALATION_TERRITORY_FLAG IS NOT NULL) AND
352: (p_TERR_rec.ESCALATION_TERRITORY_FLAG <> FND_API.G_MISS_CHAR) ) THEN
353:
354: x_use_flag := 'Y';
355: l_where_clause := l_where_clause || 'AND JTOV.ESCALATION_TERRITORY_FLAG ' ||
356: l_operator || ' :p_TERR_22 ';
357:
358: END IF;
359:
360: IF ( (p_TERR_rec.OVERLAP_ALLOWED_FLAG IS NOT NULL) AND
361: (p_TERR_rec.OVERLAP_ALLOWED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
362:
363: x_use_flag := 'Y';
364: l_where_clause := l_where_clause || 'AND JTOV.OVERLAP_ALLOWED_FLAG ' ||
365: l_operator || ' :p_TERR_23 ';
366:
367: END IF;
368:
369: IF ( (p_TERR_rec.RANK IS NOT NULL) AND
370: (p_TERR_rec.RANK <> FND_API.G_MISS_NUM) ) THEN
371:
372: x_use_flag := 'Y';
373: l_where_clause := l_where_clause || 'AND JTOV.RANK = :p_TERR_24 ';
374:
374:
375: END IF;
376:
377: IF ( (p_TERR_rec.DESCRIPTION IS NOT NULL) AND
378: (p_TERR_rec.DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
379:
380: -- check if item value contains '%' wildcard
381: OPEN c_chk_str1 ( p_TERR_rec.DESCRIPTION);
382: FETCH c_chk_str1 INTO str_csr1;
405:
406: END IF;
407:
408: IF ( (p_TERR_rec.PARENT_TERR_NAME IS NOT NULL) AND
409: (p_TERR_rec.PARENT_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
410:
411: -- check if item value contains '%' wildcard
412: OPEN c_chk_str1 ( p_TERR_rec.PARENT_TERR_NAME);
413: FETCH c_chk_str1 INTO str_csr1;
437:
438: END IF;
439:
440: IF ( (p_TERR_rec.ESCALATION_TERR_NAME IS NOT NULL) AND
441: (p_TERR_rec.ESCALATION_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
442:
443: -- check if item value contains '%' wildcard
444: OPEN c_chk_str1 ( p_TERR_rec.ESCALATION_TERR_NAME);
445: FETCH c_chk_str1 INTO str_csr1;
467:
468: END IF;
469:
470: IF ( (p_TERR_rec.TEMPLATE_TERR_NAME IS NOT NULL) AND
471: (p_TERR_rec.TEMPLATE_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
472:
473: -- check if item value contains '%' wildcard
474: OPEN c_chk_str1 ( p_TERR_rec.TEMPLATE_TERR_NAME);
475: FETCH c_chk_str1 INTO str_csr1;
530: /* Hint: more search criteria can be added here to
531: ** dynamically construct binds at run time
532: */
533: IF ( (p_TERR_rec.TERR_ID IS NOT NULL) AND
534: (p_TERR_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
535:
536: --dbms_output.put_line('Binding p_TERR_rec.TERR_ID to :p_Terr_1');
537:
538: -- bind the input variables
540:
541: END IF;
542:
543: IF ( (p_TERR_rec.NAME IS NOT NULL) AND
544: (p_TERR_rec.NAME <> FND_API.G_MISS_CHAR) ) THEN
545:
546: -- bind the input variables
547: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_12', p_TERR_rec.NAME);
548:
548:
549: END IF;
550:
551: IF ( (p_TERR_rec.START_DATE_ACTIVE IS NOT NULL) AND
552: (p_TERR_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
553:
554: -- bind the input variables
555: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_14', p_TERR_rec.START_DATE_ACTIVE);
556:
556:
557: END IF;
558:
559: IF ( (p_TERR_rec.END_DATE_ACTIVE IS NOT NULL) AND
560: (p_TERR_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
561:
562: -- bind the input variables
563: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_15', p_TERR_rec.END_DATE_ACTIVE);
564:
565: END IF;
566:
567:
568: IF ( (p_TERR_rec.PARENT_TERRITORY_ID IS NOT NULL) AND
569: (p_TERR_rec.PARENT_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
570:
571: -- bind the input variables
572: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_17', p_TERR_rec.PARENT_TERRITORY_ID);
573:
573:
574: END IF;
575:
576: IF ( (p_TERR_rec.TERRITORY_TYPE_ID IS NOT NULL) AND
577: (p_TERR_rec.TERRITORY_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
578:
579: -- bind the input variables
580: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_18', p_TERR_rec.TERRITORY_TYPE_ID);
581:
581:
582: END IF;
583:
584: IF ( (p_TERR_rec.TEMPLATE_TERRITORY_ID IS NOT NULL) AND
585: (p_TERR_rec.TEMPLATE_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
586:
587: -- bind the input variables
588: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_19', p_TERR_rec.TEMPLATE_TERRITORY_ID);
589:
589:
590: END IF;
591:
592: IF ( (p_TERR_rec.TEMPLATE_FLAG IS NOT NULL) AND
593: (p_TERR_rec.TEMPLATE_FLAG <> FND_API.G_MISS_CHAR) ) THEN
594:
595: -- bind the input variables
596: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_20', p_TERR_rec.TEMPLATE_FLAG);
597:
597:
598: END IF;
599:
600: IF ( (p_TERR_rec.ESCALATION_TERRITORY_ID IS NOT NULL) AND
601: (p_TERR_rec.ESCALATION_TERRITORY_ID <> FND_API.G_MISS_NUM) ) THEN
602:
603: -- bind the input variables
604: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_21', p_TERR_rec.ESCALATION_TERRITORY_ID);
605:
605:
606: END IF;
607:
608: IF ( (p_TERR_rec.ESCALATION_TERRITORY_FLAG IS NOT NULL) AND
609: (p_TERR_rec.ESCALATION_TERRITORY_FLAG <> FND_API.G_MISS_CHAR) ) THEN
610:
611: -- bind the input variables
612: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_22', p_TERR_rec.ESCALATION_TERRITORY_FLAG);
613:
613:
614: END IF;
615:
616: IF ( (p_TERR_rec.OVERLAP_ALLOWED_FLAG IS NOT NULL) AND
617: (p_TERR_rec.OVERLAP_ALLOWED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
618:
619: -- bind the input variables
620: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_23', p_TERR_rec.OVERLAP_ALLOWED_FLAG);
621:
621:
622: END IF;
623:
624: IF ( (p_TERR_rec.RANK IS NOT NULL) AND
625: (p_TERR_rec.RANK <> FND_API.G_MISS_NUM) ) THEN
626:
627: -- bind the input variables
628: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_24', p_TERR_rec.RANK);
629:
629:
630: END IF;
631:
632: IF ( (p_TERR_rec.DESCRIPTION IS NOT NULL) AND
633: (p_TERR_rec.DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
634:
635: -- bind the input variables
636: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_25', p_TERR_rec.DESCRIPTION);
637:
637:
638: END IF;
639:
640: IF ( (p_TERR_rec.PARENT_TERR_NAME IS NOT NULL) AND
641: (p_TERR_rec.PARENT_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
642:
643: -- bind the input variables
644: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_26', p_TERR_rec.PARENT_TERR_NAME);
645:
645:
646: END IF;
647:
648: IF ( (p_TERR_rec.ESCALATION_TERR_NAME IS NOT NULL) AND
649: (p_TERR_rec.ESCALATION_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
650:
651: -- bind the input variables
652: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_27', p_TERR_rec.ESCALATION_TERR_NAME);
653:
653:
654: END IF;
655:
656: IF ( (p_TERR_rec.TEMPLATE_TERR_NAME IS NOT NULL) AND
657: (p_TERR_rec.TEMPLATE_TERR_NAME <> FND_API.G_MISS_CHAR) ) THEN
658:
659: -- bind the input variables
660: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_28', p_TERR_rec.TEMPLATE_TERR_NAME);
661:
705: FND_MSG_PUB.Add;
706: END IF;
707:
708: IF ( (p_TERR_USGS_rec.TERR_USG_ID IS NOT NULL) AND
709: (p_TERR_USGS_rec.TERR_USG_ID <> FND_API.G_MISS_NUM) ) THEN
710:
711: x_use_flag := 'Y';
712: l_where_clause := l_where_clause || 'AND JTUA.TERR_USG_ID = :p_TERR_USGS_1 ';
713:
713:
714: END IF;
715:
716: IF ( (p_TERR_USGS_rec.TERR_ID IS NOT NULL) AND
717: (p_TERR_USGS_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
718:
719: x_use_flag := 'Y';
720: l_where_clause := l_where_clause || 'AND JTUA.TERR_ID = :p_TERR_USGS_7 ';
721:
721:
722: END IF;
723:
724: IF ( (p_TERR_USGS_rec.SOURCE_ID IS NOT NULL) AND
725: (p_TERR_USGS_rec.SOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
726:
727: x_use_flag := 'Y';
728: l_where_clause := l_where_clause || 'AND JTUA.SOURCE_ID = :p_TERR_USGS_8 ';
729:
729:
730: END IF;
731:
732: IF ( (p_TERR_USGS_rec.USAGE IS NOT NULL) AND
733: (p_TERR_USGS_rec.USAGE <> FND_API.G_MISS_CHAR) ) THEN
734:
735: -- check if item value contains '%' wildcard
736: OPEN c_chk_str1 ( p_TERR_USGS_rec.USAGE);
737: FETCH c_chk_str1 INTO str_csr1;
791: FND_MSG_PUB.Add;
792: END IF;
793:
794: IF ( (p_TERR_USGS_rec.TERR_USG_ID IS NOT NULL) AND
795: (p_TERR_USGS_rec.TERR_USG_ID <> FND_API.G_MISS_NUM) ) THEN
796:
797: -- bind the input variables
798: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_USGS_1', p_TERR_USGS_rec.TERR_USG_ID);
799:
799:
800: END IF;
801:
802: IF ( (p_TERR_USGS_rec.TERR_ID IS NOT NULL) AND
803: (p_TERR_USGS_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
804:
805: -- bind the input variables
806: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_USGS_7', p_TERR_USGS_rec.TERR_ID);
807:
807:
808: END IF;
809:
810: IF ( (p_TERR_USGS_rec.SOURCE_ID IS NOT NULL) AND
811: (p_TERR_USGS_rec.SOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
812:
813: -- bind the input variables
814: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_USGS_8', p_TERR_USGS_rec.SOURCE_ID);
815:
815:
816: END IF;
817:
818: IF ( (p_TERR_USGS_rec.USAGE IS NOT NULL) AND
819: (p_TERR_USGS_rec.USAGE <> FND_API.G_MISS_CHAR) ) THEN
820:
821: -- bind the input variables
822: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_USGS_9', p_TERR_USGS_rec.USAGE);
823:
868: FND_MSG_PUB.Add;
869: END IF;
870:
871: IF ( (p_TERR_TYPES_rec.TERR_TYPE_ID IS NOT NULL) AND
872: (p_TERR_TYPES_rec.TERR_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
873:
874: x_use_flag := 'Y';
875: l_where_clause := l_where_clause || 'AND JTTA.TERR_TYPE_ID = :p_TERR_TYPES_1 ';
876:
876:
877: END IF;
878:
879: IF ( (p_TERR_TYPES_rec.NAME IS NOT NULL) AND
880: (p_TERR_TYPES_rec.NAME <> FND_API.G_MISS_CHAR) ) THEN
881:
882: -- check if item value contains '%' wildcard
883: OPEN c_chk_str1 ( p_TERR_TYPES_rec.NAME);
884: FETCH c_chk_str1 INTO str_csr1;
906:
907: END IF;
908:
909: IF ( (p_TERR_TYPES_rec.DESCRIPTION IS NOT NULL) AND
910: (p_TERR_TYPES_rec.DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
911:
912: -- check if item value contains '%' wildcard
913: OPEN c_chk_str1 ( p_TERR_TYPES_rec.DESCRIPTION);
914: FETCH c_chk_str1 INTO str_csr1;
936:
937: END IF;
938:
939: IF ( (p_TERR_TYPES_rec.START_DATE_ACTIVE IS NOT NULL) AND
940: (p_TERR_TYPES_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
941:
942: -- check if item value contains '%' wildcard
943: OPEN c_chk_str1 ( p_TERR_TYPES_rec.START_DATE_ACTIVE);
944: FETCH c_chk_str1 INTO str_csr1;
968:
969: END IF;
970:
971: IF ( (p_TERR_TYPES_rec.END_DATE_ACTIVE IS NOT NULL) AND
972: (p_TERR_TYPES_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
973:
974: -- check if item value contains '%' wildcard
975: OPEN c_chk_str1 ( p_TERR_TYPES_rec.END_DATE_ACTIVE);
976: FETCH c_chk_str1 INTO str_csr1;
1029: FND_MSG_PUB.Add;
1030: END IF;
1031:
1032: IF ( (p_TERR_TYPES_rec.TERR_TYPE_ID IS NOT NULL) AND
1033: (p_TERR_TYPES_rec.TERR_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1034:
1035: -- bind the input variables
1036: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_TYPES_1', p_TERR_TYPES_rec.TERR_TYPE_ID);
1037:
1038: END IF;
1039:
1040:
1041: IF ( (p_TERR_TYPES_rec.NAME IS NOT NULL) AND
1042: (p_TERR_TYPES_rec.NAME <> FND_API.G_MISS_CHAR) ) THEN
1043:
1044: -- bind the input variables
1045: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_TYPES_8', p_TERR_TYPES_rec.NAME);
1046:
1047: END IF;
1048:
1049:
1050: IF ( (p_TERR_TYPES_rec.DESCRIPTION IS NOT NULL) AND
1051: (p_TERR_TYPES_rec.DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
1052:
1053: -- bind the input variables
1054: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_TYPES_10', p_TERR_TYPES_rec.DESCRIPTION);
1055:
1055:
1056: END IF;
1057:
1058: IF ( (p_TERR_TYPES_rec.START_DATE_ACTIVE IS NOT NULL) AND
1059: (p_TERR_TYPES_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
1060:
1061: -- bind the input variables
1062: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_TYPES_11', p_TERR_TYPES_rec.START_DATE_ACTIVE);
1063:
1063:
1064: END IF;
1065:
1066: IF ( (p_TERR_TYPES_rec.END_DATE_ACTIVE IS NOT NULL) AND
1067: (p_TERR_TYPES_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
1068:
1069: -- bind the input variables
1070: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_TYPES_12', p_TERR_TYPES_rec.END_DATE_ACTIVE);
1071:
1116: FND_MSG_PUB.Add;
1117: END IF;
1118:
1119: IF ( (p_TERR_QTYPE_USGS_REC.TERR_QTYPE_USG_ID IS NOT NULL) AND
1120: (p_TERR_QTYPE_USGS_REC.TERR_QTYPE_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1121:
1122: x_use_flag := 'Y';
1123: l_where_clause := l_where_clause || 'AND JTTV.TERR_QTYPE_USG_ID = :p_TERR_QTYPE_USGS_1 ';
1124:
1124:
1125: END IF;
1126:
1127: IF ( (p_TERR_QTYPE_USGS_REC.TERR_ID IS NOT NULL) AND
1128: (p_TERR_QTYPE_USGS_REC.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
1129:
1130: x_use_flag := 'Y';
1131: l_where_clause := l_where_clause || 'AND JTTV.TERR_ID = :p_TERR_QTYPE_USGS_7 ';
1132:
1132:
1133: END IF;
1134:
1135: IF ( (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_USG_ID IS NOT NULL) AND
1136: (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1137:
1138: x_use_flag := 'Y';
1139: l_where_clause := l_where_clause || 'AND JTTV.TERR_ID = :p_TERR_QTYPE_USGS_8 ';
1140:
1140:
1141: END IF;
1142:
1143: IF ( (p_TERR_QTYPE_USGS_REC.SOURCE_ID IS NOT NULL) AND
1144: (p_TERR_QTYPE_USGS_REC.SOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
1145:
1146: x_use_flag := 'Y';
1147: l_where_clause := l_where_clause || 'AND JTTV.SOURCE_ID = :p_TERR_QTYPE_USGS_10 ';
1148:
1148:
1149: END IF;
1150:
1151: IF ( (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_ID IS NOT NULL) AND
1152: (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1153:
1154: x_use_flag := 'Y';
1155: l_where_clause := l_where_clause || 'AND JTTV.QUAL_TYPE_ID = :p_TERR_QTYPE_USGS_11 ';
1156:
1156:
1157: END IF;
1158:
1159: IF ( (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_NAME IS NOT NULL) AND
1160: (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_NAME <> FND_API.G_MISS_CHAR) ) THEN
1161:
1162: -- check if item value contains '%' wildcard
1163: OPEN c_chk_str1 ( p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_NAME);
1164: FETCH c_chk_str1 INTO str_csr1;
1187:
1188: END IF;
1189:
1190: IF ( (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_DESCRIPTION IS NOT NULL) AND
1191: (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
1192:
1193: -- check if item value contains '%' wildcard
1194: OPEN c_chk_str1 ( p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_DESCRIPTION);
1195: FETCH c_chk_str1 INTO str_csr1;
1249: END IF;
1250:
1251:
1252: IF ( (p_TERR_QTYPE_USGS_REC.TERR_QTYPE_USG_ID IS NOT NULL) AND
1253: (p_TERR_QTYPE_USGS_REC.TERR_QTYPE_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1254:
1255: -- bind the input variables
1256: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_1', p_TERR_QTYPE_USGS_rec.TERR_QTYPE_USG_ID);
1257:
1257:
1258: END IF;
1259:
1260: IF ( (p_TERR_QTYPE_USGS_REC.TERR_ID IS NOT NULL) AND
1261: (p_TERR_QTYPE_USGS_REC.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
1262:
1263: -- bind the input variables
1264: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_7', p_TERR_QTYPE_USGS_rec.TERR_ID);
1265:
1265:
1266: END IF;
1267:
1268: IF ( (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_USG_ID IS NOT NULL) AND
1269: (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1270:
1271: -- bind the input variables
1272: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_8', p_TERR_QTYPE_USGS_rec.QUAL_TYPE_USG_ID);
1273:
1273:
1274: END IF;
1275:
1276: IF ( (p_TERR_QTYPE_USGS_REC.SOURCE_ID IS NOT NULL) AND
1277: (p_TERR_QTYPE_USGS_REC.SOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
1278:
1279: -- bind the input variables
1280: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_10', p_TERR_QTYPE_USGS_rec.SOURCE_ID);
1281:
1281:
1282: END IF;
1283:
1284: IF ( (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_ID IS NOT NULL) AND
1285: (p_TERR_QTYPE_USGS_REC.QUAL_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1286:
1287: -- bind the input variables
1288: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_11', p_TERR_QTYPE_USGS_rec.QUAL_TYPE_ID);
1289:
1289:
1290: END IF;
1291:
1292: IF ( (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_NAME IS NOT NULL) AND
1293: (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_NAME <> FND_API.G_MISS_CHAR) ) THEN
1294:
1295: -- bind the input variables
1296: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_12', p_TERR_QTYPE_USGS_rec.QUALIFIER_TYPE_NAME);
1297:
1297:
1298: END IF;
1299:
1300: IF ( (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_DESCRIPTION IS NOT NULL) AND
1301: (p_TERR_QTYPE_USGS_REC.QUALIFIER_TYPE_DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
1302:
1303: -- bind the input variables
1304: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QTYPE_USGS_13', p_TERR_QTYPE_USGS_rec.QUALIFIER_TYPE_DESCRIPTION);
1305:
1351: END IF;
1352:
1353:
1354: IF ( (p_TERR_QUAL_rec.TERR_QUAL_ID IS NOT NULL) AND
1355: (p_TERR_QUAL_rec.TERR_QUAL_ID <> FND_API.G_MISS_NUM) ) THEN
1356:
1357: x_use_flag := 'Y';
1358: l_where_clause := l_where_clause || 'AND JTQV.TERR_QUAL_ID = :p_TERR_QUAL_1 ';
1359:
1359:
1360: END IF;
1361:
1362: IF ( (p_TERR_QUAL_rec.TERR_ID IS NOT NULL) AND
1363: (p_TERR_QUAL_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
1364:
1365: x_use_flag := 'Y';
1366: l_where_clause := l_where_clause || 'AND JTQV.TERR_ID = :p_TERR_QUAL_7 ';
1367:
1367:
1368: END IF;
1369:
1370: IF ( (p_TERR_QUAL_rec.QUAL_USG_ID IS NOT NULL) AND
1371: (p_TERR_QUAL_rec.QUAL_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1372:
1373: x_use_flag := 'Y';
1374: l_where_clause := l_where_clause || 'AND JTQV.QUAL_USG_ID = :p_TERR_QUAL_8 ';
1375:
1376: END IF;
1377:
1378:
1379: IF ( (p_TERR_QUAL_rec.OVERLAP_ALLOWED_FLAG IS NOT NULL) AND
1380: (p_TERR_QUAL_rec.OVERLAP_ALLOWED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
1381:
1382: x_use_flag := 'Y';
1383: l_where_clause := l_where_clause || 'AND JTQV.OVERLAP_ALLOWED_FLAG ' ||
1384: l_operator || ' :p_TERR_QUAL_11 ';
1385:
1386: END IF;
1387:
1388: IF ( (p_TERR_QUAL_rec.QUALIFIER_MODE IS NOT NULL) AND
1389: (p_TERR_QUAL_rec.QUALIFIER_MODE <> FND_API.G_MISS_CHAR) ) THEN
1390:
1391: -- check if item value contains '%' wildcard
1392: OPEN c_chk_str1 ( p_TERR_QUAL_rec.QUALIFIER_MODE);
1393: FETCH c_chk_str1 INTO str_csr1;
1417: END IF;
1418:
1419:
1420: IF ( (p_TERR_QUAL_rec.DISPLAY_TYPE IS NOT NULL) AND
1421: (p_TERR_QUAL_rec.DISPLAY_TYPE <> FND_API.G_MISS_CHAR) ) THEN
1422:
1423: -- check if item value contains '%' wildcard
1424: OPEN c_chk_str1 ( p_TERR_QUAL_rec.DISPLAY_TYPE);
1425: FETCH c_chk_str1 INTO str_csr1;
1448:
1449: END IF;
1450:
1451: IF ( (p_TERR_QUAL_rec.LOV_SQL IS NOT NULL) AND
1452: (p_TERR_QUAL_rec.LOV_SQL <> FND_API.G_MISS_CHAR) ) THEN
1453:
1454: -- check if item value contains '%' wildcard
1455: OPEN c_chk_str1 ( p_TERR_QUAL_rec.LOV_SQL);
1456: FETCH c_chk_str1 INTO str_csr1;
1480: END IF;
1481:
1482:
1483: IF ( (p_TERR_QUAL_rec.CONVERT_TO_ID_FLAG IS NOT NULL) AND
1484: (p_TERR_QUAL_rec.CONVERT_TO_ID_FLAG <> FND_API.G_MISS_CHAR) ) THEN
1485:
1486: x_use_flag := 'Y';
1487: l_where_clause := l_where_clause || 'AND JTQV.CONVERT_TO_ID_FLAG = :p_TERR_QUAL_16 ';
1488:
1488:
1489: END IF;
1490:
1491: IF ( (p_TERR_QUAL_rec.QUAL_TYPE_ID IS NOT NULL) AND
1492: (p_TERR_QUAL_rec.QUAL_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1493:
1494: x_use_flag := 'Y';
1495: l_where_clause := l_where_clause || 'AND JTQV.QUAL_TYPE_ID = :p_TERR_QUAL_17 ';
1496:
1496:
1497: END IF;
1498:
1499: IF ( (p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME IS NOT NULL) AND
1500: (p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME <> FND_API.G_MISS_CHAR) ) THEN
1501:
1502: -- check if item value contains '%' wildcard
1503: OPEN c_chk_str1 ( p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME);
1504: FETCH c_chk_str1 INTO str_csr1;
1527:
1528: END IF;
1529:
1530: IF ( (p_Terr_Qual_Rec.QUALIFIER_TYPE_DESCRIPTION IS NOT NULL) AND
1531: (p_Terr_Qual_Rec.QUALIFIER_TYPE_DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
1532:
1533: -- check if item value contains '%' wildcard
1534: OPEN c_chk_str1 ( p_TERR_QUAL_rec.QUALIFIER_TYPE_DESCRIPTION);
1535: FETCH c_chk_str1 INTO str_csr1;
1558:
1559: END IF;
1560:
1561: IF ( (p_TERR_QUAL_rec.QUALIFIER_NAME IS NOT NULL) AND
1562: (p_TERR_QUAL_rec.QUALIFIER_NAME <> FND_API.G_MISS_CHAR) ) THEN
1563:
1564: -- check if item value contains '%' wildcard
1565: OPEN c_chk_str1 ( p_TERR_QUAL_rec.QUALIFIER_NAME);
1566: FETCH c_chk_str1 INTO str_csr1;
1622: FND_MSG_PUB.Add;
1623: END IF;
1624:
1625: IF ( (p_TERR_QUAL_rec.TERR_QUAL_ID IS NOT NULL) AND
1626: (p_TERR_QUAL_rec.TERR_QUAL_ID <> FND_API.G_MISS_NUM) ) THEN
1627:
1628: -- bind the input variables
1629: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_1', p_TERR_QUAL_rec.TERR_QUAL_ID);
1630:
1630:
1631: END IF;
1632:
1633: IF ( (p_TERR_QUAL_rec.TERR_ID IS NOT NULL) AND
1634: (p_TERR_QUAL_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
1635:
1636: -- bind the input variables
1637: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_7', p_TERR_QUAL_rec.TERR_ID);
1638:
1638:
1639: END IF;
1640:
1641: IF ( (p_TERR_QUAL_rec.QUAL_USG_ID IS NOT NULL) AND
1642: (p_TERR_QUAL_rec.QUAL_USG_ID <> FND_API.G_MISS_NUM) ) THEN
1643:
1644: -- bind the input variables
1645: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_8', p_TERR_QUAL_rec.QUAL_USG_ID);
1646:
1646:
1647: END IF;
1648:
1649: IF ( (p_TERR_QUAL_rec.OVERLAP_ALLOWED_FLAG IS NOT NULL) AND
1650: (p_TERR_QUAL_rec.OVERLAP_ALLOWED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
1651:
1652: -- bind the input variables
1653: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_11', p_TERR_QUAL_rec.OVERLAP_ALLOWED_FLAG);
1654:
1654:
1655: END IF;
1656:
1657: IF ( (p_TERR_QUAL_rec.QUALIFIER_MODE IS NOT NULL) AND
1658: (p_TERR_QUAL_rec.QUALIFIER_MODE <> FND_API.G_MISS_CHAR) ) THEN
1659:
1660: -- bind the input variables
1661: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_13', p_TERR_QUAL_rec.QUALIFIER_MODE);
1662:
1662:
1663: END IF;
1664:
1665: IF ( (p_TERR_QUAL_rec.DISPLAY_TYPE IS NOT NULL) AND
1666: (p_TERR_QUAL_rec.DISPLAY_TYPE <> FND_API.G_MISS_CHAR) ) THEN
1667:
1668: -- bind the input variables
1669: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_14', p_TERR_QUAL_rec.DISPLAY_TYPE);
1670:
1670:
1671: END IF;
1672:
1673: IF ( (p_TERR_QUAL_rec.LOV_SQL IS NOT NULL) AND
1674: (p_TERR_QUAL_rec.LOV_SQL <> FND_API.G_MISS_CHAR) ) THEN
1675:
1676: -- bind the input variables
1677: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_15', p_TERR_QUAL_rec.LOV_SQL);
1678:
1678:
1679: END IF;
1680:
1681: IF ( (p_TERR_QUAL_rec.CONVERT_TO_ID_FLAG IS NOT NULL) AND
1682: (p_TERR_QUAL_rec.CONVERT_TO_ID_FLAG <> FND_API.G_MISS_CHAR) ) THEN
1683:
1684:
1685: -- bind the input variables
1686: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_16', p_TERR_QUAL_rec.CONVERT_TO_ID_FLAG);
1687:
1688: END IF;
1689:
1690: IF ( (p_TERR_QUAL_rec.QUAL_TYPE_ID IS NOT NULL) AND
1691: (p_TERR_QUAL_rec.QUAL_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1692:
1693: -- bind the input variables
1694: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_17', p_TERR_QUAL_rec.QUAL_TYPE_ID);
1695:
1695:
1696: END IF;
1697:
1698: IF ( (p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME IS NOT NULL) AND
1699: (p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME <> FND_API.G_MISS_CHAR) ) THEN
1700:
1701: -- bind the input variables
1702: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_18', p_TERR_QUAL_rec.QUALIFIER_TYPE_NAME);
1703:
1703:
1704: END IF;
1705:
1706: IF ( (p_TERR_QUAL_rec.QUALIFIER_TYPE_DESCRIPTION IS NOT NULL) AND
1707: (p_TERR_QUAL_rec.QUALIFIER_TYPE_DESCRIPTION <> FND_API.G_MISS_CHAR) ) THEN
1708:
1709: -- bind the input variables
1710: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_19', p_TERR_QUAL_rec.QUALIFIER_TYPE_DESCRIPTION);
1711:
1711:
1712: END IF;
1713:
1714: IF ( (p_TERR_QUAL_rec.QUALIFIER_NAME IS NOT NULL) AND
1715: (p_TERR_QUAL_rec.QUALIFIER_NAME <> FND_API.G_MISS_CHAR) ) THEN
1716:
1717: -- bind the input variables
1718: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_QUAL_20', p_TERR_QUAL_rec.QUALIFIER_NAME);
1719:
1765: FND_MSG_PUB.Add;
1766: END IF;
1767:
1768: IF ( (p_TERR_VALUES_rec.TERR_VALUE_ID IS NOT NULL) AND
1769: (p_TERR_VALUES_rec.TERR_VALUE_ID <> FND_API.G_MISS_NUM) ) THEN
1770:
1771: x_use_flag := 'Y';
1772: l_where_clause := l_where_clause || 'AND JTV.TERR_VALUE_ID = :p_TERR_VALUES_1 ';
1773:
1773:
1774: END IF;
1775:
1776: IF ( (p_TERR_VALUES_rec.TERR_QUAL_ID IS NOT NULL) AND
1777: (p_TERR_VALUES_rec.TERR_QUAL_ID <> FND_API.G_MISS_NUM) ) THEN
1778:
1779: x_use_flag := 'Y';
1780: l_where_clause := l_where_clause || 'AND JTV.TERR_QUAL_ID = :p_TERR_VALUES_7 ';
1781:
1781:
1782: END IF;
1783:
1784: IF ( (p_TERR_VALUES_rec.COMPARISON_OPERATOR IS NOT NULL) AND
1785: (p_TERR_VALUES_rec.COMPARISON_OPERATOR <> FND_API.G_MISS_CHAR) ) THEN
1786:
1787: -- check if item value contains '%' wildcard
1788: OPEN c_chk_str1 ( p_TERR_VALUES_rec.COMPARISON_OPERATOR);
1789: FETCH c_chk_str1 INTO str_csr1;
1812:
1813: END IF;
1814:
1815: IF ( (p_TERR_VALUES_rec.LOW_VALUE_CHAR IS NOT NULL) AND
1816: (p_TERR_VALUES_rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR) ) THEN
1817:
1818: -- check if item value contains '%' wildcard
1819: OPEN c_chk_str1 ( p_TERR_VALUES_rec.LOW_VALUE_CHAR);
1820: FETCH c_chk_str1 INTO str_csr1;
1843:
1844: END IF;
1845:
1846: IF ( (p_TERR_VALUES_rec.HIGH_VALUE_CHAR IS NOT NULL) AND
1847: (p_TERR_VALUES_rec.HIGH_VALUE_CHAR <> FND_API.G_MISS_CHAR) ) THEN
1848:
1849: -- check if item value contains '%' wildcard
1850: OPEN c_chk_str1 ( p_TERR_VALUES_rec.HIGH_VALUE_CHAR);
1851: FETCH c_chk_str1 INTO str_csr1;
1874:
1875: END IF;
1876:
1877: IF ( (p_TERR_VALUES_rec.LOW_VALUE_NUMBER IS NOT NULL) AND
1878: (p_TERR_VALUES_rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM) ) THEN
1879:
1880: x_use_flag := 'Y';
1881: l_where_clause := l_where_clause || 'AND JTV.LOW_VALUE_NUMBER = :p_TERR_VALUES_12 ';
1882:
1882:
1883: END IF;
1884:
1885: IF ( (p_TERR_VALUES_rec.HIGH_VALUE_NUMBER IS NOT NULL) AND
1886: (p_TERR_VALUES_rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM) ) THEN
1887:
1888: x_use_flag := 'Y';
1889: l_where_clause := l_where_clause || 'AND JTV.HIGH_VALUE_NUMBER = :p_TERR_VALUES_13 ';
1890:
1891: END IF;
1892:
1893:
1894: IF ( (p_TERR_VALUES_rec.INTEREST_TYPE_ID IS NOT NULL) AND
1895: (p_TERR_VALUES_rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
1896:
1897: x_use_flag := 'Y';
1898: l_where_clause := l_where_clause || 'AND JTV.INTEREST_TYPE_ID = :p_TERR_VALUES_15 ';
1899:
1899:
1900: END IF;
1901:
1902: IF ( (p_TERR_VALUES_rec.PRIMARY_INTEREST_CODE_ID IS NOT NULL) AND
1903: (p_TERR_VALUES_rec.PRIMARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM) ) THEN
1904:
1905: x_use_flag := 'Y';
1906: l_where_clause := l_where_clause || 'AND JTV.PRIMARY_INTEREST_CODE_ID = :p_TERR_VALUES_16 ';
1907:
1907:
1908: END IF;
1909:
1910: IF ( (p_TERR_VALUES_rec.SECONDARY_INTEREST_CODE_ID IS NOT NULL) AND
1911: (p_TERR_VALUES_rec.SECONDARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM) ) THEN
1912:
1913: x_use_flag := 'Y';
1914: x_where_clause := x_where_clause ||
1915: 'AND JTV.SECONDARY_INTEREST_CODE_ID = :p_TERR_VALUES_17 ';
1916:
1917: END IF;
1918:
1919: IF ( (p_TERR_VALUES_rec.CURRENCY_CODE IS NOT NULL) AND
1920: (p_TERR_VALUES_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) ) THEN
1921:
1922: -- check if item value contains '%' wildcard
1923: OPEN c_chk_str1 ( p_TERR_VALUES_rec.CURRENCY_CODE);
1924: FETCH c_chk_str1 INTO str_csr1;
1947:
1948: END IF;
1949:
1950: IF ( (p_TERR_VALUES_rec.ID_USED_FLAG IS NOT NULL) AND
1951: (p_TERR_VALUES_rec.ID_USED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
1952:
1953: x_use_flag := 'Y';
1954: x_where_clause := x_where_clause || 'AND JTV.ID_USED_FLAG = :p_TERR_VALUES_19 ';
1955:
1955:
1956: END IF;
1957:
1958: IF ( (p_TERR_VALUES_rec.LOW_VALUE_CHAR_ID IS NOT NULL) AND
1959: (p_TERR_VALUES_rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM) ) THEN
1960:
1961: x_use_flag := 'Y';
1962: x_where_clause := x_where_clause || 'AND JTV.LOW_VALUE_CHAR_ID = :p_TERR_VALUES_20 ';
1963:
1995: FND_MSG_PUB.Add;
1996: END IF;
1997:
1998: IF ( (p_TERR_VALUES_rec.TERR_VALUE_ID IS NOT NULL) AND
1999: (p_TERR_VALUES_rec.TERR_VALUE_ID <> FND_API.G_MISS_NUM) ) THEN
2000:
2001: -- bind the input variables
2002: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_1', p_TERR_VALUES_rec.TERR_VALUE_ID);
2003:
2003:
2004: END IF;
2005:
2006: IF ( (p_TERR_VALUES_rec.TERR_QUAL_ID IS NOT NULL) AND
2007: (p_TERR_VALUES_rec.TERR_QUAL_ID <> FND_API.G_MISS_NUM) ) THEN
2008:
2009: -- bind the input variables
2010: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_7', p_TERR_VALUES_rec.TERR_QUAL_ID);
2011:
2011:
2012: END IF;
2013:
2014: IF ( (p_TERR_VALUES_rec.COMPARISON_OPERATOR IS NOT NULL) AND
2015: (p_TERR_VALUES_rec.COMPARISON_OPERATOR <> FND_API.G_MISS_CHAR) ) THEN
2016:
2017: -- bind the input variables
2018: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_9', p_TERR_VALUES_rec.COMPARISON_OPERATOR);
2019:
2019:
2020: END IF;
2021:
2022: IF ( (p_TERR_VALUES_rec.LOW_VALUE_CHAR IS NOT NULL) AND
2023: (p_TERR_VALUES_rec.LOW_VALUE_CHAR <> FND_API.G_MISS_CHAR) ) THEN
2024:
2025: --dbms_output.put_line( 'Value of p_TERR_VALUES_rec.LOW_VALUE_CHAR = ' ||
2026: -- p_TERR_VALUES_rec.LOW_VALUE_CHAR);
2027:
2030:
2031: END IF;
2032:
2033: IF ( (p_TERR_VALUES_rec.HIGH_VALUE_CHAR IS NOT NULL) AND
2034: (p_TERR_VALUES_rec.HIGH_VALUE_CHAR <> FND_API.G_MISS_CHAR) ) THEN
2035:
2036: -- bind the input variables
2037: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_11', p_TERR_VALUES_rec.HIGH_VALUE_CHAR);
2038:
2038:
2039: END IF;
2040:
2041: IF ( (p_TERR_VALUES_rec.LOW_VALUE_NUMBER IS NOT NULL) AND
2042: (p_TERR_VALUES_rec.LOW_VALUE_NUMBER <> FND_API.G_MISS_NUM) ) THEN
2043:
2044: -- bind the input variables
2045: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_12', p_TERR_VALUES_rec.LOW_VALUE_NUMBER);
2046:
2046:
2047: END IF;
2048:
2049: IF ( (p_TERR_VALUES_rec.HIGH_VALUE_NUMBER IS NOT NULL) AND
2050: (p_TERR_VALUES_rec.HIGH_VALUE_NUMBER <> FND_API.G_MISS_NUM) ) THEN
2051:
2052: -- bind the input variables
2053: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_13', p_TERR_VALUES_rec.HIGH_VALUE_NUMBER);
2054:
2055: END IF;
2056:
2057:
2058: IF ( (p_TERR_VALUES_rec.INTEREST_TYPE_ID IS NOT NULL) AND
2059: (p_TERR_VALUES_rec.INTEREST_TYPE_ID <> FND_API.G_MISS_NUM) ) THEN
2060:
2061: -- bind the input variables
2062: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_15', p_TERR_VALUES_rec.INTEREST_TYPE_ID);
2063:
2063:
2064: END IF;
2065:
2066: IF ( (p_TERR_VALUES_rec.PRIMARY_INTEREST_CODE_ID IS NOT NULL) AND
2067: (p_TERR_VALUES_rec.PRIMARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM) ) THEN
2068:
2069: -- bind the input variables
2070: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_16', p_TERR_VALUES_rec.PRIMARY_INTEREST_CODE_ID);
2071:
2071:
2072: END IF;
2073:
2074: IF ( (p_TERR_VALUES_rec.SECONDARY_INTEREST_CODE_ID IS NOT NULL) AND
2075: (p_TERR_VALUES_rec.SECONDARY_INTEREST_CODE_ID <> FND_API.G_MISS_NUM) ) THEN
2076:
2077: -- bind the input variables
2078: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_17', p_TERR_VALUES_rec.SECONDARY_INTEREST_CODE_ID);
2079:
2079:
2080: END IF;
2081:
2082: IF ( (p_TERR_VALUES_rec.CURRENCY_CODE IS NOT NULL) AND
2083: (p_TERR_VALUES_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) ) THEN
2084:
2085: -- bind the input variables
2086: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_18', p_TERR_VALUES_rec.CURRENCY_CODE);
2087:
2087:
2088: END IF;
2089:
2090: IF ( (p_TERR_VALUES_rec.ID_USED_FLAG IS NOT NULL) AND
2091: (p_TERR_VALUES_rec.ID_USED_FLAG <> FND_API.G_MISS_CHAR) ) THEN
2092:
2093: -- bind the input variables
2094: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_19', p_TERR_VALUES_rec.ID_USED_FLAG);
2095:
2095:
2096: END IF;
2097:
2098: IF ( (p_TERR_VALUES_rec.LOW_VALUE_CHAR_ID IS NOT NULL) AND
2099: (p_TERR_VALUES_rec.LOW_VALUE_CHAR_ID <> FND_API.G_MISS_NUM) ) THEN
2100:
2101: -- bind the input variables
2102: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_VALUES_20', p_TERR_VALUES_rec.LOW_VALUE_CHAR_ID);
2103:
2149: FND_MSG_PUB.Add;
2150: END IF;
2151:
2152: IF ( (p_TERR_RSC_rec.TERR_RSC_ID IS NOT NULL) AND
2153: (p_TERR_RSC_rec.TERR_RSC_ID <> FND_API.G_MISS_NUM) ) THEN
2154:
2155: x_use_flag := 'Y';
2156: l_where_clause := l_where_clause || 'AND JTRV.TERR_RSC_ID = :p_TERR_RSC_1 ';
2157:
2157:
2158: END IF;
2159:
2160: IF ( (p_TERR_RSC_rec.TERR_ID IS NOT NULL) AND
2161: (p_TERR_RSC_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
2162:
2163: x_use_flag := 'Y';
2164: l_where_clause := l_where_clause || 'AND JTRV.TERR_ID = :p_TERR_RSC_7 ';
2165:
2165:
2166: END IF;
2167:
2168: IF ( (p_TERR_RSC_rec.RESOURCE_ID IS NOT NULL) AND
2169: (p_TERR_RSC_rec.RESOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
2170:
2171: x_use_flag := 'Y';
2172: l_where_clause := l_where_clause || 'AND JTRV.RESOURCE_ID = :p_TERR_RSC_8 ';
2173:
2173:
2174: END IF;
2175:
2176: IF ( (p_TERR_RSC_rec.RESOURCE_TYPE IS NOT NULL) AND
2177: (p_TERR_RSC_rec.RESOURCE_TYPE <> FND_API.G_MISS_CHAR) ) THEN
2178:
2179: -- check if item value contains '%' wildcard
2180: OPEN c_chk_str1 ( p_TERR_RSC_rec.RESOURCE_TYPE);
2181: FETCH c_chk_str1 INTO str_csr1;
2204:
2205: END IF;
2206:
2207: IF ( (p_TERR_RSC_rec.ROLE IS NOT NULL) AND
2208: (p_TERR_RSC_rec.ROLE <> FND_API.G_MISS_CHAR) ) THEN
2209:
2210: -- check if item value contains '%' wildcard
2211: OPEN c_chk_str1 ( p_TERR_RSC_rec.ROLE);
2212: FETCH c_chk_str1 INTO str_csr1;
2236:
2237: END IF;
2238:
2239: IF ( (p_TERR_RSC_rec.PRIMARY_CONTACT_FLAG IS NOT NULL) AND
2240: (p_TERR_RSC_rec.PRIMARY_CONTACT_FLAG <> FND_API.G_MISS_CHAR) ) THEN
2241:
2242: x_use_flag := 'Y';
2243: l_where_clause := l_where_clause || 'AND JTRV.PRIMARY_CONTACT_FLAG = :p_TERR_RSC_11';
2244:
2244:
2245: END IF;
2246:
2247: IF ( (p_TERR_RSC_rec.START_DATE_ACTIVE IS NOT NULL) AND
2248: (p_TERR_RSC_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
2249:
2250: -- check if item value contains '%' wildcard
2251: OPEN c_chk_str1 ( p_TERR_RSC_rec.START_DATE_ACTIVE);
2252: FETCH c_chk_str1 INTO str_csr1;
2275:
2276: END IF;
2277:
2278: IF ( (p_TERR_RSC_rec.END_DATE_ACTIVE IS NOT NULL) AND
2279: (p_TERR_RSC_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
2280:
2281: -- check if item value contains '%' wildcard
2282: OPEN c_chk_str1 ( p_TERR_RSC_rec.END_DATE_ACTIVE);
2283: FETCH c_chk_str1 INTO str_csr1;
2306:
2307: END IF;
2308:
2309: IF ( (p_TERR_RSC_rec.FULL_ACCESS_FLAG IS NOT NULL) AND
2310: (p_TERR_RSC_rec.FULL_ACCESS_FLAG <> FND_API.G_MISS_CHAR) ) THEN
2311:
2312: x_use_flag := 'Y';
2313: l_where_clause := l_where_clause || 'AND JTRV.FULL_ACCESS_FLAG = :p_TERR_RSC_14';
2314:
2345: FND_MSG_PUB.Add;
2346: END IF;
2347:
2348: IF ( (p_TERR_RSC_rec.TERR_RSC_ID IS NOT NULL) AND
2349: (p_TERR_RSC_rec.TERR_RSC_ID <> FND_API.G_MISS_NUM) ) THEN
2350:
2351: -- bind the input variables
2352: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_1', p_TERR_RSC_rec.TERR_RSC_ID);
2353:
2353:
2354: END IF;
2355:
2356: IF ( (p_TERR_RSC_rec.TERR_ID IS NOT NULL) AND
2357: (p_TERR_RSC_rec.TERR_ID <> FND_API.G_MISS_NUM) ) THEN
2358:
2359: -- bind the input variables
2360: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_7', p_TERR_RSC_rec.TERR_ID);
2361:
2361:
2362: END IF;
2363:
2364: IF ( (p_TERR_RSC_rec.RESOURCE_ID IS NOT NULL) AND
2365: (p_TERR_RSC_rec.RESOURCE_ID <> FND_API.G_MISS_NUM) ) THEN
2366:
2367: -- bind the input variables
2368: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_8', p_TERR_RSC_rec.RESOURCE_ID);
2369:
2369:
2370: END IF;
2371:
2372: IF ( (p_TERR_RSC_rec.RESOURCE_TYPE IS NOT NULL) AND
2373: (p_TERR_RSC_rec.RESOURCE_TYPE <> FND_API.G_MISS_CHAR) ) THEN
2374:
2375: -- bind the input variables
2376: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_9', p_TERR_RSC_rec.RESOURCE_TYPE);
2377:
2377:
2378: END IF;
2379:
2380: IF ( (p_TERR_RSC_rec.ROLE IS NOT NULL) AND
2381: (p_TERR_RSC_rec.ROLE <> FND_API.G_MISS_CHAR) ) THEN
2382:
2383: -- bind the input variables
2384: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_10', p_TERR_RSC_rec.ROLE);
2385:
2385:
2386: END IF;
2387:
2388: IF ( (p_TERR_RSC_rec.PRIMARY_CONTACT_FLAG IS NOT NULL) AND
2389: (p_TERR_RSC_rec.PRIMARY_CONTACT_FLAG <> FND_API.G_MISS_CHAR) ) THEN
2390:
2391: -- bind the input variables
2392: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_11', p_TERR_RSC_rec.PRIMARY_CONTACT_FLAG);
2393:
2393:
2394: END IF;
2395:
2396: IF ( (p_TERR_RSC_rec.START_DATE_ACTIVE IS NOT NULL) AND
2397: (p_TERR_RSC_rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
2398:
2399: -- bind the input variables
2400: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_12', p_TERR_RSC_rec.START_DATE_ACTIVE);
2401:
2401:
2402: END IF;
2403:
2404: IF ( (p_TERR_RSC_rec.END_DATE_ACTIVE IS NOT NULL) AND
2405: (p_TERR_RSC_rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE) ) THEN
2406:
2407: -- bind the input variables
2408: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_13', p_TERR_RSC_rec.END_DATE_ACTIVE);
2409:
2409:
2410: END IF;
2411:
2412: IF ( (p_TERR_RSC_rec.FULL_ACCESS_FLAG IS NOT NULL) AND
2413: (p_TERR_RSC_rec.FULL_ACCESS_FLAG <> FND_API.G_MISS_CHAR) ) THEN
2414:
2415: -- bind the input variables
2416: DBMS_SQL.BIND_VARIABLE(p_dsql_csr, ':p_TERR_RSC_14', p_TERR_RSC_rec.FULL_ACCESS_FLAG);
2417:
2442: IS
2443:
2444: l_proc_name VARCHAR2(30) := 'Gen_Order_By_Clause';
2445:
2446: l_order_by_clause VARCHAR2(1000) := FND_API.G_MISS_CHAR;
2447:
2448: l_util_order_by_tbl JTF_CTM_UTILITY_PVT.Util_order_by_tbl_type;
2449:
2450: BEGIN
2471:
2472:
2473: JTF_CTM_UTILITY_PVT.Translate_OrderBy (
2474: p_api_version => 1.0,
2475: p_init_msg_list => FND_API.G_FALSE,
2476: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2477: x_return_status => x_return_status,
2478: x_msg_count => x_msg_count,
2479: x_msg_data => x_msg_data,
2472:
2473: JTF_CTM_UTILITY_PVT.Translate_OrderBy (
2474: p_api_version => 1.0,
2475: p_init_msg_list => FND_API.G_FALSE,
2476: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2477: x_return_status => x_return_status,
2478: x_msg_count => x_msg_count,
2479: x_msg_data => x_msg_data,
2480: p_order_by_tbl => l_util_order_by_tbl,
2516: -- p_Api_Version_Number NUMBER
2517: --
2518: -- Optional
2519: -- Parameter Name Data Type Default
2520: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
2521: -- p_terr_rec Terr_Rec_Type G_MISS_TERR_REC
2522: -- p_terr_type_rec Terr_Type_Rec_Type G_MISS_TERR_TYPE_REC
2523: -- p_terr_usg_rec Terr_Usgs_Rec_Type G_MISS_TERR_USGS_REC
2524: -- p_terr_rsc_rec Terr_Rsc_Rec_Type G_MISS_TERR_RSC_REC
2524: -- p_terr_rsc_rec Terr_Rsc_Rec_Type G_MISS_TERR_RSC_REC
2525: -- p_terr_qual_tbl Terr_Qual_Tbl_Type G_MISS_TERR_QUAL_TBL
2526: -- p_terr_values_tbl Terr_Values_Tbl_Type G_MISS_TERR_VALUES_TBL
2527: -- p_order_by_rec order_by_rec_type G_MISS_ORDER_BY_REC
2528: -- p_return_all_rec VARCHAR2 FND_API.G_FALSE
2529: -- p_num_rec_requested NUMBER 30
2530: -- p_start_rec_num NUMBER 1
2531: --
2532: -- OUT :
2546: -- End of Comments
2547: --
2548: PROCEDURE Get_Territory_Header (
2549: p_Api_Version IN NUMBER,
2550: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2551: x_return_status OUT NOCOPY VARCHAR2,
2552: x_msg_count OUT NOCOPY NUMBER,
2553: x_msg_data OUT NOCOPY VARCHAR2,
2554: p_terr_rec IN Terr_Rec_Type := G_MISS_TERR_REC,
2558: p_terr_rsc_rec IN Terr_Rsc_Rec_Type := G_MISS_TERR_RSC_REC,
2559: p_terr_qual_tbl IN Terr_Qual_Tbl_Type := G_MISS_TERR_QUAL_TBL,
2560: p_terr_values_tbl IN Terr_Values_Tbl_Type := G_MISS_TERR_VALUES_TBL,
2561: p_order_by_rec IN order_by_rec_type := G_MISS_ORDER_BY_REC,
2562: p_return_all_rec IN VARCHAR2 := FND_API.G_FALSE,
2563: p_num_rec_requested IN NUMBER := 30,
2564: p_start_rec_num IN NUMBER := 1,
2565: x_terr_header_tbl OUT NOCOPY Terr_Header_Tbl_Type,
2566: x_num_rec_returned OUT NOCOPY NUMBER,
2612: --dbms_output.put_line('at API BEGIN');
2613:
2614:
2615: /* Standard call to check for call compatibility */
2616: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2617: p_api_version,
2618: l_api_name,
2619: G_PKG_NAME)
2620: THEN
2617: p_api_version,
2618: l_api_name,
2619: G_PKG_NAME)
2620: THEN
2621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2622: END IF;
2623:
2624: /* Initialize message list if p_init_msg_list is set to TRUE */
2625: IF FND_API.to_Boolean( p_init_msg_list )
2621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2622: END IF;
2623:
2624: /* Initialize message list if p_init_msg_list is set to TRUE */
2625: IF FND_API.to_Boolean( p_init_msg_list )
2626: THEN
2627: FND_MSG_PUB.initialize;
2628: END IF;
2629:
2639: ** API BODY START
2640: ***********************************************************************************************/
2641:
2642: /* Initialize API return status to SUCCESS */
2643: l_return_status := FND_API.G_RET_STS_SUCCESS;
2644:
2645: --dbms_output.put_line('at API body start, l_return_status = '|| l_return_status);
2646:
2647:
2898:
2899: /* all records are to be returned OR number of records requested is null
2900: ** OR number of records returned less than number of records requested
2901: */
2902: IF ( p_return_all_rec = FND_API.G_TRUE OR
2903: p_num_rec_requested = FND_API.G_MISS_NUM OR
2904: l_num_rec_returned < p_num_rec_requested ) THEN
2905:
2906: /* retrieve values into columns */
2899: /* all records are to be returned OR number of records requested is null
2900: ** OR number of records returned less than number of records requested
2901: */
2902: IF ( p_return_all_rec = FND_API.G_TRUE OR
2903: p_num_rec_requested = FND_API.G_MISS_NUM OR
2904: l_num_rec_returned < p_num_rec_requested ) THEN
2905:
2906: /* retrieve values into columns */
2907: get_dsql_column_values ( l_dsql_csr, l_terr_header_rec);
2962: p_data => x_msg_data
2963: );
2964:
2965: EXCEPTION
2966: WHEN FND_API.G_EXC_ERROR THEN
2967: x_return_status := FND_API.G_RET_STS_ERROR ;
2968: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| l_return_status );
2969:
2970: FND_MSG_PUB.Count_And_Get
2963: );
2964:
2965: EXCEPTION
2966: WHEN FND_API.G_EXC_ERROR THEN
2967: x_return_status := FND_API.G_RET_STS_ERROR ;
2968: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| l_return_status );
2969:
2970: FND_MSG_PUB.Count_And_Get
2971: ( p_count => x_msg_count,
2964:
2965: EXCEPTION
2966: WHEN FND_API.G_EXC_ERROR THEN
2967: x_return_status := FND_API.G_RET_STS_ERROR ;
2968: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| l_return_status );
2969:
2970: FND_MSG_PUB.Count_And_Get
2971: ( p_count => x_msg_count,
2972: p_data => x_msg_data
2972: p_data => x_msg_data
2973: );
2974:
2975:
2976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2978: --dbms_output.put_line( 'FND_API.G_EXC_UNEXPECTED_ERROR: return_status = '|| l_return_status );
2979:
2980: FND_MSG_PUB.Count_And_Get
2973: );
2974:
2975:
2976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2978: --dbms_output.put_line( 'FND_API.G_EXC_UNEXPECTED_ERROR: return_status = '|| l_return_status );
2979:
2980: FND_MSG_PUB.Count_And_Get
2981: ( p_count => x_msg_count,
2974:
2975:
2976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2978: --dbms_output.put_line( 'FND_API.G_EXC_UNEXPECTED_ERROR: return_status = '|| l_return_status );
2979:
2980: FND_MSG_PUB.Count_And_Get
2981: ( p_count => x_msg_count,
2982: p_data => x_msg_data
2982: p_data => x_msg_data
2983: );
2984:
2985: WHEN OTHERS THEN
2986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2987:
2988: --dbms_output.put_line( 'OTHERS: return_status = '|| l_return_status );
2989:
2990: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3013: -- IN :
3014: -- Required
3015: -- Parameter Name Data Type Default
3016: -- p_Api_Version_Number NUMBER
3017: -- p_terr_id NUMBER FND_API.G_MISS_NUM
3018: --
3019: -- Optional
3020: -- Parameter Name Data Type Default
3021: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
3017: -- p_terr_id NUMBER FND_API.G_MISS_NUM
3018: --
3019: -- Optional
3020: -- Parameter Name Data Type Default
3021: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
3022: --
3023: -- OUT :
3024: -- Parameter Name Data Type
3025: -- x_Return_Status VARCHAR2(1)
3041: -- End of Comments
3042: --
3043: PROCEDURE Get_Territory_Details (
3044: p_Api_Version IN NUMBER,
3045: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3046: x_return_status OUT NOCOPY VARCHAR2,
3047: x_msg_count OUT NOCOPY NUMBER,
3048: x_msg_data OUT NOCOPY VARCHAR2,
3049: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
3045: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3046: x_return_status OUT NOCOPY VARCHAR2,
3047: x_msg_count OUT NOCOPY NUMBER,
3048: x_msg_data OUT NOCOPY VARCHAR2,
3049: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
3050: x_terr_rec OUT NOCOPY Terr_Rec_Type,
3051: x_terr_type_rec OUT NOCOPY Terr_Type_Rec_Type,
3052: x_terr_sub_terr_tbl OUT NOCOPY Terr_Tbl_Type,
3053: x_terr_usgs_tbl OUT NOCOPY Terr_Usgs_Tbl_Type,
3348:
3349: BEGIN
3350:
3351: /* Standard call to check for call compatibility */
3352: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3353: p_api_version,
3354: l_api_name,
3355: G_PKG_NAME)
3356: THEN
3353: p_api_version,
3354: l_api_name,
3355: G_PKG_NAME)
3356: THEN
3357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3358: END IF;
3359:
3360: /* Initialize message list if p_init_msg_list is set to TRUE */
3361: IF FND_API.to_Boolean( p_init_msg_list )
3357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3358: END IF;
3359:
3360: /* Initialize message list if p_init_msg_list is set to TRUE */
3361: IF FND_API.to_Boolean( p_init_msg_list )
3362: THEN
3363: FND_MSG_PUB.initialize;
3364: END IF;
3365:
3377: ***********************************************************************************************/
3378:
3379:
3380: /* Initialize API return status to SUCCESS */
3381: l_return_status := FND_API.G_RET_STS_SUCCESS;
3382:
3383: /****************************/
3384: /* get the territory record */
3385: /****************************/
3438: , l_terr_rec.TERR_USAGE;
3439:
3440: IF get_terr%NOTFOUND THEN
3441:
3442: l_return_status := FND_API.G_RET_STS_ERROR;
3443:
3444: /* Debug message */
3445: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
3446: FND_MESSAGE.Set_Name ('JTF', G_PKG_NAME || ': Territory record not found');
3449: END IF;
3450:
3451: CLOSE get_terr;
3452:
3453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456:
3457: --dbms_output.put_line( 'get_terr: return_status = '|| l_return_status ||
3450:
3451: CLOSE get_terr;
3452:
3453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456:
3457: --dbms_output.put_line( 'get_terr: return_status = '|| l_return_status ||
3458: -- ' terr_name = ' || l_terr_rec.name);
3805: p_data => x_msg_data
3806: );
3807:
3808: EXCEPTION
3809: WHEN FND_API.G_EXC_ERROR THEN
3810: x_return_status := FND_API.G_RET_STS_ERROR ;
3811: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| x_return_status );
3812:
3813: FND_MSG_PUB.Count_And_Get
3806: );
3807:
3808: EXCEPTION
3809: WHEN FND_API.G_EXC_ERROR THEN
3810: x_return_status := FND_API.G_RET_STS_ERROR ;
3811: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| x_return_status );
3812:
3813: FND_MSG_PUB.Count_And_Get
3814: ( p_count => x_msg_count,
3807:
3808: EXCEPTION
3809: WHEN FND_API.G_EXC_ERROR THEN
3810: x_return_status := FND_API.G_RET_STS_ERROR ;
3811: --dbms_output.put_line( 'FND_API.G_EXC_ERROR: return_status = '|| x_return_status );
3812:
3813: FND_MSG_PUB.Count_And_Get
3814: ( p_count => x_msg_count,
3815: p_data => x_msg_data
3815: p_data => x_msg_data
3816: );
3817:
3818:
3819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3821: --dbms_output.put_line( 'FND_API.G_RET_STS_UNEXP_ERROR: return_status = '|| x_return_status );
3822:
3823: FND_MSG_PUB.Count_And_Get
3816: );
3817:
3818:
3819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3821: --dbms_output.put_line( 'FND_API.G_RET_STS_UNEXP_ERROR: return_status = '|| x_return_status );
3822:
3823: FND_MSG_PUB.Count_And_Get
3824: ( p_count => x_msg_count,
3817:
3818:
3819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3821: --dbms_output.put_line( 'FND_API.G_RET_STS_UNEXP_ERROR: return_status = '|| x_return_status );
3822:
3823: FND_MSG_PUB.Count_And_Get
3824: ( p_count => x_msg_count,
3825: p_data => x_msg_data
3825: p_data => x_msg_data
3826: );
3827:
3828: WHEN OTHERS THEN
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3830: --dbms_output.put_line( 'OTHERS: return_status = '|| x_return_status );
3831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3832: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3833: END IF;
3858: -- p_Escalation_Terr_Id NUMBER
3859: --
3860: -- Optional
3861: -- Parameter Name Data Type Default
3862: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
3863: -- p_Commit VARCHAR2 FND_API.G_FALSE
3864: --
3865: -- OUT :
3866: -- Parameter Name Data Type
3859: --
3860: -- Optional
3861: -- Parameter Name Data Type Default
3862: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
3863: -- p_Commit VARCHAR2 FND_API.G_FALSE
3864: --
3865: -- OUT :
3866: -- Parameter Name Data Type
3867: -- x_Return_Status VARCHAR2(1)
3875: -- End of Comments
3876: --
3877: PROCEDURE Get_Escalation_Territory (
3878: p_Api_Version IN NUMBER,
3879: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3880: x_return_status OUT NOCOPY VARCHAR2,
3881: x_msg_count OUT NOCOPY NUMBER,
3882: x_msg_data OUT NOCOPY VARCHAR2,
3883: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
3879: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3880: x_return_status OUT NOCOPY VARCHAR2,
3881: x_msg_count OUT NOCOPY NUMBER,
3882: x_msg_data OUT NOCOPY VARCHAR2,
3883: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
3884: x_escalation_terr_id OUT NOCOPY NUMBER
3885: )
3886: IS
3887:
3910: l_escalation_terr_id NUMBER;
3911:
3912: BEGIN
3913: /* Standard call to check for call compatibility */
3914: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3915: p_api_version,
3916: l_api_name,
3917: G_PKG_NAME)
3918: THEN
3915: p_api_version,
3916: l_api_name,
3917: G_PKG_NAME)
3918: THEN
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920: END IF;
3921:
3922: /* Initialize message list if p_init_msg_list is set to TRUE */
3923: IF FND_API.to_Boolean( p_init_msg_list )
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920: END IF;
3921:
3922: /* Initialize message list if p_init_msg_list is set to TRUE */
3923: IF FND_API.to_Boolean( p_init_msg_list )
3924: THEN
3925: FND_MSG_PUB.initialize;
3926: END IF;
3927:
3938: ** API BODY START
3939: ***********************************************************************************************/
3940:
3941: /* Initialize API return status to SUCCESS */
3942: l_return_status := FND_API.G_RET_STS_SUCCESS;
3943:
3944: OPEN c_esc_terr_id (p_terr_id);
3945: FETCH c_esc_terr_id INTO esc_csr;
3946: IF c_esc_terr_id%NOTFOUND THEN
3944: OPEN c_esc_terr_id (p_terr_id);
3945: FETCH c_esc_terr_id INTO esc_csr;
3946: IF c_esc_terr_id%NOTFOUND THEN
3947:
3948: l_return_status := FND_API.G_RET_STS_ERROR;
3949:
3950: -- Debug message
3951: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
3952: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_ESC_TERR_NOT_FOUND');
3960: END IF;
3961:
3962: CLOSE c_esc_terr_id;
3963:
3964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: END IF;
3967:
3968: /* save return variable */
3961:
3962: CLOSE c_esc_terr_id;
3963:
3964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: END IF;
3967:
3968: /* save return variable */
3969: x_escalation_terr_id := l_escalation_terr_id;
3989: p_data => x_msg_data
3990: );
3991:
3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
3994: x_return_status := FND_API.G_RET_STS_ERROR ;
3995:
3996: FND_MSG_PUB.Count_And_Get
3997: ( p_count => x_msg_count,
3990: );
3991:
3992: EXCEPTION
3993: WHEN FND_API.G_EXC_ERROR THEN
3994: x_return_status := FND_API.G_RET_STS_ERROR ;
3995:
3996: FND_MSG_PUB.Count_And_Get
3997: ( p_count => x_msg_count,
3998: p_data => x_msg_data
3998: p_data => x_msg_data
3999: );
4000:
4001:
4002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004:
4005: FND_MSG_PUB.Count_And_Get
4006: ( p_count => x_msg_count,
3999: );
4000:
4001:
4002: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004:
4005: FND_MSG_PUB.Count_And_Get
4006: ( p_count => x_msg_count,
4007: p_data => x_msg_data
4007: p_data => x_msg_data
4008: );
4009:
4010: WHEN OTHERS THEN
4011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4012:
4013: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4014: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4015: END IF;
4040: -- p_Parent_Terr_Id NUMBER
4041: --
4042: -- Optional
4043: -- Parameter Name Data Type Default
4044: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
4045: -- p_Commit VARCHAR2 FND_API.G_FALSE
4046: --
4047: -- OUT :
4048: -- Parameter Name Data Type
4041: --
4042: -- Optional
4043: -- Parameter Name Data Type Default
4044: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
4045: -- p_Commit VARCHAR2 FND_API.G_FALSE
4046: --
4047: -- OUT :
4048: -- Parameter Name Data Type
4049: -- x_Return_Status VARCHAR2(1)
4057: -- End of Comments
4058: --
4059: PROCEDURE Get_Parent_Territory (
4060: p_Api_Version IN NUMBER,
4061: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4062: x_return_status OUT NOCOPY VARCHAR2,
4063: x_msg_count OUT NOCOPY NUMBER,
4064: x_msg_data OUT NOCOPY VARCHAR2,
4065: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
4061: p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4062: x_return_status OUT NOCOPY VARCHAR2,
4063: x_msg_count OUT NOCOPY NUMBER,
4064: x_msg_data OUT NOCOPY VARCHAR2,
4065: p_terr_id IN NUMBER := FND_API.G_MISS_NUM,
4066: x_parent_terr_id OUT NOCOPY NUMBER
4067: )
4068: IS
4069:
4088:
4089:
4090: BEGIN
4091: /* Standard call to check for call compatibility */
4092: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4093: p_api_version,
4094: l_api_name,
4095: G_PKG_NAME)
4096: THEN
4093: p_api_version,
4094: l_api_name,
4095: G_PKG_NAME)
4096: THEN
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4100: /* Initialize message list if p_init_msg_list is set to TRUE */
4101: IF FND_API.to_Boolean( p_init_msg_list )
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: END IF;
4099:
4100: /* Initialize message list if p_init_msg_list is set to TRUE */
4101: IF FND_API.to_Boolean( p_init_msg_list )
4102: THEN
4103: FND_MSG_PUB.initialize;
4104: END IF;
4105:
4115: ** API BODY START
4116: ***********************************************************************************************/
4117:
4118: /* Initialize API return status to SUCCESS */
4119: l_return_status := FND_API.G_RET_STS_SUCCESS;
4120:
4121: OPEN c_parent_terr_id (p_terr_id);
4122: FETCH c_parent_terr_id INTO par_csr;
4123: IF c_parent_terr_id%NOTFOUND THEN
4121: OPEN c_parent_terr_id (p_terr_id);
4122: FETCH c_parent_terr_id INTO par_csr;
4123: IF c_parent_terr_id%NOTFOUND THEN
4124:
4125: l_return_status := FND_API.G_RET_STS_ERROR;
4126:
4127: -- Debug message
4128: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4129: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_PARENT_NOT_FOUND');
4137: END IF;
4138:
4139: CLOSE c_parent_terr_id;
4140:
4141: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: END IF;
4144:
4145: /* save return variable */
4138:
4139: CLOSE c_parent_terr_id;
4140:
4141: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: END IF;
4144:
4145: /* save return variable */
4146: x_parent_terr_id := l_parent_terr_id;
4166: p_data => x_msg_data
4167: );
4168:
4169: EXCEPTION
4170: WHEN FND_API.G_EXC_ERROR THEN
4171: x_return_status := FND_API.G_RET_STS_ERROR ;
4172:
4173: FND_MSG_PUB.Count_And_Get
4174: ( p_count => x_msg_count,
4167: );
4168:
4169: EXCEPTION
4170: WHEN FND_API.G_EXC_ERROR THEN
4171: x_return_status := FND_API.G_RET_STS_ERROR ;
4172:
4173: FND_MSG_PUB.Count_And_Get
4174: ( p_count => x_msg_count,
4175: p_data => x_msg_data
4175: p_data => x_msg_data
4176: );
4177:
4178:
4179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4181:
4182: FND_MSG_PUB.Count_And_Get
4183: ( p_count => x_msg_count,
4176: );
4177:
4178:
4179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4181:
4182: FND_MSG_PUB.Count_And_Get
4183: ( p_count => x_msg_count,
4184: p_data => x_msg_data
4184: p_data => x_msg_data
4185: );
4186:
4187: WHEN OTHERS THEN
4188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4189:
4190: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4191: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4192: END IF;
4218: -- p_Terr_Id NUMBER
4219: --
4220: -- Optional
4221: -- Parameter Name Data Type Default
4222: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
4223: -- p_Commit VARCHAR2 FND_API.G_FALSE
4224: --
4225: -- OUT :
4226: -- Parameter Name Data Type
4219: --
4220: -- Optional
4221: -- Parameter Name Data Type Default
4222: -- p_Init_Msg_List VARCHAR2 FND_API.G_FALSE
4223: -- p_Commit VARCHAR2 FND_API.G_FALSE
4224: --
4225: -- OUT :
4226: -- Parameter Name Data Type
4227: -- x_Return_Status VARCHAR2(1)
4235: -- End of Comments
4236: --
4237: PROCEDURE Get_Escalation_TerrMembers
4238: (p_api_version_number IN NUMBER,
4239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4240: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4241: x_return_status OUT NOCOPY VARCHAR2,
4242: x_msg_count OUT NOCOPY NUMBER,
4243: x_msg_data OUT NOCOPY VARCHAR2,
4236: --
4237: PROCEDURE Get_Escalation_TerrMembers
4238: (p_api_version_number IN NUMBER,
4239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4240: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4241: x_return_status OUT NOCOPY VARCHAR2,
4242: x_msg_count OUT NOCOPY NUMBER,
4243: x_msg_data OUT NOCOPY VARCHAR2,
4244: p_terr_id IN NUMBER,
4288: BEGIN
4289: --dbms_output.put_line('Get_Escalation_TerrMembers: Entering the API');
4290:
4291: -- Standard call to check for call compatibility.
4292: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4293: p_api_version_number,
4294: l_api_name,
4295: G_PKG_NAME)
4296: THEN
4293: p_api_version_number,
4294: l_api_name,
4295: G_PKG_NAME)
4296: THEN
4297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4298: END IF;
4299:
4300:
4301: -- Initialize message list if p_init_msg_list is set to TRUE.
4298: END IF;
4299:
4300:
4301: -- Initialize message list if p_init_msg_list is set to TRUE.
4302: IF FND_API.to_Boolean( p_init_msg_list )
4303: THEN
4304: FND_MSG_PUB.initialize;
4305: END IF;
4306:
4313: END IF;
4314: --
4315: -- API body
4316: --
4317: x_return_status := FND_API.G_RET_STS_SUCCESS;
4318:
4319: for res_rec in C_GetTerrRsc
4320: loop
4321:
4352: --dbms_output.put_line('Get_Escalation_TerrMembers: Exiting the API');
4353: EXCEPTION
4354: --
4355: WHEN OTHERS THEN
4356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4357: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4358: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4359: END IF;
4360: FND_MSG_PUB.Count_And_Get