<%@ LANGUAGE="VBScript" %> <% Dim Action_Name(50) Dim Action_Description(50) Dim Action_Performed(50) Dim Action_Comments(50) Dim Action_Result(50) Dim Action_Web(50) Dim Action_Order(50) Dim Action_Data_Entry(50) ' ' Hybrid tests 0-Left 1 Right ' Dim H_ID(1) Dim H_Test_Name(10) Dim H_Test_Description(10) Dim H_Test_Performed(10,1) Dim H_Test_Rowid(50,1,1) Dim H_Test_Result(10,1) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmtx = "select to_char(sysdate,'MM/DD/YYYY hh24:mi:ss') dispdat from dual" Set RSx = Connection.Execute(SQLStmtx) SQLStmt3 = "select MOD_TYPE from ASSEMBLY.ASM_MODULE_ID where MODULE_ID='"+Request("REQ_MODULE_ID")+"'" Set RS3 = Connection.Execute(SQLStmt3) SQLStmt0 = "select ACTION,DESCRIPTION,WEBACCESS,ACTION_ORDER from ASSEMBLY.ASM_MODULE_ACTION where MODULES LIKE '%"+CStr(RS3("MOD_TYPE"))+"%' order by ACTION_ORDER" Set RS0 = Connection.Execute(SQLStmt0) SQLStmt1 = "select LOGDATE, OPERATOR, LOCATION, ACTION, CONFIG, COMMENTS from ASSEMBLY.ASM_MODULE_LOG where MODULE_ID='"+Request("REQ_MODULE_ID")+"' order by LOGDATE" Set RS1 = Connection.Execute(SQLStmt1) SQLStmt4 = "select HYBRID_ID,HYBRID_POS from ASSEMBLY.ASM_HYBRID_BOND_ID where MODULE_ID='"+Request("REQ_MODULE_ID")+"'" Set RS4 = Connection.Execute(SQLStmt4) SQLStmt5 = "select distinct ACTION from ASSEMBLY.ASM_MOD_MEASUREMENT_LIST" Set RS5 = Connection.Execute(SQLStmt5) SQLStmt6 = "select ahbi.HYBRID_ID,ahbi.HYBRID_POS,ahl.ACTION,ahl.ROWID,ahl.WURST_ID from ASSEMBLY.ASM_HYBRID_BOND_ID ahbi,ASSEMBLY.ASM_HYBRID_LOG ahl " SQLStmt6 = SQLStmt6 & " where ahbi.HYBRID_ID=ahl.HYBRID_ID " SQLStmt6 = SQLStmt6 & " and ahl.ACTION like 'M_%' " SQLStmt6 = SQLStmt6 & " and MODULE_ID='"+Request("REQ_MODULE_ID")+"' ORDER BY ahl.LOGDATE" Set RS6 = Connection.Execute(SQLStmt6) ' ' select two-hybrid modules ' Select Case RS3("MOD_TYPE") Case "MOD1","MOD2","MOD6","M7T2","M7T3","MO2Y","MO2X" nhyb=2 Case "M4T4","M4T5","M5T4","M5T5","OCTA","MVIL","MVIR","MVOL","MVOR","RING" nhyb=1 Case Else nhyb=1 End Select H_ID(0)="-" H_ID(1)="-" naction=0 ntest=0 Do While Not RS0.EOF Action_Name(naction)=CStr(RS0("ACTION")) Action_Description(naction)=RS0("DESCRIPTION") Action_Performed(naction)=0 Action_Comments(naction)="" Action_Result(naction)="N/A" Action_Web(naction)=CInt(RS0("WEBACCESS")) Action_Order(naction)=CInt(RS0("ACTION_ORDER")) Action_Data_Entry(naction)=0 naction=naction+1 If Left(RS0("ACTION"),2)="M_" Then H_Test_Name(ntest)=CStr(RS0("ACTION")) H_Test_Description(ntest)=RS0("DESCRIPTION") For i=0 To 1 H_Test_Performed(ntest,i)=0 H_Test_Result(ntest,i)=0 For j=0 To 1 H_Test_Rowid(ntest,i,j)="-" Next Next ntest=ntest+1 End If RS0.MoveNext Loop naction=naction-1 ntest=ntest-1 ' ' fill status arrays, brute force ! ' Do While Not RS1.EOF Action_Done=CStr(RS1("ACTION")) For iaction=0 To naction If Action_Done=Action_Name(iaction) Then Action_Performed(iaction)=Action_Performed(iaction)+1 Action_Comments(iaction)=RS1("COMMENTS") Action_Result(iaction)=RS1("CONFIG") Exit For End If Next RS1.MoveNext Loop Do While Not RS4.EOF If RS4("HYBRID_POS")="R" Then ipos=1 Else ipos=0 End If H_ID(ipos)=RS4("HYBRID_ID") RS4.MoveNext Loop ' ' select which actions have some data to be entered ' Do While Not RS5.EOF Action_In_Table=CStr(RS5("ACTION")) For iaction=0 To naction If Action_In_Table=Action_Name(iaction) Then Action_Data_Entry(iaction)=1 End If Next RS5.MoveNext Loop ' ' find test data in hybrid logs ' special_test=0 Do While Not RS6.EOF position=RS6("HYBRID_POS") If position="R" Then ipos=1 Else ipos=0 End If Test_In_Table=RS6("ACTION") For itest=0 To ntest If Test_In_Table=H_Test_Name(itest) Then H_Test_Performed(itest,ipos)=H_Test_Performed(itest,ipos)+1 H_Test_Rowid(itest,ipos,CInt(RS6("WURST_ID")))=RS6("ROWID") Exit For End If Next ' ' Set the module test logic. This assumes that the tests have the same name in Hybrid and Module name definition lists ' For iaction=0 To naction If Test_In_Table=Action_Name(iaction) Then Action_Performed(iaction)=Action_Performed(iaction)+1 Exit For End If Next If Test_In_Table="M_spec" Then special_test=special_test+1 End If RS6.MoveNext Loop %> Module Status

MODULE ID : <%= Request("REQ_MODULE_ID")%>

<% For iaction=0 To naction If Not (Action_Name(iaction)="M_spec" and special_test=0) Then ' %> <% End If Next 'List of all actions %>
Action Status  
<%=Action_Description(iaction) %> <% ' ' Action Status (little graphic signs) ' If Action_Performed(iaction)>0 Then If Action_Web(iaction)>0 Then If Action_Result(iaction)="OK" Then If Action_Data_Entry(iaction)=1 Then %>

&REQ_ACTION=<%=Action_Name(iaction)%>"> <% Else %>

<% End If Else If Action_Data_Entry(iaction)=1 Then %>

&REQ_ACTION=<%=Action_Name(iaction)%>&"> <% Else %>

<% End If End if Else ' Little graphic signs for automatic data If Left(Action_Name(iaction),2)<>"M_" Then %> WB00969_.GIF (261 bytes)  <% Else For itest=0 To ntest If Action_Name(iaction)=H_Test_Name(itest) Then For i=0 To 1 If H_Test_Performed(itest,i)>0 Then %> WB00969_.GIF (261 bytes) <% End If Next End If Next End If End If %> <%Else%>  <% End If%> <% If Action_Performed(iaction)>1 and Action_Web(iaction)>0 Then %> excl_pt.gif (159 bytes) <% End If%>

<% If Action_Web(iaction)>0 Then If Action_Data_Entry(iaction)=1 Then %>

&REQ_ACTION=<%=Action_Name(iaction)%>">Record <% Else %> &REQ_ACTION=<%=Action_Name(iaction)%>">Add <% End If Else If Action_Performed(iaction)>0 and Action_Name(iaction)="Create New Module" Then %> ">Picture <% Elseif Action_Performed(iaction)>0 and (Left(Action_Name(iaction),2)="S_")Then %> ">Survey <% Elseif Action_Performed(iaction)>0 and (Left(Action_Name(iaction),2)="M_")Then For itest=0 To ntest If Action_Name(iaction)=H_Test_Name(itest) And Not (H_Test_Name(itest)="M_s1" Or H_Test_Name(itest)="M_s2") Then%>

<% For i=0 to 1 %> <% Next %> <% For i=0 to 1 %> <% Next %> <% If Not (Left(H_Test_Name(itest),3)="M_s") Then %> <% For i=0 to 1 %> <% Next %> <% End If If Not (Left(H_Test_Name(itest),3)="M_s") Then %> <% For i=0 to 1 %> <% Next %> <% End If If Not (Left(H_Test_Name(itest),3)="M_s") Then %> <% For i=0 to 1 %> <% Next %> <% End If If (H_Test_Name(itest)="M_s3") Then %> <% For i=0 to 1 %> <% Next %> <% End If If (H_Test_Name(itest)="M_s3") Then %> <% For i=0 to 1 %> <% Next %> <% End If If (H_Test_Name(itest)="M_s3") Then %> <% For i=0 to 1 %> <% Next %> <% End If %>
<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% If H_Test_Performed(itest,i)>0 Then %>

<% Elseif ((i=0) or (i=1 and nhyb=2)) Then %> <% End If %>

<% End If Next End If End If %>

Database Time is  <%=Cstr(RSx("DISPDAT")) %>

Note that only the status of the LATEST action is displayed in the table. Manual actions recorded more than once are marked with an exclamation mark: excl_pt.gif (159 bytes). The complete record of actions is available in the ">complete log display.
<% If nhyb=2 Then %> <% Else %> <% End If %> <% If nhyb=2 Then %> <% Else If H_ID(0) <>"-" Then hidd=H_ID(0) Elseif H_ID(1) <> "-" Then hidd=H_ID(1) Else hidd="Unknown" End If%> <% End If %>
Left Hybrid Right HybridHybrid
<% If H_ID(0) <>"-" Then %>

<%=H_ID(0)%> <% Else Response.write(" ") End If%>

 <% If H_ID(1) <>"-" Then %>

<%=H_ID(1)%> <% Else Response.write(" ") End If%>

<%=hidd%>
Explanation of symbols
Not Done Empty Box   

Clickable Results OK

 Pedestal Noise
Automatic Action Completed WB00969_.GIF (261 bytes)   

Manual Logging: NOT OK

 Gain Pedestal Correlation
Manual Logging: OK   

Clickable Results NOT OK

 Missing Test Signal Curve
Hit Distribution Signal Distribution Signal to Noise Ratio

 

<% Connection.Close %>