1 package PV_LEADLOG_PVT AUTHID CURRENT_USER as
2 /* $Header: pvxvlals.pls 115.14 2002/11/20 02:06:24 pklin ship $ */
3
4 --
5 -- NAME
6 -- PV_LEADLOG_PVT
7 --
8 -- PURPOSE
9 -- Private API for creating log entries
10 -- uses.
11 --
12 -- NOTES
13 -- This pacakge should not be used by any non-osm sources. All non OSM
14 -- sources should use the Public create_account API
15 --
16 --
17 --
18 -- HISTORY
19
20 G_INITIAL_AS NUMBER := 0;
21 G_CM_REJECT_AS NUMBER := 1;
22 G_CM_ADDED_AS NUMBER := 2;
23 G_CM_REMOVED_AS NUMBER := 3;
24 G_PT_REJECT_AS NUMBER := 4;
25 G_PT_TIMEOUT_AS NUMBER := 5;
26
27
28 -- Start of Comments
29 --
30 -- Lead Workflow Record: ASSIGNLOG_REC_TYPE
31 --
32 -- Parameters
33 --
34 -- Defaulting:
35 --
36 -- If Invalid:
37 --
38 -- End of Comments
39
40 TYPE ASSIGNLOG_REC_TYPE IS RECORD
41 (ASSIGNMENT_ID NUMBER,
42 LEAD_ASSIGNMENT_ID NUMBER,
43 LEAD_ID NUMBER ,
44 DURATION NUMBER ,
45 PARTNER_ID NUMBER ,
46 CM_ID NUMBER,
47 LAST_UPDATE_DATE DATE ,
48 LAST_UPDATED_BY NUMBER ,
49 CREATION_DATE DATE ,
50 CREATED_BY NUMBER ,
51 OBJECT_VERSION_NUMBER NUMBER ,
52 LAST_UPDATE_LOGIN NUMBER ,
53 WF_PT_USER VARCHAR2 (40),
54 WF_CM_USER VARCHAR2 (40),
55 WF_ITEM_TYPE VARCHAR2 (30),
56 WF_ITEM_KEY VARCHAR2 (30),
57 ASSIGN_SEQUENCE NUMBER,
58 FROM_STATUS VARCHAR2 (30),
59 STATUS VARCHAR2 (30),
60 STATUS_DATE DATE,
61 TRANS_TYPE NUMBER,
62 ERROR_TXT VARCHAR2(200),
63 STATUS_CHANGE_COMMENTS VARCHAR2 (60));
64
65 G_MISS_ASSIGNLOG_REC ASSIGNLOG_REC_TYPE;
66
67 TYPE ASSIGNLOG_TBL_TYPE IS TABLE OF ASSIGNLOG_REC_TYPE
68 INDEX BY BINARY_INTEGER;
69
70 G_MISS_ASSIGNLOG_TBL ASSIGNLOG_TBL_TYPE;
71
72
73
74 --
75 -- NAME
76 -- UpdateWFStatus
77 --
78 -- PURPOSE
79 -- Private API to create log entries
80 --
81 -- NOTES
82 -- This is a private API, which should only be called from PV.
83 -- information.
84 --
85 --
86 --
87
88 PROCEDURE CreateAssignLog
89 ( p_api_version_number IN NUMBER,
90 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
91 p_commit IN VARCHAR2 := FND_API.G_FALSE,
92 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
93 p_assignlog_rec IN ASSIGNLOG_REC_TYPE := G_MISS_ASSIGNLOG_REC,
94 x_assignment_id OUT NOCOPY NUMBER,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2);
98
99
100 PROCEDURE InsertAssignLogRow (
101 X_Rowid OUT NOCOPY ROWID ,
102 x_assignlog_ID OUT NOCOPY NUMBER ,
103 p_Lead_assignment_ID IN NUMBER ,
104 p_Last_Updated_By IN NUMBER ,
105 p_Last_Update_Date IN DATE ,
106 p_Object_Version_number IN NUMBER ,
107 p_Last_Update_Login IN NUMBER ,
108 p_Created_By IN NUMBER ,
109 p_Creation_Date IN DATE ,
110 p_lead_id IN NUMBER ,
111 p_duration IN NUMBER ,
112 p_partner_id IN NUMBER ,
113 p_assign_sequence IN NUMBER ,
114 p_status_date IN DATE ,
115 p_status IN VARCHAR2 ,
116 p_cm_id IN NUMBER ,
117 p_wf_pt_user IN VARCHAR2 ,
118 p_wf_cm_user IN VARCHAR2 ,
119 p_wf_item_type IN VARCHAR2 ,
120 p_wf_item_key IN VARCHAR2 ,
121 p_trans_type IN NUMBER ,
122 p_error_txt IN VARCHAR2 ,
123 p_status_change_comments IN VARCHAR2 ,
124 x_return_status OUT NOCOPY VARCHAR2);
125
126 PROCEDURE InsertLeadStatusLogRow (
127 X_Rowid OUT NOCOPY ROWID ,
128 x_assignlog_ID OUT NOCOPY NUMBER ,
129 p_Last_Updated_By IN NUMBER ,
130 p_Last_Update_Date IN DATE ,
131 p_Object_Version_number IN NUMBER ,
132 p_Last_Update_Login IN NUMBER ,
133 p_Created_By IN NUMBER ,
134 p_Creation_Date IN DATE ,
135 p_lead_id IN NUMBER ,
136 p_partner_id IN NUMBER ,
137 p_status_date IN DATE ,
138 p_from_status IN VARCHAR2 ,
139 p_to_status IN VARCHAR2 ,
140 x_return_status OUT NOCOPY VARCHAR2,
141 x_msg_count OUT NOCOPY NUMBER,
142 x_msg_data OUT NOCOPY VARCHAR2);
143
144 end pv_leadlog_pvt;