<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Additional Note
'=====================================================
%>
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parPv_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
'----------------------------------------------
%>
<%
Sub New_Additional_Note ( nPv_id, sNote_Title, sNote_Body, nUser_Id )
Dim retErrCode
OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "NOTE_TITLE", sNote_Title, ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "NOTE_BODY", sNote_Body, ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "USER_ID", nUser_Id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "ERRCODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
"BEGIN New_Additional_Note ( :PV_ID,"&_
" :NOTE_TITLE,"&_
" :NOTE_BODY,"&_
" :USER_ID,"&_
" :ERRCODE ); END;"
objEH.CatchORA ( OraSession )
retErrCode = OraDatabase.Parameters("ERRCODE").Value
OraDatabase.Parameters.Remove "PV_ID"
OraDatabase.Parameters.Remove "NOTE_TITLE"
OraDatabase.Parameters.Remove "NOTE_BODY"
OraDatabase.Parameters.Remove "USER_ID"
OraDatabase.Parameters.Remove "ERRCODE"
If retErrCode <> 0 Then
Call RaiseMsg ( enum_MSG_DUPLICATE_AN, sNote_Title )
End If
End Sub
%>
<%
'Process submition
If CBool(Request("action")) AND objAccessControl.UserLogedIn Then
Call New_Additional_Note ( Request("pv_id"), Request("note_title"), Request("note_body"), objAccessControl.UserId )
Call OpenInParentWindow ("fixed_issues.asp?pv_id="& Request("pv_id") & "&rtag_id="& Request("rtag_id") & "#ADDITIONAL_NOTES" )
Call ReloadParentWindow ()
Call CloseWindow
End If
%>
Release Manager