Australian Personal Computer 1999 April/APC443.iso/features/grpware/notes/50lbwic.exe/DATA1.CAB/DominoDesignerDominoDesignerData/teamrm50.ntf

Lotus Notes Storage Facility | 1999-01-29 | 1.6 MB | 20,413 lines

TeamRoom (5.0)
TeamRoom
#1StdR50TeamRoom
kLl1?B
!+\,?
KySp=Y
#^@cR
a=ZR'g
/$lrQ
CN=Lotus Notes Template Development/O=Lotus Notes
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes'
)/FWKo
Y###########################################
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
$Flags
    0SL1S4S5S3724
$TITLE
CN=Debbie Branco/O=Iris##############
CN=Debbie Branco/O=Iris
CN=Debbie Branco/O=Irisd:\data\teamrm50.ntf
fffffffffffffn
ffffffffff
llllll9
TeamRoom NavigatorAll Documents($All)MasterTRFramesetTeamRoom (5.0)
TeamRoom
#1StdR50TeamRoomJRF##########################
00000026RJ
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
:Add Topic To Newsletter Profile
E4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(Initialize ThreadIds)
If you want to convert existing documents such that they are identified as threads, run this once against all documents.EHCN=Catherine Duffy/OU=NAHQ/O=Lotus4fL3
Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes=
30719
CN=Ryan Jansen/O=Iris#################################################
2CN=Ryan Jansen/O=Iris
30719
CN=Ryan Jansen/O=Iris#############################
Shared Response HeaderCUA3
AbbreviateFromThreadIndentThreadSortExpireDate$$ReturnNewsLetterSubjectParentFormImmediateParentSubjectOriginalSubjectReaders
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
(Extra Bullets Highlight at 6)
526Helvetica626HelveticaG3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
(Extra Bullets Highlight at 7)
526Helvetica626HelveticaG3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
(Threads)2
MainIDV
    0S0E
threadindent
[<a href=""
?OpenDocument">]
Subject
[</a> <!--"
-->]"
    0S1S2S3S4S8S9S10S11S2E12S24S25S26S31S
$155$157ThreadSort$Conflict
    L1S1"
$155ThreadSort
$155ID&
MainIDV
    0S0E
threadindent
[<a href=""
?OpenDocument">]
Subject
[</a> <!--"
-->]"
    0S1S2S3S4S8S9S10S11S2E12S24S25S26S31SThreadSort&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes(
##########################################################
DoclinkParent
    4S6S
DoclinkParent
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
Z(WebRemoveThread)
This agent removes the selected thread from the users Interest Profile.  It is the querysaveagent on the RemoveThread form.EH4fL3u
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
(Extra Bullets Highlight at 5)
526Helvetica626HelveticaG3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
&(WebAddTopic)
This agent adds the current main topic to the users Interest Profile.EH4f3Lu
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
 DiscussionRoutiness34Q1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
KySp=Y
(WebInterestProfileOpen)
WebQueryOpen agent on the Interest ProfileEH4fL3u
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
(WebInterestProfileSave)
Web Query Save agent for Interest Profile formEH4fL3u
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
RemoveThreadRemoveThreadDC
RemovesubjectsSaveOptionsArchiveThreadsHTTP_Referer
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
$$ReturnGeneralErrorCDH
MessageString
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
db_1$$ReturnAuthenticationFailureCDH
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
db_1$$ReturnAuthorizationFailureCDH
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
(People Lookup)|PeopleLookup
$3Email$Conflict$REF
ParticipantProfile
Participant Profile
status
    L1S3S4S5S6S7S8S10S11S12S13S1
$3FullName*
EmailEmail Address&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
    CN=Mike Johnston/O=Jacobson
(Event Lookup)|EventLookup
EventSummary
EventDate
EventDate$0EventDateEventDetail$Conflict$REF
Event
Status
    L1S2S3S4S5S6S7S1
EventDate$0
EventDate$0Event Title & Date>
EventSummary
EventDate
EventDateEventDetailEvent Summary&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
(SubteamLookup)|SubteamLookup
STName
STName
STNameSTMembersPosition$Conflict$REF
DefSubTeam
Subteam
Status
    L1S3S4S5S6S7S8S10S11S12S13S1
STName
STNameSubteam Name
STName
STName
STMembersMembersPositionRole&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
    (MissionLookup) |MissionLookup
FormTeamNameMissionCategoriesDocTypeDefaultFilingInterval$Conflict
Mission
    L1S2S3S1
FormMissionTeamNameTeam nameMissionStatementCategoriesCategoriesDocTypeComm TypesDefaultFilingIntervalDefault Filing Interval&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
TeamRoom Setup & Participants|TeamOverview1$
$19$35$40f
(Help)
TeamRoomVTeamOverview
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
AutoFileAgent
Enable/Disable this agent through the TeamRoom Setup*1Sf3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
DInactive Documents|Filed1'
$135$129$121
$129^
(Help)
TeamRoomVFiled
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
##########################################################
##########################################################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ACLDigest
Times New Roman
history.back()
    Go Back
    0S0E
    Close Window
Using TeamRoom 5.0
    This database can be used only by Notes R5.0 and later clients and Domino servers.
    JavaScript must be enabled on the Notes client.
    The TeamRoom Setup
    The TeamRoom Setup is the first piece of collaborative teamwork the team does together.  It is divided into sections:
    Team Name & Purpose, Participants, Categories, Document Types,
    and
    Milestones/Events
    .  The last section,
    Advanced Options,
     lets you set up agents that send newsletters, reminders, and do the filing in the database.  In order for the database to be fully functional, a TeamRoom Setup document must be created.
    By defining these elements at the outset, the team provides context for their use of the TeamRoom.  These elements define the
    Why, What
     (content of work),
    How
    (use of the TeamRoom) and
    When
    of the project.  By giving structure to the common language and goals of your team, the TeamRoom Setup forms the core of the TeamRoom, and begins the process of building team commitment and focus.
    TeamRoom Documents
    There are an unlimited number of Document Types that can be defined in a TeamRoom.  These are defined on the TeamRoom Setup.  Four default document types are provided:  Discussion, Action Item, Meeting, and Reference.  The Document form is set up so that fields pertinent to the document type will display ("form morphing").  For example, "Meeting Time" will only display when the document type "Meeting" is selected.
    Below is a description of each default document type.  Any additional document types that you specify in the TeamRoom Setup will have the features listed next to "Discussion" below.
    Document Type
    Fields
    Comments / features
    Discussion
    Review By Date
    For Review By
    Category
    Associated Event
    Associated Subteam
    You can enter people's names who need to look at the document; you do not need to set a Review By Date.
    If you enter a Review By Date, you must enter the name of at least one reviewer.
    People who are listed as reviewers are provided with a hotspot "Mark Reviewed by Me".  They will have Editor access to the document until everybody on the reviewer list has clicked this hotspot.
    The "Mark reviewed by me" hotspot is only available when the document is in Edit mode; it is not available on new documents.
    Action Item
    Due Date
    Assigned To
    Category
    Associated Event
    Associated Subteam
    You can enter people's names who need to complete the Action Item; you do not need to set a Due Date.
    f you enter a Due Date, you must assign the action item to at least one person.
    Everybody on the Assigned To list has Editor access to the document until the hotspot "Mark complete" has been clicked by someone.  Anyone on the reviewer list can mark an action item as completed.  The "Mark complete" hotspot is only available when the document is in Edit mode; it is not available on new documents.
    Meeting
    Meeting Date
    Meeting Time
    Duration
    Meeting Location
    Attendees
    Category
    Associated Event
    Associated Subteam
    A button called "Add To My Calendar" is provided, which adds the meeting information to the user's personal calendaring & scheduling profile.  The button is available on documents being read or edited, but it is not available on new documents.
    Reference
    Review By Date
    For Review By
    Category
    Associated Event
    Associated Subteam
    Same as Discussion above.
    Active versus Inactive Documents
    All documents in the team room (except the TeamRoom Setup) are considered "Active" when they are created.  Only active Main Documents and their responses display in the views in the Team Documents list (shown in the left frame); only active Participants, Subteams, and Milestones/Events display in the TeamRoom Overview view, etc.  When a document is marked "inactive", it will only display in the "Inactive Documents" view or the "Index of All Documents" view.
    Marking documents "inactive"
    Setup:  In the TeamRoom Setup's Advanced panel, specify the default interval for Main Documents to be marked inactive.
    Notes users:
    Main Documents:
     When a document is created, it will automatically display the default date that the document will be marked as "inactive".  When the Auto File agent (described below) runs, the documents will be rendered inactive.
    Participants, Subteams, and Milestones/Events:
      Switch to the TeamRoom Overview view and select the document(s) you wish to mark inactive.  Click the "Set status to inactive" action button.  (You can also edit individual documents and click the "inactive" radio button.)
    Team/Subteam Status:
    Switch to the Active Team/Subteam Status view and select the document(s) you wish to mark inactive.  Click the "Set status to inactive" action button.  (You can also edit individual documents and click the "inactive" radio button.)
    Web browser users:
    Main Documents:  same as Notes users.
    Participants, Subteams, Milestones/Events, and Team/Subteam Status:  Edit the individual documents and click the "inactive" radio button.
    Views
    Some of the views in this template display icons that tell the user the status of a document.  For example,
     displays when the review/completion of a Discussion or Action Item has passed its due date and is still open.  This feature can cause a delay in opening the view, because it must refresh every time the view is selected.  This will become more apparent when the view has many documents.  Views marked with an asterisk (*) below may display this behavior.
    There are a number of things that can be done to alleviate this problem, if the performance has degraded to an unacceptable level:
    Remove the column from the view
    Change the view refresh attribute to refresh automatically every 2-3 hours, rather than every time the view is accessed.
    Team Documents
    by Date*:
    Contains active documents, sorted by the date the document was .  You can click on column headings to sort the view "on the fly" by Document Type and by Author.
    by Milestone/Event, by Category, by Subteam:
     Contain active documents, categorized by Milestone/Event, Category, and Subteam, respectively..
    Open By Assignment*:
    Categorized by assignee.  Includes all Action Items that have an Open status, and Discussion documents that have not been fully reviewed.  If a Discussion is assigned to two people and one has completed their review, the document will not appear under their name in this view.
    Open by Due Date*:
    Sorted by due date.  All Action Items which are Open, and all Discussion documents that have not been fully reviewed.
    Personal Documents
    (Notes users only) Documents assigned to me*
      Includes both open and completed Main Documents and their responses that are assigned to you.
    Notes users only) Documents I Created:
      Includes all documents that you created.
    (All users) My Newsletter Profile:
    Allows the user to set up notification of new/modified documents which match the user's interests.  These interests can include documents by specific author, words or phrases that appear in the Subject of the documents, specific categories, etc.  This feature is not available to Anonymous web users.
    Project Information
    This is where one looks for all project information pertaining to the TeamRoom:  the TeamRoom Setup, Status documents, team Calendar, and the Index and Inactive documents.
    TeamRoom Overview:
    The TeamRoom Setup document and all participants, subteams, and milestone/event documents are in this view.
    Calendar*:
    The calendar will display Action Item documents on their due date, Meeting documents on their meeting date, and Milestone/Event documents on the date of the event.
    Active Team/Subteam Status:
    Shows the active team status and subteam status documents
    Index of all documents:
      Shows all of the documents in the TeamRoom.
    Inactive documents:
      Shows only documents which have been marked "inactive".
    Leader/Facilitator Options
    (only available to users with Editor or higher access to the TeamRoom database)
    This provides easy access to the TeamRoom Setup.  Is is also where you create a Team or Subteam status document, which alerts the team of new happenings.  When you're ready to "close" the TeamRoom, create a team status that summarizes the project, the outcome, and the lessons learned.
    Newsletter Profiles:
    Setting up your Newsletter Profile:
    Click "My Newsletter Profile to bring up your personal interest profile document. You can elect to be notified via a newsletter if certain conditions are met in documents created in the TeamRoom database.  These conditions can include the appearance of your name or phrases that you designate.  The newsletter profile will not display in any visible view, so this is the only way to access it.
    Adding the current discussion topic to your Newsletter Profile:
    Notes client users:
    Use the navigator item Newsletter Profile to edit and change your personal profile.  Use the Action menu item Add Selected Topic To Newsletter Profile  to add the current discussion topic to the list of items you wish to track via newsletter.
    Web browser users:
    Open the Main Topic which you would like to be added to your Newsletter profile and select the Add Topic to Newsletter Profile hotspot.  This action is available whether you are reading or editing a main topic document.  This feature is not available to Anonymous web users.
    Subscriptions (Notes client only):
    [the Subscription paragraphs are hidden from web browser users]
    This template has a customized subscription form, containing the same fields as are found in the Interest Profile.  Select Create-Subscription to create a new subscription in your Headline database.
    Converting Interest Profiles to Subscriptions:
      If you have an existing interest profile, you can convert its data into a subscription.  Select Actions-Convert Interest Profile to Subscription.  Note that this action will convert the data and then delete your existing interest profile.  It can only be used by Notes clients running R5.0 or higher.  Subscriptions are not available for the web at this time.
    To mark a document Private:
    You can use the "Mark Private" and
    "Mark Public" actions in the template to control whether anyone other than yourself can read a specific document.  For example, if you have not completed the writing of a particular document, you can click the "Mark Private" action and others will not be able to see the document.  When you complete the document, you can click the
    "Mark Public"
    action to make it available for others to read.
    Note:  This action is not available to Anonymous web users.
    Deleting Documents on the Web
    In the R5.0 template, you can now delete documents on the web while at the view level.  Click the document once to 'highlight' it and click the "Move to Trash" button.  A trash can icon will appear next to the document.  To remove the document permanently from the database, click the "Empty Trash" button.
For Administrators
    Agents
    There are several agents which run periodically, which should be activated.  All of the scheduled agents can be easily activated (via the Notes client) by modifying the TeamRoom Setup, in the "Advanced Options" section.
    Send  Newsletters:
      Reviews the "Newsletter Profile" of each user who has a profile on a server-based TeamRoom database.  It matches criteria on the profile with any criteria it finds in the topics of the current database.  Each match generates a document link, which will become part of the newsletter; that newsletter is then mailed to the subscriber.  The agent can be run periodically.  Typically this would be on a daily basis.
    Auto File:
      When you enable "Marking Documents as Inactive", an agent will run that checks when documents reach their "inactive" dates, and automatically removes the documents from the Active Work views and marks them as "Inactive" in the Index (All) view.
    Send Reminders:
      When you enable Reminders, an agent will run that checks to see if a document has a Due Date.  If it does, and if the Due Date has passed, it sends an e-mail to the person(s) assigned to the document, reminding them that there is a document that needs their attention.  This agent also checks to see if a document has been assigned for review by a team member.  If so, an e-mail is sent to that person, indicating that a document needs their review.
    Archiving
    Notes client users only:
    To set up Archiving for the TeamRoom, click the Archive button on the second tab of the File-Database-Properties infobox.  Fill out the information and click the OK button.  Set up the Archiving task to run on the server.  An archive database will be set up automatically.
    Marking documents as "Expired"
    The Archive feature can act upon documents that have been marked as Expired.
    Notes client users:
    Select a document in the view and choose Mark/Unmark Expired from the Actions menu.
    Web browser users:
    Put the document into edit mode by clicking the Edit Document hotspot.  Then click the Mark/Unmark Expired hotspot at the top of the document.
    Upgrading from Other Template Designs
    [the upgrading paragraphs are hidden from web browser users]
    The 5.0 TeamRoom template has been designed from the ground up to be compatible with the Discussion template.  This means that any R4.6 or higher Discussion database can be upgraded to a 5.0 TeamRoom database by replacing the design with the TeamRoom 5.0 template.
    Note:  Although the 5.0 TeamRoom template incorporates concepts from earlier releases of the Lotus Institute TeamRoom, it has not been designed to be backward compatible with the Lotus Institute TeamRoom.  You cannot upgrade existing Lotus Institute TeamRoom databases with the 5.0 TeamRoom template.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
);}n7
$SourceSeqTime
$SourceSequence
$INFO
$WebFlags
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim w As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim collection As NotesDocumentCollection
Dim item As NotesItem
Dim Position As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Set s = New NotesSession
    Set db = s.CurrentDatabase
    Set collection = db.UnprocessedDocuments
    If collection.Count > 1 Then
        Messagebox getString(18), 64, getString(19)
        Exit Sub
    Elseif collection.Count < 1 Then
        Messagebox getString(49), 64
        Exit Sub
    End If
    Set note = collection.GetFirstDocument
    If  note.form(0) = "Interest Profile" Then
        Messagebox getString(20), 64
        Exit Sub
    End If
'Get the subject field and remove any commas (Notes thinks they are multivalue separaters)
    Subject = note.Subject
    ThreadSubject = Subject(0)
    Do
        Position = Instr(1, ThreadSubject, ",")
        If Position > 0 Then Mid(ThreadSubject, Position, 1) = "."
    Loop Until Position = 0
    ThreadId = note.ThreadId
    If ThreadId(0) = "" Then
        Messagebox getString(21), 0 + 64, getString(23)
        Exit Sub
    End If
    Set view = db.GetView("($Profiles)")
    Call view.Refresh
    key = "Interest Profile" & s.CommonUserName
    Set profile = view.GetDocumentByKey(key,False)
    If profile Is Nothing Then
        Set profile = New NotesDocument(db)
        profile.Form = "Interest Profile"
        Set item = New NotesItem(profile, "PersonName", s.CommonUserName, AUTHORS)
        profile.Subject = "Interest Profile for " & s.CommonUserName
        profile.FullPersonName = Evaluate("@username")
        profile.ProtectFromArchive = 1
        profile.ProfileThreads = ThreadId(0)
        If ThreadSubject = "" Then
            profile.profilethreadsubjects = GetString(25)+Cstr(threadid(0))
        Else
            profile.ProfileThreadSubjects = ThreadSubject
        End If
        ReaderNames = Evaluate("(@UserName : ""LocalDomainServers"")")
        Set item = New NotesItem(profile, "Readers", ReaderNames, READERS)
        item.IsSummary = True
    Else
        Set item = profile.GetFirstItem("ProfileThreads")
        If item.Contains(ThreadId(0)) Then
            Messagebox getString(39), 64, getString(19)
            Exit Sub
        Else
            item.AppendToTextList(ThreadId(0))
            Set item = profile.GetFirstItem("ProfileThreadSubjects")
            If ThreadSubject = "" Then
                item.AppendToTextList(GetString(25)+Cstr(threadid(0)))
            Else
                item.AppendToTextList(ThreadSubject)
            End If
        End If
    End If
    profile.Save True, True
    Messagebox getString(47), 0 + 64, getString(19)
End Sub
Lotus Product
OBJECT
,\    )P
LocalDomainServers
    2S3S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim parent As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set view = db.GetView("($All)")
     Set note = view.GetFirstDocument

     Do Until note Is Nothing
          FormName = note.Form
          Subject = note.Subject
          Select Case FormName(0)
          Case "MainTopic", "Main Topic"
               note.NewsLetterSubject = Subject(0)
          Case "Response", "AnonymousResponse", "Response (Anonymous)"
               OriginalSubject = note.OriginalSubject
               note.NewsLetterSubject = Subject(0) & "  (Response to:  -" & OriginalSubject(0) & "-)"
          Case "ResponseToResponse", "Response to Response"
               OriginalSubject = note.OriginalSubject
               note.NewsLetterSubject = Subject(0) & "  (Response to Response to:  -" & OriginalSubject(0) & "-)"
          End Select
          If note.IsResponse Then
               Set parent = view.GetParentDocument(note)
               Do Until parent.IsResponse = False
                    Set parent = view.GetParentDocument(parent)
               Loop
               NewId = parent.ThreadId
          Else
               NewId = Evaluate("@Unique")
          End If
          note.ThreadId = NewId(0)
          note.save True, True
          Set note = view.GetNextDocument(note)
     Loop

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
#j[=a
a%bnA
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$INFO
$BODY
"Small Fonts
Lotus Product
Shared Response Header<
    0S0E
    0S0E
    Begin Hidden Fields
-----------------------------
g @8U
    used in the Newsletter profile searches
g .;@8U
AbbreviateFrom
g @8U
ClientType
    1S2S
    Preserves privacy of parent document to child
g .;@8U
readers
Readers
g @8U
    Hidden fields to store the subject of this document's ancestors.
g .;@8U
OriginalSubject
OriginalSubject
Subject
    7S9S
OriginalSubject
g @8U
    Hidden fields to store the subject of this document's ancestors.
g .;@8U
Subject
ImmediateParentSubject
g @8U
    Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
g .;@8U
ParentForm
g @8U
    Used as caption in newsletter that is sent based on user's interest profile
g .;@8U
Subject
  (Response to:  ""
OriginalSubject
    1S2S3S4S5S6S
NewsLetterSubject
g @8U
g .;@8U
g @8U
    Used for submitting the form on the web
g .;@8U
$$Return
g @8U
    Used for inheriting expiredate from the parent document
g .;@8U
ExpireDate
ExpireDate
g @8U
    Used by threadmap subform
g .;@8U
ClientType
    1S2S
ThreadSort
ThreadSort
    1S2S3S
tempi
T0S1V
    0R1S2S5S
ThreadSort
D2S0V
    0R1S2S3S4S11S13S14S18S20S21S25S27S28S32S34S35S36S37S
ThreadSort
g @8U
Used by threadmap subform
g .;@8U
threadindent
. . "
    0S0E
ThreadIndent

    End Hidden Fields
-----------------------------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$$Script_O
$$ScriptName
$$FormAction6
ExpireDate
$BODY
TextBox1 All Documents
Notes
Main Navigator
($All)
Text7 By Author
Notes
NavigatorB
By Author
Text8 By Category
Notes
NavigatorC
By Category
Text10 Insert text here
Text11 Archiving
Notes
NavigatorA
Archiving
Text12 Insert text here
Text13 Insert text here
GraphicButton2
aU     6
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
GraphicButton3
n    `nw
nchcjnl
ih`cnh\^lh
wl^n`n`nhnh
j^j\h
n    `h`n
u^hn`hnh^
h^lWh
oh^`^oana
h    an`a
jh\jt
v^`^`h^`n~
hl^\^j\c
w`n`n`n`a~
l^l^hc
^n`^`w
i\iW^\i
^`^`h^`^h~
iZWZ\Zj
h^\Q^Q\Ql
~l\WS\Q
n\Q\^
OW\O\S\
WZQW[O\
lO\O^O\
vQ\O\Q\
^\QOZj
uQOYOr
\OQOs~
vOQOj
r}t|}
vJZOr
v"iOMZ
uJNJs
twvwtv
x    wxyx
vrsrus
utwtwxw~jBOZ
vsvsv
trtvt
twvwvwv
isrirsisri
jvtnvsc
ovwlvlstvowvpwxpvxovwn
vlusv
wnwvl
xvoxv
lsjrtcsisi
ltlse
junujsjsjslvnscvcvctltnOBOB
owownvpvpvp
owpxwoypyp
pxpxdzd
sjrijsircr
slters
vjuhsjsjsjsjsnsjtnwntjOBO>M
\wowowovnvpvpxnowow
wdxoyofy
xdzdzyd
sjsesjserirslsiseret
sltljtnsmvjsjvnvcvnvjM>O@MBM>O@Zw
xownxpwpxn
dwpyp
reiserererjrs
tljljisinvnlvn\>O>@>
MB@Ovwm
xpydzyd
uM@>MH@M>@O@\wowowopvnvw
xyoywdpxdpxpzp
ijrjrjesjr
sljtlnvl@MH>@M>@M
ixwowfwnovo
xpxdy
jsicir
rierjij
jsjlt
vhl@>HM>@M
xwofopx
ljijesr
s    tvtvqvtvu
O>B@M@ix
fpnowx
eiereie
scjijl
nlM@H@>B@A@g
jeiej
ijicjic
j    gijnmchni
Oixwnlml
wljig
lhlkjvjM>MOZvxw
jsctsts
ljgjijgjgj
wlklijgjlj
xj^jl^igl^lg^lj^
`nm`no`
yonop
iejiei\
\kgj^
lnj\lnm^
paofopop
\iYeiYieYe\
sirjs
t    stsvst
j]l\ilZiZij\j^
\j]j\
]m^l\ln^m`ol_oaoa
ebeYebY
YjeYjg
\eieirjrjtkts
vtvuts
w[ic\
j(ZiZgiZl^lj\j\j\nh`m^n^nc]jn`nl\l^j^nl^l`
`l_l^
poaoaf
\i\j\i\j
ririjts
utvtvutstsw
o\l][k
jZi\Zl\l
j\j\j`_j_m_j
k\j_l\^l_n`an`n_n
pxyxpo`napapapo
e[iZe[iW
vi\iZik]j\jZiZi[i^g\j\j\j\j^n_h`mj\n\k\l^j`j`j^n^lanaoaoaofy
poao`n
jWjZjWj
i\Z[c\l^\[j
j\]\k
h`h_n
`n_`^l
ZgZeZgZe[eYZjZYe
iZeYe[Yi\jYirjisisl
i^l[]lZj
j`\j\l`_l`j
j^\l\l`^`m^`n`aoal
pafoaf
\Z[bY
Z\Yjrjisjtjstlstj
q    vltslvqnq
vtvsl
\k^Z\Z^Z\[Zj\[
^h_^_\m
`_`\^l
jtskqtjqtntntqm
mvtlslsltcstlvi
]Z][Z[Z[
ZYZYgjs
sktsj
t    ntmvqltvl
lstvjZ
Z\]^\]^]^]\Z[\
[^[^[\
]`]\^\`^]^
oxoa`
[Z[Z[ZW[
[YZji
j    tjvksjtsl
ktqvlvtnqltl
t    ltjsltukZ
]\^\]^Z^\[Z\
pfVpV
Z\ZY\[Z
[YZY[Z
YZYZYi
slslstl
ltlvjvtn
t    sltltjtjs
Z^]^\
]    Z^[Z[Z[Z]
_^`^]
oxoa_a
a    paVapVpVa
\YZYZY
j sksljtjlskvltlnqlkntltktjtjctmqo
`^_]\`^`
^`awoa_a_`_
a    UfafVaVaV
\Z\ZY
YZ\[Y
tjtjktktjtkskqltsltltjsl
lvtv\Z[
]_^_^
[ZYZM
MYZOZYMYZMYZPYZM
tjtqltjvltmtmsjltltltlt
qlmw]
Q\^S\^S_^S
U]^S]`S
^`^a^_U^aUfaV
VaVaVa
Y[ZOYZYZYMYZ
g(jsjsljtmqktltlqktjtltltksltjtmtwlZ[\[Z\Q
\    Z\QZ\Z\ZP
_^`S`_`_\S]
a`U`_U_`aVaU
a!\[QZ\P\ZPZOYMYMYMYMYMYMYMZOYMYMYM
mtkjs
jqlslkls
sljlsjljvkvlP\NZQ
\/Q\QYN\PZOZOZPZQ\Q\R^S^S^S\S^S^S^S]S`S`U_S]S]R`^
Sa_U`V_V`fVaUaUaV`Vf
ZMZOZYO
OYMYZ
tjtjkt
l    ntm\OZO\Q
OZQY[\QZOZ]ZPZQ\
P^R^]^Q\Q_
U`^pwpoS^_S^V`
aUaUaV
P\PZPQZPMZM
KYZKYKMYMY
YKYKO\
skljl
\ZO[M\
S    [S\OPS^S_
`Q_SQRS^ow
w`UST`V^S`T`UVUaVaVp
QZMYQZMYMYO[ZOZMZOZY
MYMYZMZO
l<tjlklnv\MYMZMZNYOYO[PZO[OZOZOZQ\R[S^S]S^PZP\P^Q\Q\S\Q`R^T^`w
woaU^`T^SU_TaV_aV`UfV
HYMYKYM
KZOKZNOYMN
ZMNYKYN
k    tkntn\ZP\
ZNONY
[RQP^
O\PQP\
\RSQ^
xox_^
ZOYMY
YMZOMY
YMOZNYjgiZi
l    tklskmlkt
mklqmN\PNZNMZM\NQ[QOZN]
\QP\QZ
\PSZR\QO[QS^Q\
\ST^R^R^
^TU_TU_T`TU`VUfVp
ZONON
KMZPOYMKNONMO[\ig
ljlnkj
PQP\QN
POP\Q
POQO[
^US^SUSTVUVUVUVU
\j\g\i
klkjkl
mlktnOPONMOM
ROQPOQPQPR
OMKMO
m\OPO
ONOQN
NONONP
QSPQO
PQPQRSQ
QSRSQSRS
OMOMNMK
NONON
O    QSQSRQPQP
TSUTS
U    SUSUTUTVT
iZj[g
l    kn]NONMNO
QONONOP
OROPO
QRSRSPQOQPQ
QRTSTRU
USUTUT
jlklj
l    jln^MQOQO
UTSUT
NONQNOQO]o^
QSORQR
NKOKOKO
NONONMONONMKM
OPNAMOCONBOMANOAONB
^ox`QOQO
RSQRPR
UTSTRSRS
MKHMHKHMKM
NOBNM@
Z    i\g\j]lkj
mnONMO@
PONBMO
BPQOQ^wo_B
EQSERQG
GQRDQTDT
GTSGT
MHMHMHM?MAOA
AKOMKM?MNBN@Oi
[j[j^ljlj]kj^
]lk^lk^
nPNAPN@OBOB
@NAOPCNAP]
DQRBOPDSQDPRGQRDQSG
GTUQRESTGSG
KHMKM@KNO@NO?
M>HO@KMAOA
@O?M?OANOAMN
j]lml
BMN@M@NBPNCOCOPBOA^no]C
EQREQRDPREQRC
Q    DQRGSQDTG
UGEQTGSG
@K?MA@M
?MK?KO>
?M?OABM?OAO>O
ln^CBMC@M@N@N
@    MBMBCQ@NQ
SQDAQDEQEDQEDRDCQCBP
SGSTGDRF
U#NOANO@MOM?O?@NA@MO>K?MA>M>M>MKBMBO?
\jklk\
]lnmOBM@MBO@OAO@MBOCOBQA[
o%QODNBQDRDRDQCODPDOEOCQDQDSGRDSEDERGSG
B@MBAMA@?M
MAM@BAMAHAM@>K@H@AO?BAM?BNB
BN?@K
g[\k^j\j\jlk^l^l]
k    \l]k^lnBM
BMBABOB@BP
QonQCOB
OEBCPC
GRGSG6UTUTU
>+OAOB>M>A@N@N@O@HAM?M?M?OA@NBAM>AM@MABO@MNZi
\k]j]k^
m_OAOAOC@MBAO@MBAOA@OBQ
ABAODOCDQDBOCPCBOBDOCQ
QDGQGQGEDRDRDESEGR
SGTU6U
B?O?>O>A>@N@?@A@Z\[
j\l]j]l^\]l
AMA@AC
ANBCBCD
CDQBC
H@K>?M?>BO>AMA
K@BM@
B>A@N
Z!j[gj\j\j\k]j^lj^j\j\lj]m]BAOABMB@
@AMAon
ADPBCN
ABPDBQDB
QEGQDCDEQC
B@?>A@ABA@?B?@Z
j\j]j]k]j\^k^l]j
]m^BA
T6TGTG
.BQan
_Q@A@A@A@?
B?BA@?M\Z[Z\
g\k]j]l\k^kj^j\j]lj\n_O@ABA
DEDGDE
@B@A@A
#1=GS
owpxnOA>A@A
A?@AB?
j\]\k^
]k\]^j\^k^n
DEDED
216T`afoxoO?
\[l^\k\]j]k^\k\k
k\^nPAB?
CABA@
@`RBC@B
BCDCDA
ECEGEGDGDG
:@9,-
 <Unopxo?A@?
BA@BM
[\]\j^\j^\]j\]l]\k]k\nQBA@?A
A@CQDC
8@>8>@:@9-(
/Uaoxw^@:@A:
@    9>@:@>:@N
l^]l]^
j\]^\mRAB:
:A@:?B:@?;@B;B
B<@C<B@;BC;BC=
=BA<CB=
C=DE6EGE6D
?>?:?@?
9>?@M[
]\l_]@A@A9A@?@B;@?
AB<B@BC@;BA@
=CBCBC<
EDEC=
>@?8>?@8:9-
=aoxo>?8
:@?NZYZO[Z\
:?@?@?:?@BP`_
A@;BA@BC<CBCDA<CBA
D6E=DG=
:>5>989-
)`ofo>8>9>:@:?9@:?>8>?ZN
_n`A9?:?:?:A9@9@;@:@;`
S=@;B<B;B<C<B<B=B<C=A<
=C=CD=DCD=D=
Uawo8>8>8?:@:@9A
_3m`nO:@:9@9A<?9B9B;@9B_a_RB:B<A<B<B<B=C<C=A<A<B<=D<C
C=C=6E=6E6E=ED=6E
Saon8>9@8?9@9?9>8>8>8?O
^"]^]^l^_m`m_m_]O?;9@9:@:@9@:?9B9B9B
Q#B<@<@<C<A<B=B=B<C<A<B;C=C=B<B=CB=B=
=6EGD6
)G`oP
?9:8@
:@:;:@8:?AZN
^_n_mn`m_^]OA9;9@9:?9:9:9A
B<;<B
B<=D=<
=    D=6DE6=6E
26`n?85?:@9:?:?:;@:;>
`n`_n`RO98;@:?9:?
?;@;:@9B
A;:A<B<;B:@;<A=B;=B=B;B
D=E6G
>898>
:    8>8AZOZNP
^l_RB
@9:9;
;:A<;:<;<;
;<A<;
2G<95
OZNZ^_^m^n_QB
9    ?9:9:9;9?
@9:9;:;@
?;:@9
<;<@;<@
6C=D=D
#^l`
 20.5
959898
@NZON\_m^`^QB
9:;:98989898
;:;:;:
<;<;<
<:<:<:;:;:<:;
6=6E6
85:985?5;8
NZNZ^n_]O;
;9:89
;<:;:<:
9NO\_SO
:;:9:9:;
;<:<9
859858:9
:9:9859
?[SA9
:8:9:9
<:;<:;:
;<;<:;:
98:98:
,.58585959
98:98
;:<;:;
-585959858985
8    58589-:8.
.98.:-,
:.89.9:/;:/;:/;:0:;/:<0
/;<0<;0=<2<=2<=2
'-,85@R_RA
95-:9/985859895985
KMNOA:89;8:/:9
:    /:<;<:0;:
;    :2<;=;<0<
,-9,9
.98,959.95-958-9-
\Q\Q\[P[PON
M2NO@:.9.:/:.;0:/;/;0;/;2;2;/;/;0;0<0<0=0<2<1=1=1<2=
&'-.-8B_
B-5,-.:.-8.9/9,.9.9.9.8-,+&+&
HMNOPO[QP]Q]R\
N*OA/909/9/:/:/:0;2;2;0</;/;0;0;0<0;1<0<2=1=
'    -.-9.C_`_
-8,9,9/8,98.5.5-9.,$&%
\Q]Q]Q\Q\Q\R\]R]\R\Q\QOP
PC9:/
0":.:.;/;/;0;2;0</;/;/;0<2<0<0;1<1=2
a_`D.8-,8,-,8.9,8.-9.9.8.+$%*
HYNO[RP]
\PRQ\Q[P
A5.,8,-5-,9.8,5.-9.-,
7    HKMO[QPQ\
\QP\R[QP\Q\
[POPQB0:0.:.:.9/.:.:
;0:/;/0;0;
<1=1=
a`;.-8-,8-,
Q[Q\PQ\Q\PQ\
[Q[PQ[
\QP\QR\R]QPQRB.
/0/.:.
)6`C,-.
5.9T`_
.    9-8,-,.,&
$+7>HMO\Q[QP\
\PQ\QP\
]QP\RC.90/;/
;/0;02;2
2GUaB
,-^_a_S-,-,-,-,
,-,-+
0/././0
.-,Ra
HNOPOQ[O
QP\QPQ
QP\PQ[
[QP\QR
Q    ]QP\QP\SB
0.0./.
./0.0
2TUao;
-.-.,D_
Q,.,-
+7>HOPQP\OPQPQP\
\PQP\PQPQP
PQ\QR
./././0./.0./
.,-,-,
KOP\PQPQO[QPQ
QPQ[QP\
\PQ[Q
]S;./
0./.0/0/
-,;T`_;.
+7KOP
QPQPQ
.-,:`U`;-,
$+7>MOQPQPQPQP
PQPQP
PQPQP
.',('
'.,'+.'-.'9T
+3>MOQPQPQPQPQ
PQPQP
PQPQPQP
)/.#./)/.#.0)./)
-,(&,(
+','-'-,',-'-,-T_S-,),'
',-','&
37KNQPQPQPQPQPQP
QPQPQPQPQPQ
QPQPQP
)/.#0/0#.0#)0)
%&,'(+'-+(-+','-,'-,(
'-RUR,'-(,+',+'+'-
+7HNCQ
PQPQPQPQPQPQP
PRSC.(.)
)0.0#
,(+&',&'-',
,'(',E`E(,','(,&(-'-%
%7>@OQ
QPQPQ
RS0-)-)(.().
.)#).)#/)#.)#0#0#
+'+,&'
+&+'+(+,
,'+,&+,&,(-&-',(-,
D_D,'+',(+(,'+(
+7>@P
QPOQPO@
QPQPQP
QSD.(.(.(.)-).
.)0#.
,&'&,+',','+','&+(',
,(&,'+',&+'-'(
BT;&,',(,',',(%
7>@OPQPQPQPQOQPQ
P    OPQPQPQPQ
QPQPQP
PQPQP
PRT;().)-)-).(.-).).)/.
)    /)#)0)#0#
&,&,&'&'+'&'+'&,'&,&'+
+'(,'&;T:,'&',&
OPOPQ
QPQPQ
QPQPQ
QPQPQ
QPQPQ
#.)#.
.)#).#).
+&'&'
(+&('&'&':T-&'+'&',&
%+>@BPCPOC
BQPDPQCQPBQPDPQCQOCPQCPQCQPDPQC
CQPCPQDPQRT0-
-)()(-
)    #.)#).#).
+'&'+
,'&,'
&+'&,&.R,'&'&'
OPCOPO
BQPQPQC
DPQPQPD
DPQRE.
('(-()(
&'&('&'&'&'%&
P;BPDOCQBPBOCPCPDOCQCPCPCPCPCQCQCQCQBPCPCQCQCQCQDPDPCQCPDPRS/
&'%'&
7>@OBPCOPCPC
QBPCOPQBPDOPOCOCO
P    DPCQPQCQB
QBPCQPQCQCPQPDPCQPQCQS<')
&'&'%'
+7>ACPB
CPOPCPCP
BQCOQOBQCOPQCPBO
QCQCPCQR-'
&'&'&%'%'&'%'&'&'
'%&%'&'
'&';B;
$?+7?NOBOPCPBPCPBOBPBOCOCPCPBPCPCOCPCQCPBPCPDPBODPCOCPDPCPCPBQBPC
QCQPS;
'&'%'&'%
&'&'&'&
&%'%'&'&'&
3>@BPC
B=PBPCOBPCPCOCOCOBPBPDOCPBPDOCOCPCODOCPCOCQCQCPBPBPCPCQCQCQCDQC
')'('()')'('()(
'&'&'&
%'&%&%&'&'%&'&'&'
'&%&'
'&;UTSUT;'%'&
$?+7>APBOPCPBOCPBPCOBPBOBPCOCPBPCOCOBPDODOCPCOBOCOCOCOCPCPCOCOBPD
PDPDPDE)'(
('('('()(')()(
()"'&'
$?+7>ABPBCPBPBOBPBPBPCPCPBOCOCPBOCPCOCOCOCOCOCOCOBPBPCPDPBPCOCPBP    CODPCQS;(
ETSTS(%
+7?BP
PBPBCBPBCBPCBCOCBCOC
PBCBOCBCPB
OCBCO
OCBCOB
C PCDCR= ' '
' ' ' '
%&'%'
%(<D<'%
7>@ABPBC
OBOBCOCBOCOCBO
OCOCBPBCOCO
OCBOCOCBPBCOCO
OBDPBPCBOCBPBPDR)
' ' )
*3>?BOBOBPCBNBCO@
B!OCBOCOCBOCBPCPCBOCBPCOCBPBCPBPCBP
*38ABCBC
CBCBCOC
CBOBCBCBCBOBCB
BCOCBCBCBCO
BCE<'
' ' '
CBPBC
PBCBCB
PBCBCBCBCQC
$    +7?ABCNBC
COBCOAC
OACOA
APCBPBC
OCBCBOCBOCB
COCBPBCB
ACBCA
CBCBCBCBCBC
CBCPE.
%35?A
ABCBCBA
ABABA
CBCBCR0
*35?ABCABCACABC
CBCBC
CBCBCBC
CBCBCBCBE;
ABABA
CBCD<
%$%*379
ABABA
B    ACBCBCABA
CACBABCABC
%$+*35?ABA
ABABACBA
ACBAB
+379:BABABA
ABABAC
%*+*+78
ABABA
ABABAB
BABABABA
ABABABA
378:;
<AB<AB;
<AB;BA<
B    <AB;BCD
%+*+*75@
<BABAB;BABAB;A
A<ABABA<ABABA<
A<BABAB<BABAB;
ABA<A
3789A<A
;BABAB;
B;BABAB;BABAB<
ABA<A<C=
759;AB;ABA<A<ABA;A<BAB;A;B
<A;ABA;A<BAB<B;BAB;B<
A<A;BAB;B;B
59:B;B;B;BAB;B;
A;B;A
;B;BAB<A;BAB;B;
B;B;B
;A;BAB;B;BAB;A<B;BA;A;C=
3    59@;B;A;B
B;A;<;A<A;<;A;B;<;B;A;<;B;B
B;A;<;B;A;B
B;BC<@
59:A;B;B;A@
    .B;A<A;B;A<A<A;A<A;B;A<A<A<A<A;B;A<A<A<A;B;A;D0@
9;A;B;A<@
.;A<A;B;A<A<A<A<A;B;A<A<A<A<A;B;A<A;A<A;B;A<AD/@
,;A<A;B;B;A;B;A<A;B;B;A;B;A<A;B;B;B;A<A;B;BD)@
9:B;A<@
0A<A;B;A<A;A;B;B;A<A<A;A;B;B;A<A<A;A;B;A<A<A;ACD(@
A<A;B@
;A;B;B;A<A;B;A;B;B;A<A;B;B;<
+7+758
A;B;A;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A;B;C=
9@;B;B;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BD<@
589:A;A;B;A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<ABD0@
;B;B;A<A<A<A<A;B;@
!A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<CD'@
89@;B;A<A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<AD=
A;B;B;A;B;A<A@
";A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD0@
:A<A;A;B;B;A<A<@
"B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BCD)@
:A<A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<DC
A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<CD0@
8:9@;A;B;A<@
#A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;B
?:;A<A<A;B;A;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD;@
@;A<A<A;B;B;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;BDE)@
':9:9
A<;<A<
A;<;A<
<A;<;A<
<A;<DE<@
<;AB;A<A;BCEC(@
B;A<A<
A:;@A<
<A;<;A<
B;A<A;B
:B;BA
<A;BA;BA;B;AB;A<A;BCDE/@
AB<;@
A;<A;B
B;A<;A<
BCDE<@
<AB;B;@
A<A;BA;BA;B;AB;AB;
;A<A;<A;<A;B
<A;BA;BA;B;AB;BC
B;A<;B
<A;BA;BA;B;BC
<;A<A;<A;<A;B
0DEDE
<A;BA;B;BCE
;<A;<A<A;<A;<A;B
'=DEDEDE
;BA<A<
0CEDEDEDEDE
;EDEDEDE
EDEDED='@
(;DEDE
EDEDEDEDEDEDEDE<)@
EDEDE
EDEDEDEDEDEC<)@
.<CEDEDEDE
EDEDEDEC=/
)0<=CE
D    EDEDC;0.
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
QPQPQPQPp
))))))))E
('('('('5
COCBOBBP?
))))BABABABB
ABABBBABm
ABABABAB?
))))BABAB;A<A<A;
;A<A<A;B?
))));B;A<A;B
))))BABAA<A;A;B;a
;B;B;A<A?
))))A<A;B;A<
))))BABAA;B;A<A;n
A<A<A;B;?
))))A<;;B;;<
))))BABABA<;AB;;
AB;;BA;<?
))))B;;<A;<;
))))BABA;AB;A<AA
A<;A<A;<?
))))B;A<AA<A
))))BABA;B;A<;A<B
A<AA<AA;?
))))<A;<A;<A
))))BABAA<AA<A<A2=111=,
<;A<A<;A?
))))<A<AA<AA
))));B;A
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
_zo++
$ViewMapDataset
$ViewMapLayout
$NavImagemap
TextBox1 All Documents
Notes
Main Navigator
($All)
Text7 By Author
Notes
NavigatorB
By Author
Text8 By Category
Notes
NavigatorC
By Category
Text10 Insert text here
Text11 Archiving
Notes
NavigatorA
Archiving
Text12 Insert text here
GraphicButton2
aU     6
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
Text15 Insert text here
GraphicButton3
n    `nw
nchcjnl
ih`cnh\^lh
wl^n`n`nhnh
j^j\h
n    `h`n
u^hn`hnh^
h^lWh
oh^`^oana
h    an`a
jh\jt
v^`^`h^`n~
hl^\^j\c
w`n`n`n`a~
l^l^hc
^n`^`w
i\iW^\i
^`^`h^`^h~
iZWZ\Zj
h^\Q^Q\Ql
~l\WS\Q
n\Q\^
OW\O\S\
WZQW[O\
lO\O^O\
vQ\O\Q\
^\QOZj
uQOYOr
\OQOs~
vOQOj
r}t|}
vJZOr
v"iOMZ
uJNJs
twvwtv
x    wxyx
vrsrus
utwtwxw~jBOZ
vsvsv
trtvt
twvwvwv
isrirsisri
jvtnvsc
ovwlvlstvowvpwxpvxovwn
vlusv
wnwvl
xvoxv
lsjrtcsisi
ltlse
junujsjsjslvnscvcvctltnOBOB
owownvpvpvp
owpxwoypyp
pxpxdzd
sjrijsircr
slters
vjuhsjsjsjsjsnsjtnwntjOBO>M
\wowowovnvpvpxnowow
wdxoyofy
xdzdzyd
sjsesjserirslsiseret
sltljtnsmvjsjvnvcvnvjM>O@MBM>O@Zw
xownxpwpxn
dwpyp
reiserererjrs
tljljisinvnlvn\>O>@>
MB@Ovwm
xpydzyd
uM@>MH@M>@O@\wowowopvnvw
xyoywdpxdpxpzp
ijrjrjesjr
sljtlnvl@MH>@M>@M
ixwowfwnovo
xpxdy
jsicir
rierjij
jsjlt
vhl@>HM>@M
xwofopx
ljijesr
s    tvtvqvtvu
O>B@M@ix
fpnowx
eiereie
scjijl
nlM@H@>B@A@g
jeiej
ijicjic
j    gijnmchni
Oixwnlml
wljig
lhlkjvjM>MOZvxw
jsctsts
ljgjijgjgj
wlklijgjlj
xj^jl^igl^lg^lj^
`nm`no`
yonop
iejiei\
\kgj^
lnj\lnm^
paofopop
\iYeiYieYe\
sirjs
t    stsvst
j]l\ilZiZij\j^
\j]j\
]m^l\ln^m`ol_oaoa
ebeYebY
YjeYjg
\eieirjrjtkts
vtvuts
w[ic\
j(ZiZgiZl^lj\j\j\nh`m^n^nc]jn`nl\l^j^nl^l`
`l_l^
poaoaf
\i\j\i\j
ririjts
utvtvutstsw
o\l][k
jZi\Zl\l
j\j\j`_j_m_j
k\j_l\^l_n`an`n_n
pxyxpo`napapapo
e[iZe[iW
vi\iZik]j\jZiZi[i^g\j\j\j\j^n_h`mj\n\k\l^j`j`j^n^lanaoaoaofy
poao`n
jWjZjWj
i\Z[c\l^\[j
j\]\k
h`h_n
`n_`^l
ZgZeZgZe[eYZjZYe
iZeYe[Yi\jYirjisisl
i^l[]lZj
j`\j\l`_l`j
j^\l\l`^`m^`n`aoal
pafoaf
\Z[bY
Z\Yjrjisjtjstlstj
q    vltslvqnq
vtvsl
\k^Z\Z^Z\[Zj\[
^h_^_\m
`_`\^l
jtskqtjqtntntqm
mvtlslsltcstlvi
]Z][Z[Z[
ZYZYgjs
sktsj
t    ntmvqltvl
lstvjZ
Z\]^\]^]^]\Z[\
[^[^[\
]`]\^\`^]^
oxoa`
[Z[Z[ZW[
[YZji
j    tjvksjtsl
ktqvlvtnqltl
t    ltjsltukZ
]\^\]^Z^\[Z\
pfVpV
Z\ZY\[Z
[YZY[Z
YZYZYi
slslstl
ltlvjvtn
t    sltltjtjs
Z^]^\
]    Z^[Z[Z[Z]
_^`^]
oxoa_a
a    paVapVpVa
\YZYZY
j sksljtjlskvltlnqlkntltktjtjctmqo
`^_]\`^`
^`awoa_a_`_
a    UfafVaVaV
\Z\ZY
YZ\[Y
tjtjktktjtkskqltsltltjsl
lvtv\Z[
]_^_^
[ZYZM
MYZOZYMYZMYZPYZM
tjtqltjvltmtmsjltltltlt
qlmw]
Q\^S\^S_^S
U]^S]`S
^`^a^_U^aUfaV
VaVaVa
Y[ZOYZYZYMYZ
g(jsjsljtmqktltlqktjtltltksltjtmtwlZ[\[Z\Q
\    Z\QZ\Z\ZP
_^`S`_`_\S]
a`U`_U_`aVaU
a!\[QZ\P\ZPZOYMYMYMYMYMYMYMZOYMYMYM
mtkjs
jqlslkls
sljlsjljvkvlP\NZQ
\/Q\QYN\PZOZOZPZQ\Q\R^S^S^S\S^S^S^S]S`S`U_S]S]R`^
Sa_U`V_V`fVaUaUaV`Vf
ZMZOZYO
OYMYZ
tjtjkt
l    ntm\OZO\Q
OZQY[\QZOZ]ZPZQ\
P^R^]^Q\Q_
U`^pwpoS^_S^V`
aUaUaV
P\PZPQZPMZM
KYZKYKMYMY
YKYKO\
skljl
\ZO[M\
S    [S\OPS^S_
`Q_SQRS^ow
w`UST`V^S`T`UVUaVaVp
QZMYQZMYMYO[ZOZMZOZY
MYMYZMZO
l<tjlklnv\MYMZMZNYOYO[PZO[OZOZOZQ\R[S^S]S^PZP\P^Q\Q\S\Q`R^T^`w
woaU^`T^SU_TaV_aV`UfV
HYMYKYM
KZOKZNOYMN
ZMNYKYN
k    tkntn\ZP\
ZNONY
[RQP^
O\PQP\
\RSQ^
xox_^
ZOYMY
YMZOMY
YMOZNYjgiZi
l    tklskmlkt
mklqmN\PNZNMZM\NQ[QOZN]
\QP\QZ
\PSZR\QO[QS^Q\
\ST^R^R^
^TU_TU_T`TU`VUfVp
ZONON
KMZPOYMKNONMO[\ig
ljlnkj
PQP\QN
POP\Q
POQO[
^US^SUSTVUVUVUVU
\j\g\i
klkjkl
mlktnOPONMOM
ROQPOQPQPR
OMKMO
m\OPO
ONOQN
NONONP
QSPQO
PQPQRSQ
QSRSQSRS
OMOMNMK
NONON
O    QSQSRQPQP
TSUTS
U    SUSUTUTVT
iZj[g
l    kn]NONMNO
QONONOP
OROPO
QRSRSPQOQPQ
QRTSTRU
USUTUT
KMNOK
NMONMK
KMKON
MOZiZiZ\jkl
jlklj
l    jln^MQOQO
UTSUT
MKMKMKMKMNM
KOMKM
NMKMK
NONQNOQO]o^
QSORQR
UTU    NKNMNKNMK
NONONM
NKMKMKMNM@
iZ[iZ
OPNAMOCONBOMANOAONB
^ox`QOQO
RSQRPR
UTSTRSRS
MKHMKMNANOANOBNOKMHMHOAONM@
i\g\j\l
mnONMO@
PONBMO
BPQOQ^wo_B
EQSERQG
GQRDQTDT
GTSGT
K?MK@NOAONB
AMKMHO
K!BO@MO?OMKM?MNBNKOiZi\[\j]l\lj]kj^
]lk^lk^
nPNAPN@OBOB
@NAOPCNAP]
DQRBOPDSQDPRGQRDQSG
GTUQRESTGSG
UV    OKMHOKHMK
@KM?KHOM?MNBNAOMBKM?OANOAMN
[iZg\k
j]lml
BMN@M@NBPNCOCOPBOA^no]C
EQREQRDPREQRC
Q    DQRGSQDTG
UGEQTGSG
M>?MA@MABK?HMKO>?H@KMAOB@KBAO>O
[\j\j^kl
ln^CBMC@M@N@N
@    MBMBCQ@NQ
SQDAQDEQEDQEDRDCQCBP
SGSTGDRF
N@OAON
NKANAMANKM
?MBKBO
BN@OAMK?
]lnmOBM@MBO@OAO@MBOCOBQA[
o%QODNBQDRDRDQCODPDOEOCQDQDSGRDSEDERGSG
M@AMH@?MA@AMBA@HBN
@?@AO?OA@?BMB
OA?MK
gZ]k^j\j\jlk^l^l]
k    \l]k^lnBM
BMBABOB@BP
QonQCOB
OEBCPC
GRGSG6UTUTU,HKO@H>O@BO>M>@MABM@N@HAM@M?M?OA@BNAM>AM@JAOB
\k]j]k^
m_OAOAOC@MBAO@MBAOA@OBQ
ABAODOCDQDBOCPCBOBDOCQ
QDGQGQGEDRDRDESEGR
SGTU6U
@H@>?>?>ABA@M@A
N?@?>A
@    BN?B?>O>A
B?@KBMO
j\l]j]l^\]l
AMA@AC
ANBCBCD
CDQBC
>@?>MH?@MBK
N@A?@N@A@K>@?M@K@
@ANB>A@A@MA
Z!\[gj\j\j\k]j^lj^j\j\lj]m]BAOABMB@
@AMAon
ADPBCN
ABPDBQDB
QEGQDCDEQC
>?@?@?>@
BA@?A@?Z\[Z[Zi
j\j]j]k]j\^k^l]j
]m^BA
T6TGTG
?    B@>A@A@A@
>?O\m
xolQ@A@A@A
g\k]j]l\k^kj^j\j]lj\n_O@ABA
DEDGDE
G    BA@B@B@A@
nP@?@A
A?@AB?@?OZ[
j\]\k^
]k\]^j\^k^n
DEDED
>@>?>
@Pxwx
\[l^\k\]j]k^\k\k
k\^nPAB?
CABA@
@`RBC@B
BCDCDA
ECEGEGDGDG
]ow]^OP\mxwf
o?A@>A@A@>?>BA@AM
[\]\j^\j^\]j\]l]\k]k\nQBA@?A
A@CQDC
8@>8>@:
:?AoxP?@
9@?8A@:?
l^]l]^
j\]^\mRAB:
:A@:?B:@?;@B;B
B<@C<B@;BC;BC=
=BA<CB=
C=DE6EGE6D
?@8>?@>@:A
Ox^?@:?>@?@O
9@?@?@:
]\l_]@A@A9A@?@B;@?
AB<B@BC@;BA@
=CBCBC<
EDEC=
8?@>:^wN8>
@:@?@_
A@:@?MZYZO[Z\
:?@?@?:?@BP`_
A@;BA@BC<CBCDA<CBA
D6E=DG=
>8?8>8@8@:@:?8@:@:@PQ9
?    8>8?>8@Pw
x    o>8>8>:@:
?    :@8>8>?ZN
_n`A9?:?:?:A9@9@;@:@;`
S=@;B<B;B<C<B<B=B<C=A<
=C=CD=DCD=D=
6EDE,9?8>9?5>:?:@:@9>9?:8?898?9>89?:Axfxo8>8?8?:@
@:?8A8>M
_3m`nO:@:9@9A<?9B9B;@9B_a_RB:B<A<B<B<B=C<C=A<A<B<=D<C
C=C=6E=6E6E=ED=6E >8?8>8?8@:@:>:@9@:?98?>:@8@9@9@Q
xn>8?:>9?:?9?9>8>
^"]^]^l^_m`m_m_]O?;9@9:@:@9@:?9B9B9B
Q#B<@<@<C<A<B=B=B<C<A<B;C=C=B<B=CB=B=
=6EGD6
8>:8>5:>
@:8:8:?:8?
89?9:8?8_oxwQ8>
:?:89@
:    ;@:8@8AZN
^_n_mn`m_^]OA9;9@9:?9:9:9A
B<;<B
B<=D=<
=    D=6DE6=6E
>9?>8:A:;@9>:@:9>
wo?58>:?
:    ?:9@:@:;>
`n`_n`RO98;@:?9:?
?;@;:@9B
A;:A<B<;B:@;<A=B;=B=B;B
D=E6G
?85@9:89?89A
wfO8>
@:5?8AZOZNP
^l_RB
@9:9;
;:A<;:<;<;
;<A<;
9;85A
?9:?8:9
>8598>
OZNZ^_^m^n_QB
9    ?9:9:9;9?
@9:9;:;@
?;:@9
<;<@;<@
6C=D=D
8:9858
QxfoQ:
8    958989858
@NZON\_m^`^QB
9:;:98989898
;:;:;:
<;<;<
<:<:<:;:;:<:;
6=6E6
8:9898:95>589
98RxpoP
;8:98
NZNZ^n_]O;
;9:89
;<:;:<:
9    8598PxfoB
9NO\_SO
:;:9:9:;
;<:<9
:9859585895989:
?[SA9
:8:9:9
<:;<:;:
;<;<:;:
89898
9    58959589n
9    589858:8:
98:98:
:CofA
58595
98:98
;:<;:;
5958_x^
598,985958585
8    58589-:8.
.98.:-,
:.89.9:/;:/;:/;:0:;/:<0
/;<0<;0=<2<=2<=2
5@]_SA5895
/9:85859895985
KMNOA:89;8:/:9
:    /:<;<:0;:
;    :2<;=;<0<
8.89.9
8,5RxD
_`@.8-9.
5,959.95-958-9-
\Q\Q\[P[PON
M2NO@:.9.:/:.;0:/;/;0;/;2;2;/;/;0;0<0<0=0<2<1=1=1<2=
.-9,.9.,9-9-9,9,.-8,8,5-:
.$-B`_`_`B8,5-9/.-8.9/9,.9.9.9.8-,+&+&
HMNOPO[QP]Q]R\
N*OA/909/9/:/:/:0;2;2;0</;/;0;0;0<0;1<0<2=1=
-9.8-9-5.9
9.95.8
859;`;9-9.8.98C_`_
P.9.8-859-9.8,98.5.5-9.,$&%
\Q]Q]Q\Q\Q\R\]R]\R\Q\QOP
PC9:/
0":.:.;/;/;0;2;0</;/;/;0<2<0<0;1<1=2
-,5.5-5.5.9.58
-8,.9-
-8,8-
_aC9-,-5
,8.-9.9.8.+$%*
HYNO[RP]
\PRQ\Q[P
9,8,9,8,8,-5-,
.    9-8,-9.9;
B,.95.5,8-9.8,5.-9.-,
7    HKMO[QPQ\
\QP\R[QP\Q\
[POPQB0:0.:.:.9/.:.:
;0:/;/0;0;
<1=1=
9.,9-.-
.    -.-8B9-.-
Q[Q\PQ\Q\PQ\
[Q[PQ[
\QP\QR\R]QPQRB.
/0/.:.
8.5-5-.
,-,-;a
8-5-.
9-5-5,-,-9
-8,-,.,&
$+7>HMO\Q[QP\
\PQ\QP\
]QP\RC.90/;/
;/0;02;2
.-.-,.-,
S_`_^
-,-,-,-
,-,-+
0/././0
HNOPOQ[O
QP\QPQ
QP\PQ[
[QP\QR
Q    ]QP\QP\SB
0.0./.
./0.0
1GSU`<+,
Q,.,-
+7>HOPQP\OPQPQP\
\PQP\PQPQP
PQ\QR
./././0./.0./
-.,-.,
21G;&'
.,.,-,
KOP\PQPQO[QPQ
QPQ[QP\
\PQ[Q
]S;./
0./.0/0/
+7KOP
QPQPQ
20    -,.-,-,.,
,:_U`:-,
$+7>MOQPQPQPQP
PQPQP
PQPQP
.,-'.,(-(+
',(.,.U
9,-'-,'
+3>MOQPQPQPQPQ
PQPQP
PQPQPQP
)/.#./)/.#.0)./)
(,-T_S
37KNQPQPQPQPQPQP
QPQPQPQPQPQ
QPQPQP
)/.#0/0#.0#)0)
(,',-R`R,'-
'+,'(
+7HNCQ
PQPQPQPQPQPQP
PRSC.(.)
)0.0#
RUE-,
'    (+'&-(&-
%7>@OQ
QPQPQ
RS0-)-)(.().
.)#).)#/)#.)#0#0#
',(-D`C','
(',&','
+7>@P
QPOQPO@
QPQPQP
QSD.(.(.(.)-).
.)0#.
B_;,',&(,+'
7>@OPQPQPQPQOQPQ
P    OPQPQPQPQ
QPQPQP
PQPQP
PRT;().)-)-).(.-).).)/.
)    /)#)0)#0#
+';T:'&','&'+'&,
OPOPQ
QPQPQ
QPQPQ
QPQPQ
QPQPQ
#.)#.
.)#).#).
:T-&,&'&,('&'
%+>@BPCPOC
BQPDPQCQPBQPDPQCQOCPQCPQCQPDPQC
CQPCPQDPQRT0-
-)()(-
)    #.)#).#).
OPCOPO
BQPQPQC
DPQPQPD
DPQRE.
('(-()(
%'&%'&
P;BPDOCQBPBOCPCPDOCQCPCPCPCPCQCQCQCQBPCPCQCQCQCQDPDPCQCPDPRS/
7>@OBPCOPCPC
QBPCOPQBPDOPOCOCO
P    DPCQPQCQB
QBPCQPQCQCPQPDPCQPQCQS<')
+7>ACPB
CPOPCPCP
BQCOQOBQCOPQCPBO
QCQCPCQR-'
%&';C;,&%'
$?+7?NOBOPCPBPCPBOBPBOCOCPCPBPCPCOCPCQCPBPCPDPBODPCOCPDPCPCPBQBPC
QCQPS;
RTSTE'
3>@BPC
B=PBPCOBPCPCOCOCOBPBPDOCPBPDOCOCPCODOCPCOCQCQCPBPBPCPCQCQCQCDQC
')'('()')'('()(
'&;TSTU^;&%'&'&
$?%7>APBOPCPBOCPBPCOBPBOBPCOCPBPCOCOBPDODOCPCOBOCOCOCOCPCPCOCOBPD
PDPDPDE)'(
('('('()(')()(
$?+7>ABPBCPBPBOBPBPBPCPCPBOCOCPBOCPCOCOCOCOCOCOCOBPBPCPDPBPCOCPBP    CODPCQS;(
'STSTS(%
+7?BP
PBPBCBPBCBPCBCOCBCOC
PBCBOCBCPB
OCBCO
OCBCOB
C PCDCR= ' '
' ' ' '
&'<D<'&
3>@ABPBC
OBOBCOCBOCOCBO
OCOCBPBCOCO
OCBOCOCBPBCOCO
OBDPBPCBOCBPBPDR)
' ' )
%&'%&
*3>?BOBOBPCBNBCO@
B!OCBOCOCBOCBPCPCBOCBPCOCBPBCPBPCBP
*38ABCBC
CBCBCOC
CBOBCBCBCBOBCB
BCOCBCBCBCO
BCE<'
' ' '
CBPBC
PBCBCB
PBCBCBCBCQC
$    +7?ABCNBC
COBCOAC
OACOA
APCBPBC
OCBCBOCBOCB
COCBPBCB
ACBCA
CBCBCBCBCBC
CBCPE.
%35?A
ABCBCBA
ABABA
CBCBCR0
*35?ABCABCACABC
CBCBC
CBCBCBC
CBCBCBCBE;
ABABA
CBCD<
    $:"
%$%*379
ABABA
B    ACBCBCABA
CACBABCABC
&%$+*35?ABA
ABABACBA
ACBAB
+379:BABABA
ABABAC
%*+*+78
ABABA
ABABAB
BABABABA
ABABABA
378:;
<AB<AB;
<AB;BA<
B    <AB;BCD
+*+*75@
<BABAB;BABAB;A
A<ABABA<ABABA<
A<BABAB<BABAB;
ABA<A
3789A<A
;BABAB;
B;BABAB;BABAB<
ABA<A<C=
759;AB;ABA<A<ABA;A<BAB;A;B
<A;ABA;A<BAB<B;BAB;B<
A<A;BAB;B;B
59:B;B;B;BAB;B;
A;B;A
;B;BAB<A;BAB;B;
B;B;B
;A;BAB;B;BAB;A<B;BA;A;C=
3    59@;B;A;B
B;A;<;A<A;<;A;B;<;B;A;<;B;B
B;A;<;B;A;B
B;BC<@
59:A;B;B;A@
    .B;A<A;B;A<A<A;A<A;B;A<A<A<A<A;B;A<A<A<A;B;A;D0@
9;A;B;A<@
.;A<A;B;A<A<A<A<A;B;A<A<A<A<A;B;A<A;A<A;B;A<AD/@
,;A<A;B;B;A;B;A<A;B;B;A;B;A<A;B;B;B;A<A;B;BD)@
9:B;A<@
0A<A;B;A<A;A;B;B;A<A<A;A;B;B;A<A<A;A;B;A<A<A;ACD(@
A<A;B@
;A;B;B;A<A;B;A;B;B;A<A;B;B;<
+7+758
A;B;A;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A;B;C=
9@;B;B;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BD<@
589:A;A;B;A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<ABD0@
;B;B;A<A<A<A<A;B;@
!A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<CD'@
89@;B;A<A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<AD=
A;B;B;A;B;A<A@
";A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD0@
:A<A;A;B;B;A<A<@
"B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BCD)@
:A<A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<DC
A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<CD0@
8:9@;A;B;A<@
#A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;B
?:;A<A<A;B;A;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD;@
@;A<A<A;B;B;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;BDE)@
':9:9
A<;<A<
A;<;A<
<A;<;A<
<A;<DE<@
<;AB;A<A;BCEC(@
B;A<A<
A:;@A<
<A;<;A<
B;A<A;B
:B;BA
<A;BA;BA;B;AB;A<A;BCDE/@
AB<;@
A;<A;B
B;A<;A<
BCDE<@
<AB;B;@
A<A;BA;BA;B;AB;AB;
;A<A;<A;<A;B
<A;BA;BA;B;AB;BC
B;A<;B
<A;BA;BA;B;BC
<;A<A;<A;<A;B
0DEDE
<A;BA;B;BCE
;<A;<A<A;<A;<A;B
'=DEDEDE
;BA<A<
0CEDEDEDEDE
;EDEDEDE
EDEDED='@
(;DEDE
EDEDEDEDEDEDEDE<)@
EDEDE
EDEDEDEDEDEC<)@
.<CEDEDEDE
EDEDEDEC=/
)0<=CE
D    EDEDC;0.
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
QPQPQPQPT
))))))))
('('('('6.0
_IGIF
GSCOCBOBBPO
BABABABB
))))ABABBBAB
ABABABAB
_IGIF
B;A<A<A;
;A<A<A;B8
;B;A<A;B?
    A<A;A;B;=
;B;B;A<A
))))A<A;B;A<G
BABAA;B;A<A;H
A<A<A;B;
))))A<;;B;;<G
BABABA<;AB;;B
AB;;BA;<
))))B;;<A;<;G
BABA;AB;A<AA
A<;A<A;<
))))B;A<AA<AG
BABA;B;A<;A<@ABCDEFGHIJKLMNOA<AA<AA;
))))<A;<A;<AG
BABAA<AA<A<A:989:.85+7777>7><;A<A<;A
))))<A<AA<AAG
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
|G1~/8e>
U1/JS
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
\^    4)?
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
M]lh]
$TITLE
$INFO
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub RemoveSubjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim item As NotesItem
Dim Position As Integer
Dim originalnote As notesdocument
Dim CurrentDocumentURL As String
Dim profileurl As String
Dim profileunid As String
Dim threadids As Variant
Dim subjects As Variant
Dim removethreads As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    InstantiateObjects
    dbpath = getdbpath
    AllView =   "<hr><font size=2><a href=/" + dbpath + "/($All)?OpenView>"+ getString(50) +"</a>  "
    MissionView = "<a href=/" + dbpath + "/TeamOverview?OpenView>"+GetString(51)+"</a>  "
    ActiveView = "<a href=/" + dbpath + "/ActiveDate?OpenView>"+GetString(52)+"</a><hr>"
'Get referer url because that's the profile
    profileUNID= Mid ( note.HTTP_Referer(0), Instr(note.HTTP_Referer(0), "=")+1,32)
    Set profile = db.GetDocumentByUNID(profileUNID)
    If profile Is Nothing Then
        Print "<b>"+GetString(16)+"</b>" + AllView + MissionView + ActiveView
        Exit Sub
    Else
          'Get ThreadID list and ProfileThreadSubject list
        ThreadIds = profile.ProfileThreads
        Subjects = profile.ProfileThreadSubjects
          'Get Thread subjects which should be removed
        RemoveThreads = note.RemoveSubjects
        If RemoveThreads(0) <> "" Then
          'Remove the thread subjects from the existing profile
            RemoveSubjects
          'Rewrite the new values to the profile
        Else
            Print "<b> "GetString(24)+"</b>"+ AllView + MissionView + ActiveView
            Exit Sub
        End If
          'Rewrite the new values to the profile
        Call profile.replaceitemvalue("ProfileThreads",ThreadIDs)
        Call profile.replaceitemvalue("ProfileThreadSubjects", Subjects)
        Print "<b>"+GetString(17)+"</b>"+ AllView + MissionView + ActiveView
    End If
    profile.Save True, True
End Sub
'++LotusScript Development Environment:2:2:RemoveSubjects:1:8
Sub RemoveSubjects
     'This routine removes all of the elements in the removethreads array from the subjects array
    Forall j In RemoveThreads
        CurrentElementtoRemove = j
        index=0
        Forall i In Subjects
               'This set of statements gives us the matching index number to remove in the ThreadIDs list
            If currentelementtoremove = i Then
                ThreadIDs(index)=""
                Subjects(index)=""
            End If
            index=index+1
        End Forall
    End Forall
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
tWE!,4Pt
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
TextBox1 All Documents
Notes
Main Navigator
($All)
Text7 By Author
Notes
NavigatorB
By Author
Text8 By Category
Notes
NavigatorC
By Category
Text10 Insert text here
Text11 Archiving
Notes
NavigatorA
Archiving
Text12 Insert text here
Text13Insert text here
GraphicButton2
aU     6
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
GraphicButton4
n    `nw
nchcjnl
ih`cnh\^lh
wl^n`n`nhnh
j^j\h
n    `h`n
u^hn`hnh^
h^lWh
oh^`^oana
h    an`a
jh\jt
v^`^`h^`n~
hl^\^j\c
w`n`n`n`a~
l^l^hc
^n`^`w
i\iW^\i
^`^`h^`^h~
iZWZ\Zj
h^\Q^Q\Ql
~l\WS\Q
n\Q\^
OW\O\S\
WZQW[O\
lO\O^O\
vQ\O\Q\
^\QOZj
uQOYOr
\OQOs~
vOQOj
r}t|}
vJZOr
v"iOMZ
uJNJs
twvwtv
x    wxyx
vrsrus
utwtwxw~jBOZ
vsvsv
trtvt
twvwvwv
isrirsisri
jvtnvsc
ovwlvlstvowvpwxpvxovwn
vlusv
wnwvl
xvoxv
lsjrtcsisi
ltlse
junujsjsjslvnscvcvctltnOBOB
owownvpvpvp
owpxwoypyp
pxpxdzd
sjrijsircr
slters
vjuhsjsjsjsjsnsjtnwntjOBO>M
\wowowovnvpvpxnowow
wdxoyofy
xdzdzyd
sjsesjserirslsiseret
sltljtnsmvjsjvnvcvnvjM>O@MBM>O@Zw
xownxpwpxn
dwpyp
reiserererjrs
tljljisinvnlvn\>O>@>
MB@Ovwm
xpydzyd
uM@>MH@M>@O@\wowowopvnvw
xyoywdpxdpxpzp
ijrjrjesjr
sljtlnvl@MH>@M>@M
ixwowfwnovo
xpxdy
jsicir
rierjij
jsjlt
vhl@>HM>@M
xwofopx
ljijesr
s    tvtvqvtvu
O>B@M@ix
fpnowx
eiereie
scjijl
nlM@H@>B@A@g
jeiej
ijicjic
j    gijnmchni
Oixwnlml
wljig
lhlkjvjM>MOZvxw
jsctsts
ljgjijgjgj
wlklijgjlj
xj^jl^igl^lg^lj^
`nm`no`
yonop
iejiei\
\kgj^
lnj\lnm^
paofopop
irsirts
j]l\ilZiZij\j^
\j]j\
]m^l\ln^m`ol_oaoa
YeZjZ
YjYei[eYjYgeirjijslts
w[ic\
j(ZiZgiZl^lj\j\j\nh`m^n^nc]jn`nl\l^j^nl^l`
`l_l^
poaoaf
iZj\iZj\j\j
Wi\g\eYe
utstsw
o\l][k
jZi\Zl\l
j\j\j`_j_m_j
k\j_l\^l_n`an`n_n
pxyxpo`napapapo
YjZiZgWi\jYj\jYebeZi
YeYiri
vi\iZik]j\jZiZi[i^g\j\j\j\j^n_h`mj\n\k\l^j`j`j^n^lanaoaoaofy
poao`n
Z    j[iWeZ\j\
YeY[eYe
rjisltv
i\Z[c\l^\[j
j\]\k
h`h_n
`n_`^l
ZjZYg\ZYgYe\ZgYe
iY[j\Yijirjitl
ststs
i^l[]lZj
j`\j\l`_l`j
j^\l\l`^`m^`n`aoal
pafoaf
oapf    \Z[Y\ZiZ[
gZjHY
\Y\Z\gZrijisjtjstlstjstlsvnt
q    vltslvqnq
vtvsl
\k^Z\Z^Z\[Zj\[
^h_^_\m
`_`\^l
YZHYZ
jtsnsl
ntntqm
mvtlslsltcstlvi
]Z][Z[Z[
Y[\ZYZ[
Y    ZNZOKMKOM
ZYijsigsljtjstjtsktl
t    ntmvqltvl
lstvjZ
Z\]^\]^]^]\Z[\
[^[^[\
]`]\^\`^]^
oxoa`
ZYONO
@    BOKMZYZ\i
sjtltsjtslqtktqvlvtnqltl
t    ltjsltukZ
]\^\]^Z^\[Z\
pfVpV
ZKO>:
igsjtjtjtltvltlvjvtn
t    sltltjtjs
Z^]^\
]    Z^[Z[Z[Z]
_^`^]
oxoa_a
a    paVapVpVa
\[ZYZ[Z
j!sjtjtkjtjskvltlnqlkntltktjtjctmqo
`^_]\`^`
^`awoa_a_`_
a    UfafVaVaV
Z    YKYN?8-$
$ +:BOYZ
jsjtj
jtkskqltsltltjsl
lvtv\Z[
]_^_^
MZH>8%
&@?MY
tjltljvltmtmsjltltltlt
qlmw]
Q\^S\^S_^S
U]^S]`S
^`^a^_U^aUfaV
VaVaVa
Y[ZOYZ[OZMH8%!
+?KMYj
ktltlqktjtltltksltjtmtwlZ[\[Z\Q
\    Z\QZ\Z\ZP
_^`S`_`_\S]
a`U`_U_`aVaU
\Q[ZQ\P
skqljs
jqlslkls
sljlsjljvkvlP\NZQ
\/Q\QYN\PZOZOZPZQ\Q\R^S^S^S\S^S^S^S]S`S`U_S]S]R`^
Sa_U`V_V`fVaUaUaV`Vf
!,>KMZ
tjtjkt
l    ntm\OZO\Q
OZQY[\QZOZ]ZPZQ\
P^R^]^Q\Q_
U`^pwpoS^_S^V`
aUaUaV
skljl
\ZO[M\
S    [S\OPS^S_
`Q_SQRS^ow
w`UST`V^S`T`UVUaVaVp    \OKMOA>8+
l<tjlklnv\MYMZMZNYOYO[PZO[OZOZOZQ\R[S^S]S^PZP\P^Q\Q\S\Q`R^T^`w
woaU^`T^SU_TaV_aV`UfV
$+>MNOZ
k    tkntn\ZP\
ZNONY
[RQP^
O\PQP\
\RSQ^
xox_^
Y[jiZi
l    tklskmlkt
mklqmN\PNZNMZM\NQ[QOZN]
\QP\QZ
\PSZR\QO[QS^Q\
\ST^R^R^
^TU_TU_T`TU`VUfVp
+:NOKO[jigj\ij
ljlnkj
PQP\QN
POP\Q
POQO[
^US^SUSTVUVUVUVU
klkjkl
mlktnOPONMOM
ROQPOQPQPR
O    Zj\giZjij
m\OPO
ONOQN
NONONP
QSPQO
PQPQRSQ
QSRSQSRS
NONON
O    QSQSRQPQP
TSUTS
U    SUSUTUTVT
->?KON
l    kn]NONMNO
QONONOP
OROPO
QRSRSPQOQPQ
QRTSTRU
USUTUT
$+:AMK
\jZkl
jlklj
l    jln^MQOQO
UTSUT
)@JKMK
i[ZiZjk]
NONQNOQO]o^
QSORQR
iZgZ[
OPNAMOCONBOMANOAONB
^ox`QOQO
RSQRPR
UTSTRSRS
mnONMO@
PONBMO
BPQOQ^wo_B
EQSERQG
GQRDQTDT
GTSGT
?@M?NBNKOiZ[Z
j]l\lj]kj^
]lk^lk^
nPNAPN@OBOB
@NAOPCNAP]
DQRBOPDSQDPRGQRDQSG
GTUQRESTGSG
-8A?MKNOANO@N
j]lml
BMN@M@NBPNCOCOPBOA^no]C
EQREQRDPREQRC
Q    DQRGSQDTG
UGEQTGSG
-<>@NAO>ANBAOBM
\j\j^kl
ln^CBMC@M@N@N
@    MBMBCQ@NQ
SQDAQDEQEDQEDRDCQCBP
SGSTGDRF
'-:>BA@H@NBMBO?M?
]lnmOBM@MBO@OAO@MBOCOBQA[
o%QODNBQDRDRDQCODPDOEOCQDQDSGRDSEDERGSG
+8:B?
KMABN@
gZ]k^j\j\jlk^l^l]
k    \l]k^lnBM
BMBABOB@BP
QonQCOB
OEBCPC
GRGSG6UTUTU
%-8@A?BNB>M
@    O@OABK@Ni
\k]j]k^
m_OAOAOC@MBAO@MBAOA@OBQ
ABAODOCDQDBOCPCBOBDOCQ
QDGQGQGEDRDRDESEGR
SGTU6U
@?A>?A@M@AMO\
j\l]j]l^\]l
AMA@AC
ANBCBCD
CDQBC
@ANB?M@AM@A
Z!\[gj\j\j\k]j^lj^j\j\lj]m]BAOABMB@
@AMAon
ADPBCN
ABPDBQDB
QEGQDCDEQC
B?@B@
BA@?A@?Z\[Z[Zi
j\j]j]k]j\^k^l]j
]m^BA
T6TGTG
g\k]j]l\k^kj^j\j]lj\n_O@ABA
DEDGDE
01U`o
nOA>A
A@?AB?
j\]\k^
]k\]^j\^k^n
DEDED
216U`
x    wO>@A>@A@
\[l^\k\]j]k^\k\k
k\^nPAB?
CABA@
@`RBC@B
BCDCDA
ECEGEGDGDG
AO\_xw
[\]\j^\j^\]j\]l]\k]k\nQBA@?A
A@CQDC
&(GaB8:8>9?Rw
@    ;?@8?@:@>
l^]l]^
j\]^\mRAB:
:A@:?B:@?;@B;B
B<@C<B@;BC;BC=
=BA<CB=
C=DE6EGE6D
>8?95+(
&-.;o]89@>8@?@Q
@    >:@?>?@K[
]\l_]@A@A9A@?@B;@?
AB<B@BC@;BA@
=CBCBC<
EDEC=
8>9-+
 &+,8.5:]o@
8@?>:@>
@?MZYZO[Z\
:?@?@?:?@BP`_
A@;BA@BC<CBCDA<CBA
D6E=DG=
6G    5>9>58:5:
9@:PQ
?8>9>98@Po
o>8>8?:
9?:@?>8>?ZN
_n`A9?:?:?:A9@9@;@:@;`
S=@;B<B;B<C<B<B=B<C=A<
=C=CD=DCD=D=
@?8>:?5898
@8:>9>?8>9>98?:A
fw8>8?8?
@:>9@8>M
_3m`nO:@:9@9A<?9B9B;@9B_a_RB:B<A<B<B<B=C<C=A<A<B<=D<C
C=C=6E=6E6E=ED=6E
?8>8?8@:@:>:@>9@?9>98@9?:
xn>8?:>9>@9?9?
>89?O
^"]^]^l^_m`m_m_]O?;9@9:@:@9@:?9B9B9B
Q#B<@<@<C<A<B=B=B<C<A<B;C=C=B<B=CB=B=
=6EGD6
>5@85>:>
@:8:8@9:89@89?9:98?8_xowQ8>9
:    A@:9@8AZN
^_n_mn`m_^]OA9;9@9:?9:9:9A
B<;<B
B<=D=<
=    D=6DE6=6E
:>8>@8>8:@
>98>8>98Pxfxo?>
8    ?9:@8:?:@
`n`_n`RO98;@:?9:?
?;@;:@9B
A;:A<B<;B:@;<A=B;=B=B;B
D=E6G
:    98@58@58:
woP858>9
@:8>8AZOZNP
^l_RB
@9:9;
;:A<;:<;<;
;<A<;
>89@8?9
@8:@9
?9:@89@:9^
fQ98?
>5?85A
85?8MNOZNZ^_^m^n_QB
9    ?9:9:9;9?
@9:9;:;@
?;:@9
<;<@;<@
6C=D=D
59859\pfwQ:98985
989ANZON\_m^`^QB
9:;:98989898
;:;:;:
<;<;<
<:<:<:;:;:<:;
6=6E6
8:9898:95>589?598^pxoC
598:8;
MZNZ^n_]O;
;9:89
;<:;:<:
98PfxoB
9NO\_SO
:;:9:9:;
;<:<9
85859A
A9:9:858
?[SA9
:8:9:9
<:;<:;:
;<;<:;:
:5895
5:598:8:
5958;B
98:98:
589DfwA
89585
595895
98:98
;:<;:;
-89595859589585
-5858589-:8.
.98.:-,
:.89.9:/;:/;:/;:0:;/:<0
/;<0<;0=<2<=2<=2
989.98.9598598
59ofB5898-
858AR_RA5895
59895985
KMNOA:89;8:/:9
:    /:<;<:0;:
;    :2<;=;<0<
,QfD9.9.
.959^_
@.8-9.9.8,859.95-958-9-
\Q\Q\[P[PON
M2NO@:.9.:/:.;0:/;/;0;/;2;2;/;/;0;0<0<0=0<2<1=1=1<2=
9,.9.,9-9-5.9,8.,85
9.-B_
B8,5-:.9,-.9/9,.9.9.9.8-,+&+&
HMNOPO[QP]Q]R\
N*OA/909/9/:/:/:0;2;2;0</;/;0;0;0<0;1<0<2=1=
=1"98-9.8-9-5.9.9.9.59,8,8,8;`;-9-98.
P.9.8,8-959.8,98.5.5-9.,$&%
\Q]Q]Q\Q\Q\R\]R]\R\Q\QOP
PC9:/
0":.:.;/;/;0;2;0</;/;/;0<2<0<0;1<1=2
8-5.9.,-9-9-,
5,8,8,8
B`a`_aC9-,-8,-,
,8.-9.9.8.+$%*
HYNO[RP]
\PRQ\Q[P
-8,5.8,5-5-,85
8.9,8,
8-,8-.8.;`_a
B,.8-,8,8,9.8,5.-9.-,
7    HKMO[QPQ\
\QP\R[QP\Q\
[POPQB0:0.:.:.9/.:.:
;0:/;/0;0;
<1=1=
8B9-.-.
Q[Q\PQ\Q\PQ\
[Q[PQ[
\QP\QR\R]QPQRB.
/0/.:.
9,-5.-,-5.8,-8
o    Q,9-.8,.9
9-,-5.,5-9
-8,-,.,&
$+7>HMO\Q[QP\
\PQ\QP\
]QP\RC.90/;/
;/0;02;2
-.-.,-.,-.-,-.-
.    aofofB-.-
-,S_a_^
-,-,-
,-,-+
0/././0
-,.,-,
HNOPOQ[O
QP\QPQ
QP\PQ[
[QP\QR
Q    ]QP\QP\SB
0.0./.
./0.0
-.,-.,-
-.-.,D
+7>HOPQP\OPQPQP\
\PQP\PQPQP
PQ\QR
./././0./.0./
.-.,.-.-,-
+-,:a
.,.,-,
KOP\PQPQO[QPQ
QPQ[QP\
\PQ[Q
]S;./
0./.0/0/
-,-,+,+,+,
-,;_`T;
+7KOP
QPQPQ
;-,-.,-
$+7>MOQPQPQPQP
PQPQP
PQPQP
,',-)
(.+',+',+',-'
'-,)-,._U`.,-'-,'
+3>MOQPQPQPQPQ
PQPQP
PQPQPQP
)/.#./)/.#.0)./)
(-,'-,&
&,-&+-'
,    '-,(,-T`S
37KNQPQPQPQPQPQP
QPQPQPQPQPQ
QPQPQP
)/.#0/0#.0#)0)
-','-,'
'+,(,-'
',-'-,'
'-R_R,'-
'+,'(
+7HNCQ
PQPQPQPQPQPQP
PRSC.(.)
)0.0#
&,(,&',
,&',&'+&'+(',('-
,'(',E`E(,
'    (+'&-(&-
%7>@OQ
QPQPQ
RS0-)-)(.().
.)#).)#/)#.)#0#0#
',&,'+&'+&'+'(+&',
+'&-'(+
(    ,-(D`C','
(',&','
+7>@P
QPOQPO@
QPQPQP
QSD.(.(.(.)-).
.)0#.
+'+'+',+'+,&,+',+(,+(-,(+,&
(',BT;+',&(,+'
7>@OPQPQPQPQOQPQ
P    OPQPQPQPQ
QPQPQP
PQPQP
PRT;().)-)-).(.-).).)/.
)    /)#)0)#0#
+('+('+
-'&;_:'&','&'+'&,
OPOPQ
QPQPQ
QPQPQ
QPQPQ
QPQPQ
#.)#.
.)#).#).
'&','
'&'&'
('&'&':T-',&'&,('&'
%+>@BPCPOC
BQPDPQCQPBQPDPQCQOCPQCPQCQPDPQC
CQPCPQDPQRT0-
-)()(-
)    #.)#).#).
,'&,%'&.R,
OPCOPO
BQPQPQC
DPQPQPD
DPQRE.
('(-()(
&'&('&'%'&%'&
P;BPDOCQBPBOCPCPDOCQCPCPCPCPCQCQCQCQBPCPCQCQCQCQDPDPCQCPDPRS/
&'%&'%
&'%'&
7>@OBPCOPCPC
QBPCOPQBPDOPOCOCO
P    DPCQPQCQB
QBPCQPQCQCPQPDPCQPQCQS<')
%&'&'&
'&'&'
+7>ACPB
CPOPCPCP
BQCOQOBQCOPQCPBO
QCQCPCQR-'
&%&'&'%
%'%&%
';B;'&%'
$?+7?NOBOPCPBPCPBOBPBOCOCPCPBPCPCOCPCQCPBPCPDPBODPCOCPDPCPCPBQBPC
QCQPS;
'&'%'
'&'&'&%
'&'&'&'&'&'R
3>@BPC
B=PBPCOBPCPCOCOCOBPBPDOCPBPDOCOCPCODOCPCOCQCQCPBPBPCPCQCQCQCDQC
')'('()')'('()(
&%'&'
;&%'&'&
$?%7>APBOPCPBOCPBPCOBPBOBPCOCPBPCOCOBPDODOCPCOBOCOCOCOCPCPCOCOBPD
PDPDPDE)'(
('('('()(')()(
;STSUS;'&
$?+7>ABPBCPBPBOBPBPBPCPCPBOCOCPBOCPCOCOCOCOCOCOCOBPBPCPDPBPCOCPBP    CODPCQS;(
T    E(%
+7?BP
PBPBCBPBCBPCBCOCBCOC
PBCBOCBCPB
OCBCO
OCBCOB
C PCDCR= ' '
' ' ' '
,<D<,
3>@ABPBC
OBOBCOCBOCOCBO
OCOCBPBCOCO
OCBOCOCBPBCOCO
OBDPBPCBOCBPBPDR)
' ' )
&%'%'
*3>?BOBOBPCBNBCO@
B!OCBOCOCBOCBPCPCBOCBPCOCBPBCPBPCBP
*38ABCBC
CBCBCOC
CBOBCBCBCBOBCB
BCOCBCBCBCO
BCE<'
' ' '
CBPBC
PBCBCB
PBCBCBCBCQC
$    +7?ABCNBC
COBCOAC
OACOA
APCBPBC
OCBCBOCBOCB
COCBPBCB
ACBCA
CBCBCBCBCBC
CBCPE.
%35?A
ABCBCBA
ABABA
CBCBCR0
*35?ABCABCACABC
CBCBC
CBCBCBC
CBCBCBCBE;
ABABA
CBCD<
%$%*379
ABABA
B    ACBCBCABA
CACBABCABC
%$+*35?ABA
ABABACBA
ACBAB
+379:BABABA
ABABAC
%*+*+78
ABABA
ABABAB
BABABABA
ABABABA
378:;
<AB<AB;
<AB;BA<
B    <AB;BCD
+*+*75@
<BABAB;BABAB;A
A<ABABA<ABABA<
A<BABAB<BABAB;
ABA<A
3789A<A
;BABAB;
B;BABAB;BABAB<
ABA<A<C=
759;AB;ABA<A<ABA;A<BAB;A;B
<A;ABA;A<BAB<B;BAB;B<
A<A;BAB;B;B
59:B;B;B;BAB;B;
A;B;A
;B;BAB<A;BAB;B;
B;B;B
;A;BAB;B;BAB;A<B;BA;A;C=
3    59@;B;A;B
B;A;<;A<A;<;A;B;<;B;A;<;B;B
B;A;<;B;A;B
B;BC<@
59:A;B;B;A@
.B;A<A;B;A<A<A;A<A;B;A<A<A<A<A;B;A<A<A<A;B;A;D0@
9;A;B;A<@
.;A<A;B;A<A<A<A<A;B;A<A<A<A<A;B;A<A;A<A;B;A<AD/@
,;A<A;B;B;A;B;A<A;B;B;A;B;A<A;B;B;B;A<A;B;BD)@
9:B;A<@
0A<A;B;A<A;A;B;B;A<A<A;A;B;B;A<A<A;A;B;A<A<A;ACD(@
A<A;B@
;A;B;B;A<A;B;A;B;B;A<A;B;B;<
+7+758
A;B;A;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A;B;C=
9@;B;B;B;A<A<A;B;@
#A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BD<@
589:A;A;B;A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<ABD0@
;B;B;A<A<A<A<A;B;@
!A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<CD'@
89@;B;A<A<A<A<A;B;@
"A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<AD=
A;B;B;A;B;A<A@
";A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD0@
:A<A;A;B;B;A<A<@
"B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;BCD)@
:A<A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<DC
A<A;B;A<@
%A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A<CD0@
8:9@;A;B;A<@
#A<A;B;A<A;B;A<A;B;A<A;B;A<A;B;A<A;B
?:;A<A<A;B;A;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;B;CD;@
@;A<A<A;B;B;B;@
A;B;A<A;B;A<A;B;A<A;B;A<A;BDE)@
':9:9
A<;<A<
A;<;A<
<A;<;A<
<A;<DE<@
<;AB;A<A;BCEC(@
B;A<A<
A:;@A<
<A;<;A<
B;A<A;B
:B;BA
<A;BA;BA;B;AB;A<A;BCDE/@
AB<;@
A;<A;B
B;A<;A<
BCDE<@
<AB;B;@
A<A;BA;BA;B;AB;AB;
;A<A;<A;<A;B
<A;BA;BA;B;AB;BC
B;A<;B
<A;BA;BA;B;BC
<;A<A;<A;<A;B
0DEDE
<A;BA;B;BCE
;<A;<A<A;<A;<A;B
'=DEDEDE
;BA<A<
0CEDEDEDEDE
;EDEDEDE
EDEDED='@
(;DEDE
EDEDEDEDEDEDEDE<)@
EDEDE
EDEDEDEDEDEC<)@
.<CEDEDEDE
EDEDEDEC=/
)0<=CE
D    EDEDC;0.
8xx8pp8hh3K
0xx0pp0hh/
(xx(pp(hh(``(XX'
'NO&\_%/
!lp!ST
 xx tx pp hh ``
KP    PQ    HI    DH    38
*.BMP
GIF ImagQPQPQPQPage
*.TIF
))))))))
4('('('('4W49F/V0
COCBOBBP
BABABABB*.TIF
))))ABABBBABp
ABABABABF/V0
B;A<A<A;
;A<A<A;B*.TIF
))));B;A<A;B
BABAA<A;A;B;
;B;B;A<A*.TIF
))))A<A;B;A<
BABAA;B;A<A;A;<;
A<A<A;B;*.TIF
))))A<;;B;;<
BABABA<;AB;;
AB;;BA;<*.TIF
))))B;;<A;<;
BABA;AB;A<AA`S
^`^a^_U^aUfA<;A<A;<*.TIF
))))B;A<AA<A
;A<A;B;A<;A<stljtmqktltlqktjA<AA<AA;*.TIF
))))<A;<A;<A
A<A<A<AA<A<A
_^`S`_`_\S]
U<;A<A<;A*.TIF
))))<A<AA<AA:
>@HMKMKY
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"0lf|5MZ
J5^`t6
$ViewMapDataset
$ViewMapLayout
$NavImagemap
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim item As NotesItem
Dim Position As Integer
Dim originalnote As notesdocument
Dim CurrentDocumentURL As String
Dim webuser As NotesName
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    InstantiateObjects
    Dim nab As New notesdatabase("","names.nsf")
    Dim userview As notesview
    dbpath = getdbpath
    Dim LinkTRReturn As String
    AllView =   "<hr><font size=2><a href=/" + dbpath + "/($All)?OpenView>"+ getString(50) +"</a>  "
    MissionView = "<a href=/" + dbpath + "/TeamOverview?OpenView>"+GetString(51)+"</a>  "
    ActiveView = "<a href=/" + dbpath + "/ActiveDate?OpenView>"+GetString(52)+"</a><hr>"
     'Get the original Note that we are trying to add to the users interest profile
    OriginalUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "&")+1, 32)
    Set OriginalNote = db.getdocumentbyunid(originalunid)
      'Obtain the correct authenticated web user name of the person
     'find the remote user's full name
    If nab.isopen Then
        Set userview = nab.getview("($Users)")
        Dim userdoc As notesdocument
        Set userdoc = userview.getdocumentbykey(note.remote_user(0))
        If Not(userdoc Is Nothing) Then
            Set webuser =  New notesname(userdoc.fullname(0))
        End If
    End If
'Get the subject field and remove any commas
    Subject = OriginalNote.Subject
    ThreadSubject = Subject(0)
    Do
        Position = Instr(1, ThreadSubject, ",")
        If Position > 0 Then Mid(ThreadSubject, Position, 1) = "."
    Loop Until Position = 0
    ThreadId = OriginalNote.ThreadId
    If ThreadId(0) = "" Then
        Print "<b>" + GetString(6) + "</b>" + AllView + MissionView + ActiveView
        Exit Sub
    End If
    Set view = db.GetView("($Profiles)")
     'Compile the correct key to find the unique interest profile for this user
    key = "Interest Profile" & webuser.common
    Set profile = view.GetDocumentByKey(key,False)
    If profile Is Nothing Then
     'If there is no Interest profile, create one and add the topic to it
        Set profile = New NotesDocument(db)
        profile.Form = "Interest Profile"
        Set item = New NotesItem(profile, "PersonName", webuser.common, AUTHORS)
        profile.Subject = "Interest Profile for " & webuser.common
        profile.ProtectFromArchive = 1
        profile.ProfileThreads = ThreadId(0)
        If ThreadSubject = "" Then
            profile.profilethreadsubjects = GetString(25)+Cstr(threadid(0))
        Else
            profile.ProfileThreadSubjects = ThreadSubject
        End If
        Set item = New NotesItem(profile, "Readers", webuser.canonical, READERS)
        item.IsSummary = True
    Else
        If profile.hasitem("ProfileThreads") Then
            Set item = profile.GetFirstItem("ProfileThreads")
            If item.Contains(ThreadId(0)) Then
                Print "<b>" + GetString(7) + "</b>" + AllView + MissionView + ActiveView
                Exit Sub
            Else
                item.AppendToTextList(ThreadId(0))
                Set item = profile.GetFirstItem("ProfileThreadSubjects")
                If ThreadSubject = "" Then
                    item.AppendToTextList(GetString(25)+Cstr(threadid(0)))
                Else
                    item.AppendToTextList(ThreadSubject)
                End If
            End If
        Else
            profile.profilethreads = threadid(0)
            If ThreadSubject = "" Then
                profile.profilethreadsubjects = GetString(25)+Cstr(threadid(0))
            Else
                profile.profilethreadsubjects = threadsubject
            End If
        End If
    End If
    profile.Save True, True
    If ThreadSubject = "" Then
        Print "<b>"+GetString(26)+GetString(8)+ "</b>" + AllView + MissionView + ActiveView
    Else
        Print "<b>"+threadsubject+" "+GetString(8)+ "</b>" + AllView + MissionView + ActiveView
    End If
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
CC[c8
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function GetDBPath
Declare Sub InstantiateObjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim dbpath As String
Dim note As NotesDocument
Dim IsWebUser As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:1:GetDBPath:1:8
Function GetDBPath
'check to see if the database is in a directory and swap the slash directions
     Dim tmpPath As String
     tmpPath = db.filepath
     Do While Instr(tmpPath,"\") > 0
          tmpPath = Left$(tmpPath, Instr(tmpPath,"\")-1) + "/" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath,"\"))
     Loop

'check and see if there are any embedded spaces and replace them with +
     Do While Instr(tmpPath," ") > 0
          tmpPath = Left$(tmpPath, Instr(tmpPath," ")-1) + "+" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath," "))
     Loop

     GetDbPath = tmpPath

End Function
'++LotusScript Development Environment:2:2:InstantiateObjects:1:8
Sub InstantiateObjects
     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set note = s.documentcontext
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
Use "wStringResource"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
InstantiateObjects

'remove all of these so they can ger resest with default values each time the doc is opened
     If note.isnewnote Then Exit Sub
     note.WebProfileCategories = note.ProfileCategories
     note.WebProfileStrings = note.ProfileStrings
     Exit Sub

End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
{MxOJ
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim webuser As notesname
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    InstantiateObjects
    IsWebUser = True
    Set webuser = New notesname(note.personname(0))
    If note.isnewnote Then
        note.Subject = "Newsletter Profile for " & webuser.common
        note.ProtectFromArchive = 1
    End If
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
&Arial
Remove Thread
(WebRemoveThread)
(Help)
TeamRoomFRemoveThread
    0R4S6S8S
Lotus Product
 RemoveThread
    Used by WebRemoveThread agent to get the Interest Profile UNID
HTTP_Refererz
HTTP_Referer
    This is the list of active threads from the Interest Profile
ProfileThreadSubjects
ArchiveThreadsz
ArchiveThreads
    Make sure that this form is not saved.
SaveOptions
SaveOptions
Remove Thread from Newsletter Profile
    Select a Thread to Remove from your Newsletter Profile:
Removesubjects
ArchiveThreads
Removesubjects
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$WINDOWTITLE
$WEBQuerySave
$AppHelpFormula
$$Script_O
$$ScriptName
$BODY
$V5ACTIONS
$ACTIONS
&Arial
Lotus Product
OBJECT
$$ReturnGeneralError
    0S0E
<BODY bgcolor="white">
MessageString
MessageString
MessageString
<a href="javascript: onClick=history.back()">
Go back
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
y`+Fv
$INFO
$WebFlags
$$Script_O
$$ScriptName
$BODY
&Arial
$$ReturnAuthenticationFailure
    0S0E
<BODY bgcolor="white">
<BR>The name and password cannot be authenticated.<HR>
<a href="javascript: onClick=history.back()"><p>
Go Back to Previous Page
</a>
<a href=/
    8S12S14S17S19S
/WelcomePage?OpenPage>
Return to the TeamRoom
</a></b>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
daItS|"
$TITLE
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
$$ReturnAuthorizationFailure
    0S0E
<BODY bgcolor="white">
<BR>You are not authorized to perform that operation..<HR>
<a href="javascript: onClick=history.back()"><p>
Go Back to Previous Page
</a>
<a href=/
    8S12S14S17S19S
/WelcomePage?OpenPage>
Return to the TeamRoom
</a></b>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$INFO
$WebFlags
$$ScriptName
$BODY
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Exit View
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Exit View
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$CIAOOwner
$CIAOTime
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$HTMLDocumentStyles
$V5ACTIONS
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Close View
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Close View
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
eZYr9l
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
sort1
Mission
    1S2S
sort2
ParticipantProfile
    0R1S2S
sort3
Subteam
    0R1S2S
sort1
sort2
sort3
    0R3S4S6S8S9S10S12S14S15S16S18S20S
Variables to translate
MissionTxt
- TeamRoom Setup
    0R1S2S
ProfileTxt
Participant Profiles
    0R1S2S
SubteamTxt
Subteams
    0R1S2S
EventTxt
Milestones/Events
    0R1S2S
End variables to translate
    0R1S
Mission
MissionTxt
Event
EventTxt
ParticipantProfile
ProfileTxt
Subteam
SubteamTxt
    0R3S4S6S8R9S10S12S14S15S16S18S20S21S22S24S26S2E
Variables to translate
BlankTNText
TEAMROOM SETUP for a New Team
    0R1S2S
TNText
TEAMROOM SETUP for:
Teamname"
    0R1S2S3S4S
ExpiredTxt
EXPIRED:
    0R1S2S
end variables to translate
    0R1S
ExpireDate
ExpiredTxt
    0RR1S2S5S6S8S10S
MissionText
TeamName
BlankTNText
TNText
    0R1S2S5S6S8S10S
Mission
MissionText
Participant Profile
ParticipantProfile
Subteam
STName
Subject
    0R1S2S5S6S8S10S11S12S13S14S15S16S18S22S25S3E26S27S29S31S
Participant Profile
ParticipantProfile
Phone
Subteam
STMembers
    3S4S5S6S7S8S10S12S13S14S16S18S
$19$35$40$33$Conflict$REF
Flist
ParticipantProfile
Subteam
Event
    1S2S3S4S5S6S
Mission
Flist
Status
    0RL1S2E2S3S4S5S10S12S13S14S15S
 $19SortOrdern
sort1
Mission
    1S2S
sort2
ParticipantProfile
    0R1S2S
sort3
Subteam
    0R1S2S
sort1
sort2
sort3
    0R3S4S6S8S9S10S12S14S15S16S18S20S$35~
Variables to translate
MissionTxt
- TeamRoom Setup
    0R1S2S
ProfileTxt
Participant Profiles
    0R1S2S
SubteamTxt
Subteams
    0R1S2S
EventTxt
Milestones/Events
    0R1S2S
End variables to translate
    0R1S
Mission
MissionTxt
Event
EventTxt
ParticipantProfile
ProfileTxt
Subteam
SubteamTxt
    0R3S4S6S8R9S10S12S14S15S16S18S20S21S22S24S26S2E$40Team MemberJ
Variables to translate
BlankTNText
TEAMROOM SETUP for a New Team
    0R1S2S
TNText
TEAMROOM SETUP for:
Teamname"
    0R1S2S3S4S
ExpiredTxt
EXPIRED:
    0R1S2S
end variables to translate
    0R1S
ExpireDate
ExpiredTxt
    0RR1S2S5S6S8S10S
MissionText
TeamName
BlankTNText
TNText
    0R1S2S5S6S8S10S
Mission
MissionText
Participant Profile
ParticipantProfile
Subteam
STName
Subject
    0R1S2S5S6S8S10S11S12S13S14S15S16S18S22S25S3E26S27S29S31S
$33Phone (for Subteams: members)
Participant Profile
ParticipantProfile
Phone
Subteam
STMembers
    3S4S5S6S7S8S10S12S13S14S16S18S
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New\Team MemberKP
notes only
ParticipantProfile
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
New\SubteamKF
notes only
Subteam
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
New\Event
notes only
Event
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
New\Team MemberK
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.indexOf("/",1)+1))
var newWindow = window.open(filename  + "ParticipantProfile?OpenForm&w=1","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=600")
//web only
New\SubteamK
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.indexOf("/",1)+1))
var newWindow = window.open(filename  + "Subteam?OpenForm&w=1","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=600")
//web only
New\Event
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
new.gif|new.gif?
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.indexOf("/",1)+1))
var newWindow = window.open(filename  + "Event?OpenForm&w=1","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=600")
//web only
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
SetStatusToInactive.gif|SetStatusToInactive.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New\Team MemberKP
notes only
ParticipantProfile
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
New\SubteamKF
notes only
Subteam
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
New\Event
notes only
Event
    0R4S
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$CIAOTime
$HTMLDocumentStyles
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
This agent files those documents whose filed-by-date is equal or older than today
variables to translate
Filedtxt
This document was filed on:
End variables to translate
FilingDate
FileByDate
filingdate
Status
FilingDateK
MainTopic
Don't file this if there's a due date and the status is still open
DueDate
Current_Status
Status
DateFiled
DateFiled
ViewDateFiled
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
variables to translate
InactTSforms
Inactive Team Status Reports
    0R1S2S
InactSTSforms
Inactive Subteam Status Reports\
SubteamName
    0R1S2S3S4S
EventTxt
Milestone/Event
    0R1S2S
END variables to translate
    0R1S
MainTopic
DocType
Status
InactTSforms
SubteamStatus
InactSTSforms
Event
EventTxt
    0RR3S2E4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
$129l
Datefiled
    4S6S2E
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S
$135$129$116$121$136$137$Conflict$REF
Status
Interest Profile
    L1S2S3S4S5S6S7S8S2E9S
 $135n
variables to translate
InactTSforms
Inactive Team Status Reports
    0R1S2S
InactSTSforms
Inactive Subteam Status Reports\
SubteamName
    0R1S2S3S4S
EventTxt
Milestone/Event
    0R1S2S
END variables to translate
    0R1S
MainTopic
DocType
Status
InactTSforms
SubteamStatus
InactSTSforms
Event
EventTxt
    0RR3S2E4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
$129Date Filed@
$129l
Datefiled
    4S6S2E
$116H
$116l
    4S6S10S12S
$121i
$1362
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$137Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S&
Categori_zeK
_Remove from Folder...
Send Docu_ment
_Move to Folder...
_Forward
_Edit Document
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
_Remove from Folder...
Send Docu_ment
_Move to Folder...
_Forward
_Edit Document
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
=By Event|ActiveEvent1-
Milestones$106$121
DocType$124d
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
CN=Michael Kirschenbaum/O=Jacobson
(MarkOpen)
EH4f3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
#^@cR
CN=Michael Kirschenbaum/O=Jacobson
(MarkComplete)
EH4f3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
Database Script1t34Q
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
(CategoryLookup) |CategoryLookup
$106l
    0S0E
Categories$106$Conflict$REF
MainTopic
    L1S2S3S1"
Categories$106(
CategoriesCategories
 Categories$106Date4
$106l
    0S0E
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
DefaultDocType1
DefaultDocType1
Value should be translated
Discussion
DefaultDocType1
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
DefaultDocType2
DefaultDocType2
Value should be translated
Action Item
DefaultDocType2
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
DefaultDocType3
DefaultDocType3
Value should be translated
Meeting
DefaultDocType3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
DefaultDocType4
DefaultDocType4
Value should be translated
Reference
DefaultDocType4
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
,Calendar|Calendar1
$68$46
(Help)
TeamRoomVCalendar
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
?By Date|ActiveDate1
$106$121
DocTyped
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
Send Newsletters
Enable/Disable this agent through the TeamRoom Setup*1SfL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
-Personal Workspace: Documents I Created|PersDocsICreated/L1
$106$121
DocTypeb
(Help)
TeamRoomVpwCreated
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes"
##########################################################
7By Category|ActiveCategory1-
Categories$106$121
DocType$126d
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
    TeamRoom Navigator | TeamRoom NavigatorG3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(NotesFixCategories)
This is run via the 'Map Categories' button in the map cat. formEH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
(NotesMapAgent)
EH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
ViewTitle
ViewTitle
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
i$ACTIONSCy34Q
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
HelpAdvOptHelpAdvOptJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
HelpCategoryHelpCategoryJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
HelpCommTypeHelpCommTypeJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
HelpEventHelpEventJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
HelpMissionHelpMissionJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
HelpParticipantHelpParticipantJC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
Newsletter ProfileInterestProfileInterest ProfileCD
ProfileThreadSubjectsProfileStringsNewStringWebProfileStringsProfileEventsProfileCategoriesProfileAuthorsPersonNamePROTECTFROMARCHIVE$HLTitleFromRemote_UserFullPersonNameHiddenDocumentSubjectreadersProfileThreads
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
(ProfileInstructions)(ProfileInstructions)C
HiddenDocument
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
a=ZR'g
(WebExpire)
This performs the expiring/unexpiring of document functions for the web user.EH4fL3u
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
FromAuthor of this document
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
ResponseResponse
Shared Response HeaderResponseBanner
BodyCategoriesParentSubjectSubjectThreadIndentThreadSortExpireDateNewsLetterSubjectParentFormImmediateParentSubjectOriginalSubjectReadersAbbreviateFromFormnameMainIDFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
Response To ResponseResponseToResponse
Shared Response HeaderResponseBanner
BodyCategoriesParentSubjectSubjectThreadIndentThreadSortExpireDateNewsLetterSubjectParentFormImmediateParentSubjectOriginalSubjectReadersAbbreviateFromFormnameMainIDforRRFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
RespThreadsCUA3
ViewList
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
MasterTRFrameset|MasterTRFrameset#4C
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14S
Milestones$106$116$121$122$123$124DocType$Conflict$REF
MainTopic
Status
Milestones
Milestones$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1220
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$123Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S$124Due
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14SDocTypeType&
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
DueDateStatus
    1S2S3S
LastModDate
    0R1S2S3S
LastModDate
    0R1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
cI#'2)
!p"q*
rvO8:
$CIAOOwner
$CIAOTime
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Open is 0, Complete is 1
DueDateStatus
    0R1S2S3S
LastModDate
    0R1S2S3S
LastModDate
    0R1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$CIAOOwner
$CIAOTime
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
Forward as BookmarkK.
Bookmark
    4S6S
_Move to Folder...
_Remove from Folder...
New Document.
MainTopic
    0S0E
Response,
Response
    0S0E
New Event
Event
[TeamFacilitator]
    0S0E
New Team MemberK4
ParticipantProfile
[TeamFacilitator]
    0S0E
New SubteamK*
Subteam
[TeamFacilitator]
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
Forward as BookmarkK.
Bookmark
    4S6S
_Move to Folder...
_Remove from Folder...
New Document.
MainTopic
    0S0E
Response,
Response
    0S0E
New Event
Event
[TeamFacilitator]
    0S0E
New Team MemberK4
ParticipantProfile
[TeamFacilitator]
    0S0E
New SubteamK*
Subteam
[TeamFacilitator]
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
D^|pH
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$INFO
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$INFO
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
,V@^|eO
$TITLE
$INFO
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
C,sQ'`1    "
$TITLE
$INFO
$BODY
Event
EventDate
DueDate
DueDate
MtgDate
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
current_status
    0R2R3S4S6S8R9S10S12S14S15S16S18S20S21S22S24S26S27S28S32S34S36S38S40S42S45S47S
EventTxt
Event
Disctxt
DefaultDocType1
ActionItemTxt
DefaultDocType2
MtgTxt
DefaultDocType3
Event
EventTxt
DocType
DefaultDocType1
DiscTxt
DocType
DefaultDocType2
ActionItemTxt
DocType
DefaultDocType3
MtgTxt
Event
EventSummary
Subject
MTime
MtgTime
MtgTime
MTime
$68$46$67$Conflict
Status
DueDate
MtgDate
Event
    L1S2S3S4S5S7S8S9S10S11S12S13S14S15S16S
 $68t
Event
EventDate
DueDate
DueDate
MtgDate
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
current_status
    0R2R3S4S6S8R9S10S12S14S15S16S18S20S21S22S24S26S27S28S32S34S36S38S40S42S45S47S$67For
EventTxt
Event
Disctxt
DefaultDocType1
ActionItemTxt
DefaultDocType2
MtgTxt
DefaultDocType3
Event
EventTxt
DocType
DefaultDocType1
DiscTxt
DocType
DefaultDocType2
ActionItemTxt
DocType
DefaultDocType3
MtgTxt
Event
EventSummary
Subject
MTime
MtgTime
MtgTime
MTime
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Event
Event
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
NewEvent.gif|NewEvent.gif?
Calendar Format\One Week$
FullCalendar.gif|FullCalendar.gif?
Calendar Format\Two Weeks
FullCalendar.gif|FullCalendar.gif?
Calendar Format\One Month
FullCalendar.gif|FullCalendar.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Event
Event
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
Calendar Format\One Week$
Calendar Format\Two Weeks
Calendar Format\One Month
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$FormulaTV
$VIEWFORMAT
$CalendarFormat
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$139i
    3S4S8S10S12S15S17S19S22S24S
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S
DocType
DocType
$139$106$116$121$142$143$146DocType$Conflict$REF
MainTopic
Status
    L1S3S4S5S6S7S8S10S11S
$139i
    3S4S8S10S12S15S17S19S22S24S$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1422
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$143Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S$146Author,
DocTypeType
DocType
DocType
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
]84?A
$TITLE
$Index
$FORMULA
$FORMULACLASS
$FormulaTV
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Use "wStringResource"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub DoFTSearch
Declare Sub DoFormulaSearch
Declare Sub BuildTextList(n As Variant)
Declare Sub BuildTotalQuery
Declare Sub Terminate
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim newnote As NotesDocument
Dim newsletter As NotesNewsLetter
Dim collection As NotesDocumentCollection
Dim pPersonName As Variant
Dim pCategories As Variant
Dim pEvents As Variant
Dim pAuthors As Variant
Dim pStrings As Variant
Dim pMyName As Variant
Dim pThreads As Variant
Dim searchtype As String
Dim query As String
Dim textlist As String
Dim totalquery As String
Dim failed As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    On Error Goto ErrorCleanup
    Set s = New NotesSession
    Set db = s.CurrentDatabase
    Set view = db.GetView("($Profiles)")
    Set profile = view.GetFirstDocument
    If profile Is Nothing Then Exit Sub
    Failed = False
    FormName = profile.Form
    If FormName(0) <> "Interest Profile" Then Set profile = view.GetNextDocument(profile)
    Do Until profile Is Nothing
        FormName = profile.Form
        pPersonName = profile.PersonName
        pSendTo = profile.FullPersonName
        pCategories = profile.ProfileCategories
        pEvents = profile.ProfileEvents
        pAuthors = profile.ProfileAuthors
        pStrings = profile.ProfileStrings
        pMyName = profile.ProfileMyName
        pThreads = profile.ProfileThreads
        If pCategories(0) = "" And pAuthors(0) = "" And pStrings(0) = "" And pMyName(0) = "" And pThreads(0) = ""  And pEvents(0) = "" Then
               'if all the fields are blank, don't bother to search
        Else
            If db.IsFTIndexed = True Then
                DoFTSearch
            Else
                DoFormulaSearch
            End If
            If collection.Count > 0 Then
                Set newsletter = New NotesNewsletter(collection)
                newsletter.DoSubject = True
                newsletter.SubjectItemName = "NewsLetterSubject"
                Set newnote = newsletter.FormatMsgWithDoclinks(db)
                newnote.Form = "Memo"
'                    newnote.SendTo = pPersonName(0)
                newnote.SendTo = pSendTo(0)
                newnote.Subject = getstring(46) & db.Title
                newnote.Send True
            End If
        End If
        Set profile = view.GetNextDocument(profile)
    Loop
    Exit Sub
ErrorCleanup:
    Failed = True
    Exit Sub
End Sub
'++LotusScript Development Environment:2:2:DoFTSearch:1:8
Sub DoFTSearch
    searchtype = "FT"
    totalquery = ""
    Forall n  In pCategories
        BuildTextList(n)
    End Forall
    If textlist <> "" Then
        query = "field Categories contains (" & textlist & ")"
        BuildTotalQuery
    End If
    Forall n  In pEvents
        BuildTextList(n)
    End Forall
    If textlist <> "" Then
        query = "field Milestones contains (" & textlist & ")"
        BuildTotalQuery
    End If
    Forall n In pAuthors
        If textlist <> "" Then
            query = "field AbbreviateFrom contains (" & textlist & ")"
            BuildTotalQuery
        End If
    End Forall
    Forall n In pStrings
        BuildTextList(n)
    End Forall
    If pMyName(0) <> "" Then
        Forall n In pPersonName
            BuildTextList(n)
        End Forall
    End If
    If textlist <> "" Then
        query = "field Body contains (" & textlist & ") or field Subject contains (" & textlist & ")"
        BuildTotalQuery
    End If
    Forall n In pThreads
        BuildTextList(n)
    End Forall
    If textlist <> "" Then
        query = "field ThreadId contains (" & textlist & ")"
        BuildTotalQuery
    End If
    totalquery = totalquery & " and (not(field form contains log, profile))"
    Set collection = db.UnprocessedFTSearch(totalquery, 0)
End Sub
'++LotusScript Development Environment:2:2:DoFormulaSearch:1:8
Sub DoFormulaSearch
    searchtype = "Formula"
    totalquery = ""
    If pCategories(0) <> "" Then
        Forall n In pCategories
            BuildTextList(n)
        End Forall
        If textlist <> "" Then
            query = "(@Contains(@UpperCase(Categories); @UpperCase(" & textlist &_
            ")) | @AllDescendants)"
            BuildTotalQuery
        End If
    End If
    If pEvents(0) <> "" Then
        Forall n In pEvents
            BuildTextList(n)
        End Forall
        If textlist <> "" Then
            query = "(@Contains(@UpperCase(Milestones); @UpperCase(" & textlist &_
            ")) | @AllDescendants)"
            BuildTotalQuery
        End If
    End If
    If pAuthors(0) <> "" Then
        Forall n In pAuthors
            BuildTextList(n)
        End Forall
        If textlist <> "" Then
            query = "@Contains(@UpperCase(AbbreviateFrom); @UpperCase(" & textlist & "))"
            BuildTotalQuery
        End If
    End If
    If pStrings(0) <> "" Then
        Forall n In pStrings
            BuildTextList(n)
        End Forall
        If textlist <> "" Then
            query = "@Contains(@UpperCase(Body); @UpperCase(" & textlist &_
            ")) | @Contains(@UpperCase(Subject); @UpperCase(" & textlist & "))"
            BuildTotalQuery
        End If
    End If
    If pMyName(0) <> "" Then
        query = "@Contains(@UpperCase(Body); @UpperCase(" & """" & pPersonName(0) & """" &_
        ")) | @Contains(@UpperCase(Subject); @UpperCase(" & """" & pPersonName(0) & """" & "))"
        BuildTotalQuery
    End If
    If pThreads(0) <> "" Then
        Forall n In pThreads
            BuildTextList(n)
        End Forall
        If textlist <> "" Then
            query = "@Contains(@UpperCase(ThreadId); @UpperCase(" & textlist & "))"
            BuildTotalQuery
        End If
    End If
    totalquery = totalquery & " & @isavailable(NewsletterSubject) & (!@Contains(Form; ""Log"" : ""Profile"")) & (readers = """")"
    Set collection = db.UnprocessedSearch(totalquery, Nothing, 0)
End Sub
'++LotusScript Development Environment:2:2:BuildTextList:1:8
Sub BuildTextList(n As Variant)
    If searchtype = "FT" Then
        If textlist = "" Then
            textlist = n
        Else
            textlist = textlist & ", " & n
        End If
    Else
        nvalue = """" & n & """"
        If textlist = "" Then
            textlist = nvalue
        Else
            textlist = textlist & " : " & nvalue
        End If
    End If
End Sub
'++LotusScript Development Environment:2:2:BuildTotalQuery:1:8
Sub BuildTotalQuery
    If totalquery = "" Then
        totalquery = query
    Else
        If searchtype = "FT" Then
            totalquery = totalquery & " or " & query
        Else
            totalquery = totalquery & " | " & query
        End If
        query = ""
    End If
    textlist = ""
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
    If Not (failed) Then
        Set collection = db.UnprocessedDocuments
        For n = 0 To collection.Count
            Set note = collection.GetNthDocument(n)
            Call s.UpdateProcessedDoc(note)
        Next
    End If
End Sub
Lotus Product
V0.0e
}t    G`
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
R{z8%
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S9S10S12S14S2E16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S
$106$116$121$142$143DocType$Conflict$REF
LCName
    1S2S8S
LCFrom
    0R1S2S8S
MainTopic
LCFrom
LCName
    0RL1S2S3S4S5S6S7S8S9S
$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1422
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S9S10S12S14S2E16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$143Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19SDocTypeType&
Send Docu_ment
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Send Docu_ment
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
V6I^u3
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S2E16S17S18S19S
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14S
Categories$106$116$121$124$125$126$145DocType$Conflict$REF
MainTopic
Status
Categories$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1242
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$125Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S2E16S17S18S19S$126Due
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14S$145Author,
DocTypeType&
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Categorize Team Documents
Notes only
(CategorizeTeamDocs)
    0R4S
CategorizeTeamDocs.gif|CategorizeTeamDocs.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Categorize Team Documents
Notes only
(CategorizeTeamDocs)
    0R4S
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
r.i,aix
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
TeamWkspcTxtTeam Workspace
FacilOptTxtLeader/Facilitator Options
ProjInfoTxtProject Information
PersWkspcTxtPersonal Workspace
ByDateTxtby Date
byDueDateTxtOpen by Due Date
byAssignmentTxtOpen by Assignment
CreateNewTStatusTxtCreate New Team Status
byCommTypeTxtby Communication Type
byEventTxtby Event
byCategTxtby Category
FiledDocsTxtFiled (Inactive) Documents
STStatTxtSubteam Status
TStatustxtTeam Status
OverviewTxtMission/Team Members
MyNewsTxtMy Newsletter Profile
MyAssignedDocsTxtDocuments Assigned to Me
MapCategTxtMap Categories
SendRemindTxtSend Reminders Now
IndexAllTxtIndex of All  Documents
CalendartxtCalendar
CreateSTStatusTxtCreate New Subteam Status
ModifyMissionTxtModify Mission/Members
DocsICreatedTxtDocuments I Created
ByDateHS
ActiveDate
ByDueDateHS
ActiveDueDate
ByEventHS
ActiveEvent
ByCatHS
ActiveCategory
ByCommTypeHS
ActiveCommType
ByAssignHS
OpenAssignment
MyDocsHS
PersAssignedToMe
NewsletterProfileHS
Interest Profile
    0S0E
OverviewHS
TeamOverview
TeamStatHS
StatusLookup
STStatHS
SubteamStatusLookup
CalendarHS
Calendar
IndexAllHS
($All)
FiledDocsHS
Filed
ModifyMissionHS
MissionLookup
Mission
server
MissionLookup
NoCache
BuildHTML
http://
server"
/missionlookup/mission?editdocument
MissionLookup
Mission
MissionLookup
BuildHTML
MissionLookup
Mission
MissionLookup
MissionLookup
CreateTStatHS
Status
CreateSTStatHS
SubteamStatus
SendRemindHS
SendReminder
MapCatHS
Notes
MapCategories
(NotesMapAgent)
    3S4S6S10S13S17S
DocsICreatedHS
PersDocsICreated
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ViewMapDataset
$ViewMapLayout
$NavImagemap
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub MapCategories
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim oldcat As Variant
Dim currentcat As Variant
Dim db As notesdatabase
Dim selected As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Set db =  s.currentdatabase
    Set uidoc  = uiwork.currentdocument
    Set note = uidoc.document
    oldcat = note.getitemvalue("OldCat")
    currentcat = note.getitemvalue("CurrentCat")
    selected = Ubound(oldcat)
    If oldcat(0) = "" Then
        Messagebox getstring(33), 16, getstring(37)
        Exit Sub
    Elseif currentcat(0) = "" Then
        Messagebox getstring(34), 16, getstring(37)
        Exit Sub
    End If
    MapCategories
    If selected = 0 Then
        Msgbox getstring(35), 64, getstring(38)
    Else
        Msgbox getstring(36), 64, getstring(38)
    End If
    Call uidoc.fieldsettext("OldCat", "")
    Call uidoc.fieldsettext("CurrentCat", "")
    Call uidoc.refresh
End Sub
'++LotusScript Development Environment:2:2:MapCategories:1:8
Sub MapCategories
    Dim View As NotesView
    Dim Item As NotesItem
    Dim i As Integer
    Dim cats As Variant
    Dim Doc As NotesDocument
    Set View=Db.GetView("($All)")
    Set Doc= View.GetFirstDocument
    While Not(doc Is Nothing)
        cats=Doc.GetItemValue("Categories")
        i = 0
        Forall x In cats
            Forall y In OldCat
                If Lcase(x) = Lcase(y) Then
                    cats(i) = CurrentCat(0)
                    Set item = doc.replaceitemvalue("Categories", cats)
                End If
            End Forall
            i= i+1
        End Forall
        Call Doc.Save( True, True)
        Set Doc=View.GetNextdocument(Doc)
    Wend
End Sub
Lotus Product
OBJECT
,\    Jl
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Started running agent 'NotesMapAgent' on 12/01/1998 08:21:15 AM
Ran LotusScript code
Done running agent 'NotesMapAgent' on 12/01/1998 08:21:18 AM
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'MapOldCategories:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim db As notesdatabase
    Dim MissView As notesview
    Dim key As String
    Dim MissDoc As Variant
    Dim clienttype As Variant
    Dim dlg As Variant
    Dim uiwork As New notesuiworkspace
    Dim tempNote As notesdocument
    Dim dbug As noteslog
    Set db = session.currentdatabase
    Set missview = db.getview("MissionLookup")
    Set tempNote = db.createDocument
    key = "Mission"
    clienttype = Evaluate("@Clienttype")
    Set MissDoc= MissView.getdocumentbykey(key)
    dlg= uiwork.dialogbox("MapCategories", True, True, True, True, True, False, getString(38),tempNote, True, True)
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
9a.*`
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
AC'l=W
$TITLE
$INFO
$BODY
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Save & Close
Hide if 'New doc' button not clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
validate()
only used in Participant, Event, and Subteam profiles
hidden if NewDoc has not been clicked
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
New Team StatusK(
Status
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
NewTeamStatus.gif|NewTeamStatus.gif?
New Subteam Status0
SubteamStatus
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
NewSubteamStatus.gif|NewSubteamStatus.gif?
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
MarkPrivate.gif|MarkPrivate.gif?
Mark PublicKX
readers
    0S0E
readers
    0S0E
MarkPublic.gif|MarkPublic.gif?
Parent Preview8
Notes only
ParentPreview.gif|ParentPreview.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
MarkDocAsExpired.gif|MarkDocAsExpired.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
cancel.gif|cancel.gif?
window.close(self)
only used in Participant, Subteam, and Event profiles
Hidden if they did not click the 'New document' button
Forward as BookmarkK.
Bookmark
    4S6S
ForwardK
    0S0E
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
SetStatusToInactive.gif|SetStatusToInactive.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
New Team StatusK(
Status
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
New Subteam Status0
SubteamStatus
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
Mark PublicKX
readers
    0S0E
readers
    0S0E
Parent Preview8
Notes only
SearchF
Web only - used in Views
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Forward as BookmarkK.
Bookmark
    4S6S
ForwardK
    0S0E
Move to Trash
    0S0E
EmptyTrash
    0S0E
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
$V5ACTIONS
$ACTIONS
&Arial
 HelpAdvOpt
Advanced Options Help
    Enable
    Marking Documents Inactive
    for documents to be marked "inactive" on the date specified when they are created.  The documents will be removed from the Active Work views and marked as "Inactive" in the Index of All Documents view.  The Default Interval indicates the default date that new Documents are set to be marked inactive.  When enabled, this agent will run on a Daily basis.
    Enable
    Newsletters
    to have emails sent to individuals who have created a "Newsletter Profile".  The criteria on the profile is matched with any criteria found in the topics of the TeamRoom.  Each match generates a document link, which will become part of the newsletter; that newsletter is then mailed to the subscriber. When enabled, this agent will run on a Daily basis.
    Enable
    Reminders
    to have an email reminder sent when the Due Date has passed on a topic in the TeamRoom.  This feature also checks to see if a document has been assigned for review by a team member.  If so, an e-mail is sent to that person, indicating that a document needs their review.   When enabled, this agent will run on a Daily basis.
    Agents must be enabled and disabled via the Notes client.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
 HelpCategory
HelpHide
ParticipantHelpUnhide
    1S2S
Categories Help
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
    Categories:
      It is critical for the team to
    agree
     on the categories and the definition of each category.  Individuals have their own ways of organizing information, yet participating on a team requires developing a common language and shared categories.  Limit the number of categories the team initially uses.  It is easier to add categories after working with TeamRoom, rather than have the team confused by too many categories.
    Examples:  If you were a team leader in a toy manufacturing company, your categories might include:  Manufacturing; Quality Control; Marketing; Sales; Promotional Materials.
    Multiple categories can be entered by separating the values with a semi-colon (;) or a carriage return.
    Mapping Categories:
    While editing this TeamRoom Setup, category names may have been added or replaced.  Documents in this TeamRoom may have been created using the prior category list.  Use the Map Categories feature to replace obsolete categories with current categories defined in the TeamRoom Setup.  Note:  This feature is useful when a TeamRoom database has been created by replacing the design of a Discussion database.  To map the categories, save the changes that have been made to the TeamRoom Setup and click 'Map Categories' at the bottom left of the screen.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
 HelpCommType
HelpHide
ParticipantHelpUnhide
    1S2S
Document Types Help
    Given the work of your team, consider what communication should be face-to-face, phone, E-mail or in TeamRoom.  The type of document that benefits from occurring in TeamRoom is information that is in context of other relevant information, that can be easily accessed and contributed to by more than two people, or that provides a record of the team's work.
    There are four default document types:  Discussion, Action Item, Meeting, and Reference.  The Document form will 'morph' (change) depending upon the document type which is selected at the time the Document is created.  For example, an Action Item wil have a Due Date field, while a Meeting will have a Meeting Date/Time, Location, etc.  You can add as many document types as you wish.  These will have the same fields as the "Discussion" document type.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
 HelpEvent
HelpHide
ParticipantHelpUnhide
    1S2S
Milestone/Event Help
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
    Milestones/Events help provide team focus. Consider the following:
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
    What are critical deadlines for the team?
    What are important events around which work may be focused?
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
    Deleting Milestones/Events:
    Click the "Delete Participant, Subteam or Event" button at the top of the TeamRoom Setup (these documents can also be deleted from the TeamRoom Overview view).
    Updating Milestone/Event documents:
    (Notes users should close the TeamRoom Setup document before proceeding).  Click TeamRoom Overview from the left frame, beneath Project Information.  Double-click on the document you wish to edit.  Click the Edit Document action button.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
 HelpMission
HelpHide
ParticipantHelpUnhide
    1S2S
Team Name & Purpose Help
    Fill in a Team Name and a Team Purpose to define the use of this TeamRoom application.
    The Team Purpose might provide details about why the team exists, and what the team should accomplish.  Specific goals and detailed work objectives can also be delineated here.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
1,2ARxu
5l#G@
$INFO
$WebFlags
$$ScriptName
$BODY
&Arial
 HelpParticipant
HelpHide
ParticipantHelpUnhide
    1S2S
Participants Help
    Team Leader:
      The team room leader is responsible for setting direction and creating an environment leading to the accomplishment of the team goal.  Only the Team Leader and Team Facilitator should have Editor access (ability to edit documents that others create and changing the TeamRoom Setup information) to the TeamRoom database.
    Team Facilitator:
      The TeamRoom facilitator is responsible for managing the use of the TeamRoom database, translating the team's design criteria into the teamroom architecture, creating the TeamRoom Setup, the Category and Communication Type lists, the Participant Profiles and setting the database's Access Control List.  S/he is also responsible for maintaining the TeamRoom in accordance with team agreements and goals, modifying the system according to team decisions, verifying the accuracy and consistency with which members are using the application, teaching and coaching members in the use of the tool and integrating new team members into the TeamRoom.
    Deleting Participants or Subteams:
     Click the "Delete Participant, Subteam or Event" button at the top of the TeamRoom Setup (these documents can also be deleted from the TeamRoom Overview).  Reminder:  if you delete a team member, remove them from any subteams in which their name is listed.
    Updating Participant and Subteam documents:
    (Notes users should close the TeamRoom Setup document before proceeding).  Click TeamRoom Overview from the left frame, beneath Project Information.  Double-click on the document to be edited.  Click the Edit Document action button.
    When setting up a new Team Room:
    Identify the Team Leader
    Identify the Team Facilitator
    Click Add Team Member to add the new team members for this teamroom.  Answer the question: What skills are needed to get this job done and who are the people with these skills?  Important:  Remember to add the Team Leader and Team Facilitator as team members as well!
    Click Add Subteam to define subteams within the larger team.  You should Add Team Members first, so the team members appear on the member list when you create the subteam.
    Click Subteam Details to see a list of team members who belong to each subteam.
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WebFlags
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$BODY
function helpNProfile()
var newWindow = window.open("(ProfileInstructions)","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=700")
Newsletter Profile
(WebInterestProfileSave)
(WebInterestProfileOpen)
(Help)
TeamRoomFInterestProfile
    0R4S6S8S
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim DocWasSaved As Integer
Dim ProfileKey(1) As String
Dim tmpList As Variant
Lotus Product
 Interest Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Postrecalc From Source Call Postrecalc
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Action = note.Action
    If Action(0) = "Maintain" Then
        PersonName = note.PersonName
    Else
        Exit Sub
    End If
    source.AutoReload = False
    Set profile = view.GetDocumentByKey(PersonName(0),False)
    If profile Is Nothing Then Exit Sub
    ItemList = note.Items
    Forall n In ItemList
        Print n.Name
        note.RemoveItem(n.Name)
    End Forall
    profile.CopyAllItems note
    source.Reload
    source.Refresh
    source.Refresh
    DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    DocWasSaved = True
    If profile Is Nothing Then
        Exit Sub
    Else
        note.SaveOptions = "0"
    End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'    If Profile Is Nothing Then
'        note.save True, True
'    End If
    If (DocWasSaved = False) Or (profile Is Nothing) Then
        Exit Sub
    End If
    ItemList = profile.Items
    Forall n In ItemList
        profile.RemoveItem(n.Name)
    End Forall
    note.CopyAllItems profile
    profile.SaveOptions = "1"
    profile.save True, True
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If Isnewdoc Then Exit Sub
    Set note = source.document
     'remove all this so it can get resest with default values each time the doc is opened
    note.RemoveItem("WebProfileStrings")
    note.RemoveItem("WebProfileCategories")
End Sub
Lotus Product
OBJECT
    Hidden Fields:
    List of threads that the user wants to be notified of
ProfileThreads
ProfileThreadsz
ProfileThreads
    List of people who can see the document
readers
readers
    Subject for forwarding this note
Newsletter Profile for
PersonName"
    1S2S
Subject
Subject
    No idea.
HiddenDocumentz
HiddenDocument
    Standard Return information for the web clients
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
    Full Hierarchical Name of user
FullPersonNamez
FullPersonName
    Web User name
TYPE=hidden
Remote_User
Remote_User
Remote_User
    author of the document
FromAuthor of this document
    for when when interest profiles are converted to subscriptions
$HLTitle
.,$,  , :
PROTECTFROMARCHIVE
    don't allow these documents to be marked as "expired"
Newsletter Profile Preferences for:
PersonNameRequired:  enter a short description of this main topic.z
PersonName
    [<br>]
Lookup
NoCache
    1S2S5S6S8S10S12S2E
Lookup
Mission
    0R1S2S
Variables to translate
Error
The TeamRoom Setup has not yet been completed.  Some field data will be missing.
    0R1S2S
End variables to translate
    0R1S
MissionLookup
    0R1S2S
Lookup
NoCache
    0R1S2S5S6S8S10S12S2E
Lookup
Mission
Error
    0R3S4S6S8S
MissionError
    Inform me of new documents by these Authors:
size=6
ProfileAuthors
    0S0E
profileauthors
    0S0E
ProfileAuthors
PeopleLookup
    1S2S
NoCache
    0R6S8S10Sz
ProfileAuthors
    [<br>]
    Inform me of new documents in these Categories:
size=6
ProfileCategories
    0S0E
ProfileCategories
MissionLookup
    1S2S
nocache
    0R6S8S10S
ProfileCategories
    [<br>]
    Inform me of new documents referencing these Events:
size=6
ProfileEvents
ProfileEvents
EventLookup
    1S2S
nocache
    0R6S8S10S
ProfileEvents
    [<br>]
    Inform me of new documents with Subjects containing these words or phrases:
    (separate each listing with a new line )
WebProfileStrings
ProfileStrings
    0S0E
WebProfileStrings
    Enter a new word or phrase:
size= 40
NewString
NewString
Notes
    1S2S3S4S
size=6
ProfileStrings
Notes
ProfileStrings
WebProfileStrings
NewString
WebProfileStrings
NewString
    3S4S6S11S12S13S18S23S24S
WebProfileStrings
Notes
WebProfileStrings
NewString
    1S2S3S6S7S9S11S16S17S
NewString
    0R1S2S3S
ProfileStringsz
ProfileStrings
    [<br>]
ProfileThreadsj
    4S5S
    Inform me if there is activity in any of the following threads:
ProfileThreadSubjects
ProfileThreadSubjects
ProfileThreadSubjects
    [<br>]
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
InstructionsV
(ProfileInstructions)
    2S4S7S8S
instructions.gif|instructions.gif?
Instructions
instructions.gif|instructions.gif?
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.lastIndexOf("nsf")+4))
var newWindow = window.open(filename + "(ProfileInstructions)?openForm","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=600,width=600")
Remove Thread
notes only
variables to translate
    0R1S
Title1
Current Threads
    0R1S2S
Please choose the thread that you want to remove. (Note: This operation cannot be undone.)
    0R1S2S
Title2
Remove Thread
    0R1S2S
There are currently no threads in your interest profile.  Select Add Topic to Interest Profile from any view.
    0R1S2S
END variables to translate
    0R1S
RemoveSubject
profilethreads
RemoveSubject
Title1
ProfileThreadSubjects
ProfileThreadSubjects
Title2
    0R10R13S14S16S18S20S24S27S37S38S39S
Member
RemoveSubject
ProfileThreadSubjects
    0RR1S2S6S
ProfileThreadSubjects
ProfileThreadSubjects
RemoveSubject
    0RR1S2S3S9S11S
RemoveId
ProfileThreads
Memberk
    0RR1S2S8S11S
ProfileThreads
ProfileThreads
RemoveId
    0RR1S2S3S9S11S
    0RR4
ProfileThreadsj
    4S5S
RemoveThread.gif|RemoveThread.gif?
Remove Thread
web only
RemoveThread
ProfileThreadSubjects
    1S2S
RemoveThread.gif|RemoveThread.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
InstructionsV
(ProfileInstructions)
    2S4S7S8S
Remove Thread
notes only
variables to translate
    0R1S
Title1
Current Threads
    0R1S2S
Please choose the thread that you want to remove. (Note: This operation cannot be undone.)
    0R1S2S
Title2
Remove Thread
    0R1S2S
There are currently no threads in your interest profile.  Select Add Topic to Interest Profile from any view.
    0R1S2S
END variables to translate
    0R1S
RemoveSubject
profilethreads
RemoveSubject
Title1
ProfileThreadSubjects
ProfileThreadSubjects
Title2
    0R10R13S14S16S18S20S24S27S37S38S39S
Member
RemoveSubject
ProfileThreadSubjects
    0RR1S2S6S
ProfileThreadSubjects
ProfileThreadSubjects
RemoveSubject
    0RR1S2S3S9S11S
RemoveId
ProfileThreads
Memberk
    0RR1S2S8S11S
ProfileThreads
ProfileThreads
RemoveId
    0RR1S2S3S9S11S
    0RR4
ProfileThreadsj
    4S5S
Remove Thread
web only
RemoveThread
ProfileThreadSubjects
    1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$HTMLCode
$INFO
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$V5ACTIONS
$ACTIONS
&Arial
Lotus Product
OBJECT
 (ProfileInstructions)
Newsletter Profile Help
    The Newsletter Profile allows you to find and follow TeamRoom topics that meet the criteria you designate in the Newsletter Profile. You will be notified of the relevant TeamRoom topics via a newsletter which will be mailed to you.  This newsletter will contain document links to the TeamRoom topics that meet your criteria.
    You can choose the following in your Newsletter Profile:
    Inform me of new documents by these Authors:
    Specify one or more authors.
    Inform me of new documents in these Categories:
    Specify a category or categories that you wish to follow.
    Inform me of new documents referencing these Events:
    For example:
    Beta Release (April 23, 1989)
    Inform me of new document Subjects containing these words or phrases:
    Specify a word or phrase that would be contained in the subject of the document.
    In addition to the above selections, you can choose to track any individual discussion thread by selecting a document in that thread, then choosing the
    Actions menu
    item:
    Add Selected Topic to Newsletter Profile
    for Notes users
    Web users should open the main topic document that they want added and select the
    Add Selected Topic to Newsletter Profile
     action from the document.
HiddenDocument
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from FolderK
window.close(self)
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$$Script_O
$$ScriptName
$BODY
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim topicview As String
Dim favorites As String
Dim categoryview As String
Dim archivingview As String
Dim authorview As String
Dim originalnote As notesdocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    InstantiateObjects
    dbpath = getdbpath
    AllView =   "<hr><font size=2><a href=/" + dbpath + "/($All)?OpenView>"+ getString(50) +"</a>  "
    MissionView = "<a href=/" + dbpath + "/TeamOverview?OpenView>"+GetString(51)+"</a>  "
    ActiveView = "<a href=/" + dbpath + "/ActiveDate?OpenView>"+GetString(52)+"</a><hr>"
      'Get real document
    OriginalUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "&")+1, 32)
    Set originalNote = db.getdocumentbyunid(originalunid)
    'CurrentDocument = "<BR><b><a href=/"+dbpath+"/($All)/"+Lcase(originalUNID)+"?OpenDocument>"+GetString(1)+"</a></b><BR>"
    If Originalnote.hasitem("protectfromarchive") Then
        Print "<b>"+Originalnote.form(0)+GetString(12)+ "</b>" + AllView + MissionView + ActiveView
    Elseif OriginalNote.hasitem("expiredate") Then
        If originalnote.expiredate(0) <> "" Then
            Print "<b>" + GetString(13)+  "</b>" + AllView + MissionView + ActiveView
            OriginalNote.Removeitem("Expiredate")
            Call OriginalNote.save(True, False)
        Else
            OriginalNote.expiredate = Today
            Call OriginalNote.save(True,False)
            Print "<b>" + GetString(14)+  "</b>" + AllView + MissionView + ActiveView
        End If
    Else
        OriginalNote.expiredate = Today
        Call OriginalNote.save(True,False)
        Print "<b>" + GetString(14)+  "</b>" + AllView + MissionView + ActiveView
    End If
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
"Small Fonts
NewDocTitle
New Response to "
OriginalSubject
OriginalSubject
Subject
    1S2S3S4S11S13S15S16S
StandardTitle
Response to "
OriginalSubject
    0R1S2S3S4S5S6S
NewDocTitle
StandardTitle
    0R4S6S
Lotus Product
OBJECT
 Response
    Author of the document
J-@8U
Fromz
    Used for adding topics to the interest profile
J-@8U
Remote_User
Remote_User[<TYPE=hidden >]
Remote_User
    the UNID of the main document
J-@8U
MainID
MainIDz
MainID
    form name (used in RespBanner subform)
J-@8U
Response
Formname
Shared Response Header
ResponseBanner
    Content:
height="300" width=625"
BodyEnter your comments, questions, ideas for discussion.
variables to translate
GoBack
Go Back
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2S
end variables to translate
    0R1S
    0RR1S2S10S
[<hr><b><a href=/
($All)?OpenView>"
AllView
</a></b>    "
<b><a href=/"
/TeamOverview?OpenView>
MissionView
</a></b>    "
<b><a href=/"
/ActiveDate?OpenView>
ActiveView"
</a></b>    "
<b><a href="javascript: onClick=history.back()">"
GoBack"
</a></b>    "
<b><a href="/
/$Help?OpenHelp">
Help"
</a></b><hr>]
    0R1S2S3S4S5S6S7S8S2E9S10S2E11S12R13S14S15S16S18S19S21S22R23S24S25S26S28S29S2E31S32R33S34S2E35S36S37S38R39S40S41S42S44S
ViewList
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
New ResponseD
web only
Response
    0R4S
New Response to MainD
notes only
Response
NewResponseToMain.gif|NewResponseToMain.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
MarkPrivate.gif|MarkPrivate.gif?
Mark PublicKX
readers
    0S0E
readers
    0S0E
MarkPublic.gif|MarkPublic.gif?
Parent Preview8
Notes only
ParentPreview.gif|ParentPreview.gif?
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
MarkDocAsExpired.gif|MarkDocAsExpired.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
New ResponseD
web only
Response
    0R4S
New Response to MainD
notes only
Response
New Response to ResponseN
notes only
ResponseToResponse
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
Mark PublicKX
readers
    0S0E
readers
    0S0E
Parent Preview8
Notes only
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
#s(]    R
$HTMLDocumentStyles
$INFO
$SubForms
$WINDOWTITLE
$$Script_O
$$ScriptName
ExpireDate
$BODY
$V5ACTIONS
$ACTIONS
"Small Fonts
NewDocTitle
New Response to "
Subject
    1S2S3S4S5S6S
StandardTitle
Response to "
ImmediateParentSubject"
    0R1S2S3S4S5S6S
NewDocTitle
StandardTitle
    0R4S6S
Lotus Product
 ResponseToResponse
    Author of the document
J-@8U
Fromz
    Used for adding topics to the interest profile
J-@8U
Remote_User
Remote_User[<TYPE=hidden >]
Remote_User
    the main document's UNID.  Used in view applet.
J-@8U
MainID
MainIDforRR
MainIDforRR
    form name (used in RespBanner subform)
J-@8U
ResponseToResponse
Formname
Shared Response Header
ResponseBanner
    Content:
height="300" width=625"
BodyEnter your comments, questions, ideas for discussion.
variables to translate
GoBack
Go Back
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2S
end variables to translate
    0R1S
    0RR1S2S10S
[<hr><b><a href=/
($All)?OpenView>"
AllView
</a></b>    "
<b><a href=/"
/TeamOverview?OpenView>
MissionView
</a></b>    "
<b><a href=/"
/ActiveDate?OpenView>
ActiveView"
</a></b>    "
<b><a href="javascript: onClick=history.back()">"
GoBack"
</a></b>    "
<b><a href="/
/$Help?OpenHelp">
Help"
</a></b><hr>]
    0R1S2S3S4S5S6S7S8S2E9S10S2E11S12R13S14S15S16S18S19S21S22R23S24S25S26S28S29S2E31S32R33S34S2E35S36S37S38R39S40S41S42S44S
ViewList
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
New ResponseD
web only
Response
    0R4S
New Response to MainD
notes only
Response
NewResponseToMain.gif|NewResponseToMain.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
MarkPrivate.gif|MarkPrivate.gif?
Mark PublicKX
readers
    0S0E
readers
    0S0E
MarkPublic.gif|MarkPublic.gif?
Parent Preview8
Notes only
ParentPreview.gif|ParentPreview.gif?
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
MarkDocAsExpired.gif|MarkDocAsExpired.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
New ResponseD
web only
Response
    0R4S
New Response to MainD
notes only
Response
New Response to ResponseN
notes only
ResponseToResponse
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
Mark PublicKX
readers
    0S0E
readers
    0S0E
Parent Preview8
Notes only
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$SubForms
$WINDOWTITLE
$$Script_O
$$ScriptName
ExpireDate
$BODY
$V5ACTIONS
$ACTIONS
ViewList
variables to translate
GoBack
Go Back
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2S
end variables to translate
    0R1S
    0RR1S2S10S
[<hr><b><a href=/
($All)?OpenView>"
AllView
</a></b>    "
<b><a href=/"
/TeamOverview?OpenView>
MissionView
</a></b>    "
<b><a href=/"
/ActiveDate?OpenView>
ActiveView"
</a></b>    "
<b><a href="javascript: onClick=history.back()">"
GoBack"
</a></b>    "
    0R1S2S3S4S5S6S7S8S2E9S10S2E11S12R13S14S15S16S18S19S21S22R23S24S25S26S28S29S2E31S32R33S34S2E35S36SViewList
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
MissionError
Variables to translate
Error
The TeamRoom Setup has not yet been completed.  Some field data will be missing.
    0R1S2S
End variables to translate
    0R1S
MissionLookup
    0R1S2S
Lookup
NoCache
    0R1S2S5S6S8S10S12S2E
Lookup
Mission
Error
    0R3S4S6S8S
MissionError
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
 Open by Due Date|ActiveDueDate1
$46$48
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
Personal Workspace: Assigned to me|PersAssignedToMe/L1.
$50$49$48$10
Categoriesb
(Help)
TeamRoomVpwAssign
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
Index of All Documents|($All)12
$187$184$188$121^
(Help)
TeamRoomVIndex
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
TeamRoomName
TeamRoomName
Variable to translate
<The TeamRoom Setup for this TeamRoom has not yet been completed.>
    0R1S
NoTeamName
--No team name specified in the TeamRoom Setup--
    0R1S2S
End variable to translate
    0R1S
MissionLookup
    0RR1S2S
TeamNameLookup
NoCache
Mission
    0R1S2S5S6S8S10S12S14S
TeamNameLookupZ
TeamNameLookup
NoTeamName
TeamNameLookup
    0R7S9S10S11S13S15S
TeamRoomNamez
TeamRoomName
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Main DocumentMain TopicMainTopic&
EditorsReviewedByNotDoneTimeRangeEndDateTimeStartDateTimeReviewerLogBodyPeopleSubteam1People1MtgLocationDurationMtgTimeMtgDateDueDateSubteamInterestMilestonesCategoriesSubjectDocTypeNeverFileFileByDateDefaultDocType4DefaultDocType3DefaultDocType2DefaultDocType1StatusCurrent_StatusDueDateStatusReviewStatusReviewedByRemote_UserPath_InfoNewsLetterSubjectThreadIdreadersAbbreviateFromFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
(WebOpenForm)
This is used to set a flag if the Subteam profile, Participant profile, or Event is a new document.  The value is used in the hide-when formulas on the action buttons in the form.EH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
EventEventCF
DateFiledStatuswebNewDocSubjectFileThisStatusDocEventDetailEventDateEventSummarydeleteQueryStringQUERY_STRING_DECODEDAbbreviateFromFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
Participant ProfilePersonalProfileParticipantProfileCF
DateFiledStatusSubjectwebNewDocWebLookupAlternateServerFileThisStatusDocJobTitlePhoneEmailLocationDepartmentWhodeleteQueryStringQUERY_STRING_DECODEDAbbreviateFromFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
Subteam ProfileSubteamCF
DateFiledStatusSubjectwebNewDocFileThisStatusDocPositionSTMembersSTNamedeleteQueryStringQUERY_STRING_DECODEDAbbreviateFromFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
0000003B
Notes:///852565AB00647D57//85255A0A0010AC8E852558BF00737B2ANotes:///852565AB00647D57:852565AB00647D57//11ENotes:///852565AB00647D57//$aboutAboutTeamRoom (5.0)
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
(MapCategories)MapCategories1CD
CurrentCatOldCatFieldBlankCurrentCatListListCatsMissionCheck
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
dspWelcomedspWelcomeC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
$$Return
$$Return
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</a>    "
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<a href=/
/TeamOverview?OpenView>
MissionView
</a>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<a href=/
/ActiveDate?OpenView>
ActiveView"
</a><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
($Profiles)|($Profiles)/O
PersonName"
    1S2S
$70PersonName$Conflict
Profile
MapCategories
    L1S5S7S8S9S10S
$70PersonName
$70Type2
PersonName"
    1S2S
PersonNamePerson Name&
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CN=Don Hatch/O=IrisCN=Teresa Deane/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NoteswStringResources34Q1#####################################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
RespThreads
Current Thread:
(ThreadMaps)
RefID
$RefV
    1S2S
ResponseToResponse
MainIDforRR
RefID
    0R4S6S8S10R11S12S14S16S
ViewList
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$INFO
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
current_status
    0RR4S6S7S2E8S10S12S13S14S16S18S19S20S22S24S25S26S28S30S31S32S36S38S40S42S44S46S49S51S
MtgDate
MtgDate
DueDate
    4S6S7S8S10S12S
People
    4S6S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S9S10S12S14S16S17S
DocType
    4S6S
$46$48$21$44$47$37$10$Conflict$REF
Status
DueDate
Current_Status
MtgDate
MtgDate
    L3S4S5S6S7S8S9S10S11S12S14S2E15S17S18S19S20S21S22S24S25S
 $46|
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
current_status
    0RR4S6S7S2E8S10S12S13S14S16S18S19S20S22S24S25S26S28S30S31S32S36S38S40S42S44S46S49S51S$48Duep
MtgDate
MtgDate
DueDate
    4S6S7S8S10S12S
$21For:
People
    4S6S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$47Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S9S10S12S14S16S17S$37Author,
$10Type<
DocType
    4S6S
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
7ceSD
$TITLE
$Index
$FORMULA
$FORMULACLASS
$FormulaTV
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
Current_Status
LCDocType
LCMtg
    0RR2S3S4S6S8S2E9S10S12S14S2E
MtgTxt
Meetings
    1S2S
ComplTxt
Completed
    0R1S2S
OpenTxt
    0R1S2S
LCDocType
DocType
    0RR1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
MtgTxt
Current_Status
OpenTxt
ComplTxt
    0RR3S4S6S8S9S10S12S14S
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
IHaveReviewed
ReviewedBy
    0R1S2S8S12S16S18S
LCDocType
LCMtg
current_status
IHaveReviewed
    0R4S6R7S8S10S12R13S14S16S18R19S20S22S24R25S26S28S30S31S32S34S36S37S38S42S44S46S48S50S52S55S57S
NoDateTxt
[No Date]
    1S2S
MtgDate
MtgDate
DueDate
NoDateTxt
DueDate
    0RR4S6S7S8S10S12S13S14S16S18S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S9S10S12S14S2E16S17S
DocType
    4S6S
Categories
Categories
$50$49$46$48$44$47$10Categories$Conflict$REF
LCName
    1S2S8S
LCPeople
Peoplea
    0R1S2S
LCPeople
LCNameG
    0RL1S5S7S8S
$50hidden, to sort status col.
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
Current_Status
LCDocType
LCMtg
    0RR2S3S4S6S8S2E9S10S12S14S2E
MtgTxt
Meetings
    1S2S
ComplTxt
Completed
    0R1S2S
OpenTxt
    0R1S2S
LCDocType
DocType
    0RR1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
MtgTxt
Current_Status
OpenTxt
ComplTxt
    0RR3S4S6S8S9S10S12S14S
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
IHaveReviewed
ReviewedBy
    0R1S2S8S12S16S18S
LCDocType
LCMtg
current_status
IHaveReviewed
    0R4S6R7S8S10S12R13S14S16S18R19S20S22S24R25S26S28S30S31S32S34S36S37S38S42S44S46S48S50S52S55S57S
$48Due
NoDateTxt
[No Date]
    1S2S
MtgDate
MtgDate
DueDate
NoDateTxt
DueDate
    0RR4S6S7S8S10S12S13S14S16S18S$442
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$47Topic"
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S9S10S12S14S2E16S17S$10Comm Type<
DocType
    4S6S
CategoriesCategory"
Categories
Categories
Send Docu_ment
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Send Docu_ment
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$FormulaTV
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
for sorting the individual forms in non-alphabetical order
Mission
ParticipantProfile
Subteam
Interest Profile
Status
SubteamStatus
    0R3S4S6S8R9S10S12S14R15S16S18S20R21S22S24S26RS27S28S29S30S32R33S34S36S38RRS
Variables to translate
MissionTxt
- TeamRoom Setup
    0R1S2S
StatusTxt
- Team Status Reports
    0R1S2S
SubteamStatusTxt
- Subteam Status Reports for:
SubteamName
    0R1S2S3S4S
ProfileTxt
- Participant Profiles
    0R1S2S
EventTxt
- Milestones/Events
    0R1S2S
SubteamTxt
- Subteams
    0R1S2S
InterestTxt
- Newsletter Profile
    0R1S2S
End variables to translate
    0R1S
MainTopic
DocType
Mission
MissionTxt
Status
StatusTxt
SubteamStatus
SubteamStatusTxt
ParticipantProfile
ProfileTxt
Subteam
SubteamTxt
Interest Profile
InterestTxt
Event
EventTxt
    0R3S4S6S8S9S10S12S14RS15S16S17S18S20R21S22S24S26R27S28S30S32S33S34S36S38R39S40S42S44S45S46S48S50S
always want the [inactive] documents at the end of their respective lists
SList
SubteamStatus
Status
    0RR1S2S3S4S
SList
status
ReportDate
SList
Status
ParticipantProfile
Status
PList
Status
Subteam
Status
STName
PList
Status
Event
Status
EventDate
    0R6S8S9S10S11S13S15S19S21S22S23S24S26S28R29S30S31S32S33S34S36S38S42S44S45S46S47S49S51R52S53S54S55S56S57S59S61S65S67S68S69S70S72S74R75S76S77S78S79S80S82S84S
sorts the Main/Response documents
MainTopic
    0R3S4S5S6S8S10S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
Translatable variables
InactiveTxt
[INACTIVE]
    0R1S2S
PrivateTxt
PRIVATE:
    0R1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
End translatable variables
    0R1S
AuthorTxt
    0RR1S2S3S4S8S10S11S
Author
Mission
ParticipantProfile
Interest Profile
Event
Subteam
AuthorTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
Status
InactiveTxt
    0R1S2S4R5S6S7S2E8S10S
RptDate
StatusG
ReportDateK
    0R1S2S8S11S18S19S21S
ParticipantProfile
RptDate
Subject
    0R1S2S5S6S8S12S15S16S17S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S20S21S
$187$184$188$121$172$183$Conflict$REF
Interest Profile
    L1S2S3S
 $187Hidden for sorting
for sorting the individual forms in non-alphabetical order
Mission
ParticipantProfile
Subteam
Interest Profile
Status
SubteamStatus
    0R3S4S6S8R9S10S12S14R15S16S18S20R21S22S24S26RS27S28S29S30S32R33S34S36S38RRS$184
Variables to translate
MissionTxt
- TeamRoom Setup
    0R1S2S
StatusTxt
- Team Status Reports
    0R1S2S
SubteamStatusTxt
- Subteam Status Reports for:
SubteamName
    0R1S2S3S4S
ProfileTxt
- Participant Profiles
    0R1S2S
EventTxt
- Milestones/Events
    0R1S2S
SubteamTxt
- Subteams
    0R1S2S
InterestTxt
- Newsletter Profile
    0R1S2S
End variables to translate
    0R1S
MainTopic
DocType
Mission
MissionTxt
Status
StatusTxt
SubteamStatus
SubteamStatusTxt
ParticipantProfile
ProfileTxt
Subteam
SubteamTxt
Interest Profile
InterestTxt
Event
EventTxt
    0R3S4S6S8S9S10S12S14RS15S16S17S18S20R21S22S24S26R27S28S30S32S33S34S36S38R39S40S42S44S45S46S48S50S$188Hidden
always want the [inactive] documents at the end of their respective lists
SList
SubteamStatus
Status
    0RR1S2S3S4S
SList
status
ReportDate
SList
Status
ParticipantProfile
Status
PList
Status
Subteam
Status
STName
PList
Status
Event
Status
EventDate
    0R6S8S9S10S11S13S15S19S21S22S23S24S26S28R29S30S31S32S33S34S36S38S42S44S45S46S47S49S51R52S53S54S55S56S57S59S61S65S67S68S69S70S72S74R75S76S77S78S79S80S82S84S$121Hidden
sorts the Main/Response documents
MainTopic
    0R3S4S5S6S8S10S$1722
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$183Topic
Translatable variables
InactiveTxt
[INACTIVE]
    0R1S2S
PrivateTxt
PRIVATE:
    0R1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
End translatable variables
    0R1S
AuthorTxt
    0RR1S2S3S4S8S10S11S
Author
Mission
ParticipantProfile
Interest Profile
Event
Subteam
AuthorTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
Status
InactiveTxt
    0R1S2S4R5S6S7S2E8S10S
RptDate
StatusG
ReportDateK
    0R1S2S8S11S18S19S21S
ParticipantProfile
RptDate
Subject
    0R1S2S5S6S8S12S15S16S17S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S20S21S&
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
pS/8ORb
$HTMLDocumentStyles
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
Started running agent 'MissionPageNew-Edit' on 01/04/1999 12:34:42 PM
Ran LotusScript code
Done running agent 'MissionPageNew-Edit' on 01/04/1999 12:34:44 PM
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As FIELD
Set Source = Bind(Objectname_)
On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
End Sub
Lotus Product
StandardTitle
Subject
 (No Responses)
 (1 Response)
 (% Responses)
    1S2S3S4S8S10S
New Topic
AuthorView
Subject
Notes
StandardTitle
Subject
    0R4S6S7S8S12S16S
(Help)
TeamRoomFMainTopic
    0R4S6S8S
&Arial
Lotus Product
 MainTopic'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
Lotus Product
V0.08
    Hidden Fields
-----------------------------
    The user's name
FromAuthor of this document
    used in the Newsletter profile searches
AbbreviateFrom
    List of readers used for private pages
readers
readers
readers
    Used in threading agent
ThreadIdz
ThreadId
    Subject for newsletter
Subject
NewsLetterSubject
NewsLetterSubject
    Path Information for web URL's
Path_Info
Path_Info
Path_Info
    Used for saving a document on the web
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</a>    "
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<a href=/
/TeamOverview?OpenView>
MissionView
</a>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<a href=/
/ActiveDate?OpenView>
ActiveView"
</a><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
    Used for adding topics to the interest profile
Remote_User
Remote_User[<TYPE=hidden >]
Remote_User
People who are on the "For" list, who have reviewed the document
ReviewedByc
    0S0E
ReviewedByz
ReviewedBy
    Used for Action Items.  "0" is Open; "1" is Complete.
    Can be marked "Complete" using action button.
    This field also marked complete it's a Disc or Ref. and it has been reviewed by everyone.
ReviewedByNotDone
ReviewedBy
    3S4S5S6S7S8S10SReviewStatusz
ReviewStatus
The value of this field is set by the Mark Open and Mark Complete actions
DueDateStatus
DueDateStatus
0 = open, 1 = complete
Meeting documents are open until they are filed (automatically 2 days after the meeting).
    0R1S
If there's no review set up, then it is assumed that the documents are complete.
    0R1S
DocType
DefaultDocType3
People
ReviewStatus
ReviewStatus
DueDateStatus
    0R2R6S7S12S14R16S18S19S20S22S24S25S26S28S30S
Current_Statusz
Current_Status
Used for Active and Filed status.  "0" is Filed; "1" is Active.
Status of 1 is Active, Status of 0 is Filed
Statusz
Status
"Discussion" - value to be used in the hide-when formulas for Due Date, Review, Event, Category fields
Value should be translated
Discussion
DefaultDocType1
"Action Item" - value to be used in the hide-when formulas for Due Date, Review, Event, Category fields
Value should be translated
Action Item
DefaultDocType2
"Meeting" - value to be used in the hide-when formulas for Due Date, Review, Event, Category fields
Value should be translated
Meeting
DefaultDocType3
"Reference" - value to be used in the hide-when formulas for Due Date, Review, Event, Category fields
Value should be translated
Reference
DefaultDocType4
Doc.gif
Main Document
    0S0E
tmpFrom
tmpFrom
DateComposedDate this document was composed
DateComposed
timeComposedz
timeComposed
readers
    1S2S
readers
Private
Private
Private
ExpireDate
    1S2S
expiredate
Expired on
expiredateK
Expirez
Expire
Status
    1S2S
    Date this document will become inactive
.,$ //:
size = 9
Get default filing interval choice from Advanced Options page
MissionLookup
    0R1S2S
Mission
    0R1S2S
defaultfiledate
NoCache
    0R1S2S5S6S8S10S12S14S
Convert default to appropriate date
    0R1S
    0R1S
defaultfiledate
1 week
defaultfiledate
2 weeks
defaultfiledate
3 weeks
defaultfiledate
1 month
defaultfiledate
2 months
defaultfiledate
3 months
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S
tempfiledate
    0R1S2S5S6S8S10S16S18S20S22S24S26S
tempadjust
tempfiledateZ
tempfiledate
    0R1S2S9S11S
tempadjust
    0RRP
NeverFile
FilebyDate
    3S4S6S8S
FileByDateSelect the timeframe in which this document should be filed OR enter a date to file it on.z
FileByDate
    Date this document will be marked inactive
FileByDate
dspFileByDateSelect the timeframe in which this document should be filed OR enter a date to file it on.
dspFileByDate
Status
    Date this document was marked inactive
DateFiled
DateFiled
DateZ
DateFiled
dsp_DateFiled
dsp_DateFiled
MissionLookup
    1S2S
Mission
    0R1S2S
LookupDefault
NoCache
    0R1S2S5S6S8S10S12S14S
    0R1S
LookupDefault
LookupDefault
Never
    0R7S9S10S11S13S15S
    0R1S
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
FileByDate
LCDocType
LCMtg
NeverFile
    0R3S4S5S6S7S8S10S12S
NeverFile
Keep active | 1z
NeverFile
NeverFiletxt
Keep this document active
    1S2S
NeverFile
NeverFileTxt
    0R3S4S6S8S
dspneverFilez
dspneverFile
TRMainDocHeader.gif|TRMainDocHeader.gif
MissionLookup
    1S2S
Lookup
NoCache
    0R1S2S5S6S8S10S12S2E
Lookup
Mission
    0R1S2S
The TeamRoom Setup has not yet been completed.  Some field data will be missing.
    Basicsx
SectionDiv.gif|SectionDiv.gif
    Basics
    Document Type:
MissionLookup
    1S2S
Lookup
NoCache
    0R1S2S5S6S8S10S12S2E
Lookup
DefaultDocType1
Lookup
    0R3S4S6S8S12SDocTypeSelect the form of communication you wish to use to convey this information.
MissionLookup
    1S2S
Lookup
NoCache
    0R1S2S5S6S8S10S12S2E
Lookup
DefaultDocType1
Lookup
    0R3S4S6S8S
DocType
DocType
dspDocTypez
dspDocType
    Subject:
size=50
NoTitleTxt
Untitled
    1S2S
Subject
Subject
NoTitleTxt
subject
    0R4S6S8S10S11S12S14S16SSubjectEnter a short description of this main topic.z
Subject
Subject
dspSubject
    Category:
size = 3
CategoriesPress ENTER for list of keywords or to add a new keyword.
MissionLookup
    1S2S
nocache
    0R6S8S10S
Categories
    Associated Event:
size = 3
MilestonesSelect the event or milestone with which this work is affiliated.
NoCache
EventLookup
    3S4S6S8S10S
Milestones
    Associated Subteam(s):
size = 3
SubteamInterestSelect the event or milestone with which this work is affiliated.
nocache
SubteamLookup
    3S4S6S8S10Sz
SubteamInterest
    Attach a file:
    1S2S
    Attached files:
    1S2S
Hide if not Action Item DocType
DocType
DefaultDocType2
    0R4S5S
    Assignments
Hide if not Meeting  DocTypes
DocType
DefaultDocType3
    0R4S5S
    Meeting Details
Hide if  Meeting or Action Item
DocType
DefaultDocType3
DocType
DefaultDocType2
    0R4S5S9S10S14S15S
    Reviewers (optional)x
SectionDiv.gif|SectionDiv.gif
    Assignments
    Meeting Details
    Reviewers (optional)
Hide if not Action item
LCDocType
DocType
    0R1S2S
LCDocType
DefaultDocType2
    0R1S2S
    Due Date:
Hide if action item,or meeting (we want this to be available when using additional comm types)
DocType
DefaultDocType2
DocType
DefaultDocType3
    0R4S5S9S10R14S15S
    Review By Date:
Hide if not Meeting
DocType
DefaultDocType3
    0R4S5S
    Date:
Hide if Meeting
DocType
DefaultDocType3
    0R4S5S
.,$ //:
size = 9
DueDateEnter date due if applicable.z
DueDate
NoDate
<No due date>
    1S2S
DueDate
NoDate
DueDate
    0RR3S4S6S8SdspDueDatez
dspDueDate
Hide if not Meeting Doc Type
LCDocType
DocType
    0R1S2S
LCDocType
DefaultDocType3
    0R1S2S
.,$ //:
size = 9
    0S0E
DocType
DefaultDocType3
Mtgdate
    6S7S12S14S
FailureTxt
Please enter a meeting date.
    1S2S
LCDocType
DocType
    0RR1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
MtgDate
FailureTxt{
    0RR3S4S5S6S7S8S10S15SMtgDateEnter the date of the meetingz
MtgDate
MtgDate
MtgDate
    3S4S6S8S
dspMtgDatez
dspMtgDate
Hide if Meeting
DocType
DefaultDocType3
    0R4S5S
    Status:
    Time:
variables to translate
OpenTxt
    0R1S2S
CompleteTxt
Completed
    0R2S
LCDocType
DocType
    0R1S2S
DueDateStatus
OpenTxt
CompleteTxt
    0R1S2S5S6S8S10S
RevStat
ReviewStatus
CompleteTxt
OpenTxt
    0R1S2S5S6S8S10S
if meeting then blank; if actionitem it depends on the DueDateStatus field; all others depend on the ReviewStatus field
    0RR1S
LCDocType
DefaultDocType3
OpenTxt
LCDocType
DefaultDocType2
RevStat
    0R3S4S9S11S13S15R16S17S21S22S24S25SdspStatus
dspStatus
LCName
    1S2S8S
LCpeople
peoplea
    0R1S2S
LCReviewedByNotDone
ReviewedByNotDone
    0R1S2S
LCdoctype
doctype
    0R1S2S
DefaultDocType2
    0R1S2S
DefaultDocType3
    0R1S2S
hide if meeting or action item
    0RR1S
LCDocType
LCDocType
    0R1S2S2E3S4S5S6S7S8S
LCReviewedByNotDone
LCNameG
    0R4S5S
    0S0E
    Change
DocType
    1S2S
dspdt2
    Status
LCName
    1S2S8S
LCpeople
peoplea
    0R1S2S
LCdoctype
doctype
    0R1S2S
DefaultDocType2
    0R1S2S
hide if not action item
    0RR1S
LCDocType
DueDateStatus
People
LCNamet
    0R1S2S2E3S4S5S6R8S10S11S16S
    0S0E
    Change Action Item Status
Hide if Discussion, Meeting or Reference doc types
LCdoctype
DocType
    0R1S2S
DueDateStatus
DocType
DefaultDocType2
    0R1S2S3S4S5S6R10S11S
variable to translate
CompleteTxt
Marked complete by:
    0R1S2S
END variable to translate
    0R1S
Open is 0, Complete is 1
    0RR1S
DueDateStatus
    0R1S2S3S
LastModDate
    0R1S2S3S
CompletedBy
    0R1S2S3S7S9S10S11S12S20S
LogInfo
CompleteTxt
CompletedBy
    0R1S2S3S4S
ReviewerLog
    0R1S2S5S6S8S10S
ReviewerLog
ReviewerLog
LogInfo
    0R1S2S3S4S5S6S7S2E
    Mark complete
LCName
    1S2S8S
LCpeople
peoplea
    0R1S2S
LCReviewedByNotDone
ReviewedByNotDone
    0R1S2S
LCdoctype
doctype
    0R1S2S
LCReviewedByNotDone
LCNameG
LCpeople
LCNameG
LCdoctype
DefaultDocType2
LCdoctype
DefaultDocType3
    0RR1S2R6S7S9S10R15S17S18R19S20S24S2E25S26S27S
variable to translate
RevTxt
Reviewed by:
    0R1S2S
END variable to translate
    0R1S
CurrentReviewer
    0RR1S2S6S
revDate
    0R1S2S3S4S12S
ReviewedBy
ReviewedBy
CurrentReviewer
    0RR1S2S3S4S5S
ReviewerLog
    0R1S2S5S6S8S10S
ReviewerLog
ReviewerLog
RevTxt"
revDate
    0R1S2S3S4S5S6S7S8S9S13S15S16S
    Mark reviewed by me
.,$ //:
size = 9
DocType
DefaultDocType3
MtgTime
    6S7S12S14S
FailureTxt
Please enter a meeting time.
    1S2S
LCDocType
DocType
    0RR1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
MtgTime
FailureTxt{
    0RR3S4S5S6S7S8S10S15SMtgTimeEnter the time that the meeting begins
MtgTime
MtgTime
MtgTime
    3S4S6S8S
dspMtgTimez
dspMtgTime
    Duration:
size = 4
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
Duration
LCDocType
LCMtg
Duration
    0RR2R3S4S6S8S9S10S11S12S13S14S16S18S
DurationEnter the duration of the meeting
Duration
     min.
Duration
dspDuration
dspDuration
     min.
    Location:
size = 9
DocType
DefaultDocType3
MtgLocation
    6S7S12S14S
MtgLocationEnter the location of the meetingz
MtgLocation
MtgLocation
dspLocation
dspLocation
    Select reviewers from list below
    Reviewers
    Select assignees from list below
    Assignees
    Select attendees from list below
    Attendees
People
dspPeople
dspPeople
size = 3
People1Select the Team Members to whom you are directing this information.
ParticipantLookup
nocache
PeopleLookup
    1S2S2E5S6S8S10S12S
ParticipantLookup
People1
    or, select one or more subteams
variables to translate
DiscAssignError
Since you have specified a Review Date, you must specify at least one reviewer.
    0R1S2S
ActAssignError
Since you have specified a Due Date, you must specify at least one assignee.
    0R1S2S
END variables ot translate
    0R1S
lcDocType
DocType
    0RR1S2S
People1
Subteam1
DueDate
lcDocType
DefaultDocType1
DiscAssignError
People1
Subteam1
DueDate
lcDocType
DefaultDocType4
DiscAssignError
People1
Subteam1
DueDate
lcDocType
DefaultDocType2
ActAssignError{
    0R2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S26RS27S28S29S30S31S32S33S34S35S36S37S38S39S40S45S50RS51S52S53S54S55S56S57S58S59S60S61S62S63S64S69S74RSubteam1
SubteamLookup
nocache
SubteamLookup
    1S2S5S6S8S10S12S
SubteamLookup
Subteam1
Hide if Mtg or Action ItemDocTypes
DocType
DefaultDocType2
DocType
DefaultDocType3
    0R5S6S10S11S15S16S
    Click to display
    0S0E
    combined list
     of Reviewer names from People & Subteam lists
    Click to display
    0S0E
    combined list
     of Assignment names from People & Subteam lists
    Click to display
    0S0E
    combined list
     of Attendee names from People & Subteam lists
Subteam1
People
    1S2S3S4S5S6S
size = 3
SubteamLookup
    1S2S
get a list of all subteams
    0R1S
STList
NoCache
    0R1S2S10S2E12S
get a list of the subteams
    0R1S
ParseST
Subteam1
    0R1S2S
get a list of just the people
    0R1S
PeopleList
People1
    0R1S2E2S
expand the subteams into the individual people within the subteams
    0R1S
ParseST
    0R1S2S
LookupSubteam
NoCache
    0R1S2S5S6S8S10S11S12S14S
generate a list of all of the people, both individuals and people within a subteam
    0RR1S
then use @unique to avoid putting someone's name in twice
    0R1S
PeopleAndSubteams
LookupSubteam
PeopleList
LookupSubteam
PeopleList
    0R1S2S9S10S11S13S14S15S
TPeopleAndSubteams
PeopleAndSubteams
    0R1S2S
TPeopleAndSubteams
PeopleSelect the Team Members to whom you are directing this information.
People
Hide if meeting
DocType
DefaultDocType3
    0R4S5S
TRName
NoCache
MissionLookup
    1S2S5S6S8S10S12S
Variables to be translated
    0R1S
UntitledTxt
[Untitled]
    0R1S2S
TNBlank
[No team name defined]
    0R1S2S
MailSentTxt
Mail has been sent successfully
    0R1S2S
MailErrorTxt
Thre was an error sending the email.
    0R1S2S
AssignBlank
There are no assignees specified.
    0R1S2S
AttendBlank
There are no attendees specified.
    0R1S2S
subj1 is not translated
    0RR1S
Subj1
Subject
UntitledTxt
Subject
    0R1S2S5S6S8S10S
    0R1S
Subj2
Please review:
Subj1
    0R1S2S3S4S
Body1
An item requiring your attention has been posted to a TeamRoom database.
    0R1S2S3S4S5S6S
Body2
TeamRoom Name:
TRName
TRName
TNBlank
    0R1S2S3S4S7S2E8S10S12S14S15S16S17S
Body3
Item:
    0R1S2S
End variables to be translated
    0R1S
sendto
People
    0R1S2S
Sendn
SendTo
DocType
DefaultDocTypea
MailSent
AttendBlank
SendTo
DocType
DefaultDocTypea
MailSent
AssignBlank
SendTo
Subj2
Body1
Body2
Body3
    0R1S2S6S11S13S18R21S22S26S27S32S38S42R45S46S50S51S56S62S66RR70S72S74S76S78S79S80S81S82S84S
mailsent
MailSent
    0R1S2S3S
SendZ
MailSent
MailErrorTxt
MailSent
MailSentTxt
    0R2R7S11S14S18S
    Send link to assignees
TRName
NoCache
MissionLookup
    1S2S5S6S8S10S12S
Variables to be translated
    0R1S
UntitledTxt
[Untitled]
    0R1S2S
TNBlank
[No team name defined]
    0R1S2S
MailSentTxt
Mail has been sent successfully
    0R1S2S
MailErrorTxt
Thre was an error sending the email.
    0R1S2S
AssignBlank
There are no assignees specified.
    0R1S2S
AttendBlank
There are no attendees specified.
    0R1S2S
subj1 is not translated
    0RR1S
Subj1
Subject
UntitledTxt
Subject
    0R1S2S5S6S8S10S
    0R1S
Subj2
Please review:
Subj1
    0R1S2S3S4S
Body1
An item requiring your attention has been posted to a TeamRoom database.
    0R1S2S3S4S5S6S
Body2
TeamRoom Name:
TRName
TRName
TNBlank
    0R1S2S3S4S7S2E8S10S12S14S15S16S17S
Body3
Item:
    0R1S2S
End variables to be translated
    0R1S
sendto
People
    0R1S2S
Sendn
SendTo
DocType
DefaultDocTypea
MailSent
AttendBlank
SendTo
DocType
DefaultDocTypea
MailSent
AssignBlank
SendTo
Subj2
Body1
Body2
Body3
    0R1S2S6S11S13S18R21S22S26S27S32S38S42R45S46S50S51S56S62S66RR70S72S74S76S78S79S80S81S82S84S
mailsent
MailSent
    0R1S2S3S
SendZ
MailSent
MailErrorTxt
MailSent
MailSentTxt
    0R2R7S11S14S18S
    Send link to attendees
MailSent
    4S6S
MailSentz
MailSent
    Content
height="300" width=625"
BodyEnter your comments, questions, ideas for discussion.
ReviewerLog
    1S2S
    Reviewer Log:
ReviewerLog
variables to translate
GoBack
Go Back
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2S
end variables to translate
    0R1S
    0RR1S2S10S
[<hr><b><a href=/
($All)?OpenView>"
AllView
</a></b>    "
<b><a href=/"
/TeamOverview?OpenView>
MissionView
</a></b>    "
<b><a href=/"
/ActiveDate?OpenView>
ActiveView"
</a></b>    "
<b><a href="javascript: onClick=history.back()">"
GoBack"
</a></b>    "
    0R1S2S3S4S5S6S7S8S2E9S10S2E11S12R13S14S15S16S18S19S21S22R23S24S25S26S28S29S2E31S32R33S34S2E35S36SViewList
Needed for "Add to Calendar" action
LCdoctype
doctype
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCdoctype
LCMtg
MtgDate
MtgTime
    0R3S4S5S6S7S8S10S16S17S18S19SStartDateTime
StartDateTime
LCdoctype
doctype
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCdoctype
LCMtg
StartDateTime
Duration
    0R3S4S5S6S7S8S10S14S16S18S20S22S24SEndDateTime
EndDateTime
LCdoctype
doctype
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCdoctype
LCMtg
StartDateTime
EndDateTime
    0R3S4S5S6S7S8S10S16S17S18S19STimeRange
TimeRange
people who haven't completed their review (Disc. and Ref. doc types).  Used by the "Send Reminder" agent.
LCdef2 and LCdef3 are Action Item and Meeting doc types
LCdoctype
DocType
    0R1S2S
LCdef2
DefaultDocType2
    0R1S2S
LCdef3
DefaultDocType3
    0R1S2S
NotDone
LCdoctype
LCdef2
LCdoctype
LCdef3
People
Peoplec
ReviewedBy
    0RR1S2S4R5S6S7S8S9S10S12S14S15S16S18S25S27S
NotDone
    0RRReviewedByNotDone
ReviewedByNotDone
People (other than the Author) who can edit this document
Current_Status
ReviewedByNotDone
    3S4S6S10S13S
Editors
Editors
_Edit Document
_Forward
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
MarkPrivate.gif|MarkPrivate.gif?
Mark PublicKX
readers
    0S0E
readers
    0S0E
MarkPublic.gif|MarkPublic.gif?
Add To My Calendar'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim db As Notesdatabase
    Dim session As New NotesSession
    Dim workspace As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim item As NotesItem
    Dim SubjItem As NotesItem
    Dim tdrange As NotesItem
    Dim startdttm As NotesDateTime
    Dim enddttm As NotesDateTime
    Dim window As NotesDateRange
    Dim names As String
    Dim dur As Integer
    Dim username As String
    Dim mtgLoc As Variant
    Dim entryType As String
    Dim Invitees As Variant
    Dim origFrom As Variant
    Set uidoc =  workspace.currentdocument
    Set note = uidoc.Document
    Set item = note.GetFirstItem("StartDateTime")
    Set startdttm = item.DateTimeValue
    Set item = note.GetFirstItem("EndDateTime")
    Set enddttm = item.DateTimeValue
    Set SubjItem = note.getfirstitem("Subject")
    Set item = SubjItem.CopyItemToDocument(note, "Topic")
    Set window = session.CreateDateRange()
    Set window.StartDateTime = startdttm
    Set window.EndDateTime = enddttm
    names = session.CommonUserName
    Set item = note.GetFirstItem("Duration")
    dur = item.Values(0)
    freeTime = session.FreeTimeSearch(window, dur,  names, True)
'  If there is no value for freeTime(0) then that time is already booked - messagebox constants 0=okonly, 4=yesno, 32=question mark icon, 7=no
    If (freeTime(0) Is Nothing) Then
        If Messagebox ("This time is already booked - do you want to double book?", 4 + 32) = 7 Then
            Messagebox "This document has NOT been added to your calendar. ", 0, "Add Canceled"
            Exit Sub
        End If
    End If
    Set db = New notesdatabase("", "")
    db.openmail
    Dim cnote As New NotesDocument(db)
    Dim rtitem As NotesRichTextItem
    mtgLoc = note.getitemvalue("MtgLocation")
    invitees = note.getitemvalue("People")
    origFrom = note.getitemvalue("From")
    username = session.UserName
    cnote.From = note.From(0)
    cnote.Subject = note.Topic
    Set rtitem = note.GetFirstItem("Body")
    Call rtitem.CopyItemToDocument(cnote, "Body")
    cnote.Form = "Appointment"
    cnote.Principal = username
    cnote.Chair = username
    cnote.DocAuthors = username
    cnote.AppointmentType = "3"
    cnote.tmpWasMailed = "1"
    cnote.ExcludeFromView = "D"
    cnote.OrgTable = "C0"
    cnote.Duration = note.Duration
    Call cnote.ReplaceItemValue("$BusyName", username)
    Call cnote.replaceitemvalue("Location", mtgLoc)
    Call cnote.replaceitemvalue("RequiredAttendees", Invitees)
    Call cnote.replaceitemvalue("tmpOwnerHW", origFrom)
    cnote.StartDateTime = note.StartDateTime
    cnote.CalendarDateTime = note.StartDateTime
    cnote.EndDateTime =  note.EndDateTime
    cnote.ReminderTime = note.StartDateTime
    Set tdrange = note.GetFirstItem("TimeRange")
    Call cnote.ReplaceItemValue("TimeRange", tdrange)
    Call cnote.ReplaceItemValue("_ViewIcon", 160)
    cnote.save True, True
    Messagebox "This document has been added to your calendar. ", 0, "Add Complete"
End Sub
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
    0R1S2S3S4S
AddToCalendar.gif|AddToCalendar.gif?
Add Topic to Newsletter ProfileK~
/WebAddTopic?OpenAgent&
UNID"
    0R10S
This is used on the web only.  The corresponding Notes action is a shared action, and is used in the views.
AddTopic.gif|AddTopic.gif?
Send link to assignees$
TRName
NoCache
MissionLookup
    1S2S5S6S8S10S12S
Variables to be translated
    0R1S
Title
Mail Send
    0R1S2S
UntitledTxt
[Untitled]
    0R1S2S
TNBlank
[No team name defined]
    0R1S2S
MailSentTxt
Mail has been sent successfully
    0R1S2S
MailErrorTxt
Thre was an error sending the email.
    0R1S2S
AssignBlank
There are no assignees specified.
    0R1S2S
AttendBlank
There are no attendees specified.
    0R1S2S
subj1 is not translated
    0RR1S
Subj1
Subject
UntitledTxt
Subject
    0R1S2S5S6S8S10S
    0R1S
Subj2
Please review:
Subj1
    0R1S2S3S4S
Body1
An item requiring your attention has been posted to a TeamRoom database.
    0R1S2S3S4S5S6S
Body2
TeamRoom Name:
TRName
TRName
TNBlank
    0R1S2S3S4S7S2E8S10S12S14S15S16S17S
Body3
Item:
    0R1S2S
End variables to be translated
    0R1S
sendto
People
    0R1S2S
Sendn
SendTo
DocType
DefaultDocTypea
Title
AttendBlank
SendTo
DocType
DefaultDocTypea
Title
AssignBlank
SendTo
Subj2
Body1
Body2
Body3
    0R1S2S6S11S13S18R21S22S26S27S32S38S40S44R47S48S52S53S58S64S66S70RR74S76S78S80S82S83S84S85S86S88S
mailsent
MailSent
    0R1S2S3S
SendZ
Title
MailErrorTxt
Title
MailSentTxt
    0R7S13S15S19R23S25S
SendLinkToAssignees.gif|SendLinkToAssignees.gif?
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
MarkDocAsExpired.gif|MarkDocAsExpired.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
_Forward
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
Mark Privatej
readers
    1S8S9S
    0S0E
readers
    0S0E
Mark PublicKX
readers
    0S0E
readers
    0S0E
Add To My Calendar'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim db As Notesdatabase
    Dim session As New NotesSession
    Dim workspace As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim item As NotesItem
    Dim SubjItem As NotesItem
    Dim tdrange As NotesItem
    Dim startdttm As NotesDateTime
    Dim enddttm As NotesDateTime
    Dim window As NotesDateRange
    Dim names As String
    Dim dur As Integer
    Dim username As String
    Dim mtgLoc As Variant
    Dim entryType As String
    Dim Invitees As Variant
    Dim origFrom As Variant
    Set uidoc =  workspace.currentdocument
    Set note = uidoc.Document
    Set item = note.GetFirstItem("StartDateTime")
    Set startdttm = item.DateTimeValue
    Set item = note.GetFirstItem("EndDateTime")
    Set enddttm = item.DateTimeValue
    Set SubjItem = note.getfirstitem("Subject")
    Set item = SubjItem.CopyItemToDocument(note, "Topic")
    Set window = session.CreateDateRange()
    Set window.StartDateTime = startdttm
    Set window.EndDateTime = enddttm
    names = session.CommonUserName
    Set item = note.GetFirstItem("Duration")
    dur = item.Values(0)
    freeTime = session.FreeTimeSearch(window, dur,  names, True)
'  If there is no value for freeTime(0) then that time is already booked - messagebox constants 0=okonly, 4=yesno, 32=question mark icon, 7=no
    If (freeTime(0) Is Nothing) Then
        If Messagebox ("This time is already booked - do you want to double book?", 4 + 32) = 7 Then
            Messagebox "This document has NOT been added to your calendar. ", 0, "Add Canceled"
            Exit Sub
        End If
    End If
    Set db = New notesdatabase("", "")
    db.openmail
    Dim cnote As New NotesDocument(db)
    Dim rtitem As NotesRichTextItem
    mtgLoc = note.getitemvalue("MtgLocation")
    invitees = note.getitemvalue("People")
    origFrom = note.getitemvalue("From")
    username = session.UserName
    cnote.From = note.From(0)
    cnote.Subject = note.Topic
    Set rtitem = note.GetFirstItem("Body")
    Call rtitem.CopyItemToDocument(cnote, "Body")
    cnote.Form = "Appointment"
    cnote.Principal = username
    cnote.Chair = username
    cnote.DocAuthors = username
    cnote.AppointmentType = "3"
    cnote.tmpWasMailed = "1"
    cnote.ExcludeFromView = "D"
    cnote.OrgTable = "C0"
    cnote.Duration = note.Duration
    Call cnote.ReplaceItemValue("$BusyName", username)
    Call cnote.replaceitemvalue("Location", mtgLoc)
    Call cnote.replaceitemvalue("RequiredAttendees", Invitees)
    Call cnote.replaceitemvalue("tmpOwnerHW", origFrom)
    cnote.StartDateTime = note.StartDateTime
    cnote.CalendarDateTime = note.StartDateTime
    cnote.EndDateTime =  note.EndDateTime
    cnote.ReminderTime = note.StartDateTime
    Set tdrange = note.GetFirstItem("TimeRange")
    Call cnote.ReplaceItemValue("TimeRange", tdrange)
    Call cnote.ReplaceItemValue("_ViewIcon", 160)
    cnote.save True, True
    Messagebox "This document has been added to your calendar. ", 0, "Add Complete"
End Sub
LCDocType
DocType
    1S2S
LCMtg
DefaultDocType3
    0R1S2S
LCDocType
LCMtg
    0R1S2S3S4S
Add Topic to Newsletter ProfileK~
/WebAddTopic?OpenAgent&
UNID"
    0R10S
This is used on the web only.  The corresponding Notes action is a shared action, and is used in the views.
Send link to assignees$
TRName
NoCache
MissionLookup
    1S2S5S6S8S10S12S
Variables to be translated
    0R1S
Title
Mail Send
    0R1S2S
UntitledTxt
[Untitled]
    0R1S2S
TNBlank
[No team name defined]
    0R1S2S
MailSentTxt
Mail has been sent successfully
    0R1S2S
MailErrorTxt
Thre was an error sending the email.
    0R1S2S
AssignBlank
There are no assignees specified.
    0R1S2S
AttendBlank
There are no attendees specified.
    0R1S2S
subj1 is not translated
    0RR1S
Subj1
Subject
UntitledTxt
Subject
    0R1S2S5S6S8S10S
    0R1S
Subj2
Please review:
Subj1
    0R1S2S3S4S
Body1
An item requiring your attention has been posted to a TeamRoom database.
    0R1S2S3S4S5S6S
Body2
TeamRoom Name:
TRName
TRName
TNBlank
    0R1S2S3S4S7S2E8S10S12S14S15S16S17S
Body3
Item:
    0R1S2S
End variables to be translated
    0R1S
sendto
People
    0R1S2S
Sendn
SendTo
DocType
DefaultDocTypea
Title
AttendBlank
SendTo
DocType
DefaultDocTypea
Title
AssignBlank
SendTo
Subj2
Body1
Body2
Body3
    0R1S2S6S11S13S18R21S22S26S27S32S38S40S44R47S48S52S53S58S64S66S70RR74S76S78S80S82S83S84S85S86S88S
mailsent
MailSent
    0R1S2S3S
SendZ
Title
MailErrorTxt
Title
MailSentTxt
    0R7S13S15S19R23S25S
Mark/Unmark Document as ExpiredK
Web documents only
    0R5S
/WebExpire?OpenAgent&
UNID"
    0R10S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
k)oKXy
RequestDate
DateFiled
$$DueDate_inp
$DueDate_inp_O
dspDueDate
$HTMLDocumentStyles
$INFO
$WINDOWTITLE
$AppHelpFormula
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
FilebyDate
DueDate
MtgDate
MtgTime
Duration
StartDateTime
EndDateTime
TimeRange
$BODY
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_13
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'WebOpenForm:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
'    Dim db As notesdatabase
'    Dim DbProfile As NotesDocument
    Dim note As notesdocument
    Dim dbug As New noteslog("WebOpenForm")
    Set note = s.documentcontext
'logging is for debug purposes
    Set dbug = New NotesLog("WebOpenForm")
'to turn off the debug log, set this to False
    dbug.LogActions = True
    dbug.OpenAgentLog
    dbug.logaction("Running WebOpenForm")
    On Error Goto ErrorHere
    If note.isnewnote Then
        Call note.replaceitemvalue("webNewDoc", "1")
    Else
        Call note.replaceitemvalue("webNewDoc", "0")
    End If
    dbug.logaction("webnewdoc = " + note.webnewdoc(0))
ErrorHere:
    dbug.logaction(Err & " - " & Error)
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
function validate(){
var msg;
var msgflag;
msgflag = 'false';
if(document.forms[0].EventDate.value == ''){
    msg='Please enter the date of the milestone/event.';
    msgflag='true';
                document.forms[0].EventDate.focus()
 if(document.forms[0].EventSummary.value == ''){
    msg='Please enter the name of the milestone/event.';
    msgflag='true';
                document.forms[0].EventSummary.focus()
 if(msgflag == 'true'){
     alert(msg);
if(msgflag == 'false'){
document.forms[0].submit()
New Event
Subject
(WebOpenForm)
(Help)
TeamRoomFEvent
    0R6S8S
&Arial
Lotus Product
 Event'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Lotus Product
Hidden Fields:
FromAuthor of this document
    Person creating the profile
AbbreviateFrom
    used in the Newsletter profile searches
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
        used for saving the document on the web
QUERY_STRING_DECODED
         used in hide-when formulas in the action buttons on this form
QUERY_STRING_DECODED(
    1S2S3S
deleteQueryString
    removes the QueryString whenever the doc. is edited and saved
    1S2S3S4S
Milestone/Event Profile
    Milestone/Event:
size = 30
EventSummary^
    0S0E
MsgText
Please enter an Event Summary.
    1S2S
EventSummary
MsgText
    0R3S4S6S11SEventSummaryEnter a brief description of the event or milestone
EventSummary
size = 30
EventSummary
dspEventSummaryEnter a brief description of the event or milestonez
EventSummary_1
    Date:
.,$ //:
size=30
GetWeb
EventDateWeb
EventDateWeb
EventDate
    1S2S5S6S8S10S
GetWeb
MsgText
Please enter the date of the event
    1S2S
EventDate
MsgText
    0R3S4S6S11SEventDateEnter the date of the event or milestone.z
EventDate
.,$ //:
size=30
EventDate
dspEventDateEnter the date of the event or milestone.
EventDate_1
    Details:
size=30
GetWeb
EventDetail
EventDetail
EventDetail
    1S2S5S6S8S10S
GetWeb^
EventDetailEnter the details for this event or milestone.
EventDetail
size=30
EventDetail
dspEventDetailEnter the details for this event or milestone.z
EventDetail_1
    Milestone/Event Status:
FileThisStatusDoc
Active | 0Inactive | 1
EventSummary
EventDate
    1S2S3S4S8S9S
Subject
Subject
    Event subject
webNewDoc
webNewDoc
    determines if the web new document.  Used in $$Return.
FileThisStatusDoc
    3S4S6S8S
Status
    status of the document
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
 date the doc. was marked as "inactive"
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Save & Close
Hide if 'New doc' button not clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
validate()
only used in Participant, Event, and Subteam profiles
hidden if NewDoc has not been clicked
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
cancel.gif|cancel.gif?
window.close(self)
only used in Participant, Subteam, and Event profiles
Hidden if they did not click the 'New document' button
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"A-'|
EDITX
WhenRequestDone
WhenCommitDone
WhenDone
$CIAOTime
sortorder
EventDateWeb
$HTMLDocumentStyles
$HTMLCode
$INFO
$WINDOWTITLE
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
EventDate
DateFiled
$BODY
$V5ACTIONS
$ACTIONS
&Arial
function validate(){
var msg;
var msgflag;
msgflag = 'false';
if(document.forms[0].WebLookup.value != ''){
    msg='This person already has a profile.';
    msgflag='true';
                document.forms[0].Who.focus()
 if(document.forms[0].Who.value == ''){
    msg='Please enter the participant\'s name.';
    msgflag='true';
                document.forms[0].Who.focus()
 if(msgflag == 'true'){
     alert(msg);
if(msgflag == 'false'){
document.forms[0].submit()
variables to translate
NewTxt
New Participant Profile
    0R1S2S
Participant Profile for:
    0R1S2S
END variables to translate
    0R1S
ABName
    0RR1S2S6S
NewTxt
ABName"
    0R4S6S7S8S
(WebOpenForm)
(Help)
TeamRoomFParticipantProfile
    0R6S2E8S
Lotus Product
 ParticipantProfile'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Lotus Product
    Hidden Fields:
FromAuthor of this document
        Person creating the profile
AbbreviateFrom
    used in the Newsletter profile searches
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
            used for saving the document on the web
QUERY_STRING_DECODED
    used in hide-when formulas in the action buttons on this form
QUERY_STRING_DECODED(
    1S2S3S
deleteQueryString
    removes the QueryString whenever the doc. is edited and saved
Participant Profile
    Name:
.,$,  , :
size=30
PeopleLookup
    1S2S
AbrWho
    0R1S2S6S
Lookup
NoCache
AbrWho
    0R1S2S5S6S8S10S12S14S
Found
LookupZ
Lookup
    0R1S2S9S11S
Variables to translate
    0R1S
BLNotesText
Please enter the participant's name.
    0R1S2S
DupNotesText
AbrWho
 already has a profile.
    0R1S2S3S4S
End variables to translate
    0R1S
Notes
BLNotesText
AbrWhoa
Found
Notes
DupNotesText{
    0R3S4S5S6S7S8S9S10S12S17R18S19S23S24S28S29S30S31S32S33S35S40RWhoEnter the full Notes name. (eg Ann Smith/USA/West)
.,$,  , :
size=30
dspWhoEnter the full Notes name. (eg Ann Smith/USA/West)z
Who_1
    Enter personal data below, or
Email
    1S2S3S
Phone
    0R1S2S3S
JobTitle
    0R1S2S3S
Location
    0R1S2S3S
Department
    0R1S2S3S
DataNotFound
    0R1S2S3S
Aserver
    0R1S2S3S
    0RR3S4S6S11S
*****Variables to translate*****
    0RR1S
LocalTxt
Local
    0R1S2S
    0R1S
TRANSLATORS:  The next five variables are not translatable.  However, they must remain in this location
    0R1S
DbServer
    0R1S2S
ABdbserver
DbServer
    0R1S2S6S
Server2
AlternateServer
LocalTxta
AlternateServer
AlternateServer
    0R1S2S8S9S14S16S17S18S20S22S
ServerTxt
AlternateServer
AlternateServer
DbServer
LocalTxtb
ABdbserverb
    0R1S2S5S6S8S13S14S15S17S21S22S
FinalServerTxt
Server2
LocalTxt
Server2
    0R1S2S5S6S8S10S
    0R1S
More Variables to translate
    0R1S
MsgTxt1
Name of participant:
    0R1S2S3S4S10S13S14S
MsgTxt2
Searching the Name & Address book on:
FinalServerTxtb
    0R1S2S3S4S8S9S10S11S
ErrorNotes
The name of the participant cannot be found in the specified Name & Address Book.  You may enter an alternate server and try the button again.
    0R1S2S
ErrorWeb
The name of the participant cannot be found in the Name & Address Book on the Domino server.
    0R1S2S2E
*****End variables to translate****
    0R1S
($Users)
    0RR1S2S
    0R1S2S
names.nsf
    0R1S2S
LookupFullName
NoCache
Server2
FullName
    0RR1S2S8S9S10S12S14S16S
LookupFullName
    0R1S2S6S
LookupForwardingAddress
NoCache
Server2
MailAddress
    0RR1S2S8S9S10S12S14S16S
LookupDomain
NoCache
Server2
MailDomain
    0R1S2S8S9S10S12S14S16S
LookupDepartment
NoCache
Server2
Department
    0R1S2S8S9S10S12S14S16S
LookupLocation
NoCache
Server2
Location
    0R1S2S8S9S10S12S14S16S
EmailAddress
LookupForwardingAddress
LookupForwardingAddress
LookupDomain
LookupDomain"
    0RR1S2S5S6S8S12S15R16S17S19S20S21S22S23S25S2E
LookupOfficePhone
LookupFullNameZ
NoCache
Server2
OfficePhoneNumber
    0RR1S2S9S11S17S18S19S21S23S25S
LookupJobTitle
LookupFullNameZ
NoCache
Server2
JobTitle
    0RR1S2S9S11S17S18S19S21S23S25S
LookupFullNameZ
Notes
AServer
DataNotFound
MsgTxt1
MsgTxt2
ErrorNotes"
LookupFullNameZ
AServer
DataNotFound
MsgTxt1
MsgTxt2
ErrorWeb"
Email
EmailAddress
Phone
LookupOfficePhone
Department
LookupDepartment
Location
LookupLocation
JobTitle
LookupJobTitle
    0RR6S7S8S9S10S11S12S13S15R17R21S24R28S29S30S31S32S35R39R41RR45S46S47S48S49S50S51S52S54R56R60S63R67S68S69S70S71S74R78R80RR86S92R96S102R106S112R116S122R126S132R136S142R
    retrieve
     the information from the Name & Address book.
    Department:
size = 30
DepartmentEnter the person's department.z
Department
size = 30
Department
dspDepartmentEnter the person's department.
Department_1
    Location:
size = 30
LocationEnter the person's location.z
Location
size = 30
Location
dspLocationEnter the person's location.
Location_1
    E-Mail Address:
size = 30
EmailEnter the Email address. (eg [e-mail])
Email
size = 30
email
dspEmailEnter the Email address. (eg [e-mail])z
Email_1
    Phone:
size = 30
PhoneEnter the person's phone number.
Phone
size = 30
phone
dspPhoneEnter the person's phone number.z
Phone_1
    Job Title:
size=30
JobTitleEnter the person's job titlez
JobTitle
size=30
JobTitle
dspJobTitleEnter the person's job title
JobTitle_1
    Participant's Status
FileThisStatusDoc
Active | 0Inactive | 1
E    F"E
AServer
    1S2S
DataNotFound
    4S6S
DataNotFoundz
DataNotFound
E    F"E
Enter the name of an alternate Notes server on which to search for this person's name
    Alternate Server:
AlternateServerAlternate server
AlternateServer
PeopleLookup
    1S2S
AbrWho
    0R1S2S6S
Lookup
NoCache
AbrWho
    0R1S2S5S6S8S10S12S14S
Found
LookupZ
Lookup
    0R1S2S9S11S
Found
WebLookup
WebLookup
    if the web "Retrieve N&A..." buttons is pressed, this looks up to see if the person already has a profile
webNewDoc
webNewDoc
        determines if the web new document.  Used in $$Return.
Participant Profile for
    1S2S6S
Subject
Subject
        Participant profile subject
FileThisStatusDoc
    3S4S6S8S
Status
        participant's status
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
        date marked "inactive"
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Save & Close
Hide if 'New doc' button not clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
validate()
only used in Participant, Event, and Subteam profiles
hidden if NewDoc has not been clicked
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
cancel.gif|cancel.gif?
window.close(self)
only used in Participant, Subteam, and Event profiles
Hidden if they did not click the 'New document' button
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"-PFd
FIc?d
EDITX
WhenRequestDone
WhenCommitDone
WhenDone
$CIAOTime
sortorder
$HTMLDocumentStyles
$HTMLCode
$INFO
$WINDOWTITLE
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DateFiled
$BODY
$V5ACTIONS
$ACTIONS
&Arial
function validate(){
var msg;
var msgflag;
msgflag = 'false';
if(document.forms[0].Position.value == ''){
    msg='Please enter the purpose of this subteam.';
    msgflag='true';
                document.forms[0].Position.focus()
if(document.forms[0].STMembers.selectedIndex == -1){
    msg='Please select at least one subteam member';
    msgflag='true';
                document.forms[0].STMembers.focus()
 if(document.forms[0].STName.value == ''){
    msg='Please enter a subteam name.';
    msgflag='true';
                document.forms[0].STName.focus()
 if(msgflag == 'true'){
     alert(msg);
if(msgflag == 'false'){
document.forms[0].submit()
New Subteam Profile
Subteam Profile for:
STName"
(WebOpenForm)
(Help)
TeamRoomFSubteam
    0R6S8S
Lotus Product
 Subteam'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Lotus Product
    Hidden Fields:
FromAuthor of this document
        Person creating the profile
AbbreviateFrom
    used in the Newsletter profile searches
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
            used for saving the document on the web
QUERY_STRING_DECODED
    used in hide-when formulas in the action buttons on this form
QUERY_STRING_DECODED(
    1S2S3S
deleteQueryString
        removes the QueryString whenever the doc. is edited and saved
Subteam Profile
    Subteam Name:
.,$,  , :
size=30
STName
    0S0E
BLFailureText
Please enter a Subteam Name.
    1S2S
STName
Notes
BLFailureText
    0R3S4S5S6S7S8S10S15S
STNameEnter the name of the subteam
STName
.,$,  , :
size=30
STName
dspSTNameEnter the name of the subteamz
STName_1
    Members:
size=5
BLFailureText
Please select at least one Subteam Member.
    1S2S
MemberFailureText
You must define the team members before  you can define the subteam.  Click the Cancel button and proceed to add new Team Members.
    0R1S2S
Lookup
NoCache
PeopleLookup
    0R1S2S5S6S8S10S12S
Lookup
MemberFailureText
STMembers
Notes
BLFailureText
    0R3S4S6S8S9S10S11S12S13S14S16S21SSTMembersSelect the names of the members of this subteam.
Variables to translate
You must define the team members before you can define the subteam.  Click the Cancel button and proceed to add new Team Members.
    0R1S2S
End variables to translate
    0R1S
Lookup
NoCache
PeopleLookup
    0R1S2S5S6S8S10S12S
Lookup
Lookup
    0R3S4S6S8S
STMembers
    Select the participants who will make up this subteam.
STMembers
    1S2S
Variables to translate
You must define the team members before you can define the subteam.  Click the Cancel button and proceed to add new Team Members.
    0R1S2S
End variables to translate
    0R1S
Lookup
NoCache
PeopleLookup
    0R1S2S5S6S8S10S12S
Lookup
    0R3S4S6S8S
BlankListMsgz
BlankListMsg
STMembers
dspSTMembersz
dspSTMembers
    Purpose:
size=30
BLFailureText
Please enter the purpose of this subteam.
    1S2S
Position
Notes
BLFailureText
    0R3S4S5S6S7S8S10SPositionEnter the role for this subteam
Position
size=30
Position
dspPositionEnter the role for this subteamz
Position_1
    Subteam's Status:
FileThisStatusDoc
Active | 0Inactive | 1
webNewDoc
webNewDoc
        determines if the web new document.  Used in $$Return.
Members
STMembers
STName
Members
Subject
Subject
        Subteam subject
FileThisStatusDoc
    3S4S6S8S
Status
        subteam's status
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
        date marked "inactive"
_Edit Document
Categori_zeK
_Move To Folder...
Send Docu_ment
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Save & Close
Hide if 'New doc' button not clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
validate()
only used in Participant, Event, and Subteam profiles
hidden if NewDoc has not been clicked
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
cancel.gif|cancel.gif?
window.close(self)
only used in Participant, Subteam, and Event profiles
Hidden if they did not click the 'New document' button
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
_Move To Folder...
Send Docu_ment
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
H@Or)
EDITX
WhenRequestDone
WhenCommitDone
WhenDone
$CIAOTime
sortorder
$HTMLDocumentStyles
$HTMLCode
$INFO
$WINDOWTITLE
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DateFiled
$BODY
$V5ACTIONS
$ACTIONS
&Arial
MissionLookup
    1S2S
Mission
    0R1S2S
MissionLookup
NoCache
    0R1S2S8S10S12S14S
MissionLookup
/TeamOverview?OpenView"
(Click Here to open the database)
    0S0E
(Click Here to open the database)
About TeamRoom 5.0
    This database can be used only by Notes R5.0 and later clients and Domino servers.
    Javascript must be enabled on the Notes client.
MissionLookup
    1S2S
Lookup
NoCache
    0R2S8S10S12S
Lookup
Mission
    0R1S2S
Initial Setup
TRMainDocHeader.gif|TRMainDocHeader.gif
    If you are the Team Leader or Team Facilitator setting up this TeamRoom
    for the first time, you should create the TeamRoom Setup document.  To do so, click the 'Set Up TeamRoom Now' button below.
    Note:  If you do not wish to set up the TeamRoom now, you can choose 'Update TeamRoom Setup ' located under the Leader/Facilitator Options at any time.
Notes
TempVars
ClientType
Notes
    3S4S6S10S12S
Mission
    0R7R11S
    Set Up TeamRoom Now
    What is TeamRoom?
    TeamRoom is a Lotus Notes application designed to support processes that help people work together.  The software does not create the sense of shared purpose, common language, focus, and drive which make effective teams productive.  But, by embedding in its technology a template for many of the basic practices of "good teaming," TeamRoom facilitates the creation and ongoing development of processes and practices common to high performance teams.
TeamRoom is a tool for information sharing and collaboration.  However, the work of a TeamRoom-based team is not fundamentally different than it was "before groupware."  By creating a
    shared context
     for team work, TeamRoom does what many good tools do: creates leverage, both for the individuals on the team and for the team as a whole.  Because the technology is built on a Notes groupware "sharing" platform, this context is richer and the leverage is greater than is typically possible with "sending" tools like Email.  Notes also makes it possible for TeamRoom to support teams whose members who are geographically distributed, and who are sometimes unable to be connected to their computer network.
    Examples of work made easier and more efficient by TeamRoom include:
    Raising & discussing issues and concerns
    Creating (collaborative) product:  memos, presentations, other "deliverables"
    Brainstorming (which, hopefully, leads to resolution and action)
    Preparing for meetings:  one can present and share information in the TeamRoom before the meeting, so that meeting time can be focused on decision making
    Tracking meeting agendas and resulting action items.
    Where to find more information?
    More information can be found by pressing F1 while in any form in TeamRoom.  This will open extensive documentation found in HELP5_CLIENT.NSF.  The
    1S2S10S
Notes
/$help?OpenHelp
    0R10S
    Using Database document for this database also contains help information.
      Refer to the following documentation database on
    http://www.notes.net
      Best Practices: Templates and Sample Databases (BPTEMP.NSF)
    Access Control:
    The default access of a database created with this template is "Author".
    If you wish to make this a private TeamRoom, assign the default an access level of "No Access".  Add name(s) or group(s) of individuals who will be involved in this TeamRoom to the ACL.  These people/groups should have "Author" access.
    The people listed in the TeamRoom Setup as the Team Facilitator and Team Leader should have a minimum of "Designer" access.  This will allow them full use of the Leader/Facilitator Options.
    You may want to give Subteam leaders "Editor" access so they can modify subteam profiles, create subteam status documents, etc.
    Important note:  In R5, anyone with Editor access or above can modify the TeamRoom Setup and the Archive dialog box (or the Web Database Archive Settings).
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SourceSeqTime
$SourceSequence
$SourceURL
$ClassName
$SourceDbTitle
$INFO
$BODY
topLeft?
dspTemplateName|dspTemplateName?
leftNotesView?
dspOutline|dspOutline?
leftBottom
DbaseTitleDisplay|DbaseTitleDisplay?
NotesView?
dspWelcome|dspWelcome?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$FrameSet
$Flags
&Arial
BGCOLOR="white"  FACE="Ariel"
Lotus Product
OBJECT
 MapCategories
    check to see if Mission Page exists
MissionLookup
    1S2S
Check
NoCache
    0R1S2S8S10S12S
Check
Check
    0R3S4S6S8S
MissionCheckz
MissionCheck
    list of categories used in documents that are NOT defined in the Mission Page
CatView
CategoryLookup
    1S2S
MissionView
MissionLookup
    0R1S2S
Mission
    0R1S2S
Get list of categories specified in Mission Statement
    0RR1S
CurrentCat
NoCache
MissionView
    0R1S2S8S10S12S14S
Get list of all categories used in database
    0RR1S
OldCat
NoCache
CatView
    0R1S2S8S10S12S
TrOldCat
OldCat^
    0R1S2S
Get just a list of categories not specified in the Mission statement
    0RR1S
InvalidCat
TrOldCat
CurrentCat
    0R1S2S6S8S
TrInvalidCat
InvalidCat^
    0R1S2S
CurrentCatZ
CurrentCat
TrInvalidCat
    0RR6S7S8S9S11S13SListCatsz
ListCats
    list of categories that are defined in the Mission Page
MissionView
MissionLookup
    1S2S
Mission
    0R1S2S
NoCache
MissionView
    0R1S2S8S10S12S14S
    0RR6S7S8S9S11S13S2ECurrentCatListz
CurrentCatList
Map Categories
    Documents in this TeamRoom may have been created using a prior category list.  Use the Map Categories feature to replace obsolete categories with current categories defined in the TeamRoom Setup.
    Note:  This feature is useful when you've created a TeamRoom database by replacing the design of a Discussion database.
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
FieldBlank
ListCats
MissionCheck
    1S2S3S4S5S2E6S7S8S2E9S10S
FieldBlankz
FieldBlank
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
ListCats
MissionCheck
    1S2S3S4S5S6S
All documents in this TeamRoom are using valid categories defined in the TeamRoom Setup (or the category field was left blank).
NoMoreToMap
NoMoreToMap
MissionCheck
    1S2S
This operation cannot be completed because the TeamRoom Setup has not yet been completed.
MissingMissionPagez
MissingMissionPage
ListCats
MissionCheck
    1S2S3S4S5S6S
    1. Select obsolete category(s) to map
    Hold down CTRL key to select multiple categories
size = 4
OldCat
ListCats
OldCat
    2. Select a replacement category
size = 4
CurrentCat
CurrentCatList
CurrentCat
    3. Map categories
    Click the "Map Categories Now" button to map the selected categories to the replacement category.  You can repeat steps 1 - 3 until all obsolete categories have been mapped.
ListCats
MissionCheck
    1S2S4S5S6S
(NotesFixCategories)
    Map Categories Now
ListCats
MissionCheck
    1S2S4S5S6S
    0S0E
    Done
Variable to translate
MissingTxt
The following fields require values: Current Category(s) and Replacement Category
    0R1S2S
End variable to translate
    0R1S
FieldBlank
    0RR1S2S3S
OldCat
OldCat
SelectTxt
CurrentCat
CurrentCat
SelectTxt
FieldBlank
MissingTxt
(WebFixCategories)
    0RR3S4S5S6S7S8S9S10S11S12S13S14S15S16S18R20R22R26S29R36RR38R43R48R52S54R
    Map Categories Now
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
ListCats
MissionCheck
    1S2S3S4S5S6S
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
&n/3B
q`U`m;
$NoBackgroundOverride
$INFO
$HTMLBodyTag
$$Script_O
$$ScriptName
$BODY
&Arial
TeamRoom:
    1S2S
 WelcomePage'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    continue = False
End Sub
Lotus Product
(GIF89a
?F|'1d
]O?yjY
^7X:&
Y=nL4
xC$f<$M.
xmg\UQ,
4-*j`\TLI
skHA@
d^dTS|
!ji97]
t%@6"V,
8i'dY
)/Wbc
{(C jq
R%9JW
vkT&\M
5- ,cs
Pl5b~gb
(aJxy
,Go)X}
1Rs&/P
Fo('1p
X    8d`fU\QY
u0z0H
&GR&!
H&ebc
Y!-U!
LWV-5
    rVuL
T-4T|k$'
 EJQ)
xD$&Q
Dt4de+m
1kJUmP
.)dPlV
e*>,q
f0Z.1
)%GT0d
K?N "E
"K    #LL
M#RQ=$
:`M$Z
?%Z?0#
FRM"M
7$5"Q
6mH2a
If;S$
e3]0[6
^6nuYaM"
k})0{
0ne2&c
Qy<"M
(]1+lR
pT?Dj
0s~k#
mS.qA
tKsiV
ZjFzP
{NYCP:
,lIdHD
.):M~
U,iA|
`3W<y
pSoI*f(
a(MTm
b&>b(
-v$&v
"Crd.
$)2d
(jndh
nfgrf
 gNFm
f}Og>
%\k:^Gye
j$x"l
5l0An
SrJ$L
mN#C'bH
AD    =2
:d0MoVWHC
(8l~O
8HQJhb
 Cub
 UPbF
j,s4Y
-1XB7kn
])'c1)
x /$+
n-+hO
20i3r
xLS6i
PiEY,
S8=<
7fNmHU
&?|8
.kZ    E
YEE--
L)((N
l-ib0
8=EJ~
Trtb)
9    >hbg'
_*pmm
U    %r2
B2y  p
 4qP8
X=`h1
7N8w]
fBq8zqXzv
'G2q  z0
(Tb%K
UPP`4
N3$[S
]HeAk
*SRgDA
0JP`T
#>Z}Zs
fcV/Dr
k=@0R
Qh0#h
|+PTdAtM1
Xi wD
x3j`
]qXXS
.3POu;
E/Ha.
`    ?`4
1h+1pL
PYCIU
TAwOpF
"9n@A
Q&%J69
#d<bI
 ZhH;
 ]C&GS
"F3F8
&| I6J
Md"/S
h)JBp
hpD!t
BVpEB
g[#L<#<
|%jk2
`%B0&
12`2!
$@K)B
u3RN|
<BNAK
=HqD>
)8Fit
[Vr    Fa
P    5I=
&P7Xy?Y
`+<tf
eBq@h
7x7~9
$U~DY
hJ&F}(A
`UUQJ
UCiuu
AXN0=Z
l<a(D!
    I%na
|-M'I
teWb9
g_a8r
cRTO=J
WpE{v
aYQ2!!
23sP-
#H@!0
|y@Sp
mfNd7
uNh@~
,XW\k
    5B)`
PjQ)G
X(F~D
*AN9Q
'"z]V
8CxB&
^>T.'
f7u+W
 h`I1
chS^r,
>!nt;W
:BY&J7
Fni6<
vc,&I
7%Ms:b
vT wD
^@8o`
(#1y8
>n2l
fe6u(
n QuB
#: )lx
ub&n`
'F~D)r
WC|R$
iHYi:2
!]mRH
fOh&k^UH&Z]
    J8b(
0(%t"
'4Q71_:
~53aTi
;i"r45
e0a/,$
l-Q&k8
6fezbS
cr    U}
hFTQ
y{Ei4Cz
Iz$bX
P(e1ea
u]H-[
z7094P
PS *P
d6f#I
    4k))7
WV;X:`m
4]:R]K
3;L(=
EQTPC0
BuXgs
{zL<z'
$4b    #~
6~Q)a
NbrV#v
b0C53b
8r\ !b
, Cq>
LQt'x:
&KUGd
J/vY/
+bB++3B'
59,J:
{l:CX
8    $ht
!ST)&
r'^.Z
=ui6w
E!{.8
Xrc>0
5c3h,
!F;4X
%} =Y
Z3f4h
M4AE#
56Q    &e%
EpjSKK
~][W
~|1    &hl
    &$`b
&!$?`"
4*@AvK
-LA    M
!jJP5
H"5Mb
?-ETy
CJ$X]
)@pU%$
}2Hdq
J@`rdgA
`AvF
`Nx0B%
dzZ.}
VeU6I
bHKb@
 BGtww
T[B6H
}x8U[
0FtKF
R dIH3
_0evJk
R6l0s
q/'TTQA
@;*"!
ATpbL
rZC+%
zRvihK
    P`@;
c6&h2L#9
@HX@l6
M88/~
ALl    XF
,_TGK
/HWq2
G}v5~
65Pc`
54Zw\Uw
[,e4L
rxnp-0
9;{cs@
M,n{HD
<</6>O
!!BH    1 |p0
QH#*6b
V}DI%$}
EVXa=
o%4G\
PFv,l
%    $$-
Bs.    7
%h/EuR
zR).M
""P"    ILb
3l`/,
x,JRZ
,\nk[
_{l;[
 m+&^
+}xK~
Uu#b"Y
"_'#
h'#+d4.d#
n`u9K
oY`*U`
@Awis
1pZ/w
B"Xw"
"D1j_
B#-t4
H"yP$
 - 2AF
7-|xd
tGwT
5rv (
)#IA*N
c)J*E
H@BIp
/JIL!
^Igvfqc
-Bw"Y
31)g3
{~@+u
Hqayi
7`:-9
1@B7[z
Ip#]@
$1b$
qa&owXI
tH\]O6
/"/Kf<#"
p1)Mi
6-AFh
99LXz
"tBmMH
Z8sw]
-0:(!
;-`AZ
R.eS3
:fS;r
4]8L0e
qIc(~b.vV
`>b"f^
LgRun
>U9<i
vk%Wr
>tU%!E
&Mz$if
    ~vz_
'NU    S
2mfiC[
7ma._
BXAYM
^5j@u
Umo^[1
    r BfWh
cEZdE
\OReUZ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
_Forward
Categori_zeK
Edit Message
_Move to Folder...
_Remove from Folder...
_Forward
Categori_zeK
Edit Message
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
Started running agent 'Mark/Unmark Document As Expired' on 06/26/97 07:42:47 AM
1 document(s) were modified by formula
Done running agent 'Mark/Unmark Document As Expired' on 06/26/97 07:42:47 AM
Mark/Unmark Document As Expired
This is for a Notes user only.E4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
/$lzQ
(WebMissionOpen)
EH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
(WebFixCategories)
Map categories for the webEH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
(EnableDisableAgents)
Enables and disables filing agent.  Used in buttons in Advanced Options panel of the TeamRoom SetupEH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
SendReminder
Enable/Disable this agent through the TeamRoom Setup*1fL3S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
(SubteamDetails)SubteamDetails1CD
SubteamList
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
(DelDocLookup)|DelDocLookup
EventSummary
EventDate
    1S2S3S4S5S6S10S11S
ParticipantProfile
Subteam
STName
    0R3S4S6S10S13S14S15S17S20S21S24S
$0$Conflict$REF
ParticipantProfile
Subteam
Event
    L1S2S3S4S5S6S7S8S9S10S11S1
$0item
EventSummary
EventDate
    1S2S3S4S5S6S10S11S
ParticipantProfile
Subteam
STName
    0R3S4S6S10S13S14S15S17S20S21S24S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
(DeleteMissionItem)DeleteMissionItemDCF
SaveOptionsEventListSubteamListParticipantListEListSListPList
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
(DeleteDocsViaMission)
EH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
(CategorizeTeamDocs)
EH4f3L
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
By Subteam |ActiveBySubteam12
SubteamInterest$106$121
DocType$126d
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
"Open by Assignment |OpenAssignnment12
$126$121$106$121
DocType$127d
(Help)
TeamRoomVActiveDocs
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
Team/Subteam Status|StatusLookup
Status
- Team Status -
Subteamname
    3S4S6S8S
Status
ReportDate
ReportDate
ExpiredTxt
EXPIRED:
    1S2S
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S10S11S
$35$33ReportDate$34$Conflict
Status
SubteamStatus
Status
    L1S3S4S5S6S7S8S10S11S12S13S1+
$35ReportDate$34
ReportDate
 $35f
Status
- Team Status -
Subteamname
    3S4S6S8S
$33Hidden to sort Active status firstD
Status
ReportDateReport Date"
ReportDate
ReportDate
$34Subject
ExpiredTxt
EXPIRED:
    1S2S
ExpireDate
ExpiredTxt
Subject
    0R3S4S6S8S10S11S
(Help)
TeamRoomVTeamStatus
    0R4S6S8S
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
Subteam StatusSubteamStatusC
DateFiledStatusBodySummarySubjectFileThisStatusDocReportDateSubTeamNameAbbreviateFromFromTeamRoomNameDocTypeCategoriesOrigDate
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
Team StatusStatusC
DateFiledStatusBodySummarySubjectFileThisStatusDocReportDateAbbreviateFromFromTeamRoomNameDocTypeCategoriesOrigDate
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
dspTemplateNamedspTemplateNameC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
dspOutlinedspOutline1C34WJ
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm34
TeamRoomSetupMissionPage###########
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm34
TeamRoomOutlineTeamRoomOutline#############
(Web-EditMission)
EH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
(MissionPageNew-Edit)
Used in Leader/Facilitator Options hotspotEH4
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
kLl1?B
ResponseBannerCUA3x
CategoriesParentSubjectSubject
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
(EditInterestProfile)
Used in Leader/Facilitator Options hotspotEH4fL3
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
(LookupInterestProfiles)|LookupInterestProfiles
For web lookups, we must replace the forward slash in hierarchical names with a non-reserved character
AbbrName
FullPersonName
    0R1S2S6S
rplSLName
Abbrname
    0R1S2S6S8S
rplspName
rplSLName
    0R1S2S
rplspName
    0S0E
$49$32$Conflict
Interest Profile
    L1S2S3S1
$49Name
For web lookups, we must replace the forward slash in hierarchical names with a non-reserved character
AbbrName
FullPersonName
    0R1S2S6S
rplSLName
Abbrname
    0R1S2S6S8S
rplspName
rplSLName
    0R1S2S
rplspName
    0S0E
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
?blank.gifused in the outline elements when no graphic is desired
blank.gifblank.gif
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
QUERY_STRING_DECODED
QUERY_STRING_DECODED
QUERY_STRING_DECODED
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
deleteQueryString
deleteQueryString
QUERY_STRING_DECODED(
    1S2S3S
deleteQueryString
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Status
Status
FileThisStatusDoc
    3S4S6S8S
Statusz
Status
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
CN=Rob Shaver/O=IrisCN=Damien Katz/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm34
SubscriptionFormOutlineSubscriptionFormOutline################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub SetSharedVariables
Declare Sub RenderExpireDate(doc As notesdocument)
Declare Function CheckArchiveProtection As Integer
Declare Sub Terminate
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Mark/Unmark Document As Expired:
'Copy Of Mark/Unmark Documents As Expired:
'Mark/Unmark Expired Documents:
Dim UIwork As NotesUIWorkspace
Dim UIview As NotesUIView
Dim Session As NotesSession
Dim db As notesdatabase
Dim doc As notesdocument
Dim UIdoc As notesuidocument
Dim collection As NotesDocumentCollection
Dim i As Integer
Dim PFA As Variant
Dim FormItem As Variant
Dim ExDate As Variant
Dim ExQues As Variant
Dim Subj As Variant
'The following variables are available to be translated
Const Msg1 ="This "
Const Msg2 =" cannot be marked as expired."
Const Msg3 = " is already Marked Expired.  Do you wish to remove the expiration flag?"
Const Msg4 = "The requested action has been completed.  The document must be saved for the changes to take effect."
Const Msg5 = "You must first select a document.  Note:  highlight bar cannot be on a category."
Const msg6 = "Document has not yet been saved"
Const msg7 = "Cannot mark document(s) as expired because archiving has not yet been set up for this database.  To set up archiving, select File--Database--Archive or click Archive Settings in the Database Properties infobox."
Const BoxTitle ="Already Marked Expired"
Const BoxTitle2 ="Expire Not Permitted"
'End translatable variables
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Set UIwork = New notesuiworkspace
    Set uiview = uiwork.currentview
    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Set collection = db.UnprocessedDocuments
    Set UIdoc = UIwork.currentdocument
    Dim archProfile As notesdocument
    Set archProfile = db.getprofiledocument("Archive Profile")
    If Not archProfile.hasitem("Enabled") Then
        Msgbox Msg7
        Exit Sub
    End If
    If collection.Count < 1 Then
        Msgbox Msg5
        Exit Sub
    End If
    If uidoc Is Nothing Then
        Goto continue
    Elseif uidoc.isnewdoc Then
        Msgbox Msg6
        Exit Sub
    End If
continue:
    If Not UIdoc Is Nothing And UIview Is Nothing Then
        Set doc = uidoc.document
        Call SetSharedVariables
        If Not(CheckArchiveProtection) Then
            UIWork.editdocument(True)
            Call RenderExpireDate(doc)
            ExQues = doc.GetItemvalue("ExpireQuestion")
            UIdoc.refresh
        End If
    Else
        For i = 1 To collection.Count
            Set doc = collection.GetNthDocument( i )
            Call SetSharedVariables
            If Not(CheckArchiveProtection) Then
                Call RenderExpireDate(doc)
                Call doc.save(True, True, True)
            End If
        Next
    End If
End Sub
'++LotusScript Development Environment:2:2:SetSharedVariables:1:8
Sub SetSharedVariables
    FormItem=doc.GetItemValue("Form")
    ExDate=doc.GetItemValue("ExpireDate")
    PFA = doc.HasItem( "PROTECTFROMARCHIVE" )
    Subj=doc.GetitemValue("Subject")
End Sub
'++LotusScript Development Environment:2:2:RenderExpireDate:1:8
Sub RenderExpireDate(doc As notesdocument)
    Dim UIwork As New notesuiworkspace
    If Not ExDate(0) =""  Then
        ExQues = Messagebox (Subj(0) & Msg3, 4 + 32 + 0 , BoxTitle)
        Select Case ExQues
        Case     Is = 2
            Exit Sub
        Case Is = 6
            Call doc.ReplaceItemvalue("ExpireDate", "")
            If Not UIdoc Is Nothing Then
                Print Msg4
            End If
        Case Is = 7
            Exit Sub
        End Select
    Else
        Call doc.ReplaceItemValue ( "ExpireDate", Now)
        If Not UIdoc Is Nothing Then
            Print Msg4
        End If
    End If
End Sub
'++LotusScript Development Environment:2:1:CheckArchiveProtection:1:8
Function CheckArchiveProtection As Integer
    If PFA Then
        Messagebox Msg1 & FormItem(0) & Msg2 , 0 + 64, BoxTitle2
    End If
    CheckArchiveProtection = PFA
End Function
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Started running agent 'WebMissionOpen' on 07/22/98 08:33:30 AM
Ran LotusScript code
Done running agent 'WebMissionOpen' on 07/22/98 08:33:31 AM
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim db As notesdatabase
    Dim note As notesdocument
    Dim FilingAgent As notesagent
    Dim NewsletterAgent As notesagent
    Dim NewsletterEnabled As Variant
    Dim ReminderAgent As notesagent
    Dim DbProfile As NotesDocument
    Set db = session.currentdatabase
    Set note = session.documentcontext
    Set DbProfile = db.GetProfileDocument( "TempVars")
    Set FilingAgent = db.getagent("AutoFileAgent")
    Set NewsletterAgent = db.getagent("Send Newsletters")
    Set ReminderAgent = db.getagent("SendReminder")
    If FilingAgent.isenabled Then
        DbProfile.FilingEnabled = "1"
        Call note.replaceitemvalue("FilingEnabled", "1")
    Else
        DbProfile.FilingEnabled = "0"
        Call note.replaceitemvalue("FilingEnabled", "0")
    End If
    If NewsletterAgent.isenabled Then
        DbProfile.NewsletterEnabled = "1"
        Call note.replaceitemvalue("NewsletterEnabled", "1")
    Else
        DbProfile.NewsletterEnabled = "0"
        Call note.replaceitemvalue("NewsletterEnabled", "0")
    End If
    If ReminderAgent.isenabled Then
        DbProfile.ReminderEnabled = "1"
        Call note.replaceitemvalue("ReminderEnabled", "1")
    Else
        DbProfile.ReminderEnabled = "0"
        Call note.replaceitemvalue("ReminderEnabled", "0")
    End If
Call dbprofile.save(False,False,True)
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "wStringResource"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function GetDBPath
Declare Sub MapCategories
'++LotusScript Development Environment:2:5:(Declarations):0:10
'WebFixCategories:
Dim Db As NotesDatabase
Dim OldCat As Variant
Dim CurrentCat As Variant
Dim selected As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
    Dim MapDoc As notesdocument
    Dim MapView As notesview
    Dim mapunid As Variant
    Dim dbug As New noteslog("WebFixCategories")
    Dim dbname As String
    Set db =  s.currentdatabase
    dbname = getdbpath
'logging is for debug purposes
    Set dbug = New NotesLog("WebFixCategories")
'to turn off the debug log, set this to False
    dbug.LogActions = True
    dbug.OpenAgentLog
    Dim key As String
    Dim mapdoc2 As String
    On Error Goto ErrorHere
    key = "MapCategories"
    Set MapView= db.getview("($Profiles)")
    Set MapDoc= MapView.getdocumentbykey(key)
    OldCat=MapDoc.GetItemValue("OldCat")
    CurrentCat=MapDoc.GetItemValue("CurrentCat")
    selected = Ubound(oldcat)
    MapCategories
    Call dbug.close
    Call MapDoc.Remove(True)
    If selected = 0 Then
        Print "<h2>" & getstring(41) & "</h2>"
    Else
        Print "<h2>" & getstring(42) & "</h2>"
    End If
    Print |<hr><a href="javascript: onClick=window.close(self)">| & getstring(2)  & "</a>   " &_
    "<a href=/" + DbName + "/MapCategories?OpenForm>" & getstring(40) & "</a>"
ErrorHere:
    dbug.logaction(Err & " - " & Error)
End Sub
'++LotusScript Development Environment:2:1:GetDBPath:1:8
Function GetDBPath
        'check to see if the database is in a directory
    If Instr(db.filepath,"\") Then
        getdbpath = Left$(db.filepath, Instr(db.filepath,"\")-1) + "/" + Right$(db.filepath,Len(db.filepath)-Instr(db.filepath,"\"))
    Else
        getdbpath = db.filepath
    End If
End Function
'++LotusScript Development Environment:2:2:MapCategories:1:8
Sub MapCategories
    Dim View As NotesView
    Dim Item As NotesItem
    Dim i As Integer
    Dim cats As Variant
    Dim Doc As NotesDocument
    Set View=Db.GetView("($All)")
    Set Doc= View.GetFirstDocument
    While Not(Doc Is Nothing)
        cats=Doc.GetItemValue("Categories")
        i = 0
        Forall x In cats
            Forall y In OldCat
                If Lcase(x) = Lcase(y) Then
                    cats(i) = CurrentCat(0)
                    Set item = doc.replaceitemvalue("Categories", cats)
                End If
            End Forall
            i= i+1
        End Forall
        Call Doc.Save( True, True)
        Set Doc=View.GetNextdocument(Doc)
    Wend
End Sub
Lotus Product
OBJECT
-l    #}
-l    #}
-l    #}
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub SetFilingAgent
Declare Sub SetNewsletterAgent
Declare Sub SetReminderAgent
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim db As notesdatabase
Dim FilingAgent As notesagent
Dim NewsletterAgent As notesagent
Dim ReminderAgent As notesagent
Dim DbProfile As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Set db = session.currentdatabase
    Set DbProfile = db.GetProfileDocument( "TempVars")
    Set FilingAgent = db.getagent("AutoFileAgent")
    Set NewsletterAgent = db.getagent("Send Newsletters")
    Set ReminderAgent = db.getagent("SendReminder")
    If dbprofile.SetThisAgent(0) = "filing" Then
        Call SetFilingAgent
        Exit Sub
    End If
    If dbprofile.SetThisAgent(0) = "newsletter" Then
        Call SetNewsletterAgent
        Exit Sub
    End If
    If dbprofile.SetThisAgent(0) = "reminder" Then
        Call SetReminderAgent
        Exit Sub
    End If
End Sub
'++LotusScript Development Environment:2:2:SetFilingAgent:1:8
Sub SetFilingAgent
    If dbprofile.FilingEnabled(0) = "1" Then
        FilingAgent.IsEnabled  = True
        Call FilingAgent.save
    Elseif dbprofile.FilingEnabled(0) = "0" Then
        FilingAgent.IsEnabled  = False
        Call FilingAgent.save
    End If
End Sub
'++LotusScript Development Environment:2:2:SetNewsletterAgent:1:8
Sub SetNewsletterAgent
    If dbprofile.NewsletterEnabled(0) = "1" Then
        NewsletterAgent.IsEnabled  = True
        Call NewsletterAgent.save
    Elseif dbprofile.NewsletterEnabled(0) = "0" Then
        NewsletterAgent.IsEnabled  = False
        Call  NewsletterAgent.save
    End If
End Sub
'++LotusScript Development Environment:2:2:SetReminderAgent:1:8
Sub SetReminderAgent
    If dbprofile.ReminderEnabled(0) = "1" Then
        ReminderAgent.IsEnabled  = True
        Call ReminderAgent.save
    Elseif dbprofile.ReminderEnabled(0) = "0" Then
        ReminderAgent.IsEnabled  = False
        Call  ReminderAgent.save
    End If
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function GetString ( StringType As Integer) As String
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString ( StringType As Integer) As String
     '
    Select Case StringType
    Case 1  ' WebAddtopic, WebExpire
        GetString = "Go Back to Previous Document"
    Case 2  ' WebAddtopic,  WebExpire, WebRemoveThread
        GetString = "Return to the TeamRoom"
    Case 3 'SendReminders
        getString = "The due date on this item in the TeamRoom has passed.  Since the document is "&_
        "assigned to you, please follow the doclink below and mark the document Complete as soon as possible"
    Case 4 'SendReminders
        getString = "Doclink to overdue item: "
    Case 5 'SendReminders
        getString = "This item in the TeamRoom has been directed to your attention.  Please follow the doclink below and review the document."
    Case 6  ' WebAddtopic
        GetString = "This document is not identified as a thread.  Contact the database manager if you want all threads initialized."
    Case 7  ' WebAddtopic
        GetString = "This topic is already in your Newsletter Profile."
    Case 8  ' WebAddtopic
        GetString = "has been added to your Newsletter Profile.  You will be notified by mail when new responses appear in this topic."
    Case 9  ' WebArchiveSaveSettings
        GetString = "You have successfully updated the Archive settings for this database. "
    Case 10 'WebArchiveSaveSettings
        getString = "Done"
'    Case 11  ' WebDelete
'        GetString = "The document has been deleted."
    Case 12  ' WebExpire
        GetString = " cannot be marked for expiration."   ' leave the leading space..
    Case 13  ' WebExpire
        GetString = "The document's expiration date has been removed."
    Case 14  ' WebExpire
        GetString = "The current document has been marked for expiration."
    Case 15  ' WebRemoveThread
        GetString = "Back to Newsletter Profile"
    Case 16  ' WebRemoveThread
        GetString = "Profile document could not be found."
    Case 17  ' WebRemoveThread
        GetString = "The requested thread(s) have been removed from your Newsletter Profile."
    Case 18 'add topic to Newsletter profile
        getString = "Please choose only one document."
    Case 19 'add topic to Newsletter profile
        getString = "Add Topic"
    Case 20 'add topic to Newsletter profile
        getString =     "This action cannot be run on the Newsletter Profile."
    Case 21 'add topic to Newsletter profile
        getString =     "This document is not identified as a thread.  Contact the database manager if you want all threads initialized."
    Case 22   'An error that we are not specifically handling
        GetString = Err & " - " & Error
    Case 23 'add topic to Newsletter profile
        getString = "Not a Thread"
    Case 24  'Error message in WebRemoveThread agent for empty selection
        GetString = "No threads were selected to remove from the Newsletter Profile."
    Case 25 'Used in WebAddTopic agent
        GetString = "Untitled - "
    Case 26  'Used in WebAddTopic agent
        GetString =  "Untitled topic "
    Case 27  'used in DelDocsViaMission agent
        GetString = "You are not authorized to delete documents in this database."
    Case 28   'used for Web navigation
        GetString =  "By Date"
    Case 29  'used for Web navigation
        getString  = "Mission/Team Members"
    Case 30  'used for Web navigation
        getString = "Go Back"
'    Case 31  'used in WebDelete agent
'        getstring = "You are not authorized to delete the document because you are not the document's original author."
'    Case 32  'used in WebDelete agent
'        getstring =  "You have successfully deleted the document entitled: "
    'used in NotesFixCategories agent
    Case 33
        getstring =  "Please choose a category(s) to change"
    Case 34
        getstring = "Please choose a replacement category"
    Case 35
        getstring ="The category was mapped successfully.  You may select another category to map, or click Done."
    Case 36
        getstring = "The categories were mapped successfully.  You may select another category to map, or click Done."
    Case 37
        getstring = "Field requires a value"
    Case 38
        getstring = "Map Categories"
    Case 39 'add topic to Newsletter profile
        getString =     "This topic is already in your Newsletter Profile."
    'used in WebFixCategories agent
    Case 40
        getstring    ="Map Another Category"
    Case 41
        getstring ="The category was mapped successfully"
    Case 42
        getstring = "The categories were mapped successfully"
    'used in Fix Pasted Documents agent
    Case 43
        getstring = "Number of documents processed: "
    Case 44
        getstring =  "Fix pasted documents"
    Case 45
        getstring = "Response to: "
    Case 46  'used in Send Newsletters agent
        getstring =  "Documents you requested from the TeamRoom: "
    Case 47 'add topic to Newsletter profile
        getString =     "The current topic has been added to your Newsletter Profile. You will be notified by mail when new responses appear in this topic."
    Case 48 'sendReminders
        getString = "Send Reminders"
    Case 49 'add selected topic to newsletter profile
        getString = "You must first select a document.  Note:  highlight bar cannot be on a category."
    Case 50
        getString = "Index of All Documents"
    Case 51
        getString = "TeamRoom Overview"
    Case 52
        getString = "By Date"
    Case 53 'sendReminders
        getString = "Done sending reminders."
    End Select
End Function
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
yQi"h
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "DiscussionRoutines"
Use "wStringResource"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub sendTheReminder
Declare Sub ReminderDoneMsg
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim Doc As NotesDocument
Dim RevNotDone As Variant
Dim People As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New NotesSession
    Dim view As NotesView
    Dim DueDate As Variant
    Dim nowDate As Variant
    Dim x As Variant
    Dim Item As NotesItem
    Dim count As Integer
    count = 0
    Set Db = S.CurrentDatabase
    Set View=Db.GetView("ActiveDueDate")
    Set Doc= View.GetFirstDocument
    nowDate = Evaluate("@today")
    While Not(Doc Is Nothing)
        DueDate = doc.getitemvalue("DueDate")
        RevNotDone = doc.getitemvalue("ReviewedByNotDone")
        People = doc.getitemvalue("People")
        If DueDate(0) = "" Or People(0) = "" Then
            Goto GetNext
        Elseif DueDate(0) > nowDate(0) Then
            Goto GetNext
        Else
            count = count + 1
            Call sendTheReminder
        End If
GetNext:
        Set Doc=View.GetNextdocument(Doc)
    Wend
    If count = 0 Then
        If count = "0" Then
            Call ReminderDoneMsg
        End If
    End If
End Sub
'++LotusScript Development Environment:2:2:sendTheReminder:1:8
Sub sendTheReminder
    Dim mailnote As notesdocument
    Dim DDrtitem As notesrichtextitem
    Dim RVrtitem As notesrichtextitem
    Dim reminderSendTo As Variant
    Set mailnote = New NotesDocument(db)
    Set DDrtitem = New NotesRichTextItem(mailnote, "Body")
    Set RVrtitem = New NotesRichTextItem(mailnote, "Body")
    mailnote.Subject = "TeamRoom item is overdue."
'get SendTo info
'if RevNotDone is blank, then it's an Action Item, and we use the People field instead
    If RevNotDone(0) = "" Then
        Forall x In people
            mailnote.SendTo = x
            Call DDrtitem.AppendText(getString(3) + Chr(10) + Chr(13) + Chr(13) + getString(4))
            Call DDrtitem.AppendDocLink(doc, "")
            mailNote.Form = "Memo"
            On Error Resume Next
            Call mailNote.Send (False)
        End Forall
    Else
        Forall x In RevNotDone
            mailnote.SendTo = x
            Call RVrtitem.AppendText(getString(5) + Chr(10) + Chr(13) + Chr(13) + getString(4))
            Call RVrtitem.AppendDocLink(doc, "")
            On Error Resume Next
            Call mailNote.Send (False)
        End Forall
    End If
    Call ReminderDoneMsg
End Sub
'++LotusScript Development Environment:2:2:ReminderDoneMsg:1:8
Sub ReminderDoneMsg
    Dim clientType As Variant
    Dim dbProfile As notesdocument
    Dim dbpath As Variant
    Dim AllView As String
    Dim MissionView As String
    Dim ActiveView As String
    Set dbprofile = db.getprofiledocument("TempVars")
    clientType = dbProfile.ClientType
    If clientType(0) = "" Then
        Exit Sub
    End If
    dbpath = getdbpath
    AllView =   "<hr><font size=2><a href=/" + dbpath + "/($All)?OpenView>"+ getString(50) +"</a>   "
    MissionView = "<a href=/" + dbpath + "/TeamOverview?OpenView>"+GetString(51)+"</a>   "
    ActiveView = "<a href=/" + dbpath + "/ActiveDate?OpenView>"+GetString(52)+"</a><hr>"
    If clientType(0) = "Notes" Then
        Messagebox getString(53), 64, getString(48)
    Elseif clientType(0) = "Web" Then
        Print "<b><font size=4>" + getString(53) + "</b>"  +  AllView + MissionView + ActiveView
    End If
    dbprofile.ClientType = ""
    Call dbprofile.save(False,False,True)
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
&Arial
Subteam Details
Lotus Product
 SubteamDetails
Subteam Details
    Choose a subteam:
size = 5
SubteamList
SubteamLookup
    1S2S
SubteamLookup
NoCache
    0R1S2S5S6S8S10S12S
SubteamLookup
subteamlist
    List of team member(s) in the subteam called:
SubteamList
dspSubteamList
SubteamLookup
Members
NoCache
SubteamList
STmembers
SubteamList
Members
Members
MemberNames
    The purpose of this subteam:
SubteamLookup
    1S2S
NoCache
SubteamList
Position
    0R1S2S5S6S8S10S12S14S
SubteamList
RoleZ
    0R3S4S5S6S11S13S
SubteamRole
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$NoBackgroundOverride
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
v;A#G
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
&Arial
Delete Mission Item
Lotus Product
 DeleteMissionItem
PeopleLookup
    1S2S
NoCache
    0R1S2S8S10S12S
PList
SubteamLookup
    1S2S
NoCache
    0R1S2S8S10S12S
SList
EventLookup
    1S2S
NoCache
    0R1S2S8S10S12S
EList
PList
SList
EList
    1S2S3S4S5S6S7S8S9S10S
Notes
TempVars
ClientType
Notes
    3S4S6S10S12S15S
(DeleteDocsViaMission)
    0R4S
    Delete Item(s)
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
variable to translate
You are not authorized to delete documents from this database.
    0R1S2S
end variable to translate
    0R1S
TempVars
CanDelete
    0RR1S2S6S
    0R4S6S7S8S10S12S
CanDelete
Lists
PList
SList
Elist
    1S2S3S4S5S6S
Lists
    0R1S2S
    0S0E
    Done
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close(self)
    Done
Choose Participant(s) to delete:
Choose Subteam(s) to delete:
Choose Event(s) to delete:
PList
SList
EList
    1S2S3S4S5S6S7S8S9S10S
.,$,  , :
size = 6
ParticipantList
PList
PList
SList
EList
    1S2S3S4S5S6S7S8S9S10S
size=6
SubteamList
SList
PList
SList
EList
    1S2S3S4S5S6S7S8S9S10S
size=6
EventList
EList
PList
SList
EList
    1S2S3S4S5S6S7S8S9S10S
There are no Participants, Subteams, or Events specified in the TeamRoom Setup.
SaveOptions
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$WebFlags
$$Script_O
$$ScriptName
$BODY
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "DiscussionRoutines"
Use "wStringResource"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub DeleteDocuments
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim dbug As Variant
Dim DbProfile As NotesDocument
Dim pClientType As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim ACLentry As Variant
    Dim acl As notesacl
    Dim CurrentUsername As Variant
    Dim canDelete As Variant
    Dim ACLlevel As Variant
    Dim LinkDone As String
    Set s = New notessession
    Set db = s.currentdatabase
    Set DbProfile = db.GetProfileDocument( "TempVars")
    DbProfile.CanDelete = ""
    Set acl = db.acl
    CurrentUsername = Evaluate( "@name([abbreviate]; @username)")
    Set ACLentry = acl.getentry(CurrentUsername(0))
    If ACLentry Is Nothing Then
        Set ACLentry = acl.getentry("-Default-")  'DNT
    End If
    pClientType = dbProfile.ClientType
'Check to see if the user has deletion rights in db
    canDelete = aclentry.candeletedocuments
    If canDelete = False And pClientType(0) = "" Then
        DbProfile.CanDelete = "0"
        Goto xEnd
    Elseif canDelete = False And pClientType(0) = "Notes" Then
        Msgbox GetString(27)
        Goto xEnd
    End If
    Call DeleteDocuments
xEnd:
    dbProfile.ClientType  = ""
    Call dbProfile.save(False,False,True)
End Sub
'++LotusScript Development Environment:2:2:DeleteDocuments:1:8
Sub DeleteDocuments
    Dim DelNote As notesdocument
    Dim DeletionList As Variant
    Dim subteamList As Variant
    Dim eventList As Variant
    Dim View As notesview
    Dim Doc As notesdocument
    Set DelNote = s.documentcontext
    Set View = db.getview("DelDocLookup")
'delete participants
    DeletionList = DelNote.getitemvalue("ParticipantList")
    If deletionlist(0) = "" Then
        Goto DelSubteams
    Else
        Forall x In DeletionList
            Set doc = view.getdocumentbykey(x)
            doc.remove(True)
        End Forall
    End If
DelSubteams:
    DeletionList = DelNote.getitemvalue("SubteamList")
    If deletionlist(0) = "" Then
        Goto DelEvents
    Else
        Forall x In DeletionList
            Set doc = View.getdocumentbykey(x)
            doc.remove(True)
        End Forall
    End If
DelEvents:
    DeletionList = DelNote.getitemvalue("EventList")
    If deletionlist(0) = "" Then
        Exit Sub
    Else
        Forall x In DeletionList
            Set doc = View.getdocumentbykey(x)
            doc.remove(True)
        End Forall
    End If
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Started running agent 'CategorizeTeamDocs' on 07/30/98 06:28:47 AM
Running on selected documents: 1 total
Found 1 document(s) that match search criteria
1 document(s) were modified by formula
Done running agent 'CategorizeTeamDocs' on 07/30/98 06:28:50 AM
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function GetString ( StringType As Integer) As String
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString ( StringType As Integer) As String
    Select Case StringType
    Case 1
        GetString = "The TeamRoom Setup has not yet been created."
    Case 2
        GetString = "There are no categories defined in the TeamRoom Setup."
    Case 3  'title bar
        GetString = "Categorize Team Documents"
    Case 4
        getString = "Select one or more categories for the selected team documents: "
    Case 5  'title bar for errors 1 and 2 above
        getString = "Unable To Proceed"
    Case 6
        getString = "No documents are selected."
    End Select
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uiview As notesuiview
    Dim uidoc As notesuidocument
    Dim db As notesdatabase
    Dim collection As notesdocumentcollection
    Dim doc As notesdocument
    Dim missionView As notesview
    Dim missionDoc As notesdocument
    Dim catList As Variant
    Dim getPrompt As Variant
    Dim i As Integer
    Set db = s.CurrentDatabase
    Set collection = db.UnprocessedDocuments
    Set UIdoc = UIwork.currentdocument
    Set missionView = db.getview("MissionLookup")
    Set missionDoc = missionView.getdocumentbykey("Mission")   'DNT
    If collection.Count = 0 Then
        Msgbox getString(6), 16, getstring(5)                    'check to see if teamroom setup exists
        Exit Sub
    Elseif missionDoc Is Nothing Then
        Msgbox getString(1), 16, getstring(5)                    'check to see if teamroom setup exists
        Exit Sub
    Else
        catList = missionDoc.getitemvalue("Categories")   'check to see if any categories have been defined in teamroom setup
        If catList(0) = "" Then
            Msgbox getString(2), 16, getstring(5)
            Exit Sub
        End If
    End If
    getPrompt = uiwork.prompt(PROMPT_OKCANCELLISTMULT, getString(3), getString(4), "", catList)
    For i = 1 To collection.Count
        Set doc = collection.GetNthDocument( i )
        Call doc.replaceitemvalue("Categories", getPrompt)
        Call doc.save(True, False, True)
    Next
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
UR{jf;H
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
SubteamInterest
SubteamInterest
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S2E16S17S18S19S
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14S
SubteamInterest$106$116$121$124$125$126DocType$Conflict$REF
MainTopic
Status
SubteamInterest
    L1S3S4S5S6S7S8S10S11S12S13S14S15S
SubteamInterest.
SubteamInterest
SubteamInterest
$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1242
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$125Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S2E16S17S18S19S$126Due
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14SDocTypeType&
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"6&,3
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
LCDocType
doctype
    1S2S
LCDisc
DefaultDocType1
    0R1S2S
LCRef
DefaultDocType4
    0R1S2S
NotDone
ReviewedByNotDone
    0RR1S2S
LCDocType
LCDisc
LCDocType
LCRef
ReviewedByNotDone
People
    0RR3S4S5S6S7S8S10S11S12S
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
$121l
LCDocType
LCMtg
current_status
    0R4S6RR7S8S10S12R13S14S16S18S19S20S22S24S25S26S28S30S31S32S36S38S40S42S44S46S49S51S
$106l
    4S6S
$116l
    4S6S10S12S
$121i
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14S
DocType
DocType
$126$121$106$116$121$122$125$127DocType$Conflict$REF
LCMtg
defaultdoctype3
    1S2S
LCDocType
doctype
    0R1S2S
MtgDate
MainTopic
Status
LCMtg
LCDocType
People
Current_Status
    0RL1S2S3S4S5S8S9S10S11S12S13S14S15S16S17S19S20S21S22S23S24S25S26S28S29S
$126For
LCDocType
doctype
    1S2S
LCDisc
DefaultDocType1
    0R1S2S
LCRef
DefaultDocType4
    0R1S2S
NotDone
ReviewedByNotDone
    0RR1S2S
LCDocType
LCDisc
LCDocType
LCRef
ReviewedByNotDone
People
    0RR3S4S5S6S7S8S10S11S12S
$121z
Duedate
    1S2S
    0R1S2S
LCDocType
DocType
    0R1S2S
LCMtg
DefaultDocType3
    0R1S2S
$121l
LCDocType
LCMtg
current_status
    0R4S6RR7S8S10S12R13S14S16S18S19S20S22S24S25S26S28S30S31S32S36S38S40S42S44S46S49S51S$106Date2
$106l
    4S6S
$116H
$116l
    4S6S10S12S
$121i
$1222
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
AuthorName
Fromh
Anonymous
    0R1S2S10S12S16S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Subject
AuthorName
D2S0V
    0R3S4S6S8S9S10S12S14S16S17S20S21S23S24S25S27S29S30S31S32S33S34S35S36S40S42S43S
$125Topic
PrivateTxt
PRIVATE:
    1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
Author
Interest Profile
    0R1S2S5S6S8S10S11S12S16S18S19S
readers
PrivateTxt
ExpireDate
ExpiredTxt
Subject
Author
    0R3S4S6S8S9S10S12S14S16S17S18S19S$127Due
MtgDate
mtgDate
DueDate
DueDate
    3S4S6S8S9S10S12S14SDocTypeType
DocType
DocType
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
NewDocument.gif|NewDocument.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
notes only
ResponseToResponse
NewResponseToResponse.gif|NewResponseToResponse.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
_Edit Document
New Document.
MainTopic
    0S0E
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$FormulaTV
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Team StatusK(
Status
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
NewTeamStatus.gif|NewTeamStatus.gif?
New Subteam Status0
SubteamStatus
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
NewSubteamStatus.gif|NewSubteamStatus.gif?
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
SetStatusToInactive.gif|SetStatusToInactive.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Team StatusK(
Status
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
New Subteam Status0
SubteamStatus
    1S2S
    0R1S2S
access
    0R1S2S7S8S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
Set Status to Inactive
formh
You must first select a document.  Note:  highlight bar cannot be on a category.
    8S16S
(SetStatusInactive)
    0RR4S
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ICl62W
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
&Arial
function validate(){
var msg;
var msgflag;
msgflag = "false";
 if(document.forms[0].SubTeamName.value == ""){
    msg="Please select a subteam name.";
    msgflag="true";
                document.forms[0].SubTeamName.focus()
 if(msgflag == "true"){
     alert(msg);
if(msgflag == "false"){
document.forms[0].submit()
NewTxt
New Subteam Status
Subteam Status for:
Subteamname
    0R1S2S3S2E4S
NewTxt
    0R4S6S
(Help)
TeamRoomFSubteamStatus
    0R6S8S
Lotus Product
 SubteamStatus
    Hidden Fields:
OrigDatez
OrigDate
    Date originally composed
 ** Team Status **
Categoriesz
Categories
        "Team Status"
 ** Subteam Status Report **
DocType
DocType
        "Status Report"
Variable to translate
<The TeamRoom Setup for this TeamRoom has not yet been completed.>
    0R1S
NoTeamName
--No team name specified in the TeamRoom Setup--
    0R1S2S
End variable to translate
    0R1S
MissionLookup
    0RR1S2S
TeamNameLookup
NoCache
Mission
    0R1S2S5S6S8S10S12S14S
TeamNameLookupZ
TeamNameLookup
NoTeamName
TeamNameLookup
    0R7S9S10S11S13S15S
TeamRoomName
        Lookup to Mission Definition to get team name
FromAuthor of this document
        document's author
AbbreviateFrom
    used in the Newsletter profile searches
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
        used for web saving
Subteam
Status Report
    TeamRoom:
TeamRoomName
dspTeamRoomName
dspTeamRoomName
    0S0E
tmpFrom
tmpFrom
DateComposedDate this document was composed
DateComposed
timeComposedz
timeComposed
TRMainDocHeader.gif|TRMainDocHeader.gif
    Subteam:
size = 3
SubteamLookup
    1S2S
NoCache
    0R1S2S6S8S10S12S
    0R4S
BLFailureText
Please select a subteam name.
    1S2S
SubTeamName
Notes
BLFailureText
    0R3S4S5S6S7S8S10SSubTeamName
SubteamLookup
    1S2S
NoCache
    0R4S6S8S10S
SubTeamName
SubteamName
dspSubteamName
    Report Date:
.,$ //:
    0S0E
ReportDateEnter the date for this status report
ReportDate
ReportDate
dspReportDate
    Report Status:
FileThisStatusDoc
Active | 0Inactive | 1
    Report Subject:
size=50
SubjectEnter a subject for this status report
Subject
Subject
dspSubject
    Report Summary
.,$,  , :
height="200" width=600"
SummaryEnter a summary for the status reportz
Summary
    Details
.,$,  , :
height="200" width=600"
BodyEnter the details of this status report
    0S0E
    Submit
FileThisStatusDoc
    3S4S6S8S
Statusz
Status
        Active - Filed status of document
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
DateFiled
    Date the document was filed
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
%1|N>0
D*mJk
FilebyDate
$HTMLDocumentStyles
$HTMLCode
$INFO
$WINDOWTITLE
$AppHelpFormula
$$Script_O
$$ScriptName
OrigDate
ReportDate
DateFiled
$BODY
$V5ACTIONS
$ACTIONS
&Arial
NewTxt
New Team Status
    1S2S
Team Status Report for:
TeamRoomName"
    0R1S2S3S4S
NewTxt
    0R4S6S
(Help)
TeamRoomFStatus
    0R6S8S
Lotus Product
OBJECT
 Status
    PreHidden Fields:
OrigDatez
OrigDate
    Date originally composed
 ** Team Status **
Categoriesz
Categories
        "Team Status"
 ** Team Status Report **
DocType
DocType
        "Status Report"
Variable to translate
<The TeamRoom Setup for this TeamRoom has not yet been completed.>
    0R1S
NoTeamName
--No team name specified in the TeamRoom Setup--
    0R1S2S
End variable to translate
    0R1S
MissionLookup
    0RR1S2S
TeamNameLookup
NoCache
Mission
    0R1S2S5S6S8S10S12S14S
TeamNameLookupZ
TeamNameLookup
NoTeamName
TeamNameLookup
    0R7S9S10S11S13S15S
TeamRoomName
        Lookup to Mission Definition to get team name
FromAuthor of this document
        document's author
AbbreviateFrom
    used in the Newsletter profile searches
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
Team Overview
    0R1S2S2E
ActiveView
Active Documents--by Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
        used for web saving
Team
Status Report
    TeamRoom:
TeamRoomName
dspTeamRoomName
dspTeamRoomName
    0S0E
tmpFrom
tmpFrom
DateComposedDate this document was composed
DateComposed
timeComposedz
timeComposed
TRMainDocHeader.gif|TRMainDocHeader.gif
    Report Date:
.,$ //:
    0S0E
ReportDateEnter the date for this status report
ReportDate
ReportDate
dspReportDate
    Report Status:
FileThisStatusDoc
Active | 0Inactive | 1
FileThisStatusDoc
    Report Subject:
size=50
SubjectEnter a subject for this status report
Subject
Subject
dspSubject
    Summary
.,$,  , :
height="200" width=600"
SummaryEnter a summary for the status reportz
Summary
    Details
.,$,  , :
height="200" width=600"
BodyEnter the details of this status report
    0S0E
    Submit
FileThisStatusDoc
    3S4S6S8S
Statusz
Status
        Active - Filed status of document
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
DateFiled
    Date the document was filed
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
_Edit Document
Categori_zeK
Send Docu_ment
_Move To Folder...
_Remove From FolderK
_Forward
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
FilebyDate
$HTMLDocumentStyles
$INFO
$WINDOWTITLE
$AppHelpFormula
$$Script_O
$$ScriptName
OrigDate
ReportDate
DateFiled
$BODY
$V5ACTIONS
$ACTIONS
$UpdatedBy$ACLDigest$Signature$Name$DESIGNVERSION$Version$FORMULA$FORMULACLASS$COLLATION$TemplateModTime$TemplateServerName$TemplateFileNameIconBitmap$DefaultNavigator$DefaultWebNavigator$LaunchWebViewName$DefaultFrameset$TITLE$FlagsNoRefresh$Flags$Fonts$SourceSeqTime$SourceSequence$INFO$WebFlags$BODY$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$Comment$MachineName$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$HTMLDocumentStyles$$Script_O$$ScriptName$$FormAction6readersOriginalSubjectImmediateParentSubjectParentFormNewsLetterSubject$$ReturnExpireDateThreadSortThreadIndentAbbreviateFrom$Fields$ViewMapDataset$ViewMapLayout$NavImagemap$Index$VIEWFORMAT$V5ACTIONS$ACTIONS$ScriptLib$ScriptLib_O$PublicAccess$WINDOWTITLE$WEBQuerySave$AppHelpFormulaHTTP_REFERERArchiveThreadsSAVEOPTIONSRemovesubjectsMessageString$CIAOOwner$CIAOTime$LeftToDo$Collation1$Collation2DefaultDocType1DefaultDocType2DefaultDocType3DefaultDocType4$FormulaTV$CalendarFormat$Collation3$HTMLCode$WEBQueryOpen$Script$$FormScript$$$FormScript_OProfileThreadsSubjectHiddenDocumentFullPersonNameRemote_UserFrom$HLTitlePROTECTFROMARCHIVEPersonNameProfileAuthorsProfileCategoriesProfileEventsWebProfileStringsNewStringProfileStringsProfileThreadSubjects$SubFormsMainIDFormnameParentSubjectCategoriesBodyMainIDforRRViewList$Collation4TeamRoomNameRequestDateDateFiled$$DueDate_inp$DueDate_inp_OdspDueDateThreadIdPath_InfoReviewedByReviewStatusDueDateStatusCurrent_StatusStatusFilebyDateNeverFileDocTypeMilestonesSubteamInterestDueDateMtgDateMtgTimeDurationMtgLocationPeople1Subteam1PeopleReviewerLogStartDateTimeEndDateTimeTimeRangeReviewedByNotDoneEditors$SCRIPTOBJ_13EDITXWhenRequestDoneWhenCommitDoneWhenDonesortorderEventDateWebQUERY_STRING_DECODEDdeleteQueryStringEventSummaryEventDateEventDetailFileThisStatusDocwebNewDocWhoDepartmentLocationEmailPhoneJobTitleAlternateServerWebLookupSTNameSTMembersPosition$SourceURL$ClassName$SourceDbTitle$FrameSet$NoBackgroundOverride$HTMLBodyTagMissionCheckListCatsCurrentCatListFieldBlankOldCatCurrentCatSubteamListPListSListEListParticipantListEventListDateOrigDateSubTeamnameReportDateSummary$FILE$MissionEmbedOutlineSavedDocFlagSetMissionPageSetMissionEmbedOutlineTeamNameMissionTeamLeaderdbFacilitatorDefaultFilingInterval$SCRIPTOBJ_11$Background$SiteMapList$ImagesWide$ImagesHigh$ImageData$ImageNames$$ProfileAuthors$ProfileAuthors_O$$ProfileCategories$ProfileCategories_O$$ProfileEvents$ProfileEvents_O$$ProfileThreadSubjects$ProfileThreadSubjects_O$HLMLastServer$HLMLastChecked$NoPurge$HLTypeCategoryOpEventOp$QueryTypeAuthorMatchSubjectMatchSubjectOpCategoryMatchEventMatchThreadMatchAdvFormula$HLEnabled$HLMonitorType$HLFormula$HLSubscription$MissionPage$ImagesColorize$FrameInfo
blackcir2.GIF
blankcir.GIFs
disabled.gif
enabled.gif
disabled.gif
add team member.GIF'K
add team member.GIF'K
add sub team.GIF
add sub team.GIF
add team member.GIF
add sub team.GIF
n9>4Q
sub team details.GIF&
sub team details.GIF\!M
add team member.GIF
add team member.GIF
add sub team.GIF)(
add sub team.GIF;
sub team details.GIF
sub team details.GIF
help.gif
help.gif
help.gif
help.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
enabled.gif
disabled.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
reminders.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
mission_banner.GIFs\W
help.gif
help.gif
doc_filing.GIFh
enabled.gif
disabled.gif
auto_newsletters.gif"C
enabled.gif
disabled.gif
reminders.gif
enabled.gif
disabled.gif
participants_banner.GIFA
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
blankcir.GIF
help.gif
help.gif
help.gif
help.gif
help.gif
help.gif
TeamRoom SetupMissionCF
DefaultFilingIntervalDocTypeCategoriesdbFacilitatorTeamLeaderMissionTeamNameSetMissionEmbedOutlineSetMissionPageSavedDocFlagDefaultDocType4DefaultDocType3DefaultDocType2DefaultDocType1FromPROTECTFROMARCHIVESubject
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
DateFiled
DateFiled
DateFiled
FileThisStatusDoc
DateFiled
    3S4S5S6S7S8S10S12S
DateFiled
DateFiled
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
FileThisStatusDoc
FileThisStatusDoc
FileThisStatusDoc
Active | 0Inactive | 1
FileThisStatusDoc
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
(SetStatusInactive)
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
(WebEditInterestProfile)
This agent opens the correct Interest Profile for a web user.EH4fL3u
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
AbbreviateFrom
AbbreviateFrom
AbbreviateFrom
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
Convert My Newsletter Profile to a Subscription
Only available to R5 and above.E4
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
(ProfileThreads) |ProfileThreadsp
Subject
Subject
Subject$Conflict$REF
MainTopic
    L1S2S3S1
Subject
 SubjectSubject
Subject
Subject
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
($Subscription)DC
$HLSubscription$HLFormula$HLMonitorType$HLEnabledAdvFormulaProfileThreadSubjectsThreadMatchProfileEventsEventMatchProfileCategoriesCategoryMatchProfileStringsSubjectOpSubjectMatchProfileAuthorsAuthorMatch$QueryType$HLTitleEventOpCategoryOp$HLType$NoPurge$HLMLastChecked$HLMLastServer
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
WebDriveTableCUA3
$MissionPage
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
add to calendar.gif
AddToCalendar.gifAddToCalendar.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
add topic to N-letter prof.gif
AddTopic.gifAddTopic.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
cancel.gif
cancel.gifcancel.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
delete participant-subteam-event.gif
DeleteParticSubteamEvent.gifDeleteParticSubteamEvent.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
edit.gif
edit.gifedit.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
empty trash.gif
EmptyTrash.gifEmptyTrash.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
instructions.gif
instructions.gifinstructions.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
mark doc as expired.gif
MarkDocAsExpired.gifMarkDocAsExpired.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
mark private.gif
MarkPrivate.gifMarkPrivate.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
save.gif
save.gifsave.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
function delMissionItem()
var newWindow = window.open(filename + 'DeleteMissionItem?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=300,width=650')
function openParticipant()
var newWindow = window.open(filename + 'ParticipantProfile?openForm&w=1','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=550')
function openSubteam()
var newWindow = window.open(filename + 'Subteam?openForm&w=1','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=600')
function openSubteamDetails()
var newWindow = window.open(filename + 'SubteamDetails?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=600')
function openEvent()
var newWindow = window.open(filename + 'Event?openForm&w=1','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=550,width=625')
function helpMission()
var newWindow = window.open(filename + 'HelpMission?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=300,width=400')
function helpParticipant()
var newWindow = window.open(filename + 'HelpParticipant?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=550,width=625')
function helpCategory()
var newWindow = window.open(filename + 'HelpCategory?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=450,width=550')
function helpCommType()
var newWindow = window.open(filename + 'HelpCommType?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=400,width=400')
function helpEvent()
var newWindow = window.open(filename + 'HelpEvent?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=450,width=425')
function helpAdvOpt()
var newWindow = window.open(filename + 'HelpAdvOpt?openPage','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=400,width=575')
variables to translate
TeamRoom Setup for:
    0R1S2S
NoMissionTxt
The team name has not been defined in the TeamRoom Setup
    0R1S2S
end variables to translate
    0R1S
TRname
TeamName
NoMissionTxt
TeamName
    0RR1S2S5S6S8S10S
New TeamRoom Setup
TRname"
    0R4S6S7S8S
(WebMissionOpen)
(Help)
TeamRoomFMissionEdit
(Help)
TeamRoomFMissionRead
    0R4R8S10S12S15RS19S21S23S
&Arial
 Mission'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'variables to translate
Const TRMsg = "There is already a TeamRoom Setup document for this TeamRoom.  Select 'Update TeamRoom Setup', found under Leader/Facilitator Options in the left frame."
Const Title = "TeamRoom"
'end variables to translate
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim session As New notessession
    Dim db As notesdatabase
    Dim FilingAgent As notesagent
    Dim NewsletterAgent As notesagent
    Dim NewsletterEnabled As Variant
    Dim ReminderAgent As notesagent
    Dim DbProfile As NotesDocument
    Dim missionView As notesview
    Dim missionDoc As notesdocument
    Dim clientType As Variant
    Set db = session.currentdatabase
    Set DbProfile = db.GetProfileDocument( "TempVars")
    Set FilingAgent = db.getagent("AutoFileAgent")
    Set NewsletterAgent = db.getagent("Send Newsletters")
    Set ReminderAgent = db.getagent("SendReminder")
    If Not isnewdoc Then
        Goto noCheck
    End If
    Set missionView = db.getview("MissionLookup")
    Call missionView.refresh
    Set missionDoc = missionView.getdocumentbykey("Mission")
    clientType = dbProfile.clientType(0)
    If isnewdoc And Not missionDoc Is Nothing Then
        If clientType = "Notes" Then
            Msgbox TRMsg, 64, Title
            continue = False
            dbProfile.clientType = ""
        End If
    End If
noCheck:
    If FilingAgent.isenabled Then
        DbProfile.FilingEnabled = "1"
    Else
        DbProfile.FilingEnabled = "0"
    End If
    If NewsletterAgent.isenabled Then
        DbProfile.NewsletterEnabled = "1"
    Else
        DbProfile.NewsletterEnabled = "0"
    End If
    If ReminderAgent.isenabled Then
        DbProfile.ReminderEnabled = "1"
    Else
        DbProfile.ReminderEnabled = "0"
    End If
    dbProfile.clientType = ""
    Call dbprofile.save(False,False,True)
End Sub
Lotus Product
OBJECT
Hidden Fields:
variables to translate
MissionPageTxt
TeamRoom Setup for:
    0R1S2S
NoTeamNameTxt
[No Team Name Defined]
    0R1S2S
end variables to translate
    0R1S
TName
teamName
NoTeamNameTxt
TeamName
    0R1S2S5S6S8S10S
MissionPageTxt
TName
    0R1S2S
Subject
Subject
    Mission subject
.,$,  , :
PROTECTFROMARCHIVE
    don't allow these documents to be marked as "expired"
FromAuthor of this document
    the person who created the docu0ment
This $$Return field returns HTML as a result of the successful form submittal.
Variables to translate
    0R1S
PrevDoc
Open the page you just submitted
    0R1S2S
Another
Create Another:
    0R1S2S
AllView
Index of All Documents
    0R1S2S
MissionView
TeamRoom Overview
    0R1S2S2E
ActiveView
By Date
    0R1S2S
    0R1S2E2S
Subteam
Subteam Profile
    0R1S2S
Participant
Participant Profile
    0R1S2S
Event
Event Profile
    0R1S2S
MainTopic
TeamRoom topic
    0R1S2S
Mission
Mission Page
    0R1S2S
Response
Response
    0R1S2S
IntProfile
Interest Profile
    0R1S2S
ArcProfile
Archive Profile
    0R1S2S
TeamStatus
Team Status
    0R1S2S
SubteamStatus
Subteam Status
    0R1S2S
ThankPerson
Thank you,
    0R1S2S3S4S8S
ThankYou
ThankPerson
.  The following page has been successfully submitted:
    0R1S2S3S4S
End variables to translate
    0RR1S
Get the name of this database.
    0RR1S
    0R1S2S10S14S16S19S21S
webButtonPressed
webButtonPressed
    0R1S2S3S
FormName
MainTopic
MainTopic
Subteam
Subteam
ParticipantProfile
Participant
Event
Event
Response
Response
ResponseToResponse
response
Interest Profile
IntProfile
Archive
ArcProfile
Mission
Mission
Status
TeamStatus
SubteamStatus
SubteamStatus
    0R1S2S5S6S8S10R11S12S14S16R17S18S20S22R23S24S26S28R29S30S32S34R35S36S38S40R41S42S44S46R50S53S55R56S57S59S61R62S63S65S67R68S69S71S73S
Thanks
ThankYou"
Formname"
</h3><hr>
    0R1S2S3S4S5S6S7S8S
DNT Anchors to follow DNT
    0R1S
existingdoclink
<b><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</b></a><p>
    0RRR1S2S3S4S5S6S7S8S12S13S14S15S16S17S
LinkAllView
<a href=/
($All)?OpenView>"
AllView
</a></b>    "
    0R1S2S2E3S4S5S6S7S8S9S10S2E11S12S2E
LinkMissionView
<b><a href=/
/TeamOverview?OpenView>
MissionView
</a></b>    "
    0R1S2S3S4S5S6S8S9S
LinkActiveView
<b><a href=/
/ActiveDate?OpenView>
ActiveView"
</a></b><hr>"
    0R1S2S3S4S5S6S8S9S2E
LinkDoneButton
<FORM><INPUT TYPE="button" VALUE=
Done"
 onClick="window.close(self)"></FORM>
    0RRRR1S2S3S4S5S6S
LinkCRParticipant
  <b><font  size=2><a href=/
ParticipantProfile?Openform&w=1>"
Participant
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCRSubteam
  <b><font  size=2><a href=/
Subteam?Openform&w=1>
Subteam
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
LinkCREvent
  <b><font  size=2><a href=/
Event?Openform&w=1>
Event
</a></b>
    0R1S2S3S4S5S6S7S8S9S10S2E11S12S2E
<body bgcolor="
#ffffff
"+ >"
    0R1S2S3S4S5S6S
Assemble the HTML to be returned
    0RR1S
OkMsg
Thanks"
existingdoclink
LinkAllView
LinkMissionView
LinkActiveView"
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S
CancelMsg
Thanks"
LinkDoneButton"
Another
LinkCRParticipant
LinkCRSubteam
LinkCREvent
    0R1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Because the Part Profile, Subteam, and Event are created in a smaller window, we're using a different msg. when they're new docs.
    0RR1S
webNewDoc
CancelMsg
OKMsg
    0R3S4S6S9S
$$Return
Value should be translated
Discussion
DefaultDocType1
    Used in hidw-when formulas for morphing the form
Value should be translated
Action Item
DefaultDocType2
Used in hidw-when formulas for morphing the form
Value should be translated
Meeting
DefaultDocType3
Used in hidw-when formulas for morphing the form
Value should be translated
Reference
DefaultDocType4
Used in hidw-when formulas for morphing the form
SavedDocFlag
    gets set to "1" as soon as doc is saved.  Used in JSHeader
$MissionPage
$MissionPage
    1S2S3S
    0R1S
$MissionPage
Mission
    0R3S4S6S10S13S
$MissionPage
$MissionPage
    0R1S2S3S
$MissionPage
Mission
    0R4S8S11SSetMissionPage
    to drive the field-driven table, and keep the default at the first tab
$MissionEmbedOutline
$MissionEmbedOutline
    1S2S3S
    0R1S
$MissionEmbedOutline
    0R3S4S6S10S13S
$MissionEmbedOutline
$MissionEmbedOutline
    1S2S3S
    0R1S
$MissionEmbedOutline
    0R4S8S11SSetMissionEmbedOutline
    to drive the field-driven table, and keep the default at the first tab
Notes
WebDriveTable
    3S4S6S8S
TeamRoom Setup
(GIF89a
T6eYQ]9#)!
:2.MD@
KXT*U
w#GN@
`0<XEk
uM#Nl$c.s
{,g:7pF
Pm{],18{x]
$)!r4[
T@{D9
HzKbT
AeXd>'0I
HWvUv 0Wv
V@Txg
{xld6
hw `H]
0bX:}
HbK`R
rQ2=3B
Ks/"Y
<E'fU|
1-w`<
\ t/dh
+Jw*S
c'djkO
Dp,.I
k7^@T
p>..><2
(:B<8824\72
Q<2e9
TD$h`
*[qEJ
py.#D
YHs."
sy@iC
At@~k"
mNs5J
-m+    a
;Zg;0IF
oGP^~eH
:g    ck
9,;X;
NiC'KxC
> d*l
H.z!NX
A}Gz,
r40P)
LNAVzc
8+ +"
c    *    '
-R6 L$
K*Ahh5
ynccm
wn;6m
/6@0i
{$2@F
d#N~I
%]qc
!*p)7
lv    pc
Eu)-aP8<TT$D00HLL(LH4
PJD@<88
e`tph
-BTD@
L44XL
v'D+#
.e"lq
hXL|RI
Mjmts
lhWC`_
3T$%+i
'!!GwX
    Choose an element...
TeamRoomSetup
MissionEmbedOutline
MissionPage
MissionPage
Team Name & Purpose
t$.;t$
HelpMission
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
t$.;t$
    [web button below]
t$.;t$
helpMission()
instructions.gif|instructions.gif
    Name:
size=70
TeamName
    0S0E
TeamNameEnter the name of the team.
TeamName
    Purpose:
height="200" width=500"
MissionEnter the overall purpose of the TeamRoomz
Mission
Mission
Mission
Participants
HelpParticipant
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
t$.;t$
    [web button below]
t$.;t$
helpParticipant()
instructions.gif|instructions.gif
    Help
    Team Leader:x
TeamLeader
TeamLeader
TeamLeaderEnter the name of the person responsible for leading the team in delivering on its mission.
TeamLeader
    Team Facilitator:
dbFacilitator
dbFacilitator
dbFacilitatorEnter the name of the person responsible for electronic facilitation of this databasez
dbFacilitator
    Team Membersx
SectionDiv.gif|SectionDiv.gif
    Team Members
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim DbProfile As NotesDocument
'variables to translate
Const  title = "New Participant Profile"
Const msg = "Would you like to add another team member?"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Dim ask As Variant
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Call uiwork.DialogBox("ParticipantProfile", True, True, False, False, False, False, Title, doc, True ) 'display new created doc
    doc.form = "ParticipantProfile"
    If doc.who(0) = "" Then
        Exit Sub
    Else
        Call doc.Save(True,False)
    End If
    Call uidoc.refresh
    ask = Msgbox(msg, 36)
    Do While ask = "6"
        Set doc=New NotesDocument(db)
        Call uiwork.DialogBox("ParticipantProfile", True, True, False, False, False, False, Title, doc, True ) 'display new created doc
        doc.form = "ParticipantProfile"
        If doc.who(0) = "" Then
            Exit Sub
        Else
            Call doc.Save(True,False)
        End If
        Call uidoc.refresh
        ask = Msgbox(msg , 36)
    Loop
End Sub
Lotus Product
OBJECT
    Add team member
    [web button below]
openParticipant()
    Add team member
ParticipantLookup
nocache
PeopleLookup
    1S2S5S6S8S10S12S
LCPart
ParticipantLookup
    0R1S2S
LCLdr
TeamLeadera
    0R1S2S
LCFacil
dbFacilitator
    0R1S2S
LCLdr
LCPartt
LCFacil
LCPartt
    0R4S6S7S11S
    <Create a Participant Profile for both the Team Leader and Team Facilitator>
NoParticipantMessage
No team members have been specified for this TeamRoom.
    1S2S
ParticipantLookup
nocache
PeopleLookup
    0R1S2S5S6S8S10S12S
ParticipantLookup
ParticipantLookup
NoParticipantMessage
ParticipantLookup
    0RR6S7S8S9S11S13SdspTeamMembersz
dspTeamMembers
    Subteamsx
SectionDiv.gif|SectionDiv.gif
    Subteams
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim DbProfile As NotesDocument
'variables to translate
Const  title = "New Subteam"
Const msg = "Would you like to add another subteam?"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Dim view As notesview
    Dim viewdoc As notesdocument
    Dim ask As Variant
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set view = db.getview("PeopleLookup")
    Set viewdoc = view.getfirstdocument
    Set doc=New NotesDocument(db)
    Call uiwork.DialogBox("Subteam", True, True, False, False, False, False, Title, doc, True) 'display new created doc
    doc.form = "Subteam"
    If doc.STName(0) = "" Or doc.STMembers(0) = ""  Or viewdoc Is Nothing Then
        Exit Sub
    Else
        Call doc.Save(True,False)
    End If
    Call uidoc.refresh
    ask = Msgbox(msg, 36)
    Do While ask = "6"
        Set doc=New NotesDocument(db)
        Call uiwork.DialogBox("Subteam", True, True, False, False, False, False, Title, doc, True) 'display new created doc
        doc.form = "Subteam"
        If doc.STName(0) = "" Or doc.STMembers(0) = ""  Or viewdoc Is Nothing Then
            Exit Sub
        Else
            Call doc.Save(True,False)
        End If
        Call uidoc.refresh
        ask = Msgbox(msg , 36)
    Loop
End Sub
Lotus Product
OBJECT
    Add subteam
    [web button below]
openSubteam()
    Add subteam
SubteamLookup
nocache
SubteamLookup
    1S2S5S6S8S10S12S
SubteamLookup
SubteamLookup
    0R4S5S6S7S
    [below are available when reading]
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'variable to translate
Const Title = "Subteam Details"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Call uiwork.DialogBox("SubteamDetails", True, True, True, False, False, False, Title, doc, True, True ) 'display new created doc
    doc.form = "SubteamDetails"
End Sub
Lotus Product
    Subteam details
    [web button below]
openSubteamDetails()
    Subteam details
    [below are available when editing]
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'variable to translate
Const Title = "Subteam Details"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Call uiwork.DialogBox("SubteamDetails", True, True, True, False, False, False, Title, doc, True, True ) 'display new created doc
    doc.form = "SubteamDetails"
End Sub
Lotus Product
    Subteam details
    [web button below]
openSubteamDetails()
    Subteam details
(0-;!
D0-;D0
NoSubteamMessage
No subteams have been specified for this TeamRoom.
    1S2S
SubteamLookup
nocache
SubteamLookup
    0R1S2S5S6S8S10S12S
SubteamLookup
SubteamLookup
NoSubteamMessage
SubteamLookup
    0RR6S7S8S9S11S13SdspSubteamz
dspSubteam
(0-;!
Participants
Participants
Categories
HelpCategory
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
    [web button below]
helpCategory()
instructions.gif|instructions.gif
    Help
    Document Categories:
    Enter the categories that your team will use in the documents they will create.  Separate entries with a carriage return.
rows=4
Categories^
    0S0E
Categories
The backslash character (\) is not allowed in the Category name.{
    2R6S9S
CategoriesEnter the logical groupings of work.z
Categories
Categories
    1S2S
    No team categories have been defined for this TeamRoom.
Categories
Categories
Document Types
t$.;t$
HelpCommType
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
    [web button below]
t$.;t$
helpCommType()
instructions.gif|instructions.gif
    Help
    Document Types:
    Enter the Document Types that your team will use.  Four default Document Types are supplied, but you can add as many as you need.  Separate entries with a carriage return.  The first item in the list will be the default document type for the Main Document form.
rows=4
DefaultDocType1
DefaultDocType2
DefaultDocType3
DefaultDocType4
    1S2S3S4S5S6S
DocType
DefaultDocType1
DocType
    3S4S6S8S
DocTypeEnter the types of communication that will be used by the team.z
DocType
CommTypes
CommTypes
Milestones/Events
HelpEvent
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
    [web button below]
helpEvent()
instructions.gif|instructions.gif
    Help
    Team Milestones/Events:
Variables to translate
NoEventMessage
<No milestones/events have been specified for this TeamRoom.>
    0R1S2S
End variables to translate
    0R1S
EventLookup
nocache
(Event Lookup)
    0RR1S2S5S6S8S10S12S
EventLookup
EventLookup
NoEventMessage
EventLookup
    0R6S7S8S9S11S13S
DspEventsSYNTAX: Event description - MM/DD/YY
DspEvents
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim dbprofile As notesdocument
'variables to translate
Const  title = "New Event/Milestone"
Const msg = "Would you like to add another milestone/event?"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Dim ask As Variant
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Call uiwork.DialogBox("Event", True,True, False, False, False, False, Title, doc, True) 'display new created doc
    doc.form = "Event"
    If doc.eventdate(0) = "" Or doc.eventsummary(0) = "" Then
        Exit Sub
    Else
        Call doc.Save(True,False)
    End If
    Call uidoc.refresh
    ask = Msgbox(msg, 36)
    Do While ask = "6"
        Set doc=New NotesDocument(db)
        Call uiwork.DialogBox("Event", True,True, False, False, False, False, Title, doc, True) 'display new created doc
        doc.form = "Event"
        If doc.eventdate(0) = "" Or doc.eventsummary(0) = "" Then
            Exit Sub
        Else
            Call doc.Save(True,False)
        End If
        Call uidoc.refresh
        ask = Msgbox(msg, 36)
    Loop
End Sub
Lotus Product
    Add milestone/event
    [web button below]
openEvent()
    Add milestone/event
Events
Events
Advanced Options
HelpAdvOpt
    4S5S6S7S8S9S10S11S12S
Helpv
instructions.gif|instructions.gif
    [web button below]
helpAdvOpt()
instructions.gif|instructions.gif
    Help
    Note:  Agents must be enabled/disabled via the Notes client
    Marking Documents Inactivex
SectionDiv.gif|SectionDiv.gif
    Marking Documents Inactive
    Agent Status:
TempVars
FilingEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
     Enabled
TempVars
FilingEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
PN+DV
hBDS!X
     Disabled
FilingEnabled
    0R1S2S3S
TempVars
FilingEnabled
TempVars
SetThisAgent
filing
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Enable Agent
FilingEnabled
    0R1S2S3S
TempVars
FilingEnabled
TempVars
SetThisAgent
filing
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Disable Agent
    Default interval for marking documents inactive:
1 month
DefaultFilingIntervalChoose the default time interval that new documents are kept active.
Keep Active Indefinitely | Never1 week | 1 week2 weeks | 2 weeks3 weeks | 3 weeks1 month | 1 month2 months | 2 months3 months | 3 months
DefaultFilingInterval
    Newsletters
SectionDiv.gif|SectionDiv.gif
    Newsletters
    Agent Status:
TempVars
NewsletterEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
    Enabled
TempVars
NewsletterEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
PN+DV
hBDS!X
    Disabled
NewsletterEnabled
    0R1S2S3S
TempVars
NewsletterEnabled
TempVars
SetThisAgent
newsletter
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Enable Newsletters
NewsletterEnabled
    0R1S2S3S
TempVars
NewsletterEnabled
TempVars
SetThisAgent
newsletter
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Disable Newsletters
    Reminders
SectionDiv.gif|SectionDiv.gif
    Reminders
    Agent Status:
TempVars
ReminderEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
    Enabled
TempVars
ReminderEnabled
    1S2S6S
    0R1S2S
GIF89a
<a>7`^///""
PN+DV
hBDS!X
    Disabled
ReminderEnabled
    0R1S2S3S
TempVars
ReminderEnabled
TempVars
SetThisAgent
reminder
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Enable Reminders
ReminderEnabled
    1S2S3S
TempVars
ReminderEnabled
TempVars
SetThisAgent
reminder
(EnableDisableAgents)
    0R2R6S8S11R15S17S20R24S27R
    Disable Reminders
AdvOpt
AdvOpt
$MissionPage
Participants
$MissionPage
Events
    1S2S3S4S5S6S
web only
    If you have added/deleted a Participant, Subteam, or Event, click here if you wish to refresh the lists in the TeamRoom Setup
_Edit Document
Categori_zeK
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Delete Participant, Subteam or Event'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const Title = "Delete Participant, Subteam or Event"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Dim dbprofile As notesdocument
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Set dbprofile = db.getprofiledocument("TempVars")
    dbprofile.ClientType = "Notes"
    Call uiwork.DialogBox("DeleteMissionItem", True, True, True, True, True, False, Title, doc, True, True) 'display new created doc
    doc.form = "DeleteMissionItem"
    Call uidoc.refresh
End Sub
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
_Edit Document
Categori_zeK
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
ForwardK
    0S0E
Forward as BookmarkK.
Bookmark
    4S6S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Delete Participant, Subteam or Event
DeleteParticSubteamEvent.gif|DeleteParticSubteamEvent.gif?
delMissionItem()
Delete Participant, Subteam or Event'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const Title = "Delete Participant, Subteam or Event"
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim session As New notessession
    Dim db As notesdatabase
    Dim doc As notesdocument
    Dim dbprofile As notesdocument
    Set uidoc = uiwork.currentdocument
    Set db = session.currentdatabase
    Set doc=New NotesDocument(db)
    Set dbprofile = db.getprofiledocument("TempVars")
    dbprofile.ClientType = "Notes"
    Call uiwork.DialogBox("DeleteMissionItem", True, True, True, True, True, False, Title, doc, True, True) 'display new created doc
    doc.form = "DeleteMissionItem"
    Call uidoc.refresh
End Sub
DeleteParticSubteamEvent.gif|DeleteParticSubteamEvent.gif?
Cancel
Notes only
cannot issue the SaveOptions command below on the web
    0R1S
SaveOptions
    0R1S2S3S
cancel.gif|cancel.gif?
Cancel
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
/* web new doc
history.back()
Cancel
web only; saved docs
hidden if 'NewDoc' button was clicked for Participant, Event, or Subteam
    0R1S
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
cancel.gif|cancel.gif?
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$FILE
blackcir2.GIF
$FILE
blankcir.GIF
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
add team member.GIF
$FILE
add team member.GIF
$FILE
add sub team.GIF
$FILE
add sub team.GIF
$FILE
add team member.GIF
$FILE
add sub team.GIF
$FILE
sub team details.GIF
$FILE
sub team details.GIF
$FILE
add team member.GIF
$FILE
add team member.GIF
$FILE
add sub team.GIF
$FILE
add sub team.GIF
$FILE
sub team details.GIF
$FILE
sub team details.GIF
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
reminders.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
mission_banner.GIF
$FILE
help.gif
$FILE
help.gif
$FILE
doc_filing.GIF
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
auto_newsletters.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
reminders.gif
$FILE
enabled.gif
$FILE
disabled.gif
$FILE
participants_banner.GIF
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
blankcir.GIF
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$FILE
help.gif
$HTMLDocumentStyles
$MissionEmbedOutline
$HTMLCode
$INFO
$WINDOWTITLE
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$V5ACTIONS
$SCRIPTOBJ_11
&Arial
Lotus Product
 DbTitlePage'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    continue = False
End Sub
Lotus Product
TeamRoom
TeamRoom
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
TRoutline.gif
function mapCat()
var pathname = window.location.pathname;
filename = pathname.substring(0,(pathname.lastIndexOf("nsf")+4))
window.open(filename + 'MapCategories?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=500,width=650')
&Arial
Lotus Product
 OutlineDisplay'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    continue = False
End Sub
Lotus Product
access
    1S2S
hide when access is less than Editor
    0R1S
access
    0R4S6S7S
    Leader/Facilitator Options
    Leader/Facilitator Options
(MissionPageNew-Edit)
    Update TeamRoom Setup
Status
    Create Team Status
SubteamStatus
    Create Subteam Status
filename
    1S2S6S
TempVars
ClientType
Notes
SendReminder
    0R6S8S11R15S
    Send Reminders Now
(NotesMapAgent)
    Map Categories
filename
    1S2S6S
filename
/Web-EditMission?OpenAgent"
    Update TeamRoom Setup
target="NotesView"
NotesView
Mission
    7R11S
right
    0S0E
Mission
    0R4S
NotesView
    0S0E
Status
    0R4S
    Create Team Status
NotesView
    0S0E
SubteamStatus
    0R4S
    Create Subteam Status
filename
    1S2S6S
TempVars
ClientType
filename
/SendReminder?OpenAgent
    0R2R6S8S11R
    Send Reminders Now
mapCat()
    Map Categories
TeamRoomOutline
TROutlineDisplayNotesView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
^}K0d
$HTMLDocumentStyles
$Background
$HTMLCode
$NoBackgroundOverride
$INFO
$WINDOWTITLE
$WebFlags
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
Team Name & Purpose
$MissionPage
Mission
    0R3S4S6S11S
$MissionPage
Mission
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Team Name & Purpose
Participants
$MissionPage
Participants
    0R3S4S6S11S
$MissionPage
Participants
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Participants
Categories
$MissionPage
Categories
    0R3S4S6S11S
$MissionPage
Categories
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Categories
Document Types
$MissionPage
CommTypes
    0R3S4S6S11S
$MissionPage
CommTypes
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Document Types
Milestones/Events
$MissionPage
Events
    0R3S4S6S11S
$MissionPage
Events
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Milestones/Events
Advanced Options
$MissionPage
AdvOpt
    0R3S4S6S11S
$MissionPage
AdvOpt
    0R1S2S3S
$MissionEmbedOutline
    0R1S2S3S
Advanced Options
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Comment
$SiteMapList
Team Documents
By Date
ActiveDate
blank.gif|blank.gif?
NotesView
By Date
By Category
By Category|ActiveCategory
blank.gif|blank.gif?
NotesView
By Category
By Milestone/Event
By Event|ActiveEvent
blank.gif|blank.gif?
NotesView
By Milestone/Event
By Subteam
By Subteam | ActiveBySubteam
blank.gif|blank.gif?
NotesView
By Subteam
Chronological
All Chronological?
blank.gif|blank.gif?
NotesView
Chronological
Open by Due Date
Open By Due Date
blank.gif|blank.gif?
NotesView
Open by Due Date
Open by Assignment
Open by Assignment |OpenAssignnment?
blank.gif|blank.gif?
NotesView
Open by Assignment
Personal Documents
blank.gif?
Personal Documents
Documents Assigned to Me
Personal Workspace: Assigned to me|PersAssignedToMe?
blank.gif|blank.gif?
NotesView
Open by Assignment
Documents I Created
Personal Workspace: Documents I Created|PersDocsICreated
blank.gif|blank.gif?
NotesView
Documents I Created
My Newsletter Profile
abrName
    1S2S6S
abrNameReplSpace
abrName
    0R1S2S6S8S
UName
abrNameReplSpace
    0R1S2S6S8S
TempVars
ProfileKey
UName
    0R4S6S
Notes
(EditInterestProfile)
/WebEditInterestProfile?OpenAgent
    0RR3S4S6R10S13R23S
NotesView
My Newsletter Profile
Project Information
blank.gif?
Project Information
TeamRoom Overview
TeamRoom Setup & Participants|TeamOverview
blank.gif|blank.gif?
NotesView
TeamRoom Overview
Active Team/Subteam Status
Team/Subteam Status| StatusLookup?
blank.gif|blank.gif?
NotesView
Active Team/Subteam Status
Calendar
Calendar
blank.gif|blank.gif?
NotesView
Calendar
Index of All Documents
($All)
blank.gif|blank.gif?
NotesView
Index of All Documents
Inactive Documents
Filed?
blank.gif|blank.gif?
NotesView
Inactive Documents
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SiteMapList
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim tmpPath As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
    Dim view As notesview
    Dim missionDoc As notesdocument
    Dim getUNID As Variant
    Dim dbpath As Variant
    On Error Goto errorhere
    Dim dbug As New noteslog("WebEditMission")
'logging is for debug purposes
    Set dbug = New NotesLog("WebEditMission")
'to turn off the debug log, set this to False
    dbug.LogActions = True
    dbug.OpenAgentLog
    dbug.logaction("Agent running")
    Set db = s.currentdatabase
    Set view = db.getview("MissionLookup")
    Set missionDoc = view.getdocumentbykey("Mission")
    dbpath = getdbpath
    dbug.logaction("got to here")
    If missionDoc Is Nothing Then
        Print "[/"+dbpath+"/"+"Mission?OpenForm]"
    Else
        getUNID = missionDoc.universalid
        Print "[/"+dbpath+"/MissionLookup/"+Lcase(getUNID)+"?EditDocument]"
    End If
ErrorHere:
    dbug.logaction(Err & " - " & Error)
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim DbProfile As NotesDocument
    Dim missionView As notesview
    Dim missionDoc As notesdocument
    Dim agent As notesagent
    Dim clientType As Variant
    Dim dbpath As String
    Set db = session.currentdatabase
    Set DbProfile = db.GetProfileDocument( "TempVars")
    dbpath = getdbpath
    Set missionView = db.getview("MissionLookup")
    Call missionView.refresh
    Set missionDoc = missionView.getdocumentbykey("Mission")
    clientType = dbProfile.clientType(0)
    If missionDoc Is Nothing Then
        Set uidoc=uiwork.ComposeDocument(, , "Mission")
    Elseif Not missionDoc Is Nothing  Then
        Set uidoc=uiwork.EditDocument(True,missionDoc, False)
    End If
    dbProfile.clientType = ""
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Lotus Product
ResponseBanner
Response
formname
Response
    1S2S
    to Main Document
formname
Response
    1S2S
    to Response
    0S0E
tmpFrom
tmpFrom
DateComposedDate this document was composed
DateComposed
timeComposedz
timeComposed
Readers
    1S2S
readers
Private
Private
Private
ExpireDate
    1S2S
expiredate
Expired on
expiredateK
Expirez
Expire
TRMainDocHeader.gif|TRMainDocHeader.gif
    Subject:
size=50
Subject
    0S0E
SubjectEnter a short description of this response.z
Subject
Subject
dspSubject
    Response to:
    4S6S
DoclinkParent
formname
Response
OriginalSubject
Subject
    3S4S6S8S
ParentSubject
ParentSubject
    Category:
Categories
CategoriesPress ENTER for list of keywords or to add a new keyword.
Categories
    Attach a file:
    1S2S
    Attached files:
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
erf':
$INFO
$$Script_O
$$ScriptName
$BODY
Started running agent 'EditInterestProfile' on 01/07/99 12:51:52 PM
Ran LotusScript code
Done running agent 'EditInterestProfile' on 01/07/99 12:51:53 PM
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim DbProfile As NotesDocument
    Dim authorView As notesview
    Dim authorDoc As notesdocument
    Dim dbpath As String
    Dim key As Variant
    Dim getunid As Variant
    Set db = session.currentdatabase
    Set DbProfile = db.GetProfileDocument( "TempVars")
    key = dbProfile.ProfileKey
    dbpath = getdbpath
    Set authorView = db.getview("LookupInterestProfiles")
    Call authorView.refresh
    Set authorDoc = authorView.getdocumentbykey(key(0))
    If authorDoc Is Nothing  Then
        Set uidoc=uiwork.ComposeDocument(, , "Interest Profile")
    Elseif Not authorDoc Is Nothing Then
        Set uidoc=uiwork.EditDocument(True,authorDoc, False)
    End If
    dbProfile.ProfileKey =  ""
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
^"nL;{
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
Forward as BookmarkK.
Bookmark
    4S6S
_Move to Folder...
_Remove from Folder...
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
Forward as BookmarkK.
Bookmark
    4S6S
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
t+gp=
$ImagesWide
$ImagesHigh
$ImageData
$ImageNames
$Comment
$TITLE
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
d[e0=$
z'^Ij
$INFO
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
;<=J
$INFO
DateFiled
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const Msg1 = "You must first select a document.  Note:  highlight bar cannot be on a category."
Const msg2 = "The TeamRoom Setup cannot be marked as inactive."
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uiview As notesuiview
    Dim uidoc As notesuidocument
    Dim db As notesdatabase
    Dim collection As notesdocumentcollection
    Dim doc As notesdocument
    Dim formval As Variant
    Dim i As Variant
    Dim view As notesview
    Set db = session.CurrentDatabase
    Set uiview = uiwork.currentview
    Set view = db.getview("TeamOverview")
    Set collection = db.UnprocessedDocuments
    If collection.count < 1 Then
        Msgbox Msg1, 64
    End If
    For i = 1 To collection.Count
        Set doc = collection.GetNthDocument( i )
        formval = doc.getitemvalue("form")
        If formval(0) = "Mission" Then
            Msgbox msg2, 64
        Else
            Call doc.replaceitemvalue("FileThisStatusDoc", "1")
            Call doc.replaceitemvalue("Status", "0")
            Call doc.replaceitemvalue("DateFiled", Now)
            Call doc.save(True, False, True)
        End If
    Next
'    Call view.refresh
End Sub
Lotus Product
^,    6p
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim DocWasSaved As Integer
Dim ProfileKey(1) As String
Dim tmpList As Variant
Dim webuser As notesname
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim item As notesitem
    Dim key As String
    InstantiateObjects
    dbpath = getdbpath
     'Find the authenticated web user name
    Set webuser = New notesname(note.user(0))
    Set view = db.GetView("($Profiles)")
     'Create the appropriate key for finding the correct Interest profile
    key = "Interest Profile" & webuser.common
    Set profile = view.GetDocumentByKey(key)
    If profile Is Nothing Then
          'If an Interest Profile hasn't been created already, display it to the user
        Print "[/"+dbpath+"/"+"Interest+Profile?OpenForm]"
        Exit Sub
    End If
     'If an interest profile has been found for the user, present it to them
    Print "[/"+dbpath+"/($All)/"+Lcase(profile.universalid)+"?EditDocument]"
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
zmQ^S1+
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
x?    ?0
$HTMLDocumentStyles
$INFO
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Convert Interest Profile:
'Variables to translate
Const msg1 = "You do not currently have an Interest Profile.  Select Create--Subscription to create a subscription for this discussion database."
Const title1 = "Document not found"
Const msg2 = "The subscription has been successfully created!  Future subscriptions to this database can be created by selecting Create-Subscription."
Const title2 = "Successful"
Const error46 = "This feature is only available to Notes clients which are Release 5.0 and above."
Const title3 = "Alert"
Const msg4 = "Enter a title for your subscription: "
Const title4 = "Converting Interest Profile to Subscription"
'END variables to translate
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim db As notesdatabase
    Dim interestView As notesview
    Dim interestDoc As notesdocument
    Dim dbTitle As String
    Dim repID As String
    Dim key As String
    Dim user As Variant
    Dim item As Variant
    Dim auth As Variant
    Dim subj As Variant
    Dim cat As Variant
    Dim ev As Variant
    Dim thr As Variant
    Dim title As String
    Dim SubscriptionDoc As notesdocument
    Dim headDB As New NotesDatabase("", "headline.nsf")
    If session.notesbuildversion < 160 Then
        Msgbox error46, 16, title3          'user is running release prior to R5.0
    End If
    Set user = New notesname(session.username)
    Set db = session.currentdatabase
    repID = db.replicaID
    dbTitle = db.title
    key =  "Interest Profile" + user.common   'DNT
    Set interestView = db.getview("($Profiles)")
    Call interestView.refresh
    Set interestDoc = interestView.getdocumentbykey(key)
    If interestDoc Is Nothing Then        'user doesn't have an interest profile
        Msgbox msg1, 48, title1
        Exit Sub
    Elseif Not interestDoc Is Nothing Then
        Set item = interestDoc.replaceitemvalue("Form", "$Subscription")
        auth = interestDoc.getitemvalue("ProfileAuthors")
        subj = interestDoc.getitemvalue("ProfileStrings")
        cat = interestDoc.getitemvalue("ProfileCategories")
        ev = interestDoc.getitemvalue("ProfileEvents")
        thr = interestDoc.getitemvalue("ProfileThreadSubjects")
        If auth(0) <> "" Then
            Set item = interestdoc.replaceitemvalue("AuthorMatch", "1")
        End If
        If subj(0) <> "" Then
            Set item = interestdoc.replaceitemvalue("SubjectMatch", "1")
        End If
        If cat(0) <> "" Then
            Set item = interestdoc.replaceitemvalue("CategoryMatch", "1")
        End If
        If ev(0) <> "" Then
            Set item = interestdoc.replaceitemvalue("EventMatch", "1")
        End If
        If thr(0) <> "" Then
            Set item = interestdoc.replaceitemvalue("ThreadMatch", "1")
        End If
        title = Inputbox(msg4,  title4, dbTitle)
        Set item = interestdoc.replaceitemvalue("$HLTitle", title)
        Set item = interestdoc.replaceitemvalue("$HLMonitorDB", Left(repID, 8) + ":" + Right(repID,8))
        Call interestDoc.computewithform(0,0)
        Call interestDoc.save(True, False)
        Set SubscriptionDoc = interestDoc.CopyToDatabase(headDB)
        InterestDoc.remove(True)
        Msgbox msg2, 64, title2              'successful subscription creation
    End If
End Sub
Lotus Product
OBJECT
}D    }`    #
}h    }`    #
    }`    #
    }`    #
    }`    #
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Main Topic,
MainTopic
New ResponseR
for views in Notes only
Response
New Response to ResponseN
Notes only
ResponseToResponse
Author Profile
abrName
    1S2S6S
abrNameReplSpace
abrName
    0R1S2S6S8S
UName
abrNameReplSpace
    0R1S2S6S8S
TempVars
ProfileKey
UName
    0R4S6S
Notes
(AuthorProfileNew-Edit)
/WebAuthorProfileNew-Edit?OpenAgent
    0RR3S4S6R10S13R23S
Anonymous
    1S2S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
edit.gif|edit.gif?
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
save.gif|save.gif?
Search@
Web only; in views
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Main Topic,
MainTopic
New ResponseR
for views in Notes only
Response
New Response to ResponseN
Notes only
ResponseToResponse
Author Profile
abrName
    1S2S6S
abrNameReplSpace
abrName
    0R1S2S6S8S
UName
abrNameReplSpace
    0R1S2S6S8S
TempVars
ProfileKey
UName
    0R4S6S
Notes
(AuthorProfileNew-Edit)
/WebAuthorProfileNew-Edit?OpenAgent
    0RR3S4S6R10S13R23S
Anonymous
    1S2S
Edit Document
    0S0E
Hhide if user has less than editor access and is not the author of the document
Filename
    0R1S2S
Level
Filename
    0R1S2S
Getlevel
Level
    0R1S2S8S
abUser
    0R1S2S6S
abAuthor
    0R1S2S6S
GetLevel
abUser
abAuthor
abUsera
ReviewedByNotDone
    0R1S2S3S4S6S7S8S9S17S
Save & Close
Can't use @isvalid on the web
Notes
    0R2R3S4S6R13S19R21R28S34S
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Search@
Web only; in views
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
TeamRoom Subscription
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
%INCLUDE "lsconst.lss"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const COMPILE_SUCCESS_TITLE = "Compiled Successfully"
Const COMPILE_SUCCESS_BODY = "There are no syntax errors, the formula compiled successfully."
Const COMPILE_FAILURE_TITLE = "Syntax Error"
Const COMPILE_FAILURE_BODY = "There is a least one syntax error in the formula.  It did not compile."
Const COMPILE_FAILURE_SAVE_BODY = "There is a least one syntax error in the formula.  This document could not be saved."
Lotus Product
OBJECT
@i[    hi[
($Subscription)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim note As NotesDocument
    Dim item As NotesItem
    Source.Refresh
    Set note = Source.document
    Set item = note.getFirstItem( "$HLFormula")
    If note.getItemValue( "$QueryType")(0) = "adv" Then
        If item.type <> FORMULA Then
            Messagebox COMPILE_FAILURE_SAVE_BODY,  MB_ICONSTOP, COMPILE_FAILURE_TITLE
            Source.goToField "AdvFormula"
            Continue = False
        End If
    End If
    Set item = note.replaceitemvalue("$MainTable", "basics")
End Sub
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Dim w As New notesuiworkspace
    Set uidoc = w.currentdocument
    uidoc.refresh
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Dim w As New notesuiworkspace
    Set uidoc = w.currentdocument
    uidoc.refresh
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Dim w As New notesuiworkspace
    Set uidoc = w.currentdocument
    uidoc.refresh
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Dim w As New notesuiworkspace
    Set uidoc = w.currentdocument
    uidoc.refresh
End Sub
Lotus Product
$HLMLastServer
.,$ //:
$HLMLastChecked
.,$,  , :
$NoPurge
.,$,  , :
$HLType
CategoryOp
EventOp
TeamRoom
Subscription
SubscriptionFormOutline
Collage.GIF
MainTable
MainTable
    Basics
swish.gif
    Subscription name:
Enter a subscription name
$HLTitle
    Retrieval Choices
swish.gif
    Retrieve these new or modified documents:
$QueryType
All | allThose matching the selected criteria | selThose matching the selection formula (advanced) | adv
QueryType
QueryType
    Retreive documents where:
AuthorMatch
Authors|1
AuthorMatch
    1S2S
ProfileAuthors
AuthorValue
AuthorValue
    1S2S3S5S7S
GIF89a
    Enter the fully qualified name. (ex. "John Doe/Acme/Sales/US")
    Enter words or word fragments. (ex. "fred" would match authors named "fred" or "frederick")
SubjectMatch
Subject|1
SubjectMatch
    1S2S
SubjectOp
has any of these words|contbegins with|beg
ProfileStrings
    Enter words or word fragments.  (ex. "pay' would match both "pay" and "paycheck")
CategoryMatch
Category|1
CategoryMatch
    1S2S
ProfileCategories
nocache
$HLMonitorDB
By Category
    8S10S12S
    Choose one or more categories from the list.
EventMatch
Milestone/Event|1
EventMatch
    1S2S
ProfileEvents
$HLMonitorDb
    1S2S
nocache
(Event Lookup)
    0R3S4S6S8S10S
    Choose one or more milestones/events from the list.
ThreadMatch
Thread Activity|1
ThreadMatch
    1S2S
ProfileThreadSubjects
nocache
$HLMonitorDB
ProfileThreads
    6S8S10S
    Select the thread(s) you would like to follow.
    Selection formula:
SELECT @All
$QueryType
Select @All
$QueryType
AdvFormula
Continue
    2S3S4S6S8S11S12S13S15S17S20S
tAuthStr
ProfileAuthorsa
    0RR1S3S4S6S10S16S18S19S
tAuth
AuthorMatch
@contains(@lowercase(from);
tAuthStr"
    0R1S2S4S5S6S8S9S10S11S12S14S
tSubjStr
ProfileStringsa
    0RR1S2S3S4S6S11S13S14S
tSubj
SubjectMatch
SubjectOp
!cont
SubjectOp
!cont
@Contains(@LowerCase(Subject);
tSubjStr"
SubjectOp
@Begins(
@Ends(
Subject;
tSubjStr"
    0R1S2S4S5S6S8R10S11S12S14S15S16S18S21S22S23S24S25S27S2E28S30S31S33R35S36S37S38S39S41S43S44S45S46S47S48S51S
tCatStr
ProfileCategories
    0RR1S2S3S4S6S11S13S14S
CategoryMatch
@Contains(@LowerCase(Categories);
tCatStr
    0R1S2S5S6S8S2E9S11S12S14S
tEvStr
ProfileEvents
    0RR1S2S3S4S6S11S13S14S
EventMatch
@Contains(@LowerCase(Milestones);
tEvStr"
    0R1S2S5S6S8S2E9S11S12S14S
tThrMStr
ProfileThreadSubjects
    0RR1S2S3S4S6S11S13S14S
tThrM
ThreadMatch
@LowerCase(Subject) =
tThrMStr"
    0R1S2S5S6S8S2E9S12S
tThrRStr
ProfileThreadSubjects
    0RR1S2S3S4S6S11S13S14S
tThrR
ThreadMatch
@LowerCase(OriginalSubject) =
tThrRStr"
    0R1S2S5S6S8S2E9S11S12S
tQuery
tAuth
tSubj
tThrM
tThrR
AndOr
    0RR1S2S4S6S7S8S9S10S11S12S13S14S15S16S19R21S22S23S24S25S27S
SELECT
tQuery
tQuery
    0R1S2S4S6S8S9S11S13S
AdvFormula
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim doc As NotesUIDocument
    Dim note As NotesDocument
    Dim item As NotesItem
    Set doc = ws.currentDocument
    doc.refresh
    Set note = doc.document
    Set item = note.getFirstItem( "$HLFormula")
    If item.type = FORMULA Then
        Messagebox COMPILE_SUCCESS_BODY,  MB_ICONINFORMATION, COMPILE_SUCCESS_TITLE
    Else
        Messagebox COMPILE_FAILURE_BODY,  MB_ICONSTOP, COMPILE_FAILURE_TITLE
    End If
End Sub
Lotus Product
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Check Syntax
    Status
swish.gif
    Last checked time:
.,$ //:
$HLMLastChecked
$HLMLastChecked
    2S3S4S6S8S
Disp$HLMLastChecked
    Last checked server:
$HLMLastChecked
$HLMLastServer
Local
$HLMLastServer
    2S3S4S6S8S9S10S12S14S18S
Disp$HLMLastServer
$HLMError
    1S2S
    Status message:
$HLMError
    1S2S
$HLMError
Disp$HLMError
    This subscription is:
$HLEnabled
Enabled|1Temporarily disabled|0
basics
basics
    Additional Information
swish.gif
    Monitor type:
$HLMonitorType
Formula|1
    Replica ID:
$HLMonitorDBh
$HLMonitorDB
Unavailable
$HLMonitorDB_Display
    Formula:
AdvFormula
$HLFormula
    Marker:
hidden field needed for headlines
    0R1S
Subscriptions
$HLSubscription
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    2S7S12S
save.gif|save.gif?
CancelF
SaveOptions
    1S2S3S
cancel.gif|cancel.gif?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    2S7S12S
CancelF
SaveOptions
    1S2S3S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$ProfileAuthors
$ProfileAuthors_O
$$ProfileCategories
$ProfileCategories_O
$$ProfileEvents
$ProfileEvents_O
$$ProfileThreadSubjects
$ProfileThreadSubjects_O
$HLMLastChecked
$BODY
$V5ACTIONS
$ACTIONS
$Table1
    1S3S
$Table1
    1S3S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Ev,%1
$SiteMapList
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
WebDriveTable
    This is for web use only.  In the Notes client, this field
    cannot
     be present on the form containing the field-driven table.  On the web, it
    must
     be present.
Mission
$MissionPage
    4S6S
$MissionPage
    field driven table name
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
sZ%!ZM}
$Flags
GIF89a
@` Ll8
{c9;#
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
,Vo<(
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
QZK)<W
Vy^&\
{ :EG
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
?OOO///
    bkCb
]&SE<
oMr2<IKM OHv0$
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
___OOO///!!
xwr@FG
izOI"~sN
B|.s7
E    M<%;
bD[0Q
MCF]^
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
C!i>@2S]!sZ[
cfW|>KMhPv5
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
=B @ *6
?|8Te<>
-#LnXS9']
$;FHB$NEq3.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
___OOO///!!
+,$)
,<^=B"tq&()m{Np
@0r.Vw
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
pF!#v
!}@/&:<
|8y:G|KDs369s
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
J1gU]
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
ox\>sV
X}YcJ
OxQ$T
WEGuh
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
(qlBR
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
mark public.gif
MarkPublic.gifMarkPublic.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
move to trash.gif
MoveToTrash.gifMoveToTrash.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
new document.gif
NewDocument.gifNewDocument.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
!+\,?
new milestone-event.gif
NewEvent.gifNewEvent.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
new response to main.gif
NewResponseToMain.gifNewResponseToMain.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
new response to response.gif
NewResponseToResponse.gifNewResponseToResponse.gifaction buton
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
new response.gif
NewResponse.gifNewResponse.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
new subteam status.gif
NewSubteamStatus.gifNewSubteamStatus.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
new team status.gif
NewTeamStatus.gifNewTeamStatus.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
parent preview.gif
ParentPreview.gifParentPreview.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
remove thread.gif
RemoveThread.gifRemoveThread.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
search.gif
search.gifsearch.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
send link to assignees.gif
SendLinkToAssignees.gifSendLinkToAssignees.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
set status to inactive.gif
SetStatusToInactive.gifSetStatusToInactive.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
CategorizeTeamDocs.gif
CategorizeTeamDocs.gifCategorizeTeamDocs.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
DbaseTitleDisplayDbaseTitleDisplayC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
fullcalendar.gif
FullCalendar.gifFullCalendar.gifaction button
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
new.gif
new.gifnew.gifaction button dropdown
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@%
##########################################################
All Chronological|All Chronological/C1
$14YB
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
teamroom2.gif
TRoutline.gifTRoutline.gifoutline frame graphic
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
TRDocHeader1.gif
TRsetupheader.gifTRsetupheader.gifTeamRoom Setup graphic
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
small doc header.gif
TRDocHeader.gifTRDocHeader.gifused in resp. docs
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
big doc header.gif
TRMainDocHeader.gifTRMainDocHeader.gifUsed in main doc form
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
SectionDiv.gif
SectionDiv.gifSectionDiv.gifused in TR setup form
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
$$ViewTemplateDefaultAllViewTemplateC34W
MasterTRFrameset|MasterTRFramesetNotesViewV
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
$$ViewTemplate for By DateActiveDateTemplateC34W
MasterTRFrameset|MasterTRFramesetNotesViewV
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
$$ViewTemplate for TeamOverviewTeamOverviewTemplateC34W
MasterTRFrameset|MasterTRFramesetNotesViewV
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
GIF89a
?___///
a$IX*
^<QS g>@
"q-    _KfNz
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
O%J    S
Q#R (
s,5@BDFuj
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
( kS|U
w7t9Fw
Jn258n
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
UFlhd
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
p8C\Hj1#7j
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
p(nB@N
sl"!^ I
&j<>8($&
MC'`+
2%;J
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
OyOuti
Mse2V
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
HjCb|
%3r?<\]_
|9I a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
wgPJQ
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
HQ$    u
KW^T j=?]
$NPwQ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
<Wp_t
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
?___OOO///!!
    &+,$
9/\/F
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
p(nB@N
sl"!^ I
&j<>8($&
MC'`+
2%;J
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
<B @ *6
/%nX'
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
___OOO///!!
,&[[B"s
1:%9&
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
DEs/!8F
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
@R$`)
@` Ll8
L! c:<~0Y
4?`9DFy
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
~d(Yd
:j=?!-8U:
.9`Cg
[0}=I
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
=CQ1^
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
___OOO///
?Fl/@,^
(PY&p
1x-q1?
.s*%R0p
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
dwc_J?
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
?___///
A0\pX
ZT]eY
8}S;GI
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
)!\C}nQ
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
P@:$&
VQS T%
,<>#'
pZRdd_
}]C$+
L0:HJ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
|K    Sv
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
Untitled
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$$ScriptName
$BODY
GIF89a
g<>2N
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
?___OOO///
01357
j5mb+p@B1DFHJ
]_aleg
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
r^h5}C
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
    0S0E
Translatable variables
InactiveTxt
[INACTIVE]
    0R1S2S
PrivateTxt
PRIVATE:
    0R1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
ParticTxt
Participant Profile:
    0R1S2S
EventTxt
Event:
    0R1S2S
SubteamTxt
Subteam:
    0R1S2S
StatusTxt
Team Status Report:
    0R1S2S
STstatusTxt
Subteam Status Report:
    0R1S2S
End translatable variables
    0R1S
AuthorTxt
    0RR1S2S3S4S8S10S11S
Author
Mission
ParticipantProfile
Interest Profile
Event
Subteam
AuthorTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
Status
InactiveTxt
    0R1S2S4R5S6S7S2E8S10S
RptDate
StatusG
ReportDateK
    0R1S2S8S11S18S19S21S
RespSubj
ResponseToResponse
ImmediateParentSubject
Response
OriginalSubject
    0R1S2S5S6S8S10S11S12S14S
ParticipantProfile
RptDate
Subject
    0R1S2S4S5S6S8S12S15S16S17S
ParticipantProfile
ParticTxt
Event
EventTxt
Subteam
SubteamTxt
Status
StatusTxt
SubteamStatus
STstatusTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
readers
PrivateTxt
ExpireDate
ExpiredTxt
 (RE:
RespSubj
Author
    0RR3S4S6S8S9S10S12S14S16S17S18S20S21S2E22S23S27S2E28S29S30S31S33S
$14$34$Conflict
MainTopic
Status
    L1S2E3S4S5S6S7S8S10S11S
 $14Date
    0S0E
$34Topic
Translatable variables
InactiveTxt
[INACTIVE]
    0R1S2S
PrivateTxt
PRIVATE:
    0R1S2S
ExpiredTxt
EXPIRED:
    0R1S2S
ParticTxt
Participant Profile:
    0R1S2S
EventTxt
Event:
    0R1S2S
SubteamTxt
Subteam:
    0R1S2S
StatusTxt
Team Status Report:
    0R1S2S
STstatusTxt
Subteam Status Report:
    0R1S2S
End translatable variables
    0R1S
AuthorTxt
    0RR1S2S3S4S8S10S11S
Author
Mission
ParticipantProfile
Interest Profile
Event
Subteam
AuthorTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
Status
InactiveTxt
    0R1S2S4R5S6S7S2E8S10S
RptDate
StatusG
ReportDateK
    0R1S2S8S11S18S19S21S
RespSubj
ResponseToResponse
ImmediateParentSubject
Response
OriginalSubject
    0R1S2S5S6S8S10S11S12S14S
ParticipantProfile
RptDate
Subject
    0R1S2S4S5S6S8S12S15S16S17S
ParticipantProfile
ParticTxt
Event
EventTxt
Subteam
SubteamTxt
Status
StatusTxt
SubteamStatus
STstatusTxt
    0R1S2S5S6S8S10S11S12S14S16S17S18S20S22S23S24S26S28S29S30S32S34S
readers
PrivateTxt
ExpireDate
ExpiredTxt
 (RE:
RespSubj
Author
    0RR3S4S6S8S9S10S12S14S16S17S18S20S21S2E22S23S27S2E28S29S30S31S33S&
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Main Topic,
MainTopic
NewDoc.gif|NewDoc.gif?
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
NewResponse.gif|NewResponse.gif?
New Response to ResponseN
Notes only
ResponseToResponse
NewRespToResp.gif|NewRespToResp.gif?
Move to Trash
    0S0E
MoveToTrash.gif|MoveToTrash.gif?
EmptyTrash
    0S0E
EmptyTrash.gif|EmptyTrash.gif?
SearchF
Web only - used in Views
search.gif|search.gif?
Database Help
    0S0E
instructions.gif|instructions.gif?
Categori_zeK
Send Docu_ment
_Move to Folder...
_Remove from Folder...
_Forward
_Edit Document
New Main Topic,
MainTopic
New Response,
Response
    0S0E
hide from web if it's in a view
Notes
formh
    0R1S2S3S4S
New Response to ResponseN
Notes only
ResponseToResponse
Move to Trash
    0S0E
EmptyTrash
    0S0E
SearchF
Web only - used in Views
Database Help
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
<{`<n&
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
(GIF89a
x4G@[
&GW)E3
+sY{[X:2
GSTly#
$ZfvJ
LG14E
d56:z
4    l{(PE4
ZLzGA@
]'vr9`
IHfWAy
AHGPl
'uK<!
NV3qMaK
`    .O/Z%j
5b{nH
e$%y2_\pG
fdCPVB
rKHl-
3$dC="
#4B[@
0D|FU
F <8o
MY449
)aX5'
pKC'R
8F%%,5
G^D&H
2] \B
QxHxr
i(8Ec
qc^N9*
8^^rA+
OjdKE
Y[jANC$
#")z'
'Cjm(
f5z-Ub$
o*>    7
`6f=j
a>(Lcj'
JzY<v
yn!|oZ
vu!pO
^zMP5
QXNY_
m"16_
`$Q2a)N]
$LZcR
M!(&x
i#LJ\
sVf[:
'>2+4
SZj    2
fbo*$|>
    /.e^
ni>/$;
E'j%k4~
vN2v;
"0qc0
F]}G.go
,1[6kw
+z.>:
<W*_Ev
_n:K*
4bxvjt
:8/.N:t
>MEq1
    h<tP
sH.y.
AKZCL
U1a%$vNN&9-IG
us5\Tk2U
TopQe
-W'J4
x1D Nx
P?1.Z
~iztP
v1(nE
(7O#{r
#Ar0q
7uQ=U2
/"!q*
!EgN5Q*
P93HY
5B5bZ
    |s=y
/?6Go
tCw{f
UG0/eMx3
RR9t    M,
|!T%K
sxn_^
7Gkg'
r<_`1
1?l5{
c$DTDx
XG26f
IjgVZ]
] P:$
C**?}i0
rDtJ
yM5_8+=
Mg`[q
PI y]
]0Maw
{YStx
"vAdM
+ai7i
e!{)En
E`ZgI
$`[3F
9rCC%
X!AQ$D1e
Ru6ei
PZ&w93
7    [r}
LJK(k
qTr2]
yjv%p
2|P1a
Z]ALfC
H*HiI
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"Q[cK'
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
(GIF89a
T6eYQ]9#)!
:2.MD@
KXT*U
w#GN@
`0<XEk
uM#Nl$c.s
{,g:7pF
Pm{],18{x]
$)!r4[
T@{D9
HzKbT
AeXd>'0I
HWvUv 0Wv
V@Txg
{xld6
hw `H]
0bX:}
HbK`R
rQ2=3B
Ks/"Y
<E'fU|
1-w`<
\ t/dh
+Jw*S
c'djkO
Dp,.I
k7^@T
p>..><2
(:B<8824\72
Q<2e9
TD$h`
*[qEJ
py.#D
YHs."
sy@iC
At@~k"
mNs5J
-m+    a
;Zg;0IF
oGP^~eH
:g    ck
9,;X;
NiC'KxC
> d*l
H.z!NX
A}Gz,
r40P)
LNAVzc
8+ +"
c    *    '
-R6 L$
K*Ahh5
ynccm
wn;6m
/6@0i
{$2@F
d#N~I
%]qc
!*p)7
lv    pc
Eu)-aP8<TT$D00HLL(LH4
PJD@<88
e`tph
-BTD@
L44XL
v'D+#
.e"lq
hXL|RI
Mjmts
lhWC`_
3T$%+i
'!!GwX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a
k{o[MLmBFL8Mv
r}x`=B
YrnX*
TsIm|
H\"2a
-sh8[
XD\Mkj
>zoQc
6M6K"R
*eFe+
V8$Xm
42,@0Z
=J3mq#|82
y6tF=D}
7t+x%
<^wx7"r
>XdarRJ
34V,wE
5?Cqz"
JO6M[9
Co7c1
BrDC7
Aj{cw
f:h4J
.myv;
$?FUahQ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
8r%64^
xyw[bsc
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
(GIF89a
sL.GG
gj^T-Hf
[MMz8
l>    IcvG*if
m!~e(
V*q>C
M\~:R
_)$q4
Z6C;:
(v:-Y
F-yEXJ[TN
[ic<c
\!2r1?
/qY\^)
wmW#sz
xn;GYPF
fq Mt#
P(wlGn
&k"t/
&WZ5E
tmH\O
sCO;vSI"
Vn9iO
YO)iz6w
    S}aw1
4|(kCvfk)
l5%Yg&
5TLIb)E
KbKAzQ
jU.w!
*04Iu
Y!0Hd
erT*"o
T)J)8
1YF:h
>    %lN
(s@5l2
n4h*_E9e
<C}    '5
_\d40Y
,k    @Sv
Yi9Un
mYM[Z
lkCkM
A5pV3
ml$g]vy
vuQgOe,
Xz3_|
)KE<T
K0ulC\
9F\8Bd
:@\FP<
s;p\D
zZPQC
$@m@YZ
[,e? |ZE
-<]b`
8V+Dz]
/h+#u^
S.h2&
e[]j)3c
X!\ct
ki.F:
FPT&u
OEvPo
KM4nptt
sn> #4
-Jj,}C
(z    \,
dJg+G
~3b8hjw
4)S1N
:0zg~
tG>&zZ
z$%5k
CH;r)
\+j8c
#T3f+
II.su:
<;zrY
*1I+l@1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
GIF89a/
`DBLN
%+*--'
/,5576
98@@BD
 "G")
C=L)[
U>u9,
]:@5;
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
fF;?KC
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$Comment
&Arial
Untitled
[default]
    0S0E
Index of All Documents
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$FrameInfo
$WebFlags
$$ScriptName
$BODY
&Arial
Untitled
By Date
Active Documents
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$FrameInfo
$WebFlags
$$ScriptName
$BODY
&Arial
Untitled
TeamRoom Overview
TeamRoom Setup & Participants
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$FrameInfo
$WebFlags
$$ScriptName
$BODY
05/21/98 11:17:49 AM Debbie Branco/Iris updated [-Default-]
05/21/98 11:17:44 AM Debbie Branco/Iris updated -Default-
05/16/98 09:36:31 AM Debbie Branco/Iris updated -Default-
05/15/98 08:35:19 AM Debbie Branco/Iris updated [-Default-]
05/15/98 08:34:51 AM Debbie Branco/Iris updated [-Default-]
03/31/98 01:10:30 PM Debbie Branco/Iris deleted role rTRFacilitator
03/31/98 01:10:28 PM Debbie Branco/Iris updated -Default-
02/14/98 01:15:26 PM Debbie Branco/Iris updated [-Default-]
02/14/98 01:15:12 PM Debbie Branco/Iris added [-Default-]
02/14/98 01:15:03 PM Debbie Branco/Iris updated LocalDomainServers
02/14/98 01:15:01 PM Debbie Branco/Iris updated OtherDomainServers
02/14/98 01:14:58 PM Debbie Branco/Iris added OtherDomainServers
02/14/98 01:14:47 PM Debbie Branco/Iris updated LocalDomainServers
02/14/98 01:14:40 PM Debbie Branco/Iris added LocalDomainServers
02/14/98 01:14:31 PM Debbie Branco/Iris deleted Teresa Deane/Iris
02/14/98 01:14:29 PM Debbie Branco/Iris added [OtherDomainServers]
02/14/98 01:14:29 PM Debbie Branco/Iris deleted OtherDomainServers
02/14/98 01:14:22 PM Debbie Branco/Iris updated [LocalDomainServers]
02/14/98 01:14:18 PM Debbie Branco/Iris added [LocalDomainServers]
02/14/98 01:14:18 PM Debbie Branco/Iris deleted LocalDomainServers
TRFacilitator
-Default-
[Anonymous]
[LocalDomainServers]
[OtherDomainServers]
LocalDomainServers
OtherDomainServers
[-Default-]