DBA Data[Home] [Help]

APPS.PN_LEASE_PVT dependencies on PN_LEASE_PVT

Line 1: PACKAGE BODY PN_LEASE_PVT AS

1: PACKAGE BODY PN_LEASE_PVT AS
2: /* $Header: PNLSPVTB.pls 120.6.12020000.4 2013/04/05 14:09:14 ppenumar ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'PN_LEASE_PVT';
5: g_table_name CONSTANT VARCHAR2 (40) := 'PN_LEASES_ALL';

Line 4: g_pkg_name CONSTANT VARCHAR2 (30) := 'PN_LEASE_PVT';

1: PACKAGE BODY PN_LEASE_PVT AS
2: /* $Header: PNLSPVTB.pls 120.6.12020000.4 2013/04/05 14:09:14 ppenumar ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'PN_LEASE_PVT';
5: g_table_name CONSTANT VARCHAR2 (40) := 'PN_LEASES_ALL';
6: g_tl_table_name CONSTANT VARCHAR2 (40) := 'NONE';
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_id;

Line 1174: (p_api_name => 'PN_LEASE_PVT'|| '.'|| 'CREATE_TENANCIES'

1170: AND (p_lease_tenancies_tbl(i).attribute14 = pn_lease_utils.g_pn_miss_char OR p_lease_tenancies_tbl(i).attribute14 IS NULL)
1171: AND (p_lease_tenancies_tbl(i).attribute15 = pn_lease_utils.g_pn_miss_char OR p_lease_tenancies_tbl(i).attribute15 IS NULL)
1172: ) THEN
1173: pn_lease_utils.validate_desc_flex
1174: (p_api_name => 'PN_LEASE_PVT'|| '.'|| 'CREATE_TENANCIES'
1175: , p_application_short_name => 'PN'
1176: , p_desc_flex_name => 'PN_LOCATIONS'
1177: , p_desc_segment1 => p_lease_tenancies_tbl(i).attribute1
1178: , p_desc_segment2 => p_lease_tenancies_tbl(i).attribute2

Line 1224: pn_lease_pvt.insert_tenancies_row (p_lease_tenancies_rec => p_lease_tenancies_tbl(i)

1220: THEN
1221: -- CALL INSERT_TENANCIES_ROW TO INSERT TENANCY RECORD
1222: ----------------------dbms_output.put_line('B4 Insert Tenancies Row');
1223: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:Calling Insert Tenancies Row',3);
1224: pn_lease_pvt.insert_tenancies_row (p_lease_tenancies_rec => p_lease_tenancies_tbl(i)
1225: , p_lease_rec => p_lease_rec
1226: , p_lease_context => p_lease_context
1227: , x_return_status => x_return_status);
1228:

Line 1237: pn_lease_pvt.Create_Space_Assign( p_lease_tenancies_rec => p_lease_tenancies_tbl(i)

1233: p_lease_tenancies_tbl(i).customer_id IS NOT NULL AND
1234: p_lease_tenancies_tbl(i).customer_id <> pn_lease_utils.g_pn_miss_num)
1235: THEN
1236: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:Calling Create_Space_Assign Begin',3);
1237: pn_lease_pvt.Create_Space_Assign( p_lease_tenancies_rec => p_lease_tenancies_tbl(i)
1238: , x_return_status => x_return_status);
1239: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:Calling Create_Space_Assign End with Status '|| x_return_status,3);
1240: END IF;
1241:

Line 1902: pn_lease_pvt.Update_Space_Assign( p_lease_tenancies_rec => p_lease_tenancies_tbl_update(i)

1898: nvl(p_lease_tenancies_tbl_update(i).fin_oblig_end_date,sysdate) <> nvl(c_loc_rec.fin_oblig_end_date,sysdate) OR
1899: nvl(p_lease_tenancies_tbl_update(i).allocated_area_pct,-99) <> nvl(c_loc_rec.allocated_area_pct,-99)) THEN
1900:
1901: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES:Calling Update_Space_Assign Begin',3);
1902: pn_lease_pvt.Update_Space_Assign( p_lease_tenancies_rec => p_lease_tenancies_tbl_update(i)
1903: , x_return_status => x_return_status);
1904: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES:Calling Update_Space_Assign End with Status '|| x_return_status,3);
1905: END IF;
1906: END IF;

Line 2450: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.direct_update_lease'|| SQLERRM);

2446: WHEN OTHERS
2447: THEN
2448: ROLLBACK TO update_lease_pvt;
2449: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2450: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.direct_update_lease'|| SQLERRM);
2451: fnd_msg_pub.ADD;
2452: x_return_status := fnd_api.g_ret_sts_unexp_error;
2453: END direct_update_lease;
2454:

Line 2566: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.amend_lease'|| SQLERRM);

2562: WHEN OTHERS
2563: THEN
2564: ROLLBACK TO amend_lease_pvt;
2565: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2566: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.amend_lease'|| SQLERRM);
2567: fnd_msg_pub.ADD;
2568: x_return_status := fnd_api.g_ret_sts_unexp_error;
2569: END amend_lease;
2570:

Line 2650: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.edit_lease'

2646: WHEN OTHERS
2647: THEN
2648: ROLLBACK TO edit_lease_pvt;
2649: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2650: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.edit_lease'
2651: || SQLERRM);
2652: fnd_msg_pub.ADD;
2653: x_return_status := fnd_api.g_ret_sts_unexp_error;
2654: END edit_lease;

Line 3751: (p_api_name => 'PN_LEASE_PVT'||'.'||'CONTACTS'

3747: AND (p_lease_contacts_tbl(i).attribute14 = pn_lease_utils.g_pn_miss_char OR p_lease_contacts_tbl(i).attribute14 IS NULL)
3748: AND (p_lease_contacts_tbl(i).attribute15 = pn_lease_utils.g_pn_miss_char OR p_lease_contacts_tbl(i).attribute15 IS NULL)
3749: ) THEN
3750: pn_lease_utils.validate_desc_flex
3751: (p_api_name => 'PN_LEASE_PVT'||'.'||'CONTACTS'
3752: , p_application_short_name => 'PN'
3753: , p_desc_flex_name => 'PN_CONTACT_ASSIGNMENTS'--l_param_desc_flex_name
3754: , p_desc_segment1 => p_lease_contacts_tbl(i).attribute1
3755: , p_desc_segment2 => p_lease_contacts_tbl(i).attribute2

Line 3809: pn_lease_pvt.insert_contacts_row (p_lease_contacts_rec => p_lease_contacts_tbl(i)

3805:
3806:
3807: IF (RTRIM(LTRIM(p_operation)) = ('CREATE_LEASE') AND l_error_flag<>'Y' AND NVL( P_VALIDATE,'F')<>'T') THEN
3808: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Calling the INSERT_CONTACTS_ROW',3);
3809: pn_lease_pvt.insert_contacts_row (p_lease_contacts_rec => p_lease_contacts_tbl(i)
3810: , p_lease_rec => p_lease_rec
3811: , p_lease_context => p_lease_context
3812: , x_return_status => x_return_status);
3813: ----------------------dbms_output.put_line('pn_lease_pvt.insert_contacts_row RETURN STATUS: '||x_return_status);

Line 3813: ----------------------dbms_output.put_line('pn_lease_pvt.insert_contacts_row RETURN STATUS: '||x_return_status);

3809: pn_lease_pvt.insert_contacts_row (p_lease_contacts_rec => p_lease_contacts_tbl(i)
3810: , p_lease_rec => p_lease_rec
3811: , p_lease_context => p_lease_context
3812: , x_return_status => x_return_status);
3813: ----------------------dbms_output.put_line('pn_lease_pvt.insert_contacts_row RETURN STATUS: '||x_return_status);
3814: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Return Status of the INSERT_CONTACTS_ROW'||x_return_status,3);
3815: IF (x_return_status = fnd_api.g_ret_sts_error)
3816: THEN
3817: l_error_flag:='Y';

Line 14071: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt:create_payment' || SQLERRM);

14067: WHEN OTHERS THEN
14068: ----------------------dbms_output.put_line('Exception:In Insert:'||SQLERRM);--Rupak
14069: pvt_debug(g_pkg_name||'INSERT_PAYMENT_TERMS_ROW:Exception:'||SQLERRM,3);
14070: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14071: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt:create_payment' || SQLERRM);
14072: fnd_msg_pub.ADD;
14073: x_return_status := fnd_api.g_ret_sts_unexp_error;
14074:
14075: END insert_payment_terms_row;

Line 14189: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.update_payment' || SQLERRM);

14185: pvt_debug(g_pkg_name||'UPDATE_PAYMENT_TERMS_ROW:PNT_PAYMENT_TERMS_PKG.UPDATE_ROW Sucessful',3);
14186: EXCEPTION
14187: WHEN OTHERS THEN
14188: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14189: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.update_payment' || SQLERRM);
14190: fnd_msg_pub.ADD;
14191: x_return_status := fnd_api.g_ret_sts_unexp_error;
14192: pvt_debug(g_pkg_name||'UPDATE_PAYMENT_TERMS_ROW:PNT_PAYMENT_TERMS_PKG.UPDATE_ROW:Exception'||SQLERRM,3);
14193: END update_payment_terms_row;

Line 15173: (p_api_name => 'PN_LEASE_PVT'|| '.'|| 'CREATE_TERMS'

15169: AND (p_payment_terms_tbl(i).attribute14 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).attribute14 IS NULL)
15170: AND (p_payment_terms_tbl(i).attribute15 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).attribute15 IS NULL)
15171: ) THEN
15172: pn_lease_utils.validate_desc_flex
15173: (p_api_name => 'PN_LEASE_PVT'|| '.'|| 'CREATE_TERMS'
15174: , p_application_short_name => 'PN'
15175: , p_desc_flex_name => 'PN_PAYMENT_TERMS'
15176: , p_desc_segment1 => p_payment_terms_tbl(i).attribute1
15177: , p_desc_segment2 => p_payment_terms_tbl(i).attribute2

Line 18839: pvt_debug('PN_LEASE_PVT-update_status:Exception in Raising Business Event',3);

18835: );
18836: EXCEPTION
18837: WHEN OTHERS THEN
18838: --dbms_output.put_line('Exception in Raising Business Event');
18839: pvt_debug('PN_LEASE_PVT-update_status:Exception in Raising Business Event',3);
18840: END;
18841: END IF;
18842: END IF;
18843:

Line 18954: pn_lease_pvt.pvt_debug(g_pkg_name||'Submit Request Error. Request Id:'||l_request_id,3);

18950: );
18951: pvt_debug(g_pkg_name||'Request Id after calling fnd_request.submit_request: '||l_request_id,3);
18952:
18953: IF (l_request_id = 0 ) THEN
18954: pn_lease_pvt.pvt_debug(g_pkg_name||'Submit Request Error. Request Id:'||l_request_id,3);
18955: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
18956: fnd_message.set_token ('API_NAME', g_pkg_name||'.'||g_program_unit || '-SubmitSchedulesConcProgram');
18957: fnd_msg_pub.ADD;
18958: RAISE fnd_api.g_exc_error;

Line 18973: pn_lease_pvt.pvt_debug ( 'Error occurred in '

18969:
18970: EXCEPTION
18971: WHEN fnd_api.g_exc_error
18972: THEN
18973: pn_lease_pvt.pvt_debug ( 'Error occurred in '
18974: || g_pkg_name
18975: || g_program_unit
18976: || '-'
18977: || SQLERRM

Line 18983: pn_lease_pvt.pvt_debug ( 'Exception in '

18979: x_return_status := fnd_api.g_ret_sts_error;
18980:
18981: WHEN OTHERS
18982: THEN
18983: pn_lease_pvt.pvt_debug ( 'Exception in '
18984: || g_pkg_name
18985: || g_program_unit
18986: || '-'
18987: || SQLERRM

Line 18993: END pn_lease_pvt;

18989: x_return_status := fnd_api.g_ret_sts_unexp_error;
18990:
18991: END update_status;
18992:
18993: END pn_lease_pvt;