home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 February / PCWorld_1999-02_cd.bin / software / Komer / lotus / Server / w32Intel / INSTALL / LOTUS017.DSK / RESRC45.NTF (.txt) < prev    next >
Lotus Notes Database  |  1997-09-10  |  293KB  |  3,422 lines

  1. Resource Reservations (4.5)
  2. Resource Reservation
  3. #1Std45ResourceReservation
  4. g:\v4names\resrc45.ntf
  5. O=Lotus Notes
  6. O=Lotus Notes
  7. PURSAFO
  8. |.:#U
  9. O=Lotus Notes
  10. CN=Lotus Notes Template Development/O=Lotus Notes
  11. PURSAFO
  12. Fde!f^^
  13. $TITLE
  14. $Index
  15. $Formula
  16. $FormulaClass
  17. $ViewFormat
  18. $Comment
  19. CN=Lotus Notes Template Development/O=Lotus Notes
  20. ~A?7,
  21. 'ch*CE
  22. }GRDO
  23. CN=Rob Slapikoff/O=IrisLocalDomainServersCN=Lotus Notes Template Development/O=Lotus Notes
  24. ##############################################
  25. $Modified
  26.     1S2S3S
  27. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  28. $Flags
  29.     0SL1S4S5S3724
  30. $TITLE
  31. CN=Ryan Jansen/O=Iris######################################
  32. ~A?7,
  33. CN=Rob Slapikoff/O=Iris
  34. fooo`
  35. #########################################################
  36. ReservationReservationDC034C015E675FFC9DDD57A11A57BD8E
  37. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes60B8EE5199BB321E84E9D25D61535C5967843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  38. ($Rooms)
  39. ResourceName
  40.     0S0E
  41. ResourceName
  42.     0S0E
  43. $3ResourceName$4CapacityResourceDescription$Conflict$REF
  44. Resource
  45. ResourceType
  46.     L1S4S5S1
  47. ResourceName
  48.     0S0E
  49. ResourceName$4Room4
  50. ResourceName
  51.     0S0E
  52. CapacityCapacityResourceDescription- Description&
  53. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  54. 255D2116B7BDFECF1769F57E5917AA29Lotus Notes
  55. Site ProfileSiteProfile[CreateResource]D
  56. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  57. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  58. O=Lotus Notes
  59. O=Lotus Notes
  60. PURSAFO
  61. |.:#U
  62. O=Lotus Notes
  63. CN=Lotus Notes Template Development/O=Lotus Notes
  64. PURSAFO
  65. Fde!f^^
  66. $ACLDigest
  67. "Small Fonts
  68. New Reservation
  69. Reservation for 
  70. ReservedBy
  71.  on "
  72. ReserveDate
  73.     7S8S14S15S17S'++LotusScript Development Environment:2:5:(Options):0:66
  74. Option Public
  75. '++LotusScript Development Environment:2:5:(Forward):0:1
  76. '++LotusScript Development Environment:2:5:(Declarations):0:10
  77. Dim Note As NotesDocument
  78. Dim ws As NotesUIWorkspace
  79. Dim TimeSlotTime As NotesDateRange
  80. Dim TmpTime As Variant
  81. Dim session As NotesSession
  82.  Reservation'++LotusScript Development Environment:2:5:(Options):0:66
  83. '++LotusScript Development Environment:2:5:(Forward):0:1
  84. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  85. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  86. Declare Sub Postopen(Source As Notesuidocument)
  87. '++LotusScript Development Environment:2:5:(Declarations):0:2
  88. '++LotusScript Development Environment:2:2:BindEvents:1:129
  89. Private Sub BindEvents(Byval Objectname_ As String)
  90.      Static Source As NOTESUIDOCUMENT
  91.      Set Source = Bind(Objectname_)
  92.      On Event Querysave From Source Call Querysave
  93.      On Event Queryopen From Source Call Queryopen
  94.      On Event Postopen From Source Call Postopen
  95. End Sub
  96. '++LotusScript Development Environment:2:2:Querysave:1:12
  97. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  98.      Set Note=Source.Document
  99.      Set Session=New NotesSession 
  100.      Set DB=Session.CurrentDatabase
  101.      Set TR=Session.CreateDateRange
  102.      Source.Reload
  103.      Source.Refresh
  104.      Set SDT=New NotesDateTime(Note.StartDateTime(0))
  105.      If Not(Isarray(Note.EndDateTime)) Then
  106.           Messagebox "You must completely fill out a reservation before saving it.", 0, "Error"
  107.           continue=False
  108.           Exit Sub
  109.      End If
  110.      Set EDT=New NotesDateTime(Note.EndDateTime(0))
  111.      Set TR.StartDateTime=SDT
  112.      Set TR.EndDateTime=EDT
  113.      Set Note.TRTest=TR
  114.      Note.CurServer=DB.Server
  115.      Note.CurDuration=EDT.TimeDifference(SDT)/60
  116.      Free=Evaluate ("@FindFreeTime(CurServer;ResourceName;TRTest;CurDuration;1)", Note)
  117.      If Isempty(Free) Then
  118.           Messagebox "The time you have scheduled for this resource is not available.", 0, "Error"
  119.           Continue = False
  120.      End If
  121.      
  122.      
  123. End Sub
  124. '++LotusScript Development Environment:2:2:Queryopen:1:12
  125. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  126.      Set ws=New notesuiworkspace
  127.      Set session=New NotesSession
  128.      Set TimeSlotTime = session.CreateDateRange
  129.      TmpTime=ws.CurrentCalendarDateTime
  130.      
  131.      
  132. End Sub
  133. '++LotusScript Development Environment:2:2:Postopen:1:12
  134. Sub Postopen(Source As Notesuidocument)
  135.      
  136.      Dim db As NotesDatabase
  137.      Dim view As NotesView
  138.      Dim doc As NotesDocument
  139.      
  140.      If source.IsNewDoc Then
  141.           Set note=source.document
  142.           Set db=session.currentdatabase
  143.           Set view=db.GetView("($RLookup)")
  144.           Set doc=view.GetFirstDocument
  145.           If doc Is Nothing Then
  146.                Messagebox "You must create a Resource before creating a reservation.", 0, "No Resources"
  147.                Call Source.Close
  148.                ws.ComposeDocument "", "", "Resource"
  149.                Exit Sub
  150.           End If
  151.           If TmpTime <> "" Then
  152.                Set StartTime = New NotesDateTime(TmpTime)
  153.                Set EndTime= New NotesDateTime(StartTime.LsLocalTime)
  154.                EndTime.AdjustHour(1)
  155.                Set TimeSlotTime.StartDateTime=StartTime
  156.                Set TimeSlotTime.EndDateTime=EndTime
  157.                If (Hour(TmpTime) > 0) Then Set note.TimeRange=TimeSlotTime               
  158.                note.ReserveDate=StartTime.LsLocalTime
  159.                
  160.           End If
  161.      End If
  162. End Sub
  163. [@    +P    $
  164. K@    -<
  165. CurServer
  166. ResourceName
  167. TRTest
  168. CurDuration
  169.     0S0E
  170. Reservation
  171. WarningNotice
  172.     0S0E
  173.     Reserved by:
  174. ReservedBy
  175. You must enter a name in the Reserved by field.
  176. ResourceName
  177. You must choose a room or resource to reserve before saving this reservation.
  178.     0S0E
  179. ReservedByEnter the name of the person reserving the room or resource.
  180.     Phone number/Extension:
  181. RESOURCEPHONE
  182.     0S0E
  183. RESOURCEPHONE
  184. PhoneNumber
  185.     0S0E
  186. PhoneNumber
  187. PhoneNumber
  188. You must enter a phone number.{
  189.     0S0E
  190. PhoneNumber
  191. FindResourceStyle
  192. You must completely fill out a reservation before saving it.{
  193. FindResourceStyle
  194. You must completely fill out a reservation before saving it.{
  195. ResourceName
  196. No resource/room found for times and/or capacity requirements.
  197. Before saving this reservation you must find a valid Room/Resource.
  198.     3S4S5S6S7S8S18S19S20S21S22S23S33S34S35S36S
  199.     0S0E
  200.     1. Reserve a: 
  201. ResourceType
  202. Room|1Resource|2
  203.     Reservation for a 
  204. ResourceType
  205. ResourceTypeDisplay
  206. Room|1Resource|2
  207.     0S0E
  208. SiteList
  209. NoCache
  210. ($Sites)
  211.     0S0E
  212. ResourceType
  213. NoCache
  214. ($Categories)
  215. Error
  216. Error:  You cannot reserve a resource because none have been created.
  217.     0R5S6S22S
  218.     0R1S
  219. SiteList
  220. NoCache
  221. ($Sites)
  222.     0S0E
  223. ResourceType
  224. NoCache
  225. ($Categories)
  226. Error
  227. Error:  You cannot reserve a resource because none have been created.
  228.     0R5S6S22S
  229.     0R1S
  230. continue
  231.     2S3S5S6S8S
  232. FindResourceStyle
  233. ResourceType
  234. resource
  235.     0S0E
  236. Find an available 
  237.  at a specific time|1
  238. Find an available time for a specific 
  239.     0R8R
  240.     2S3S5S6S
  241. FindResourceStyle
  242. FindResourceStyleDisplay
  243. ResourceType
  244. resource
  245.     0S0E
  246. Find an available 
  247.  at a specific time|1
  248. Find an available time for a specific 
  249.     0R8R
  250.     3S4S7S8S9S10S2E
  251. ResourceType
  252. NoCache
  253. ($Categories)
  254. Error
  255. You cannot reserve a resource because none have been created.
  256.     5S6S
  257.     0R1S
  258. continue
  259. ResourceType
  260. ResourceName
  261.     3S4S7S8S9S
  262.     Resource:
  263. ResourceType
  264. ResourceName
  265.     4S9S
  266.     Room:
  267. ResourceName
  268.     3S4S5S
  269. ResourceName
  270. ResourceNameDisplay_1
  271.     Reservation date:  
  272. StartDateTime
  273. StartDateTime
  274.     0S0E
  275. ReserveDateDisplay1
  276.     Time:    
  277. FindResourceStyle
  278. TimeRange
  279. OptimalStartTime
  280.     0S0E
  281. TimeRangeDisplay1
  282.     Site:    
  283. SiteDisplay1
  284. ResourceType
  285. FindResourceStyle
  286.     3S4S
  287.     Number of attendees:    
  288. Capacity
  289. CapacityDisplay1
  290. ResourceType
  291.     0S0E
  292.     Resource category:    
  293. ResourceName
  294.     0S0E
  295. ResourceCategoryDisplay1
  296. FindResourceStyle
  297.     1S3S4S
  298.     0S0E
  299. ReserveDate
  300. FindResourceStyle
  301. You must enter a valid Reservation date.{
  302.     5S6S9S10SReserveDate
  303. CurTime
  304.     0S0E
  305. NumMinutes
  306. CurTime
  307. NumSeconds
  308. CurTime
  309. AdjustedMinutes
  310. NumMinutes#
  311. Rounded1
  312. NumMinutes
  313. Rounded2
  314. NumMinutes#
  315. NumMinutes"
  316.     0RR8S9S
  317. StartTime
  318. CurTime
  319. AdjustedMinutes
  320. NumSeconds
  321. StartTime
  322. StartTime
  323. Rounded1
  324. Rounded2D
  325. EndTime
  326. StartTime
  327. EndTime
  328. StartTime
  329. EndTime
  330.     0RR3S4S
  331. StartTime
  332. EndTime
  333. TimeRange
  334. FindResourceStyle
  335. You must enter a valid Time.{
  336.     5S6S9S10STimeRange
  337. NoCache
  338. ($Sites)
  339.     0S0E
  340. FindResourceStyle
  341. You must choose a site before saving this reservation.{
  342.     5S6S9S10SSite
  343. NoCache
  344. ($Sites)
  345.     0S0E
  346. ResourceType
  347.     0S0E
  348. Capacity
  349. FindResourceStyle
  350. ResourceType
  351. You must enter a valid capacity before saving this document.{
  352. Capacity[
  353. Capacity
  354. Capacity
  355. FindResourceStyle
  356. ResouceType
  357. The number of attendees must be greater than or equal to 1.
  358.     5S6S9S10S13S14S28S29S31S34S35S37S41S42S45S46SCapacity
  359. ResourceCategory
  360. FindResourceStyle
  361. ResourceType
  362. You must enter a valid resource category before saving this document.
  363.     5S6S9S10S13S14SResourceCategory
  364. NoCache
  365. ($Categories)
  366. NoCache
  367. ($Categories)
  368.     0S0E
  369.     d. Number of attendees:
  370.        a. Reservation date:
  371.     d. Resource category:
  372.     b. Time:
  373.     c. Site:
  374.     3 a. Reservation date:
  375. FindResourceStyle
  376. ResourceType
  377.     1S2S3S2E4S7S8S
  378. ResourceType
  379. Capacity
  380. Error
  381. You must enter the number of attendees before you can find a room.
  382. Capacity[
  383. Capacity
  384. FindResourceStyle
  385. ResourceType
  386. Error
  387. Error: Number of attendess must be greater than 0.
  388. ReserveDate
  389. TimeRange
  390. Error
  391. You must enter a valid Date and/or Time before you can find an available room.
  392.     5S6S29S30S32S36S37S40S41S60S61S65S
  393. StartDateTime
  394. Error
  395. You cannot reserve a room for a date which has already occurred.
  396.     0R7S8S14S
  397. Keyarg
  398. CN=*/
  399. ResourceType
  400. Site"
  401. ResourceCategory"
  402. Site"
  403. ResNameCheck
  404. ResourceType
  405. Keyarg
  406. ResourceType
  407. StartDateTime
  408. EndDateTime
  409. Capacity
  410. Keyarg
  411. ResourceType
  412. StartDateTime
  413. EndDateTime
  414. ResNameCheckZ
  415. Error
  416. You received the following error when trying to find a room: 
  417. ResNameCheck"
  418. ResourceName
  419. ResNameCheck
  420.     0R1S
  421. ResourceName
  422. ResourceName
  423. No resource/room found for times and/or capacity requirements.
  424. ResourceName
  425.     0R1S
  426. ResourceType
  427. Capacity
  428. Error
  429. You must enter the number of attendees before you can find a room.
  430. Capacity[
  431. Capacity
  432. Capacity
  433. FindResourceStyle
  434. ResourceType
  435. Error
  436. Error: Number of attendess must be greater than or equal to 1.
  437. ReserveDate
  438. TimeRange
  439. Error
  440. You must enter a valid Date and/or Time before you can find an available room.
  441.     5S6S29S30S32S35S36S42S43S46S47S66S67S71S
  442. StartDateTime
  443. Error
  444. You cannot reserve a room for a date which has already occurred.
  445.     0R7S8S14S
  446. Keyarg
  447. CN=*/
  448. ResourceType
  449. Site"
  450. ResourceCategory"
  451. Site"
  452. ResNameCheck
  453. ResourceType
  454. Keyarg
  455. ResourceType
  456. StartDateTime
  457. EndDateTime
  458. Capacity
  459. Keyarg
  460. ResourceType
  461. StartDateTime
  462. EndDateTime
  463. ResNameCheckZ
  464. Error
  465. You received the following error when trying to find a room: 
  466. ResNameCheck"
  467. ResourceName
  468. ResNameCheck
  469.     0R1S
  470. ResourceName
  471. ResourceName
  472. No resource/room found for times and/or capacity requirements.
  473. ResourceName
  474.     0R1S
  475.     Find an Available Room...
  476. FindResourceStyle
  477. ResourceType
  478.     1S2S3S2E4S7S8S
  479. ResourceType
  480. Capacity
  481. Error
  482. You must enter the number of attendees before you can find a room.
  483. ReserveDate
  484. TimeRange
  485. Error
  486. You must enter a valid Date and/or Time before you can find an available resource.
  487. ResourceCategory
  488. Error
  489. You must choose a Resource Category.  If one is not available, there may be no resources available for the selected site.
  490.     5S6S25S26S30S
  491. StartDateTime
  492. Error
  493. You cannot reserve a room for a date which has already occurred.
  494.     0R7S8S14S
  495. Keyarg
  496. CN=*/
  497. ResourceType
  498. Site"
  499. ResourceCategory"
  500. Site"
  501. ResNameCheck
  502. ResourceType
  503. Keyarg
  504. ResourceType
  505. StartDateTime
  506. EndDateTime
  507. Capacity
  508. Keyarg
  509. ResourceType
  510. StartDateTime
  511. EndDateTime
  512. ResNameCheckZ
  513. Error
  514. You received the following error when trying to find a resource: 
  515. ResNameCheck"
  516. ResourceName
  517. ResNameCheck
  518.     0R1S
  519. ResourceName
  520. ResourceName
  521. No resource/room found for times and/or capacity requirements.
  522. ResourceName
  523.     0R1S
  524.     Find an Available Resource
  525. FindResourceStyle
  526.     0S0E
  527. ResourceType
  528. ResourceName
  529. FindResourceStyle
  530.     3S4S7S8S9S11RS12S
  531.     Resource:
  532. ResourceType
  533. ResourceName
  534. FindResourceStyle
  535.     4S9S11S12S
  536.     Room:
  537. ResourceName
  538. FindResourceStyle
  539.     3S4S5S7S2E8S
  540. ResourceName
  541. ResourceNameDisplay
  542. ResourceType
  543. FindResourceStyle
  544.     3S4S5S7S8S11S12S
  545.     3.  
  546. s@IsDocBeingEdited
  547. You may only use this button when you are in Edit Mode.
  548.     0S0E
  549. ResourceNameSpecific
  550. ($Rooms)
  551. Rooms
  552. Choose a room to reserve:
  553.     0R1S
  554.     0R1S
  555.     Choose a Specific Room
  556. ResourceType
  557. FindResourceStyle
  558.     3S4S5S7S8S11S12S
  559.     3.  
  560. s@IsDocBeingEdited
  561. You may only use this button when you are in Edit Mode.
  562.     0S0E
  563. ResourceNameSpecific
  564. ($Resources)
  565. Resources
  566. Choose a resource to reserve:
  567.     0R1S
  568.     0R1S
  569.     Choose a Specific Resource
  570. FindResourceStyle
  571.     1S3S4S
  572.     0S0E
  573. StartDateTime
  574.     0S0E
  575. ReserveDateOption
  576. FindResourceStyle
  577. You must enter a valid Reservation date.{
  578.     5S6S9S10SReserveDateOption
  579. FindTimeFlag2
  580. EndDateTime
  581. StartDateTime
  582. Duration
  583.     0S0E
  584. Duration
  585. FindResourceStyle
  586. You must enter a valid duration before saving this reservation.
  587. Duration
  588. FindResourceStyle
  589. You cannot enter a duration greater then 24 hours.{
  590. Duration
  591. FindResourceStyle
  592. Invalid duration.  Duration must be greater than 0.
  593.     3S4S5S6S9S10S18S19S20S21S22S23S27S33S35S36S37S38SDuration
  594.     c. Duration:
  595.     4 a. Reservation date:
  596.     b. Duration:
  597.        b. Reservation date:
  598. ResourceType
  599. ResourceNameSpecific
  600.     3S4S7S8S
  601.     3. Room:
  602. ResourceType
  603. ResourceNameSpecific
  604.     3S4S8S
  605.        a. Room:
  606. ResourceType
  607. ResourceNameSpecific
  608.     3S4S
  609.     3. Resource:
  610. ResourceType
  611. ResourceNameSpecific
  612.     3S4S
  613.        a. Resource:
  614. ResourceNameSpecific
  615. ResourceNameSpecific
  616.     hours
  617. ReserveDateOption
  618. ReserveDateOptionDisplay
  619. Duration
  620. DurationDisplay
  621. FindResourceStyle
  622.     1S3S4S7S8S
  623. FindResourceStyle
  624.     1S3S4S8S
  625. Duration[
  626. Error
  627. You must enter a numeric value for the duration.
  628.     0S0E
  629. Duration
  630. Duration
  631. Error
  632. You must enter a valid duration before being able to find a time.
  633. Duration
  634. Error
  635. You cannot enter a duration greater then 24 hours.
  636. Duration
  637. Error
  638. Error: Invalid duration.  Duration must be greater than 0.
  639.     0R19S20S24S37S40S
  640. FindTimeFlag
  641.     0R1S
  642. StartDateTime
  643. ReserveDateOption
  644.     0R1S9S12S
  645. EndDateTime
  646. StartDateTime
  647.     0R1S
  648. ResourceNameSpecific
  649. Error
  650. You must choose a room or resource before being able to find a time.
  651. ResourceType
  652. ResourceNameSpecific
  653. StartDateTime
  654. EndDateTime
  655. ResourceNameSpecific
  656. StartDateTime
  657. EndDateTime
  658.     0RRR29R
  659. FindTimeFlag2
  660.     0R1S
  661.     Find an Available Time
  662. FindResourceStyle
  663.     1S3S4S7S8S
  664. Duration[
  665. Error
  666. You must enter a numeric value for the duration.
  667.     0S0E
  668. Duration
  669. Duration
  670. Error
  671. You must enter a valid duration before being able to find a time.
  672. Duration
  673. Error
  674. You cannot enter a duration greater then 24 hours.
  675. Duration
  676. Error
  677. Error: Invalid duration.  Duration must be greater than 0.
  678.     0R19S20S24S37S40S
  679. FindTimeFlag
  680.     0R1S
  681. StartDateTime
  682. ReserveDateOption
  683.  12:00:01 AM"
  684.     0R1S9S10S
  685. EndDateTime
  686. StartDateTime
  687.     0R1S
  688. ResourceNameSpecific
  689. Error
  690. You must choose a room or resource before being able to find a time.
  691. ResourceType
  692. ResourceNameSpecific
  693. StartDateTime
  694. EndDateTime
  695. ResourceNameSpecific
  696. StartDateTime
  697. EndDateTime
  698.     0RRR29R
  699. FindTimeFlag2
  700.     0R1S
  701.     Find New Time
  702. FindResourceStyle
  703.     0S0E
  704. OptimalStartTime
  705. FindResourceStyle
  706.     3S4S
  707.     Time:
  708. FindTimeFlag
  709. StartDateTime
  710. EndDateTime
  711.     16S17S18S19S
  712. OptimalStartTime
  713.     0S0E
  714. FindResourceStyle
  715.     0S0E
  716. Purpose
  717.     Purpose (optional):
  718.     StartDateTime:
  719. StartTime
  720. TimeRange
  721.     0S0E
  722. FindTimeFlag
  723. StartDateTime
  724. FindResourceStyle
  725. ReserveDate
  726. StartTime
  727. ReserveDateOption
  728.     0R23S34S35SStartDateTime
  729.     EndDateTime:
  730. EndTime
  731. TimeRange
  732.     0S0E
  733. FindTimeFlag
  734. EndDateTime
  735. FindResourceStyle
  736. ReserveDate
  737. EndTime
  738. StartDateTime
  739. Duration
  740.     0R23SEndDateTime
  741.     Author:
  742. Author
  743. FindResourceStyle
  744. ResourceName
  745. ResourceNameSpecific
  746.     0S0E
  747. $BusyName
  748. FindResourceStyle
  749. ResourceName
  750. ResourceNameSpecific
  751.     0S0E
  752. ResourceName
  753. Close
  754.     0S0E
  755. _Edit Reservation
  756. Save 
  757. ResourceName
  758. $BusyName
  759. Error
  760. You must completely fill out a reservation before saving it.
  761. Error
  762. You must correct any errors prior to saving.
  763. FindResourceStyle
  764. FindResourceStyle
  765. Error
  766. You must completely fill out a reservation before saving it.
  767.     5S6S25S39S41S42S46S47S49S51S52S
  768. Categori_zeK
  769. Send Docu_ment
  770. _Forward
  771. _Move To Folder...
  772. _Remove From FolderK
  773. O=Lotus Notes
  774. O=Lotus Notes
  775. PURSAFO
  776. |.:#U
  777. O=Lotus Notes
  778. CN=Lotus Notes Template Development/O=Lotus Notes
  779. PURSAFO
  780. Fde!f^^
  781. t>BmV
  782. StartTime
  783. EndTime
  784. OptimalStartTime1
  785. $TITLE
  786. $Info
  787. $WindowTitle
  788. $Script
  789. $$Script_O
  790. $$ScriptName
  791. $$FormScript
  792. $$$FormScript_O
  793. ReserveDate
  794. TimeRange
  795. Capacity
  796. ReserveDateOption
  797. Duration
  798. OptimalStartTime
  799. StartDateTime
  800. EndDateTime
  801. $Body
  802. $ACTIONS
  803. O=Lotus Notes
  804. O=Lotus Notes
  805. PURSAFO
  806. |.:#U
  807. O=Lotus Notes
  808. CN=Lotus Notes Template Development/O=Lotus Notes
  809. PURSAFO
  810. Fde!f^^
  811. $TITLE
  812. $Index
  813. $Formula
  814. $FormulaClass
  815. $ViewFormat
  816. $Comment
  817. SitesZ
  818. SiteResDomain$Conflict$REF
  819. SiteProfile
  820.     L1S1
  821. SiteSite NameResDomainDomain&
  822. Reservation
  823. Notice
  824.     8S9S11S12S16S
  825. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  826. ##########################################################
  827. ($Calendar)
  828. ResourceName
  829. StartDateTimeStartDateTimeEndDateTime$20$Conflict$REF
  830. Reservation
  831.     1S2S
  832. StartDateTime
  833. StartDateTime$9
  834. StartDateTimeStart$17-
  835. -EndDateTimeEnd$20Resource<
  836. ResourceName
  837. Reservation
  838. Notice
  839.     8S9S11S12S16SPYc
  840. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  841. ($Resources)^
  842. ResourceName
  843.     0S0E
  844. ResourceName
  845.     0S0E
  846. ResourceName
  847.     0S0E
  848. ResourceName
  849.     0S0E
  850. $5ResourceName$6$6$4ResourceDescription$Conflict$REF
  851. Resource
  852. ResourceType
  853.     L1S4S5S1*
  854. $5$6$6$4
  855. ResourceName
  856.     0S0E
  857. ResourceName$64
  858. ResourceName
  859.     0S0E
  860. ResourceName
  861.     0S0E
  862. $4Resource4
  863. ResourceName
  864.     0S0E
  865. ResourceDescriptionDescription&
  866. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  867. 'ch*CE
  868. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  869. ##########################################################
  870. ##########################################################
  871. ##########################################################
  872.     0S0E
  873. Create Site Profile
  874. SiteProfile
  875.     0S0E
  876. [CreateResource]u
  877. Delete Site Profile
  878.     0S0E
  879.     0S0E
  880. Create Resource
  881. Resource
  882.     0S0E
  883. [CreateResource]u
  884. Create Reservation0
  885. Reservation
  886.     0S0E
  887.     4S5S
  888. Create Mail-in Reservation*
  889. Notice
  890.     0S0E
  891.     4S5S
  892. Categori_ze 
  893. _Edit Document
  894. Send Docu_ment    
  895. _Forward
  896. _Move To Folder...
  897. _Remove From Folder
  898. O=Lotus Notes
  899. O=Lotus Notes
  900. PURSAFO
  901. |.:#U
  902. O=Lotus Notes
  903. CN=Lotus Notes Template Development/O=Lotus Notes
  904. PURSAFO
  905. Fde!f^^
  906. *_u-[I
  907. $TITLE
  908. $Index
  909. $Formula
  910. $FormulaClass
  911. $ViewFormat
  912. $FormFormula
  913. $Comment
  914. $ACTIONS
  915. O=Lotus Notes
  916. O=Lotus Notes
  917. PURSAFO
  918. |.:#U
  919. O=Lotus Notes
  920. CN=Lotus Notes Template Development/O=Lotus Notes
  921. PURSAFO
  922. Fde!f^^
  923. "MKMd!
  924. $TITLE
  925. $Index
  926. $Formula
  927. $FormulaClass
  928. $ViewFormat
  929. $Comment
  930. Categori_zev
  931. _Edit Document
  932. Send Docu_ment
  933. _Forward
  934. _Move To Folder...
  935. _Remove From Folder
  936. Create Reservation0
  937. Reservation
  938.     0S0E
  939. Go To Today
  940.     0S0E
  941. Two DayF&
  942.     0S0E
  943. One Week&
  944.     0S0E
  945. Two Weeks
  946.     0S0E
  947. One Month
  948.     0S0E
  949. '++LotusScript Development Environment:2:5:(Options):0:74
  950. Option Public
  951. '++LotusScript Development Environment:2:5:(Forward):0:1
  952. '++LotusScript Development Environment:2:5:(Declarations):0:2
  953. '++LotusScript Development Environment:2:5:(Options):0:66
  954. '++LotusScript Development Environment:2:5:(Forward):0:1
  955. Declare Sub Regiondoubleclick(Source As Notesuiview)
  956. '++LotusScript Development Environment:2:5:(Declarations):0:2
  957. '++LotusScript Development Environment:2:2:BindEvents:1:129
  958. Private Sub BindEvents(Byval Objectname_ As String)
  959.      Static Source As NOTESUIVIEW
  960.      Set Source = Bind(Objectname_)
  961.      On Event Regiondoubleclick From Source Call Regiondoubleclick
  962. End Sub
  963. '++LotusScript Development Environment:2:2:Regiondoubleclick:1:12
  964. Sub Regiondoubleclick(Source As Notesuiview)
  965.      Dim db As NotesDatabase   
  966.      Set uiview = source
  967.      Set session = New NotesSession   
  968.      Set ws = New NotesUIWorkspace
  969.      Set db = session.CurrentDatabase
  970.      
  971.      If source.CalendarDateTime <> "" Then
  972.           Call ws.ComposeDocument("", "", "Reservation")
  973.      End If
  974. End Sub
  975. O=Lotus Notes
  976. O=Lotus Notes
  977. PURSAFO
  978. |.:#U
  979. O=Lotus Notes
  980. CN=Lotus Notes Template Development/O=Lotus Notes
  981. PURSAFO
  982. Fde!f^^
  983. 6z}}Q[
  984. ~*    S,
  985. $TITLE
  986. $Index
  987. $Formula
  988. $FormulaClass
  989. $ViewFormat
  990. $CalendarFormat
  991. $FormFormula
  992. $Comment
  993. $ACTIONS
  994. $ViewGlobalScript
  995. $ViewGlobalScript_O
  996. $ViewScript
  997. $ViewScript_O
  998. Times New Roman
  999. Site Profile
  1000. '++LotusScript Development Environment:2:5:(Options):0:66
  1001. Option Public
  1002. '++LotusScript Development Environment:2:5:(Forward):0:1
  1003. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1004. %INCLUDE "lsconst.lss"
  1005. Dim s As NotesSession
  1006. Dim w As NotesUIWorkspace
  1007. Dim db As NotesDatabase
  1008. Dim view As NotesView
  1009. Dim note As NotesDocument
  1010. Dim profile As NotesDocument
  1011. Dim doc As NotesUIDocument
  1012. Dim DocWasSaved As Integer
  1013. Dim DoNotClose As Variant
  1014.  SiteProfile'++LotusScript Development Environment:2:5:(Options):0:66
  1015. '++LotusScript Development Environment:2:5:(Forward):0:1
  1016. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1017. Declare Sub Postopen(Source As Notesuidocument)
  1018. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1019. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1020. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1021. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1022. Private Sub BindEvents(Byval Objectname_ As String)
  1023.      Static Source As NOTESUIDOCUMENT
  1024.      Set Source = Bind(Objectname_)
  1025.      On Event Queryclose From Source Call Queryclose
  1026.      On Event Postopen From Source Call Postopen
  1027.      On Event Queryopen From Source Call Queryopen
  1028.      On Event Querymodechange From Source Call Querymodechange
  1029. End Sub
  1030. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1031. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1032.      
  1033. End Sub
  1034. '++LotusScript Development Environment:2:2:Postopen:1:12
  1035. Sub Postopen(Source As Notesuidocument)
  1036.      
  1037. End Sub
  1038. '++LotusScript Development Environment:2:2:Queryopen:1:12
  1039. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1040.      Dim session As New Notessession     
  1041.      Dim db As NotesDatabase
  1042.      Set db=session.currentdatabase
  1043.      
  1044.      If mode = 1 And source.isnewdoc And db.server = "" Then 
  1045.           Messagebox  "You cannot create a site profile locally.  Site profiles must be created on the server.", 0, "Error"
  1046.           Continue = False
  1047.      End If     
  1048.      
  1049.      If mode = 1 And Not source.isnewdoc Then 
  1050.           Messagebox "Site Profiles cannot be edited.", 0, "Error"
  1051.           Continue = False
  1052.      End If
  1053.      
  1054. End Sub
  1055. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  1056. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1057.      If source.isnewdoc Then
  1058.           Exit Sub
  1059.      Else
  1060.           Messagebox ( "The Site Profile cannot be edited.")
  1061.           Continue = False          
  1062.      End If
  1063.      
  1064. End Sub
  1065. AutoProcessReservations
  1066. AutoProcessReservations
  1067. Purge Documents (Auto)
  1068. -3 Worksheet
  1069. PCX Image
  1070. .WPT;*.DOC
  1071. orksheet
  1072. orksheet
  1073. Site Profile 
  1074.     Site name:
  1075.     0S0E
  1076. Error:  Site names cannot contain backslashes '\' or forwardslashes '/'
  1077.     8S9S
  1078. LList
  1079. NoCache
  1080. ($Sites)
  1081. RList
  1082. NoCache
  1083. names.nsf
  1084. ($Rooms)
  1085. NoCache
  1086. names.nsf
  1087. ($Resources)
  1088. SList
  1089. LList
  1090. RList
  1091. You must enter a Site name before saving this document.
  1092. Site names must be greater than 2 characters in length.
  1093. Site names cannot be longer than 30 characters.  You currently have 
  1094. Siteb
  1095. SList
  1096. The Site name already has been defined.  Site names must be unique.
  1097.     0R17S29S36SSiteRecognizable name for the location of this database (30 char. limit)
  1098.     Domain name:            
  1099. ResDomain
  1100. You must supply the domain name of the server where this Reservations database exists.{
  1101.     0S0E
  1102. ResDomain
  1103.     6S7S
  1104.     Resource Reservation server:
  1105.     0S0E
  1106. ResServer
  1107.     Resource Reservation filename:
  1108.     0S0E
  1109. ResFilename
  1110. CloseR 
  1111.     0S0E
  1112. Save Profile 
  1113.     0S0E
  1114. Categori_zeo
  1115. _Edit Document
  1116. Send Docu_ment
  1117. _Forward
  1118. _Move to Folder...
  1119. _Remove from Folder
  1120. O=Lotus Notes
  1121. O=Lotus Notes
  1122. PURSAFO
  1123. |.:#U
  1124. O=Lotus Notes
  1125. CN=Lotus Notes Template Development/O=Lotus Notes
  1126. PURSAFO
  1127. Fde!f^^
  1128. \P1sj
  1129. %7g>t
  1130. DocLife
  1131. ArchiveDate
  1132. ObsoleteLife
  1133. $ManualArchivers_O
  1134. ExpiredLife
  1135. DocumentLife
  1136. $TITLE
  1137. $FormUsers
  1138. $Info
  1139. $WindowTitle
  1140. $Script
  1141. $$Script_O
  1142. $$ScriptName
  1143. $$FormScript
  1144. $$$FormScript_O
  1145. $$FormAction6
  1146. $Body
  1147. $ACTIONS
  1148. ($RLookup)T
  1149. ResourceName$Conflict$REF
  1150. Resource
  1151.     L1S1
  1152. ResourceName
  1153. ResourceNameResourceName&
  1154. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
  1155. Reservations By Date|ResByDate
  1156. StartDateTime
  1157.     0S0E
  1158. StartDateTime
  1159. StartDateTime
  1160. Sunday
  1161. Monday
  1162. Tuesday
  1163. Wednesday
  1164. Thursday
  1165. Friday
  1166. Saturdayw
  1167.     7S8S9S
  1168. StartDateTime
  1169.     0S0E
  1170. EndDateTime
  1171.     0S0E
  1172. ResourceName
  1173.     0S0E
  1174. ReservedBy
  1175.     0S0E
  1176. $14$20$15$16$17$18PhoneNumber$Conflict$REF
  1177. Reservation
  1178.     L1S1$
  1179. $14$20$15p
  1180. Reservation
  1181. Notice
  1182.     8S9S11S12S16SY
  1183. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  1184. Reservations By Resource|ResByResource
  1185. ResourceName
  1186. ResourceType
  1187.  (Room)
  1188.  (Resource)
  1189.     6S7S
  1190. StartDateTime
  1191.     0S0E
  1192. StartDateTime
  1193.     0S0E
  1194. EndDateTime
  1195.     0S0E
  1196. ReservedBy
  1197.     0S0E
  1198. $97$94$89$90$92PhoneNumber$Conflict
  1199. Reservation
  1200. $97$94$89
  1201. ResourceName
  1202. ResourceType
  1203.  (Room)
  1204.  (Resource)
  1205.     6S7S
  1206. $94Date.
  1207. StartDateTime
  1208.     0S0E
  1209. $89Start Time.
  1210. StartDateTime
  1211.     0S0E
  1212. -$90End Time,
  1213. EndDateTime
  1214.     0S0E
  1215. $92Reserved For4
  1216. ReservedBy
  1217.     0S0E
  1218. PhoneNumberPhone&
  1219. Reservation
  1220. Notice
  1221.     8S9S11S12S16SY
  1222. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
  1223. ($CLookup)
  1224. ResourceName
  1225.     0S0E
  1226. $1$Conflict$REF
  1227. Resource
  1228. ResourceType
  1229.     L1S4S5S1
  1230. $1ResourceCategory4
  1231. ResourceName
  1232.     0S0E
  1233. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
  1234. O=Lotus Notes
  1235. O=Lotus Notes
  1236. PURSAFO
  1237. |.:#U
  1238. O=Lotus Notes
  1239. CN=Lotus Notes Template Development/O=Lotus Notes
  1240. PURSAFO
  1241. Fde!f^^
  1242. $Index
  1243. $Formula
  1244. $FormulaClass
  1245. $ViewFormat
  1246. $Comment
  1247. StartDateTime
  1248.     0S0E
  1249. $20Date
  1250. StartDateTime
  1251. StartDateTime
  1252. Sunday
  1253. Monday
  1254. Tuesday
  1255. Wednesday
  1256. Thursday
  1257. Friday
  1258. Saturdayw
  1259.     7S8S9S
  1260. $15Start Time.
  1261. StartDateTime
  1262.     0S0E
  1263. -$16End Time,
  1264. EndDateTime
  1265.     0S0E
  1266. $17Resource6
  1267. ResourceName
  1268.     0S0E
  1269. $18Reserved For4
  1270. ReservedBy
  1271.     0S0E
  1272. PhoneNumberPhone&
  1273. Categori_zey
  1274. _Edit Document
  1275. Send Docu_ment
  1276. _Forward
  1277.     0S0E
  1278. Create Site Profile
  1279. SiteProfile
  1280.     0S0E
  1281. [CreateResource]u
  1282. Create Resourcen,
  1283. Resource
  1284.     0S0E
  1285. [CreateResource]u
  1286. Create Reservation0
  1287. Reservation
  1288.     0S0E
  1289.     4S5S
  1290. Delete Reservation
  1291. Server
  1292.     1S2S6S
  1293.     0R1S2S6S
  1294. Server
  1295.     0R7S8S11S13S14S15S16S17S18S
  1296. _Move to Folder...
  1297. _Remove from Folder...
  1298. Create Mail-in Reservation*
  1299. Notice
  1300.     0S0E
  1301.     4S5S
  1302. O=Lotus Notes
  1303. O=Lotus Notes
  1304. PURSAFO
  1305. |.:#U
  1306. O=Lotus Notes
  1307. CN=Lotus Notes Template Development/O=Lotus Notes
  1308. PURSAFO
  1309. Fde!f^^
  1310. $TITLE
  1311. $Index
  1312. $Formula
  1313. $FormulaClass
  1314. $ViewFormat
  1315. $FormFormula
  1316. $Comment
  1317. $ACTIONS
  1318. $ViewGlobalScript_O
  1319. FormReservation
  1320. Categori_ze
  1321. _Edit Document
  1322. Send Docu_ment
  1323. _Forward
  1324.     0S0E
  1325. Create Site Profile
  1326. SiteProfile
  1327.     0S0E
  1328. [CreateResource]u
  1329. Create Resource
  1330. Resource
  1331.     0S0E
  1332. [CreateResource]u
  1333. Create Reservation0
  1334. Reservation
  1335.     0S0E
  1336.     4S5S
  1337. Delete Reservation
  1338. Server
  1339.     1S2S6S
  1340.     0R1S2S6S
  1341. Server
  1342.     0R7S8S11S13S14S15S16S17S18S
  1343. _Move to Folder...
  1344. _Remove from Folder...
  1345. Create Mail-in Reservation*
  1346. Notice
  1347.     0S0E
  1348.     4S5S
  1349. '++LotusScript Development Environment:2:5:(Options):0:74
  1350. Option Public
  1351. '++LotusScript Development Environment:2:5:(Forward):0:1
  1352. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1353. O=Lotus Notes
  1354. O=Lotus Notes
  1355. PURSAFO
  1356. |.:#U
  1357. O=Lotus Notes
  1358. CN=Lotus Notes Template Development/O=Lotus Notes
  1359. PURSAFO
  1360. Fde!f^^
  1361. $TITLE
  1362. $Index
  1363. $Formula
  1364. $FormulaClass
  1365. $SelQuery
  1366. $ViewFormat
  1367. $FormFormula
  1368. $Comment
  1369. $ACTIONS
  1370. $ViewGlobalScript
  1371. $ViewGlobalScript_O
  1372. ResourcesR
  1373. ResourceName
  1374.     0S0E
  1375. ResourceName
  1376.     0S0E
  1377. ResourceName
  1378.     0S0E
  1379. $1$2$3ResourceDescription$Conflict$REF
  1380. Resource
  1381.     L1S1
  1382. $1Name4
  1383. ResourceName
  1384.     0S0E
  1385. $2Resource Category
  1386. ResourceName
  1387.     0S0E
  1388. $3Site4
  1389. ResourceName
  1390.     0S0E
  1391. ResourceDescriptionDescription&
  1392. Reservation
  1393. Notice
  1394.     8S9S11S12S16SY
  1395. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  1396. ($Reservations)0
  1397. ResourceName
  1398.     0S0E
  1399. ReservedBy
  1400.     0S0E
  1401.     0S0E
  1402. StartDateTime
  1403. D0T1V
  1404. EndDateTime
  1405. S1T1V
  1406.     6S7S8S
  1407. $2$1$3$7$Conflict$REF
  1408. Reservation
  1409.     L1S1
  1410. $2ResourceName4
  1411. ResourceName
  1412.     0S0E
  1413. $1ReservedBy2
  1414. ReservedBy
  1415.     0S0E
  1416. $3UNID
  1417.     0S0E
  1418. $7ReservationTimes\
  1419. StartDateTime
  1420. D0T1V
  1421. EndDateTime
  1422. S1T1V
  1423.     6S7S8S
  1424. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
  1425. ($Categories)
  1426. ResourceName
  1427.     0S0E
  1428. ResourceName
  1429.     0S0E
  1430. $2$1$Conflict$REF
  1431. Resource
  1432. ResourceType
  1433.     L1S4S5S1
  1434. $2Site4
  1435. ResourceName
  1436.     0S0E
  1437. $1ResourceCategory4
  1438. ResourceName
  1439.     0S0E
  1440. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
  1441. }GRDO
  1442. Purge Documents (Auto)
  1443. Delete documents older than 2 days1Sf3
  1444. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1445. ####################################################
  1446. ##########################################################
  1447.     0S0E
  1448. Create Site Profile
  1449. SiteProfile
  1450.     0S0E
  1451. [CreateResource]u
  1452. Create Resource
  1453. Resource
  1454.     0S0E
  1455. [CreateResource]u
  1456. Create Reservation0
  1457. Reservation
  1458.     0S0E
  1459.     4S5S
  1460. Create Mail-in Reservation*
  1461. Notice
  1462.     0S0E
  1463.     4S5S
  1464. Categori_ze
  1465. _Edit Document
  1466. Send Docu_ment
  1467. _Forward    
  1468. _Move To Folder...
  1469. _Remove From Folder
  1470. O=Lotus Notes
  1471. O=Lotus Notes
  1472. PURSAFO
  1473. |.:#U
  1474. O=Lotus Notes
  1475. CN=Lotus Notes Template Development/O=Lotus Notes
  1476. PURSAFO
  1477. Fde!f^^
  1478. $TITLE
  1479. $Index
  1480. $Formula
  1481. $FormulaClass
  1482. $ViewFormat
  1483. $FormFormula
  1484. $Comment
  1485. $ACTIONS
  1486. Using Resource Reservations
  1487. _ITIFF
  1488.     To describe a resource:
  1489.     To manage resources, switch to the Resources view. There you will see resource names and descriptions listed alphabetically. To create or delete a resource, use the action buttons:
  1490.     Create Resource and Delete Resource.  
  1491.     Note:
  1492.     In order to create a resource, you must be assigned the [CreateResource] role in the Access Control List.
  1493.     To reserve a Resource:
  1494.             To reserve a resource, use the Create Reservation button to bring up a new reservation form. Follow the instructions on that form to create a new reservation.
  1495.     To clean up old reservations:
  1496.     Enable the Purge Documents agent found in the Agent window by clicking View-->Agents, selecting the Purge Documents agent, and then clicking Actions-->Enable.  This agent will delete reservations with a reservation date that is more than two days old.
  1497.     To set up and administer the Resource Reservation database:
  1498.     Create Site Profile(s): 
  1499.        A Site Profile must be created before the Resource Reservation database can be used.  Only users with the [CreateResource] role can set up a Site Profile.  Select Actions, Create Site Profile and enter the name for the site.  Verify that the Domain field correctly names the domain where the Resource Reservations database exists. 
  1500.     Warning:
  1501.       Due to Calendaring & Scheduling, this name cannot be changed.  Once a Site Profile is created and saved, you can only view the site names in the Sites view. 
  1502.     If you wish to change the name, the Site Profile must be deleted first; and a new Site Profile can then be created in its place. Note that before you can delete a Site Profile, all resources which are created using the Site Name must be deleted from the database and the Public Address Book before you can delete the Site Profile.
  1503.     AutoProcessingAgent and Purge Documents agent: 
  1504.     When creating the first Site Profile, you will be prompted to choose a server to run the AutoProcessingAgent and the Purge Documents agents.  The AutoProcessingAgent is critical for use when trying to reserve a resource from the Calendar Entry form in a user's mail file.   This agent must be enabled to ensure that user's can take advantage of this feature.  You should specify the server where the database is located.  The Purge Documents agent deletes reservations whose reservation date is over 2 days old.
  1505.     Create Resources:
  1506.       At least one resource must be created before users can create reservations.  Only users with the [CreateResource] role can create resources.  When you save the resource, the Admin Process will be initiated, and the resource information will be sent to the Public Name & Address book.
  1507.     Changing/Deleting Resources:
  1508.     The only information in an existing resource that can be changed is the Available Times and Other comments.  If you wish to change any other information in a resource like the name,
  1509.     the resource must be deleted first; and a new resource can then be created in its place.  Click the Delete Resource action to delete resources.  Do NOT use the delete key.  It is crucial that you use the Delete Resource action, as this tells the Admin Process to remove the resource from the Public Name & Address Book. 
  1510.     When a resource is deleted from the Resource Reservations database a request is submitted to the Administration Requests (R4.5) database on your server.  To submit this request, you need to have Author access and "Create documents" in the  Access Control List of the Administration Requests database. The administrator of your Public Name and Address Book will approve the request and the resource will be deleted.  Note: Notification will be sent to people with outstanding reservations for the deleted resource and those outstanding reservations will be removed from the Resource Reservations database.
  1511.     Warning:
  1512.     It is strongly recommended that you do not replicate the Resource Reservations database to other servers.  This may result in inadvertant reservation conflicts.
  1513. O=Lotus Notes
  1514. O=Lotus Notes
  1515. PURSAFO
  1516. |.:#U
  1517. O=Lotus Notes
  1518. CN=Lotus Notes Template Development/O=Lotus Notes
  1519. PURSAFO
  1520. Fde!f^^
  1521. $Info
  1522. $Body
  1523. Task List
  1524. &Switch To
  1525. About Resource Reservation Scheduler
  1526. _ITIFF
  1527.     What does this database do?
  1528.     The Resource Reservation Scheduler is an application designed to allow workgroups to schedule and reserve physical resources such as conference rooms or office equipment. 
  1529.     Where to find more information?
  1530.     More information can be found in the R4 help database, HELP.NSF.
  1531.     Access Control:
  1532.     The default access of a database created with this template is "Author".  There is a role called [Create Resource] in the access control list, which is associated with the "Resource" and "Site Profile" forms.  Database managers should assign this role to anyone who is authorized to create resources and sites in the database.
  1533. O=Lotus Notes
  1534. O=Lotus Notes
  1535. PURSAFO
  1536. |.:#U
  1537. O=Lotus Notes
  1538. CN=Lotus Notes Template Development/O=Lotus Notes
  1539. PURSAFO
  1540. Fde!f^^
  1541. $Info
  1542. $Body
  1543. O=Lotus Notes
  1544. O=Lotus Notes
  1545. PURSAFO
  1546. |.:#U
  1547. O=Lotus Notes
  1548. CN=Lotus Notes Template Development/O=Lotus Notes
  1549. PURSAFO
  1550. Fde!f^^
  1551. @gvGTWX
  1552. $TITLE
  1553. $Index
  1554. $Formula
  1555. $FormulaClass
  1556. $ViewFormat
  1557. $Comment
  1558. O=Lotus Notes
  1559. O=Lotus Notes
  1560. PURSAFO
  1561. |.:#U
  1562. O=Lotus Notes
  1563. CN=Lotus Notes Template Development/O=Lotus Notes
  1564. PURSAFO
  1565. Fde!f^^
  1566. $TITLE
  1567. $Index
  1568. $Formula
  1569. $FormulaClass
  1570. $ViewFormat
  1571. $Comment
  1572. ($ReservationConflicts)
  1573. ResourceName
  1574. StartDateTime
  1575. S0D0V
  1576.     6S7S8S9S
  1577. $102$Conflict
  1578. Reservation
  1579.     L1S1
  1580.  $102ResourceName`
  1581. ResourceName
  1582. StartDateTime
  1583. S0D0V
  1584.     6S7S8S9S
  1585. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  1586. ($FindReservation)$
  1587. ApptUNIDh
  1588. ApptUNID
  1589. ParentUNID
  1590.     1S2S
  1591. ResourceName
  1592.     0R1S2S3S4S
  1593. $2$Conflict$REF
  1594. Reservation
  1595. ParentUNIDh
  1596. ApptUNIDh
  1597.     L1S4S10S11S1
  1598. $2UNID+
  1599. ApptUNIDh
  1600. ApptUNID
  1601. ParentUNID
  1602.     1S2S
  1603. ResourceName
  1604.     0R1S2S3S4S
  1605. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  1606. ($Sites)|(Sites)`
  1607. FormSiteResDomain$Conflict$REF
  1608. SiteProfile
  1609.     L1S1
  1610. FormFormSiteSite NameResDomainDomain&
  1611. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
  1612. ResourceResource[CreateResource]
  1613. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1614. ##########################################################
  1615. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1616. Database Scriptt34Q1############################
  1617. Pre-4.5 ReservationNoticeCD
  1618. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  1619. (DeletePendingReservations)
  1620. EH4fL3
  1621. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes%
  1622. #######################################
  1623. Categori_zeK
  1624. _Edit Document
  1625. Send Docu_ment
  1626. _Forward
  1627.     0S0E
  1628. Create Site ProfileK0
  1629. SiteProfile
  1630.     0S0E
  1631. [CreateResource]u
  1632. Create ResourceK,
  1633. Resource
  1634.     0S0E
  1635. [CreateResource]u
  1636. Create Reservation0
  1637. Reservation
  1638.     0S0E
  1639. Delete Reservation
  1640. Server
  1641.     1S2S6S
  1642.     0R1S2S6S
  1643. Server
  1644.     0R7S8S11S13S14S15S16S17S18S
  1645. _Move to Folder...
  1646. _Remove from Folder...
  1647. Update Existing ReservationsF
  1648. (Site)
  1649. SiteProfile
  1650. Error
  1651. A Site Profile has not been created.  You must create a Site Profile before running this agent.
  1652. SiteProfile
  1653. (UpdateReservations)
  1654.     18RS8E20RS14E22RS16E31S37RS21E38RS21E
  1655.     0S0E
  1656. '++LotusScript Development Environment:2:5:(Options):0:74
  1657. Option Public
  1658. '++LotusScript Development Environment:2:5:(Forward):0:1
  1659. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1660. O=Lotus Notes
  1661. O=Lotus Notes
  1662. PURSAFO
  1663. |.:#U
  1664. O=Lotus Notes
  1665. CN=Lotus Notes Template Development/O=Lotus Notes
  1666. PURSAFO
  1667. Fde!f^^
  1668. $TITLE
  1669. $Index
  1670. $Formula
  1671. $FormulaClass
  1672. $ViewFormat
  1673. $Comment
  1674. $ACTIONS
  1675. $ViewGlobalScript
  1676. O=Lotus Notes
  1677. O=Lotus Notes
  1678. PURSAFO
  1679. |.:#U
  1680. O=Lotus Notes
  1681. CN=Lotus Notes Template Development/O=Lotus Notes
  1682. PURSAFO
  1683. Fde!f^^
  1684. $TITLE
  1685. $Index
  1686. $Formula
  1687. $FormulaClass
  1688. $ViewFormat
  1689. $Comment
  1690.     0S0E
  1691. Create Site ProfileK0
  1692. SiteProfile
  1693.     0S0E
  1694. [CreateResource]u
  1695. Create ResourceK,
  1696. Resource
  1697.     0S0E
  1698. [CreateResource]u
  1699. Create Reservation0
  1700. Reservation
  1701.     0S0E
  1702. Categori_zeK
  1703. _Edit Document
  1704. Send Docu_ment
  1705. _Forward
  1706. _Move To Folder...    
  1707. _Remove From FolderK
  1708. O=Lotus Notes
  1709. O=Lotus Notes
  1710. PURSAFO
  1711. |.:#U
  1712. O=Lotus Notes
  1713. CN=Lotus Notes Template Development/O=Lotus Notes
  1714. PURSAFO
  1715. Fde!f^^
  1716. /JJv]
  1717. $TITLE
  1718. $Index
  1719. $Formula
  1720. $FormulaClass
  1721. $ViewFormat
  1722. $Comment
  1723. $ACTIONS
  1724. ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$CollationIconBitmap$Flags$FlagsNoRefreshStartTimeEndTimeOptimalStartTime1$Fonts$TITLE$Info$WindowTitle$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OReservedByPhoneNumberStepResourceTypeFindResourceStyleReserveDateTimeRangeSiteCapacityResourceCategoryReserveDateOptionDurationResourceNameSpecificOptimalStartTimePurposeStartDateTimeEndDateTimeAuthor$BusyNameResourceName$Body$ACTIONS$$XMB$$XMB_2$$XMB_3$Licensee$Index$ViewFormat$Comment$FormFormula$CalendarFormat$ViewGlobalScript$ViewGlobalScript_O$ViewScript$ViewScript_ODocLifeArchiveDateObsoleteLife$ManualArchivers_OExpiredLifeDocumentLife$FormUsers$$FormAction6ResDomain$SelQuery$Collation1$Collation2SundayTimesMondayTimesTuesdayTimesWednesdayTimesThursdayTimesFridayTimesSaturdayTimes$1Times$2Times$3Times$4Times$5Times$6Times$7TimesCapacity_1CommonNameResourceNameSundayAvailable$Times1MondayAvailable$Times2TuesdayAvailable$Times3WednesdayAvailable$Times4ThursdayAvailable$Times5FridayAvailable$Times6SaturdayAvailable$Times7ResourceDescriptionOtherComments$AvailableDaysType$NameOwner$LeftToDo$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$DBScript$DBScript_O$PublicAccessChairOrgStateNoticeTypePre45SendToSaveOptionsRequestedRoomRequestedResource
  1725. New Resource
  1726. Resource: 
  1727. ResourceName
  1728.     0S0E
  1729. &Arial
  1730. '++LotusScript Development Environment:2:5:(Options):0:66
  1731. Option Public
  1732. '++LotusScript Development Environment:2:5:(Forward):0:1
  1733. Declare Sub Initialize
  1734. Declare Function IsValidDateRange(FieldName As String) As Integer
  1735. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1736. Dim uidoc As NotesUIDocument
  1737. Dim session As NotesSession
  1738. Dim trdr As NotesDateRange
  1739. Dim note As NotesDocument
  1740. Dim db As NotesDatabase
  1741. Dim ws As NotesUIWorkspace
  1742. '++LotusScript Development Environment:2:2:Initialize:1:10
  1743. Sub Initialize
  1744.      
  1745. End Sub
  1746. '++LotusScript Development Environment:2:1:IsValidDateRange:1:8
  1747. Function IsValidDateRange(FieldName As String) As Integer
  1748. 'returns true if the given date range is valid, false otherwise
  1749.      Dim datetime As String
  1750.      
  1751.      On Error Goto ErrorRoutine
  1752.      
  1753.      IsValidDateRange = True
  1754.      datetime = uidoc.FieldGetText(FieldName)
  1755.      trdr.Text = datetime
  1756.      If (trdr.StartDateTime.TimeDifference(trdr.EndDateTime) = 0) Then
  1757.           IsValidDateRange = False
  1758.           Exit Function
  1759.      End If
  1760.      Exit Function
  1761.      
  1762. ErrorRoutine:
  1763.      IsValidDateRange = False
  1764.      Exit Function
  1765. End Function
  1766.  Resource'++LotusScript Development Environment:2:5:(Options):0:66
  1767. '++LotusScript Development Environment:2:5:(Forward):0:1
  1768. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1769. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1770. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1771. Declare Sub Postmodechange(Source As Notesuidocument)
  1772. Declare Sub Postopen(Source As Notesuidocument)
  1773. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1774. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1775. Private Sub BindEvents(Byval Objectname_ As String)
  1776.      Static Source As NOTESUIDOCUMENT
  1777.      Set Source = Bind(Objectname_)
  1778.      On Event Queryopen From Source Call Queryopen
  1779.      On Event Querymodechange From Source Call Querymodechange
  1780.      On Event Querysave From Source Call Querysave
  1781.      On Event Postmodechange From Source Call Postmodechange
  1782.      On Event Postopen From Source Call Postopen
  1783. End Sub
  1784. '++LotusScript Development Environment:2:2:Queryopen:1:12
  1785. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1786.      Set session=New Notessession          
  1787.      Set db=session.currentdatabase
  1788.      
  1789.      If mode = 1 And source.isnewdoc And db.server = "" Then 
  1790.           Messagebox  "You cannot create a resource locally.  Resources must be created on the server.", 0, "Error"
  1791.           Continue = False
  1792.      End If
  1793. End Sub
  1794. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  1795. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1796.      
  1797. End Sub
  1798. '++LotusScript Development Environment:2:2:Querysave:1:12
  1799. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1800.      Set trdr = session.CreateDateRange
  1801.      
  1802.      If  note.ActionType(0) <> "SAVE" Then
  1803.           Messagebox "You must use the Done button to save this Resource.", 0, "Resources"
  1804.           Continue = False
  1805.           Exit Sub
  1806.      End If     
  1807.      
  1808.      
  1809.      If (note.SundayAvailable(0) = "1") Then
  1810.           If Not (IsValidDateRange("$Times1")) Then
  1811.                Messagebox "You must enter a valid date-range for Sunday.",0,"Error"
  1812.                continue = False
  1813.                Exit Sub      
  1814.           End If
  1815.      End If
  1816.      
  1817.      If (note.mondayAvailable(0) = "2") Then
  1818.           If Not (IsValidDateRange("$Times2")) Then
  1819.                Messagebox "You must enter a valid date-range for Monday.",0,"Error"
  1820.                continue = False
  1821.                Exit Sub      
  1822.           End If
  1823.      End If
  1824.      
  1825.      If (note.tuesdayAvailable(0) = "3") Then
  1826.           If Not (IsValidDateRange("$Times3")) Then
  1827.                Messagebox "You must enter a valid date-range for Tuesday.",0,"Error"
  1828.                continue = False
  1829.                Exit Sub      
  1830.           End If
  1831.      End If
  1832.      
  1833.      If (note.WednesdayAvailable(0) = "4") Then
  1834.           If Not (IsValidDateRange("$Times4")) Then
  1835.                Messagebox "You must enter a valid date-range for Wednesday.",0,"Error"
  1836.                continue = False
  1837.                Exit Sub      
  1838.           End If
  1839.      End If
  1840.      
  1841.      If (note.ThursdayAvailable(0) = "5") Then
  1842.           If Not (IsValidDateRange("$Times5")) Then
  1843.                Messagebox "You must enter a valid date-range for Thursday.",0,"Error"
  1844.                continue = False
  1845.                Exit Sub      
  1846.           End If
  1847.      End If
  1848.      
  1849.      If (note.FridayAvailable(0) = "6") Then
  1850.           If Not (IsValidDateRange("$Times7")) Then
  1851.                Messagebox "You must enter a valid date-range for Friday.",0,"Error"
  1852.                continue = False
  1853.                Exit Sub      
  1854.           End If
  1855.      End If
  1856.      
  1857.      If (note.SaturdayAvailable(0) = "7") Then
  1858.           If Not (IsValidDateRange("$Times7")) Then
  1859.                Messagebox "You must enter a valid date-range for Saturday.",0,"Error"
  1860.                continue = False
  1861.                Exit Sub      
  1862.           End If
  1863.      End If
  1864.      
  1865. End Sub
  1866. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  1867. Sub Postmodechange(Source As Notesuidocument)
  1868.      
  1869. End Sub
  1870. '++LotusScript Development Environment:2:2:Postopen:1:12
  1871. Sub Postopen(Source As Notesuidocument)
  1872.      Dim x As Variant
  1873.      
  1874.      Set ws = New NotesUIWorkspace
  1875.      Set uidoc = source
  1876.      Set note= uidoc.document
  1877.      
  1878.      x=Evaluate(|@DbColumn("":"NoCache";"";"Sites";1)|)
  1879.      
  1880.      If x(0)="" Then
  1881.           Messagebox "You must create a Site Profile before creating a resource.",0,"No Site Profiles"
  1882.           ws.ComposeDocument "SiteProfile"
  1883.      End If
  1884.      
  1885. End Sub
  1886. )p    }$
  1887. )p    }h
  1888. )p    }d
  1889. )p    }d
  1890. NoCache
  1891. Sites
  1892.     0S0E
  1893.  @  @@ @` @
  1894. @@ @@@@@`@@
  1895. `@ `@@`@``@
  1896. Resource
  1897. ResourceTypeX
  1898. Resourcew
  1899.     0S0E
  1900. ResourceTypeDisplay
  1901.     2S3S
  1902. ResourceType
  1903. Room|1Other|2
  1904. CommonNameResourceName^
  1905.     0S0E
  1906. CommonNameResourceName
  1907. You must fill in a valid Resource Name before saving.
  1908. CommonNameResourceName
  1909. CommonNameResourceName
  1910. Resource names cannot contain backslashes '\' or forwardslashes '/'.{
  1911. ResourceType
  1912. ResourceCategory^
  1913. You must enter a valid Resource Category.
  1914.     6S19S20S35S36S40S41S48RS6E
  1915. CommonNameResourceName
  1916. CommonNameResourceName
  1917. ResourceType
  1918. ResourceCategory
  1919. Site"
  1920.     15S16S
  1921. ResourceName
  1922. ResourceType
  1923. ResourceType
  1924.     0R3S4S7S8S
  1925. NoCache
  1926. ($CLookup)
  1927.     0S0E
  1928. NewCat
  1929. Choose Resource Category
  1930. Please choose a category from the list below or enter a new category for this resource:
  1931. ResourceCategory
  1932. ResourceCategory
  1933. NewCat
  1934. NewCat
  1935. Error
  1936. Category names cannot contain forward slashes '/' or backslashes '\'.  Please reenter a new category name.
  1937.     0R8S9S
  1938. ResourceCategory
  1939. NewCat
  1940.     0R1S
  1941.     Category...
  1942. ResourceType
  1943. ResourceType
  1944.     0R3S4S7S8S
  1945. Capacity
  1946. ResourceType
  1947.     0S0E
  1948. ResourceCategory
  1949. ResourceCategoryDisplay
  1950. NoCache
  1951. ($Sites)
  1952.     0S0E
  1953.     0R3S4S6S7S16S17S
  1954. (Sites)
  1955. Site List
  1956. Please choose a site for this resource:
  1957.     Site...
  1958. NoCache
  1959. ($Sites)
  1960.     0S0E
  1961.     0R13S14S
  1962. ResourceType
  1963. ResourceType
  1964.     Capacity:
  1965. ResourceType
  1966. ResourceType
  1967.     0R4S
  1968.     Category:
  1969.     Resource type:
  1970.     Name:
  1971. ResourceType
  1972.     1S2S
  1973. Capacity
  1974. CapacityDisplay
  1975. NoCache
  1976. ($Sites)
  1977.     0S0E
  1978.     0R9S10S12S13S
  1979.     Site:
  1980. __________________________________________________________________________________
  1981.     0S0E
  1982. SundayAvailable
  1983. Sunday:|1
  1984. SundayAvailable
  1985.     0S0E
  1986. textdate
  1987. $Times1
  1988.     0S0E
  1989. list1
  1990. textdate
  1991. list2
  1992. textdate
  1993. date1
  1994. list1
  1995. date2
  1996. list2
  1997. result
  1998. date2
  1999. date1
  2000. $Times1
  2001. result
  2002. result
  2003. Invalid time range for Sunday.  Ranges may not span days.
  2004. You have entered an invalid time for Sunday.{
  2005.     0R7R11S12S14S15S17S18S
  2006. $Times1
  2007. SundayAvailable
  2008.     0S0E
  2009. $Times1
  2010. $Times1Display
  2011. MondayAvailable
  2012. Monday:|2
  2013. MondayAvailable
  2014.     0S0E
  2015. textdate
  2016. $Times2
  2017.     0S0E
  2018. list1
  2019. textdate
  2020. list2
  2021. textdate
  2022. date1
  2023. list1
  2024. date2
  2025. list2
  2026. result
  2027. date2
  2028. date1
  2029. $Times2
  2030. result
  2031. result
  2032. Invalid time range for Monday.  Ranges may not span days.
  2033. You have entered an invalid time for Monday.{
  2034.     0R7R11S12S14S15S17S18S
  2035. $Times2
  2036. MondayAvailable
  2037.     0S0E
  2038. $Times2
  2039. $Times2Display
  2040. TuesdayAvailable
  2041. Tuesday:|3
  2042. TuesdayAvailable
  2043.     0S0E
  2044. textdate
  2045. $Times3
  2046.     0S0E
  2047. list1
  2048. textdate
  2049. list2
  2050. textdate
  2051. date1
  2052. list1
  2053. date2
  2054. list2
  2055. result
  2056. date2
  2057. date1
  2058. $Times3
  2059. result
  2060. result
  2061. Invalid time range for Tuesday.  Ranges may not span days.{
  2062. You have entered an invalid time for Tuesday.
  2063.     0R7R11S12S14S15S17S18S
  2064. $Times3
  2065. TuesdayAvailable
  2066.     0S0E
  2067. $Times3
  2068. $Times3Display
  2069. WednesdayAvailable
  2070. Wednesday:|4
  2071. WednesdayAvailable
  2072.     0S0E
  2073. textdate
  2074. $Times4
  2075.     0S0E
  2076. list1
  2077. textdate
  2078. list2
  2079. textdate
  2080. date1
  2081. list1
  2082. date2
  2083. list2
  2084. result
  2085. date2
  2086. date1
  2087. $Times4
  2088. result
  2089. result
  2090. Invalid time range for Wednesday.  Ranges may not span days.{
  2091. You have entered an invalid time for Wednesday.
  2092.     0R7R11S12S14S15S17S18S
  2093. $Times4
  2094. WednesdayAvailable
  2095.     0S0E
  2096. $Times4
  2097. $Times4Display
  2098. ThursdayAvailable
  2099. Thursday:|5
  2100. ThursdayAvailable
  2101.     0S0E
  2102. textdate
  2103. $Times5
  2104.     0S0E
  2105. list1
  2106. textdate
  2107. list2
  2108. textdate
  2109. date1
  2110. list1
  2111. date2
  2112. list2
  2113. result
  2114. date2
  2115. date1
  2116. $Times5
  2117. result
  2118. result
  2119. Invalid time range for Thursday.  Ranges may not span days.
  2120. You have entered an invalid time for Thursday.{
  2121.     0R7R11S12S14S15S17S18S
  2122. $Times5
  2123. ThursdayAvailable
  2124.     0S0E
  2125. $Times5
  2126. $Times5Display
  2127. FridayAvailable
  2128. Friday:|6
  2129. FridayAvailable
  2130.     0S0E
  2131. textdate
  2132. $Times6
  2133.     0S0E
  2134. list1
  2135. textdate
  2136. list2
  2137. textdate
  2138. date1
  2139. list1
  2140. date2
  2141. list2
  2142. result
  2143. date2
  2144. date1
  2145. $Times6
  2146. result
  2147. result
  2148. Invalid time range for Friday.  Ranges may not span days.
  2149. You have entered an invalid time for Friday.{
  2150.     0R7R11S12S14S15S17S18S
  2151. $Times6
  2152. FridayAvailable
  2153.     0S0E
  2154. $Times6
  2155. $Times6Display
  2156. SaturdayAvailable
  2157. Saturday:|7
  2158. SaturdayAvailable
  2159.     0S0E
  2160. textdate
  2161. $Times7
  2162.     0S0E
  2163. list1
  2164. textdate
  2165. list2
  2166. textdate
  2167. date1
  2168. list1
  2169. date2
  2170. list2
  2171. result
  2172. date2
  2173. date1
  2174. $Times7
  2175. result
  2176. result
  2177. Invalid time range for Saturday.  Ranges may not span days.
  2178. You have entered an invalid time for Saturday.{
  2179.     0R7R11S12S14S15S17S18S
  2180. $Times7
  2181. SaturdayAvailable
  2182.     0S0E
  2183. $Times7
  2184. $Times7Display
  2185. ResourceDescription
  2186. ResourceDescription
  2187. ResourceDescriptionDisplay
  2188.     Resource description:
  2189.     Available Times:
  2190. __________________________________________________________________________________
  2191.     Other comments:
  2192. OtherComments
  2193.     Hidden field:
  2194. SundayAvailable
  2195. MondayAvailable
  2196. TuesdayAvailable
  2197. WednesdayAvailable
  2198. ThursdayAvailable
  2199. FridayAvailable
  2200. SaturdayAvailable
  2201.     0S0E
  2202. $AvailableDays
  2203. Resource
  2204. Author
  2205. $profile_015calendarprofile_
  2206. ResourceName
  2207.     0S0E
  2208. $Name
  2209. ResourceName
  2210. $BusyName
  2211. $BusyName
  2212. Owner
  2213. Closes
  2214. SaveOptions
  2215. SaveOptions
  2216. SaveOptions
  2217.     0R19R
  2218. Save 
  2219.     0S0E
  2220.     0S0E
  2221. ActionType
  2222.     0R1S3S
  2223. RLookup
  2224. NoCache
  2225. ($RLookup)
  2226. ResourceName
  2227.     0R1S2S
  2228. Server
  2229.     0R1S2S
  2230. FileName
  2231. Domain
  2232. ($Sites)
  2233. Admindb
  2234. admin4.nsf
  2235.     0R1S2S
  2236. AdminPExist
  2237. Server
  2238. Admindb
  2239. AdminPAccess
  2240. AdminPExist
  2241. Error
  2242. Administration Request database does not exist on this server.  If you want to use this Reservations database with Calendaring and Scheduling, you must create a resource with this name in the Public Address Book.
  2243. Server
  2244. Admindb
  2245. AdminPAccessLevel
  2246. AdminPAccess
  2247. AdminPCreateAccess
  2248. AdminPAccess
  2249. Error
  2250. You must select a Site before saving this document.
  2251. ResourceType
  2252. ResourceCategory
  2253. Error
  2254. You must enter a Resource category before saving this document.
  2255. Capacity[
  2256. Capacity
  2257. ResourceType
  2258. Error
  2259. You must enter a valid capacity.
  2260. AdminPAccessLevel
  2261. AdminPCreateAccess
  2262. Error
  2263. You are not authorized to create requests in the Administration Requests Database.
  2264. CommonNameResourceName
  2265. Error
  2266. You must enter a resource name.
  2267. RLookup
  2268. Error
  2269. A resource by that name already exists.  Resource names must be unique.
  2270. AdminPExist
  2271. AdminPExist
  2272. ResourceType
  2273. Server
  2274. Admindb
  2275. ResourceType
  2276. Domain
  2277. Server
  2278. FileName
  2279. ResourceDescription
  2280. Capacity
  2281. Success
  2282. Your request to add the resource to the address book was successfully submitted.
  2283. Error
  2284. You encountered an error. The resource will be saved, but you need to manually add a resource record to the address book.
  2285. Error
  2286. You have encountered an error; resource not saved or submitted.  Please fix and hit Done again.
  2287. Server
  2288. Admindb
  2289. ResourceType
  2290. Domain
  2291. Server
  2292. Filename
  2293. ResourceDescription
  2294. Success
  2295. Your request to add the resource to the address book was successfully submitted.
  2296. Error
  2297. You encountered an error. The resource will be saved, but you need to manually add a resource record to the address book.
  2298. Error
  2299. You have encountered an error; resource not saved or submitted.  Please fix and hit Done again.
  2300. Error
  2301. Administration Request database does not exist on this server.  If you want to use this Reservations database with Calendaring and Scheduling, you must create a resource with this name in the Public Address Book.
  2302.     0RR6RS5E18R23S24S28RS6E40R49S50S52S56S57S61RS5E73R75S77S80S81S83S87RS5E99R102S103S105RS5E111S113S117R123RS5E129S131S135R143S144S146S147S151RS6E157RS8E159RS14E166RS17E168RS25E174S175S176S178S180S182S184S195RS25E204RS25E214RS25E219RS25E223RS24E225RS20E236RS18E237RS16E239RS11E241RS16E248RS19E250RS24E256S257S258S260S262S264S266S275RS24E284RS24E294RS24E299RS24E303RS26E305RS19E316RS18E317RS15E318RS12E320RS7E333RS7E
  2303.     2S3S
  2304. _Edit Available Times
  2305. Author
  2306.     14S15S17S18S20S21S
  2307. Delete Resource
  2308. Server
  2309.     1S2S
  2310. Admindb
  2311. admin4.nsf
  2312.     0R1S2S
  2313. AdminPExist
  2314. Server
  2315. Admindb
  2316. AdminPAccess
  2317. Server
  2318. Admindb
  2319. AdminPAccessLevel
  2320. AdminPAccess
  2321. AdminPCreateAccess
  2322. AdminPAccess
  2323. PendingReservations
  2324. ($Reservations)
  2325. ResourceName
  2326. PendingReservationTimes
  2327. ($Reservations)
  2328. ResourceName
  2329. DeletedResourceMessage
  2330. ResourceName
  2331. The resource listed above has been deleted from the Resource Reservations database.  You had outstanding reservations for this resource at the following times:
  2332. PendingReservationTimes
  2333.     0R8S9S10S12S13S14S15S
  2334. PendingReservationIDs
  2335. ($Reservations)
  2336. ResourceName
  2337. AdminPExist
  2338. AdminPAccessLevel
  2339. AdminPCreateAccess
  2340. Delete Resource?
  2341. You are requesting that the selected resource be deleted.  Do you wish to continue?
  2342. Server
  2343. Admindb
  2344. Delete Request
  2345. Your request to delete the resource(s) has been submitted.
  2346. Error
  2347. You received an error creating a request in the Administration Database.  Please try again.
  2348. PendingReservations
  2349. ReservationIDs
  2350. DocIDS
  2351. PendingReservationIDs
  2352. Notice
  2353. There are currently 
  2354. PendingReservations
  2355.  outstanding reservations for this resource. Do you wish to alert the people via email who have outstanding reservations?
  2356. PendingReservations
  2357. Notice: Resource has been deleted.
  2358. DeletedResourceMessage
  2359. (DeletePendingReservations)
  2360. Delete Cancelled
  2361. You have cancelled deleting this resource.
  2362. Insufficent Access
  2363. You do not have sufficient access in the Administration Database to complete this request.  Please see an administrator.
  2364. Database Does Not Exist
  2365. The Administration Request Database cannot be found on the current server. Resource cannot be deleted.
  2366.     0RRR4RS9E8S11S12S14S18RS14E20RS20E29RS24E31RS33E33RS40E37S38S39S41S43S46RS40E55RS40E63RS39E65RS34E67RS40E73RS41E86RS50E88RS55E96S107RS55E123RS47E124RS54E126RS50E132RS47E134RS40E135RS38E137RS35E141RS34E143RS19E154RS21E156RS11E167RS12E169RS8E180R
  2367. Author
  2368.     12S13S27S28S30S31S33S34S
  2369. Categori_ze
  2370. Send Docu_ment
  2371. _Forward
  2372. _Move To Folder...    
  2373. _Remove From Folder
  2374. O=Lotus Notes
  2375. O=Lotus Notes
  2376. PURSAFO
  2377. |.:#U
  2378. O=Lotus Notes
  2379. CN=Lotus Notes Template Development/O=Lotus Notes
  2380. PURSAFO
  2381. Fde!f^^
  2382. @)~EG{}M
  2383. SundayTimes
  2384. MondayTimes
  2385. TuesdayTimes
  2386. WednesdayTimes
  2387. ThursdayTimes
  2388. FridayTimes
  2389. SaturdayTimes
  2390. $1Times
  2391. $2Times
  2392. $3Times
  2393. $4Times
  2394. $5Times
  2395. $6Times
  2396. $7Times
  2397. Capacity_1
  2398. $TITLE
  2399. $FormUsers
  2400. $Info
  2401. $WindowTitle
  2402. $Script
  2403. $$Script_O
  2404. $$ScriptName
  2405. $$FormScript
  2406. $$$FormScript_O
  2407. Capacity
  2408. $Times1
  2409. $Times2
  2410. $Times3
  2411. $Times4
  2412. $Times5
  2413. $Times6
  2414. $Times7
  2415. $Body
  2416. $ACTIONS
  2417. Delete any reservation that was created 2 days prior to today.
  2418. Reservation
  2419.     0RL1S2S3S
  2420. PurgeDate
  2421.     0R1S2S9S11S13S16S18S20S
  2422. StartDate
  2423. StartDateTime
  2424.     0R1S2S
  2425. Reservation
  2426. StartDate
  2427. PurgeDate
  2428. false
  2429.     0R3S4S5S6S8S9S12S17S
  2430. O=Lotus Notes
  2431. O=Lotus Notes
  2432. PURSAFO
  2433. |.:#U
  2434. O=Lotus Notes
  2435. CN=Lotus Notes Template Development/O=Lotus Notes
  2436. PURSAFO
  2437. Fde!f^^
  2438. >}"'1
  2439. U4O5K
  2440. VaV!8!c
  2441. $TITLE
  2442. $AssistType
  2443. $AssistLastRun
  2444. $AssistDocCount
  2445. $Comment
  2446. $AssistFlags
  2447. $AssistTrigger
  2448. $AssistInfo
  2449. $AssistQuery
  2450. $AssistAction
  2451. $AssistAction_Ex
  2452. '++LotusScript Development Environment:2:5:(Options):0:66
  2453. '++LotusScript Development Environment:2:5:(Forward):0:1
  2454. Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  2455. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2456. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2457. Private Sub BindEvents(Byval Objectname_ As String)
  2458.      Static Source As NOTESUIDATABASE
  2459.      Set Source = Bind(Objectname_)
  2460.      On Event Querydocumentdelete From Source Call Querydocumentdelete
  2461. End Sub
  2462. '++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
  2463. Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  2464.      Dim collection As NotesDocumentCollection
  2465.      Set collection = source.documents
  2466.      Set note=collection.getfirstdocument
  2467.      
  2468.      While Not note Is Nothing
  2469.           If  note.Form(0) = "Resource"  Then
  2470.                Messagebox "You must use the Delete action provided in the document to delete a resource.", 0, "Error"
  2471.                Continue = False
  2472.                Exit Sub
  2473.           End If 
  2474.           
  2475.           If (note.Form(0) = "SiteProfile")  Then
  2476.                Server=source.database.server
  2477.                note.server=server
  2478.                RoomLookup=Evaluate (|@IsError(@DbLookup("":"NoCache";Server:"names.nsf";"($Rooms)";Site;1))|, note)
  2479.                ResourceLookup=Evaluate (|@IsNotMember(Site;@DbColumn("":"NoCache";Server:"names.nsf";"($Resources)";2))|, note)
  2480.                
  2481.                If(RoomLookup(0) = 0 Or  ResourceLookup(0) = 0) Then
  2482.                     Messagebox "You cannot delete this Site Profile because there are still rooms or resources referencing this site in the Address Book.  You need to delete the rooms or resources using the Delete action provided in the resource form before deleting this site profile.", 0, "Error"
  2483.                     Continue = False
  2484.                     Exit Sub
  2485.                End If
  2486.           End If
  2487.           Set note=collection.getnextdocument(note)
  2488.      Wend
  2489.      Set w=New NotesUIWorkspace
  2490.      
  2491. End Sub
  2492. NoCache
  2493. Server
  2494. names.nsf
  2495. ($Rooms)
  2496.     0S0E
  2497. NoCache
  2498. Server
  2499. names.nsf
  2500. ($Resources)
  2501.     0S0E
  2502. O=Lotus Notes
  2503. O=Lotus Notes
  2504. PURSAFO
  2505. |.:#U
  2506. O=Lotus Notes
  2507. CN=Lotus Notes Template Development/O=Lotus Notes
  2508. PURSAFO
  2509. Fde!f^^
  2510. $DBScript
  2511. $DBScript_O
  2512. $TITLE
  2513. $Flags
  2514. $PublicAccess
  2515. My Reservations/L
  2516. StartDateTime
  2517.     0S0E
  2518. EndDateTime
  2519.     0S0E
  2520. ResourceName
  2521.     0S0E
  2522. StartDateTime$15$16$17$Conflict$REF
  2523. Reservation
  2524. ReservedBy
  2525.     L1S3S4S6S7S9S10S
  2526. StartDateTime$15$17
  2527. StartDateTime
  2528.  StartDateTimeDate$15Start Time.
  2529. StartDateTime
  2530.     0S0E
  2531. -$16End Time,
  2532. EndDateTime
  2533.     0S0E
  2534. $17Resource6
  2535. ResourceName
  2536.     0S0E
  2537. Reservation
  2538. Notice
  2539.     8S9S11S12S16SpoY
  2540. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  2541. ($NLookup)
  2542. ApptUNIDh
  2543. ApptUNID
  2544. ParentUNID
  2545.     1S2S
  2546. ResourceName
  2547.     0R1S2S3S4S
  2548. $2$Conflict$REF
  2549. Notice
  2550.     L1S2S3S1
  2551. $2Search Key
  2552. ApptUNIDh
  2553. ApptUNID
  2554. ParentUNID
  2555.     1S2S
  2556. ResourceName
  2557.     0R1S2S3S4S
  2558. CN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  2559. AutoProcessReservations
  2560. 5fL3S
  2561. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  2562. ##########################################################
  2563. ##########################################################
  2564. ##########################################################
  2565. ##########################################################
  2566. ##########################################################
  2567. ##########################################################
  2568. ##########################################################
  2569. ##########################################################
  2570. ##########################################################
  2571. ##########################################################
  2572. ##########################################################
  2573. ##########################################################
  2574. ##########################################################
  2575. ##########################################################
  2576. ##########################################################
  2577. ##########################################################
  2578. ##########################################################
  2579. ##########################################################
  2580. ##########################################################
  2581. ##########################################################
  2582. ##########################################################
  2583. Categori_ze
  2584. _Edit Document
  2585. Send Docu_ment
  2586. _Forward
  2587. Create Reservation0
  2588. Reservation
  2589.     0S0E
  2590.     4S5S
  2591. Delete Reservation
  2592. _Move to Folder...
  2593. _Remove from Folder...
  2594. Create Mail-in Reservation*
  2595. Notice
  2596.     0S0E
  2597.     4S5S
  2598. O=Lotus Notes
  2599. O=Lotus Notes
  2600. PURSAFO
  2601. |.:#U
  2602. O=Lotus Notes
  2603. CN=Lotus Notes Template Development/O=Lotus Notes
  2604. PURSAFO
  2605. Fde!f^^
  2606. $TITLE
  2607. $Index
  2608. $Formula
  2609. $FormulaClass
  2610. $ViewFormat
  2611. $FormFormula
  2612. $Comment
  2613. $ACTIONS
  2614. O=Lotus Notes
  2615. O=Lotus Notes
  2616. PURSAFO
  2617. |.:#U
  2618. O=Lotus Notes
  2619. CN=Lotus Notes Template Development/O=Lotus Notes
  2620. PURSAFO
  2621. Fde!f^^
  2622. $TITLE
  2623. $Index
  2624. $Formula
  2625. $FormulaClass
  2626. $ViewFormat
  2627. $Comment
  2628. New Reservation by Mail
  2629. Reservation for 
  2630. ResourceName"
  2631.     7S8S
  2632.  Notice
  2633. Pre-4.5 Reservation by Mail
  2634. Because you are running a version of Notes which does not support Calendaring and Scheduling, you may only use this form to request a reservation.  You will receive notification via email about the availability of the resource or room you are trying to schedule.  The notification will tell you if the room or resource was successfully booked or if it was not available at the requested time.
  2635.     Chair:
  2636. Chair
  2637.     Reserve a:
  2638. OrgState
  2639. Room|5Resource|6
  2640. OrgState
  2641.     3S4S
  2642.     Room name to reserve:
  2643. OrgState
  2644. RequestedRoom
  2645. You must enter the name of a room before submitting your request.
  2646.     5S6S
  2647. RequestedRoom
  2648. NoCache
  2649. ($Rooms)
  2650.     0S0E
  2651. OrgState
  2652.     3S4S
  2653.     Resource name to reserve:    
  2654. OrgState
  2655. RequestedResource
  2656. You must enter the name of a resource before submitting your request.
  2657.     5S6S
  2658. RequestedResource
  2659. NoCache
  2660. ($Resources)
  2661.     0S0E
  2662.     Resource name:    
  2663. ResourceName
  2664. ResourceNameDisplay
  2665. OrgState
  2666.     0S0E
  2667.     Number of attendees
  2668. OrgState
  2669. Capacity
  2670. Capacity[
  2671. You must enter the number of attendees when reserving a room.
  2672.     5S6S
  2673. Capacity
  2674.     Start date and  time:
  2675. CurTime
  2676.     0S0E
  2677. NumMinutes
  2678. CurTime
  2679. AdjustedMinutes
  2680. NumMinutes#
  2681. CurTime
  2682. AdjustedMinutes
  2683. StartDateTime
  2684.     End date and time:
  2685. CurTime
  2686.     0S0E
  2687. NumMinutes
  2688. CurTime
  2689. AdjustedMinutes
  2690. NumMinutes#
  2691. StartTime
  2692. StartDateTime
  2693. StartTime
  2694. EndDateTime
  2695. StartDateTime
  2696. The End date and time must be later than the Start date and time.
  2697.     3S4S
  2698. EndDateTime
  2699.     Phone number:
  2700. PhoneNumber
  2701. You must enter a phone number before submitting your request.
  2702.     0S0E
  2703. PhoneNumber
  2704.     Purpose:
  2705. Purpose
  2706. NoticeType
  2707. Pre45
  2708. StartDateTime
  2709. S2Z2V
  2710. EndDateTime
  2711. S2Z2V
  2712.     8S9S
  2713. TimeRange
  2714. ResourceName
  2715. SendTo
  2716. OrgState
  2717. RequestedRoom
  2718. OrgState
  2719. RequestedResource
  2720.     0S0E
  2721. ResourceName
  2722. SaveOptions
  2723. Submit Request for Reservationt
  2724.     0S0E
  2725. Send Docu_ment
  2726. Categori_ze@
  2727. _Edit Document
  2728. _Forward
  2729. _Move To Folder...
  2730. _Remove From Folder
  2731. O=Lotus Notes
  2732. O=Lotus Notes
  2733. PURSAFO
  2734. |.:#U
  2735. O=Lotus Notes
  2736. CN=Lotus Notes Template Development/O=Lotus Notes
  2737. PURSAFO
  2738. Fde!f^^
  2739. $TITLE
  2740. $Info
  2741. $WindowTitle
  2742. $$Script_O
  2743. $$ScriptName
  2744. Capacity
  2745. StartDateTime
  2746. EndDateTime
  2747. TimeRange
  2748. $Body
  2749. $ACTIONS
  2750. '++LotusScript Development Environment:2:5:(Options):0:66
  2751. Option Public
  2752. '++LotusScript Development Environment:2:5:(Forward):0:1
  2753. Declare Sub Initialize
  2754. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2755. Dim session As NotesSession
  2756. Dim profile As NotesDocument
  2757. Dim reservation As NotesDocument
  2758. '++LotusScript Development Environment:2:2:Initialize:1:10
  2759. Sub Initialize
  2760. 'initialize variables
  2761.      Dim idlist As Variant     
  2762.      Dim c As Integer
  2763.      
  2764.      Set session = New NotesSession
  2765.      
  2766.      Set profile = session.CurrentDatabase.GetProfileDocument("ReservationIDs",session.UserName)
  2767.      
  2768.      idlist = profile.DocIDs
  2769.      
  2770.      For c = 0 To Ubound(idlist)
  2771.           If idlist(c) <> "" Then
  2772.                Set reservation = session.CurrentDatabase.GetDocumentByUNID(idlist(c))
  2773.                Call reservation.Remove(True)
  2774.           End If
  2775.      Next
  2776.      profile.DocIds = ""
  2777.      profile.Save True,False,True
  2778.      
  2779. End Sub
  2780. O=Lotus Notes
  2781. O=Lotus Notes
  2782. PURSAFO
  2783. |.:#U
  2784. O=Lotus Notes
  2785. CN=Lotus Notes Template Development/O=Lotus Notes
  2786. PURSAFO
  2787. Fde!f^^
  2788. $TITLE
  2789. $AssistType
  2790. $AssistLastRun
  2791. $AssistDocCount
  2792. $AssistFlags
  2793. $AssistTrigger
  2794. $AssistInfo
  2795. $AssistQuery
  2796. $AssistAction
  2797. $AssistAction_Ex
  2798. '++LotusScript Development Environment:2:5:(Options):0:74
  2799. Option Public
  2800. Option Explicit 
  2801. '++LotusScript Development Environment:2:5:(Forward):0:1
  2802. Declare Class UNIDArray
  2803. Declare Sub Initialize
  2804. Declare Function ReservationExists(request As NotesDocument) As Integer
  2805. Declare Sub CreateReservation(request As NotesDocument)
  2806. Declare Sub ReservationDecline(request As NotesDocument)
  2807. Declare Sub ReservationAccept(request As NotesDocument)
  2808. Declare Sub ReservationCancel(request As NotesDocument)
  2809. Declare Sub CreateNotice(Subject As String,NoticeType As String,ViewIcon As Integer, request As NotesDocument)
  2810. Declare Sub ExpandRepeatingNotice(request As NotesDocument)
  2811. Declare Function CheckProfileTimes(request As NotesDocument) As Integer
  2812. Declare Function CheckForUpdateNotices (SearchKey As String, request As NotesDocument) As Integer
  2813. Declare Sub ProcessPre45Request(request As NotesDocument)
  2814. Declare Sub ProcessOneNoticeRequest(request As NotesDocument)
  2815. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2816. Dim session As NotesSession
  2817. Dim db As NotesDatabase
  2818. Dim conflictview As NotesView
  2819. Dim reserveview As NotesView
  2820. Dim resourceview As NotesView
  2821. Dim noticeview As NotesView
  2822. Dim notice As NotesDocument
  2823. Dim reservation As NotesDocument
  2824. Dim collection As NotesDocumentCollection
  2825. Dim profile As NotesDocument
  2826. Dim rsdt As NotesDateTime
  2827. Dim redt As NotesDateTime
  2828. Dim nsdt As NotesDateTime
  2829. Dim nedt As NotesDateTime
  2830. Dim nam As NotesName
  2831. Dim resourcekey As String
  2832. Const CONFLICT_VIEW_NAME = "($ReservationConflicts)"
  2833. Const RESERVE_VIEW_NAME  = "($FindReservation)"
  2834. Const RESOURCE_VIEW_NAME = "($RLookup)"
  2835. Const NOTICE_VIEW_NAME = "($NLookup)"
  2836. Const ITEM_PRE45_FLAG = "pre45"
  2837. Class UNIDArray
  2838.      m_vUnidList() As Variant
  2839.      m_nTotalItems As Integer
  2840.      
  2841.      Sub New
  2842.           m_nTotalItems = 0
  2843.      End Sub
  2844.      
  2845.      Function LocateUNID(sUnid As String) As Integer
  2846.           Dim x As Integer
  2847.           
  2848.           LocateUNID = False
  2849.           If (m_nTotalItems = 0) Then Exit Function
  2850.           
  2851.           For x = 0 To m_nTotalItems -1
  2852.                If Lcase(sUnid) = Lcase(m_vUnidList(x)) Then
  2853.                     LocateUNID = True
  2854.                     Exit Function
  2855.                End If
  2856.           Next
  2857.      End Function
  2858.      
  2859.      Sub AddUNID(sUnid As String)
  2860.           If (m_nTotalItems = 0) Then
  2861.                Redim m_vUNidList(0)
  2862.           Else
  2863.                Redim Preserve m_vUnidList(m_nTotalItems)
  2864.           End If
  2865.           
  2866.           m_vUnidList(m_nTotalItems) = sUnid
  2867.           m_nTotalItems = m_nTotalItems + 1
  2868.      End Sub
  2869. End Class
  2870. Dim InvalidRequests As UNIDArray
  2871. %INCLUDE "orgconst.lss"
  2872. '++LotusScript Development Environment:2:2:Initialize:1:10
  2873. Sub Initialize
  2874.      Dim note As NotesDocument
  2875.      Dim i As Integer
  2876.      
  2877.      On Error Resume Next
  2878.      
  2879. 'instantiate the objects we need
  2880.      Set session = New NotesSession
  2881.      Set db = session.CurrentDatabase
  2882.      Set conflictview = db.GetView(CONFLICT_VIEW_NAME)
  2883.      Set reserveview = db.GetView(RESERVE_VIEW_NAME)
  2884.      Set resourceview = db.GetView(RESOURCE_VIEW_NAME)
  2885.      Set noticeview = db.GetView(NOTICE_VIEW_NAME)
  2886.      
  2887.      Set collection = db.UnprocessedDocuments
  2888.      Set InvalidRequests = New UNIDArray
  2889.      
  2890. 'for each document in the collection, see if we should process it
  2891. 'we would normally use a while loop since it is faster, but we need to delete notice documents
  2892. 'and GetNextDocument requires a valid NotesDocument object; using a for gets around this
  2893.      For i = 1 To collection.Count
  2894.           Set note = collection.GetNthDocument(i)
  2895. 'make sure this document is a notice
  2896.           If (note.Form(0) = "Notice") Then
  2897.                If (note.HasItem("RepeatIds")) Then
  2898.                     Call ExpandRepeatingNotice(note)
  2899.                     Call note.Remove(True)
  2900.                Else
  2901.                     Call ProcessOneNoticeRequest(note)
  2902.                End If
  2903.           Else
  2904.                Call session.UpdateProcessedDoc(note) 
  2905.           End If     
  2906.           Set note = collection.GetNthDocument(i)
  2907.      Next
  2908. End Sub
  2909. '++LotusScript Development Environment:2:1:ReservationExists:1:8
  2910. Function ReservationExists(request As NotesDocument) As Integer
  2911. 'returns true if a reservation exists, false otherwise
  2912.      Dim startdate As Variant
  2913.      Dim key As Variant
  2914.      
  2915. 'first, check the profile settings
  2916.      If (CheckProfileTimes(request)) Then
  2917.           ReservationExists = True
  2918.           Exit Function
  2919.      End If
  2920.      
  2921.      ReservationExists = False
  2922. '****THE KEY SHOULD BE THE RESOURCE NAME AND THE DATE*******
  2923.      StartDate = Evaluate("@Text(StartDateTime;""S0D0"")",request)
  2924.      key = nam.Abbreviated & " " & StartDate(0)
  2925.      
  2926.      Set reservation = conflictview.GetDocumentByKey(key, False)
  2927.      Do While Not(reservation Is Nothing)      
  2928. 'make sure GetNextDocument returns a valid document  
  2929.           If Not (reservation.ColumnValues(0) = key) Then Exit Do 
  2930. check to see if 
  2931.        the invited StartDateTime falls between a scheduled appointment, 
  2932.        the invited EndDateTime falls between a scheduled appointment, 
  2933.        the invitation surrounds an existing appointment
  2934. %END REM
  2935.           Set rsdt = New NotesDateTime(reservation.StartDateTime(0))
  2936.           Set redt = New NotesDateTime(reservation.EndDateTime(0))
  2937.           Set nsdt = New NotesDateTime(request.StartDateTime(0))
  2938.           Set nedt = New NotesDateTime(request.EndDateTime(0))
  2939.           
  2940.           If ((nsdt.TimeDifference(rsdt) >= 0) And (redt.TimeDifference(nsdt) > 0 )) Or _
  2941.           ((nedt.TimeDifference(rsdt) > 0) And (redt.TimeDifference(nedt) >= 0 )) Or _
  2942.           ((rsdt.TimeDifference(nsdt) >= 0) And (nedt.TimeDifference(redt) > 0 )) Then
  2943.                ReservationExists = True
  2944.                Exit Do                                                           'we exit so that we don't waste time iterating through the view
  2945.           End If
  2946.           Set reservation = conflictview.GetNextDocument(reservation)
  2947.      Loop     
  2948.      Exit Function
  2949. End Function
  2950. '++LotusScript Development Environment:2:2:CreateReservation:1:8
  2951. Sub CreateReservation(request As NotesDocument)
  2952. 'creates a reservation in the database
  2953.      Dim startdt As NotesDateTime
  2954.      Dim enddt As NotesDateTime
  2955.      Dim trdr As NotesDateRange
  2956.      
  2957.      Set reservation = New NotesDocument(db)
  2958.      
  2959. 'add the reserved by item as an Author names field
  2960.      Dim authoritem As New NotesItem(reservation,"Author",request.Chair(0),Authors)
  2961.      Dim resourceitem As New NotesItem(reservation,"ResourceName",nam.Canonical,Names)
  2962.      resourceitem.IsSummary = True
  2963.      
  2964.      reservation.ReservedBy = request.Chair(0)     
  2965.      Call reservation.ReplaceItemValue("$BusyName",nam.Canonical)
  2966.      Call reservation.ReplaceItemValue("$BusyPriority","1")
  2967.      reservation.Form = "Reservation"     
  2968.      
  2969.      reservation.Step = 3
  2970.      If (request.OrgState(0) = ORS_STATE_ROOM) Then
  2971.           reservation.ResourceType = "1"
  2972.           reservation.Capacity = request.Capacity
  2973.      Else
  2974.           reservation.ResourceType = "2"
  2975.      End If
  2976.      
  2977.      reservation.ReserveDate = request.StartDateTime     
  2978.      reservation.StartDateTime = request.StartDateTime
  2979.      reservation.EndDateTime = request.EndDateTime
  2980.      Set startdt = New NotesDateTime(request.StartDateTime(0))
  2981.      Set enddt = New NotesDateTime(request.EndDateTime(0))
  2982.      Set trdr = session.CreateDateRange
  2983.      trdr.Text = startdt.TimeOnly & " - " & enddt.TimeOnly
  2984.      Set reservation.TimeRange = trdr
  2985.      If Not(request.HasItem(ITEM_PRE45_FLAG)) Then
  2986. 'this is a reservation from a 4.5 user          
  2987.           If(request.HasItem("ApptUNID")) Then
  2988.                reservation.ApptUNID = request.ApptUNID(0)
  2989.           Else
  2990.                reservation.ApptUNID = request.ParentUNID(0)          
  2991.           End If
  2992.           reservation.PhoneNumber = "NA"
  2993.           reservation.Purpose = "Reserved automatically by the processing agent."
  2994.      Else
  2995. 'this is a reservation by a pre 4.5 user
  2996.           reservation.PhoneNumber = request.PhoneNumber
  2997.           reservation.Purpose = request.Purpose     
  2998.      End If
  2999.      reservation.Site = nam.Organization
  3000.      Call reservation.Save(True,True,True)
  3001. 'refresh the reservation view so that the new document will be found
  3002.      Call reserveview.Refresh
  3003.      Call conflictview.Refresh
  3004. End Sub
  3005. '++LotusScript Development Environment:2:2:ReservationDecline:1:8
  3006. Sub ReservationDecline(request As NotesDocument)
  3007. 'declines an invitation
  3008.      Call CreateNotice("Declined - ",ORS_MSGTYPE_REJECT,84, request)
  3009.      
  3010.      Call notice.Send(False)
  3011. End Sub
  3012. '++LotusScript Development Environment:2:2:ReservationAccept:1:8
  3013. Sub ReservationAccept(request As NotesDocument)
  3014.      
  3015.      Call CreateNotice("Accepted - ",ORS_MSGTYPE_ACCEPT,83, request)
  3016.      
  3017.      Call CreateReservation(request)
  3018.      
  3019.      Call notice.Send(False)
  3020. End Sub
  3021. '++LotusScript Development Environment:2:2:ReservationCancel:1:8
  3022. Sub ReservationCancel(request As NotesDocument)
  3023. 'removes a reservation from the database
  3024. 'the most likely error will be a document not found, which is fine
  3025.      Dim NameToFind As Variant
  3026.      Dim key As String
  3027.      
  3028.      On Error Resume Next
  3029.      
  3030.      If (request.HasItem("OriginalRoom")) And (request.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then
  3031.           NameToFind = Evaluate("@Name([abbreviate];OriginalRoom)",request)
  3032.      Else
  3033.           NameToFind = Evaluate("@Name([abbreviate];ResourceName)",request)
  3034.      End If
  3035.      If(request.HasItem("ApptUNID")) Then
  3036.           key  = request.ApptUNID(0) & " " & NameToFind(0)
  3037.      Else          
  3038.           key  = request.ParentUNID(0) & " " & NameToFind(0)
  3039.      End If
  3040.      Set reservation = reserveview.GetDocumentByKey(Key,False)
  3041. 'if there is a reservation, delete it
  3042.      If Not(reservation Is Nothing) Then
  3043.           Call reservation.Remove(True)
  3044.           Call reserveview.Refresh
  3045.           Call conflictview.Refresh
  3046.      End If
  3047. End Sub
  3048. '++LotusScript Development Environment:2:2:CreateNotice:1:8
  3049. Sub CreateNotice(Subject As String,NoticeType As String,ViewIcon As Integer, request As NotesDocument)
  3050. 'creates the outgoing notice document and appends common fields
  3051.      Dim dummydoc As NotesDocument     
  3052.      Set notice = New NotesDocument(db)
  3053.      
  3054. 'make the notice a response document
  3055.      Set dummydoc = New NotesDocument(db)
  3056.      If (request.HasItem("ApptUNID")) Then
  3057.           dummydoc.UniversalID = request.ApptUNID(0)
  3058.      Else
  3059.           dummydoc.UniversalID = request.ParentUNID(0)          
  3060.      End If
  3061.      Call notice.MakeResponse(dummydoc)
  3062.      Call notice.ReplaceItemValue("$RefOptions","1")
  3063.      
  3064. 'add default items
  3065.      notice.InviteeName = nam.Abbreviated
  3066.      notice.Principal = nam.Canonical
  3067.      notice.From  = nam.Canonical
  3068.      notice.Form = "Notice"
  3069.      notice.StartDate = request.StartDate
  3070.      notice.StartDateTime = request.StartDateTime
  3071.      notice.EndDateTime = request.EndDateTime
  3072.      notice.Room = request.Room
  3073.      notice.Chair = request.Chair
  3074.      notice.SendTo = request.Chair(0)
  3075.      notice.Subject = Subject & request.Topic(0)
  3076.      notice.SequenceNum = request.SequenceNum(0)
  3077.      notice.NoticeType = NoticeType
  3078.      If (request.HasItem("OrgRepeat")) Then notice.OrgRepeat = True
  3079.      notice.OrgState = request.OrgState
  3080.      Call notice.ReplaceItemValue("_ViewIcon",ViewIcon)
  3081.      If (request.HasItem("$PublicAccess")) Then Call notice.replaceitemvalue("$PublicAccess","1")
  3082. End Sub
  3083. '++LotusScript Development Environment:2:2:ExpandRepeatingNotice:1:8
  3084. Sub ExpandRepeatingNotice(request As NotesDocument)
  3085.      
  3086. 'if an invitation is a repeat set, this will expand it out into individual documents
  3087. 'note is the current note, notice will be each notice document that gets generated and subsequently processed by this agent
  3088.      Dim date1 As NotesDateTime
  3089.      Dim date2 As NotesDateTime
  3090.      Dim tr As NotesDateRange
  3091.      Dim duration As Integer
  3092.      Dim RepeatDates As Variant
  3093.      Dim RepeatIds As Variant
  3094.      Dim IdList() As Variant
  3095.      Dim x As Integer
  3096.      Dim instance As NotesDocument
  3097.      
  3098. 'create the daterange object
  3099.      Set tr = session.CreateDateRange
  3100.      
  3101. 'Get the duration
  3102.      Set date1 = New NotesDateTime(request.StartDateTime(0))
  3103.      Set date2 = New NotesDateTime(request.EndDateTime(0))
  3104.      Duration =date2.TimeDifference(date1) / 60
  3105.      
  3106. 'Get the original start time
  3107.      Set date2 = New NotesDateTime(request.StartDateTime(0))
  3108.      date2.SetAnyDate
  3109. 'Create a notice document for each of the repeatDates
  3110.      RepeatDates = request.RepeatDates
  3111.      RepeatIds = request.RepeatIds
  3112.      Redim IdList(Ubound(RepeatDates))
  3113.      x = 0
  3114.      Forall d In RepeatDates
  3115.           Set instance = New NotesDocument(db)
  3116.           instance.Form = "Notice"
  3117.           instance.Principal = request.Chair
  3118.           instance.Chair = request.Chair
  3119.           instance.ApptUNID = RepeatIds(x)           
  3120.           instance.NoticeType = request.NoticeType
  3121.           instance.OrgState = request.OrgState
  3122.           instance.ResourceName = request.ResourceName        
  3123.           instance.SequenceNum = request.SequenceNum
  3124.           instance.Topic = request.Topic  
  3125.           If (request.HasItem("$PublicAccess")) Then Call instance.replaceItemValue("$PublicAccess","1")
  3126.           instance.OrgRepeat = True
  3127. 'Store new date with original time (date2)
  3128.           Set date1 = New NotesDateTime(d & " " & date2.LocalTime)
  3129.           Call instance.ReplaceItemValue("StartDateTime", date1)          
  3130.           Call instance.ReplaceItemValue("StartDate", date1)
  3131.           Set tr.StartDateTime = date1          
  3132.           Call date1.AdjustMinute(Duration, True)
  3133.           Call instance.ReplaceItemValue("EndDateTime", date1)
  3134.           Call instance.ReplaceItemValue("$NoPurge", date1)
  3135.           Set tr.EndDateTime = date1
  3136.           Set instance.TimeRange = tr          
  3137. 'if the request has an OriginalStartDate, then get the difference between the OriginalStartDate and the StartDateTime
  3138.           If (request.HasItem("OriginalStartDate")) Then
  3139.                Set date1 = New NotesDateTime(request.OriginalStartDate(0))
  3140.                Set date2 = New NotesDateTime(request.StartDateTime(0))
  3141.                instance.Difference = date2.TimeDifference(date1)/60
  3142.           End If
  3143.           Call ProcessOneNoticeRequest(instance)
  3144.           x = x + 1
  3145.      End Forall     
  3146. End Sub
  3147. '++LotusScript Development Environment:2:1:CheckProfileTimes:1:8
  3148. Function CheckProfileTimes(request As NotesDocument) As Integer
  3149.      Dim ValidTimes As Variant
  3150.      Dim dateitem1 As NotesDateTime
  3151.      Dim dateItem2 As NotesDateTime
  3152.      Dim date1 As NotesDateTime
  3153.      Dim date2 As NotesDateTime
  3154.      Dim x As Integer
  3155.      
  3156.      On Error Resume Next     
  3157. 'returns true if the time is not within the defined profile times
  3158.      
  3159.      If (profile Is Nothing) Or (nam.Canonical <> resourcekey) Then
  3160.           resourcekey = nam.Canonical
  3161.           Set profile = resourceview.GetDocumentByKey(resourcekey)
  3162.      End If
  3163.      
  3164.      CheckProfileTimes = True
  3165. 'if we don't have a profile document then return -> all resources need profile documents!!!!
  3166.      If (profile Is Nothing) Then Exit Function
  3167.      
  3168.      Select Case Weekday(request.StartDateTime(0))
  3169.      Case 1
  3170. 'sunday
  3171.           If (profile.SundayAvailable(0) <> "1") Then Exit Function
  3172.           ValidTimes = profile.GetItemValue("$Times1")
  3173.      Case 2
  3174. 'monday
  3175.           If (profile.MondayAvailable(0) <> "2") Then Exit Function
  3176.           ValidTimes = profile.GetItemValue("$Times2")
  3177.      Case 3
  3178. 'Tuesday
  3179.           If (profile.TuesdayAvailable(0) <> "3") Then  Exit Function
  3180.           ValidTimes = profile.GetItemValue("$Times3")
  3181.      Case 4
  3182. 'wednesday
  3183.           If (profile.WednesdayAvailable(0) <> "4") Then Exit Function
  3184.           ValidTimes = profile.GetItemValue("$Times4")
  3185.      Case 5
  3186. 'thursday
  3187.           If (profile.ThursdayAvailable(0) <> "5") Then Exit Function
  3188.           ValidTimes = profile.GetItemValue("$Times5")
  3189.      Case 6
  3190. 'friday
  3191.           If (profile.FridayAvailable(0) <> "6") Then Exit Function
  3192.           ValidTimes = profile.GetItemValue("$Times6")
  3193.      Case 7
  3194. 'saturday
  3195.           If (profile.SaturdayAvailable(0) <> "7") Then Exit Function
  3196.           ValidTimes = profile.GetItemValue("$Times7")
  3197.      End Select
  3198.      If (Hour(request.StartDateTime(0)) > 0) Then
  3199.           Set dateItem1 = New NotesDateTime(request.StartDateTime(0))
  3200.      Else
  3201.           Set dateItem1 = New NotesDateTime(Datevalue(request.StartDateTime(0)) & " 00:00:01")
  3202.      End If
  3203.      If (Hour(request.EndDateTime(0)) > 0) Then
  3204.           Set dateItem2 = New NotesDateTime(request.EndDateTIme(0))
  3205.      Else
  3206.           Set dateItem2 = New NotesDateTime(Datevalue(request.EndDateTime(0)) & " 00:00:01")
  3207.      End If
  3208. 'we must now make sure that the times fall within the profile settings
  3209.      For x = 0 To Ubound(ValidTimes)
  3210. 'if the time falls within a profile range, then there is no conflict and we can exit
  3211. 'since lotusscript cannot differentiate between 12:00 am and no time, we have to check for no time and assume 12:00 am
  3212.           If (Hour(ValidTimes(x)) > 0) Then
  3213.                Set date1 = New NotesDateTime(Datevalue(request.StartDateTime(0)) & " " & Timevalue(ValidTimes(x)))
  3214.           Else
  3215.                Set date1 = New NotesDateTime(Datevalue(request.StartDateTime(0)) & " 00:00:01")
  3216.           End If
  3217.           If (Hour(ValidTimes(x+1))> 0) Then
  3218.                Set date2 = New NotesDateTime(Datevalue(request.StartDateTime(0)) & " " & Timevalue(ValidTimes(x+1)))
  3219.           Else
  3220.                Set date2 = New NotesDateTime(Datevalue(request.StartDateTime(0)) & " 00:00:01")
  3221.           End If               
  3222.           
  3223.           If (dateItem1.TimeDifference(date1) >= 0) And (dateItem2.TimeDifference(date2) <= 0) Then          
  3224.                CheckProfileTimes = False
  3225.                Exit Function
  3226.           End If
  3227.           x = x + 1
  3228.      Next
  3229. End Function
  3230. '++LotusScript Development Environment:2:1:CheckForUpdateNotices:1:8
  3231. Function CheckForUpdateNotices (SearchKey As String, request As NotesDocument) As Integer
  3232. *This function determines if an update to a reservation request (a notice document, not a reservation document) has
  3233. been received but not processed yet 
  3234.        i.e. the chair invites a resource, and immediately reschedules the meeting
  3235.        the original invitation document should not be processed      
  3236. *The Search Key is the apptunid + the abbreviated resource name
  3237. %END REM
  3238.      noticeview.Refresh
  3239.      
  3240.      CheckForUpdateNotices = False
  3241.      
  3242.      Dim newnotice As NotesDocument
  3243.      Dim noticecollection As NotesDocumentCollection
  3244.      
  3245.      Set noticecollection = noticeview.GetAllDocumentsByKey(SearchKey,False)
  3246.      
  3247. 'if only one document was found, it must be this one     
  3248.      If (noticecollection.Count <= 1) Then 
  3249.           Exit Function
  3250.      Else
  3251. 'scan through the collection; as soon as we find a more recent update notice, set the return to True and exit          
  3252.           Set newnotice = noticecollection.GetFirstDocument
  3253.           While Not (newnotice Is Nothing)
  3254.                If (newnotice.noteid <> request.noteid) Then
  3255. 'we found a different notice document
  3256.                     If (newnotice.SequenceNum(0) > request.SequenceNum(0)) Then
  3257. 'the newnotice has a greater sequence value -> we cannot process request           
  3258. 'newnotice is probably a reschedule notice                         
  3259.                          CheckForUpdateNotices = True
  3260.                          Exit Function
  3261.                     Elseif (newnotice.SequenceNum(0) = request.SequenceNum(0)) Then
  3262. 'the sequence values are equale, but newnotice was created after request
  3263. 'newnotice is probably a cancel or removed notice                         
  3264.                          If (newnotice.Created > request.Created) Then
  3265.                               CheckForUpdateNotices = True
  3266.                               Exit Function    
  3267.                          End If
  3268.                     End If
  3269.                End If
  3270.                Set newnotice = noticecollection.GetNextDocument(newnotice)
  3271.           Wend
  3272.      End If          
  3273. End Function
  3274. '++LotusScript Development Environment:2:2:ProcessPre45Request:1:8
  3275. Sub ProcessPre45Request(request As NotesDocument)
  3276.      Dim bodyitem As NotesRichTextItem
  3277.      
  3278.      Set notice = New NotesDocument(db)
  3279.      Set bodyitem = New NotesRichTextItem(notice,"body")
  3280.      
  3281.      notice.Form = "Memo"
  3282.      notice.From = db.Server
  3283.      notice.SendTo = request.Chair
  3284.      
  3285. 'see if there is a reservation already
  3286.      If(ReservationExists(request)) Then
  3287. 'the reservation already exists
  3288.           notice.Subject = "Could not reserve " & nam.Abbreviated
  3289.           Call bodyitem.AppendText("The room/resource could not be reserved since it was not available during the requested time.")
  3290.      Else
  3291.           Call CreateReservation(request)
  3292.           notice.Subject = nam.Abbreviated & " was successfully reserved"
  3293.           Call bodyitem.AppendText("The room/resource you requested was successfully reserved. Below is a doclink to the reservation.")
  3294.           Call bodyitem.AddNewLine(1)
  3295.           Call bodyitem.AppendDocLink(reservation,"Reservation document for " & nam.Abbreviated)
  3296.      End If
  3297.      Call notice.Send (False)
  3298. End Sub
  3299. '++LotusScript Development Environment:2:2:ProcessOneNoticeRequest:1:8
  3300. Sub ProcessOneNoticeRequest(request As NotesDocument)
  3301.      Dim sApptUNID As String
  3302.      Dim rtitem As NotesRichTextItem
  3303.      
  3304.      If (request.ResourceName(0) <> "") Then     
  3305.           Set nam = New NotesName(request.ResourceName(0))
  3306. 'determine the type of notice we are receiving
  3307.           Select Case request.NoticeType(0)
  3308.           Case ORS_MSGTYPE_INVITE
  3309. 'look for a Pre45 flag; this means that a pre 4.5 user is attempting to reserve something directly in the database
  3310. 'this item should only exist for invitations, never reschedules, etc.                    
  3311.                If (request.HasItem(ITEM_PRE45_FLAG)) Then
  3312.                     Call ProcessPre45Request(request)
  3313.                Else
  3314.                     If Not (CheckForUpdateNotices(request.ApptUnid(0) & nam.Abbreviated, request)) Then
  3315.                          If(ReservationExists(request)) Then
  3316.                               Call ReservationDecline(request)
  3317.                          Else
  3318.                               Call ReservationAccept(request)
  3319.                          End If
  3320.                     End If
  3321.                End If
  3322.           Case ORS_MSGTYPE_RESCHEDULE
  3323.                If Not (CheckForUpdateNotices(request.ApptUnid(0) & nam.Abbreviated, request)) Then
  3324. 'cancel the existing reservation
  3325.                     Call ReservationCancel(request)
  3326. 'this is a reschedule notice; see if the new time is ok   
  3327.                     If(ReservationExists(request)) Then
  3328.                          Call ReservationDecline(request)
  3329.                     Else
  3330.                          Call ReservationAccept(request)
  3331.                     End If
  3332.                End If
  3333.           Case ORS_MSGTYPE_CANCEL
  3334.                If Not (CheckForUpdateNotices(request.ApptUnid(0) & nam.Abbreviated, request)) Then
  3335.                     Call ReservationCancel(request)                     
  3336.                End If
  3337.           End Select   
  3338.      Else
  3339.      ' This is an invalid request, probably due to the user adding this room/resource in the sendto items
  3340.           
  3341.      ' See if this appt unid exists in our list of invalid requests, if it doesn't, add it and send a notice off to the user
  3342.           sApptUNID = request.ApptUNID(0)
  3343.           If Not(InvalidRequests.LocateUNID(sApptUnid)) Then
  3344.                Call InvalidRequests.AddUNID(sApptUNID)
  3345.                Set nam = New NotesName("")               
  3346.                Call CreateNotice("Declined - ",ORS_MSGTYPE_REJECT,84, request)
  3347.                Set rtitem = New NotesRichTextItem(notice, "body")
  3348.                Call rtitem.AppendText("Please use the Reservation section of the Calendar Entry to reserve rooms and resources.")
  3349.                notice.Principal = "AutoProcessReservations"
  3350.                Call notice.Send(False)
  3351.           End If
  3352.      End If
  3353.      
  3354. 'we are done processing this, so remove it from the database
  3355.      If Not(request.IsNewNote) Then Call request.Remove(True)
  3356. End Sub
  3357. P%D"`
  3358. P#P#h
  3359. T!T!@
  3360. ^$ KT
  3361. ;^4 q4 
  3362. Kl Qh
  3363.     ^l #
  3364. "-,##K
  3365. ",P#J
  3366. ]|    #8(
  3367. KH$,|$}
  3368. KH$,|$}
  3369. %,|$}D!#
  3370. StartDateTime
  3371. S0D0V
  3372.     0S0E
  3373. OriginalRoom
  3374.     0S0E
  3375. ResourceName
  3376.     0S0E
  3377. O=Lotus Notes
  3378. O=Lotus Notes
  3379. PURSAFO
  3380. |.:#U
  3381. O=Lotus Notes
  3382. CN=Lotus Notes Template Development/O=Lotus Notes
  3383. PURSAFO
  3384. Fde!f^^
  3385. $TITLE
  3386. $AssistType
  3387. $AssistLastRun
  3388. $AssistDocCount
  3389. $AssistFlags
  3390. $AssistTrigger
  3391. $AssistInfo
  3392. $AssistQuery
  3393. $AssistAction
  3394. $AssistAction_Ex
  3395. 08/18/96 02:44:28 PM Rob Slapikoff/Iris updated LocalDomainServers
  3396. 08/18/96 02:44:22 PM Rob Slapikoff/Iris updated [-Default-]
  3397. 08/18/96 02:19:05 PM Rob Slapikoff/Iris updated [OtherDomainServers]
  3398. 08/18/96 02:18:59 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  3399. 08/18/96 02:18:58 PM Rob Slapikoff/Iris updated [OtherDomainServers]
  3400. 08/18/96 02:18:52 PM Rob Slapikoff/Iris added [OtherDomainServers]
  3401. 08/18/96 02:18:45 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  3402. 08/18/96 02:18:34 PM Rob Slapikoff/Iris added [LocalDomainServers]
  3403. 08/18/96 02:18:20 PM Rob Slapikoff/Iris updated [-Default-]
  3404. 08/18/96 02:18:13 PM Rob Slapikoff/Iris added [-Default-]
  3405. 08/18/96 02:18:03 PM Rob Slapikoff/Iris deleted Rob Slapikoff/Iris
  3406. 08/18/96 02:18:01 PM Rob Slapikoff/Iris updated OtherDomainServers
  3407. 08/18/96 02:17:58 PM Rob Slapikoff/Iris updated LocalDomainServers
  3408. 08/18/96 02:17:52 PM Rob Slapikoff/Iris updated -Default-
  3409. 08/18/96 02:17:43 PM Rob Slapikoff/Iris updated role CreateResource
  3410. 08/05/96 07:30:54 PM Rob Slapikoff/Iris added OtherDomainServers
  3411. 08/05/96 07:30:54 PM Rob Slapikoff/Iris added LocalDomainServers
  3412. 08/05/96 07:30:54 PM Rob Slapikoff/Iris updated Rob Slapikoff/Iris
  3413. 08/05/96 07:30:54 PM Rob Slapikoff/Iris added Rob Slapikoff/Iris
  3414. 08/05/96 07:30:54 PM Rob Slapikoff/Iris updated -Default-
  3415. CreateResource
  3416. -Default-
  3417. LocalDomainServers
  3418. OtherDomainServers
  3419. [-Default-]
  3420. [LocalDomainServers]
  3421. [OtherDomainServers]
  3422.