Subversion Repositories DevTools

Rev

Rev 5513 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%
2 
'=====================================================
3 
'					 COMMON DB EDIT
4 
'=====================================================
5 
%>
6 
<%
7 
Sub Update_Pkg_Category ( SSrtag_id, SSpv_id, SSbase_view_id )
37 brianf 8 
 
13 rsolanki 9 
	OraDatabase.Parameters.Add "PV_ID", 	SSpv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
10 
	OraDatabase.Parameters.Add "RTAG_ID", 	SSrtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
11 
	OraDatabase.Parameters.Add "VIEW_ID", 	SSbase_view_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
37 brianf 12 
 
13 
 
13 rsolanki 14 
	OraSession.BeginTrans
15 
	OraDatabase.ExecuteSQL _
16 
	"BEGIN PK_ENVIRONMENT.CHANGE_PACKAGE_VIEW ( :PV_ID, :RTAG_ID, :VIEW_ID );  END;"
17 
  	OraSession.CommitTrans
37 brianf 18 
 
19 
 
13 rsolanki 20 
	OraDatabase.Parameters.Remove "PV_ID"
21 
	OraDatabase.Parameters.Remove "RTAG_ID"
22 
	OraDatabase.Parameters.Remove "VIEW_ID"
37 brianf 23 
 
13 rsolanki 24 
End Sub
25 
'-----------------------------------------------------------------------------------------------------------------------------
26 
Sub Seed_Package_Names_Versions ( ARRdep, NNretPV_ID )
27 
	Dim i
28 
	OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
29 
	OraSession.BeginTrans
30 
	For i = 0 To UBound( ARRdep, 2 )
31 
		OraDatabase.ExecuteSQL "BEGIN Seed_Package_Names_Versions ('"& ARRdep(0,i) &"','"& ARRdep(1,i) &"', "& objAccessControl.UserId &", :retPV_ID); END;"
32 
	Next
33 
	OraSession.CommitTrans
34 
	OraDatabase.Parameters.Remove "retPV_ID"
35 
End Sub
36 
'-----------------------------------------------------------------------------------------------------------------------------
37 
Function IsExtention ( SSstr )
38 
	Dim objRegEx, Match, Matches, StrReturnStr
37 brianf 39 
    Set objRegEx = New RegExp
40 
 
13 rsolanki 41 
    objRegEx.IgnoreCase = True
42 
    objRegEx.Pattern = "[A-Za-z]+"
37 brianf 43 
 
44 
	Set Matches = objRegEx.Execute( SSstr )
13 rsolanki 45 
    For Each Match in Matches
46 
        IsExtention = true
47 
    Next
48 
End Function
49 
'-----------------------------------------------------------------------------------------------------------------------------
50 
Function Get_Pkg_Base_View_ID ( NNpv_id, NNrtag_id )
51 
	Dim rsTemp, Query_String
37 brianf 52 
 
13 rsolanki 53 
	If Request("rtag_id") = "" Then
54 
		Get_Pkg_Base_View_ID = -1
55 
		Exit Function
56 
	End If
37 brianf 57 
 
13 rsolanki 58 
	Query_String = _
59 
	" SELECT rc.base_view_id"&_
60 
	"  FROM release_content rc"&_
61 
	" WHERE rc.rtag_id = "& NNrtag_id &_
62 
	"   AND rc.pv_id = "& NNpv_id
37 brianf 63 
 
13 rsolanki 64 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37 brianf 65 
 
13 rsolanki 66 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
67 
		Get_Pkg_Base_View_ID = CInt( rsTemp("base_view_id") )
68 
	Else
69 
		Get_Pkg_Base_View_ID = NULL
70 
	End If
37 brianf 71 
 
13 rsolanki 72 
	rsTemp.Close
73 
	Set rsTemp = nothing
74 
End Function
75 
'-----------------------------------------------------------------------------------------------------------------------------
76 
Function Get_V_EXT ( SSversion )
77 
	Dim v_ext
78 
	v_ext = Right(SSversion, Len(SSversion) - InStrRev( SSversion, "." ))
37 brianf 79 
 
13 rsolanki 80 
	If IsExtention ( v_ext ) Then
81 
		Get_V_EXT = v_ext
82 
	Else
83 
		Get_V_EXT = NULL
84 
	End If
37 brianf 85 
 
13 rsolanki 86 
End Function
87 
'-----------------------------------------------------------------------------------------------------------------------------
88 
Sub Touch_Package ( NNpv_id )
89 
	If NNpv_id = "" Then Exit Sub
90 
	OraSession.BeginTrans
91 
	OraDatabase.ExecuteSQL " UPDATE package_versions "&_
92 
						   " SET modified_stamp = "& ORA_SYSDATETIME  &", modifier_id = "& objAccessControl.UserId &_
93 
						   " WHERE pv_id = "& NNpv_id
94 
  	OraSession.CommitTrans
95 
End Sub
96 
'-----------------------------------------------------------------------------------------------------------------------------
97 
Sub Rebuild_Environment ( NNrtag_id )
98 
	Dim Query_String, rsTemp, needRebuild, secToday
37 brianf 99 
 
13 rsolanki 100 
	If NNrtag_id = "" Then Exit Sub		' Exit if rtag_id is not supplied
37 brianf 101 
 
13 rsolanki 102 
	' Find if rebuild is required
103 
	Query_String = "SELECT rebuild_env FROM release_tags WHERE rtag_id = "& NNrtag_id
104 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
105 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
106 
		If rsTemp("rebuild_env") = "Y" Then
107 
			needRebuild = TRUE
108 
		Else
109 
			needRebuild = FALSE
110 
		End If
111 
	Else
112 
		needRebuild = FALSE
113 
	End If
114 
	rsTemp.Close
115 
	Set rsTemp = nothing
37 brianf 116 
 
13 rsolanki 117 
	' EXIT on no rebuild required
118 
	If NOT needRebuild Then Exit Sub
37 brianf 119 
 
13 rsolanki 120 
	' /*  REBUILD ENVIRONMENT  */
121 
	OraSession.BeginTrans
37 brianf 122 
 
13 rsolanki 123 
	' Update rebuild stamp
124 
	secToday = Int( Timer )
125 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
126 
	'					   " SET rebuild_stamp = "& secToday &_
127 
	'					   " WHERE rtag_id = "& NNrtag_id
37 brianf 128 
 
129 
 
13 rsolanki 130 
	' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing
131 
	OraDatabase.ExecuteSQL " UPDATE release_tags "&_
132 
						   " SET rebuild_env = 'N'"&_
37 brianf 133 
						   " WHERE rtag_id = "& NNrtag_id
134 
 
13 rsolanki 135 
	OraSession.CommitTrans
37 brianf 136 
 
137 
 
13 rsolanki 138 
	OraSession.BeginTrans
37 brianf 139 
 
13 rsolanki 140 
	' Now rebuild environment
141 
	OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
37 brianf 142 
 
13 rsolanki 143 
	' Remove rebuild flag
144 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
145 
	'					   " SET rebuild_env = 'N'"&_
146 
	'					   " WHERE rtag_id = "& NNrtag_id &_
147 
	'					   " AND rebuild_stamp = "& secToday
37 brianf 148 
 
149 
 
13 rsolanki 150 
	OraSession.CommitTrans
37 brianf 151 
End Sub
13 rsolanki 152 
'-----------------------------------------------------------------------------------------------------------------------------
153 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
154 
	Dim rsErr, Query_String
155 
	Query_String = sQuery
37 brianf 156 
 
157 
 
13 rsolanki 158 
	' --------- SQL PARAMETERS ------------
159 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
160 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
161 
	OraDatabase.Parameters.Add "enumPKG_STATE_OK", 			enumPKG_STATE_OK, 		ORAPARM_INPUT, ORATYPE_NUMBER
162 
	OraDatabase.Parameters.Add "enumISSUES_STATE_FIXED", 	enumISSUES_STATE_FIXED, ORAPARM_INPUT, ORATYPE_NUMBER
163 
	' -------------------------------------
164 
	Set rsErr = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37 brianf 165 
 
13 rsolanki 166 
	returnERRmsg = NULL
167 
	returnALRTmsg = NULL
37 brianf 168 
 
13 rsolanki 169 
	If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
170 
		' Check Requirement for products
37 brianf 171 
	Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
13 rsolanki 172 
		If Not IsNull(rsErr("err_message")) Then
173 
		returnERRmsg = rsErr("err_message")
174 
			returnALRTmsg = rsErr("products_msg")
175 
			returnParameters = "_make_released.asp" &"|"
37 brianf 176 
			If returnALRTmsg = "ERROR" Then
13 rsolanki 177 
				returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
178 
				Exit Do
179 
			End If
180 
		End If
37 brianf 181 
 
13 rsolanki 182 
		rsErr.MoveNext
183 
		Loop
37 brianf 184 
 
13 rsolanki 185 
	Else
186 
		' Check Requirements for other packages
37 brianf 187 
		Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
13 rsolanki 188 
		If Not IsNull(rsErr("err_message")) Then
189 
			returnERRmsg = rsErr("err_message")
190 
			returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
191 
			Exit Do
192 
	End If
37 brianf 193 
 
13 rsolanki 194 
		rsErr.MoveNext
195 
	Loop
37 brianf 196 
 
13 rsolanki 197 
	End If
37 brianf 198 
 
199 
 
200 
 
13 rsolanki 201 
	rsErr.Close
202 
	Set rsErr = nothing
203 
	OraDatabase.Parameters.Remove "RTAG_ID"
204 
	OraDatabase.Parameters.Remove "PV_ID"
205 
	OraDatabase.Parameters.Remove "enumPKG_STATE_OK"
206 
	OraDatabase.Parameters.Remove "enumISSUES_STATE_FIXED"
207 
End Sub
208 
'-----------------------------------------------------------------------------------------------------------------------------
209 
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
210 
	Dim QueryString, rsQry
211 
	QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
212 
	Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
37 brianf 213 
 
13 rsolanki 214 
	If IsNull(rsQry("is_patch")) Then
215 
		' For Package
216 
		'Response.write "HERE"
217 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official.sql" ) )
218 
	Else
219 
		' For Patch
220 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch.sql" ) )
221 
	End If
37 brianf 222 
 
13 rsolanki 223 
	rsQry.Close()
37 brianf 224 
	Set rsQry = nothing
225 
 
13 rsolanki 226 
End Sub
227 
'-----------------------------------------------------------------------------------------------------------------------------
228 
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
229 
	Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending.sql" ) )
230 
End Sub
231 
'-----------------------------------------------------------------------------------------------------------------------------
232 
Sub CheckRequirementsForMakeApproved ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
233 
	Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_approved.sql" ) )
234 
End Sub
235 
'-----------------------------------------------------------------------------------------------------------------------------
236 
Sub Notify ( NNrtag_id )
237 
	Dim Query_String, Location_SQL, rsNotify, emailBody, readyPv_id_list, SentTODict, releaseSTR
238 
	Dim httpRef, URL_root, headerSTR, footerSTR, oAttachmentsDict
37 brianf 239 
 
13 rsolanki 240 
	Set SentTODict = CreateObject("Scripting.Dictionary")
241 
	Set oAttachmentsDict = CreateObject("Scripting.Dictionary")
37 brianf 242 
 
13 rsolanki 243 
	OraSession.BeginTrans
37 brianf 244 
 
13 rsolanki 245 
	Query_String = ReadFile( rootPath & "queries\to_notify.sql" )
246 
	Query_String = Replace( Query_String, "/*PKG_STATE_MAJOR_READY*/", enumPKG_STATE_MAJOR_READY)
247 
	Query_String = Replace( Query_String, "/*PKG_STATE_MINOR_READY*/", enumPKG_STATE_MINOR_READY)
248 
	Query_String = Replace( Query_String, "/*PKG_STATE_OK*/", enumPKG_STATE_OK)
249 
	Query_String = Replace( Query_String, "/*ORA_SYSDATETIME*/", ORA_SYSDATETIME)
37 brianf 250 
 
13 rsolanki 251 
	' --------- SQL PARAMETERS ------------
252 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
253 
	OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
37 brianf 254 
 
13 rsolanki 255 
	OraDatabase.Parameters.Add "CURRENT_USER", objAccessControl.UserId, ORAPARM_INPUT
256 
	OraDatabase.Parameters("CURRENT_USER").ServerType = ORATYPE_NUMBER
257 
	' -------------------------------------
258 
	'Response.write Query_String
259 
	Set rsNotify = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37 brianf 260 
 
13 rsolanki 261 
	readyPv_id_list = "-1"
262 
	emailBody = ""
37 brianf 263 
 
13 rsolanki 264 
	'---- Get notification list ----
265 
	If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
266 
		httpRef = Request.ServerVariables("HTTP_REFERER")
267 
		URL_root = Left( httpRef, InStrRev(httpRef, "/") )
37 brianf 268 
 
13 rsolanki 269 
		emailBody = emailBody & "<tr>"
270 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Owner</b></font></td>"
271 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Package Name</b></font></td>"
272 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Version</b></font></td>"
273 
		emailBody = emailBody & "</tr>"
37 brianf 274 
 
13 rsolanki 275 
		While ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF))
276 
		    emailBody = emailBody & "<tr>"
277 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("full_name") &"</font></td>"
278 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'><a href='"& URL_root &"dependencies.asp?pv_id="& rsNotify("pv_id") &"&rtag_id="& NNrtag_id &"'>"& rsNotify("pkg_name") &"</a></font></td>"
279 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("pkg_version") &"</font></td>"
280 
			emailBody = emailBody & "</tr>"
37 brianf 281 
 
13 rsolanki 282 
			readyPv_id_list = readyPv_id_list &","& rsNotify("pv_id")
37 brianf 283 
 
13 rsolanki 284 
			If NOT SentTODict.Exists (Cstr(rsNotify("user_email"))) Then SentTODict.Add Cstr(rsNotify("user_email")), Cstr(rsNotify("full_name"))
37 brianf 285 
 
13 rsolanki 286 
			rsNotify.MoveNext
287 
		WEnd
37 brianf 288 
 
13 rsolanki 289 
		emailBody = "<table width='50%' border='1' cellspacing='0' cellpadding='1'>" & emailBody & "</table>"
37 brianf 290 
 
13 rsolanki 291 
	End If
37 brianf 292 
 
13 rsolanki 293 
	rsNotify.Close
294 
	Set rsNotify = nothing
37 brianf 295 
 
296 
 
13 rsolanki 297 
	If readyPv_id_list <> "-1" Then
298 
		'---- Header ----
299 
		headerSTR = _
300 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
301 
		"	<tr>"&_
302 
		"	  <td valign='bottom'><img src='cid:RM-Envelop' width='60' height='30'></td>"&_
303 
		"	  <td valign='bottom' align='right'><font size='3' face='tahoma,sans-serif'><b>release</b>manager Notifications</font></td>"&_
304 
		"	</tr>"&_
305 
		"	<tr> "&_
306 
		"	  <td bgcolor='#003399'></td>"&_
307 
		"	  <td bgcolor='#003399'></td>"&_
308 
		"	</tr>"&_
309 
		"</table><br><br>"
37 brianf 310 
 
13 rsolanki 311 
		'---- Footer ----
312 
		footerSTR = _
313 
		"<br><br>"&_
314 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
315 
		"  <tr>"&_
316 
		"    <td colspan='2'><hr size='1' noshade color='#003399'></td>"&_
317 
		"  </tr>"&_
318 
	    "  <tr>"&_
5961 dpurdie 319 
	    "    <td><img src='cid:RM-MASSlogo' width='22' height='17' hspace='5' align='absmiddle'><font size='1' face='tahoma,sans-serif'>&nbsp;<a href='http://bms/mass'>mass</a></font></td>"&_
13 rsolanki 320 
	    "    <td nowrap align='right'><font size='1' face='tahoma,sans-serif'>ERG Confidential &copy; ERG</font></td>"&_
321 
	    "  </tr>"&_
322 
	    "</table>"
37 brianf 323 
 
324 
 
13 rsolanki 325 
		'---- Get Release loction ----
326 
		Location_SQL = _
327 
		" SELECT proj.proj_name, rt.rtag_name"&_
328 
		"  FROM release_tags rt,"&_
329 
		"       projects proj"&_
330 
		" WHERE rt.proj_id = proj.proj_id"&_
331 
		"   AND rt.rtag_id = :RTAG_ID"
37 brianf 332 
 
13 rsolanki 333 
		Set rsNotify = OraDatabase.DbCreateDynaset( Location_SQL, cint(0))
334 
		If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
37 brianf 335 
		releaseSTR = rsNotify("proj_name")  &" > "& rsNotify("rtag_name")
13 rsolanki 336 
		emailBody = "<font size='1' face='tahoma,sans-serif'>"&_
337 
		            "Following packages are ready to build.<br><br>"&_
338 
					rsNotify("proj_name") &" &gt; "& rsNotify("rtag_name") &"<br>"&_
339 
					"<a href='"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id &"'>"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id  &"</a>"&_
340 
					"</font>"&_
341 
					emailBody
342 
		End If
343 
		rsNotify.Close
344 
		Set rsNotify = nothing
37 brianf 345 
 
13 rsolanki 346 
		emailBody = headerSTR & emailBody & footerSTR
37 brianf 347 
 
13 rsolanki 348 
		'---- Remove pkg form notification history ----
349 
		OraDatabase.ExecuteSQL " DELETE FROM notification_history WHERE rtag_id = :RTAG_ID AND pv_id IN ( "& readyPv_id_list &" )"
37 brianf 350 
 
351 
 
13 rsolanki 352 
		'---- Insert into notification history ----
353 
		OraDatabase.ExecuteSQL "INSERT INTO notification_history (rtag_id, pv_id, user_id, date_time_stamp) "&_
354 
							   " SELECT ins.rtag_id, ins.pv_id, ins.user_id, ins.date_time_stamp"&_
355 
							   "   FROM ("&_
356 
							   Query_String &_
357 
							   "		) ins"
37 brianf 358 
 
13 rsolanki 359 
	End If
37 brianf 360 
 
13 rsolanki 361 
	OraSession.CommitTrans
37 brianf 362 
 
13 rsolanki 363 
	'================= Send Email ==========================
364 
	'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
37 brianf 365 
 
13 rsolanki 366 
	' ---------- Attachments -------------
367 
	oAttachmentsDict.Add "images\i_mail.gif", 		"RM-Envelop"
368 
	oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
37 brianf 369 
 
13 rsolanki 370 
	Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
37 brianf 371 
 
13 rsolanki 372 
	OraDatabase.Parameters.Remove "RTAG_ID"
373 
	OraDatabase.Parameters.Remove "CURRENT_USER"
37 brianf 374 
 
13 rsolanki 375 
End Sub
376 
'-----------------------------------------------------------------------------------------------------------------------------
377 
Function NeedSync ( nPv_id, nRtag_id )
378 
	Dim rsTemp, Query_String
379 
	Query_String = ReadFile( rootPath & "queries\sync_check.sql" )
37 brianf 380 
 
13 rsolanki 381 
	' --------- SQL PARAMETERS ------------
382 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
383 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
384 
	' -------------------------------------
385 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
37 brianf 386 
 
13 rsolanki 387 
	If rsTemp.RecordCount > 0 Then
388 
		NeedSync = TRUE
389 
	Else
390 
		NeedSync = FALSE
391 
	End If
37 brianf 392 
 
13 rsolanki 393 
	rsTemp.Close
394 
	Set rsTemp = nothing
395 
	OraDatabase.Parameters.Remove "RTAG_ID"
396 
	OraDatabase.Parameters.Remove "PV_ID"
397 
End Function
398 
'-----------------------------------------------------------------------------------------------------------------------------
399 
Function Lookup_Document ( sDocNum, outDocTitle, outDoc_id, outDoc_version, outDoc_created  )
400 
	Dim rsDocReg
37 brianf 401 
 
13 rsolanki 402 
	outDocTitle = NULL
403 
	outDoc_id = NULL
404 
	outDoc_version = NULL
405 
	outDoc_created = NULL
37 brianf 406 
 
13 rsolanki 407 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
408 
	rsDocReg.ActiveConnection = DOCREP_conn
37 brianf 409 
 
13 rsolanki 410 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getDocumentFiles '"& sDocNum &"';"
411 
	rsDocReg.CursorType = 0
412 
	rsDocReg.CursorLocation = 2
413 
	rsDocReg.LockType = 3
37 brianf 414 
 
13 rsolanki 415 
	On Error Resume Next
37 brianf 416 
 
13 rsolanki 417 
	rsDocReg.Open()
37 brianf 418 
 
13 rsolanki 419 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
420 
		outDocTitle = rsDocReg("title")
421 
		outDoc_id = rsDocReg("id")
422 
		outDoc_version = rsDocReg("version")
423 
		outDoc_created = rsDocReg("created")
424 
	End If
37 brianf 425 
 
13 rsolanki 426 
	rsDocReg.Close
37 brianf 427 
 
13 rsolanki 428 
	Lookup_Document = Err.Number	' Return Error number
37 brianf 429 
 
13 rsolanki 430 
	Set rsDocReg = nothing
431 
End Function
432 
'-----------------------------------------------------------------------------------------------------------------------------
433 
Function Short_Document_Details ( nDocId, outDocTitle, outDoc_version, outDoc_created  )
434 
	Dim rsDocReg
37 brianf 435 
 
13 rsolanki 436 
	outDocTitle = NULL
437 
	outDoc_version = NULL
438 
	outDoc_created = NULL
37 brianf 439 
 
13 rsolanki 440 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
441 
	rsDocReg.ActiveConnection = DOCREP_conn
37 brianf 442 
 
13 rsolanki 443 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getFileDetails "& nDocId &";"
444 
	rsDocReg.CursorType = 0
445 
	rsDocReg.CursorLocation = 2
446 
	rsDocReg.LockType = 3
37 brianf 447 
 
13 rsolanki 448 
	On Error Resume Next
37 brianf 449 
 
13 rsolanki 450 
	rsDocReg.Open()
37 brianf 451 
 
13 rsolanki 452 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
453 
		outDocTitle = rsDocReg("title")
454 
		outDoc_version = rsDocReg("version")
455 
		outDoc_created = rsDocReg("created")
456 
	End If
37 brianf 457 
 
13 rsolanki 458 
	rsDocReg.Close
37 brianf 459 
 
13 rsolanki 460 
	Short_Document_Details = Err.Number	' Return Error number
37 brianf 461 
 
13 rsolanki 462 
	Set rsDocReg = nothing
463 
End Function
464 
'-----------------------------------------------------------------------------------------------------------------------------
465 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
466 
	Dim rsQry, query
37 brianf 467 
 
13 rsolanki 468 
	query = _
469 
	"   SELECT FIELD_NAME, "&_
470 
	"		   IS_REQUIRED, "&_
471 
	"		   IS_NUMERIC, "&_
472 
	"		   MIN_NUMERIC_VALUE, "&_
473 
	"		   MAX_NUMERIC_VALUE, "&_
474 
	"		   IS_DATE, "&_
475 
	"		   START_DATE, "&_
476 
	"		   END_DATE, "&_
477 
	"		   MIN_STRING_LENGTH, "&_
478 
	" 		   MAX_STRING_LENGTH, "&_
479 
	"		   REGEXP, "&_
480 
	"		   REGEXP_DESCRIPTION "&_
481 
	"	  FROM VALIDATION_RULES"&_
482 
	"	 WHERE field_name IN ("& sFieldList &")"
37 brianf 483 
 
484 
 
13 rsolanki 485 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
486 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
487 
		outobjForm.LoadFieldRules rsQry.GetRows()
37 brianf 488 
 
13 rsolanki 489 
	End If
37 brianf 490 
 
13 rsolanki 491 
	rsQry.Close
492 
	Set rsQry = Nothing
493 
End Sub
494 
'-----------------------------------------------------------------------------------------------------------------------------
495 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
37 brianf 496 
 
497 
	OraDatabase.Parameters.Add "PV_ID", 		nPvId,	ORAPARM_INPUT, ORATYPE_NUMBER
498 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
13 rsolanki 499 
	OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 		sActionTypeName,	ORAPARM_INPUT, ORATYPE_VARCHAR2
500 
	OraDatabase.Parameters.Add "COMMENTS", 		sComments,	ORAPARM_INPUT, ORATYPE_VARCHAR2
37 brianf 501 
 
502 
 
13 rsolanki 503 
	OraSession.BeginTrans
37 brianf 504 
 
13 rsolanki 505 
	OraDatabase.ExecuteSQL _
506 
	"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS );  END;"
37 brianf 507 
 
13 rsolanki 508 
	OraSession.CommitTrans
37 brianf 509 
 
510 
 
13 rsolanki 511 
	OraDatabase.Parameters.Remove "PV_ID"
512 
	OraDatabase.Parameters.Remove "USER_ID"
513 
	OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
514 
	OraDatabase.Parameters.Remove "COMMENTS"
37 brianf 515 
 
13 rsolanki 516 
End Sub
517 
'-----------------------------------------------------------------------------------------------------------------------------
518 
Function GetUsername ( nUser_id )
519 
	Dim rsQry, sQuery
520 
 
521 
	OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
522 
	sQuery = "SELECT full_name FROM users WHERE user_id = :USER_ID"
523 
	Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0))
524 
 
525 
	If rsQry.RecordCount = 1 Then
526 
		GetUsername = rsQry.Fields("full_name").Value
527 
	Else
528 
		GetUsername = nothing
529 
	End If
530 
 
531 
	OraDatabase.Parameters.remove "USER_ID"
532 
	rsQry.Close
533 
	Set rsQry = nothing
534 
End Function
535 
'-----------------------------------------------------------------------------------------------------------------------------
536 
Function GetUserEmail ( nUser_id )
537 
	Dim rsQry, sQuery
538 
 
539 
	OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
540 
	sQuery = "SELECT user_email FROM users WHERE user_id = :USER_ID"
541 
	Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0))
542 
 
543 
	If rsQry.RecordCount = 1 Then
544 
		GetUserEmail = rsQry.Fields("user_email").Value
545 
	Else
546 
		GetUserEmail = nothing
547 
	End If
548 
 
549 
	OraDatabase.Parameters.remove "USER_ID"
550 
	rsQry.Close
551 
	Set rsQry = nothing
552 
End Function
553 
'------------------------------------------------------------------------------------------------------------------
37 brianf 554 
%>