[Home] [Help]
PACKAGE BODY: APPS.OKC_QUERY_PVT
Source
1 PACKAGE BODY OKC_QUERY_PVT AS
2 /*$Header: OKCPLCHB.pls 120.0 2005/05/26 09:38:47 appldev noship $*/
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 --===================
6 -- TYPES
7 --===================
8 -- add your type declarations here if any
9 --
10
11
12
13 --===================
14 -- PACKAGE CONSTANTS
15 --===================
16 --
17 x_msg_count NUMBER;
18 x_msg_data VARCHAR2(2000);
19 x_return_status VARCHAR2(1);
20
21 --===================
22 -- LOCAL PROCEDURES AND FUNCTIONS
23 --===================
24 --
25
26
27 --===================
28 -- PACKAGE PROCEDURES AND FUNCTIONS
29 --===================
30 --
31
32 --
33 -- ---------------------------------------------------------------------------------
34 -- FUNCTION: GetContractPartyName --
35 -- DESCRIPTION: --
36 -- using the record passed --
37 -- DEPENDENCIES: none --
38 -- CHANGE HISTORY: --
39 -- --
40 -- --
41 -- ---------------------------------------------------------------------------------
42 --
43 FUNCTION GetContractPartyName ( p_contract_id IN NUMBER,
44 p_class_code IN VARCHAR2)
45 RETURN VARCHAR2 IS
46
47 BEGIN
48 return 'ContractName TBD';
49
50 END GetContractPartyName;
51
52
53 --
54
55 --
56 -- ---------------------------------------------------------------------------------
57 -- FUNCTION: GetContractAmountDisplay --
58 -- DESCRIPTION: --
59 -- using the record passed --
60 -- DEPENDENCIES: none --
61 -- CHANGE HISTORY: --
62 -- --
63 -- --
64 -- -
65 --
66 FUNCTION GetContractDisplayAmount ( p_contract_id IN NUMBER,
67 p_class_code IN VARCHAR2)
68 RETURN VARCHAR2 IS
69
70 BEGIN
71 return '1.00 USD';
72
73 END GetContractDisplayAmount;
74
75
76 --
77 -- ---------------------------------------------------------------------------------
78 -- FUNCTION: SetSublineIndent --
79 -- DESCRIPTION: --
80 -- using the record passed --
81 -- DEPENDENCIES: none --
82 -- CHANGE HISTORY: --
83 -- --
84 -- --
85 -- ---------------------------------------------------------------------------------
86 --
87 FUNCTION SetSublineIndent ( p_contract_id IN NUMBER,
88 p_line_id IN NUMBER,
89 p_line_descr IN VARCHAR2)
90 RETURN VARCHAR2 IS
91
92 BEGIN
93 return '-->' || p_line_descr;
94
95 END SetSublineIndent;
96
97
98 --
99 -- ---------------------------------------------------------------------------------
100 -- FUNCTION: GetContractPartyName --
101 -- DESCRIPTION: --
102 -- using the record passed --
103 -- DEPENDENCIES: none --
104 -- CHANGE HISTORY: --
105 -- --
106 -- --
107 -- ---------------------------------------------------------------------------------
108 --
109 FUNCTION GetLinePartyName ( p_contract_id IN NUMBER,
110 p_line_id IN NUMBER)
111 RETURN VARCHAR2 IS
112
113 BEGIN
114 return 'LineName TBD';
115
116 END GetLinePartyName;
117
118
119 --
120 -- ---------------------------------------------------------------------------------
121 -- FUNCTION: GetParentLineNUMber --
122 -- DESCRIPTION: --
123 -- using the record passed --
124 -- DEPENDENCIES: none --
125 -- CHANGE HISTORY: --
126 -- --
127 -- --
128 -- ---------------------------------------------------------------------------------
129 --
130 --
131 FUNCTION GetParentLineNumber ( p_line_id IN NUMBER)
132 RETURN VARCHAR2 IS
133
134 BEGIN
135 return 'TBD';
136
137 END getParentLineNumber;
138
139
140
141 --
142 -- ---------------------------------------------------------------------------------
143 -- FUNCTION: GetChildCount --
144 -- DESCRIPTION: gets a count of the number of child groups in OKC_K_GRPINGS --
145 -- using the recordid passed --
146 -- DEPENDENCIES: none --
147 -- CHANGE HISTORY: --
148 -- --
149 -- --
150 -- ---------------------------------------------------------------------------------
151 --
152 FUNCTION GetChildCount (p_group_id IN NUMBER)
153 RETURN NUMBER IS
154
155 CURSOR cg(p_id IN NUMBER) IS
156 select count(*)
157 from okc_k_grpings
158 where cgp_parent_id = p_id;
159 ret NUMBER;
160
161 BEGIN
162 ret := 0;
163 open cg(p_group_id);
164 fetch cg into ret;
165 close cg;
166 return ret;
167
168 EXCEPTION
169 WHEN NO_DATA_FOUND THEN
170 return 0;
171 WHEN OTHERS THEN
172 raise_application_error(-20471,'Exception in GetChildCount for ' || to_char(p_group_id)
173 , TRUE);
174
175 END GetChildCount;
176
177 END OKC_QUERY_PVT;