1: PACKAGE BODY jtf_rs_resource_pvt AS
2: /* $Header: jtfrsvrb.pls 120.3 2006/02/07 18:02:45 baianand ship $ */
3:
4: /*****************************************************************************************
5: This package body defines the procedures for managing resources.
11: ******************************************************************************************/
12:
13: /* Package variables. */
14:
15: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JTF_RS_RESOURCE_PVT';
16: PROCEDURE validate_party_address(p_source_id in number,
17: p_address_id in number,
18: p_action in varchar2,
19: p_found out NOCOPY boolean,
223:
224: /* Pre Call to the Customer Type User Hook */
225:
226: IF jtf_resource_utl.ok_to_execute(
227: 'JTF_RS_RESOURCE_PVT',
228: 'CREATE_RESOURCE',
229: 'B',
230: 'C')
231: THEN
229: 'B',
230: 'C')
231: THEN
232: IF jtf_usr_hks.ok_to_execute(
233: 'JTF_RS_RESOURCE_PVT',
234: 'CREATE_RESOURCE',
235: 'B',
236: 'C')
237: THEN
285:
286: /* Pre Call to the Vertical Type User Hook */
287:
288: IF jtf_resource_utl.ok_to_execute(
289: 'JTF_RS_RESOURCE_PVT',
290: 'CREATE_RESOURCE',
291: 'B',
292: 'V')
293: THEN
291: 'B',
292: 'V')
293: THEN
294: IF jtf_usr_hks.ok_to_execute(
295: 'JTF_RS_RESOURCE_PVT',
296: 'CREATE_RESOURCE',
297: 'B',
298: 'V')
299: THEN
348:
349: /* Pre Call to the Internal Type User Hook */
350:
351: IF jtf_resource_utl.ok_to_execute(
352: 'JTF_RS_RESOURCE_PVT',
353: 'CREATE_RESOURCE',
354: 'B',
355: 'I')
356: THEN
354: 'B',
355: 'I')
356: THEN
357: IF jtf_usr_hks.ok_to_execute(
358: 'JTF_RS_RESOURCE_PVT',
359: 'CREATE_RESOURCE',
360: 'B',
361: 'I')
362: THEN
622:
623: /* Post Call to the Customer Type User Hook */
624:
625: IF jtf_usr_hks.ok_to_execute(
626: 'JTF_RS_RESOURCE_PVT',
627: 'CREATE_RESOURCE',
628: 'A',
629: 'C')
630: THEN
678:
679: /* Post Call to the Vertical Type User Hook */
680:
681: IF jtf_usr_hks.ok_to_execute(
682: 'JTF_RS_RESOURCE_PVT',
683: 'CREATE_RESOURCE',
684: 'A',
685: 'V')
686: THEN
734:
735: /* Post Call to the Internal Type User Hook */
736:
737: IF jtf_resource_utl.ok_to_execute(
738: 'JTF_RS_RESOURCE_PVT',
739: 'CREATE_RESOURCE',
740: 'A',
741: 'I')
742: THEN
740: 'A',
741: 'I')
742: THEN
743: IF jtf_usr_hks.ok_to_execute(
744: 'JTF_RS_RESOURCE_PVT',
745: 'CREATE_RESOURCE',
746: 'A',
747: 'I')
748: THEN
795:
796: /* Standard call for Message Generation */
797:
798: IF jtf_resource_utl.ok_to_execute(
799: 'JTF_RS_RESOURCE_PVT',
800: 'CREATE_RESOURCE',
801: 'M',
802: 'M')
803: THEN
801: 'M',
802: 'M')
803: THEN
804: IF jtf_usr_hks.ok_to_execute(
805: 'JTF_RS_RESOURCE_PVT',
806: 'CREATE_RESOURCE',
807: 'M',
808: 'M')
809: THEN
1179:
1180: /* Pre Call to the Customer Type User Hook */
1181:
1182: IF jtf_resource_utl.ok_to_execute(
1183: 'JTF_RS_RESOURCE_PVT',
1184: 'CREATE_RESOURCE',
1185: 'B',
1186: 'C')
1187: THEN
1185: 'B',
1186: 'C')
1187: THEN
1188: IF jtf_usr_hks.ok_to_execute(
1189: 'JTF_RS_RESOURCE_PVT',
1190: 'CREATE_RESOURCE',
1191: 'B',
1192: 'C')
1193: THEN
1242:
1243: /* Pre Call to the Vertical Type User Hook */
1244:
1245: IF jtf_resource_utl.ok_to_execute(
1246: 'JTF_RS_RESOURCE_PVT',
1247: 'CREATE_RESOURCE',
1248: 'B',
1249: 'V')
1250: THEN
1248: 'B',
1249: 'V')
1250: THEN
1251: IF jtf_usr_hks.ok_to_execute(
1252: 'JTF_RS_RESOURCE_PVT',
1253: 'CREATE_RESOURCE',
1254: 'B',
1255: 'V')
1256: THEN
1305:
1306: /* Pre Call to the Internal Type User Hook */
1307:
1308: IF jtf_resource_utl.ok_to_execute(
1309: 'JTF_RS_RESOURCE_PVT',
1310: 'CREATE_RESOURCE',
1311: 'B',
1312: 'I')
1313: THEN
1311: 'B',
1312: 'I')
1313: THEN
1314: IF jtf_usr_hks.ok_to_execute(
1315: 'JTF_RS_RESOURCE_PVT',
1316: 'CREATE_RESOURCE',
1317: 'B',
1318: 'I')
1319: THEN
1643:
1644: /* Post Call to the Customer Type User Hook */
1645:
1646: IF jtf_usr_hks.ok_to_execute(
1647: 'JTF_RS_RESOURCE_PVT',
1648: 'CREATE_RESOURCE',
1649: 'A',
1650: 'C')
1651: THEN
1694:
1695: /* Post Call to the Vertical Type User Hook */
1696:
1697: IF jtf_resource_utl.ok_to_execute(
1698: 'JTF_RS_RESOURCE_PVT',
1699: 'CREATE_RESOURCE',
1700: 'A',
1701: 'V')
1702: THEN
1700: 'A',
1701: 'V')
1702: THEN
1703: IF jtf_usr_hks.ok_to_execute(
1704: 'JTF_RS_RESOURCE_PVT',
1705: 'CREATE_RESOURCE',
1706: 'A',
1707: 'V')
1708: THEN
1758:
1759: /* Post Call to the Internal Type User Hook */
1760:
1761: IF jtf_resource_utl.ok_to_execute(
1762: 'JTF_RS_RESOURCE_PVT',
1763: 'CREATE_RESOURCE',
1764: 'A',
1765: 'I')
1766: THEN
1764: 'A',
1765: 'I')
1766: THEN
1767: IF jtf_usr_hks.ok_to_execute(
1768: 'JTF_RS_RESOURCE_PVT',
1769: 'CREATE_RESOURCE',
1770: 'A',
1771: 'I')
1772: THEN
1819:
1820: /* Standard call for Message Generation */
1821:
1822: IF jtf_resource_utl.ok_to_execute(
1823: 'JTF_RS_RESOURCE_PVT',
1824: 'CREATE_RESOURCE',
1825: 'M',
1826: 'M')
1827: THEN
1825: 'M',
1826: 'M')
1827: THEN
1828: IF jtf_usr_hks.ok_to_execute(
1829: 'JTF_RS_RESOURCE_PVT',
1830: 'CREATE_RESOURCE',
1831: 'M',
1832: 'M')
1833: THEN
2037: BEGIN
2038:
2039: G_RS_ID_PVT_FLAG := 'N';
2040:
2041: JTF_RS_RESOURCE_PVT.CREATE_RESOURCE (
2042: P_API_VERSION => P_API_VERSION,
2043: P_INIT_MSG_LIST => P_INIT_MSG_LIST,
2044: P_COMMIT => P_COMMIT,
2045: P_CATEGORY => P_CATEGORY,
2419:
2420: /* Pre Call to the Customer Type User Hook */
2421:
2422: IF jtf_resource_utl.ok_to_execute(
2423: 'JTF_RS_RESOURCE_PVT',
2424: 'UPDATE_RESOURCE',
2425: 'B',
2426: 'C')
2427: THEN
2425: 'B',
2426: 'C')
2427: THEN
2428: IF jtf_usr_hks.ok_to_execute(
2429: 'JTF_RS_RESOURCE_PVT',
2430: 'UPDATE_RESOURCE',
2431: 'B',
2432: 'C')
2433: THEN
2479:
2480: /* Pre Call to the Vertical Type User Hook */
2481:
2482: IF jtf_resource_utl.ok_to_execute(
2483: 'JTF_RS_RESOURCE_PVT',
2484: 'UPDATE_RESOURCE',
2485: 'B',
2486: 'V')
2487: THEN
2485: 'B',
2486: 'V')
2487: THEN
2488: IF jtf_usr_hks.ok_to_execute(
2489: 'JTF_RS_RESOURCE_PVT',
2490: 'UPDATE_RESOURCE',
2491: 'B',
2492: 'V')
2493: THEN
2539:
2540: /* Pre Call to the Internal Type User Hook */
2541:
2542: IF jtf_resource_utl.ok_to_execute(
2543: 'JTF_RS_RESOURCE_PVT',
2544: 'UPDATE_RESOURCE',
2545: 'B',
2546: 'I')
2547: THEN
2545: 'B',
2546: 'I')
2547: THEN
2548: IF jtf_usr_hks.ok_to_execute(
2549: 'JTF_RS_RESOURCE_PVT',
2550: 'UPDATE_RESOURCE',
2551: 'B',
2552: 'I')
2553: THEN
3628:
3629: /* Post Call to the Customer Type User Hook */
3630:
3631: IF jtf_resource_utl.ok_to_execute(
3632: 'JTF_RS_RESOURCE_PVT',
3633: 'UPDATE_RESOURCE',
3634: 'A',
3635: 'C')
3636: THEN
3634: 'A',
3635: 'C')
3636: THEN
3637: IF jtf_usr_hks.ok_to_execute(
3638: 'JTF_RS_RESOURCE_PVT',
3639: 'UPDATE_RESOURCE',
3640: 'A',
3641: 'C')
3642: THEN
3687:
3688: /* Post Call to the Vertical Type User Hook */
3689:
3690: IF jtf_resource_utl.ok_to_execute(
3691: 'JTF_RS_RESOURCE_PVT',
3692: 'UPDATE_RESOURCE',
3693: 'A',
3694: 'V')
3695: THEN
3693: 'A',
3694: 'V')
3695: THEN
3696: IF jtf_usr_hks.ok_to_execute(
3697: 'JTF_RS_RESOURCE_PVT',
3698: 'UPDATE_RESOURCE',
3699: 'A',
3700: 'V')
3701: THEN
3747:
3748: /* Post Call to the Internal Type User Hook */
3749:
3750: IF jtf_resource_utl.ok_to_execute(
3751: 'JTF_RS_RESOURCE_PVT',
3752: 'UPDATE_RESOURCE',
3753: 'A',
3754: 'I')
3755: THEN
3753: 'A',
3754: 'I')
3755: THEN
3756: IF jtf_usr_hks.ok_to_execute(
3757: 'JTF_RS_RESOURCE_PVT',
3758: 'UPDATE_RESOURCE',
3759: 'A',
3760: 'I')
3761: THEN
3806:
3807: /* Standard call for Message Generation */
3808:
3809: IF jtf_resource_utl.ok_to_execute(
3810: 'JTF_RS_RESOURCE_PVT',
3811: 'UPDATE_RESOURCE',
3812: 'M',
3813: 'M')
3814: THEN
3812: 'M',
3813: 'M')
3814: THEN
3815: IF jtf_usr_hks.ok_to_execute(
3816: 'JTF_RS_RESOURCE_PVT',
3817: 'UPDATE_RESOURCE',
3818: 'M',
3819: 'M')
3820: THEN
4299: l_return_status VARCHAR2(2000);
4300: l_msg_count NUMBER;
4301: l_msg_data VARCHAR2(2000);
4302:
4303: l_resource_rec jtf_rs_resource_pvt.resource_rec_type;
4304:
4305: BEGIN
4306:
4307: l_resource_id := p_resource_id;
4385:
4386: /* Pre Call to the Customer Type User Hook */
4387:
4388: IF jtf_resource_utl.ok_to_execute(
4389: 'JTF_RS_RESOURCE_PVT',
4390: 'UPDATE_RESOURCE',
4391: 'B',
4392: 'C')
4393: THEN
4391: 'B',
4392: 'C')
4393: THEN
4394: IF jtf_usr_hks.ok_to_execute(
4395: 'JTF_RS_RESOURCE_PVT',
4396: 'UPDATE_RESOURCE',
4397: 'B',
4398: 'C')
4399: THEN
4445:
4446: /* Pre Call to the Vertical Type User Hook */
4447:
4448: IF jtf_resource_utl.ok_to_execute(
4449: 'JTF_RS_RESOURCE_PVT',
4450: 'UPDATE_RESOURCE',
4451: 'B',
4452: 'V')
4453: THEN
4451: 'B',
4452: 'V')
4453: THEN
4454: IF jtf_usr_hks.ok_to_execute(
4455: 'JTF_RS_RESOURCE_PVT',
4456: 'UPDATE_RESOURCE',
4457: 'B',
4458: 'V')
4459: THEN
4504:
4505: /* Pre Call to the Internal Type User Hook */
4506:
4507: IF jtf_resource_utl.ok_to_execute(
4508: 'JTF_RS_RESOURCE_PVT',
4509: 'UPDATE_RESOURCE',
4510: 'B',
4511: 'I')
4512: THEN
4510: 'B',
4511: 'I')
4512: THEN
4513: IF jtf_usr_hks.ok_to_execute(
4514: 'JTF_RS_RESOURCE_PVT',
4515: 'UPDATE_RESOURCE',
4516: 'B',
4517: 'I')
4518: THEN
5742:
5743: /* Post Call to the Customer Type User Hook */
5744:
5745: IF jtf_resource_utl.ok_to_execute(
5746: 'JTF_RS_RESOURCE_PVT',
5747: 'UPDATE_RESOURCE',
5748: 'A',
5749: 'C')
5750: THEN
5748: 'A',
5749: 'C')
5750: THEN
5751: IF jtf_usr_hks.ok_to_execute(
5752: 'JTF_RS_RESOURCE_PVT',
5753: 'UPDATE_RESOURCE',
5754: 'A',
5755: 'C')
5756: THEN
5801:
5802: /* Post Call to the Vertical Type User Hook */
5803:
5804: IF jtf_resource_utl.ok_to_execute(
5805: 'JTF_RS_RESOURCE_PVT',
5806: 'UPDATE_RESOURCE',
5807: 'A',
5808: 'V')
5809: THEN
5807: 'A',
5808: 'V')
5809: THEN
5810: IF jtf_usr_hks.ok_to_execute(
5811: 'JTF_RS_RESOURCE_PVT',
5812: 'UPDATE_RESOURCE',
5813: 'A',
5814: 'V')
5815: THEN
5861:
5862: /* Post Call to the Internal Type User Hook */
5863:
5864: IF jtf_resource_utl.ok_to_execute(
5865: 'JTF_RS_RESOURCE_PVT',
5866: 'UPDATE_RESOURCE',
5867: 'A',
5868: 'I')
5869: THEN
5867: 'A',
5868: 'I')
5869: THEN
5870: IF jtf_usr_hks.ok_to_execute(
5871: 'JTF_RS_RESOURCE_PVT',
5872: 'UPDATE_RESOURCE',
5873: 'A',
5874: 'I')
5875: THEN
5921:
5922: /* Standard call for Message Generation */
5923:
5924: IF jtf_resource_utl.ok_to_execute(
5925: 'JTF_RS_RESOURCE_PVT',
5926: 'UPDATE_RESOURCE',
5927: 'M',
5928: 'M')
5929: THEN
5927: 'M',
5928: 'M')
5929: THEN
5930: IF jtf_usr_hks.ok_to_execute(
5931: 'JTF_RS_RESOURCE_PVT',
5932: 'UPDATE_RESOURCE',
5933: 'M',
5934: 'M')
5935: THEN
6088:
6089: /* Pre Call to the Customer Type User Hook */
6090:
6091: IF jtf_resource_utl.ok_to_execute(
6092: 'JTF_RS_RESOURCE_PVT',
6093: 'DELETE_RESOURCE',
6094: 'B',
6095: 'C')
6096: THEN
6094: 'B',
6095: 'C')
6096: THEN
6097: IF jtf_usr_hks.ok_to_execute(
6098: 'JTF_RS_RESOURCE_PVT',
6099: 'DELETE_RESOURCE',
6100: 'B',
6101: 'C')
6102: THEN
6122:
6123: /* Pre Call to the Vertical Type User Hook */
6124:
6125: IF jtf_resource_utl.ok_to_execute(
6126: 'JTF_RS_RESOURCE_PVT',
6127: 'DELETE_RESOURCE',
6128: 'B',
6129: 'V')
6130: THEN
6128: 'B',
6129: 'V')
6130: THEN
6131: IF jtf_usr_hks.ok_to_execute(
6132: 'JTF_RS_RESOURCE_PVT',
6133: 'DELETE_RESOURCE',
6134: 'B',
6135: 'V')
6136: THEN
6155:
6156: /* Pre Call to the Internal Type User Hook */
6157:
6158: IF jtf_usr_hks.ok_to_execute(
6159: 'JTF_RS_RESOURCE_PVT',
6160: 'DELETE_RESOURCE',
6161: 'B',
6162: 'I')
6163: THEN
6161: 'B',
6162: 'I')
6163: THEN
6164: IF jtf_usr_hks.ok_to_execute(
6165: 'JTF_RS_RESOURCE_PVT',
6166: 'DELETE_RESOURCE',
6167: 'B',
6168: 'I')
6169: THEN
6230:
6231: /* Post Call to the Customer Type User Hook */
6232:
6233: IF jtf_usr_hks.ok_to_execute(
6234: 'JTF_RS_RESOURCE_PVT',
6235: 'DELETE_RESOURCE',
6236: 'A',
6237: 'C')
6238: THEN
6256:
6257: /* Post Call to the Vertical Type User Hook */
6258:
6259: IF jtf_resource_utl.ok_to_execute(
6260: 'JTF_RS_RESOURCE_PVT',
6261: 'DELETE_RESOURCE',
6262: 'A',
6263: 'V')
6264: THEN
6262: 'A',
6263: 'V')
6264: THEN
6265: IF jtf_usr_hks.ok_to_execute(
6266: 'JTF_RS_RESOURCE_PVT',
6267: 'DELETE_RESOURCE',
6268: 'A',
6269: 'V')
6270: THEN
6288:
6289: /* Post Call to the Internal Type User Hook */
6290:
6291: IF jtf_resource_utl.ok_to_execute(
6292: 'JTF_RS_RESOURCE_PVT',
6293: 'DELETE_RESOURCE',
6294: 'A',
6295: 'I')
6296: THEN
6294: 'A',
6295: 'I')
6296: THEN
6297: IF jtf_usr_hks.ok_to_execute(
6298: 'JTF_RS_RESOURCE_PVT',
6299: 'DELETE_RESOURCE',
6300: 'A',
6301: 'I')
6302: THEN
6322:
6323: /* Standard call for Message Generation */
6324:
6325: IF jtf_resource_utl.ok_to_execute(
6326: 'JTF_RS_RESOURCE_PVT',
6327: 'DELETE_RESOURCE',
6328: 'M',
6329: 'M')
6330: THEN
6328: 'M',
6329: 'M')
6330: THEN
6331: IF jtf_usr_hks.ok_to_execute(
6332: 'JTF_RS_RESOURCE_PVT',
6333: 'DELETE_RESOURCE',
6334: 'M',
6335: 'M')
6336: THEN
6471: p_data => x_msg_data);
6472:
6473: END delete_resource;
6474:
6475: END jtf_rs_resource_pvt;