[Home] [Help]
PACKAGE: APPS.ONT_OIP_COMMON
Source
1 package ONT_OIP_Common AUTHID CURRENT_USER as
2 /* $Header: ontcomns.pls 120.6 2010/10/07 14:15:15 kshashan ship $ */
3
4 gContactID number :=0;
5 gOPMCustID number :=0;
6 gCustomerID number :=0;
7 gCustomerAddrID number :=0;
8 gCustName varchar2(80);
9 gUserFName Varchar2(150);
10 gUserLName Varchar2(150);
11 gUserEmail Varchar2(250);
12 gUserPhone Varchar2(250);
13
14 gProductID number := 559;
15
16 gAndVal varchar2(1) :='&';
17 gSpace varchar2(6) :=gAndVal||'nbsp';
18 gTab varchar2(50) :=gSpace||gspace||gspace||gspace;
19
20 gCustFContact varchar2(250); -- Feedback Contact email to send info to
21 gCustFContactID number := 0;
22 gCustDContact varchar2(250); -- Defect Contact email to send info to
23 gCustDContactID number := 0;
24 gCustCContact varchar2(250); -- Cancel Contact email to send info to
25 gCustCContactID number := 0;
26
27 -----------------------------------------------
28 -- Declare Global Message Instantiation here.
29 -----------------------------------------------
30
31 gHelp varchar2(1000);
32 gReload varchar2(1000);
33 gMenu varchar2(1000);
34 gSave varchar2(1000);
35 gExit varchar2(1000);
36
37
38 -------------------------------------------------
39 -- Generic funtion to get messages.
40 -------------------------------------------------
41 function getMessage(pMsgName varchar2,
42 pTokenName1 varchar2 DEFAULT NULL,
43 pTokenValue1 varchar2 DEFAULT NULL,
44 pTokenName2 varchar2 DEFAULT NULL,
45 pTokenValue2 varchar2 DEFAULT NULL,
46 pTokenName3 varchar2 DEFAULT NULL,
47 pTokenValue3 varchar2 DEFAULT NULL,
48 pTokenName4 varchar2 DEFAULT NULL,
49 pTokenValue4 varchar2 DEFAULT NULL,
50 pTokenName5 varchar2 DEFAULT NULL,
51 pTokenValue5 varchar2 DEFAULT NULL) return varchar2;
52
53 function getRecCount(pCurrent number,
54 pPageTot number,
55 pTotal number) return varchar2;
56
57 function Get_Released_Status_Name(p_source_code IN VARCHAR2,
58 p_released_status IN VARCHAR2,
59 p_oe_interfaced_flag IN VARCHAR2,
60 p_inv_interfaced_flag IN VARCHAR2,
61 p_move_order_line_id IN NUMBER) RETURN VARCHAR2;
62
63
64 procedure getContactId(lContactid in out NOCOPY varchar2);
65
66 procedure initialize;
67
68 /* Sun OIP changes - Overloading procedure
69 to get the list of customer Ids */
70 procedure getContactDetails(
71 pUserId in number,
72 pContactId out nocopy number,
73 pUserFName out nocopy varchar2,
74 pUserLName out nocopy varchar2,
75 pUserEmail out nocopy varchar2,
76 pCustName out nocopy varchar2,
77 pCustomerID out nocopy number,
78 pCustomerAddrID out nocopy number,
79 pStatusCode out nocopy NUMBER,
80 pCustomerIdList OUT NOCOPY varchar2
81 );
82
83 /* Sun OIP changes - Add method to get the active holds list */
84 FUNCTION getActiveHolds(
85 pEntityType IN VARCHAR2,
86 pEntityId IN NUMBER) RETURN Varchar2;
87
88 /* Sun OIP changes - Method to get the IB system list */
89 FUNCTION getIbSystems (pLineId IN NUMBER)
90 RETURN VARCHAR2;
91
92 /* Sun OIP changes - Method to get formatted serial numbers */
93 FUNCTION getSerialNumbers (pDeliveryDetailId IN NUMBER)
94 RETURN VARCHAR2;
95
96 procedure getContactDetails(lUserId in number,
97 pContactId out nocopy number,
98
99 pUserFName out nocopy varchar2,
100
101 pUserLName out nocopy varchar2,
102
103 pUserEmail out nocopy varchar2,
104
105 pCustName out nocopy varchar2,
106
107 pCustomerID out nocopy number,
108
109 pCustomerAddrID out nocopy number,
110
111 pStatusCode out nocopy number);
112
113
114 /****************************************************
115 * procedure Get_Price_Formatted
116 **********************************************************
117 * Logic :a) call FND_CURRENCY.get_info to get the precision and extend
118 * precision defined for the currency code.
119 *
120 * b)check profile OM: Unit Price Precision Type
121 * If the profile options value is "EXTENDED", call
122 * FND_CURRENCY.build_format_mask by passing the ext_precision
123 * from step(a) to get the format_mask.
124 *
125 * If the profile options value is "STANDARD", call
126 * FND_CURRENCY.build_format_mask by passing the precision from
127 * step(a) to get the format_mask.
128 *
129 * c)convert unit_selling_price from lines table to Char with correct
130 * format mask.
131 * Bug: 4058254
132 *
133 *
134 ************************************************************/
135
136 procedure Get_Price_formatted(
137 p_transactional_curr_code IN VARCHAR2,
138 p_price IN NUMBER,
139 p_line_category_code IN VARCHAR2,
140 x_price_formatted OUT NOCOPY VARCHAR2
141 );
142
143
144 end;
145