13: , p_token_nullparam VARCHAR2
14: )
15: IS
16: BEGIN
17: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
18: fnd_message.set_token ('API_NAME', p_token_apiname);
19: fnd_message.set_token ('NULL_PARAM', p_token_nullparam);
20: fnd_msg_pub.ADD;
21:
14: )
15: IS
16: BEGIN
17: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
18: fnd_message.set_token ('API_NAME', p_token_apiname);
19: fnd_message.set_token ('NULL_PARAM', p_token_nullparam);
20: fnd_msg_pub.ADD;
21:
22: END add_null_parameter_msg;
15: IS
16: BEGIN
17: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
18: fnd_message.set_token ('API_NAME', p_token_apiname);
19: fnd_message.set_token ('NULL_PARAM', p_token_nullparam);
20: fnd_msg_pub.ADD;
21:
22: END add_null_parameter_msg;
23:
74: INTO x_lookup_type_code;
75:
76: IF (c_lookup_type%NOTFOUND)
77: THEN
78: /* fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;*/
75:
76: IF (c_lookup_type%NOTFOUND)
77: THEN
78: /* fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
76: IF (c_lookup_type%NOTFOUND)
77: THEN
78: /* fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
77: THEN
78: /* fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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
97: INTO x_lookup_type_code;
98:
99: IF (c_lookup_type_code%NOTFOUND)
100: THEN
101: /*fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;*/
98:
99: IF (c_lookup_type_code%NOTFOUND)
100: THEN
101: /*fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
99: IF (c_lookup_type_code%NOTFOUND)
100: THEN
101: /*fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
100: THEN
101: /*fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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
116: END IF;
117: EXCEPTION
118: WHEN OTHERS
119: THEN
120: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
121: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
122: fnd_message.set_token ('P_TEXT', l_api_name_full
123: || '-'
124: || SQLERRM);
117: EXCEPTION
118: WHEN OTHERS
119: THEN
120: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
121: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
122: fnd_message.set_token ('P_TEXT', l_api_name_full
123: || '-'
124: || SQLERRM);
125: fnd_msg_pub.ADD;*/
118: WHEN OTHERS
119: THEN
120: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
121: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
169: INTO x_lease_name;
170:
171: IF NOT (c_lease_name%NOTFOUND)
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
170:
171: IF NOT (c_lease_name%NOTFOUND)
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;
184: END IF;
185: EXCEPTION
186: WHEN OTHERS
187: THEN
188: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
189: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
190: fnd_message.set_token ('P_TEXT', l_api_name_full
191: || '-'
192: || SQLERRM);
185: EXCEPTION
186: WHEN OTHERS
187: THEN
188: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
189: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
190: fnd_message.set_token ('P_TEXT', l_api_name_full
191: || '-'
192: || SQLERRM);
193: fnd_msg_pub.ADD;
186: WHEN OTHERS
187: THEN
188: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
189: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
190: fnd_message.set_token ('P_TEXT', l_api_name_full
191: || '-'
192: || SQLERRM);
193: fnd_msg_pub.ADD;
194:
245: INTO x_user_id;
246:
247: IF (c_user%NOTFOUND)
248: THEN
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;
246:
247: IF (c_user%NOTFOUND)
248: THEN
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
247: IF (c_user%NOTFOUND)
248: THEN
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;
266: INTO x_user_id;
267:
268: IF (c_user_id%NOTFOUND)
269: THEN
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;
267:
268: IF (c_user_id%NOTFOUND)
269: THEN
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
268: IF (c_user_id%NOTFOUND)
269: THEN
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;
283: END IF;
284: EXCEPTION
285: WHEN OTHERS
286: THEN
287: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
288: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
289: fnd_message.set_token ('P_TEXT', l_api_name_full
290: || '-'
291: || SQLERRM);
284: EXCEPTION
285: WHEN OTHERS
286: THEN
287: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
288: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
289: fnd_message.set_token ('P_TEXT', l_api_name_full
290: || '-'
291: || SQLERRM);
292: fnd_msg_pub.ADD;*/
285: WHEN OTHERS
286: THEN
287: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
288: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
289: fnd_message.set_token ('P_TEXT', l_api_name_full
290: || '-'
291: || SQLERRM);
292: fnd_msg_pub.ADD;*/
293:
458: , x_location_id;
459:
460: IF (c_location%NOTFOUND)
461: THEN
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;
459:
460: IF (c_location%NOTFOUND)
461: THEN
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
460: IF (c_location%NOTFOUND)
461: THEN
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;
485: , x_location_id;
486:
487: IF (c_location_id%NOTFOUND)
488: THEN
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;
486:
487: IF (c_location_id%NOTFOUND)
488: THEN
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
487: IF (c_location_id%NOTFOUND)
488: THEN
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;
502: END IF;
503: EXCEPTION
504: WHEN OTHERS
505: THEN
506: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
507: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
508: fnd_message.set_token ('P_TEXT', l_api_name_full
509: || '-'
510: || SQLERRM);
503: EXCEPTION
504: WHEN OTHERS
505: THEN
506: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
507: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
508: fnd_message.set_token ('P_TEXT', l_api_name_full
509: || '-'
510: || SQLERRM);
511: fnd_msg_pub.ADD;*/
504: WHEN OTHERS
505: THEN
506: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
507: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
508: fnd_message.set_token ('P_TEXT', l_api_name_full
509: || '-'
510: || SQLERRM);
511: fnd_msg_pub.ADD;*/
512:
575: INTO x_master_lease_id;
576:
577: IF (c_master_lease%NOTFOUND)
578: THEN
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;
576:
577: IF (c_master_lease%NOTFOUND)
578: THEN
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
577: IF (c_master_lease%NOTFOUND)
578: THEN
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;
596: INTO x_master_lease_id;
597:
598: IF (c_master_lease_id%NOTFOUND)
599: THEN
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;
597:
598: IF (c_master_lease_id%NOTFOUND)
599: THEN
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
598: IF (c_master_lease_id%NOTFOUND)
599: THEN
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;
613: END IF;
614: EXCEPTION
615: WHEN OTHERS
616: THEN
617: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
618: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
619: fnd_message.set_token ('P_TEXT', l_api_name_full
620: || '-'
621: || SQLERRM);
614: EXCEPTION
615: WHEN OTHERS
616: THEN
617: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
618: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
619: fnd_message.set_token ('P_TEXT', l_api_name_full
620: || '-'
621: || SQLERRM);
622: fnd_msg_pub.ADD;*/
615: WHEN OTHERS
616: THEN
617: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
618: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
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);
661: fnd_msg_pub.ADD;*/
662: x_return_status := fnd_api.g_ret_sts_error;
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);
661: fnd_msg_pub.ADD;*/
662: x_return_status := fnd_api.g_ret_sts_error;
663: END IF;
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);
661: fnd_msg_pub.ADD;*/
662: x_return_status := fnd_api.g_ret_sts_error;
663: END IF;
664: EXCEPTION
663: END IF;
664: EXCEPTION
665: WHEN OTHERS
666: THEN
667: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
668: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
669: fnd_message.set_token ('P_TEXT', l_api_name_full
670: || '-'
671: || SQLERRM);
664: EXCEPTION
665: WHEN OTHERS
666: THEN
667: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
668: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
669: fnd_message.set_token ('P_TEXT', l_api_name_full
670: || '-'
671: || SQLERRM);
672: fnd_msg_pub.ADD;*/
665: WHEN OTHERS
666: THEN
667: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
668: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
731: INTO x_termtemp_id;
732:
733: IF (c_termtemp%NOTFOUND)
734: THEN
735: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
736: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
737: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
738:
739:
732:
733: IF (c_termtemp%NOTFOUND)
734: THEN
735: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
736: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
737: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
738:
739:
740: fnd_msg_pub.ADD;*/
733: IF (c_termtemp%NOTFOUND)
734: THEN
735: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
736: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
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;
754: INTO x_termtemp_id;
755:
756: IF (c_termtemp_id%NOTFOUND)
757: THEN
758: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
759: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
760: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
761:
762:
755:
756: IF (c_termtemp_id%NOTFOUND)
757: THEN
758: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
759: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
760: fnd_message.set_token ('TERM_TEMPLATE', p_termtemp_name);
761:
762:
763: fnd_msg_pub.ADD;*/
756: IF (c_termtemp_id%NOTFOUND)
757: THEN
758: /*fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
759: fnd_message.set_token ('TERM_TEMPLATE_ID', x_termtemp_id);
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;
773: END IF;
774: EXCEPTION
775: WHEN OTHERS
776: THEN
777: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
778: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
779: fnd_message.set_token ('P_TEXT', l_api_name_full
780: || '-'
781: || SQLERRM);
774: EXCEPTION
775: WHEN OTHERS
776: THEN
777: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
778: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
779: fnd_message.set_token ('P_TEXT', l_api_name_full
780: || '-'
781: || SQLERRM);
782: fnd_msg_pub.ADD;*/
775: WHEN OTHERS
776: THEN
777: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
778: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
779: fnd_message.set_token ('P_TEXT', l_api_name_full
780: || '-'
781: || SQLERRM);
782: fnd_msg_pub.ADD;*/
783:
833: INTO x_grouping_rule_id;
834:
835: IF (c_grouping_rule%NOTFOUND)
836: THEN
837: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
838: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
839: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
840:
841:
834:
835: IF (c_grouping_rule%NOTFOUND)
836: THEN
837: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
838: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
839: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
840:
841:
842: fnd_msg_pub.ADD;*/
835: IF (c_grouping_rule%NOTFOUND)
836: THEN
837: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
838: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
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;
856: INTO x_grouping_rule_id;
857:
858: IF (c_grouping_rule_id%NOTFOUND)
859: THEN
860: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
861: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
862: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
863:
864:
857:
858: IF (c_grouping_rule_id%NOTFOUND)
859: THEN
860: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
861: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
862: fnd_message.set_token ('GROUPING_RULE', p_grouping_rule);
863:
864:
865: fnd_msg_pub.ADD;*/
858: IF (c_grouping_rule_id%NOTFOUND)
859: THEN
860: /*fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
861: fnd_message.set_token ('GROUPING_ID', x_grouping_rule_id);
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;
875: END IF;
876: EXCEPTION
877: WHEN OTHERS
878: THEN
879: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
880: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
881: fnd_message.set_token ('P_TEXT', l_api_name_full
882: || '-'
883: || SQLERRM);
876: EXCEPTION
877: WHEN OTHERS
878: THEN
879: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
880: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
881: fnd_message.set_token ('P_TEXT', l_api_name_full
882: || '-'
883: || SQLERRM);
884: fnd_msg_pub.ADD;*/
877: WHEN OTHERS
878: THEN
879: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
880: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
881: fnd_message.set_token ('P_TEXT', l_api_name_full
882: || '-'
883: || SQLERRM);
884: fnd_msg_pub.ADD;*/
885:
990: BEGIN
991: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
992: THEN
993: NULL;
994: /*fnd_message.set_name ('PN', 'PN_API_LEASE_DESC_FLEX_ERR');
995: fnd_message.set_token ('API_NAME', p_token_an);
996: fnd_message.set_token ('DESC_FLEX_MSG', p_token_dfm);
997: fnd_msg_pub.ADD;*/
998: END IF;
991: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
992: THEN
993: NULL;
994: /*fnd_message.set_name ('PN', 'PN_API_LEASE_DESC_FLEX_ERR');
995: fnd_message.set_token ('API_NAME', p_token_an);
996: fnd_message.set_token ('DESC_FLEX_MSG', p_token_dfm);
997: fnd_msg_pub.ADD;*/
998: END IF;
999: END add_desc_flex_msg;
992: THEN
993: NULL;
994: /*fnd_message.set_name ('PN', 'PN_API_LEASE_DESC_FLEX_ERR');
995: fnd_message.set_token ('API_NAME', p_token_an);
996: fnd_message.set_token ('DESC_FLEX_MSG', p_token_dfm);
997: fnd_msg_pub.ADD;*/
998: END IF;
999: END add_desc_flex_msg;
1000:
1071: INTO l_structure_num;
1072:
1073: IF (c_structure_num%NOTFOUND)
1074: THEN
1075: /*fnd_message.set_name ('PN', 'PN_CHART_OF_ACCOUNTS_ID');
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;*/
1072:
1073: IF (c_structure_num%NOTFOUND)
1074: THEN
1075: /*fnd_message.set_name ('PN', 'PN_CHART_OF_ACCOUNTS_ID');
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;
1073: IF (c_structure_num%NOTFOUND)
1074: THEN
1075: /*fnd_message.set_name ('PN', 'PN_CHART_OF_ACCOUNTS_ID');
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
1105: ------dbms_output.put_line ( 'Account id: '|| p_account_id);
1106:
1107: IF (c_get_account%NOTFOUND)
1108: THEN
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;
1106:
1107: IF (c_get_account%NOTFOUND)
1108: THEN
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
1135: );
1136:
1137: IF p_account_id = 0
1138: THEN
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;
1136:
1137: IF p_account_id = 0
1138: THEN
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
1204: || p_account_id);*/
1205:
1206: IF p_account_id = 0
1207: THEN
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;
1205:
1206: IF p_account_id = 0
1207: THEN
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
1216: END IF;
1217: EXCEPTION
1218: WHEN OTHERS
1219: THEN
1220: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1221: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1222: fnd_message.set_token ('P_TEXT', l_api_name_full
1223: || '-'
1224: || SQLERRM);
1217: EXCEPTION
1218: WHEN OTHERS
1219: THEN
1220: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1221: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1222: fnd_message.set_token ('P_TEXT', l_api_name_full
1223: || '-'
1224: || SQLERRM);
1225: fnd_msg_pub.ADD;*/
1218: WHEN OTHERS
1219: THEN
1220: /* fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1221: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1222: fnd_message.set_token ('P_TEXT', l_api_name_full
1223: || '-'
1224: || SQLERRM);
1225: fnd_msg_pub.ADD;*/
1226:
1295: -------dbms_output.put_line('fnd_profile.VALUE.org_id'||fnd_profile.VALUE('org_id'));
1296: ----dbms_output.put_line('fnd_global.org_id'||fnd_global.org_id);
1297: IF (c_company_name%NOTFOUND)
1298: THEN
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;
1296: ----dbms_output.put_line('fnd_global.org_id'||fnd_global.org_id);
1297: IF (c_company_name%NOTFOUND)
1298: THEN
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
1297: IF (c_company_name%NOTFOUND)
1298: THEN
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;
1317:
1318:
1319: IF (c_company_id%NOTFOUND)
1320: THEN
1321: /* fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
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:
1318:
1319: IF (c_company_id%NOTFOUND)
1320: THEN
1321: /* fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
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;
1319: IF (c_company_id%NOTFOUND)
1320: THEN
1321: /* fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
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
1335: END IF;
1336: EXCEPTION
1337: WHEN OTHERS
1338: THEN
1339: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1340: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1341: fnd_message.set_token ('P_TEXT', l_api_name_full
1342: || '-'
1343: || SQLERRM);
1336: EXCEPTION
1337: WHEN OTHERS
1338: THEN
1339: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1340: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1341: fnd_message.set_token ('P_TEXT', l_api_name_full
1342: || '-'
1343: || SQLERRM);
1344: fnd_msg_pub.ADD;*/
1337: WHEN OTHERS
1338: THEN
1339: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1340: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1341: fnd_message.set_token ('P_TEXT', l_api_name_full
1342: || '-'
1343: || SQLERRM);
1344: fnd_msg_pub.ADD;*/
1345:
1413: || x_company_site_id);*/
1414:
1415: IF (c_company_site_name%NOTFOUND)
1416: THEN
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;
1414:
1415: IF (c_company_site_name%NOTFOUND)
1416: THEN
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
1415: IF (c_company_site_name%NOTFOUND)
1416: THEN
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;
1444: || x_company_site_id);*/
1445:
1446: IF (c_company_site_id%NOTFOUND)
1447: THEN
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;
1445:
1446: IF (c_company_site_id%NOTFOUND)
1447: THEN
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
1446: IF (c_company_site_id%NOTFOUND)
1447: THEN
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;
1461: END IF;
1462: EXCEPTION
1463: WHEN OTHERS
1464: THEN
1465: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1466: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1467: fnd_message.set_token ('P_TEXT', l_api_name_full
1468: || '-'
1469: || SQLERRM);
1462: EXCEPTION
1463: WHEN OTHERS
1464: THEN
1465: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1466: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1467: fnd_message.set_token ('P_TEXT', l_api_name_full
1468: || '-'
1469: || SQLERRM);
1470: fnd_msg_pub.ADD;*/
1463: WHEN OTHERS
1464: THEN
1465: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1466: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1467: fnd_message.set_token ('P_TEXT', l_api_name_full
1468: || '-'
1469: || SQLERRM);
1470: fnd_msg_pub.ADD;*/
1471:
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);
1505: fnd_msg_pub.ADD;
1506: x_return_status := 'W';
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);
1505: fnd_msg_pub.ADD;
1506: x_return_status := 'W';
1507: --RAISE fnd_api.g_exc_error;
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);
1505: fnd_msg_pub.ADD;
1506: x_return_status := 'W';
1507: --RAISE fnd_api.g_exc_error;
1508: END IF;
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);
1523: fnd_msg_pub.ADD;
1524: x_return_status := 'W';
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);
1523: fnd_msg_pub.ADD;
1524: x_return_status := 'W';
1525: 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);
1523: fnd_msg_pub.ADD;
1524: x_return_status := 'W';
1525: END IF;
1526:
1526:
1527: --Expiration Date
1528: IF p_tenancy_exp_date > p_lease_term_date
1529: THEN
1530: fnd_message.set_name ('PN', 'PN_INV_TENEXP_DATE');
1531: fnd_message.set_token ('TENEXP_DATE', p_tenancy_exp_date);
1532: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
1533: fnd_msg_pub.ADD;
1534: x_return_status := 'W';
1527: --Expiration Date
1528: IF p_tenancy_exp_date > p_lease_term_date
1529: THEN
1530: fnd_message.set_name ('PN', 'PN_INV_TENEXP_DATE');
1531: fnd_message.set_token ('TENEXP_DATE', p_tenancy_exp_date);
1532: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
1533: fnd_msg_pub.ADD;
1534: x_return_status := 'W';
1535: ELSE
1528: IF p_tenancy_exp_date > p_lease_term_date
1529: THEN
1530: fnd_message.set_name ('PN', 'PN_INV_TENEXP_DATE');
1531: fnd_message.set_token ('TENEXP_DATE', p_tenancy_exp_date);
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
1540: END IF;
1541: EXCEPTION
1542: WHEN OTHERS
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;
1541: EXCEPTION
1542: WHEN OTHERS
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: */
1574: OR ( p_estimated_occ_date < p_lease_comm_date)
1575: ) THEN
1576:
1577:
1578: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
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;*/
1575: ) THEN
1576:
1577:
1578: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
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;
1576:
1577:
1578: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
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;
1577:
1578: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
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
1588: ( p_tenancy_exp_date < p_lease_comm_date AND p_tenancy_exp_date>p_lease_term_date)
1589: )
1590: THEN
1591:
1592: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
1593: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
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;
1589: )
1590: THEN
1591:
1592: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
1593: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
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;*/
1590: THEN
1591:
1592: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
1593: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
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;
1591:
1592: /*fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
1593: fnd_message.set_token ('ESTOCC_DATE', p_estimated_occ_date);
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
1603: THEN
1604: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1605: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1606: fnd_message.set_token ('P_TEXT', l_api_name_full
1607: || '-'
1608: || SQLERRM);
1601: EXCEPTION
1602: WHEN OTHERS
1603: THEN
1604: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1605: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1606: fnd_message.set_token ('P_TEXT', l_api_name_full
1607: || '-'
1608: || SQLERRM);
1609: fnd_msg_pub.ADD;*/
1602: WHEN OTHERS
1603: THEN
1604: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1605: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
1629: )
1630:
1631: THEN
1632: IF (p_tenancy_exp_date > p_fin_oblig_end_date) THEN
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;
1630:
1631: THEN
1632: IF (p_tenancy_exp_date > p_fin_oblig_end_date) THEN
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;
1631: THEN
1632: IF (p_tenancy_exp_date > p_fin_oblig_end_date) THEN
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
1642:
1643: EXCEPTION
1644: WHEN OTHERS
1645: THEN
1646: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1647: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1648: fnd_message.set_token ('P_TEXT', l_api_name_full
1649: || '-'
1650: || SQLERRM);
1643: EXCEPTION
1644: WHEN OTHERS
1645: THEN
1646: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1647: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1648: fnd_message.set_token ('P_TEXT', l_api_name_full
1649: || '-'
1650: || SQLERRM);
1651: fnd_msg_pub.ADD;*/
1644: WHEN OTHERS
1645: THEN
1646: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1647: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
1723: INTO x_customer_id;
1724:
1725: IF (c_tenancy_customer_name%NOTFOUND)
1726: THEN
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;
1724:
1725: IF (c_tenancy_customer_name%NOTFOUND)
1726: THEN
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
1725: IF (c_tenancy_customer_name%NOTFOUND)
1726: THEN
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;
1744: INTO x_customer_id;
1745:
1746: IF (c_tenancy_customer_id%NOTFOUND)
1747: THEN
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;
1745:
1746: IF (c_tenancy_customer_id%NOTFOUND)
1747: THEN
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
1746: IF (c_tenancy_customer_id%NOTFOUND)
1747: THEN
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;
1773: INTO x_customer_site_use_id;
1774:
1775: IF (c_customer_billtosite_use_id%NOTFOUND)
1776: THEN
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;
1774:
1775: IF (c_customer_billtosite_use_id%NOTFOUND)
1776: THEN
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
1775: IF (c_customer_billtosite_use_id%NOTFOUND)
1776: THEN
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;
1793:
1794: EXCEPTION
1795: WHEN OTHERS
1796: THEN
1797: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1798: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1799: fnd_message.set_token ('P_TEXT', l_api_name_full
1800: || '-'
1801: || SQLERRM);
1794: EXCEPTION
1795: WHEN OTHERS
1796: THEN
1797: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1798: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1799: fnd_message.set_token ('P_TEXT', l_api_name_full
1800: || '-'
1801: || SQLERRM);
1802: fnd_msg_pub.ADD;*/
1795: WHEN OTHERS
1796: THEN
1797: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1798: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
1799: fnd_message.set_token ('P_TEXT', l_api_name_full
1800: || '-'
1801: || SQLERRM);
1802: fnd_msg_pub.ADD;*/
1803:
1864: INTO x_customer_id;
1865: ------dbms_output.put_line ('UTILS:1');--Rupak
1866: IF (cur_customer%NOTFOUND)
1867: THEN
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;
1865: ------dbms_output.put_line ('UTILS:1');--Rupak
1866: IF (cur_customer%NOTFOUND)
1867: THEN
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;
1866: IF (cur_customer%NOTFOUND)
1867: THEN
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
1886: INTO x_customer_id;
1887: ------dbms_output.put_line ('UTILS:2');--Rupak
1888: IF (cur_customer_id%NOTFOUND)
1889: THEN
1890: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
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;*/
1887: ------dbms_output.put_line ('UTILS:2');--Rupak
1888: IF (cur_customer_id%NOTFOUND)
1889: THEN
1890: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
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;
1888: IF (cur_customer_id%NOTFOUND)
1889: THEN
1890: /*fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
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;
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: || '-'
1914: || SQLERRM);
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: || '-'
1914: || SQLERRM);
1915: fnd_msg_pub.ADD;*/
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: || '-'
1914: || SQLERRM);
1915: fnd_msg_pub.ADD;*/
1916: --RAISE fnd_api.g_exc_error;
1957:
1958: END IF;
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;
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;*/
1976: x_return_status := fnd_api.g_ret_sts_error;
1977:
1978:
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);
2060: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2061: fnd_msg_pub.ADD;*/
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);
2060: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2061: fnd_msg_pub.ADD;*/
2062: x_return_status := 'W';
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);
2060: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2061: fnd_msg_pub.ADD;*/
2062: x_return_status := 'W';
2063: END IF;
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);
2060: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2061: fnd_msg_pub.ADD;*/
2062: x_return_status := 'W';
2063: END IF;
2064:
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);
2074: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2075: fnd_msg_pub.ADD;*/
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);
2074: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2075: fnd_msg_pub.ADD;*/
2076: x_return_status := 'Y';
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);
2074: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2075: fnd_msg_pub.ADD;*/
2076: x_return_status := 'Y';
2077: END IF;
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);
2074: fnd_message.set_token ('TERM_DATE', p_lease_term_date);
2075: fnd_msg_pub.ADD;*/
2076: x_return_status := 'Y';
2077: END IF;
2078:
2078:
2079: --Start date and end date validations
2080: IF p_end_date < p_start_date
2081: THEN
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;
2079: --Start date and end date validations
2080: IF p_end_date < p_start_date
2081: THEN
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
2080: IF p_end_date < p_start_date
2081: THEN
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
2092: END IF;
2093: EXCEPTION
2094: WHEN OTHERS
2095: THEN
2096: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2097: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2098: fnd_message.set_token ('P_TEXT', l_api_name_full
2099: || '-'
2100: || SQLERRM);
2093: EXCEPTION
2094: WHEN OTHERS
2095: THEN
2096: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2097: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2098: fnd_message.set_token ('P_TEXT', l_api_name_full
2099: || '-'
2100: || SQLERRM);
2101: fnd_msg_pub.ADD;*/
2094: WHEN OTHERS
2095: THEN
2096: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2097: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
2142: INTO x_vendor_id;
2143:
2144: IF (c_vendor%NOTFOUND)
2145: THEN
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;
2143:
2144: IF (c_vendor%NOTFOUND)
2145: THEN
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
2144: IF (c_vendor%NOTFOUND)
2145: THEN
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;
2163: INTO x_vendor_id;
2164:
2165: IF (c_vendor_id%NOTFOUND)
2166: THEN
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;
2164:
2165: IF (c_vendor_id%NOTFOUND)
2166: THEN
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
2165: IF (c_vendor_id%NOTFOUND)
2166: THEN
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;
2180: END IF;
2181: EXCEPTION
2182: WHEN OTHERS
2183: THEN
2184: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2185: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2186: fnd_message.set_token ('P_TEXT', l_api_name_full
2187: || '-'
2188: || SQLERRM);*/
2181: EXCEPTION
2182: WHEN OTHERS
2183: THEN
2184: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2185: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2186: fnd_message.set_token ('P_TEXT', l_api_name_full
2187: || '-'
2188: || SQLERRM);*/
2189: fnd_msg_pub.ADD;
2182: WHEN OTHERS
2183: THEN
2184: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2185: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
2242: INTO x_vendor_site_id;
2243:
2244: IF (c_vendor_site%NOTFOUND)
2245: THEN
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;
2243:
2244: IF (c_vendor_site%NOTFOUND)
2245: THEN
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
2244: IF (c_vendor_site%NOTFOUND)
2245: THEN
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;
2263: INTO x_vendor_site_id;
2264:
2265: IF (c_vendor_site_id%NOTFOUND)
2266: THEN
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;
2264:
2265: IF (c_vendor_site_id%NOTFOUND)
2266: THEN
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
2265: IF (c_vendor_site_id%NOTFOUND)
2266: THEN
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;
2280: END IF;
2281: EXCEPTION
2282: WHEN OTHERS
2283: THEN
2284: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2285: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2286: fnd_message.set_token ('P_TEXT', l_api_name_full
2287: || '-'
2288: || SQLERRM);*/
2281: EXCEPTION
2282: WHEN OTHERS
2283: THEN
2284: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2285: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2286: fnd_message.set_token ('P_TEXT', l_api_name_full
2287: || '-'
2288: || SQLERRM);*/
2289: fnd_msg_pub.ADD;
2282: WHEN OTHERS
2283: THEN
2284: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2285: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
2336: INTO x_customer_id;
2337:
2338: IF (c_customer%NOTFOUND)
2339: THEN
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;
2337:
2338: IF (c_customer%NOTFOUND)
2339: THEN
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
2338: IF (c_customer%NOTFOUND)
2339: THEN
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;
2357: INTO x_customer_id;
2358:
2359: IF (c_customer_id%NOTFOUND)
2360: THEN
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;
2358:
2359: IF (c_customer_id%NOTFOUND)
2360: THEN
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
2359: IF (c_customer_id%NOTFOUND)
2360: THEN
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;
2374: END IF;
2375: EXCEPTION
2376: WHEN OTHERS
2377: THEN
2378: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2379: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2380: fnd_message.set_token ('P_TEXT', l_api_name_full
2381: || '-'
2382: || SQLERRM);*/
2375: EXCEPTION
2376: WHEN OTHERS
2377: THEN
2378: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2379: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2380: fnd_message.set_token ('P_TEXT', l_api_name_full
2381: || '-'
2382: || SQLERRM);*/
2383: fnd_msg_pub.ADD;
2376: WHEN OTHERS
2377: THEN
2378: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2379: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;
2452: INTO x_customer_site_id;
2453:
2454: IF (c_customer_site%NOTFOUND)
2455: THEN
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;
2453:
2454: IF (c_customer_site%NOTFOUND)
2455: THEN
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
2454: IF (c_customer_site%NOTFOUND)
2455: THEN
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;
2473: INTO x_customer_site_id;
2474:
2475: IF (c_customer_site_id%NOTFOUND)
2476: THEN
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;
2474:
2475: IF (c_customer_site_id%NOTFOUND)
2476: THEN
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
2475: IF (c_customer_site_id%NOTFOUND)
2476: THEN
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;
2490: END IF;
2491: EXCEPTION
2492: WHEN OTHERS
2493: THEN
2494: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2495: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2496: fnd_message.set_token ('P_TEXT', l_api_name_full
2497: || '-'
2498: || SQLERRM);
2491: EXCEPTION
2492: WHEN OTHERS
2493: THEN
2494: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2495: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
2496: fnd_message.set_token ('P_TEXT', l_api_name_full
2497: || '-'
2498: || SQLERRM);
2499: fnd_msg_pub.ADD;*/
2492: WHEN OTHERS
2493: THEN
2494: /*fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2495: fnd_message.set_token ('COLUMN', SUBSTR(p_parameter_name,3));
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;