| Line 31... |
Line 31... |
| 31 |
On Error Resume Next
|
31 |
On Error Resume Next
|
| 32 |
|
32 |
|
| 33 |
OraDatabase.Parameters.Add "PROC_NAME", Request("proc_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
33 |
OraDatabase.Parameters.Add "PROC_NAME", Request("proc_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 34 |
OraDatabase.Parameters.Add "PROD_ID_LIST", Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
34 |
OraDatabase.Parameters.Add "PROD_ID_LIST", Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 35 |
OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
35 |
OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
36 |
OraDatabase.Parameters.Add "RUN_AS", Request("run_as"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
37 |
OraDatabase.Parameters.Add "PKG_OWNER", Request("pkg_owner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
38 |
OraDatabase.Parameters.Add "INTERFACE", Request("interface"), ORAPARM_INPUT, ORATYPE_VARCHAR
|
| 36 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
39 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 37 |
|
40 |
|
| 38 |
objEH.TryORA ( OraSession )
|
41 |
objEH.TryORA ( OraSession )
|
| 39 |
|
42 |
|
| 40 |
OraDatabase.ExecuteSQL _
|
43 |
OraDatabase.ExecuteSQL _
|
| 41 |
"BEGIN pk_Product.Remove_Process ( :PROC_NAME, :PROD_ID_LIST, :OS_ID, :USER_ID ); END;"
|
44 |
"BEGIN pk_Product.Remove_Process ( :PROC_NAME, :PROD_ID_LIST, :OS_ID, :RUN_AS, :PKG_OWNER, :INTERFACE, :USER_ID ); END;"
|
| 42 |
|
45 |
|
| 43 |
'--- Log Action ---
|
46 |
'--- Log Action ---
|
| 44 |
'objEH.LogAction _
|
47 |
'objEH.LogAction _
|
| 45 |
'objAccessControl.UserId, _
|
48 |
'objAccessControl.UserId, _
|
| 46 |
'enumAT_EVENT_COMMENT, _
|
49 |
'enumAT_EVENT_COMMENT, _
|
| Line 52... |
Line 55... |
| 52 |
objEH.CatchORA ( OraSession )
|
55 |
objEH.CatchORA ( OraSession )
|
| 53 |
|
56 |
|
| 54 |
OraDatabase.Parameters.Remove "PROC_NAME"
|
57 |
OraDatabase.Parameters.Remove "PROC_NAME"
|
| 55 |
OraDatabase.Parameters.Remove "PROD_ID_LIST"
|
58 |
OraDatabase.Parameters.Remove "PROD_ID_LIST"
|
| 56 |
OraDatabase.Parameters.Remove "OS_ID"
|
59 |
OraDatabase.Parameters.Remove "OS_ID"
|
| - |
|
60 |
OraDatabase.Parameters.Remove "RUN_AS"
|
| - |
|
61 |
OraDatabase.Parameters.Remove "PKG_OWNER"
|
| - |
|
62 |
OraDatabase.Parameters.Remove "INTERFACE"
|
| 57 |
OraDatabase.Parameters.Remove "USER_ID"
|
63 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 58 |
|
64 |
|
| 59 |
End Sub
|
65 |
End Sub
|
| 60 |
'--------------------------------------------------------------------------------------------------------------------------
|
66 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 61 |
%>
|
67 |
%>
|
| Line 63... |
Line 69... |
| 63 |
'**************************** M A I N ******************************
|
69 |
'**************************** M A I N ******************************
|
| 64 |
' --- Form is Valid ---
|
70 |
' --- Form is Valid ---
|
| 65 |
Call RemoveProcessFromOs()
|
71 |
Call RemoveProcessFromOs()
|
| 66 |
|
72 |
|
| 67 |
If objEH.Finally Then
|
73 |
If objEH.Finally Then
|
| 68 |
Call OpenInWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
|
74 |
Call OpenInWindow ( "Os_Processes.asp?bom_id="& Request("bom_id") &"&os_id="& Request("os_id") &"" )
|
| 69 |
End If
|
75 |
End If
|
| 70 |
'**********************************************************************
|
76 |
'**********************************************************************
|
| 71 |
%>
|
77 |
%>
|
| 72 |
<%
|
78 |
<%
|
| 73 |
'------------ RUN AFTER CODE RUN --------------
|
79 |
'------------ RUN AFTER CODE RUN --------------
|