1: package body ozf_actbudgets_pvt_oaw as
2: /* $Header: ozfabdgb.pls 115.2 2004/06/29 17:16:48 feliu noship $ */
3: procedure create_act_budgets(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
71: , x_act_budget_id out nocopy NUMBER
72: )
73:
74: as
75: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
76: ddindx binary_integer; indx binary_integer;
77: begin
78:
79: -- copy data to the local IN or IN-OUT args, if any
147: ddp_act_budgets_rec.src_curr_req_amt := p7_a60;
148:
149:
150: -- here's the delegated call to the old PL/SQL routine
151: ozf_actbudgets_pvt.create_act_budgets(p_api_version,
152: p_init_msg_list,
153: p_commit,
154: p_validation_level,
155: x_return_status,
265: , p_approval_flag VARCHAR2
266: )
267:
268: as
269: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
270: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
271: ddindx binary_integer; indx binary_integer;
272: begin
273:
266: )
267:
268: as
269: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
270: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
271: ddindx binary_integer; indx binary_integer;
272: begin
273:
274: -- copy data to the local IN or IN-OUT args, if any
368:
369:
370:
371: -- here's the delegated call to the old PL/SQL routine
372: ozf_actbudgets_pvt.create_act_budgets(p_api_version,
373: p_init_msg_list,
374: p_commit,
375: p_validation_level,
376: x_return_status,
491: , x_utilized_amount out nocopy NUMBER
492: )
493:
494: as
495: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
496: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
492: )
493:
494: as
495: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
496: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
500: -- copy data to the local IN or IN-OUT args, if any
595:
596:
597:
598: -- here's the delegated call to the old PL/SQL routine
599: ozf_actbudgets_pvt.create_act_budgets(p_api_version,
600: p_init_msg_list,
601: p_commit,
602: p_validation_level,
603: x_return_status,
693: , p7_a60 NUMBER
694: )
695:
696: as
697: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
698: ddindx binary_integer; indx binary_integer;
699: begin
700:
701: -- copy data to the local IN or IN-OUT args, if any
768: ddp_act_budgets_rec.attribute15 := p7_a59;
769: ddp_act_budgets_rec.src_curr_req_amt := p7_a60;
770:
771: -- here's the delegated call to the old PL/SQL routine
772: ozf_actbudgets_pvt.update_act_budgets(p_api_version,
773: p_init_msg_list,
774: p_commit,
775: p_validation_level,
776: x_return_status,
889: , p15_a23 VARCHAR2
890: )
891:
892: as
893: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
894: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
895: ddindx binary_integer; indx binary_integer;
896: begin
897:
890: )
891:
892: as
893: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
894: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
895: ddindx binary_integer; indx binary_integer;
896: begin
897:
898: -- copy data to the local IN or IN-OUT args, if any
997: ddp_act_util_rec.orig_utilization_id := p15_a22;
998: ddp_act_util_rec.gl_posted_flag := p15_a23;
999:
1000: -- here's the delegated call to the old PL/SQL routine
1001: ozf_actbudgets_pvt.update_act_budgets(p_api_version,
1002: p_init_msg_list,
1003: p_commit,
1004: p_validation_level,
1005: x_return_status,
1135: , x_utilized_amount out nocopy NUMBER
1136: )
1137:
1138: as
1139: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1140: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1141: ddindx binary_integer; indx binary_integer;
1142: begin
1143:
1136: )
1137:
1138: as
1139: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1140: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1141: ddindx binary_integer; indx binary_integer;
1142: begin
1143:
1144: -- copy data to the local IN or IN-OUT args, if any
1244: ddp_act_util_rec.gl_posted_flag := p15_a23;
1245:
1246:
1247: -- here's the delegated call to the old PL/SQL routine
1248: ozf_actbudgets_pvt.update_act_budgets(p_api_version,
1249: p_init_msg_list,
1250: p_commit,
1251: p_validation_level,
1252: x_return_status,
1378: , p10_a23 VARCHAR2
1379: )
1380:
1381: as
1382: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1383: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1384: ddindx binary_integer; indx binary_integer;
1385: begin
1386:
1379: )
1380:
1381: as
1382: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1383: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1384: ddindx binary_integer; indx binary_integer;
1385: begin
1386:
1387: -- copy data to the local IN or IN-OUT args, if any
1481: ddp_act_util_rec.orig_utilization_id := p10_a22;
1482: ddp_act_util_rec.gl_posted_flag := p10_a23;
1483:
1484: -- here's the delegated call to the old PL/SQL routine
1485: ozf_actbudgets_pvt.update_act_budgets(p_api_version,
1486: p_init_msg_list,
1487: p_commit,
1488: p_validation_level,
1489: x_return_status,
1604: , x_utilized_amount out nocopy NUMBER
1605: )
1606:
1607: as
1608: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1609: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1610: ddindx binary_integer; indx binary_integer;
1611: begin
1612:
1605: )
1606:
1607: as
1608: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1609: ddp_act_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1610: ddindx binary_integer; indx binary_integer;
1611: begin
1612:
1613: -- copy data to the local IN or IN-OUT args, if any
1708: ddp_act_util_rec.gl_posted_flag := p10_a23;
1709:
1710:
1711: -- here's the delegated call to the old PL/SQL routine
1712: ozf_actbudgets_pvt.update_act_budgets(p_api_version,
1713: p_init_msg_list,
1714: p_commit,
1715: p_validation_level,
1716: x_return_status,
1805: , p6_a60 NUMBER
1806: )
1807:
1808: as
1809: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1810: ddindx binary_integer; indx binary_integer;
1811: begin
1812:
1813: -- copy data to the local IN or IN-OUT args, if any
1879: ddp_act_budgets_rec.attribute15 := p6_a59;
1880: ddp_act_budgets_rec.src_curr_req_amt := p6_a60;
1881:
1882: -- here's the delegated call to the old PL/SQL routine
1883: ozf_actbudgets_pvt.validate_act_budgets(p_api_version,
1884: p_init_msg_list,
1885: p_validation_level,
1886: x_return_status,
1887: x_msg_count,
1962: , x_return_status out nocopy VARCHAR2
1963: )
1964:
1965: as
1966: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1967: ddindx binary_integer; indx binary_integer;
1968: begin
1969:
1970: -- copy data to the local IN or IN-OUT args, if any
2032:
2033:
2034:
2035: -- here's the delegated call to the old PL/SQL routine
2036: ozf_actbudgets_pvt.validate_act_budgets_items(ddp_act_budgets_rec,
2037: p_validation_mode,
2038: x_return_status);
2039:
2040: -- copy data back from the local variables to OUT or IN-OUT args, if any
2107: , x_return_status out nocopy VARCHAR2
2108: )
2109:
2110: as
2111: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2112: ddindx binary_integer; indx binary_integer;
2113: begin
2114:
2115: -- copy data to the local IN or IN-OUT args, if any
2177:
2178:
2179:
2180: -- here's the delegated call to the old PL/SQL routine
2181: ozf_actbudgets_pvt.validate_act_budgets_record(ddp_act_budgets_rec,
2182: p_validation_mode,
2183: x_return_status);
2184:
2185: -- copy data back from the local variables to OUT or IN-OUT args, if any
2311: , p1_a60 out nocopy NUMBER
2312: )
2313:
2314: as
2315: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2316: ddx_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2317: ddindx binary_integer; indx binary_integer;
2318: begin
2319:
2312: )
2313:
2314: as
2315: ddp_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2316: ddx_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2317: ddindx binary_integer; indx binary_integer;
2318: begin
2319:
2320: -- copy data to the local IN or IN-OUT args, if any
2381: ddp_act_budgets_rec.src_curr_req_amt := p0_a60;
2382:
2383:
2384: -- here's the delegated call to the old PL/SQL routine
2385: ozf_actbudgets_pvt.complete_act_budgets_rec(ddp_act_budgets_rec,
2386: ddx_act_budgets_rec);
2387:
2388: -- copy data back from the local variables to OUT or IN-OUT args, if any
2389:
2513: , p0_a60 out nocopy NUMBER
2514: )
2515:
2516: as
2517: ddx_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2518: ddindx binary_integer; indx binary_integer;
2519: begin
2520:
2521: -- copy data to the local IN or IN-OUT args, if any
2520:
2521: -- copy data to the local IN or IN-OUT args, if any
2522:
2523: -- here's the delegated call to the old PL/SQL routine
2524: ozf_actbudgets_pvt.init_act_budgets_rec(ddx_act_budgets_rec);
2525:
2526: -- copy data back from the local variables to OUT or IN-OUT args, if any
2527: p0_a0 := ddx_act_budgets_rec.activity_budget_id;
2528: p0_a1 := ddx_act_budgets_rec.last_update_date;
2586: p0_a59 := ddx_act_budgets_rec.attribute15;
2587: p0_a60 := ddx_act_budgets_rec.src_curr_req_amt;
2588: end;
2589:
2590: end ozf_actbudgets_pvt_oaw;