PACKAGE BODY: APPS.CSFW_SERVICEREQUEST_PUB_W

Source

1 package body csfw_servicerequest_pub_w as
2   /* $Header: csfwvsrb.pls 120.1.12000000.2 2007/04/24 18:15:20 jjalla ship $ */
3   procedure update_request_resolution(p_incident_id  NUMBER
4     , p_resolution_code  VARCHAR2
5     , p_resolution_summary  VARCHAR2
6     , p_problem_code  VARCHAR2
7     , p_cust_po_number  VARCHAR2
8     , p_commit  number
9     , p_init_msg_list  number
10     , x_return_status out nocopy  VARCHAR2
11     , x_msg_count out nocopy  INTEGER
12     , x_msg_data out nocopy  VARCHAR2
13     , p_object_version_number  NUMBER
14   )
15 
16   as
17     ddp_commit boolean;
18     ddp_init_msg_list boolean;
19     ddindx binary_integer; indx binary_integer;
20   begin
21 
22     -- copy data to the local IN or IN-OUT args, if any
23 
24 
25 
26 
27 
28     if p_commit is null
29       then ddp_commit := null;
30     elsif p_commit = 0
31       then ddp_commit := false;
32     else ddp_commit := true;
33     end if;
34 
35     if p_init_msg_list is null
36       then ddp_init_msg_list := null;
37     elsif p_init_msg_list = 0
38       then ddp_init_msg_list := false;
39     else ddp_init_msg_list := true;
40     end if;
41 
42 
43 
44 
45 
46     -- here's the delegated call to the old PL/SQL routine
47     csfw_servicerequest_pub.update_request_resolution(p_incident_id,
48       p_resolution_code,
49       p_resolution_summary,
50       p_problem_code,
51       p_cust_po_number,
52       ddp_commit,
53       ddp_init_msg_list,
54       x_return_status,
55       x_msg_count,
56       x_msg_data,
57       p_object_version_number);
58 
59     -- copy data back from the local variables to OUT or IN-OUT args, if any
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70   end;
71 
72 end csfw_servicerequest_pub_w;