"Invalid Universal ID" Error on LotusScript

Experts,

I am trying to use this script (I ordered a code database from www.codeexamples.com).  The first part is the actualy code. The 2nd part is my version, matching my fields etc.  I only have one field I want tallied, so I had to make changes on this script to make it fit my need (not sure I did that right?)

I'm getting this error:  "Invalid Universal ID" on close of the document.  So, I thought maybe since I didn't have a field capturing the ParentDocumentUNID -- that I should add one to the parent.  So, I added a field called DocID to the PARENT Document with the following formula:
@Text(@DocumentUniqueID)

And I now see the DocumentUniqueID in the document properties -- but it didn't help me with my error -- still getting the SAME error.

I've put this in the QueryClose of my Main Document, and I'm trying to get the totals from my response document.  What also confuses me is the metion/call of a view?  Then I thought -- maybe this code goes in the view -- but the parameters don't match, so it must be document.

Can anyone help me?

Original Code:
--------------------------------
CALCULATE THE TOTAL OF THE A NUM BER/CURRENCY FIELD FROM ALL THE RESPONSE DOCUMENTS AND POPULATE A FIELD IN THE PARENT DOCUMENT WITH THAT TOTAL

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'DECLARING ALL THE VARABLES
Dim count As Integer
Dim workspace As New NotesUIWorkspace
Dim newamount As Variant
Dim currentdoc As NotesDocument
Dim dbase As NotesDatabase
Dim Session As New NotesSession
Dim responsedoc As NotesDocument
Dim parentdoc As notesDocument
Dim collection As NotesDocumentCollection
Dim parentdocitem As NotesItem

Dim item As NotesItem
Dim temp As Double
Dim ret As Variant
Dim view As NotesView

Dim ta As Double
Dim ts As Double
Dim trf As Double
Dim inst As Double
Dim mi As Double
Dim parentID As Variant

'SETTING THE VARIABLES
Set currentdoc = source.Document
Source.AutoReload = False
Set dbase = session.CurrentDatabase
Set responsedoc = source.Document

%REM
GETTING THE PARENT DOCUMENT'S UNIQUE ID FROM THE RESPONSE DOCUMENT AND THEN OPENS
DOCUMENT. THE COLLECTION IS SET TO BE ALL THE RESPONSES OF THE PARENT DOCUMENT.
%END REM

parentID = responsedoc.ParentDocumentUNID
Set parentdoc = dbase.GetDocumentByUNID(ParentID)
Set collection = parentdoc.Responses

'LOOPING THROUGH ALL THE RESPONSE DOCUMENTS TO ADD THE ACTUAL SAVINGS. WHEN DOING THIS
'IT CHECKS FOR WHETHER THE RESPONSE DOCUMENT IS A TAX ABATEMENT, TAX SAVINGS,
'INFRASTRUCTURE, TRAINING FUNDS OR MISCELLANEOUS TYPES, SO THAT THE CORRECT ACTUAL
'SAVINGS IN THAT PARTICULAR SECTION OF THE PARENT DOCUMENT IS POPULATED.

For count = 1 To collection.count
Set responsedoc = collection.GetNthDocument(count)
If responsedoc.TaType(0) = "Ta" Then
ta = ta + responsedoc.TaAmount(0)
End If

If responsedoc.TsType(0) = "Ts" Then
ts = ts + responsedoc.TsAmount(0)
End If

If responsedoc.TrfType(0) = "Trf" Then
trf = trf + responsedoc.TrfAmount(0)
End If

If responsedoc.InstrType(0) = "Instr" Then
inst = inst +responsedoc.InstrAmount(0)
End If

If responsedoc.MiType(0) = "Misc" Then
mi = mi + responsedoc.MiAmount(0)
End If
Next count

parentdoc.TotalAmount = ta + ts + trf + inst + mi
parentdoc.TaActAccSavings = ta
parentdoc.TsActAccSavings = ts
parentdoc.TrfActAccSavings = trf
parentdoc.InstrActAccSavings = inst
parentdoc.MiActAccSavings = mi

'SAVING THE PARENT DOCUMENT AFTER MAKING THE CHANGES.
ret = parentdoc.Save (True, False)

'REFRESHING THE VIEW TO SEE THE CHANGES MADE.
Set View = dbase.GetView("Status")
Call view.Refresh
Call workspace.viewRefresh

End Sub
----------------------------------------------

My code I am using:
--------------------------------------------
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     
'DECLARING ALL THE VARABLES
     Dim count As Integer
     Dim workspace As New NotesUIWorkspace
     Dim newamount As Variant
     Dim currentdoc As NotesDocument
     Dim dbase As NotesDatabase
     Dim Session As New NotesSession
     Dim responsedoc As NotesDocument
     Dim parentdoc As notesDocument
     Dim collection As NotesDocumentCollection
     Dim parentdocitem As NotesItem
     
     Dim item As NotesItem
     Dim temp As Double
     Dim ret As Variant
     Dim view As NotesView
     
     Dim ta As Double
     Dim ts As Double
     Dim trf As Double
     Dim inst As Double
     Dim mi As Double
     Dim parentID As Variant
     
'SETTING THE VARIABLES
     Set currentdoc = source.Document
     Source.AutoReload = False
     Set dbase = session.CurrentDatabase
     Set responsedoc = source.Document
     
%REM
GETTING THE PARENT DOCUMENT'S UNIQUE ID FROM THE RESPONSE DOCUMENT AND THEN OPENS
DOCUMENT. THE COLLECTION IS SET TO BE ALL THE RESPONSES OF THE PARENT DOCUMENT.
%END REM
     
     parentID = responsedoc.ParentDocumentUNID
     Set parentdoc = dbase.GetDocumentByUNID(ParentID)
     Set collection = parentdoc.Responses
     
'LOOPING THROUGH ALL THE RESPONSE DOCUMENTS TO ADD THE ACTUAL SAVINGS. WHEN DOING THIS
'IT CHECKS FOR WHETHER THE RESPONSE DOCUMENT IS A TAX ABATEMENT, TAX SAVINGS,
'INFRASTRUCTURE, TRAINING FUNDS OR MISCELLANEOUS TYPES, SO THAT THE CORRECT ACTUAL
'SAVINGS IN THAT PARTICULAR SECTION OF THE PARENT DOCUMENT IS POPULATED.
     
     For count = 1 To collection.count
          Set responsedoc = collection.GetNthDocument(count)
          TU = TU + responsedoc.RequestQuantity(0)
         
     Next count
     
     parentdoc.TotalLitUsed = TU
     
'SAVING THE PARENT DOCUMENT AFTER MAKING THE CHANGES.
     ret = parentdoc.Save (True, False)
     
'REFRESHING THE VIEW TO SEE THE CHANGES MADE.
     Set View = dbase.GetView("BrochuresInventory")
     Call view.Refresh
     Call workspace.viewRefresh
     
End Sub