| Line 500... |
Line 500... |
| 500 |
Set rsQry = nothing
|
500 |
Set rsQry = nothing
|
| 501 |
|
501 |
|
| 502 |
End If
|
502 |
End If
|
| 503 |
End Function
|
503 |
End Function
|
| 504 |
'-----------------------------------------------------------------------------------------------------------------------------
|
504 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
505 |
' Note: Some OraDatabase.Parameters may be in use when this function is called
|
| - |
|
506 |
' Attempt to use unqiue names to avaid issues
|
| - |
|
507 |
'
|
| 505 |
Sub Log_Action ( nPvId, sActionTypeName, sComments )
|
508 |
Sub Log_Action ( nPvId, sActionTypeName, sComments )
|
| 506 |
|
509 |
|
| 507 |
OraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER
|
510 |
OraDatabase.Parameters.Add "LA_PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 508 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
511 |
OraDatabase.Parameters.Add "LA_USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 509 |
OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sActionTypeName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
512 |
OraDatabase.Parameters.Add "LA_ACTION_TYPE_NAME", sActionTypeName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 510 |
OraDatabase.Parameters.Add "COMMENTS", sComments, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
513 |
OraDatabase.Parameters.Add "LA_COMMENTS", sComments, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 511 |
|
514 |
|
| 512 |
objEH.TryORA ( OraSession )
|
515 |
objEH.TryORA ( OraSession )
|
| 513 |
On Error Resume Next
|
516 |
On Error Resume Next
|
| 514 |
|
517 |
|
| 515 |
OraDatabase.ExecuteSQL _
|
518 |
OraDatabase.ExecuteSQL _
|
| 516 |
"BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS ); END;"
|
519 |
"BEGIN Log_Action ( :LA_PV_ID, :LA_ACTION_TYPE_NAME, :LA_USER_ID, :LA_COMMENTS ); END;"
|
| 517 |
|
520 |
|
| 518 |
objEH.CatchORA ( OraSession )
|
521 |
objEH.CatchORA ( OraSession )
|
| 519 |
|
522 |
|
| 520 |
OraDatabase.Parameters.Remove "PV_ID"
|
523 |
OraDatabase.Parameters.Remove "LA_PV_ID"
|
| 521 |
OraDatabase.Parameters.Remove "USER_ID"
|
524 |
OraDatabase.Parameters.Remove "LA_USER_ID"
|
| 522 |
OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
|
525 |
OraDatabase.Parameters.Remove "LA_ACTION_TYPE_NAME"
|
| 523 |
OraDatabase.Parameters.Remove "COMMENTS"
|
526 |
OraDatabase.Parameters.Remove "LA_COMMENTS"
|
| 524 |
End Sub
|
527 |
End Sub
|
| 525 |
'-----------------------------------------------------------------------------------------------------------------------------
|
528 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 526 |
Function GetUsername ( nUser_id )
|
529 |
Function GetUsername ( nUser_id )
|
| 527 |
Dim rsQry, sQuery
|
530 |
Dim rsQry, sQuery
|
| 528 |
|
531 |
|
| Line 633... |
Line 636... |
| 633 |
OraDatabase.Parameters.Add "CHANGE_TYPE", nChangeType, ORAPARM_INPUT, ORATYPE_CHAR
|
636 |
OraDatabase.Parameters.Add "CHANGE_TYPE", nChangeType, ORAPARM_INPUT, ORATYPE_CHAR
|
| 634 |
|
637 |
|
| 635 |
objEH.TryORA ( OraSession )
|
638 |
objEH.TryORA ( OraSession )
|
| 636 |
On Error Resume Next
|
639 |
On Error Resume Next
|
| 637 |
|
640 |
|
| 638 |
OraDatabase.ExecuteSQL _
|
- |
|
| 639 |
"UPDATE package_versions pv SET pv.change_type = '"& nChangeType &"' WHERE pv.pv_id = "& nPvId
|
641 |
OraDatabase.ExecuteSQL "UPDATE package_versions pv SET pv.change_type = :CHANGE_TYPE WHERE pv.pv_id = :PV_ID"
|
| 640 |
|
642 |
|
| 641 |
objEH.CatchORA ( OraSession )
|
643 |
objEH.CatchORA ( OraSession )
|
| 642 |
|
644 |
|
| 643 |
OraDatabase.Parameters.Remove "PV_ID"
|
645 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 644 |
OraDatabase.Parameters.Remove "CHANGE_TYPE"
|
646 |
OraDatabase.Parameters.Remove "CHANGE_TYPE"
|