CategoriesPress ENTER for list of keywords or to add a new keyword
In the case of reading an existing document, it is not necessary to do the @DbColumn because we don't support the use of Keyword Synonyms in this application, and thus translation doesn't need to be done.
NoCache
($All)
0R4S5S7S9S15S17S19S
ExpireDate
1S2S
The document and its responses will be archived
on a schedule determined by the Archive Profile
This document was marked expired on
ExpireDate
ExpireDateDisplay
Status
StatusListv
4S6S7S8S9S
Reviewers:
Reviewers
Reviewers
Reviewers
Status
StatusListv
PreviousReviewers
4S6S7S8S9S10S11S12S13S
Previous reviewers:
PreviousReviewers
PreviousReviewers
Status
StatusListv
4S6S7S8S9S
Current reviewer:
CurrentReviewers
CurrentReviewers
Status
StatusListv
FutureReviewers
4S6S7S8S9S10S11S12S13S
Future reviewers:
FutureReviewers
FutureReviewers
Status
StatusListv
Status
StatusListv
4S6S7S8S9S13S15S16S17S18S
Review type:
ReviewStyle
ReviewStyle
Serial review | Serial.NoVersionsSerial (keep all revisions) | Serial.VersionsDocument reservations | Parallel.NoVersionsResponse review | Parallel.Versions
Deadline:
ReviewWindow
ReviewWindow
No time limit for each review | NoLimitMove to next reviewer after: | MoveOnKeep sending reminders after: | Reminder
ReviewTime
ReviewTime
ReviewWindow
NoLimit
day(s)
3S4S6S8S
tmpReviewUnits
Notification:
NotifyAfter
NotifyAfter
Notify originator after each reviewer | EachNotify originator after final reviewer | Final
ReviewerLog
1S2S3S4S
Reviewer Log
ReviewerLog
1S2S
ReviewerLog
ReviewerLog
....................
BodyEnter the text (or a description) of the document.
_Edit Document
DocumentAuthors
9S15S
Categori_zeK
_Forward
_Move to Folder...
_Remove from FolderK
Send Docu_ment
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$SubForms
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$Reviewers
$Reviewers_O
TimeCreated
ReviewTime
$Body
$ACTIONS
OriginalSubject
OriginalSubject
OriginalSubject
Subject
1S2S3S10S12S
NewRespTitle
New Response to "
OriginalSubject
0R1S2S3S4S5S6S
StandardTitle
Response
of "
to "
OriginalSubject
0R1S2S3S4S8S9S10S11S12S13S14S15S16S17S
NewRespTitle
StandardTitle
0R4S6S
"MS Sans Serif
Times New Roman
Response
@___@
<a>7`^
`!bb!R
SubjectKey thought of this response
Created by
FromThe name of the person who composed the response
This database allows you to capture and track information about documents.
Functions of the Database:
To add a document to this database
Select Create, Document.
You can enter document information in several ways: by typing it using the Notes editor, by scanning in hard copy, or by importing or attaching an electronic file.
To respond to a document
Highlight that document in a view, then select Create, Response.
To respond to a response
Highlight the response you wish to respond to, then select Create, Response to Response.
To flag a document as 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.
If a document is marked private after it has been submitted for review, the document author and the reviewers will be able to read the document.
Features
Document Review Cycle:
The author of a document has the option of setting up a document review cycle for that document. To do so simply click on the Setup Review Cycle action button and fill in the necessary information.
Note:
Do not use
@Domain
when entering approver names. Any domain added will be stripped off and may cause complications when attempting to route a request. Also, only enter Person-names as approvers. Group names are not supported.
Clearing a Review Cycle:
Document Library, SmartSuite 96 Library, and MS Office Library provides an action button to "Clear Review Cycle". This is accessible only by the document's originator. You can either use the action prior to submitting a document for review, or after submittal. Below are the guidelines:
o Clearing a review cycle prior to submitting for review: Select this if you, as originator, wish to change the review cycle settings before your reviewers receive notification.
o Clearing a review cycle after submittal: If reviewers have already begun or completed their document review, their work will be preserved. If reviewers were notified to review a document and they have not yet begun the review, they will receive a courtesy notice that they are no longer required to conduct a review.
Microsoft Office Library Review Styles:
Serial Review:
Documents are routed for review one at a time, in sequence to the reviewers chosen by the author.
o All edits are made within the same document, but an unedited copy of the original document is also saved.
Serial Review (keep all revisions):
Documents are routed for review one at a time, in sequence to the reviewers chosen by the author.
o Edits are made within a copy of the original, which also includes all comments from previous reviewers
o All old versions become response documents (as well as a copy of the original)
Document Reservations:
Requests for document review are routed in parallel (that is, all at the same time). When one reviewer opens the document, a "file locking" occurs at the server which warns any other user who happens to edit the document that a review is in progress.
o Review comments or edits are made into a copy of the original document
o As with the others, a clean copy of the original is always kept
Response Review:
Same as Document Reservations (but with no file locking).
o Review comments or edits are saved as response documents to the original document.
o As with the others, a clean copy of the original is always kept
Processing Late Reviews:
If the Process Late Reviews agent is enabled, it selects those documents which are in review and have due dates which have passed. Based upon the review style of the document, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer(s) that their review is overdue.
Unlock Document:
Occasionally a document is accidentally left in a locked state. The Unlock Document action can be accessed by designers and managers from the Review Status view's Action menu to unlock the document.
Document Archiving:
This is a process by which certain documents are removed from the current database and stored in a different database. This keeps the library up-to-date with only the latest topics. Most of the Archiving activities take place from the "Archiving" view. You must switch to this view in order to initiate archiving on a library database.
To set up archiving on any library database, switch to the Archiving view and click the action called "Setup Archive". The Archive Profile appears. This document contains criteria that the user specifies for archiving topics in a library (e.g., inactive after 'x' days, or expired after 'x' days). The archive database is automatically created when the Profile is saved. The archival database filename is also specified in the Archive Profile; the title of the archive will be the title of the Microsoft Office Library database followed by "(Archived)". After the archive criteria have been specified in the Archive Profile, other agents run on the database to move the document(s).
Mark/Unmark Document as Expired:
Marks a topic as "expired". If the Archive Profile specifies that
expired
topics should be archived, the document(s) marked with this agent would fall into that criterion. If a document is already marked as expired, this agent tells the user what the expire date was, and will ask if the user wants to un-expire it.
Periodic Archive:
Reviews the Archive Profile and moves documents which meet the archive criteria into the archive database. This agent is run automatically on the server; the schedule is set by the database manager/designer.
DocObjects
This template is designed to work with Microsoft Office 95 and 97 applications. The template takes advantage of the OLE concept of DocObjects (aka ActiveX) which basically involves the OLE/ActiveX object going in-place active and taking over the entire document window. The affect is that it appears as if the object's server is running as a stand-alone application.
Please see the Troubleshooting section in the Notes Client 4.6 release notes for information regarding any known issues with this template.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
Times New Roman
Task List
&Switch To
About Microsoft Office Library
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
What does this database do?
A Document Library application is an electronic filing cabinet that stores reference documents for access by a workgroup. The database might contain anything from environmental impact statements for a group of engineers to financial statements for a group of loan officers.
Who will use this database?
Anyone who wishes to create a record of a document or review available documents may use this database.
Important Features
Review Cycle:
Used to route a document to a series of recipients.
Document Archiving:
Used to move expired documents to an archive database.
In-place Editing:
Create and edit Office documents within the Notes environment.
Suggestions for Modifications
Full text search:
If you wish to use Notes' full text search capabilities for a database created with this template, select menu File, Database, Properties, go to the Full Text panel and then select Create Index... to create the full text index.
Where to find more information?
- More information can be found by selecting Help, Using Database
Access Control
Very Important:
Access level should be
Author
for all users of this database. This will prevent unauthorized editing of documents within the database. The Author fields within the forms govern who will be able to edit/review particular documents. Errors will occur if someone with Editor access attempts to review a document when they are not an authorized reviewer of that document.
Important Note
- The Microsoft Office Library (4.6) template should only be used to create new applications. Upgrading existing Document Library applications with this template is not supported.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
]: ,Md
$Info
$Body
Times New Roman
ReviewOptions
Review style:
ReviewStyle
ReviewStyle
Serial review | Serial.NoVersionsSerial (keep all revisions) | Serial.VersionsDocument reservations | Parallel.NoVersionsResponse review | Parallel.Versions
ReviewWindow
ReviewWindow
No time limit on review | NoLimitMove to next reviewer after | MoveOnKeep sending reminders after | Reminder
Allotted time:
Notification:
NofityAfter
NotifyAfter
Notify me after each reviewer | EachNotify me after final reviewer | Final
ReviewWindow
NoLimit
1S2S
ReviewTime
ReviewWindow
NoLimit
ReviewTime
ReviewTime
3S4S6S8S14S
ReviewWindow
NoLimit
ReviewTimeX
Please enter a number.{
ReviewTimeX
Please enter a whole number which is greater than zero.
3S4S6S8S16S21S25S26S28S33S
ReviewTime
day(s)
SaveChoices
SaveChoices
Save choices for next time. | 1
Categori_ze
_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
Fde!f^^
ReviewTime_1
$TITLE
$Info
$$ScriptName
$Body
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "OLERoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
DocumentWorkflow'++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)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
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 Queryopen From Source Call Queryopen
On Event Postopen From Source Call Postopen
On Event Querymodechange From Source Call Querymodechange
On Event Postmodechange From Source Call Postmodechange
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
3S4S6S11SCategoriesPress ENTER for list of keywords or to add a new keyword
($All)
4S6S
Status
StatusListv
4S6S7S8S9S
Reviewers:
Reviewers
Reviewers
Reviewers
Status
StatusListv
PreviousReviewers
4S6S7S8S9S10S11S12S13S
Previous reviewers:
PreviousReviewers
PreviousReviewers
Status
StatusListv
4S6S7S8S9S
Current reviewer:
CurrentReviewers
CurrentReviewers
Status
StatusListv
FutureReviewers
4S6S7S8S9S10S11S12S13S
Future reviewers:
FutureReviewers
FutureReviewers
Status
StatusListv
Status
StatusListv
4S6S7S8S9S13S15S16S17S18S
Review type:
ReviewStyle
ReviewStyle
Serial review | Serial.NoVersionsSerial (keep all revisions) | Serial.VersionsDocument reservations | Parallel.NoVersionsResponse review | Parallel.Versions
Deadline:
ReviewWindow
ReviewWindow
No time limit for each review | NoLimitMove to next reviewer after: | MoveOnKeep sending reminders after: | Reminder
ReviewTime
ReviewTime
ReviewWindow
NoLimit
day(s)
3S4S6S8S
tmpReviewUnits
Notification:
NotifyAfter
NotifyAfter
Notify originator after each reviewer | EachNotify originator after final reviewer | Final
....................
ReviewerLog
1S2S3S4S
Reviewer Log
ReviewerLog
1S2S
ReviewerLog
ReviewerLog
ReviewerLog
tmpUseOle
1S2S3S2E4S5S2E6S
OLEBody
BodyEnter the text (or a description) of the document.
_Edit Document
DocumentAuthors
9S15S
Categori_zeK
_Forward
_Move to Folder...
_Remove from FolderK
Send Docu_ment
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
@=n&>
9.hd{*
$$Reviewers
$Reviewers_O
$TITLE
$Info
$SubForms
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
_ViewIcon
TimeCreated
ReviewTime
$Body
$ACTIONS
Process Late Reviews
Selects those documents which are in review and have due dates which have passed. Based upon the review style of the document, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer(s) that their review is overdue.1
Format(dtNow.LSLocalTime, "Short Date") & " at " & _
Format(dtNow.LSLocalTime, "Long Time") & _
". Expired documents are archived after " & ExpiredLife & _
" days. All other documents are archived after " & DocumentLife & " days of inactivity."
docLog.Save True,True
Call docLog.CopyToDatabase(dbArchive)
End If
Next
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Archive Profile
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ProcessExistingArchiveDB
Declare Sub ProcessNonExistingArchiveDB
Declare Sub ProcessArchiveDbExists
Declare Sub CreateNewArchiveDB
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim existingdb As NotesDatabase
Dim archivedb As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim archivedoc As NotesDocument
Dim doc As NotesUIDocument
Dim DocWasSaved As Integer
Dim DoNotClose As Variant
Dim ExistingServer As String
Dim ExistingPath As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:ProcessExistingArchiveDB:1:12
Sub ProcessExistingArchiveDB
an existing archive already exists and the user has choosen to create a new one
this function gets called on one of two occasions
either the document has a value in the tmpArchivePath field
or the user entered a server and path that has an existing database
we need to handle both cases
%END REM
End Sub
'++LotusScript Development Environment:2:2:ProcessNonExistingArchiveDB:1:8
Sub ProcessNonExistingArchiveDB
On Error Goto ProcessError
On Error 4005 Goto DbCreateError
'render the dialog box to get the location of the archive database
If (w.DialogBox("(ArchiveProfileDlg)",True,True,"Specify New Location")) Then
'see if the archive database exists
Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
If (archivedb.IsOpen) Then
Msgbox "Database already exists. Enter a new location"
ProcessNonExistingArchiveDB
Else
Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
archivedb.Title = db.Title & " (Archive)"
End If
Call doc.Reload
Call doc.Refresh
Else
note.ArchiveServer = ""
note.ArchivePath = ""
End If
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
ProcessError:
Msgbox Error & " - (ProcessNonExistingArchiveDB)"
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ProcessArchiveDbExists:1:8
Sub ProcessArchiveDbExists
'this function gets called if a database already exists in the tmpArchiveServer field
'render the dialog box to get the location of the archive database
On Error 4005 Goto DbCreateError
If (w.DialogBox("(ProcessExistingDbDlg)",True,True,"Specify New Location")) Then
On Error Resume Next
'see if the archive database exists
Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
If (archivedb.IsOpen) Then
Msgbox "Database already exists. Enter a new location"
ProcessArchiveDbExists
Else
Call CreateNewArchiveDB
archivedb.Title = db.Title & " (Archive)"
End If
Call doc.reload
Call doc.refresh
End If
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CreateNewArchiveDB:1:8
Sub CreateNewArchiveDB
On Error 4005 Goto DbCreateError
On Error Goto ProcessError
'first, create the archive database
Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
'if the profile says to copy new documents, then copy them now
If (note.CopyOptions(0) = "1") Then
Set allDocs = existingdb.AllDocuments
For i = 1 To allDocs.Count
Set archivedoc = allDocs.GetNthDocument(i)
Call archivedoc.CopyToDatabase(archivedb)
Next
End If
'if the profile says we should delete the original archive database, then remove it
If (note.DeleteOptions(0) = "1") Then Call existingdb.Remove
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
ProcessError:
Msgbox Error & " - (ProcessNonExistingArchiveDB)"
Exit Sub
End Sub
Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, 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 Queryclose From Source Call Queryclose
On Event Querysave From Source Call Querysave
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub
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:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DocWasSaved = True
DoNotClose = False
If Not(profile Is Nothing) Then note.SaveOptions = "0"
If (note.ArchivePath(0) = "") Then Msgbox "You will need to specify a location of the archive database before you can archive documents.",16
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
'initialize global variables
Set note = source.Document
Set w = New NotesUIWorkspace
Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("Archiving")
Set doc = source
'turn off auto reload to make processing faster
source.AutoReload = False
'if this is not a new doc, we don't need to continue
If Not (source.IsNewDoc) Then Exit Sub
'get the existing profile
key = "Archive Profile"
Set profile = view.GetDocumentByKey(key,False)
If profile Is Nothing Then
'an existing profile was not found
note.ProtectFromArchive = 1
note.ExcludeFromView = "D"
note.From = "Archiving"
note.Subject = "Archive Profile"
note.Categories = "(Archive)"
Call note.ReplaceItemValue("_ViewIcon", 11)
source.reload
Else
'copy the profile fields to this document
ItemList = note.Items
Forall n In ItemList
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
If source.EditMode Then source.Refresh
End If
DocWasSaved = False
End Sub
K ,`
Archive Profile
ArchiveExpired
Archive Expired documents | Yes
after
ExpiredLife
Number cannot be negative.{
3S4S6S11SExpiredLife
days
ArchiveInactive
Archive documents which have no activity | Yes
after
DocumentLife
Number cannot be negative.{
3S4S6S11SDocumentLife
days
ArchiveLog
Generate an Archive Log each time an archive occurs | Yes
IncludeDoclinks
Include document links | Yes
Archive Profile editors:
ProfileEditors
Archive Server:
ArchivePath
ArchiveServer
Local
ArchiveServer
3S4S9S10S12S14StmpArchiveServer
Archive Path:
ArchivePath
tmpArchivePath
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
Close
0S0E
Save Profile
0S0E
Specify Archive Location'++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)
'see if an archive database already exists based upon some field values
(.txt)