| Line 530... |
Line 530... |
| 530 |
' Note: ORAPARM_OUTPUT default size is 127 bytes. This is too short for some
|
530 |
' Note: ORAPARM_OUTPUT default size is 127 bytes. This is too short for some
|
| 531 |
'
|
531 |
'
|
| 532 |
Function Get_Pkg_Vcs_Tag(apv_id)
|
532 |
Function Get_Pkg_Vcs_Tag(apv_id)
|
| 533 |
OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
533 |
OraDatabase.Parameters.Add "PV_ID", apv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 534 |
OraDatabase.Parameters.Add "RETURN_CODE","xxxx", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
534 |
OraDatabase.Parameters.Add "RETURN_CODE","xxxx", ORAPARM_OUTPUT, ORATYPE_VARCHAR2
|
| 535 |
OraDatabase.Parameters("RETURN_CODE").MinimumSize = 150
|
535 |
OraDatabase.Parameters("RETURN_CODE").MinimumSize = 200
|
| 536 |
On Error Resume Next
|
536 |
On Error Resume Next
|
| 537 |
OraDatabase.ExecuteSQL ("BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;")
|
537 |
OraDatabase.ExecuteSQL ("BEGIN :RETURN_CODE := PK_RMAPI.RETURN_VCS_TAG( :PV_ID ); END;")
|
| 538 |
Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
|
538 |
Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
|
| 539 |
On Error Goto 0
|
539 |
On Error Goto 0
|
| 540 |
OraDatabase.Parameters.Remove "PV_ID"
|
540 |
OraDatabase.Parameters.Remove "PV_ID"
|