1 PACKAGE OKE_CHG_REQ_UTILS AUTHID CURRENT_USER AS
2 /* $Header: OKECRQUS.pls 115.14 2002/11/21 22:48:01 ybchen ship $ */
3 --
4 -- Name : Status_Change
5 -- Pre-reqs : None
6 -- Function : This procedure performs utility functions during
7 -- a change request status change.
8 --
9 --
10 -- Parameters :
11 -- IN : None
12 -- OUT : None
13 --
14 -- Returns : None
15 --
16
17 PROCEDURE Status_Change
18 ( P_Calling_Mode IN VARCHAR2
19 , P_K_Header_ID IN NUMBER
20 , P_Chg_Request_ID IN NUMBER
21 , P_Chg_Request_Num IN VARCHAR2
22 , P_Requested_By IN NUMBER
23 , P_Effective_Date IN DATE
24 , P_Old_Status_Code IN VARCHAR2
25 , P_New_Status_Code IN VARCHAR2
26 , P_Chg_Type_Code IN VARCHAR2
27 , P_Chg_Reason_Code IN VARCHAR2
28 , P_Impact_Funding_flag IN VARCHAR2
29 , P_Description IN VARCHAR2
30 , P_Chg_Text IN VARCHAR2
31 , P_Updated_By IN NUMBER
32 , P_Update_Date IN DATE
33 , P_Login_ID IN NUMBER
34 , X_Chg_Log_ID IN OUT NOCOPY NUMBER
35 , X_Approve_Date IN OUT NOCOPY DATE
36 , X_Implement_Date IN OUT NOCOPY DATE
37 );
38
39
40 --
41 -- Name : Get_Process_Status
42 -- Pre-reqs : None
43 -- Function : This procedure returns the Workflow status of
44 -- a status change as stored in the history.
45 --
46 --
47 -- Parameters :
48 -- IN : P_CHG_LOG_ID NUMBER
49 -- OUT : X_STATUS VARCHAR2
50 -- X_RESULT VARCHAR2
51 --
52 -- Returns : None
53 --
54 PROCEDURE Get_Process_Status
55 ( P_Chg_Log_ID IN NUMBER
56 , X_Status OUT NOCOPY VARCHAR2
57 , X_Result OUT NOCOPY VARCHAR2
58 );
59
60
61 --
62 -- Name : Update_Process
63 -- Pre-reqs : None
64 -- Function : This procedure suspend/resume/abort an existing
65 -- workflow process
66 --
67 --
68 -- Parameters :
69 -- IN : P_CHG_LOG_ID NUMBER
70 -- P_MODE VARCHAR2
71 -- - SUSPEND
72 -- - RESUME
73 -- - ABORT
74 -- OUT : None
75 --
76 -- Returns : None
77 --
78 PROCEDURE Update_Process
79 ( P_Chg_Log_ID IN NUMBER
80 , P_Mode IN VARCHAR2
81 );
82
83
84 --
85 -- Name : OK_To_Implement
86 -- Pre-reqs : None
87 -- Function : This function checks whether there is another
88 -- approved change request currently in progress
89 -- or unapproved change request with an earlier
90 -- effective date
91 --
92 --
93 -- Parameters :
94 -- IN : X_K_HEADER_ID NUMBER
95 -- : X_CHG_REQUEST_ID NUMBER
96 -- OUT : None
97 --
98 -- Returns : VARCHAR2
99 -- Y - OK to implement
100 -- W - give user warning message
101 -- N - Cannot proceed
102 --
103 FUNCTION OK_To_Implement
104 ( X_Chg_Request_ID IN NUMBER
105 ) RETURN VARCHAR2;
106
107 --
108 -- Name : OK_To_Undo
109 -- Pre-reqs : None
110 -- Function : This function checks whether there is another
111 -- completed or in progress change request with a
112 -- later effective date
113 --
114 --
115 -- Parameters :
116 -- IN : X_K_HEADER_ID NUMBER
117 -- : X_CHG_REQUEST_ID NUMBER
118 -- OUT : None
119 --
120 -- Returns : VARCHAR2
121 -- Y - OK to undo
122 -- W - give user warning message
123 -- N - Cannot proceed
124 --
125 FUNCTION OK_To_Undo
126 ( X_Chg_Request_ID IN NUMBER
127 ) RETURN VARCHAR2;
128
129
130 --
131 -- Name : Get_Chg_Request
132 -- Pre-reqs : None
133 -- Function : This function returns the related Change Request
134 -- Number and Change Status for the given contract
135 -- either for the current version or a specific
136 -- major version.
137 --
138 --
139 -- Parameters :
140 -- IN : X_K_Header_ID NUMBER
141 -- X_Major_Version NUMBER
142 -- X_History_Use VARCHAR2 DEFAULT N
143 -- OUT : X_Change_Request VARCHAR2
144 -- X_Change_Status VARCHAR2
145 --
146
147 PROCEDURE Get_Chg_Request
148 ( X_K_Header_ID IN NUMBER
149 , X_Major_Version IN NUMBER DEFAULT NULL
150 , X_Change_Request OUT NOCOPY VARCHAR2
151 , X_Change_Status OUT NOCOPY VARCHAR2
152 , X_History_Use IN VARCHAR2 DEFAULT 'N'
153 );
154
155 END OKE_CHG_REQ_UTILS;