APPS.PN_LEASE_UTILS dependencies on FND_API

Line 65: x_return_status := fnd_api.g_ret_sts_success;

61: AND flv.enabled_flag = 'Y'
62: AND flv.lookup_code = x_lookup_type_code;
63: BEGIN
64: -- Initialize the return status.
65: x_return_status := fnd_api.g_ret_sts_success;
66:
67: IF ( x_lookup_type_code IS NULL
68: OR x_lookup_type_code = pn_lease_utils.g_pn_miss_char
69: )

Line 83: x_return_status := fnd_api.g_ret_sts_error;

79: fnd_message.set_token ('LOOKUP_TYPE', p_lookup_type);
80: fnd_message.set_token ('LOOKUP_MEANING', p_lookup_meaning);
81: fnd_message.set_token ('LOOKUP_CODE', x_lookup_type_code);
82: fnd_msg_pub.ADD;*/
83: x_return_status := fnd_api.g_ret_sts_error;
84: --RAISE fnd_api.g_exc_error;
85: ELSE
86: x_return_status := fnd_api.g_ret_sts_success;
87: END IF;

Line 84: --RAISE fnd_api.g_exc_error;

80: fnd_message.set_token ('LOOKUP_MEANING', p_lookup_meaning);
81: fnd_message.set_token ('LOOKUP_CODE', x_lookup_type_code);
82: fnd_msg_pub.ADD;*/
83: x_return_status := fnd_api.g_ret_sts_error;
84: --RAISE fnd_api.g_exc_error;
85: ELSE
86: x_return_status := fnd_api.g_ret_sts_success;
87: END IF;
88:

Line 86: x_return_status := fnd_api.g_ret_sts_success;

82: fnd_msg_pub.ADD;*/
83: x_return_status := fnd_api.g_ret_sts_error;
84: --RAISE fnd_api.g_exc_error;
85: ELSE
86: x_return_status := fnd_api.g_ret_sts_success;
87: END IF;
88:
89: IF c_lookup_type%ISOPEN
90: THEN

Line 106: x_return_status := fnd_api.g_ret_sts_error;

102: fnd_message.set_token ('LOOKUP_TYPE', p_lookup_type);
103: fnd_message.set_token ('LOOKUP_MEANING', p_lookup_meaning);
104: fnd_message.set_token ('LOOKUP_CODE', x_lookup_type_code);
105: fnd_msg_pub.ADD;*/
106: x_return_status := fnd_api.g_ret_sts_error;
107: --RAISE fnd_api.g_exc_error;
108: ELSE
109: x_return_status := fnd_api.g_ret_sts_success;
110: END IF;

Line 107: --RAISE fnd_api.g_exc_error;

103: fnd_message.set_token ('LOOKUP_MEANING', p_lookup_meaning);
104: fnd_message.set_token ('LOOKUP_CODE', x_lookup_type_code);
105: fnd_msg_pub.ADD;*/
106: x_return_status := fnd_api.g_ret_sts_error;
107: --RAISE fnd_api.g_exc_error;
108: ELSE
109: x_return_status := fnd_api.g_ret_sts_success;
110: END IF;
111:

Line 109: x_return_status := fnd_api.g_ret_sts_success;

105: fnd_msg_pub.ADD;*/
106: x_return_status := fnd_api.g_ret_sts_error;
107: --RAISE fnd_api.g_exc_error;
108: ELSE
109: x_return_status := fnd_api.g_ret_sts_success;
110: END IF;
111:
112: IF c_lookup_type_code%ISOPEN
113: THEN

Line 126: --x_return_status := fnd_api.g_ret_sts_error;

122: fnd_message.set_token ('P_TEXT', l_api_name_full
123: || '-'
124: || SQLERRM);
125: fnd_msg_pub.ADD;*/
126: --x_return_status := fnd_api.g_ret_sts_error;
127: -- RAISE fnd_api.g_exc_error;
128: IF c_lookup_type%ISOPEN
129: THEN
130: CLOSE c_lookup_type;

Line 127: -- RAISE fnd_api.g_exc_error;

123: || '-'
124: || SQLERRM);
125: fnd_msg_pub.ADD;*/
126: --x_return_status := fnd_api.g_ret_sts_error;
127: -- RAISE fnd_api.g_exc_error;
128: IF c_lookup_type%ISOPEN
129: THEN
130: CLOSE c_lookup_type;
131: ELSIF c_lookup_type_code%ISOPEN

Line 136: x_return_status := fnd_api.g_ret_sts_unexp_error;

132: THEN
133: CLOSE c_lookup_type_code;
134: END IF;
135:
136: x_return_status := fnd_api.g_ret_sts_unexp_error;
137: END get_lookup_code;
138:
139: ------------------------------------------------------------------------------------
140: --Validate Lease Name to check that it is unique within ORG_ID

Line 164: x_return_status := fnd_api.g_ret_sts_success;

160: AND org_id = fnd_global.org_id;
161: --AND org_id = g_org_id;
162: BEGIN
163: -- Initialize the return status.
164: x_return_status := fnd_api.g_ret_sts_success;
165:
166: OPEN c_lease_name;
167:
168: FETCH c_lease_name

Line 176: x_return_status := fnd_api.g_ret_sts_error;

172: THEN
173: fnd_message.set_name ('PN', 'PN_INVALID_LEASENAME');
174: fnd_message.set_token ('LEASE_NAME', x_lease_name);
175: fnd_msg_pub.ADD;
176: x_return_status := fnd_api.g_ret_sts_error;
177: ELSE
178: x_return_status := fnd_api.g_ret_sts_success;
179: END IF;
180:

Line 178: x_return_status := fnd_api.g_ret_sts_success;

174: fnd_message.set_token ('LEASE_NAME', x_lease_name);
175: fnd_msg_pub.ADD;
176: x_return_status := fnd_api.g_ret_sts_error;
177: ELSE
178: x_return_status := fnd_api.g_ret_sts_success;
179: END IF;
180:
181: IF c_lease_name%ISOPEN
182: THEN

Line 200: x_return_status := fnd_api.g_ret_sts_unexp_error;

196: THEN
197: CLOSE c_lease_name;
198: END IF;
199:
200: x_return_status := fnd_api.g_ret_sts_unexp_error;
201: END check_lease_name;
202:
203: -------------------------------------------------------------------------------------
204: --Validate the User Info

Line 237: x_return_status := fnd_api.g_ret_sts_success;

233: AND TRUNC (NVL (end_date, SYSDATE))
234: AND user_id = x_user_id;
235: BEGIN
236: -- Initialize the return status.
237: x_return_status := fnd_api.g_ret_sts_success;
238:
239: IF ( x_user_id IS NULL
240: OR x_user_id = PN_LEASE_UTILS.G_PN_MISS_NUM)
241: THEN

Line 253: x_return_status := fnd_api.g_ret_sts_error;

249: /*fnd_message.set_name ('PN', 'PN_INVALID_USER');
250: fnd_message.set_token ('USER_NAME', p_user_name);
251: fnd_message.set_token ('USER_ID', x_user_id);
252: fnd_msg_pub.ADD;*/
253: x_return_status := fnd_api.g_ret_sts_error;
254: ELSE
255: x_return_status := fnd_api.g_ret_sts_success;
256: END IF;
257:

Line 255: x_return_status := fnd_api.g_ret_sts_success;

251: fnd_message.set_token ('USER_ID', x_user_id);
252: fnd_msg_pub.ADD;*/
253: x_return_status := fnd_api.g_ret_sts_error;
254: ELSE
255: x_return_status := fnd_api.g_ret_sts_success;
256: END IF;
257:
258: IF c_user%ISOPEN
259: THEN

Line 274: x_return_status := fnd_api.g_ret_sts_error;

270: /*fnd_message.set_name ('PN', 'PN_INVALID_USER');
271: fnd_message.set_token ('USER_NAME', p_user_name);
272: fnd_message.set_token ('USER_ID', x_user_id);
273: fnd_msg_pub.ADD;*/
274: x_return_status := fnd_api.g_ret_sts_error;
275: ELSE
276: x_return_status := fnd_api.g_ret_sts_success;
277: END IF;
278:

Line 276: x_return_status := fnd_api.g_ret_sts_success;

272: fnd_message.set_token ('USER_ID', x_user_id);
273: fnd_msg_pub.ADD;*/
274: x_return_status := fnd_api.g_ret_sts_error;
275: ELSE
276: x_return_status := fnd_api.g_ret_sts_success;
277: END IF;
278:
279: IF c_user_id%ISOPEN
280: THEN

Line 302: x_return_status := fnd_api.g_ret_sts_error;

298: THEN
299: CLOSE c_user_id;
300: END IF;
301:
302: x_return_status := fnd_api.g_ret_sts_error;
303: END get_user_id;
304:
305: -------------------------------------------------------------------------------------
306: --Validate the Location Code and Location id and return the location_id

Line 445: x_return_status := fnd_api.g_ret_sts_success;

441: , loc.location_type_lookup_code
442: , loc.location_id;
443: BEGIN
444: -- Initialize the return status.
445: x_return_status := fnd_api.g_ret_sts_success;
446:
447: IF (x_location_id IS NULL or x_location_id =PN_LEASE_UTILS.G_PN_MISS_NUM)
448: THEN
449: OPEN c_location;

Line 466: x_return_status := fnd_api.g_ret_sts_error;

462: /*fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
463: fnd_message.set_token ('LOC_ID', x_location_id);
464: fnd_message.set_token ('LOC_CODE', p_location_code);
465: fnd_msg_pub.ADD;*/
466: x_return_status := fnd_api.g_ret_sts_error;
467: ELSE
468: x_return_status := fnd_api.g_ret_sts_success;
469: END IF;
470:

Line 468: x_return_status := fnd_api.g_ret_sts_success;

464: fnd_message.set_token ('LOC_CODE', p_location_code);
465: fnd_msg_pub.ADD;*/
466: x_return_status := fnd_api.g_ret_sts_error;
467: ELSE
468: x_return_status := fnd_api.g_ret_sts_success;
469: END IF;
470:
471: IF c_location%ISOPEN
472: THEN

Line 493: x_return_status := fnd_api.g_ret_sts_error;

489: /*fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
490: fnd_message.set_token ('LOC_ID', x_location_id);
491: fnd_message.set_token ('LOC_CODE', p_location_code);
492: fnd_msg_pub.ADD;*/
493: x_return_status := fnd_api.g_ret_sts_error;
494: ELSE
495: x_return_status := fnd_api.g_ret_sts_success;
496: END IF;
497:

Line 495: x_return_status := fnd_api.g_ret_sts_success;

491: fnd_message.set_token ('LOC_CODE', p_location_code);
492: fnd_msg_pub.ADD;*/
493: x_return_status := fnd_api.g_ret_sts_error;
494: ELSE
495: x_return_status := fnd_api.g_ret_sts_success;
496: END IF;
497:
498: IF c_location_id%ISOPEN
499: THEN

Line 521: x_return_status := fnd_api.g_ret_sts_error;

517: THEN
518: CLOSE c_location_id;
519: END IF;
520:
521: x_return_status := fnd_api.g_ret_sts_error;
522: END get_location_id;
523:
524: -------------------------------------------------------------------------------------
525: -- VALIDATE MASTER LEASE and Return master lease Id

Line 566: x_return_status := fnd_api.g_ret_sts_success;

562: AND org_id = p_org_id
563: AND lease_id = x_master_lease_id;
564: BEGIN
565: -- Initialize the return status.
566: x_return_status := fnd_api.g_ret_sts_success;
567:
568: IF (x_master_lease_id IS NULL
569: OR
570: x_master_lease_id=PN_LEASE_UTILS.G_PN_MISS_NUM)

Line 583: x_return_status := fnd_api.g_ret_sts_error;

579: /*fnd_message.set_name ('PN', 'PN_INVALID_MASTERLEASE');
580: fnd_message.set_token ('MASTER_LEASE_ID',x_master_lease_id );
581: fnd_message.set_token ('MASTER_LEASE_NAME', p_master_lease);
582: fnd_msg_pub.ADD;*/
583: x_return_status := fnd_api.g_ret_sts_error;
584: ELSE
585: x_return_status := fnd_api.g_ret_sts_success;
586: END IF;
587:

Line 585: x_return_status := fnd_api.g_ret_sts_success;

581: fnd_message.set_token ('MASTER_LEASE_NAME', p_master_lease);
582: fnd_msg_pub.ADD;*/
583: x_return_status := fnd_api.g_ret_sts_error;
584: ELSE
585: x_return_status := fnd_api.g_ret_sts_success;
586: END IF;
587:
588: IF c_master_lease%ISOPEN
589: THEN

Line 604: x_return_status := fnd_api.g_ret_sts_error;

600: /*fnd_message.set_name ('PN', 'PN_INVALID_MASTERLEASE');
601: fnd_message.set_token ('MASTER_LEASE_ID',x_master_lease_id );
602: fnd_message.set_token ('MASTER_LEASE_NAME', p_master_lease);
603: fnd_msg_pub.ADD;*/
604: x_return_status := fnd_api.g_ret_sts_error;
605: ELSE
606: x_return_status := fnd_api.g_ret_sts_success;
607: END IF;
608:

Line 606: x_return_status := fnd_api.g_ret_sts_success;

602: fnd_message.set_token ('MASTER_LEASE_NAME', p_master_lease);
603: fnd_msg_pub.ADD;*/
604: x_return_status := fnd_api.g_ret_sts_error;
605: ELSE
606: x_return_status := fnd_api.g_ret_sts_success;
607: END IF;
608:
609: IF c_master_lease_id%ISOPEN
610: THEN

Line 623: x_return_status := fnd_api.g_ret_sts_unexp_error;

619: fnd_message.set_token ('P_TEXT', l_api_name_full
620: || '-'
621: || SQLERRM);
622: fnd_msg_pub.ADD;*/
623: x_return_status := fnd_api.g_ret_sts_unexp_error;
624: IF c_master_lease%ISOPEN
625: THEN
626: CLOSE c_master_lease;
627: ELSIF c_master_lease_id%ISOPEN

Line 632: x_return_status := fnd_api.g_ret_sts_unexp_error;

628: THEN
629: CLOSE c_master_lease_id;
630: END IF;
631:
632: x_return_status := fnd_api.g_ret_sts_unexp_error;
633: END get_masterlease_id;
634:
635: -------------------------------------------------------------------------------------
636: -- Validate Lease Commencement and Termination Dates and return sucess/error

Line 656: x_return_status := fnd_api.g_ret_sts_success;

652: BEGIN
653: /*Bug#14651192 replaced the dates when null by g_pn_miss_date*/
654: IF Nvl(p_lease_term_date,pn_lease_utils.g_pn_miss_date) >= Nvl(p_lease_comm_date,pn_lease_utils.g_pn_miss_date)
655: THEN
656: x_return_status := fnd_api.g_ret_sts_success;
657: ELSE
658: /*fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
659: fnd_message.set_token ('TERMINATION_DATE', p_lease_term_date);
660: fnd_message.set_token ('COMMENCEMENT_DATE', p_lease_comm_date);

Line 662: x_return_status := fnd_api.g_ret_sts_error;

658: /*fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
659: fnd_message.set_token ('TERMINATION_DATE', p_lease_term_date);
660: fnd_message.set_token ('COMMENCEMENT_DATE', p_lease_comm_date);
661: fnd_msg_pub.ADD;*/
662: x_return_status := fnd_api.g_ret_sts_error;
663: END IF;
664: EXCEPTION
665: WHEN OTHERS
666: THEN

Line 673: x_return_status := fnd_api.g_ret_sts_error;

669: fnd_message.set_token ('P_TEXT', l_api_name_full
670: || '-'
671: || SQLERRM);
672: fnd_msg_pub.ADD;*/
673: x_return_status := fnd_api.g_ret_sts_error;
674: END crossval_leasedates;
675:
676: -------------------------------------------------------------------------------------
677: -- Validate Term Template Id return sucess/error

Line 722: x_return_status := fnd_api.g_ret_sts_success;

718: )
719: AND term_template_id = x_termtemp_id;
720: BEGIN
721: -- Initialize the return status.
722: x_return_status := fnd_api.g_ret_sts_success;
723:
724: IF (x_termtemp_id) IS NULL
725: OR
726: (x_termtemp_id=PN_LEASE_UTILS.G_PN_MISS_NUM)

Line 741: x_return_status := fnd_api.g_ret_sts_error;

737: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
738:
739:
740: fnd_msg_pub.ADD;*/
741: x_return_status := fnd_api.g_ret_sts_error;
742: ELSE
743: x_return_status := fnd_api.g_ret_sts_success;
744: END IF;
745:

Line 743: x_return_status := fnd_api.g_ret_sts_success;

739:
740: fnd_msg_pub.ADD;*/
741: x_return_status := fnd_api.g_ret_sts_error;
742: ELSE
743: x_return_status := fnd_api.g_ret_sts_success;
744: END IF;
745:
746: IF c_termtemp%ISOPEN
747: THEN

Line 764: x_return_status := fnd_api.g_ret_sts_error;

760: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
761:
762:
763: fnd_msg_pub.ADD;*/
764: x_return_status := fnd_api.g_ret_sts_error;
765: ELSE
766: x_return_status := fnd_api.g_ret_sts_success;
767: END IF;
768:

Line 766: x_return_status := fnd_api.g_ret_sts_success;

762:
763: fnd_msg_pub.ADD;*/
764: x_return_status := fnd_api.g_ret_sts_error;
765: ELSE
766: x_return_status := fnd_api.g_ret_sts_success;
767: END IF;
768:
769: IF c_termtemp_id%ISOPEN
770: THEN

Line 792: x_return_status := fnd_api.g_ret_sts_error;

788: THEN
789: CLOSE c_termtemp_id;
790: END IF;
791:
792: x_return_status := fnd_api.g_ret_sts_error;
793: END get_term_template_id;
794:
795:
796: -------------------------------------------------------------------------------------

Line 826: x_return_status := fnd_api.g_ret_sts_success;

822: FROM pn_pay_group_rules
823: WHERE grouping_rule_id=x_grouping_rule_id;
824: BEGIN
825: -- Initialize the return status.
826: x_return_status := fnd_api.g_ret_sts_success;
827:
828: IF (x_grouping_rule_id IS NULL OR x_grouping_rule_id=PN_LEASE_UTILS.G_PN_MISS_NUM)
829: THEN
830: OPEN c_grouping_rule;

Line 843: x_return_status := fnd_api.g_ret_sts_error;

839: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
840:
841:
842: fnd_msg_pub.ADD;*/
843: x_return_status := fnd_api.g_ret_sts_error;
844: ELSE
845: x_return_status := fnd_api.g_ret_sts_success;
846: END IF;
847:

Line 845: x_return_status := fnd_api.g_ret_sts_success;

841:
842: fnd_msg_pub.ADD;*/
843: x_return_status := fnd_api.g_ret_sts_error;
844: ELSE
845: x_return_status := fnd_api.g_ret_sts_success;
846: END IF;
847:
848: IF c_grouping_rule%ISOPEN
849: THEN

Line 866: x_return_status := fnd_api.g_ret_sts_error;

862: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
863:
864:
865: fnd_msg_pub.ADD;*/
866: x_return_status := fnd_api.g_ret_sts_error;
867: ELSE
868: x_return_status := fnd_api.g_ret_sts_success;
869: END IF;
870:

Line 868: x_return_status := fnd_api.g_ret_sts_success;

864:
865: fnd_msg_pub.ADD;*/
866: x_return_status := fnd_api.g_ret_sts_error;
867: ELSE
868: x_return_status := fnd_api.g_ret_sts_success;
869: END IF;
870:
871: IF c_grouping_rule_id%ISOPEN
872: THEN

Line 894: x_return_status := fnd_api.g_ret_sts_error;

890: THEN
891: CLOSE c_grouping_rule_id;
892: END IF;
893:
894: x_return_status := fnd_api.g_ret_sts_error;
895:
896: END get_invoice_grouping_rule;
897: ---------------------------------Rupak BEGIN-------------------------
898:

Line 929: p_return_status := fnd_api.g_ret_sts_success;

925: IS
926: l_error_message VARCHAR2 (2000);
927: BEGIN
928: -- Initialize API return status to success
929: p_return_status := fnd_api.g_ret_sts_success;
930:
931: IF ( p_desc_context
932: || p_desc_segment1
933: || p_desc_segment2

Line 976: p_return_status := fnd_api.g_ret_sts_error;

972: )
973: THEN
974: l_error_message := fnd_flex_descval.error_message;
975: --pn_lease_utils.add_desc_flex_msg (p_api_name, l_error_message);
976: p_return_status := fnd_api.g_ret_sts_error;
977:
978: END IF;
979: END IF;
980: EXCEPTION

Line 982: p_return_status := fnd_api.g_ret_sts_unexp_error;

978: END IF;
979: END IF;
980: EXCEPTION
981: WHEN OTHERS THEN
982: p_return_status := fnd_api.g_ret_sts_unexp_error;
983: END validate_desc_flex;
984:
985: PROCEDURE add_desc_flex_msg (
986: p_token_an VARCHAR2

Line 1065: x_return_status := fnd_api.g_ret_sts_success;

1061: l_concatenated_seg VARCHAR2 (800);
1062: -- := PN_LEASE_UTILS.G_PN_MISS_CHAR;
1063: BEGIN
1064: -- Initialize the return status.
1065: x_return_status := fnd_api.g_ret_sts_success;
1066: --------dbms_output.put_line ('IN Get_account_id procedure: ');
1067:
1068: OPEN c_structure_num;
1069:

Line 1080: x_return_status := fnd_api.g_ret_sts_error;

1076: fnd_message.set_token ('STRUCTURE_NUM', l_structure_num);
1077: fnd_message.set_token ('SET_OF_BOOKS_ID', fnd_profile.VALUE ('GL_SET_OF_BKS_ID'));
1078:
1079: fnd_msg_pub.ADD;*/
1080: x_return_status := fnd_api.g_ret_sts_error;
1081: ELSE
1082: x_return_status := fnd_api.g_ret_sts_success;
1083: END IF;
1084:

Line 1082: x_return_status := fnd_api.g_ret_sts_success;

1078:
1079: fnd_msg_pub.ADD;*/
1080: x_return_status := fnd_api.g_ret_sts_error;
1081: ELSE
1082: x_return_status := fnd_api.g_ret_sts_success;
1083: END IF;
1084:
1085: IF c_structure_num%ISOPEN
1086: THEN

Line 1113: x_return_status := fnd_api.g_ret_sts_error;

1109: /*fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
1110: fnd_message.set_token ('ACCOUNT_ID', p_account_id);
1111:
1112: fnd_msg_pub.ADD;*/
1113: x_return_status := fnd_api.g_ret_sts_error;
1114: ELSE
1115: x_return_status := fnd_api.g_ret_sts_success;
1116: END IF;
1117:

Line 1115: x_return_status := fnd_api.g_ret_sts_success;

1111:
1112: fnd_msg_pub.ADD;*/
1113: x_return_status := fnd_api.g_ret_sts_error;
1114: ELSE
1115: x_return_status := fnd_api.g_ret_sts_success;
1116: END IF;
1117:
1118: IF c_get_account%ISOPEN
1119: THEN

Line 1143: x_return_status := fnd_api.g_ret_sts_error;

1139: /*fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
1140: fnd_message.set_token ('ACCOUNT_CONC_SEGS', p_account_conc_segs);
1141:
1142: fnd_msg_pub.ADD;*/
1143: x_return_status := fnd_api.g_ret_sts_error;
1144: ELSE
1145: p_account_id := l_account_id;
1146: END IF;
1147: ELSE

Line 1212: x_return_status := fnd_api.g_ret_sts_error;

1208: /*fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
1209: fnd_message.set_token ('ACCOUNT_SEGMENTS', l_concatenated_seg);
1210:
1211: fnd_msg_pub.ADD;*/
1212: x_return_status := fnd_api.g_ret_sts_error;
1213: --ELSE
1214: -- p_account_id:= l_account_id;
1215: END IF;
1216: END IF;

Line 1237: x_return_status := fnd_api.g_ret_sts_error;

1233: THEN
1234: CLOSE c_get_account;
1235: END IF;
1236:
1237: x_return_status := fnd_api.g_ret_sts_error;
1238: END get_account_id;
1239:
1240: -- GET_COMPANY_ID
1241: PROCEDURE get_company_id (

Line 1303: x_return_status := fnd_api.g_ret_sts_error;

1299: /* fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
1300: fnd_message.set_token ('COMPANY_NAME', p_company_name);
1301: fnd_message.set_token ('COMPANY_ID', x_company_id);
1302: fnd_msg_pub.ADD;*/
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: ELSE
1305: x_return_status := fnd_api.g_ret_sts_success;
1306: END IF;
1307:

Line 1305: x_return_status := fnd_api.g_ret_sts_success;

1301: fnd_message.set_token ('COMPANY_ID', x_company_id);
1302: fnd_msg_pub.ADD;*/
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: ELSE
1305: x_return_status := fnd_api.g_ret_sts_success;
1306: END IF;
1307:
1308: IF c_company_name%ISOPEN
1309: THEN

Line 1326: x_return_status := fnd_api.g_ret_sts_error;

1322: fnd_message.set_token ('COMPANY_NAME', p_company_name);
1323: fnd_message.set_token ('COMPANY_ID', x_company_id);
1324: fnd_msg_pub.ADD;*/
1325:
1326: x_return_status := fnd_api.g_ret_sts_error;
1327: ELSE
1328: x_return_status := fnd_api.g_ret_sts_success;
1329: END IF;
1330:

Line 1328: x_return_status := fnd_api.g_ret_sts_success;

1324: fnd_msg_pub.ADD;*/
1325:
1326: x_return_status := fnd_api.g_ret_sts_error;
1327: ELSE
1328: x_return_status := fnd_api.g_ret_sts_success;
1329: END IF;
1330:
1331: IF c_company_id%ISOPEN
1332: THEN

Line 1354: x_return_status := fnd_api.g_ret_sts_error;

1350: THEN
1351: CLOSE c_company_id;
1352: END IF;
1353:
1354: x_return_status := fnd_api.g_ret_sts_error;
1355: END get_company_id;
1356:
1357: -- GET_COMPANY_SITE_ID
1358: PROCEDURE get_company_site_id (

Line 1421: x_return_status := fnd_api.g_ret_sts_error;

1417: /*fnd_message.set_name ('PN', 'PN_INVALID_COMPANY_SITE');
1418: fnd_message.set_token ('COMPANY_SITE_NAME', p_company_site_name);
1419: fnd_message.set_token ('COMPANY_SITE_ID', x_company_site_id);
1420: fnd_msg_pub.ADD;*/
1421: x_return_status := fnd_api.g_ret_sts_error;
1422: ELSE
1423: x_return_status := fnd_api.g_ret_sts_success;
1424: END IF;
1425:

Line 1423: x_return_status := fnd_api.g_ret_sts_success;

1419: fnd_message.set_token ('COMPANY_SITE_ID', x_company_site_id);
1420: fnd_msg_pub.ADD;*/
1421: x_return_status := fnd_api.g_ret_sts_error;
1422: ELSE
1423: x_return_status := fnd_api.g_ret_sts_success;
1424: END IF;
1425:
1426: IF c_company_site_name%ISOPEN
1427: THEN

Line 1452: x_return_status := fnd_api.g_ret_sts_error;

1448: /*fnd_message.set_name ('PN', 'PN_INVALID_COMPANY_SITE');
1449: fnd_message.set_token ('COMPANY_SITE_NAME', p_company_site_name);
1450: fnd_message.set_token ('COMPANY_SITE_ID', x_company_site_id);
1451: fnd_msg_pub.ADD;*/
1452: x_return_status := fnd_api.g_ret_sts_error;
1453: ELSE
1454: x_return_status := fnd_api.g_ret_sts_success;
1455: END IF;
1456:

Line 1454: x_return_status := fnd_api.g_ret_sts_success;

1450: fnd_message.set_token ('COMPANY_SITE_ID', x_company_site_id);
1451: fnd_msg_pub.ADD;*/
1452: x_return_status := fnd_api.g_ret_sts_error;
1453: ELSE
1454: x_return_status := fnd_api.g_ret_sts_success;
1455: END IF;
1456:
1457: IF c_company_site_id%ISOPEN
1458: THEN

Line 1480: x_return_status := fnd_api.g_ret_sts_error;

1476: THEN
1477: CLOSE c_company_site_id;
1478: END IF;
1479:
1480: x_return_status := fnd_api.g_ret_sts_error;
1481: END get_company_site_id;
1482: /*
1483: PROCEDURE VALIDATE_TENANCY_DATES (
1484: p_parameter_name IN VARCHAR2

Line 1500: x_return_status := fnd_api.g_ret_sts_success;

1496: BEGIN
1497: --Estimated Occupancy Date
1498: IF p_estimated_occ_date >= p_lease_comm_date
1499: THEN
1500: x_return_status := fnd_api.g_ret_sts_success;
1501: ELSE
1502: fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
1503: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
1504: fnd_message.set_token ('COMM_DATE', p_lease_comm_date);

Line 1507: --RAISE fnd_api.g_exc_error;

1503: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
1504: fnd_message.set_token ('COMM_DATE', p_lease_comm_date);
1505: fnd_msg_pub.ADD;
1506: x_return_status := 'W';
1507: --RAISE fnd_api.g_exc_error;
1508: END IF;
1509:
1510: --Actual Occupancy Date
1511: IF p_actual_occ_date >= p_lease_comm_date

Line 1514: IF x_return_status = fnd_api.g_ret_sts_success

1510: --Actual Occupancy Date
1511: IF p_actual_occ_date >= p_lease_comm_date
1512: THEN
1513:
1514: IF x_return_status = fnd_api.g_ret_sts_success
1515: THEN
1516: x_return_status := fnd_api.g_ret_sts_success;
1517: END IF;
1518: RAISE fnd_api.g_exc_error;

Line 1516: x_return_status := fnd_api.g_ret_sts_success;

1512: THEN
1513:
1514: IF x_return_status = fnd_api.g_ret_sts_success
1515: THEN
1516: x_return_status := fnd_api.g_ret_sts_success;
1517: END IF;
1518: RAISE fnd_api.g_exc_error;
1519: ELSE
1520: fnd_message.set_name ('PN', 'PN_INV_ACTOCC_DATE');

Line 1518: RAISE fnd_api.g_exc_error;

1514: IF x_return_status = fnd_api.g_ret_sts_success
1515: THEN
1516: x_return_status := fnd_api.g_ret_sts_success;
1517: END IF;
1518: RAISE fnd_api.g_exc_error;
1519: ELSE
1520: fnd_message.set_name ('PN', 'PN_INV_ACTOCC_DATE');
1521: fnd_message.set_token ('ACTOCC_DATE', p_actual_occ_date);
1522: fnd_message.set_token ('COMM_DATE', p_lease_comm_date);

Line 1536: IF x_return_status = fnd_api.g_ret_sts_success

1532: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
1533: fnd_msg_pub.ADD;
1534: x_return_status := 'W';
1535: ELSE
1536: IF x_return_status = fnd_api.g_ret_sts_success
1537: THEN
1538: x_return_status := fnd_api.g_ret_sts_success;
1539: END IF;
1540: END IF;

Line 1538: x_return_status := fnd_api.g_ret_sts_success;

1534: x_return_status := 'W';
1535: ELSE
1536: IF x_return_status = fnd_api.g_ret_sts_success
1537: THEN
1538: x_return_status := fnd_api.g_ret_sts_success;
1539: END IF;
1540: END IF;
1541: EXCEPTION
1542: WHEN OTHERS

Line 1547: x_return_status := fnd_api.g_ret_sts_unexp_error;

1543: THEN
1544: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1545: fnd_message.set_token ('P_TEXT', l_api_name_full || '-' || SQLERRM);
1546: fnd_msg_pub.ADD;
1547: x_return_status := fnd_api.g_ret_sts_unexp_error;
1548: END VALIDATE_TENANCY_DATES;
1549: */
1550:
1551: PROCEDURE VALIDATE_TENANCY_DATES (

Line 1583: x_return_status := fnd_api.g_ret_sts_error;

1579: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
1580: fnd_message.set_token ('OCCP_DATE', p_actual_occ_date );
1581: fnd_message.set_token ('TRMN_DATE', p_tenancy_exp_date);
1582: fnd_msg_pub.ADD;*/
1583: x_return_status := fnd_api.g_ret_sts_error;
1584: END IF;
1585: ELSE
1586: /* IF ( ( p_estimated_occ_date < p_lease_comm_date)
1587: OR

Line 1598: x_return_status := fnd_api.g_ret_sts_error;

1594: fnd_message.set_token ('OCCP_DATE', p_actual_occ_date );
1595: fnd_message.set_token ('TRMN_DATE', p_tenancy_exp_date);
1596: fnd_msg_pub.ADD;
1597: END IF;*/
1598: x_return_status := fnd_api.g_ret_sts_error;
1599: END IF;
1600:
1601: EXCEPTION
1602: WHEN OTHERS

Line 1610: x_return_status := fnd_api.g_ret_sts_error;

1606: fnd_message.set_token ('P_TEXT', l_api_name_full
1607: || '-'
1608: || SQLERRM);
1609: fnd_msg_pub.ADD;*/
1610: x_return_status := fnd_api.g_ret_sts_error;
1611: END VALIDATE_TENANCY_DATES;
1612:
1613: PROCEDURE VALIDATE_FIN_OBLIG_END_DATE (
1614: p_parameter_name IN VARCHAR2

Line 1637: x_return_status := fnd_api.g_ret_sts_error;

1633: /*fnd_message.set_name ('PN', 'PN_FIN_OBLIGATION_DATE');
1634: fnd_message.set_token ('FIN_OBLIGATION_DATE', p_fin_oblig_end_date);
1635: fnd_message.set_token ('EXPIRE_DATE', p_tenancy_exp_date);
1636: fnd_msg_pub.ADD;*/
1637: x_return_status := fnd_api.g_ret_sts_error;
1638: END IF;
1639: ELSE
1640: x_return_status := fnd_api.g_ret_sts_success;
1641: END IF;

Line 1640: x_return_status := fnd_api.g_ret_sts_success;

1636: fnd_msg_pub.ADD;*/
1637: x_return_status := fnd_api.g_ret_sts_error;
1638: END IF;
1639: ELSE
1640: x_return_status := fnd_api.g_ret_sts_success;
1641: END IF;
1642:
1643: EXCEPTION
1644: WHEN OTHERS

Line 1652: x_return_status := fnd_api.g_ret_sts_unexp_error;

1648: fnd_message.set_token ('P_TEXT', l_api_name_full
1649: || '-'
1650: || SQLERRM);
1651: fnd_msg_pub.ADD;*/
1652: x_return_status := fnd_api.g_ret_sts_unexp_error;
1653: END VALIDATE_FIN_OBLIG_END_DATE;
1654:
1655: -- GET TENANCY_CUSTOMER_ID
1656: PROCEDURE GET_TENANCY_CUST_ID (

Line 1714: x_return_status := fnd_api.g_ret_sts_success;

1710: AND flo.meaning='Yes'
1711: ORDER BY hcsu.location;
1712: BEGIN
1713: -- Initialize the return status.
1714: x_return_status := fnd_api.g_ret_sts_success;
1715:
1716: IF ( x_customer_id IS NULL
1717: OR x_customer_id = pn_lease_utils.g_pn_miss_num
1718: )

Line 1731: x_return_status := fnd_api.g_ret_sts_error;

1727: /*fnd_message.set_name ('PN', 'PN_TENANCY_CUSTOMER');
1728: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1729: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1730: fnd_msg_pub.ADD;*/
1731: x_return_status := fnd_api.g_ret_sts_error;
1732: ELSE
1733: x_return_status := fnd_api.g_ret_sts_success;
1734: END IF;
1735:

Line 1733: x_return_status := fnd_api.g_ret_sts_success;

1729: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1730: fnd_msg_pub.ADD;*/
1731: x_return_status := fnd_api.g_ret_sts_error;
1732: ELSE
1733: x_return_status := fnd_api.g_ret_sts_success;
1734: END IF;
1735:
1736: IF c_tenancy_customer_name%ISOPEN
1737: THEN

Line 1752: x_return_status := fnd_api.g_ret_sts_error;

1748: /*fnd_message.set_name ('PN', 'PN_TENANCY_CUSTOMER');
1749: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1750: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1751: fnd_msg_pub.ADD;*/
1752: x_return_status := fnd_api.g_ret_sts_error;
1753: ELSE
1754: x_return_status := fnd_api.g_ret_sts_success;
1755: END IF;
1756:

Line 1754: x_return_status := fnd_api.g_ret_sts_success;

1750: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1751: fnd_msg_pub.ADD;*/
1752: x_return_status := fnd_api.g_ret_sts_error;
1753: ELSE
1754: x_return_status := fnd_api.g_ret_sts_success;
1755: END IF;
1756:
1757: IF c_tenancy_customer_id%ISOPEN
1758: THEN

Line 1781: x_return_status := fnd_api.g_ret_sts_error;

1777: /*fnd_message.set_name ('PN', 'PN_TENANCY_CUSTOMER_SITE');
1778: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1779: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1780: fnd_msg_pub.ADD;*/
1781: x_return_status := fnd_api.g_ret_sts_error;
1782: ELSE
1783: x_return_status := fnd_api.g_ret_sts_success;
1784: END IF;
1785:

Line 1783: x_return_status := fnd_api.g_ret_sts_success;

1779: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1780: fnd_msg_pub.ADD;*/
1781: x_return_status := fnd_api.g_ret_sts_error;
1782: ELSE
1783: x_return_status := fnd_api.g_ret_sts_success;
1784: END IF;
1785:
1786: IF c_customer_billtosite_use_id%ISOPEN
1787: THEN

Line 1817: x_return_status := fnd_api.g_ret_sts_unexp_error;

1813: THEN
1814: CLOSE c_customer_billtosite_use_id;
1815: END IF;
1816:
1817: x_return_status := fnd_api.g_ret_sts_unexp_error;
1818:
1819: END GET_TENANCY_CUST_ID;
1820:
1821:

Line 1857: x_return_status := fnd_api.g_ret_sts_success;

1853: AND hca.status = 'A'
1854: AND hca.cust_account_id = x_customer_id;
1855: BEGIN
1856: -- Initialize the return status.
1857: x_return_status := fnd_api.g_ret_sts_success;
1858: ------dbms_output.put_line ('UTILS:0');--Rupak
1859: IF (x_customer_id IS NULL or x_customer_id=PN_LEASE_UTILS.G_PN_MISS_NUM)
1860: THEN
1861: OPEN cur_customer;

Line 1872: x_return_status := fnd_api.g_ret_sts_error;

1868: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
1869: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1870: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1871: fnd_msg_pub.ADD;*/
1872: x_return_status := fnd_api.g_ret_sts_error;
1873: --RAISE fnd_api.g_exc_error;
1874: ELSE
1875: x_return_status := fnd_api.g_ret_sts_success;
1876: END IF;

Line 1873: --RAISE fnd_api.g_exc_error;

1869: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1870: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1871: fnd_msg_pub.ADD;*/
1872: x_return_status := fnd_api.g_ret_sts_error;
1873: --RAISE fnd_api.g_exc_error;
1874: ELSE
1875: x_return_status := fnd_api.g_ret_sts_success;
1876: END IF;
1877:

Line 1875: x_return_status := fnd_api.g_ret_sts_success;

1871: fnd_msg_pub.ADD;*/
1872: x_return_status := fnd_api.g_ret_sts_error;
1873: --RAISE fnd_api.g_exc_error;
1874: ELSE
1875: x_return_status := fnd_api.g_ret_sts_success;
1876: END IF;
1877:
1878: IF cur_customer%ISOPEN
1879: THEN

Line 1895: x_return_status := fnd_api.g_ret_sts_error;

1891: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
1892: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1893:
1894: fnd_msg_pub.ADD;*/
1895: x_return_status := fnd_api.g_ret_sts_error;
1896: --RAISE fnd_api.g_exc_unexpected_error;
1897: ELSE
1898: x_return_status := fnd_api.g_ret_sts_success;
1899: END IF;

Line 1896: --RAISE fnd_api.g_exc_unexpected_error;

1892: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
1893:
1894: fnd_msg_pub.ADD;*/
1895: x_return_status := fnd_api.g_ret_sts_error;
1896: --RAISE fnd_api.g_exc_unexpected_error;
1897: ELSE
1898: x_return_status := fnd_api.g_ret_sts_success;
1899: END IF;
1900: ------dbms_output.put_line ('UTILS:3');--Rupak

Line 1898: x_return_status := fnd_api.g_ret_sts_success;

1894: fnd_msg_pub.ADD;*/
1895: x_return_status := fnd_api.g_ret_sts_error;
1896: --RAISE fnd_api.g_exc_unexpected_error;
1897: ELSE
1898: x_return_status := fnd_api.g_ret_sts_success;
1899: END IF;
1900: ------dbms_output.put_line ('UTILS:3');--Rupak
1901: IF cur_customer_id%ISOPEN
1902: THEN

Line 1909: x_return_status := fnd_api.g_ret_sts_error;

1905: END IF;
1906: EXCEPTION
1907: WHEN OTHERS
1908: THEN
1909: x_return_status := fnd_api.g_ret_sts_error;
1910: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1911: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1912: fnd_message.set_token ('P_TEXT', l_api_name_full
1913: || '-'

Line 1916: --RAISE fnd_api.g_exc_error;

1912: fnd_message.set_token ('P_TEXT', l_api_name_full
1913: || '-'
1914: || SQLERRM);
1915: fnd_msg_pub.ADD;*/
1916: --RAISE fnd_api.g_exc_error;
1917: IF cur_customer%ISOPEN
1918: THEN
1919: CLOSE cur_customer;
1920: ELSIF cur_customer_id%ISOPEN

Line 1925: x_return_status := fnd_api.g_ret_sts_unexp_error;

1921: THEN
1922: CLOSE cur_customer_id;
1923: END IF;
1924:
1925: x_return_status := fnd_api.g_ret_sts_unexp_error;
1926: END get_customer_id;
1927:
1928: PROCEDURE get_cal_start_date ( p_parameter_name IN VARCHAR2
1929: , x_cal_start IN OUT NOCOPY VARCHAR2

Line 1950: x_return_status := fnd_api.g_ret_sts_error;

1946: rtrim(ltrim(translate(SUBSTR(x_cal_start,4,2),'0123456789',' '))) IS NOT NULL OR
1947: SUBSTR(x_cal_start,3,1) <> '-'
1948: THEN
1949:
1950: x_return_status := fnd_api.g_ret_sts_error;
1951:
1952: ELSIF (to_number(l_dd_part) < 1 OR to_number(l_dd_part) > 31) OR
1953: (to_number(l_mm_part) < 1 OR to_number(l_mm_part) > 12)
1954: THEN

Line 1956: x_return_status := fnd_api.g_ret_sts_error;

1952: ELSIF (to_number(l_dd_part) < 1 OR to_number(l_dd_part) > 31) OR
1953: (to_number(l_mm_part) < 1 OR to_number(l_mm_part) > 12)
1954: THEN
1955:
1956: x_return_status := fnd_api.g_ret_sts_error;
1957:
1958: END IF;
1959:
1960: IF x_return_status <> 'S' THEN

Line 1963: x_return_status := fnd_api.g_ret_sts_error;

1959:
1960: IF x_return_status <> 'S' THEN
1961: /* fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
1962: fnd_msg_pub.ADD;*/
1963: x_return_status := fnd_api.g_ret_sts_error;
1964:
1965: END IF;
1966:
1967: BEGIN

Line 1971: x_return_status := fnd_api.g_ret_sts_success;

1967: BEGIN
1968: SELECT to_date(l_dd_part || '-' || l_mm_part || '-' || '2007', 'DD-MM-YYYY')
1969: INTO l_cal_start
1970: FROM DUAL;
1971: x_return_status := fnd_api.g_ret_sts_success;
1972: EXCEPTION
1973: WHEN OTHERS THEN
1974: /*fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
1975: fnd_msg_pub.ADD;*/

Line 1976: x_return_status := fnd_api.g_ret_sts_error;

1972: EXCEPTION
1973: WHEN OTHERS THEN
1974: /*fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
1975: fnd_msg_pub.ADD;*/
1976: x_return_status := fnd_api.g_ret_sts_error;
1977:
1978:
1979: END;
1980: END get_cal_start_date;

Line 1992: x_return_status := fnd_api.g_ret_sts_success;

1988: )
1989: IS
1990: BEGIN
1991: select company_id into x_company_id from PN_COMPANIES_ALL where upper(name) = upper(p_company_name) or company_id = x_company_id;
1992: x_return_status := fnd_api.g_ret_sts_success;
1993: EXCEPTION
1994: when NO_DATA_FOUND then
1995: x_return_status := fnd_api.g_ret_sts_error;
1996: when OTHERS then

Line 1995: x_return_status := fnd_api.g_ret_sts_error;

1991: select company_id into x_company_id from PN_COMPANIES_ALL where upper(name) = upper(p_company_name) or company_id = x_company_id;
1992: x_return_status := fnd_api.g_ret_sts_success;
1993: EXCEPTION
1994: when NO_DATA_FOUND then
1995: x_return_status := fnd_api.g_ret_sts_error;
1996: when OTHERS then
1997: x_return_status := fnd_api.g_ret_sts_unexp_error;
1998: END ;
1999: --------------------------------Terms Begin----------------------

Line 1997: x_return_status := fnd_api.g_ret_sts_unexp_error;

1993: EXCEPTION
1994: when NO_DATA_FOUND then
1995: x_return_status := fnd_api.g_ret_sts_error;
1996: when OTHERS then
1997: x_return_status := fnd_api.g_ret_sts_unexp_error;
1998: END ;
1999: --------------------------------Terms Begin----------------------
2000:
2001: FUNCTION GET_LEASE_CONTEXT (p_lease_id IN NUMBER

Line 2055: x_return_status := fnd_api.g_ret_sts_success;

2051: BEGIN
2052: IF ( p_start_date > p_lease_comm_date
2053: OR p_start_date < p_lease_term_date)
2054: THEN
2055: x_return_status := fnd_api.g_ret_sts_success;
2056: ELSE
2057: /*fnd_message.set_name ('PN', 'PN_INVALID_PAYSTART_DATE');
2058: fnd_message.set_token ('START_DATE', p_start_date);
2059: fnd_message.set_token ('COMM_DATE', p_lease_comm_date);

Line 2069: x_return_status := fnd_api.g_ret_sts_success;

2065: --End Date
2066: IF ( p_end_date > p_lease_comm_date
2067: OR p_end_date < p_lease_term_date)
2068: THEN
2069: x_return_status := fnd_api.g_ret_sts_success;
2070: ELSE
2071: /*fnd_message.set_name ('PN', 'PN_INVALID_PAYEND_DATE');
2072: fnd_message.set_token ('END_DATE', p_end_date);
2073: fnd_message.set_token ('COMM_DATE', p_lease_comm_date);

Line 2086: x_return_status := fnd_api.g_ret_sts_error;

2082: /*fnd_message.set_name ('PN', 'PN_INVALID_PAYMENT_DATES');
2083: fnd_message.set_token ('START_DATE', p_start_date);
2084: fnd_message.set_token ('END_DATE', p_end_date);
2085: fnd_msg_pub.ADD;*/
2086: x_return_status := fnd_api.g_ret_sts_error;
2087: ELSE
2088: IF x_return_status = fnd_api.g_ret_sts_success
2089: THEN
2090: x_return_status := fnd_api.g_ret_sts_success;

Line 2088: IF x_return_status = fnd_api.g_ret_sts_success

2084: fnd_message.set_token ('END_DATE', p_end_date);
2085: fnd_msg_pub.ADD;*/
2086: x_return_status := fnd_api.g_ret_sts_error;
2087: ELSE
2088: IF x_return_status = fnd_api.g_ret_sts_success
2089: THEN
2090: x_return_status := fnd_api.g_ret_sts_success;
2091: END IF;
2092: END IF;

Line 2090: x_return_status := fnd_api.g_ret_sts_success;

2086: x_return_status := fnd_api.g_ret_sts_error;
2087: ELSE
2088: IF x_return_status = fnd_api.g_ret_sts_success
2089: THEN
2090: x_return_status := fnd_api.g_ret_sts_success;
2091: END IF;
2092: END IF;
2093: EXCEPTION
2094: WHEN OTHERS

Line 2102: x_return_status := fnd_api.g_ret_sts_unexp_error;

2098: fnd_message.set_token ('P_TEXT', l_api_name_full
2099: || '-'
2100: || SQLERRM);
2101: fnd_msg_pub.ADD;*/
2102: x_return_status := fnd_api.g_ret_sts_unexp_error;
2103:
2104: END VALIDATE_PAYMENT_DATES;
2105:
2106: PROCEDURE GET_VENDOR_ID (p_parameter_name IN VARCHAR2

Line 2135: x_return_status := fnd_api.g_ret_sts_success;

2131: AND TRUNC (SYSDATE) <= NVL (end_date_active, SYSDATE)
2132: AND vendor_id = x_vendor_id;
2133: BEGIN
2134: -- Initialize the return status.
2135: x_return_status := fnd_api.g_ret_sts_success;
2136:
2137: IF x_vendor_id IS NULL
2138: THEN
2139: OPEN c_vendor;

Line 2150: x_return_status := fnd_api.g_ret_sts_error;

2146: /*fnd_message.set_name ('PN', 'PN_INVALID_VENDOR');
2147: fnd_message.set_token ('VENDOR_NAME', p_vendor_name);
2148: fnd_message.set_token ('VENDOR_ID', x_vendor_id);
2149: fnd_msg_pub.ADD;*/
2150: x_return_status := fnd_api.g_ret_sts_error;
2151: ELSE
2152: x_return_status := fnd_api.g_ret_sts_success;
2153: END IF;
2154:

Line 2152: x_return_status := fnd_api.g_ret_sts_success;

2148: fnd_message.set_token ('VENDOR_ID', x_vendor_id);
2149: fnd_msg_pub.ADD;*/
2150: x_return_status := fnd_api.g_ret_sts_error;
2151: ELSE
2152: x_return_status := fnd_api.g_ret_sts_success;
2153: END IF;
2154:
2155: IF c_vendor%ISOPEN
2156: THEN

Line 2171: x_return_status := fnd_api.g_ret_sts_error;

2167: /*fnd_message.set_name ('PN', 'PN_INVALID_VENDOR');
2168: fnd_message.set_token ('VENDOR_NAME', p_vendor_name);
2169: fnd_message.set_token ('VENDOR_ID', x_vendor_id);
2170: fnd_msg_pub.ADD;*/
2171: x_return_status := fnd_api.g_ret_sts_error;
2172: ELSE
2173: x_return_status := fnd_api.g_ret_sts_success;
2174: END IF;
2175:

Line 2173: x_return_status := fnd_api.g_ret_sts_success;

2169: fnd_message.set_token ('VENDOR_ID', x_vendor_id);
2170: fnd_msg_pub.ADD;*/
2171: x_return_status := fnd_api.g_ret_sts_error;
2172: ELSE
2173: x_return_status := fnd_api.g_ret_sts_success;
2174: END IF;
2175:
2176: IF c_vendor_id%ISOPEN
2177: THEN

Line 2190: x_return_status := fnd_api.g_ret_sts_unexp_error;

2186: fnd_message.set_token ('P_TEXT', l_api_name_full
2187: || '-'
2188: || SQLERRM);*/
2189: fnd_msg_pub.ADD;
2190: x_return_status := fnd_api.g_ret_sts_unexp_error;
2191:
2192: IF c_vendor_id%ISOPEN
2193: THEN
2194: CLOSE c_vendor_id;

Line 2235: x_return_status := fnd_api.g_ret_sts_success;

2231: AND org_id = p_org_id
2232: AND vendor_site_id = x_vendor_site_id;
2233: BEGIN
2234: -- Initialize the return status.
2235: x_return_status := fnd_api.g_ret_sts_success;
2236:
2237: IF x_vendor_site_id IS NULL
2238: THEN
2239: OPEN c_vendor_site;

Line 2250: x_return_status := fnd_api.g_ret_sts_error;

2246: /*fnd_message.set_name ('PN', 'PN_INVALID_VENDOR_SITE');
2247: fnd_message.set_token ('VENDOR_SITE_NAME', p_vendor_site);
2248: fnd_message.set_token ('VENDOR_SITE_ID', x_vendor_site_id);
2249: fnd_msg_pub.ADD;*/
2250: x_return_status := fnd_api.g_ret_sts_error;
2251: ELSE
2252: x_return_status := fnd_api.g_ret_sts_success;
2253: END IF;
2254:

Line 2252: x_return_status := fnd_api.g_ret_sts_success;

2248: fnd_message.set_token ('VENDOR_SITE_ID', x_vendor_site_id);
2249: fnd_msg_pub.ADD;*/
2250: x_return_status := fnd_api.g_ret_sts_error;
2251: ELSE
2252: x_return_status := fnd_api.g_ret_sts_success;
2253: END IF;
2254:
2255: IF c_vendor_site%ISOPEN
2256: THEN

Line 2271: x_return_status := fnd_api.g_ret_sts_error;

2267: /*fnd_message.set_name ('PN', 'PN_INVALID_VENDOR_SITE');
2268: fnd_message.set_token ('VENDOR_SITE_NAME', p_vendor_site);
2269: fnd_message.set_token ('VENDOR_SITE_ID', x_vendor_site_id);
2270: fnd_msg_pub.ADD;*/
2271: x_return_status := fnd_api.g_ret_sts_error;
2272: ELSE
2273: x_return_status := fnd_api.g_ret_sts_success;
2274: END IF;
2275:

Line 2273: x_return_status := fnd_api.g_ret_sts_success;

2269: fnd_message.set_token ('VENDOR_SITE_ID', x_vendor_site_id);
2270: fnd_msg_pub.ADD;*/
2271: x_return_status := fnd_api.g_ret_sts_error;
2272: ELSE
2273: x_return_status := fnd_api.g_ret_sts_success;
2274: END IF;
2275:
2276: IF c_vendor_site_id%ISOPEN
2277: THEN

Line 2290: x_return_status := fnd_api.g_ret_sts_unexp_error;

2286: fnd_message.set_token ('P_TEXT', l_api_name_full
2287: || '-'
2288: || SQLERRM);*/
2289: fnd_msg_pub.ADD;
2290: x_return_status := fnd_api.g_ret_sts_unexp_error;
2291:
2292: IF c_vendor_site_id%ISOPEN
2293: THEN
2294: CLOSE c_vendor_site_id;

Line 2329: x_return_status := fnd_api.g_ret_sts_success;

2325: AND hca.status = 'A'
2326: AND hca.cust_account_id = x_customer_id;
2327: BEGIN
2328: -- Initialize the return status.
2329: x_return_status := fnd_api.g_ret_sts_success;
2330:
2331: IF x_customer_id IS NULL
2332: THEN
2333: OPEN c_customer;

Line 2344: x_return_status := fnd_api.g_ret_sts_error;

2340: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
2341: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
2342: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
2343: fnd_msg_pub.ADD;*/
2344: x_return_status := fnd_api.g_ret_sts_error;
2345: ELSE
2346: x_return_status := fnd_api.g_ret_sts_success;
2347: END IF;
2348:

Line 2346: x_return_status := fnd_api.g_ret_sts_success;

2342: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
2343: fnd_msg_pub.ADD;*/
2344: x_return_status := fnd_api.g_ret_sts_error;
2345: ELSE
2346: x_return_status := fnd_api.g_ret_sts_success;
2347: END IF;
2348:
2349: IF c_customer%ISOPEN
2350: THEN

Line 2365: x_return_status := fnd_api.g_ret_sts_error;

2361: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
2362: fnd_message.set_token ('CUSTOMER_NAME', p_customer_name);
2363: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
2364: fnd_msg_pub.ADD;*/
2365: x_return_status := fnd_api.g_ret_sts_error;
2366: ELSE
2367: x_return_status := fnd_api.g_ret_sts_success;
2368: END IF;
2369:

Line 2367: x_return_status := fnd_api.g_ret_sts_success;

2363: fnd_message.set_token ('CUSTOMER_ID', x_customer_id);
2364: fnd_msg_pub.ADD;*/
2365: x_return_status := fnd_api.g_ret_sts_error;
2366: ELSE
2367: x_return_status := fnd_api.g_ret_sts_success;
2368: END IF;
2369:
2370: IF c_customer_id%ISOPEN
2371: THEN

Line 2384: x_return_status := fnd_api.g_ret_sts_unexp_error;

2380: fnd_message.set_token ('P_TEXT', l_api_name_full
2381: || '-'
2382: || SQLERRM);*/
2383: fnd_msg_pub.ADD;
2384: x_return_status := fnd_api.g_ret_sts_unexp_error;
2385:
2386: IF c_customer_id%ISOPEN
2387: THEN
2388: CLOSE c_customer_id;

Line 2445: x_return_status := fnd_api.g_ret_sts_success;

2441: AND ter.LANGUAGE(+) = USERENV ('LANG')
2442: AND hcsu.site_use_id = x_customer_site_id;
2443: BEGIN
2444: -- Initialize the return status.
2445: x_return_status := fnd_api.g_ret_sts_success;
2446:
2447: IF x_customer_site_id IS NULL
2448: THEN
2449: OPEN c_customer_site;

Line 2460: x_return_status := fnd_api.g_ret_sts_error;

2456: /* fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER_SITE');
2457: fnd_message.set_token ('CUSTOMER_SITE', p_customer_site);
2458: fnd_message.set_token ('CUSTOMER_SITE_ID',x_customer_site_id);
2459: fnd_msg_pub.ADD;*/
2460: x_return_status := fnd_api.g_ret_sts_error;
2461: ELSE
2462: x_return_status := fnd_api.g_ret_sts_success;
2463: END IF;
2464:

Line 2462: x_return_status := fnd_api.g_ret_sts_success;

2458: fnd_message.set_token ('CUSTOMER_SITE_ID',x_customer_site_id);
2459: fnd_msg_pub.ADD;*/
2460: x_return_status := fnd_api.g_ret_sts_error;
2461: ELSE
2462: x_return_status := fnd_api.g_ret_sts_success;
2463: END IF;
2464:
2465: IF c_customer_site%ISOPEN
2466: THEN

Line 2481: x_return_status := fnd_api.g_ret_sts_error;

2477: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER_SITE');
2478: fnd_message.set_token ('CUSTOMER_SITE', p_customer_site);
2479: fnd_message.set_token ('CUSTOMER_SITE_ID',x_customer_site_id);
2480: fnd_msg_pub.ADD;*/
2481: x_return_status := fnd_api.g_ret_sts_error;
2482: ELSE
2483: x_return_status := fnd_api.g_ret_sts_success;
2484: END IF;
2485:

Line 2483: x_return_status := fnd_api.g_ret_sts_success;

2479: fnd_message.set_token ('CUSTOMER_SITE_ID',x_customer_site_id);
2480: fnd_msg_pub.ADD;*/
2481: x_return_status := fnd_api.g_ret_sts_error;
2482: ELSE
2483: x_return_status := fnd_api.g_ret_sts_success;
2484: END IF;
2485:
2486: IF c_customer_site_id%ISOPEN
2487: THEN

Line 2500: x_return_status := fnd_api.g_ret_sts_unexp_error;

2496: fnd_message.set_token ('P_TEXT', l_api_name_full
2497: || '-'
2498: || SQLERRM);
2499: fnd_msg_pub.ADD;*/
2500: x_return_status := fnd_api.g_ret_sts_unexp_error;
2501:
2502: IF c_customer_site_id%ISOPEN
2503: THEN
2504: CLOSE c_customer_site_id;