PACKAGE BODY: APPS.CSFW_SERVICEREQUEST_PUB_W

Source

1 package body csfw_servicerequest_pub_w as
2   /* $Header: csfwvsrb.pls 120.3 2009/02/11 09:46:53 syenduri 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     , p_incident_severity_id   NUMBER default null -- For enhancement in FSTP 12.1.3 Project
15   )
16 
17   as
18     ddp_commit boolean;
19     ddp_init_msg_list boolean;
20     ddindx binary_integer; indx binary_integer;
21   begin
22 
23     -- copy data to the local IN or IN-OUT args, if any
24 
25 
26 
27 
28 
29     if p_commit is null
30       then ddp_commit := null;
31     elsif p_commit = 0
32       then ddp_commit := false;
33     else ddp_commit := true;
34     end if;
35 
36     if p_init_msg_list is null
37       then ddp_init_msg_list := null;
38     elsif p_init_msg_list = 0
39       then ddp_init_msg_list := false;
40     else ddp_init_msg_list := true;
41     end if;
42 
43 
44 
45 
46 
47     -- here's the delegated call to the old PL/SQL routine
48     csfw_servicerequest_pub.update_request_resolution(p_incident_id,
49       p_resolution_code,
50       p_resolution_summary,
51       p_problem_code,
52       p_cust_po_number,
53       ddp_commit,
54       ddp_init_msg_list,
55       x_return_status,
56       x_msg_count,
57       x_msg_data,
58       p_object_version_number,
59       p_incident_severity_id );
60 
61     -- copy data back from the local variables to OUT or IN-OUT args, if any
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72   end;
73 
74 end csfw_servicerequest_pub_w;