Sub Initialize %REM REFRESH OSHA INFO Update ALL OSHA Numbers in Current Agenda Headers %END REM
Const LOGNAME = “RefreshOshaInfo”
REM Notes Handles
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim vc As NotesViewEntryCollection
Dim vcEntry As NotesViewEntry
Dim doc As NotesDocument REM
Dim DC As NotesDocumentCollection
Dim RRembview As NotesView
Dim item As Variant
Dim strfield As String
Dim temp As Variant
Dim Count As Integer
Dim agendaloc As Integer
Dim agyear As Integer
Dim agmonth As Integer
Dim locv As NotesView
Dim Headerdoc As NotesDocument

Dim workcount As Integer
REM Other
Dim nTotalNeededUpdate As Integer
Dim nTotalProcessed As Integer
Dim bUpdate As Boolean
Dim ErrorMsg As String
REM Saved Fields
Dim nLostTimeDays As Integer
Dim nNonLostTimeDays As Integer
Dim nYTDAccidents As Integer

Dim nYTDDriverAccidents As Integer
Dim bodyarray As NotesDocument
Dim Ekey As Variant
Dim adoc As NotesDocument
Dim cUpdate As Boolean
REM Dim nActionitems As Integer
REM Dim agendaitem As String
Dim ActionItems As Integer
Dim aview As NotesView
Dim workA As Integer
Dim ALcount As Boolean
Dim doccount As Integer

On Error Goto ProcessError
Call AgentLogAction(LOGNAME, “<——Start——>”)
Set db = ss.CurrentDatabase
Set aview = db.GetView(“RREMB”) ‘added 2/16/2011
ErrorMsg=”View CurrHeaders NOT Found”
Set vw = db.GetView(“CurrHeaders”) ‘All Current Agenda Headers
Set vc = vw.AllEntries
ErrorMsg = “View collection NOT Found”
Set vcEntry = vc.GetFirstEntry ErrorMsg=”"
Do While Not (vcEntry Is Nothing)
Set doc = vcEntry.Document
REM AM changes 2/16/2011
Ekey = doc.Loc(0)& “~” & doc.mtgyy(0) & “~” & doc.mtgmm(0)
Set DC=
aview.GetAllDocumentsByKey(Ekey,True)

WorkA = dc.count

THIS IS WHERE I NEED THE Help

If workA = doc.actionitems(0) Then
alcount =True
Else
doc.ActionItems = dc.count

REM doc.ActionItems(0) = dc.Count
End If
nTotalProcessed = nTotalProcessed + 1
REM Save current values
nLostTimeDays= doc.LostTimeDays(0)
nNonLostTimeDays = doc.NonLostTimeDays(0)
nYTDAccidents = doc.YTDAccidents(0)
nYTDDriverAccidents= doc.YTDDriverAccidents(0)

REM Update Osha Numbers for this doc
Call GetOshaInfo(doc.Loc(0), doc)
bUpdate = False
bUpdate = bUpdate Or alcount
bUpdate = bUpdate Or ( nLostTimeDays <> doc.LostTimeDays(0) )
bUpdate = bUpdate Or ( nNonLostTimeDays <> doc.NonLostTimeDays(0) )
bUpdate = bUpdate Or ( nYTDAccidents <> doc.YTDAccidents(0) )
bUpdate = bUpdate Or ( nYTDDriverAccidents <> doc.YTDDriverAccidents(0) )
If bUpdate Then
Call doc.Save (True,False)
nTotalNeededUpdate = nTotalNeededUpdate + 1
End If Print Right(“00000″ + Cstr(nTotalProcessed), 5) & ” OSHA Headers processed – ” + Right(“00000″ + Cstr(nTotalNeededUpdate), 5) & ” OSHA Headers needed updates.” Set vcEntry = vc.GetNextEntry(vcEntry) Loop Finish: Call AgentLogAction(LOGNAME, Right(“00000″ + Cstr(nTotalProcessed), 5) & ” OSHA Headers processed.”) Call AgentLogAction(LOGNAME, Right(“00000″ + Cstr(nTotalNeededUpdate), 5) & ” OSHA Headers needed updates.”) Call AgentLogAction(LOGNAME, “<——End——->”) Exit Sub ProcessError: Stop Call AgentLogError(LOGNAME,0, “Line: ” & Erl() & “Error:” & Err() & “=” & Error() ) Resume POExit POExit: End Sub