+,uv%e ,uv%e@B   jB!M,uv%e,v%e,uv%e,uv%e@Z }Sr%newmail #2Std7JournalN*r3!_`NNN7Tp`N`NR`NN"*& ,uv%e bd0@  ,uv%e,uv%e+v 4ұPN21@UeJ/dl F2u 9@cFpD2mҸI30t 7el eȀhA0uiNCV0y3& "oڄ]gJ9v #h E7N;!& _zBmC ~1I15c 5 1Ę>H;ĉ./$A*Yn+ظ]{Ħ %˂Mb ebr='k,hab65 'h&bus3ʙE Fq[z+ıuUabF̰]L5VlyH O:FLdS&{^1R8aR%Hb˘m+D"CɅ- q%؞ՂGjĉcp1m9Lb:P\W2% pa4 GaI=i ,r ;z`!A`a3,{ i| 7Lx9Wl`Z9X` ӁG%R 8cETTUb)Wו@ZU U7|)Qp  ]=(W0 VFWē%\)hW%ir 5xWAj%PQqW9U+@m \ 4əBsE] sAxEUAVpb%`Y Vĕl%b2&cTšW'+rOP] W%` H%FцcL%/ ubWF!rlbE:W KpWX \ Ñe`8[H\q~>B Lf-Bvol/ lKp.PGt p.@ L5PiXhm+@oP`@  4'HA߿ `ff)4 uj1 "@/AN| 0N2\ ,@rX FH" H!p@@D $!)%l@L$8 &aii̮,*C\%EB%bYvQy8с !'.[\8 V2 "Q -R0fh9* -!#jpu/ׄr(o?Bօa4(2ӌ &TlC.QP Th1EGͭy @FZࢲ '*5!HC(U000-px&ZPT Ox1bb 4hCՂN-:fl  dhia GDA'~y bGpP @g g!eZ0Ӡ0ؠ5ؠ31t^nAxE$Asvh@gQ8!ـ|PZ*A5<;Bjq.7<.$R a(H"(" ƈ A8Ef QI  HG XTEf A3 J MXBjarqiË<*'@ ^6r0 MhBc22D $B  &ÿH7`hK :RР*F52_ @/ _@/4NG~ ȬB#mUՀo%X P᫪PPU+$ j?!2"*Q6RF`] P@5T֪ d%pVn.U D8#*P ez$6RG@]d]A{UE|UnU~V~M6QP=lTRkDS~RI3'7sH„H3e!17aԑSDUCI6eBH:m!$#U)BKF*9e80g% 8yX!A% Ȕ$GX)"'NHXHy"Iby12Đ'LOlSOC9$!SoI\uA2l͡MsxӦM.iBbFT7l؆zb[9O䎑M6MސMBŒYsFΛ:nlj@B B>D$=? O"Y{CQ寓pS)$ B#)̸]'[dH&JZ_J.@Ʌ::4z?4l~S :LMlWiŧ@J@eB%c@-"nKK1P`ƧL@<d-TѥpMgQJlT4U~FA4p+$k@сd@N1DY f`zOME`dEtY@SQ\DlexIbTP$r%1̖@.@_E%wB%t oE*xZ _hDUEh`~_u~Ha pX I1ixpUG)`R07n@@/OEQXš4TPS)l@/ƯI%,clYz=`\ mS\ĞyY8 ^lp@1Z+MvTzP` "P`<,@#@N$##@H @Pqp/$Y @fN 0UP)pH!H\)X8 V @; 0@P`{^`#((0 hi`e}e%X>\p!h(x!j`!(`jKw;/`C`~6 )@R7P)0KTl^"VVg,`vX9cp`1@ , <SQP#-  `@ Ge*P v@"PIO , e  (``1`0 x^`7@IR _ET\p)5 D0*< T@AQD/LvW@Q = 4o@Y+X:f 8O TM@Eف#@;9!0%XĀ5` AkHfx ." o(XkE(")+@P DL<0Q ]Hb<a -`)GS l*0@)` l0i  _8% D M|{/%$S7[@UЋ9 [f\'@=A]10 T) ,1`;TaGf@Tq c<'@:xYY!81N`#@ \#H!ni Gn !P?E 1`WZgUy Q(}bA`VLpV-XJ#hi X0p( "p@G1.@)@*42 @+ - = 7 .@Dƀ 2+@j'lI D!X30@;P(S0UX4`8퓯o+@:Y@4 l GEa-)`_~!OE Pp"{go@ $U`<_TX`@}o0`>)rRXmpO%  SׁA\bݗ@nW@܀Y _@/ _@ ($ ݡ@-p/ DF _@/ _@C8.p#}A0nf@0I@nځJnځKAoځLoڡElWpځNpځOAqځPqځQArځRrڡnҜv vtv t0v(``ZqT%9\%d%l%t%|%&&(&8&H&X&h&x&ħ&̧&ԧ&ܧ&&BT h)r! 9? GY :(|A%p7_@/ _@/ _@,uv%eF1DCZt)} '3 $8FŭT1X3m8-} 2bl0cKBxRkȸYCD?c*FЫa(ljߊ c%%PÂx#g"dx&T^×-VGtsUFvG|DlJ\m7 GG M6#" w&jwԖ/iPP@ʶW_<|"!&n P(Ҳ3=p9(e -3Cb!Oût BFtTqIN}^*"Hµ&Jѓ1}x;% u3 cfd8Il4 Q;bb!n_)zJM nU'qsE(-@.tb\x4,_:w~dH)OSdͅgGp4)Ĵ/ORBNSSfD74" _KLSFuF[Ra= ek̽!QIZ郢-8揗5#%MXDs@k,\`! է0)1T"ib ^7lp y b؁'l@#Kl, +ڀALX̄ ?1|b08. & y sMT lFe]txr b•AFqVg۶'`񢭲[UB$pگ%@z\9E(!GX<Ԃ[Hx r;*n 1k^QATr*Ԁ x%ĵG:÷rׅ 6*PY>l`l].YhHP,FviuTB'"ThșG=Qϋ7 LW/hw@;'Ĥ2RՖޑJ0Fϕ pC᠜G\RD @O3Hv*i1 45X#ŜFi`C=/UgF ^wl5(5) vЄ N-"ceR!pQ? ag F/ kH+LpJ [ ק 8 ZX̚"DDjuOHOZd ̧X"@w5vr<䏓#Y F`4ĢD9cHeFa09/ uAMqIC?qVIf(@Τ^rHRz0!FWccUj$3T@-r05 ٥%16&dh $U(^,D'CUPU!J?DԤh, zf+lEXU;4&2Z-ʵ$SVBSԹDnt`Z@ @ T cQxx8̟"c@ 6|#HX bzQ&,F44d!"AȈxDܠfYMmQ1ݣ@:D>qiuG*aɲt &gHP(WPɎٚpP% 4찧( d[,#%Jɏ5y TIbfa|[2s\[/ k|5sb̓ĞzҤ$̤q,t(U0zᄋ,V?mFԽFB0d^ *͐B,[HxFlAlM50lHeK~x(͍.+6 .%OЃqlbg*6D X%/8dPZhAp^N&l6{|$)"JX8,bUgA@`gz  ǓTt`Y& `xJm̬1I[ H!h(0g~> c }և b1jH.F , @ ܴaHw„GWŪ-ۃ ~}'OE810P-} 2}Ԣ1F7@: M1ʉ Rb'I~xq4ǂUCxՋ|90e+zuxA`&Yh:3 J @J`S8,PEQh#!9ME(*դ;Pe34CVP9c"s%7zԉtɍufx, x%J>Ql T ` EG-60UĞP(8(iG 7b|Ԣz# }%2ͤ@6P \ؕZ^Ua,-+U=pycH=- UZ>{ )ţ4, @g&1%jdW%_),_r,[$suUdj1v8RB&8r,c3zO` >o1V` [X(֩ Zy:E`^WJ (G 4` >#4Ђ] Keݭ!RA.]-'l9ycd?B$%$n!#0,N-biU"8r$KK>E"TMi eT,/`p(K0DHoTO0HiP Ӥr~\-K3 *7l\i@`4T8EeXE%HQУ`F @^%!.y|)bh6?6`/]IVkXP&1PMUz2F˃9PBwEFeBu TQgY hӣ tdD!Ac~ũ 0L@llQГ %1-f5YcI/SSܑˢP'}9RJLS`F3(NBW`up*ZV4.|!3]n4A)XX4CYr;8Eq[1/PSJ͇%P枚Mz(@]$ XbA>c0/1lHK.S}akמ@f}ʔ~zf? FEd!J%vdu [zܒLP~ [*aVrbw) B4˞,Ȅ'z܃Б"(foC]L2HS6PA<]۳ۑ$QR,q:ɡT|%jŬAit@X LRqEK]z-ΝhS7EQ9I%T\~@ C/_q]R&(n˔!%ړ,O0K6 Af*.#q Y ń4 LIk"`bJ*<@!ߌPխFb˗<,g_T'n?M\J!L-2%4-"'"Dj\;(WaIYze VS]:y/oaIk .+^RXD`q#.tPk\(ڜDZ X8y4h0Ƃ69hO%VlS@ htg)Ks3!fkمRpc'q'϶x -g`ab*&0h#{spe j/"T{ <-n ;M'́w! G+*y@&d @/7"C |2R2䩄 Q(Q'ܞPSd괈 4C[ \,v3=dF* >tQ8WQ}]ᒩ\?0F4#W-m5*I鵡iLQ){r0Cql.lCԪ:Qc 7 'th:TbTRƊLi2DAIbO/a|TV,W,0zs!B5B4 v P8ۙr:m&( =n;Űa!nFRLPC,ŊwptM\.zG5ϑ`g nԪDK)#Dh18bq1ΛXda'BH Xo ZDAc.&< ؀_p4T#de +Ls%Z9&n8(ՙ}m|9c%&)`a V Dx3P'pdX&5^tU sC:bkUIL$V YB| C6TtɶT@iD  P@@!2yW+|)bec3"4ƅ>YآשbJHBuU^ed 10gMC8 T8Rl-kÌ4 t*dSPE1` c)WqqL~b 50gUc")Z# lF9r!0s+d: ;w(.{hmB XNڙTueRo]Rǂ7 59!9I[&(ܹviޭHD<S">SK: ] U|l6J %5\aX#^9{/,ې1#KQ 9LKD8#S\Lњ,YFې ڂn\b.DRӥ0 aA s֍Wt~BNlJR7OZ=x\/uy~8 %qaW'~4. Q<աSH(yЃWlP[ĨFD: f(Vᡠ2+Ll`@ +C?$*fV=̄ph tFyjHi>h,e[2 /[,ANug~6†4ё$ \_ R8eHC) ׼ :v虊GsRRH`T#ST& V;R\i *Sz؂ e{ȋ_%"љO !գ-c@uOf,`ag6OnA];hU/]vXcM$) FUlZ%  mURo z -d#rf d S@U B$&+uAZk14{H}tXsJŷ<,;*% IB8kFȖN{0B +Eln{#ˍ5}RQn7lGC:R9,JÄ3!Cu4!K ^(&xw@ӿ/h8 ]n`Bފ5 y昄W$!ÌjKB@"""C J/fh|WAT+6LPL:n'LX7&֭Xc$f$!b:@m>1'>6$pӅKbh^ Fɔ! 1 -"UءJ D *Apw(țvP נ_,I@Q0+V`'mNȆdFذs(兇QXc8}fI& åj 0u!JѦ5H@\et G0p52 @_SRjv‘[r5j s1W D8(tB.0R(4U "HϞy$ kB?:wD17JX*"sd]R\#!&i*Ii.Ii2Iicq$9 $%r $( 9A)`9P TĒ̒Ԓܒ $90ftО栙tvtv t0v`tPvtȁפC E+|9_5@/ _@/ _@,uv%ezۣ P`p 0SM h%'HZZg%  @ # `   P p  I                     ( 0 6   @  Y,uv%eg e4>B&ha&X` 8ԃ B@tU#UT1UT9Y &< b@ &ƪ!`3׬L5[$肎šu P L5^ . PPP*HD+DTTE0UL $EW`V }V0$"`W$ET@X6` QdVF做obUpb TYg)P2PޫB)ѯ Y<5<)P)J*B @ X(-C3UadUOUZRDUUV dU!GՒWLPB&CU2Vdfe*v|rUhs ;Q ="$EK A52DUZ %ʨ%QTˌ%= RUa* WU-)S K*Z(m,U!Ѫ%Z26QW2tU\2"@*p^T$'$TI)Yj`[[MtTU!3%.kUd]UZ ULB$A0!L9tHL}M:u!Q ʐ0m? ڣnRFΜ4oܐy#M6aH^0g!oF@OP).( *i(a#v$aS`M3sRBsАLb\)#ƈ\E4lDDL89R%ȑ"I$$ 6aEHPIBIQJH4a:ɒ1?%G3 z#y,& fb.AJ"W<$UЦMrOd@OLJO-R4fҔ!C&BJ1%8D҄_LV5nΐđ:iؐv$IhP*uq[RRmԑspcVeUtQ9wʈS79ěS-bKƤiG%JZ %q-5SXGQ &h]Th !D0J5zZ0,\p`HA*^ K[0 8h§*Pq2 I!UDE0Ji 6pR DNPXQ A\ dUj2PL/Q@@BP(T!  lU]Gy;X$%hjJ@,uv%e10 PFF4vZ**l55Ob%,uv%e /XQ6Ob%W,uv%e-7v Kb%&Ss%*PࡄW?tMb%'Ss%.+ɏ"\H"g% *Ss%:^!C.q$g%'/Ss%N1>[H.g%2Ss%Zvb]oDf H.g%8Ss%f40H70Fh%::Ss%nlzփqXi%=Ss%zΣMrDiXi%>Ss%~r;B `XXi%?Ss%-K{ԛuYi%@Ss%:wwBbi%BSs%ZG]g(Afi% DSs% .M} =wj%GSs%(Ĕ^Lj%ISs%O6mHSn%CSs%2W,uv%ea,uv%e_*}l) ,uv%e,uv%e @P ZZllFFvvPP4** n:5\HZZg% ,uv%e4$PX~Ob%"#Ss%7٘TWoOb%$Ss%"'˲0}Kb%7%Ss%&ALw#otMb%(Ss%2ՑX"tMb%)Ss%6, &FH"g%+Ss%>+b3vA$I"g%9,Ss%B]ŒO Z$g% -Ss%Fq0RBYi$g%.Ss%J}e|h>H.g% 0Ss%R,M- [H.g%3Ss%bFPuf h%9Ss%j˕? h%#;Ss%rf26LNHXi%, &FH"g%+Ss%34CiQen G$actions7B+b3vA$I"g%,Ss%C34yQen B$$return2FTŒO Z$g%-Ss%enK(wfolderremove)4Jq0RBYi$g%.Ss%CDenK(wfoldercreate)4R}e|h>H.g%0Ss%CDencH foldercreate4R}e|h>H.g%0Ss%CDenaQ(wfoldercreateopen)6Z1>[H.g%2Ss%fL3uenOwfoldercreatesave6b,M- [H.g%3Ss%fL3uen Dcommon6fb]oDd H.g%8Ss%s34QenT$$viewtemplatedefault7jFPuf h%9Ss%C34WQenF _clean sheet2n0H70Fh%:Ss%enhM outline page9zzփqXi%=Ss%C34WQn1enoJ borderframe7-K{ԛuYi%@Ss%#34CQenI view frame7 4R} Zi%ASs%#34CQenH by diary date3GTg(Afi%DSs%YenLdatabaselocation4SX^XԮw^Sj%ESs%CDen X$$returnauthorizationfailure4.M} =wj%GSs%CDenNoutline page 28q5A+=_l%JSs%C34WQwenVdefault design for folders4O6mHSn%CSs%YdenH folderdesign4O6mHSn%CSs%Yden(4$CN=admindstrator Administrator/O=new $PrivateDesign,uv%eB /r[[n%wwZkaH all documents3&'˲0}Kb%%Ss%Yen A($all)3&'˲0}Kb%%Ss%YennH_journal entry2*-7v Kb%&Ss%enG journal entry2*-7v Kb%&Ss%enF journalentty2*-7v Kb%&Ss%endI wfolderremove4Jq0RBYi$g%.Ss%CDenZH folderremove4Jq0RBYi$g%.Ss%CDenrG by category4N^!C.q$g%/Ss%YTenI wfoldercreate4R}e|h>H.g%0Ss%CDenOwfoldercreateopen6Z1>[H.g%2Ss%fL3uenQ(wfoldercreatesave)6b,M- [H.g%3Ss%fL3uenE clean sheet2n0H70Fh%:Ss%enD cleansheet2n0H70Fh%:Ss%enLjournalframeset5r˕? h%;Ss%#4CenI color page7vf26LNHXi%Ss%C34WQenI template name4r;B `XXd%?Ss%CDenOwebjournalframeset5:wwBbi%BSs%#4CenkMdatabase location4SX^XԮw^Sj%ESs%CDend!Y$$returnauthenticationfailure4މ =wj%FSs%CDenaP$$returngeneralerror4|T =wj%HSs%CDen% Fwebfont7(Ĕ^Lj%ISs%CUAx3enH$templatebuild2[բJFqpl%KSs%en X(default design for folders)4O6mHSn%CSs%Yden%$profile_008tempvars_ ,uv%eCN=test/O=testCN=test/O=test B ,uv%epn:5\HZZg% ,uv%e@,uv%e,uv%e,uv%eL[    1$CN=Lotus Notes Template Development/O=Lotus NotesCN=administrator Administrator/O=newd>l??ccl66aaaləjJFSR1$CN=Lotus Notes Template Development/O=Lotus NotesCN=administrator Administrator/O=newnewmail #2Std7JournalR`y-$PX~Ob%"#Ss%,uv%e &uv%e,uv%e(" " " " " " " 8"L5"J8R1CN=Lotus Notes Template Development/O=Lotus Notes"7٘TWoOb%$Ss%,uv%e ,uv%e,uv%e(       8L5J8R1CN=Lotus Notes Template Development/O=Lotus Notes,&'˲0}Kb%7%Ss%,uv%e,uv%e,uv%e7 7 7 7 d7 7 7 7 7 7 7 7 7 7 7  7! ,7 z7L57_7`7en1All Documents|($All)d$116i2$53r"@0$51 Previous version as of iKV"6$44 TimeCreated  $NoTItleA!B h%UntitledN$52Subject .SubjectNoTitleA!B h%4/ $116$53$51$44$52$Conffict$REFf  L1SDf$116Df$44Df$44Df$52Df$52YYB71CN=Lotus Notes Template Development/O=Lotus Notesb%&*-7v Kb%&Ss%,uv%e!X5,uv%e,uv%e" # $ % & ' (  " ) * + T  (, - . / 01234 56\ # F!  L5AEDE2891FB70A9005AAF8B355F3571A567843E4301C6054E658E2C2D65E5AC9DentTo% _Journal EntryJournalEntryWebFont00000000000000007   BodyDiaryDateCategoriesNewCatsWebCategoriesSubjectTimeCreatedFolderOptions1CN=Lotus Notes Template Development/O=Lotus Notes.ࡄW?tMb%'Ss%,uv%e\,uv%e,uv%e  L5Xen1CN=Lotus Notes Template Development/O6Lotus Notes2ALw#otMb%(Ss%,uv%e\,uv%e,uv%e  L5Xen1CN=Lotus Notes Template Development/O=Lotus Notes6ՑX"tMb%)Ss%,uv%e\,uv%e,uv%e  L5Xen1CN=Lotus Notes Template Development/O=Lotus Notes:+ɏ"\H"g% *Ss%,uv%e,uv%e,uv%e 7 U        / L5 enJournalOutlinem3461CN=Lotus Notes Template Development/O=Lotus NotesD>, &FH"g%+Ss%ú,uv%e ,uv%e,uv%e8 9 : ; LP; ? <  WL5?? outline.gifoutline.gif34CiQoutline.gifen1CN=Lotus Notes Template Development/O=Lotus NotesB+b3vA$I"g%9,Ss%ź,uv%e 2,uv%e,uv%e 9 9 9 `99 9! (9 9 B9L59$ACTIONSC34yQen71CN=Lotus Notes Template Development/O=Lotus NotesP F]ŒO Z$g% -Ss%Ǻ,uv%e ,uv%e,uv%e6 =   >             L L5 $$Returnen1$$Return6R T.,$V0 **TNThis $$Return field returns HTML as a result of the successful form submittal.  1S  0R$spacer @d 0R1S2S6SVariables to translate  0R1S4PrevDoc Open the page you just submitted 0R1S2S4BackJourGo back to the Personal Journal 0R1S2S JEntry Journal Entry 0R1S2SSubjSubject 0R1S2SUnt [Untitled] 0R1S2SCSheet Clean Sheet 0R1S2S4 ThankPerson Thank you, " 0R1S2S3S4S8SdThankYou ThankPerson1. Your page has been submitted successfully.

"spacer" 0R1S2S3S4S5S6S End variables to translate  0R1SXgetMoreSubj: "Subject "SubjectUnt"" 0RR1S2S3S4S6S6S9S10S12S14SD NewThankYou

ThankYou"getmore"

" 0RR1S2S3S4S5S6S7S8S$Get the name of this database.  0RR1S6DB?k +\/ 0R1S2S10S14S16S19S21S,webButtonPressedwebButtonPressed 0R1S2S3StFormNameForm JournalEntry HJEntry8Form CleanSheet CSheet " 0R1S2S5S6S8S10S11S12S14S16S8Thanks

 NewThankYou"

"0R1S2S3S4S5S6S DNT Anchors to follow DNT  0R1S2getcurrentViewtempvars viewtitle 0RRR1S2S6S0wGetViewgetcurrentView + 0R1S2S6S8Sexistingdoclink"PrevDoc"    ",& 0RR1S2S3S4S5S6S7S8S12S13S14S15S16S17S| LinkAllView "BackJour"}~h(\)K@yG|ZGvwȹ lqޢ;zAY>.3*p%N˛h ST䃆& M±5C?35jƧNiSjR/sZN ب%uCdS`DP~}1s, wuXL9 @vrIb /%V Շ\z'-uQ3:b^j+o.O !ik/a.T8bqpKXӨSor!1Xgv4Zk_!:7Y]b^¶ rXRc>߶b6 m]'"M.z7hSP0pC<̦I] $ACLDigest$PX~Ob%"#Ss%,uv%e(VPlaybillF00Headline Z     " Nhistory.back()lf e"f Nhistory.baik() Go back Z   ,   0S0E  ,   0S0E3 Close this document to view the application Z   Using Personal Journal Z   &  @¤@¤¤ä¤ä¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ɤ¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤ ¤¤¤¤¤¤¤@@ ` ) @ @@@`@@@@@` `@``````` @` @` @` @`@ @@@`@@@@@ @ @@ @` @ @ @ @ @@@ @@@@@`@@@@@@@@@@`@ `@@`@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@ @` @ ` @ @@@`@@@@@` `@``````` @` @`ࠀ @` @` @` @ ` @ @@@`@@@@@` `@``````` @` @` @`𠠤vvvv݅ Z  0Basic Z    This application is designed to keep private documents not intended to be shared with others. It can be used either in the Notes Client or in a Web browser. Types of documentsl There are two basic types of documents in the Personal Journal -- a Journal Entry and a Clean Sheet.Z   Journal Entry. To create a journal entry choose "Journal Entry" from the create menu ir click "New Journal Entry" from the top of any view. Fill in the Title of the entry and then type the body of the entry in the field below the Title. Then save and close the Journal Entry. You will find the title of the Journal entry listed in the "All Documents" and "By Category" views. Clean Sheet. Create a Clean Sheet when you want a document that does not display or print the document's header. This is often used for business letters or any other document where it is not desirable ti include the "Title" when displaying or printing. If you wish to add a title or a category to the Clean Sheet, click the "Add Title/Category" at the top of the document. Views and foldersd Documents are easily organized via an "All Documents" view and folders which you can create. The "All Documents" view shows all documents that have been created in your personal journal. You can click on the Title column heading to sort alphabetically by title and then click agaii to restore the View to it's original state. Similarly, you can click on the date column to get the documents in descending creation order. This allows you to easily find the most recent documents you've edited. As you get more and more documents in your journal, you will find it useful to create folders to organize the documents. You can create a folder by clicking the Folder... drop-down action button at the top of any view. ( Special features worth exploring If yiu tend to write long documents and want to keep multiple versions, edit the Journal Entry or Clean Sheet forms in the designer. In the Form Properties box, select the Versioning feature that best suits your needs (e.g., "Prior versions become responses"). The views in the Personal Journal are designed to display these versioned responses. Note that document Versioning is not supported in the Web browser. Consider keeping a replica of your personal journal on another server and replicating irequently. This will insure that you always have a back-up copy of all Journal entries. For extra insurance - check the "Do not send deletions to other replicas" checkbox on the "Send" options of the local replica's replication settings. By doing this, you minimize the risk of accidental deletions. If your Journal is REALLY personal, locally encrypt the application by pressing the Encryption... button when creating the application or, if the application already exists, the Encryption... bytton on the Application Properties... box.Z    "Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"\oK ]4,u=)2= |8?x'=x-p)- 5oxr]0 q}-w_&/ftv:w  1$HTMLCode$Info$WebFlags$DesignerVersion$Body"7٘TWoOb%$Ss%,uv%e (Times New RomanF20Basic Z     " Nhistory.back()f e"f Nhistory.back() Go back Z   ,   0S0E  ,   0S0E3 Close this document to view the application Z   About Personal Journal Z   &  @¤@¤¤ä¤ä¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤¤¤¤ ¤¤¤¤¤¤¤@@ ` @ @@@`@@I@@` `@``````` @` @` @` @`@ @@@`@@@@@ @ @@ @` @ @ @ @ @@@ @@@@@`@@@@@@@@@@`@ `@@`@``@`@`@`@`@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@@ @@@`@@@@@ @` @ ` @ @@@`@@@@@` `@``````` @` @`ࠀ @` @` @` @ ` @ @@@`@@@@@` `@``````` @` @` @`𠠤vvvv݅  Zp  -dE Welcome to the Notes and Web Personal Journal. A personal journal application is designed to keep private documents not intended to be shared with others. A persoial journal entry may be used as a diary, a lab notebook, or simply as a holding place to compose documents before they are ready for wider distribution.} Choose "Using This Application" in the Help menu for suggestions on tailoring this application for your personal use. "Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"Mny Q& |?mpe&a6tjqI؛3J"A9ro|GLO,Uw/3N!\!1$HTMLCode$Info$WebFlags$DesignerVersion$Body&'˲0}Kb%7%Ss%,uv%e6 VC  VC@  VC VCDy  VCI  $116$116i$53@2$53r"@  4S6S$51|vThis column is available for backward-compatibility with the R4 journal teiplate, which supported Document Versioning.  1S0$51 Previous version as of iKV"  0RR$44ModifiedD6$44 TimeCreated    3S4S$52Title $NoTItleA!B h%Untitled 1S2E2SN$52Subject .SubjectNoTitleA!B h% 0RR3S4S&   $+WC WC WC WC WC B yl}1;$ @:Y & Categori_zeKN|(_Send Document ,_Move To Folier...=|._Remove From FolderK>|Y (_Edit Document "_Forward New Journal Entryh,tempvars viewtitle($All)  4S6S" JournalEntry  0R4SNew Clean SheetKf,tempvars viewtitle($All)  4S6S  CleanSheet  0R4S*!Folder\Create Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');_X!  Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0E*!Folder\Remove Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');f ef Nvar pathnaie = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');_J@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S   0R_ ___ __ __ _____D! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in views  1S  0R Y &  Categori_zeKN|(_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y (_Edit Document "_Forward New Journal Entryh,tempvars viewtitle($All)  4S6S" JournalEntry  0R4SNew Clean SheetKf,tempvars viewtitle($All)  4S6S  CleanSheet  0R4SX! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0EJ@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0RD! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in views  1S  0R#Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"iǠ?mqH_ L{6{5FUx#$gunNxYPM`ЋoœyUB%(n8e s$LANGUAGE$FormuliClass$TITLE$Index$Formula$VIEWFORMAT$Comment$WebFlags$DesignerVersion$V5ACTIONS$ACTIONSX5*-7v Kb%&Ss%,uv%eX5_TB8$New Journal Entry iKV"Subject 4S5S6S14S("Small FontsLSOBen$8T Lotus ProductV0.0W32I@*6FE9EF8lNEWDELETE INITIALIZE TERMINATEOBJECT &` JournalEntryZp@   dZp@   dq)WebFontWebFont Z0a    Hidden Fields: PD0 @FolderOptions T.,$V 0 **TNThis $$Return field returns HTML as a result of the successful form submittal.  1S  0R$spacer @d 0R1S2S6SVariabies to translate  0R1S4PrevDoc Open the page you just submitted 0R1S2S4BackJourGo back to the Personal Journal 0R1S2S JEntry Journal Entry 0R1S2SSubjSubject 0R1S2SUnt [Untitled] 0R1S2SCSheet Clean Sheet 0R1S2S4 ThankPerson Thank you, " 0R1S2S3S4S8SdThankYou ThankPerson1. Your page has been submitted successfully.

"spacer" 0R1S2Y3S4S5S6S End variables to translate  0R1SXgetMoreSubj: "Subject "SubjectUnt"" 0RR1S2S3S4S5S6S9S10S12S14SD NewThankYou

ThankYou"getmore"

" 0RR1S2S3S4S5S6S7S8S$Get the name of this database.  0RR1S6DB?k +\/ 0R1S2S10S14S16S19S21S,webButtonPressedwebButtonPressed 0R1S2S3StFormNameForm JournalEntry HJEitry8Form CleanSheet CSheet " 0R1S2S5S6S8S10S11S12S14S16S8Thanks

 NewThankYou"

" 0R1S2S3S4S5S6S DNT Anchors to follow DNT  0R1S2getcurrentViewtempvars viewtitle 0RRR1S2S6S0wGetViewgetcurrentView + 0R1S2S6S8Sexistingdoclink"PrevDoc"    ",& 0RR1S2S3S9S5S6S7S8S12S13S14S15S16S17S| LinkAllView "BackJour" (<x"ZxT--Journal Entry}1;ZxT-- 7`^ Created: T  //::0 iTimeCreated Zx T--("a  i   1S2S Modified: Px0 H H<2 (i D2Y1V   10STimeModified ԾxlJJ 8Web "  outline.gif  0S0Ex:p!"Z :T--   ,\> (<Z 55 T  Title::pZ ':'!T  $ P=_P,size=70H0 SubjectSubject of this journal entry  Z ':' AT  PB0  SubjectdspSubject Z ':'U    Category::pZ:T P ,Rows=10  WebCategories `Web F:nocache By Category?  5S6S7S8R16S18S20S24Sz( WebCategories  Enter a new category: P,size9504  NewCatsCategoryz*NewCatsCategory Z: T>"a 0 Notes  1S2S3S4S T.,$p  x  9x \Notes D Categories^, WebCategoriesNewCats^ 3S4S6S14S19S20S  ( WebCategories WebCategories 1S2S3SNotes l, WebCategories Categories^@ WebCategories WebCategoriesNewCats^ 0R3S4S6S19S28S29SNewCats 0R1S2S3Sz  0RCategoriesPress ENTER for list of keywords or to add a new keyword. `Web D:nocache By Category?  6S7S8S9R17S19S21S25Sz, CategoriesCategory Z:U Z55 T6"a ( DiaryDate   1S2S Diary date::p"Z:)T $p= dT //:h0  " -K  0S0EDiaryDateDiary date for this journal entry.  Z:IT T //:F0    DiaryDatedspDiaryDate Z55T Attach a file::pZ:T      ԾZ    T.,$@B((&height = "300" width = "625"^0 5BodyEnter your comments, questions, ideas for discussion.zT5BodyEnter your comments, questions, ideas for discussion. Z    yl}1;$:Y & Categori_zeKN|(_Edit Document (_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y "_Forward D_Edit Docuient   0S0E^ Save & Close<   0S0E  0R@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4Y0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4SY & Categori_zeKN|(_Edit Document (_Send Document ,_Move Yo Folder...=|._Remove From FolderK>|Y "_Forward D_Edit Document   0S0E^ Save & Close<   0S0E  0R@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R 2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S%Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA < ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"g;|sxQyV9rZX<͠x>I>XtA11 =s2=mCu]ozoվDateTimeModifiedSavedOnce$LANGUAGEdspDiaryDateOriginalModTime$HTMLCode$Info$SubForms$SubForm_RepIDs$WindowTitle$DesignerVersion$$Script_O$$ScriptNameFolderOptionsTimeCreatedDiaryDate$Body$V5ACTIONS$ACTIONS HX50 <Dp4 @ÀSU B(~  \.ࡄW?tMb%'Ss%,uv%e\'Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV 1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"FH++ ^ E#V\:ya|Џ~qGqI%bGTI sBVls: ܇ދn˃yNN$Flags$LANGUAGE\2ALw#otMb%(Ss%,uv%e\'Ss%zOzj"{lmMc%7lLc%l% M=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"FH++ ^ E#Lp':\e2H qQh 67MDOj8㚌2JC 󉌽^cD8pҠ Vz! $Flags$LANGUAGE\6ՑX"tMb%)Ss%,uv%e\(Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2D]URSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"FH++ ^ E# U+#?"6]{n|}I;ƒYMlb׮ׁ*݈iYy $Flags$LANGUAGE:+ɏ"\H"g% *Ss%,uv%eHH[ * All Documents(($All)28NotesViewAll DocumentsHX0 By Category- By Category?NotesViewBy CategoryH^ 2 By Diary Date/ By Diary Date?NotesViewBy Diary DateHHHH(Ss%zOzj"{lmMc%7lLc% l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,M%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"yݐŋyP]0ζ|Vw>1f2{*N;!@6x-ҽyP#[}lʨ00:(90Aa"9($LANGUAGE$SiteMapList$DesignerVersion2B+b3vA$I"g%9,Ss%ź,uv%e2R yl :^ Save & Close<   0S0E  0RH@ ForwardK    0S0E - forward.gif?*!Folder\Create Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'Folde}Create?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');_X! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder    0S0E*!Folder\Remove Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollba}s,screenX=150,screenY=200,width=500,height=250');_J@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0R_ ___ __ __ _____@Folder\Remove From Folderformh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0R_ ___ __ __ ____]\!Search@Web only; in views  1S  0RD! Move to Trash L  0S0E@! EmptyTrash   0S0E@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S ! Add Title. AddTitle.gif     Nvar pathname = window.location.pathname; filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) var newWindow = window.open(filename + '(wDocInfo)?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=100,width=425') f  ef  Nvar pathname = window.location.pathname; filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) var newWindow = window.open(filename + '(wDocInfo)?openFmrm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=100,width=425') _A Add Title$titleClean Sheet Title  1S2S4msg#Enter a title for this clean sheet. 0R1S2S0getSubtitlemsg 0R1S2S6S8S10SSubjectgetSub  0R4S. AddTitle.gif^ Save & Close<   0]0E  0RH@ ForwardK    0S0E X! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0EJ@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a cmtegory.  8S14S16S20S  0R@Folder\Remove From Folderformh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0R\!Search@Web only; in views  1S  0RD! Move to Trash L  0S0E@! EmptyTrash   0S0E@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y  CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4SA Add Title$titleClean Sheet Title  1S2S4msg#Enter a title for this clean sheet. 0R1S2S0getSubtitlemsg 0R1S2S6S8S10SSubjectgetSub  0R4S+Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA= ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"RnEO~qZq=i!*ϊSKr%7)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"-m~4DoRRDqz#|#@%ρJg%ŭJ9&tmxQ`]A>M9q>E$HTMLDocumentStyles$LANGUAGE$HTMLCode$Info$DesignerVersion$Body:Jq0RBYi$g%.Ss%ɺ,uv%e: DVD Nwindow.opener.parent.frames[1].location.reload(); window.close(); f DeVfD Nwindow.opener.parent.frames[1].location.reload(); window.close(); __ ?6*(wFolderCreateSave)  4S6*(wFolderCreateOpen)  4S(&Arial FolderRemoveR P>0   0SaveOptions P .0 folderlist Rp@   d q)WebFontWebFont R  
,(<.p_R .T Remove Folder.pR.T You can choose an existing folder to remove from the database. Choose from the list below, and click "OK" to remove the folder. .p Pr   &CurrentFoldersCurrentFolders$ folderlist  0S0E  Nif(form.CurrentFolders.selectedIndex != -1) { for (var i=0; i < form.CurrentFolders.options.length; ++i) { if (form.CurrentFolders.options[i].selected) { var selection = form.CurrentFolders.options[i].value; alert(selection); } } }f ef Nif(form.CurrentFolders.selectedIndex != -1) { for (var i=0; i < form.CurrentFolders.options.length; ++i) { if (form.CurrentFolders.options[i].selected) { var selection = form.CurrentFolders.options[i].value; alert(selection); } } } .pR.T 
.pR.T J>>   0S0E  0S0E@  OK r̻b   " Nwindow.close()f e"f Nwindow.close()@  Cancelr̻b__  -Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA=BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"]Â:p-=Ka<(Esks.DPsLjYϐ L'co/ DmsYcGEܛL o:̽/& ~$HTMLCode$Info$SubForms$SubForm_RepIDs$WEBQuerySave$WEBQueryOpen$WebFlags$DesignerVersion$$ScriptName$Body$LANGUAGEN^!C.q$g%'/Ss%˺,uv%ex VC " VC@  VC VC "P  VC9  VCDy  Categories" Categories Categories$53@2$53r"@  4S6S$51|vThis column is available for backward-compatibility with the R4 journal template, which supported Document Versioning.  1S0$51 Previous version as of iKV"  0RRDiaryDateDiary date" DiaryDate DiaryDate$118Topic$NoTItle$B h%Untitled 1S2E2SN$118Subject .SubjectNoTitle$B h% 0]R3S4S$44ModifiedD6$44 TimeCreated    3S4S&   ?+WC WC WC WC WC WC B yl}1; $ @:Y (_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y &A Categori_zeKN|"A_Forward (A_Edit Document New Journal Entryn2tmmpvars viewtitle By Category  4S6S" JournalEntry  0R4SNew Clean SheetKl2tempvars viewtitle By Category  4S6S  CleanSheet  0R4S*!Folder\Create Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY==00,width=500,height=280');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');_X! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0E*!Folder\Remove Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');_ J@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0R_ ___ __ __ ____ _D! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in views  1S  0R Y (_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y &A Categori_zeKN|" A_Forward (A_Edit Document New Journal Entryn2tempvars viewtitle By Category  4S6S" JournalEntry  0R4SNew Clean SheetKl2tempvars viewtitle By Category  4S6S  CleanSheet  0R4SX! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder    0S0EJ@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S  0RD! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in }iews  1S  0R.Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"ZCbQؾ-wVyŠ! Vlx;!IrAG5]|?Ln+l%j;n7ES'pFyp>y s$LANGUAGE$FormulaClass$TITLE$Index$Formula$VIEWFORMAT$Comment$WebFlags$DesignerVersion$V5ACTIONS$ACTIONS*R}e|h>H.g% 0Ss%ͺ,uv%e* D VD Nwindow.opener.parent.frames[1].location.reload(); window.close(); f DeVfD Nwindow.opener.parent.frames[1].location.reload(); window.close(); __?6*(wFolderCreateSave)  4S6*(wFolderCreateOpen)  4S(&Arial FolderCreateR  P>0   0SaveOptions P.0 folderlist Rp@   d q)WebFontWebFomt R 
, (<.p_R.T New Folder.p% Enter new folder name here.  To nest the new folder in an existing folder, enter the full path using "\" as the separato}. (e.g. Existing Folder\New Folder) .p $@ hdP:0 FolderNameFolder namez. Folder namesize="40"  .pR.T 
 .p_R.T Current Folders.p You can choose an existing folder in which to nest the new folder. Choose from the list below, and click "Begins With" to initialize the new folder name. .p P   &CurrentFoldersCurrentFoldersCurrent folders$ folderlist  0S0E  Nif(form.CurrentFolders.selectedIndex != -1) { for (var i=0; i < form.CurrentFolders.options.length; ++i) { if (form.CurrentFolders.options[i].selected) { var selection = form.CurrentFolders.options[i].value; alert(selection); } } }f ef Nif(form.CurrentFolders.selectedIndex != -1) { for -var i=0; i < form.CurrentFolders.options.length; ++i) { if (form.CurrentFolders.options[i].selected) { var selection = form.CurrentFolders.options[i].value; alert(selection); } } }z*Current folders    vv Nform.FolderName.value= form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text+"\\"+form.FolderName.value@  Begins withr ̻b_  .p 
.pR.T J>>   0S0E  0S0E@  OK r̻b   " Nwindow.close()f e"f Nwindow.close()d@  Cancelr̻b __  0Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"ZT]܅ʘ[;>}C<>_W!z-Q/=k %tb9%-c@z}Z-MiD61+x^ ~$HTMLCode$Info$SubForms$SubForm_RepIDs$WEBQuerySave$WEBQueryOpen$WebFlags$DesignerVersion$$ScriptName$Body$LANGUAGE~ΣMrDiXi%>Ss%ߺ,uv%e UntitledR )ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TM}% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"g汴;^4|.UUP] bx$ V0}ύ?֩j꼵|>?gxvJE_4$Info$DesignerVersion$$ScriptName$Body$LANGUAGE r;B `XXi%?Ss%,uv%e _ (&Arial Template NameRp@   d Rp@   d q)WebFontWebFont b1 R8888 b1,ab18(<8 >p@#R >U Personal JournalR >T Personal Journalb1}1;R  ,A8(<8 >p"R >T    b1R0c? // This field prevents the form from saving a document. SaveOptions: P >0   0SaveOptions>Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Nmtes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"Bp\Jr[8KdfN,DLzɍV|ժ7mqͺfQ:жyX$HTMLCode$Info$SubForms$SubForm_RepIDs$DesignerVersion$$ScriptName$Body$LANGUAGE t p[,8C2<T/ 4X \\D\`3b "' 1 #>, &FH"g%+Ss%ú,uv%ehLI}| (((GIF89a)ҹ,) G! Ofim_5ahb6]z5H.1юy=ҒPv91%;O0+{kXCk>p1hq- Ks-}]7Y#DRgwAvzUy}WlTs@r~r8bWYVU&:x3DNÛ8A`ÿEۏO{cmt̅S#lzd=cQvbDv -9DgYtʷG>RSF9 Z\ˬUDVUIƐK/g9EIKX%S6XW69%lBmr RQ`턑,kS֧8;\D!ĖqmNp%'ip:wҫ,.S-ubRV>-\c R36&Q:b\.qքI}#7;ElNuSQ 㞭YhܹB/X)-gՏVx;uҐ ro޹tvH; GgWIm'[&ah(PZ|Ն: %A?TsdStaJ%.mET%y^^W"uؕ%tdI3g&ֈ]`<5IہhujRLL4_xR{}. hAyT##FNjxb&_ၵ' '0ͩSݧߑ`wO|Rr~':pJ-d9Quf*FKW"kF`z{&yA Ҩ,Ӷ&XX欚+Lmk"6i ( X]Ulxx0&ˑa^lMw_,e k{f޲~$]R1P'"Ԝ XVrm0+1_NI{\{o}9vb !xF9q,pl8G6ZWF65q*wMjmt"N宒+й=8Nms YS,ւ>V+b= z'Y |piaL!EwY+RcX;J.)έ \ڼQn/{x*I_ʫ~zГyz[]װ`nFrCO}1Mk_f du ;3ZTi#9#.3@k=ڞu‘_i+$jybFY;)_./@1m.nNBW"43{ђTɁ|":D /R<ŗKDLwǡP$ x#5FRժLrAM\M~$e=&(10VjPњ %p &dD苖M4ݨ!z'}:$6YGWhH-l诸{,Z\isZT!M/3ÁMZ0D><qXtҭ`6%Of5r H} ]ײL/J hAiC/ML"Ɩ0=Fwj$\; 5%ۇQiԂ}4K1@ JHTBP^PtZr`D 6PoWA56rt@հOJ⩉, j 4k8UŐkPC%a)F=עԐ2Fط)A|PC˞+2Nb@L⊯k2Wr3dF1bs&mxZNdyaf/; kPzxlۚ:4FZslIY*3s/cUw2a%ã6zg%yZLIR6 \0L iVc.\2N ^@3qƽ%/u;4֬ k\oyvM#Jӎ4OΫ#3RګAvHV =so7Ch!0&CR+#aj Fv0&mn58Nb۸R$42;Xmt34)*н0oW'vW;nWW.g*f<˲!?[]ewIy[mepaSl듷uݡ-Sjq`K}zg~ \{vgbѪנ#賜 ^ط3-m̞E:xe Hk"^ϹYcEsV&~^w<.5ԀD7Չ6㦨d>a*Uk8wwrevYzۗx3}GppFXwZwr;4h J9v]mSSrkd0|xmx*h)uYh^nFcg7\JvFd`F}=ot7abs@gPBu>?`׀9g68zBRxnIihgd@WsWdmHu)-FOk`8}ϧw$'&PzNF),5~o8XxysTxz3m&v8kt7~[K~zs8Xc`xz(gTfulf\rN`xDpW5wPxbixXdNi5}xv3g|S؋nxYʘD8^V,LjfOqpTI2J֔o8SBx3K'}膅~Q(热,TvP~/rw,~`wXHDȇp>{ƒsDM>H1BvT聑F9x}Gh'wfj&puy䇏eJ UQVVh"dI`q4h:aegvyax&R?w՗&Vz7[['8Y7GPyQ>ą7f/G5&w*uF֖ݦ\^URmi8NWW$qWw<ZgVz9qDSgD}YziKɗ siEftp ÎWT77P9!7 !=wVsG_[՗UsPKxs:row#M!z{p7mّ |l8z) #k{WcfVIfgoIYRS6&@8hcnv^`UV)WZWh> "=}UH{ 5V_iG'ȎD%yr>GEAx٧yCyoHI0b\RGX&Xm)xwGszاbxphJY#zfXS$ 6~dfv.G5wxyDI6gG෦'%B:)3+3P`]q?%xړ%IHځ舭L IoYkC(Cy`Wr;M))EfݸxFHW8~U7#Rj}uqcvܦ-p:~x{:XwYӹzjPmiBI@P dIrshHx\IxQ`z)T:Sw~2;c؋g#JDŽgzPKzk\7 dq+獥i9؇kDh诚wykn?Bˁ8HzԦ<ʹ}^WX!lܸ{{"G%Y۪"nf9x6gvMgUwY(Jdn}n7NK@:8ƻh`ZEw }!6T@/*ǃ|ihw}OnOa"6{rLJ[5N|r' Zkxc.B+\wh&9*ymVx:{Q}l#׊ ᐬaԵhK@eI<عd%'?up$)M˛5+K 글f|JXgLZ)|̄kZ5:9KK~:;;1jYX {;܆.(YfL7ʽyַ6.A< ;aؖ] g}U ʙʵ;{ш/dKن՚`O mzKWs hxŔŇʻV\ (xJLiʻk#t+dzP 7|;㼧] Ψ:ryT^츺帓u\}WѶ37B<ڣU˱s3[}s,DŽ? YjyMru;ZU{弮˽wnh0|HD&V4oc>!d=@}@M GuqdʥŌkћܴ t~N̸Xjz<τ᪕ֳ x(m͕gL{G;RȊL d *Y-.l;W0?ih؍i {j(CrB5I|'~ ȡk*)Xz<  טհ4]8ǗD%rXJˬܚYpt|ʸ֖ˌoJ(~{c-@p;&i9ͤ3?k{k =PՍ]P[uMͱE~ 9^rݨKu޸Aŵ6V'M]͟Tܢs{l> iP>֍9c {lشdQqRmY[Q; =}Ԁ]RzM{cβϘ-}2G[P )S r:\>^,∼: ykٯrKq\S`}%Yߨ|~~`E—zrʅztGNKc]>HРQ~}Ȳ$T+l; *Ӻ;VLJH)%=o-K˲ؖpN.N}~'"*˓J#YE;p%* ^S\eu8Q޼$z -WT{qwcrڻ9);Xծ>kixOgC 5NF94>ۂڇ=m^"3[1m=a )-{XutCTDyłBPftŹpC)c2\v*GzdZ10У:"ll#Kut,J7Gʬt%:Àp C8~9MCPcB4qB R'JjPwpZ Nkp jYEA4IS(tYN3;3Ol @T4E)LY VEsVF7FZ ~vh]t* %"CB xbm/^U r}72d*> Jfb2K(#PQdeUhIcfN1{Jw2t8?YwbeSwYBHi?A$f*` iC;q1thKotgz80s~".w}Ɨ9BsX011B OjTt:ѤBBWO5#^ttpscywA󅴚tbb/:6[0}h@{ܴI8(\&i!nW,XpN{r(y"PCWU'H0OP -ߔ>nrFsksv7B4GSdrq^,CZ~EfvK]()X}as!_eQ ti^]D~DžN VF_8[&W^C҂o{W$NJFA0k $.6-3)+dsj ?=EC ʪEʕgqKTL-OMI4)U]lumX #lRID,aIߑRw zȓbfdeL"Qff,1 Ptfj"[aDŽsm$v(i&Q3қ tDE 4b?pf/ D<5b$PPu F mxe;Iѣ9p$Ș9\d t[NT6n: ؔ8;z#TTL/TXurGj0[C:5Dx0Ł &uf]10 ~ Am͇QTuFT`A 4-A[ёzDbk~D-6 aַ$` YQBPd`lMp^¹)&LO8iUu F,Y+C'b0EzYa4iiJtr]]140g0fS[j' ˭ktF:Fr#J5^UK7`cwY\+/s?*xV\Ə  8pD?AN- a[T^3qj25RhaG`zGdc r)#~ĒkԨL%%Y÷Ei*sۯ|0MnHU4dW\%>@5Q},kdVi!n2!J&EHr銒->Zƈ:lrOe1G 蛜p 'BM*7 'R#셍 ,T8:R)2k[fELalȜdfәv/d%cI.kAQj fu}_,Vc]?8%7a4V5+Хs<7c7X!( 'żhxƒ&*4۠42;P'xuG|/`Soj2i@lfV-BV(h44F8P _dMA"y f7F/%(yBS8Ee} BsfS5XOQaP43'*f|?jgjUPbX$\U|-<#]"![f PϥLnQn!RKa=n^wZ:G YrgZ 3EnH1MxTVƄ% 0/g8K-1E+ '\@%bU9gO bCJ] t 6@% )|p&F40u`gzW[?13@l6! 8l %`;ߣ;bOJ̱|Aa_y(AQmb3?K_[^Xd6) 2> 5gZ4 DAXc,t'r3B5Y39c"Qcm"l.H#XWVvG"p02FgH}vJc1&yؒE : 3+]uq͇Wx6dG n !5BCd9G:%wXB#4{R6!İ:!gVc XUG/zS(^S;YCgFFxf1fIfG"!tdUp$wNb\+B g*e}.hj X\aYpc%4bClq@1tT<apnsC) $ o&rJfIYf).cLaD`G)c e~D6ǵ/gx~VQ1Nȱй ; t /2Ըny9QAkQ,J UNS= iƋwJ{(E֣4Pi43v[v%cu9'*c<{i7Y&ED[ frY?Qk)AԶ"m=:VE!-Q? )E٨/R~BVoSVY} QP_3s(&{s*< $'_'Ó>YZy3{Dmiqfu0 .YՓ"?#Z)Fh8~ʂqdQڊQPH%^Ω "h?Ya@&aK& ZڋE@^3Cg2-g|2 v}'zA8V9䌼&G`Qv_=G1Ey ӱ@HD8^ dJ%76,CM#|`2TqY &KBkU? D!$qB1WQqW+]r)}C: UQ1V`VkKv4m!+,UW"*frI`)%?>Dz;24N@D,>s}ܐ7r0ڎShv7%5G1d7$Idj&w1\ :7ƫjo12k{*NkM+{$=1YSc21BظgA"l3T r4S2P9pk+~7 *$iaR/4#Tco2I?S{US&e;qg+Xo1g1EgE*_1PdzE &x|8TZ?hdK]xV qĽWlRyidjPQրk81e8{C*2*iD>A)zڃ]gZ8X؋Or3`4tRQPvw[g8Z *PF:uC$ 䜭J?Eɲs*<)R&=&Tk*"FОBR@sNUt;F)!X#Tz'7~=5`R,zt=6M 3=c)AK43ndE~vut  EG]Ht#>X-:+{,) %zDZ7԰yIIHdte\чT<'6dv]/TRJg~xnD'ʹ*D"咳WF%p|H쵻'D<#7]d Y5NK܃ 5aRJG:= iP"lQ+]I^PY3$$]$-)wP8OF%1q+&#$D1(YݤZ 8e9li#$ݯC&@* cJ4:,8#fiGor}>{u&YV@GlQ93 ":( w` Lw-QM ;E`\9S!}=Sէ%z<;Rn`p# }ֺ\Noh `&,"ؘ-( n|5ߴ18Jaw&A6$9)xӊOkotԽ " H!QZSBx2=[$ytl-`}z,}s=:Z  0=Gtg#âhCr}dӘv-].|Xx'҉bT{l6k,S2|L#a0XFrjnnn}Y:=rr֦tV7!XCUQ3/kD&&PS'#uombwM1Y>OJ_ * Nd >3ћ^Q9L-Lqmo 7A5U9 p*#?kATGZsu݊t49E(鳁A|t\=9 CP1Z(LE8G"+~A1-z鳀N1>;DCbw+Bf) b܀eG%E%%W5&cg>v2>X:Gر~`vj/ue:V-zѬhLfCBizF{9_WJ uGDfR^FB>$N)BeAU|CZ͕ *(TQVLv1]L_<4DHN5b(MMgLJn8CaPĐQdLn”:c^Rzbd.>_4q XH9 8'4\zFX3AmΥ&JSl. ɠAZK]W0hBDJ>J~uq hn6Z}\CZ%Ŭ`#[MWk02-I TaB9[KF] 4%5PCFU2e≀>qhyjH#)}Cjx~'Mc wD9tCbYЗ*\"J&LX9m؛eT%iaU|ss$vvo0(YqL O%9^m6+@S=2$@UB%oC;V6jb9qR٣da2F=TPqp4Т.pUgz̊2-qLI@R:>݂ӊy d$KgPx?E'{BmޑXX,G+gzKӛGq)Ct:x8S0BҠ./٘." H,tJY6Q A-PYarcT"EN豓b929D0\ ^qYP!oc]ά N$E$2D@KM#Du$[& z.]jisVSh*Bאhp nR48ԟv!dʼn֚/[q7?G `lda`MM*>Ybۭ \]~s/ NѼTAE>5)! Ubśd5MzBV* ?`iHe.u6"D5#ZgLE8PPIw-tLJ.a1n7G]@Lʳ={#\mgRG"Gj=qwx̃Py+ͯsk(O?ѕ9TT%h0d; pī/Ow؎7]DTEAV7à`4VK 3F\\IH \!X] Gb|I^ȋT N"K1Zr] dI{f5! %$ 3,q'1,F [ĵ[rK~|ǙmR_ok(xJ\w𐲶twZ2{m$,jCrg<܂4vn$FgQFHj0C<9cxA bkAb5W@/=ywK5 X#e=Z!RFP/^0`c_FSf#?h (&,Pj!QAQqCbG"9%|a`Ia20OB6 k8`P*eZ4Q CG0Lԁ'hE|U!8Th)ufwiQ tuVaVڥA*PU%.+)'{EOQB:jCB}y. nlOgP> SF K"EF`)AK:O1ȶ>Ř{"~{$gC;?e%a2`1ҕuv"!NtA'hTT+!V=w@ lj2cp{&\{91uh5 z0V(2,Ƕ|:q>g$\KYbbWRM[v 珆_PLNECsSD.e2C('"C!,!x/><5)vN) t3cPE2CQeJ `}dVN Ko4+1bDXf%u 3CPDeiFSia&j7Nbex;t"I\LU'\'kÞi&IfcBwftzuz(4o4rk#12)@m"j /~arkYKQT^ cR=ftF W%HЩOLqIcIp~/Ü%io+M?T; WhFT{5'`nSujn*^eTmR+#533#Oqh>s:q#Ne6z:mU:ֆ&fiS\:&8YĆWJ: &b4 !ityHn 668ӪNc12~Uv@gN —jdEmEnЍe 4_2B$oRe . 1sy]vOqA >4W J45@ 0BP؄tJؒNb*ZKBgzU%sVŽDh/eg˧uIsB{2E!f"LY_Qyc@ STMǚ)98@?`doD9w;ZCAIc8krE9*aI¸:F[zh_v%/1Fě;2Don 8+IB1 v+d6xVeXRDaZۛOK -|p+%# S29 Hoq˥Y0NXYw*|uV$#Ʒ;ASp00 ¯yښ v ^ I*F;GHvVY,2ŵ25-Rd4>ROm+)P dB-'3f4!mZ/Ȉ,T/vb`cǭFx%ANC{Dm3ϐӻTyZRYr|1T)͡-46TG֥Ja|M[/Sd gzM_Nn!Ws% )C8p%W-eByO&8u&Fv,&[ĝTHUn;֛.ޱr Gw*pԕ9*{?\Mf5ê #}~ȥeQOpDťN'\vAYQE'a@gméGh1MMkKe$Tz43,5qM}3,EE6s gDEk/uSGǿ_GP__1&Y݉+3 k%+[@@ζaW@*[C66+$Aajx6ANHth24*Uՙil[ 梮4+dx e8Aǵ`4Rstv15up93DR "a![%Ka C+#SaS7#l'W&}yfIUw PB L"|e̫7C+M@t-8QGD{TxHѡHG $$ďEɝ:ɐ NXXA&H!/}49<Ue^cv$I4 4xR)vn3P*#NUDXS[E+^˷D ߣ{xU{=%VgCe}P,otgA@t%z'v7pQLABF_ؑNg}0A9#;S5Q9 YLQXTGHJhiPc5x~R @KA$RȒt:x, br$rT, )0<a<{[y!G=6]gvN!e%Ld 02C H0!sŅibVA)04>@Z ZJwzi,DpQ4;*(NV'䐇8۪]r{}e[G%-EE~ؐ PЁJdFm(ڸۆ2^2mҥI"eE6W|e#!1(2JB,$swq%Y@ti"Aw'YsJKKUrb͂S0L6M@V(o(r.#MJw$urF øE-*Yt^kYa6DZ0 *RV͹3:ըj (=2VdDG)-1$N OI 1J}A."_%fk*㉄_Ll!^lBȟG'me;N8w ?4DMkw"g^ߚ 5tlU"Ĕ JJ(}Ė ='@Ev3Q7Νse1er֟ BavSt_<7xܰѡ7CQ\,B\;'+arE.]#b {D9<@-]ӣ&.QiLب&7㧠^d854W춫a$ M7O |Ⓝe4uCm|V7ܡe-Ƶ&֐{a62dgdY8PPdY_\7%a1, b:ã 1O*qG + W./[H#d>~GXՊT"rXe%4!# V/;ތzt+yaP #kBgN9x$vAhMwfTU,Ui.Qfi! Gk٨ƔM,cJB JP{6_bR3йxWDPUrzGͪN3kMVẵPotչR}v?NT U*gZRKfuFؘ!d!Jj?r9;#K#7ZUHx:+'&MZqM99+H*% jg9rW k*@“Ǵ5C/V 6ʏ ¢ \`wf`SȻ\,$wR\'% Tk@n % 芒X@'lYq0܀,mJu0.\f0PnQ^ܯՇ簱߂MbW1h2T)6#L#QBlkNMúx[M (7TCxi h,™,5SqndXytepZT9ӝ㈱Rn9end$ֱ#).+*3LÈ,y pa6ʐ $Q "z#l.G@sjڷ>ptZ: }2@ "κLq&H<[T˭*J"ǃѫ[7ݒ7Gʙ 0A/=LdmMь MnqpoiW5w -4 j0;}sQ 跔3py-ȶ! .Yc,p?gRj 麊61q@dP0)2/ۍ&S$^ aIX3J>|i"<Υ l ? wG :|Qil4Nc2b/r *3Cp/4"M=kd &mj9KR ~|cHGMm^9,zB7*/'|'9,%G`EwH1{Pd$KE5} ?TkbB7W<@%'A2hkzw_vFh1W EcUZi̒@q1Q8ac5MY17Rt1Hs91,+A5;'A&YNx)]o!M1G}bs_Tt䂣btk3QXX*!HBF4>[\y1_x{5=FW+& IqA W\y| <:X`θ x]P7v+{$ȍ \g1(w}R.p$8hf2P PhYҖx=3afņb'a_MN.j‡x,8[Ɏ4xrE2א3U#RirJycE>ΘFxipP Ga2ÍofU-k5*w>~Ûs@ԔF%yDž09D +2T2?A)Wh@LF4b9e8L!(RW4zt4+D7//\Be}'d, JiZ')EbhP~mr3Ow.2<9fXu052,Xqp0yQYb{c7&HSB 7 bc| (((f 3W4Glؕ1BZB2J^|Px9v`qsr1p):QVZȅu(}}tR3_'e?rJ+e@k&KoI'zkpqdiv:IH6eC7Z\(IEzqQbĩV[9j5Țʡiw3q!Q^yZym(W =G5m(>SIS)#&.=S2rr,cAf53;L؅Dl)!]c*R}91FB9e)23yW"M׹f~;?hCxDZQ&Yc?aQl>$P$PD j!9 o0 #Wf64V41E Sej 3}(I#vsoiz#pp.(DZȃY?FkSj4"Y':! 7󷭦oSW¡ I4X[  75KkV3_ 8ă2{}@%ΗzGl'QdN5,eȆ!Qi3#eY غ'L@YcٸSԎ/wdjxЛx]vB'{(]>籯c|E_bl166SJEħn4Q lYsT ْp@)OmY}q"4A&Z\A-T?~pk[3(c*fo(<ů׻Iϐ_fL nQ`}1fyL8f_0y*[ j!2v38RtU[("YCR=j"lHQ1b":;f@]ؓSĄloZl[b]G~ },f!rmnM@R@C%aTvKBK7;򟯺? ],l2 "0LCAFIH8kctn @Ӈ@aimZ;6~k*ѭqx_,ۆ"3`VK*#fwUaʋ&[;d&LHH{|{Ñ' R۱I@]yBy! Pc;w|7iiy7 qOu%`Y$5J`gV#MH)l,#ud`K G7id΁A]r]4 uc{7\y%~kJzߵeIT-$!@CGtQi -G?(qR1%!XpWQmAgma 5(tI٭qU$ Stċ&Ee @wJ(c^Q5{HX l4kQC.F6L+)I !hPykqD(0t%;O%݄4Z4'3)i%q҃-\X۩u`yY !3cƣ| /m2 O#,%F&&WXq@ܩɨw`L-ĢH*ni}U$9rѝe%y|248dLxJ'1v1`NR0El #N2:g"}jLp1\I^VE߸RFFAqn#+)M#ˆS *uDQrG(}l֘wuLZ)+YA373'0YG2=tfԀtsDa󩚌MBk46 1`(wR%=+ZP#SܘCngFri"B!K3sw^Zs=b&*90Go@oLǕʐvm-= B^7NktEgcu8vIr35vaX= y|n3$AdzͫtNg)1a2ή "x&3WR- 徺{2gQjq;Lp"{jHvZJȾ/*~bFPEӝakM-ؕ̍FixQ1OP b/s# ?F?xZr^&KTs׶¿)EKz9wn|"!g›WUm̭G;)+Vu>*y w5ʯ?-y?}|Sj!IO'-Cuk>rvgf~G[g1MuuÁ(sto&[[aRނLqYfrwHrC+4a(7d/ 0 +gWJ8р&E 6W0Ohx3҂Fu}U0{2njuD7r~<I`\QNl؁G=5v_y{bDAuVWT0q'yQ GC8("y݆"015Qc0%M.!\ԇL7B+u18UE78[ QUqxb%Tv~(^(pls0S@Qd~ܨ6̶#H[ꑀx?x= qhV` ORmF+SvG7u*Er03&[h!x0*#Frx)s]:Hkx?XDv)G$bbV`.@!"X Z:8MHn' 9H5ƸF%I 5 :W% z,tx*T7H?(Mz3-%q8G؃D25Z )AxW%VL"| M+ДRc Hx\Ȕ1 }7.ru! }EwYm w:!0 •kGIt`R8 {GBvLb"o8'tNaRȁP4UYB6D#pGcW(f'ݨ(蕹$k؏=؍tx*YXi,t7~Y+Ru!!Eс$(UٞJ Tґو$N;63>#[٨ՔhxUh9xU(azyXXi>H0C&9Σ2gASF6j{ҔiCvdjY|B9X{-n<|!L\i0+/)( Ci-9'mZs9ucH(O~"YW78}'XN($XH)D" M(  X$D$W)ɇa ī'%9ZʇD6JPoVfI(;7Z Jᠮ_GX0}y},.Ց*~Ɍ+`g5ocR%֎W(uq(? 隆IwA*3:G) 8nH'AKPȄYVY9UxuuHHK+xȲO S| 4[xvݒGXZ09>UX4ѩ8* YjٯUzۛ6.Ք@ֈL0`K6ʐJ,IAHڝ8ˏh&AVxk8e{XLjMX7:|eYÇn+I? H(+بݒgۼtorۺn פjIGӏ<Su_~Nj8+k]ڤ4uriŸy(*Fa@[ 2NJ=ȓk) |}*7'IIy +QYZ8:vFiq!Y=!acIҏIwyآ iM'ٯ9Jۥy?#A $LŽ\y%0 ƖbL_Bk}1yiH}̑(! 9kkxN94RoLsˬrX~): nOؤdL5ƌɍ([&'JL5roOI%[,ȨUjӻƲ訒岛wɜ{٥A:@F>'3[83W }8re[9ݲȫ{hi{ǺxM*3i !0 jw48*nͺ<Wܯv˺If&OO嘍&ƺN-Jg7ee6l1Q{3rzgPQn~IrձJI~kN@+EGb|}DfJi\qtik(+qOzM z0Kd4@RzrEL .Gi2yr%rF^ay"wG{6-۫:ZFm r/m;k:*sgۯ& shv**["CoJ9ֵ|>d|&';]cb:yJVFnvJ޽1\<q%;RtƲU*=lH{"Es9pHۡ9PlܸVSJo*؈9],2fm[M<DBdXP3C12n]:xq<"NȌ -V7#9-Ш#~Th6 s]ru=,BQL̖-Q};z ݋K1=:jtu(ܥ}|Oe7o 3w >}HQG0(]o?q}Bn_:⊓/8tg%K~ }u!K}$Ή*"r>GӆNޚw`'!QMf /K1 zߖ,dH,(>7l੆LyfAo3<땋tn7{p`;ĉj뜨G K~t󙩂o6^dr4-Of[@k<"EZtZE b n\%f!YfڼqaOLEǫ,-ϧ݃X)KpQo<ò|sS̶ԘJYZO. wEz|_ L+oQitŸ*b:YMm0&: IRTM[7| hu멿~!rt[m~|Ɯ^z[g8s>,"da rP,6n]yk a3ߖЙ`;&#tZJyPXB&FXDgF#B-U$cj9(VbR(LPvp S+quKa3=fe'U/ vb4B5BFq@^r2! Q鎥lqRQ㯏O͟QQl[%KQ Ko^V12@c][ۨSZ+̶3k&́9ȥiB `h]UօVlaVdIG%)wXKT{<9w0Y$bTEFLty6]D8 D!1%K0sMv1%)9>ѡvWyE13lIc2DҊ'sMEJFؒWaY썕D(NUz%(a^VzQ)T,6z}9c8^H7>ehN>IUL.;(V=jjaVQ y'pQpTeeQ! M6E lt O.73 [)-. r dB1JYATg׬  6qԄ&[ZIgUJcs=9CP,ZĀ7njmMBΣ;ItDi@C175%}ԅ{A " {4 0/UGc;jB+JtaYbY9Jܧ}E -\~ס#%RFe;`B/%!m WC)X.:{W]qL`XфnͪtLE=|p!ӉPw.!عǽ;K@1RI ' Q*7@q),$5!-ԜƱo(i'sqF7*JJ` kE%x1T6Hu>QM4et7C#{VvpjQLQWDn&xd A;MIb}f YδF(Kta_>̔5]N#"%2"2(rp6#bidWJB.Sz8(1K eeU CxB}*Ch tŠs/%ɔNXʆqӂ2I9PCR=:2G ?#Wvn3@z]diaBy:OC[ +f&cX$ak ؓAARHcx2PtR IЂSl3%0k\בrۦZZ0K{yG/ ϻ PᗲwfW2#M%!H*7r6<Y P_W{Z<.{oD;2 צd5ƎV~d˅]L3II\+zeR4xDo <3J m"\(u&LN)]Ǹ$/Lass\dxL$M/Tn2^_wi0\s&2pp*3'S4").2s=} -r<]ʼ7zz N#]5LZ{ F}Ռ {u*fjDR:!49Pc@XV9+TL:Vvi m̨Z۝PQA*8՛t-m84痛k:І(QLk#7x-XxJ87|+C|Tj*)a"1>z!դP+24LD5RƦ62mXF;CqQv $ׄq+Hb Sd`E?4_|wT@3&G|a6uUK;6S ~1:%֧b/h'vP+#&&NF^›IJM0Qil2KdqW4ՓQ-5% !pWl[ ZՆ^~2N$KD v(g9nv9DGsDD!cg!`2p҆Z\A~4{|jT_mr=U` ComE%S OXd^%_&5Ăd"eLu(A')lm8QH[C7J_C7W1?@=J9YSYx OgC7S\B, Cgp+zpM t8DlTRHb;A7"S)/6;A=$R(kE`X!=hIR~'Mb{A/.eWԒeJAŀBY=ED$n4Je7of%`LJ5X{ߤt92b=7JXÑ8{k5Tרi5E2?dAIu;I("Xgd~H%G*-94c! À#a <997P`_ZLGdLJSV0Ez rk.tF16WAsH\!jB* c#pVTH23.|2wROY΄ϰ!k蔨EVQrAd45dՔ=`OVJ5“=:key@w0mm!f&4I$w3&c=3bb%/mYJu^~R4c&.LR\HwcbdX#cj0T-JQvAo8jkҢ)sx 1>1f^ItvSPnbX^*!FÂC9۵?G8lDp30CO")l Kzz U74 8CH1w_tf2?sIrS0PIv'-C7dP U&3;z/vIةd/B&q11!綁mU z^i! &(S(B+ +j# M1b{H"ULHťveKs}2~=ze>ye4&$2JB Su>IʹzIeGr e`S18hu+7=El &ړ"wF<O3T^GO*U.:[HP8HSrVRJ?W`EwFMd?5%rT$k$S-!2_5AER8J[)x nq.Ղ}Ef4H&!zV:%č33@o&d$K&HO,!,+83 OzOBKbgj6ZyFAJ"tfbtLPѥ2h8@w E3@9!1㧗9˕-f{ *H/B)(1TsUks5)*撆ZkwXvoY&~i]o GD*I,% ^RTG;v_:8$!FN9_*C0#|cgltzzgu%ʠo4NR2tZb`C`i=5ԕ%0č%j@tBPX&"SHql1J1 TRP!u'^3k]cLbQPjٴ;D\2xkUhFh`t#Eylt3ͥȘfkAf;\pي9zAEa%,FNzrfI<|< 5ʕͷ/%\|lSlwUxkh5zT Ь̊ac}+t><}7ezM ֢zB)a4~ZPVnGǑ/gѣ9uPɹɸ&p“>"2n5пd[1tC#rZ-V<#(kBV wo̐`bBq xVA-(ʖlt$Vc~ Z(U甮(1:!ldN8{%YX[b?vboCBZlaм<Üɴ>QL'~[R&kޤ7zEwtvRŮQ kgtlX x^l-GZe9'n<[*f1"s`FsT"QxInW jW =Cezm۷7ۮ[<S$\C$(V87v%w*8]Bt5$0hiKI))[m?Ne9GiH4rLs˚6&#,knNQ0V&62AqnβeΈ9{d .:>f6=L@ r TZ*d&;:A F+bԹɃxh, \a&3c/V%9j_!壁AGDJ9lڗ_1bS v؀hśU,>bzb!ԣA*<6:(.C0uʌpю[:qE2/}eϨN%+ %f 66'xkaSb$>:HRMoX<ܸ.vFb|&QpaZ/D adD(Pg(J{[]ƁӏJ}GcyK v҃J 6rvXaHeP2N?EUf 5s;GZ?~5JUo`9'D)Ք\uettP"ZLK@],jAGC0UE"4zh/{_D.ˁbuQ`$S؍x]bD=Hwmi9^OGYv6ZLEX.\% [?EIDR]9k"+9h1gH2[hO|ܒj#Ou+CF 0([j:ĕQLwmDJSRh&Q%.@S yy;z[er nâf#Ee E'LaXcm F(hq28&LrGv3|%|f\[7r; @<?p!T.eR3q-%*!.!)dkQAk\ZNJI6L3<I=̍0St5mC@.sgrIbƒՌsq}cj30X_ (Ȗ  fcEިG v|&c{,k+&x:C"2#p -.CG{@]9>L;[^<#b- N ݆Bm&m*q4u[ETl#TF>#*dOeI oG >`<7 IJ;Ϫ^eH`K?#FINgaAL ;gy~~_66+7_A:%e\0l`yJ1wJ%dkpDvqfai *`IH&{D/$!Ne;FAVWEˡn1Y# ;JWpy)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"*|k6> =f0 fnpS g86 .H^H.g% 0Ss%ͺ,uv%e*,uv%e,uv'e  #   )  *  ? 6 @ 6       ( - A B F C 6 7      L5  (wFolderCreate)FolderCreateWebFont0000000000000000CDF6 CurrentFoldersFolderNamefolderlistSaveOptionsen1CN=Lotus Notes Template Development/O=Lotus NotespZ1>[H.g%2Ss%Ϻ,uv%eT,uv%e,uv%e G H I J K L fM N O   PQ  L5(wFolderCreateOpen)@EH4fL3u5Ven0Ss%1CN=Lotus Notes Template Development/O=Lotus Notespb,M- [H.g%3Ss%Ѻ,uv%e,uv%e,uv%e G H I J K L fM N O   PQ  L5(wFolderCreateSave)@EH4gL3u5^en2Ss%1CN=Lotus Notes Template Development/O=Lotus Notesfb]oDf H.g%8Ss%@Ӻ,uv%e 0%,uv%e,uv%e R S ~S T ~T   >L5Common1s34Qen1CN=Lotus Notes Template Development/O=Lotus Notes@jFPuf h%9Ss%պ,uv%e ,uv%e,uv%e 2    (-   OL5$$ViewTemplateDefault$$ViewTemplateDefaultC34WQV6en1CN=Lotus Notes Template Development/O=Lotus Notesn0H70Fh%::Ss%׺,uv%e#c9,uv%e,uv%e" :$ :% :& :(::( : :: :) :* :+ R: : : :, :- :. :U:V:/ :# :0:1:2:3:4 :5:6 : R#: x:! : :L5:AEDE2891FB70A9005AAF8B355F3571A567843E4301C6054E658E2C2D65E5AC9Den1>o% _Clean SheetCleanSheetWebFont0000000000000000F7     BodyDiaryDateCategoriesNewCatsWebCategoriesSubjectTimeModifiedTimeCreatedHideAttachHideCatsFolderOptions1CN=Lotus Notes Template Development/O=Lotus Notesr˕? h%#;Ss%ٺ,uv%e,uv%e,uv%e# # #W d# # # <#L5#enJournagFrameset|JournalFrameset#4C61CN=Lotus Notes Template Development/O=Lotus Notesvf26LNHXi%Ss%ߺ,uv%e ,uv%e,uv%e  -  `  ;L5 White PageWhite Page6C34WQen1CN=Lotus Notes Template Development/O=Lotus Noteshr;B `XXi%?Ss%,uv%e ,uv%e,uv%e " ) *   (- A6   _L5 Template NameTemplate NameWebFont0000000000000000CD6SaveOptionsen1CN=Lotus Notes Template Development/O=Lotus Notes-K{ԛuYi%@Ss%,uv%e,uv%e,uv%e  W 2   <L5BorderFramg#34CQ6en1CN=Lotus Notes Template Development/O=Lotus Notes 4R} Zi%ASs%,uv%e,uv%e,uv%e  W *   <L5enView Frame|View Frame#34CQ61CN=Lotus Notes Template Development/O=Lotus Notes:wwBbi%BSs%,uv%e,uv%e,uv%e % W \   <L5enWebJournalFramgset|WebJournalFrameset#4C61CN=Lotus Notes Template Development/O=Lotus NotesG]g(Afi% DSs%,uv%e3,uv%e,uv%e                             ! <  z L5 _ ` en1By Diary Date|By Diary Date/C DiaryDate DiaryDate2$53r"@0$51 Previous version as og iKV"$NoTItle$B h%UntitledN$118Subject .SubjectNoTitle$B h%6$44 TimeCreated  :5  DiaryDate$53$51$118$44$Conflict$REFVformInterest Profile formaarchiveG DiaryDate   L1S2S3S5S13S15S16S17S18SDf DiaryDateDf$118Df$118Df$44Df$44YYB71CN=Lotus Notes Template Development/O=Lotus Notesj%EHSX^XԮw^Sj%ESs%,uv%e | ,uv%e,uv%e ) ) *   -   _L5Database LocationDatabaseLocationWebFont0000000000000000CD6en1CN=Lotus Notes Template Development/O=Lotus NotesJzP,uv%e ,uv%eB ,uv%e ,uv%e ,uv%e a b c L(d $profile_008tempvaws_ 2($All)$CN=administrator Administrator/O=new,uv%eTH,hp  @ ( ppDV5BP{t TZ1>[H.g%2Ss%Ϻ,uv%eT'++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub wInstantiateObjectVariables '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Hnitialize ' Call wInstantiateObjectVariables Dim session As New NotesSession Dim views As Variant Dim currentview As notesview Dim currentfolders As notesitem Set db = session.CurrentDatabase Set note = session.DocumentContext Set currentfolders = note.getfirstitem("FolderList") 'this code populates the currentfolder field views = db.views Forall x In views If x.isfolder Then currentfolders.appendtotextlist(x.name) End If End Forall End Sub '++LotusScript Development Environment:2:28wInstantiateObjectVariables:1:8 Sub wInstantiateObjectVariables Set session = New NotesSession Set db = session.CurrentDatabase Set note = session.DocumentContext End Sub݁ LSOBen@(8T((Lotus ProductV0.0@W32I4$*419B5CClNEWDELETE INITIALIZE TERMINATEOBJECTSESSION8 NOTESSESSION%LSXBEVIEWS CURRENTVIEW NOTESVIEWPCURRENTFOLDERS NOTESITEMp NOTESDOCUMENT NOTESDATABASEDBCURRENTDATABASENOTE8DOCUMENTCONTEXTx GETFIRSTITEM0 FolderListXPISFOLDERAPPENDTOTEXTLISTNAMEWINSTANTIATEOBJECTVARIABLESD~<hxxT  hhxxp0ddd00).i]dp'8   x ().i]dp'xT <).i].).i]dp' ((  ( ( T).i].).i]dp'    t).i]dp'D    ($$$ 0T d 0 4@<?T X( (|$;3  ^h+$^ Kh-0#^THh-d#^xNTS}%^xN PJx5,FP8Kx,FU#7^+$ ^NP!^$NP4"<  0Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"Nu2G f74>& b9j?^yfj$T{MNkdb3T֌]gR8bvj!׎4KRMhÂAH!hv $TITLE$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigghr$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$DesignerVersion$LANGUAGEb,M- [H.g%3Ss%Ѻ,uv%e'++LotusScript Development Environment:2:5:(Options):0:74 Option Public 'Use "Common" '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LoxusScript Development Environment:2:2:Initialize:1:10 Sub Initialize ' Call wInstantiateObjectVariables Dim session As New NotesSession Dim folder As notesview Set db = session.CurrentDatabase Set note = session.DocumentContext If note.getitemvalue("Form")(0)= "FolderCreate" Then Call db.enablefolder(note.getitemvalue("Foldername")(0)) Else Set folder = db.getview(note.getitemvalue("CurrentFolders")(0)) Call folder.remove() End If End Sub݁ LSOBenXxH$8TDDDLLxLotus ProductV0.0XxW32I4|$*500201ClNEWDELETE INITIALIZE TERMINATEOBJECTSESSION, NOTESSESSION%LSXBE`FOLDER NOTESVIEW<DBCURRENTDATABASENOTEDOCUMENTCONTEXT GETITEMVALUEForm FolderCreate8 ENABLEFOLDER FoldernameGETVIEWCurrentFoldhrsREMOVEX NOTESDATABASE NOTESDOCUMENT\GL<hhh(xx(   (().i]dp'8    L,,,,).i]dp' x   LD<).i]dp'x L L L0@ D\).i].).i]dp'L D D D LdTi( x x ^h+$^Kh-(#^Kh- #NS}%d}8 NTNS}%d ':+^NS NS}%d %K,,#< 2Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"e?n^/fnDaWh0.Jo Un[ƒy5 X C00*Ք5b $TITLE$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$DesignerVersion$LANGUAGEjFPuf h%9Ss%պ,uv%e }1;(&ArialUntitledR d+ , ?k  4S  R ($All)>Dds#    u NotesView 8Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FH=|׻ߟg&OPRtMܑ2Ϋ1"%+~q||,W+JػQѨMƒfxD?['#]Xȯ!色}Nl酕chڇS H$HTMLCode$Info$WebFlags$DesignerVersion$$ScriptName$Body$LANGUAGEc9n0H70Fh%::Ss%׺,uv%ec9("MS Sans Serif_R@6"New Clean Sheet iKV"Subject 4S5S6S14SLSOBen$TLotus ProductV0.0W32I48*43E0648lHEWDELETE INITIALIZE TERMINATEOBJECTM CleanSheetZp@   d Zp@   d q)WebFontWebFont Z0a   Hidden Fields: PD0 @FolderOptions T.,$V 0 **TNThis $$Return field returns HTML as a result of the successful form submitxal.  1S  0R$spacer @d 0R1S2S6SVariables to translate  0R1S4PrevDoc Open the page you just submitted 0R1S2S4BackJourGo back to the Personal Journal 0R1S2S JEntry Journal Entry 0R1S2SSubjSubject 0R1S2SUnt [Untitled] 0R1S2SCSheet Clean Sheet 0R1S2S4 ThankPerson Thank you, " 0R1S2S3S4S8SdThankYou XhankPerson1. Your page has been submitted successfully.

"spacer" 0R1S2S3S4S5S6S End variables to translate  0R1SXgetMoreSubj: "Subject "SubjectUnt"" 0RR1S2S3S4S5S6S9S10S12S14SD NewThankYou

ThankYou"getmore"

" 0RR1S2S3S4S5S6S7S8S$Get the name of this database.  0RR1S6DB?k +\/ 0R1S2S10S14S16S19S21S,webButtonPrexsedwebButtonPressed 0R1S2S3StFormNameForm JournalEntry HJEntry8Form CleanSheet CSheet " 0R1S2S5S6S8S10S11S12S14S16S8Thanks

 NewThankYou"

" 0R1S2S3S4S5S6S DNT Anchors to follow DNT  0R1S2getcurrentViewtempvars viewtitle 0RRR1S2S6S0wGetViewgetcurrentView + 0R1S2S6S8Sexistingdoclink"PrevDoc"    ",& 0RR1S2S3S4S5S6S7S8S12S13S14S15S16S17S| LinkAllView "BackJour" (< "Z  T6a(HideCats1   1S2S Title: V1p"Z V1 T6a(HideCats1   1S2S $P dP,size=40F0 SubjectSubject of this clean sheet  Z  T Category: V1pZ V1 ƉT P*Rows=5  WebCategories `Web F:nocache By Category?  5S6S7S8R16S18S20S24S  Enter a new category: P4  NewCatsCategoryz"Category Z V1 T^ aP 2Notes HideCats1  2S3S4S5S7S8S9S10S  Pp  x  9x \Notes D Categories^, WebCategoriesNewCats^ 3S4S6S14S19S20S  ( WebCategories WehCategories 1S2S3SNotes l, WebCategories Categories^@ WebCategories WebCategoriesNewCats^ 0R3S4S6S19S28S29SNewCats 0R1S2S3Sz  0RCategoriesPress ENTER for list of keywords or to add a new keyword. `Web D:nocache By Category?  6S7S8S9R17S19S21S25Sz"Category Z   T   Diary date: V1pZ  V1 T   $p=dT //:h0  " -K  0S0EDiaryDateDiary date for this journal entry.   Z  ƉT8 a* HideAttach1   1S2S  Attach a file: V1pZ V1 ƉT8 a* HideAttach1   1S2S     Z ƉT V1pZV1 U The Clean Sheet is used when you want a journal entry that does not have a header. The fields above (and this message) will not print.ZV1 U@a2 HideCats1  1S2S3S4S\ If yhu wish to have a header on your document, select Create--Journal Entry instead.ZV1 U>a0HideCats1  1S2S3S4S/ If you wish to have a header print with    this D document, select View--Switch Form and select Journal Entry.Z    T.,$@B((&height = "300" width = "625"^0 5BodyEnter your comments, questions, ideas for discussion.zT5BodyEnter your comments, questions, ideas for discussion. Z   yl}1;$:Y & Categori_zeKN|(_Edit Document (_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y "_Fhrward D_Edit Document   0S0E^ Save & Close<   0S0E  0R<Title/CategorybgetCatsHideCats0 < 10HideCats1  0   1S2S5S6S8S10S11S12S14S16SHideCatsgetCats 0R1S2S3S^  0R:HideCats0   0R3S4S6S11S Atxach a FilefgetCats HideAttach0 > 12 HideAttach1  0   1S2S5S6S8S10S11S12S14S16S HideAttachgetCats 0R1S2S3S^  0R@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4SY & Categori_zeKN|(_Edit Document (_Send Document ,_Move To Folder...=|._Remove From FolderK>|Y "_Forward D_Edit Document   0S0E^ Save & Close<   0S0E  0R<Title/CategorybgetCatsHideCats0 < 10HideCats1  0   1S2S5S6S8S10S11S12S14S16SHideCatsgetCats 0R1S2S3S^  0R:HideCats0   0R3S4S6S11S Attach a FilefgetCats HideAttach0 > 12 HideAttach1  0   1S2S5S6S8S10S11S12S14S16S HideAttachgetCats 0R1S2S3S^  0R@Cancelf Notes only  1S SaveOptions 0R1S2S3S  0R!Cancel>web non-new docs  1S  0R2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S0!Canceln0 CurrentViewtempvars viewtitle 1S2S6S"Y CurrentView  0R4S2+Hide if 'Author's Profile' button was clckd  1S,hwQUERY_STRING_DECODEDhw= 0R1S2S6Shw1  0R1S2S3S4S9Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Develoxment/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"k[ŸeԠ"DfHM>fHMK@ fHMNotesNavigatorNotesViewB B?0Outline Page 2v7`fHMSwitcher22 Notes only  1SLocalTxtLocal 0RonTxton 0R1S2Sserver?k 0R1S2S> serverStringonTxt "Server" 0R1S2S3S4S5S6S10SBserver *LocalTxt serverString 0R6S8S}1;B B>fHM4@fHMB B, View Frame@@ fHMNotesPreviewB B;Ss%zHzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"[ _aǥpB>(wG(aԥzvN80tI]ζ:V7芡 7WaD K5$LANGUAGE$TITLE$Comment$FrameSet$DesignerVersionvf26LNHXi%)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"/R"_RMQRG?iDJ6`R ݯEeGW]&As's/9'OqyUr^ˢ Dcx   (HH       @JOutline )ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"wxu|'xQ1vXS~ ; g߱= 0) Then vArray(nIndex) = "" End If RemoveItemFromArray = vArray End Function End Class Class TaskCopy As BaseNoteCopy Sub new (note As NotesDocument), BaseNoteCopy( note) End Sub Private Sub setNewNoteInfo BaseNoteCopy..setNewNoteInfo m_note.replaceItemValue "Form", "Task" End Sub Property Get ItemMapsStr As String ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;DueDate;DueDateTime" End Property Private Sub postCopyProcessing( toCopy As BaseNoteCopy) If Len( m_note.getItemValue( "SendTo")(0)) > 0 Then Call m_note.replaceItemValue( "TaskType", "2") End Sub End Class Class GroupCalendarCopy As BaseNoteCopy Sub new (note As NotesDocument), BaseNoteCopy( note) End Sub Private Sub setNewNoteInfo m_note.replaceItemValue "Form", "(GroupCalendar)" End Sub Property Get ItemMapsStr As String ItemMapsStr = "Members|SendTo;Subject" End Property Private Sub postCopyProcessing(toCopy As BaseNoteCopy) Dim NoteToCopy As NotesDocument Set noteToCopy = toCopy.m_note m_note.replaceItemValue "Members", Arrayappend( Arrayappend( m_note.getItemValue( "Members"), noteToCopy.getItemValue( "CopyTo")), noteToCopy.getItemValue( "BlindCopyTo")) Evaluate |Field Members := @Unique( @Trim( Members));""|, m_note End Sub Public Sub copyIntoBody( noteToCopy As BaseNoteCopy) 'Don't ever copy the body End Sub End Class '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8 Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) Dim nameUser As NotesName Set nameUser = New NotesName(sUsername) If Instr(sUserName,"@") Then sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@") sRetDomain = Strright(nameUser.abbreviated,"@") Else sRetAbbreviatedName = nameUser.abbreviated sRetDomain = "" End If End Sub '++LotusScript Development Environment:2:1:NAMECompare:1:8 Function NAMECompare(sName1 As String, sName2 As String) As Integer %REM Returns true if two names are equal, False otherwise %END REM Dim sCanName1 As String Dim sDomainName1 As String Dim sCanName2 As String Dim sDomainName2 As String Dim nLenName1 As Integer Dim nLenName2 As Integer Dim name1 As NotesName Dim name2 As NotesName Call NAMEGetComponents(sName1, sCanName1, sDomainName1) Call NAMEGetComponents(sName2, sCanName2, sDomainName2) Set name1 = New NotesName(sCanName1) Set name2 = New NotesName(sCanName2) ' Do a canonical comparison if both names are hierarchical If (name1.IsHierarchical) And (name2.IsHierarchical) Then If (Strcompare(sCanName1, sCanName2, 1) = 0) Then NAMECompare = True Exit Function Else Exit Function End If End If ' Compare the common names If (Strcompare(name1.common, name2.common, 1) = 0) Then NAMECompare = True Exit Function End If NAMECompare = False End Function '++LotusScript Development Environment:2:1:NAMEFindInList:1:8 Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer %REM Given a name and a list of names return the index position if the user is found, -1 otherwise %END REM Dim x As Integer Dim iNames As Integer NAMEFindInList = -1 If Isempty(vListOfNames) Then Exit Function End If If Isarray(vListOfNames) Then iNames = Ubound(vListOfNames) For x = 0 To iNames If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then NAMEFindInList = x Exit Function End If Next Else If (NAMECompare(sKeyName, Cstr(vListOfNames))) Then NameFindInList = 0 End If End If End Function '++LotusScript Development Environment:2:1:NAMECompareWildcards:1:8 Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer %REM allowable wildcard formats */O */OU/O */OU/OU/O */OU/OU/OU/O %END REM Dim name1 As NotesName Dim name2 As NotesName Dim nWIldcardUnits As Integer Dim nNameUnits As Integer Dim nPos As Integer NAMECompareWildcards = False If Left$(sWildcard,1) <> "*" Then Exit Function End If Set name1 = New NotesName(sName) Set name2 = New NotesName(sWildcard) ' first, determine how many "/" are in the wildcard and in name nWildcardUnits = NAMEGetNumOrgUnits(sWildcard) nNameUnits = NAMEGetNumOrgUnits(sName) ' if there are more "/" in widlcard, the names can't possibly match If (nWildcardUnits > nNameUnits) Then Exit Function End If ' Now that we validated the # of arguments, assume the names will match ' We do it this way so that if any particular comparison fails, we set to false and exit ' In addition, if nWildcard units = 0, then the wildcard must be "*", so everything matches NAMECompareWildcards = True If (nWildcardUnits > 0) Then ' First, compare the Organization If Not(Strcompare(name1.organization, name2.organization,1) = 0) Then NAMECompareWildcards = False Exit Function End If End If If (nWildcardUnits > 1) Then ' compare the OU1 If Not(Strcompare(name1.Orgunit1, name2.orgunit1,1)=0) Then NAMECompareWildcards = False Exit Function End If End If If (nWildcardUnits > 2) Then ' compare the OU2 If Not(Strcompare(name1.Orgunit2, name2.orgunit2,1)=0) Then NAMECompareWildcards = False Exit Function End If End If If (nWildcardUnits > 3) Then ' compare the OU3 If Not(Strcompare(name1.Orgunit3, name2.orgunit3,1)=0) Then NAMECompareWildcards = False Exit Function End If End If If (nWildcardUnits > 4) Then ' compare the OU4 If Not(Strcompare(name1.Orgunit4, name2.orgunit4,1)=0) Then NAMECompareWildcards = False Exit Function End If End If ' if we made it this far, the name matches the wildcard End Function '++LotusScript Development Environment:2:1:NAMEGetNumOrgUnits:1:8 Function NAMEGetNumOrgUnits(sName) As Integer Dim nPos As Integer Dim nUnits As Integer nPos = Instr(sName,"/") While (nPos > 0) nUnits = nUnits + 1 sName = Right$(sName,Len(sName)-nPos) nPos = Instr(sName,"/") Wend NAMEGetNumOrgUnits = nUnits End Function '++LotusScript Development Environment:2:2:TIMEGetFromItem:1:8 Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) Dim item As NotesItem ' If the user passed in an existing allocated object, delete it If Not(dt1 Is Nothing) Then Delete dt1 End If If Not(TIMEValidateArgs(sItemName, "", note)) Then Exit Sub End If Set item = note.GetFirstItem(sItemName) If (Len(item.text) = 0) Then Exit Sub End If Set dt1 = New NotesDateTime("") Set dt1 = item.DateTimeValue End Sub '++LotusScript Development Environment:2:1:TIMECompareDates:1:8 Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer Dim dtMy1 As NotesDateTime Dim dtMy2 As NotesDateTime TIMECompareDates = 0 If (dt1 Is Nothing) Or (dt2 Is Nothing) Then Exit Function End If Set dtMy1 = New NotesDateTime(dt1.DateOnly) Set dtMy2 = New NotesDateTime(dt2.DateOnly) TIMECompareDates = dtMy1.TimeDifference(dtMy2)/86400 End Function '++LotusScript Development Environment:2:2:TIMEGetNotesFromLS:1:8 Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime) Set dtNotes = New NotesDateTime("") If Isdate(vLS) Then dtNotes.LSLocalTime = vLS End Sub '++LotusScript Development Environment:2:1:TIMEValidateArgs:1:8 Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer TIMEValidateArgs = False If (note Is Nothing) Then Exit Function End If If (Len(sItemname1) > 0) Then If Not(note.HasItem(sItemName1)) Then Exit Function End If End If If (Len(sItemname2) > 0) Then If Not(note.HasItem(sItemName2)) Then Exit Function End If End If TIMEValidateArgs = True End Function '++LotusScript Development Environment:2:1:CSGetMailFileOwner:1:8 Function CSGetMailFileOwner() As String Dim session As New notessession Dim profile As notesdocument Dim strOwner As String Set profile = session.currentdatabase.getprofiledocument("CalendarProfile") strOwner = profile.GetItemValue("Owner")(0) If Len(strOwner) Then CSGetMailFileOwner = strOwner Else CSGetMailFileOwner = session.UserName End If End Function '++LotusScript Development Environment:2:2:TIMEGetComponents:1:8 Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime) Dim itemST As NotesItem Dim itemSD As NotesItem ' If the user passed in an existing allocated object, delete it If Not(dt1 Is Nothing) Then Delete dt1 End If If Not(TIMEValidateArgs(sDateItem, sTimeItem, note)) Then Exit Sub End If Set itemSD = note.GetFirstItem(sDateItem) Set itemST = note.GetFirstItem(sTimeItem) Set dt1 = New NotesDateTime(itemSD.DateTimeValue.DateOnly & " " & itemST.DateTimeValue.TimeOnly) End Sub '++LotusScript Development Environment:2:1:NOTEUserIsCreator:1:8 Function NOTEUserIsCreator(note As NotesDocument) As Integer Dim strMailOwner As String Dim strFrom As String Dim session As New NotesSession NOTEUserIsCreator = True ' By default, all new documents are creators If (note Is Nothing) Then Exit Function End If If (note.IsNewNote) Then Exit Function End If strMailOwner = CSGetMailFileOwner() If (note.HasItem("Chair")) Then strFrom = note.getitemvalue("Chair")(0) Elseif (note.HasItem("Principal")) Then strFrom = note.getitemvalue("Principal")(0) Elseif (note.hasItem("From")) Then strFrom = note.getitemvalue("From")(0) Else strFrom = session.UserName End If If Len(strFrom) = 0 Then strFrom = session.UserName NOTEUserIsCreator = NAMECompare(strMailOwner, strFrom) End Function '++LotusScript Development Environment:2:1:NAMEExistsInList:1:8 Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer %REM Given a name and a list of names return True if sKeyName exists in vListOfNames false if they are not %END REM NAMEExistsInList = False NAMEExistsInList = (NAMEFindInList(sKeyName, vListOfNames) >= 0) End Function '++LotusScript Development Environment:2:1:NOTECopyIntoNewDocument:1:8 Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument Dim copyInto As BaseNoteCopy Dim copyFactory As New CopyFactory Set copyInto = copyFactory.createNew( iNewType) copyInto.copyIntoAsLink = iFlags copyInto.copyIntoMe copyFactory.createFromExisting( note) If Len( strNewForm) >0 Then copyInto.document.replaceItemValue "Form", strnewForm End If Set NOTECopyIntoNewDocument = copyInto.document End Function '++LotusScript Development Environment:2:1:YesNoPrompt:1:8 Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer Dim nResult As Integer nResult = Messagebox(sPrompt, MB_YESNO + MB_ICONQUESTION, sTitle) YesNoPrompt = (nResult = IDYES) End Function '++LotusScript Development Environment:2:1:YesNoCancelPrompt:1:8 Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer YesNoCancelPrompt = Messagebox(sPrompt, MB_YESNOCANCEL+MB_ICONQUESTION , sTitle) End Function '++LotusScript Development Environment:2:1:DisplayWarn:1:8 Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer DisplayWarn = Messagebox (sError, nPrompt+MB_ICONEXCLAMATION, sTitle) End Function '++LotusScript Development Environment:2:2:TIMEAdjustByDifference:1:8 Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime) Dim iSeconds As Integer Dim iMinutes As Integer Dim iHours As Integer Dim iDays As Integer If (Abs(lDifference) >= 86400) Then iDays = lDifference / 86400 lDifference = lDifference Mod 86400 End If If (Abs(lDifference) >= 3600) Then iHours = lDifference / 3600 lDifference = lDifference Mod 3600 End If If (Abs(lDifference) >= 60) Then iMinutes = lDifference / 60 lDifference = lDifference Mod 60 End If iSeconds = lDifference If (iDays) Then Call dtAdjust.AdjustDay(iDays, True) If (iHours) Then Call dtAdjust.AdjustHour(iHours, True) If (iMinutes) Then Call dtAdjust.AdjustMinute(iMinutes, True) If (iSeconds) Then Call dtAdjust.AdjustSecond(iSeconds, True) End Sub '++LotusScript Development Environment:2:1:CSEventDTItemsModified:1:8 Function CSEventDTItemsModified(vBEObject As Variant) As Integer %REM Determines if either one of the date/time values of a cs object were modified %ENDREM If (vBEobject.OriginalEndDate.TimeDifference(vBEObject.CurrentEndDate) <> 0) Then CSEventDTItemsModified = True Exit Function End If If (vBEobject.OriginalStartDate.TimeDifference(vBEObject.CurrentStartDate) <> 0) Then CSEventDTItemsModified = True Exit Function End If CSEventDTItemsModified = False End Function '++LotusScript Development Environment:2:1:CSEventNeedsReschedule:1:8 Function CSEventNeedsReschedule(vBEObject As Variant) As Integer Dim dtCurrentEnd As NotesDateTime Dim dtCurrentStart As NotesDateTime CSEventNeedsReschedule = False ' if the document was never mailed, no need to reschedule it If Not(vBEobject.WasMailed) Then Exit Function End If Set dtCurrentEnd = vBEObject.CurrentEndDate If (vBEObject.OriginalEndDate.TimeDifference(dtCurrentEnd) <> 0) Then CSEventNeedsReschedule = True Exit Function End If ' If there are no invitees, we do not need to reschedule If vBEObject.WasMailed Then Set dtCurrentStart = vBEObject.CurrentStartDate If (vBEObject.OriginalStartDate.TimeDifference(dtCurrentStart) <> 0) Then CSEventNeedsReschedule = True End If End If End Function '++LotusScript Development Environment:2:2:CSDocOpen:1:8 Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long) %REM Provides all backend processing for opening a cs document %ENDREM Dim dInitFlags As Long Dim bInitDates As Integer If Not(dtCalInstance Is Nothing) Then Set vBEObject.CalendarInstance = dtCalInstance ' If we do not have a note, bail now If (note Is Nothing) Then Exit Sub If (dOptions And CS_DOC_WEBUSER) = CS_DOC_WEBUSER Then dInitFlags = 8 If (dOptions And CS_DOC_FIRSTPASS) = 0 Then dInitFlags = dInitFlags Or 16 End If On Error Resume Next Call vBEobject.Init(note, dInitFlags) On Error Goto errorroutine ' See if this is a new document If (note.IsNewNote) Then If Not((note.getitemvalue("WebDateTimeInit")(0)="1")) Then Call note.replaceitemvalue("WebDateTimeInit", "1") bInitDates = True End If If (note.getitemvalue(vBEOBject.EndItemName)(0) = "") Then bInitDates = True Else bInitDates = False End If If (bInitDates = True) Then Call vBEObject.InitDateTimeItems(vBEObject.CalendarInstance) If (dOptions And CS_DOC_ALARMS) Then Call vBEObject.SetDefaultAlarm() End If Call note.removeitem("tmpOwnerHW") Call note.removeitem("tmpNoActionBar") If (vBEObject.WasMailed) Then Call note.ReplaceItemValue("tmpWasMailed", "1") End If Exit Sub ErrorRoutine: Msgbox "Error opening C&S Document -> " & Error$ Exit Sub End Sub '++LotusScript Development Environment:2:2:CSDocSave:1:8 Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant) Dim note As notesDocument Dim vDates As Variant Dim strAction As String, strCurrentType As String, strOriginalType As String Dim bOwner As Integer, bCreateRepeat As Integer, nChangeWhich As Integer Dim iType As Integer Set note = vBEObject.Document bOwner = ((dOptions And CS_DOC_FOROWNER) = CS_DOC_FOROWNER) If ((dOptions And CS_DOC_TASK) = CS_DOC_TASK) Then iType = 2 Elseif ((dOptions And CS_DOC_RESOURCE) = CS_DOC_RESOURCE) Then iType = 3 Else iType = 1 End If strAction=note.getitemvalue("tmpaction")(0) If Len(strAction) Then dAction = (dAction Or Clng(strAction)) ' Call the function that allows outside apps to do some pre-save stuff Call CSExtAppDocSave(note, dAction, iType, vContinue) ' If the ext app does not want to continue, bail If Not(vContinue) Then Exit Sub strCurrentType = vBEObject.CurrentType strOriginalType = vBEObject.OriginalType ' set the public access flag If (iType <> 3) Then If (note.GetItemValue("OrgConfidential")(0) = "1") Then Call note.removeitem("$PublicAccess") Else Call note.replaceitemvalue("$PublicAccess","1") End If If (dOptions And CS_DOC_ALARMS) Then If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then ' The user wants this entry to have an alarm by default Call vbeobject.AddDefaultAlarm() End If End If End If End If ' If this is a repeating instance, store off the original start date If (vBEObject.Context = CTX_REPEAT_INST) Then Call note.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate) If (bOwner Or iType = 3) Then If (dOptions And CS_DOC_ISCOUNTER) = 0 Then If ((dOptions And CS_DOC_WEBUSER) > 0) Or (iType = 3) Then Call vBEObject.UpdateDateTimeItems() ' Perform actions on calendar entries If (iType = 1) Then Call CSDocSaveCalendarEntry(vBEObject, bOwner, strCurrentType) Elseif (iType = 2) Then Call vBEObject.SetDueState End If ' If we are rescheduling, update the sequence num If (dAction And ACTION_RESCHEDULE) Then Call vBEObject.IncrementSequenceNum() Call vBEObject.SetCalendarDateTime() Call vBEObject.SetViewIcon() If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then If Not(note.HasItem("RepeatDates")) Then On Error Goto GenerateRepeatError vDates = vBEObject.GenerateRepeatDates() Call note.ReplaceItemValue("RepeatDates", vDates) bCreateRepeat = True On Error Resume Next End If End If Call vBEObject.UpdateBusyTimeInfo(note.GetItemValue("BookFreeTime")(0) <> "1") ' Check to see if we need to mail this thing If (dAction And ACTION_SEND) Then Call CSDocSendPrimaryNotice(vBEObject, vCallBackObject, vContinue) If (vContinue = False) Then Call note.removeitem("RepeatDates") Exit Sub End If If (bCreateRepeat) Then Call vBEObject.CreateRepeatHierarchy() End If End If Call vBEObject.MarkTempItems Exit Sub GenerateRepeatError: If (dOptions And CS_DOC_WEBUSER) = 0 Then Dim strtable As New BaseCSStringTable() ' warn the user that we cannot create this many instances Call DisplayWarn(strtable.getstring(ERR_CREATE_REPEAT, Null), 0, strtable.getstring(ERR_TITLE,Null)) vContinue = False Call note.removeitem("RepeatDates") End If Exit Sub End Sub '++LotusScript Development Environment:2:2:CSDocSaveCalendarEntry:1:8 Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String) Dim note As notesdocument Dim item As notesitem Dim nYearly As Integer Set note = vBEObject.Document If (strCurrentType = "1" And (note.IsNewNote = True)) Then ' See if this should automatically repeat If Not(note.hasitem("OrgRepeat")) And Not(note.hasitem("tmpDoNotRepeat")) Then nYearly = CSProfileGetAutoAnnivRepeat() If (nYearly > 0) Then Set item = note.getfirstitem("StartDate") Call item.copyitemtodocument(note, "RepeatStartDate") Call note.replaceitemvalue("OrgRepeat","1") Call note.replaceitemvalue("RepeatHow", "F") Call note.replaceitemvalue("RepeatFor", nYearly) Call note.replaceitemvalue("RepeatForUnit","Y") Call note.replaceitemvalue("RepeatUnit","Y") Call note.replaceitemvalue("RepeatInterval", "1") Call note.replaceitemvalue("RepeatWeekends", "D") End If End If End If End Sub '++LotusScript Development Environment:2:2:CSDocSendPrimaryNotice:1:8 Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant) Dim fSendOptions As Integer On Error Resume Next If Not(vBEObject.IsWorkflowEnabled) Then Exit Sub fSendOptions = vBEObject.PrimarySendOptions If (fSendOptions = 0) Then Exit Sub If ( (fSendOptions And 2) Or (fSendOptions And 4) ) Then Call vBEObject.InviteRooms() If (fSendOptions And 1) Then ' first, prepare the backend document for sending Err = 0 Call vBEObject.PreSendPrimaryRequest() ' invoke the callback object Call vCallBackObject.SendPrimaryRequest() Call vBEObject.PostSendPrimaryRequest(Err <> 0) End If If (Err <> 0) Then vContinue = False End Sub '++LotusScript Development Environment:2:2:CSDocUpdatePersonalCategories:1:8 Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument) Dim vCategories As Variant Dim vResult As Variant Dim nentries As Integer Dim strSelectedCategory As String, strCoreCategories As String If (note Is Nothing) Or (profile Is Nothing) Then Exit Sub ' See if we need to update categories strSelectedCategory = note.GetItemValue("Categories")(0) If Len(strSelectedCategory) = 0 Then Exit Sub strCoreCategories = "HVPNCTPC" If Len(strSelectedCategory) <= 2 Then If Instr(strCoreCategories,strSelectedCategory) Then Exit Sub End If vCategories = profile.GetItemValue("UserCategories") On Error Resume Next vResult = Arraygetindex(vCategories, strSelectedCategory) If Isnull(vResult) = True Then nEntries = Ubound(vCategories) + 1 Redim Preserve vCategories(nEntries) vCategories(nEntries) = strSelectedCategory Call profile.replaceitemvalue("UserCategories", vCategories) Call profile.save(True, False) End If End Sub '++LotusScript Development Environment:2:2:CSExtAppDocSave:1:8 Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant) End Sub '++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8 Sub wInstantiateObjectVariables Set session = New NotesSession Set db = session.CurrentDatabase Set note = session.DocumentContext Set agentlog = New noteslog("Agent log") Call agentlog.openagentlog End Sub '++LotusScript Development Environment:2:2:wMessagePageHeader:1:8 Sub wMessagePageHeader 'Create the action bar Evaluate("@ReplaceSubstring(""" + PathAndName$ + """;"" "";""+"")") Print || Print || Print || Print || Print || Print || Print || Print |
In Box Calendar Meetings To Do All Views
| End Sub '++LotusScript Development Environment:2:2:CopyProfileValues:1:8 Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument) Dim x As Integer Dim item As NotesItem Dim item2 As NotesITem noteDest.Owner = noteSrc.Owner(0) Call agentlog.logaction("owner is "+notesrc.owner(0)) noteDest.DefaultDuration = noteSrc.DefaultDuration(0) noteDest.AutoAnniversaryRepeat = noteSrc.AutoAnniversaryRepeat(0) If (noteSrc.HasItem("AutoRemoveFromInbox")) Then noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0) Else noteDest.AutoRemoveFromInbox = "0" End If If (noteSrc.hasitem("FormatReplies")) Then noteDest.FormatReplies=noteSrc.FormatReplies(0) End If If(noteSrc.hasitem("OffsetChar")) Then noteDest.OffSetchar=noteSrc.Offsetchar(0) End If If (noteSrc.HasItem("PreventAll")) Then noteDest.PreventAll = noteSrc.PreventAll(0) End If If (noteSrc.HasItem("PreventSent")) Then noteDest.PreventSent=noteSrc.PreventSent(0) End If If (noteSrc.Hasitem("ConflictEvent")) Then noteDest.ConflictEvent = noteSrc.ConflictEvent(0) End If If (noteSrc.Hasitem("ConflictMeeting")) Then noteDest.ConflictMeeting = noteSrc.ConflictMeeting(0) End If If (noteSrc.Hasitem("ConflictAnniversary")) Then noteDest.ConflictAnniversary = noteSrc.ConflictAnniversary(0) End If If (noteSrc.Hasitem("TaskFollow")) Then noteDest.TaskFollow = noteSrc.TaskFollow(0) End If If (noteSrc.hasitem("AutoProcessType")) Then noteDest.AutoProcessType=noteSrc.AutoProcessType(0) If (noteSrc.getitemvalue("AutoProcessType")(0)="2") Then 'pull autoprocessuserlist Set item = noteSrc.getfirstitem("AutoProcessUserList") Call noteDest.removeitem("AutoProcessUserList") Call item.copyitemtodocument(noteDest, "AutoProcessUserList") End If If (noteSrc.getitemvalue("AutoProcessType")(0)="1") Then 'pull forward Set item = noteSrc.getfirstitem("AutoProcessForward") Call noteDest.removeitem("AutoProcessForward") Call item.copyitemtodocument(noteDest, "AutoProcessForward") End If End If If (noteSrc.hasitem("PreventRepliesFromInbox")) Then noteDest.PreventRepliesFromInbox=noteSrc.PreventRepliesFromInbox(0) End If If (noteSrc.hasitem("AutoRemoveFromInbox")) Then noteDest.AutoRemoveFromInbox=noteSrc.AutoRemoveFromInbox(0) End If Set item = noteSrc.GetFirstItem("AllowBusyAccess") Call noteDest.RemoveItem("AllowBusyAccess") Set item2 = item.CopyItemToDocument(noteDest, "AllowBusyAccess") If Len(item2.text) Then If Not(item2.Contains(noteSrc.GetItemValue("Owner")(0))) Then Call item2.AppendToTextList(noteSrc.GetItemValue("Owner")(0)) End If End If If(noteSrc.hasitem("ReadMail")) Then Set item = noteSrc.getfirstitem("ReadMail") Call noteDest.removeitem("ReadMail") Call item.copyitemtodocument(noteDest, "ReadMail") End If If (noteSrc.hasitem("WriteMail")) Then Set item = noteSrc.getfirstitem("WriteMail") Call noteDest.removeitem("WriteMail") Call item.copyitemtodocument(noteDest, "WriteMail") End If If (noteSrc.hasitem("EditMail")) Then Set item = noteSrc.getfirstitem("EditMail") Call noteDest.removeitem("EditMail") Call item.copyitemtodocument(noteDest, "EditMail") End If If (noteSrc.hasitem("DeleteMail")) Then Set item = noteSrc.getfirstitem("DeleteMail") Call noteDest.removeitem("DeleteMail") Call item.copyitemtodocument(noteDest, "DeleteMail") End If If (noteSrc.hasitem("PublicRead")) Then noteDest.PublicRead=noteSrc.PublicRead(0) Set item = noteSrc.getfirstitem("ReadCalendar") Call noteDest.removeitem("ReadCalendar") Call item.copyitemtodocument(noteDest, "ReadCalendar") End If If (noteSrc.hasitem("PublicWrite")) Then noteDest.PublicWrite=noteSrc.PublicWrite(0) Set item = noteSrc.getfirstitem("WriteCalendar") Call noteDest.removeitem("WriteCalendar") Call item.copyitemtodocument(noteDest, "WriteCalendar") End If noteDest.Sunday = noteSrc.sunday(0) noteDest.Monday = noteSrc.monday(0) noteDest.tuesday = noteSrc.Tuesday(0) noteDest.Wednesday = noteSrc.Wednesday(0) noteDest.Thursday = noteSrc.Thursday(0) noteDest.Friday = noteSrc.Friday(0) noteDest.Saturday = noteSrc.Saturday(0) For x = 1 To 7 Set item = noteSrc.GetFirstItem("$Times" & x) If Not(item Is Nothing) Then Call noteDest.RemoveItem(item.name) Call item.copyitemtodocument(noteDest,"") End If Next End Sub '++LotusScript Development Environment:2:1:wGetDBPath:1:8 Function wGetDBPath As Variant Dim strtmp As String Dim npos As Integer Dim nposofspace As Integer On Error Goto errorroutine wGetDBPath="" 'check to see if the database is in a directory If Instr(db.filepath,"\") Or Instr(db.filepath, " ") Then If Instr(db.filepath, "\") Then strtmp = db.filepath npos = 1 While Instr(npos, strtmp, "\") > 0 'extract to the backslash nposofspace = Instr(npos, strtmp, "\") 'replace the slash with a double slash strtmp = Left(strtmp, nposofspace -1 )+"/"+Right$(strtmp, (Len(strtmp)-nposofspace)) npos = nposofspace+1 Wend End If If Instr(db.filepath, " ") Then npos = 1 While Instr(npos, strtmp, " ") > 0 'extract to the space nposofspace = Instr(npos, strtmp, " ") 'replace the space with a + sign strtmp = Left$(strtmp, nposofspace -1 )+"+"+Right$(strtmp, (Len(strtmp)-nposofspace)) npos = nposofspace+1 Wend End If End If wgetdbpath = strtmp If wgetdbpath="" Then wgetdbpath = db.filepath Exit Function errorroutine: Msgbox "Error is:"+Cstr(Error) End Function '++LotusScript Development Environment:2:2:SetInternationalFormatHelpers:1:8 Sub SetInternationalFormatHelpers( note As NotesDocument) Const DayString = "DD" Const MonthString = "MM" Const YearString = "YY" Const HourString = "HH" Const MinuteString = "MM" Dim s As New NotesSession Dim intl As NotesInternational Set intl = s.International ' do the date format helper Dim dHelp1 As String Dim dHelp2 As String Dim dHelp3 As String Dim tHelp1 As String Dim tHelp2 As String If intl.isDateDMY Then dHelp1 = DayString dHelp2 = MonthString dHelp3 = YearString Elseif intl.isDateMDY Then dHelp1 = MonthString dHelp2 = DayString dhelp3 = YearString Else dHelp1 = YearString dHelp2 = MonthString dHelp3 = DayString End If note.DateFormatHelper = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3 note.DateFormatHelper2 = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3 ' do the time format helper tHelp1 = HourString + intl.TimeSep + MinuteString If Not intl.isTime24Hour Then tHelp2 = " " + intl.PMString End If note.TimeFormatHelper = tHelp1 + tHelp2 note.TimeFormatHelper2 = tHelp1 + tHelp2 note.DurationFormatHelper = tHelp1 note.DurationFormatHelper2 = tHelp1 End Sub '++LotusScript Development Environment:2:2:wMarkTempFields:1:8 Sub wMarkTempFields(doc As NotesDocument) Dim itemlist As Variant 'Mark all temporary and compute for display fields such that they will not be saved to disk On Error Resume Next itemlist = doc.Items Forall n In itemlist If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False End Forall 'remove web CGI variable so that they will get updated on the next doc read Call doc.RemoveItem("Path_Info") Call doc.RemoveItem("Query_String") 'if the mail option fields are all default values, remove them If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _ doc.Form(0) <> "Task") Then Call doc.RemoveItem("Importance") Call doc.RemoveItem("DeliveryPriority") Call doc.RemoveItem("DeliveryReport") End If End Sub '++LotusScript Development Environment:2:2:wCreateDefaultCalendarProfile:1:8 Sub wCreateDefaultCalendarProfile %REM *This routine creates a calendar profile document containg default values for required fields %END REM On Error Goto ErrorRoutine 'the global variable "profile" is a profile document already 'we need to add the fields to it profile.Form = "CalendarProfile" Call profile.ComputeWithForm(False, False) profile.wDefaultMailOpt = "2" profile.wCalGridType = "3" Call profile.Save(True,True,True) Exit Sub ErrorRoutine: Messagebox(Cstr(Err)+": "+Error+" wCreateDefaultCalendarProfile") End Sub '++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8 Function wGetCalendarProfile As Integer On Error Goto ErrorRoutine wGetCalendarProfile=True Set profile = db.GetProfileDocument("CalendarProfile") If (profile.IsNewNote) Or (Len(profile.getitemvalue("Owner")(0)) = 0) Then wCreateDefaultCalendarProfile If profile.getitemvalue("Owner")(0) = "" Then wGetCalendarProfile=False Owner = profile.getitemvalue("Owner")(0) Exit Function ErrorRoutine: Messagebox(Cstr(Err)+": "+Error+" wGetCalendarProfile") End Function '++LotusScript Development Environment:2:2:CSDocSaveRepeatingEntry:1:8 Sub CSDocSaveRepeatingEntry(vBEobject As Variant) Dim nContext As Integer, nChangeWhich As Integer nContext = vBEobject.Context If (nContext = CTX_REPEAT_INST Or nContext = CTX_REPEAT_MSG) Then nChangeWhich = vBEObject.RepeatModify If nChangeWhich <> REPEAT_CANCEL Then Call vBEObject.ApplyRepeatChanges(nChangeWhich) End If End Sub '++LotusScript Development Environment:2:1:CSGetMainEventObject:1:8 Function CSGetMainEventObject(vBEObject As Variant) As Variant Select Case vBEObject.Context Case CTX_REPEAT_MSG Set CSGetMainEventObject = vbeobject.RepeatInstanceEvent Case CTX_REPEAT_NONE If (vBEObject.Document.IsResponse) Then Set CSGetMainEventObject = vbeobject.ParentEvent Else Set CSGetMainEventObject = vbeobject End If Case Else Set CSGetMainEventObject = vBEObject End Select End Function '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub '++LotusScript Development Environment:2:1:CSNoteGetType:1:8 Function CSNoteGetType(note As notesdocument) As Integer Dim strForm As String strForm = note.getitemvalue("Form")(0) If Instr(1, strForm, "reservation", 1) > 0 Then CSNoteGetType = 3 Elseif Instr(1, strForm, "task", 1) > 0 Then CSNoteGetType = 2 Else CSNoteGetType = 1 End If End Function '++LotusScript Development Environment:2:1:CSProfileGetAutoAnnivRepeat:1:8 Function CSProfileGetAutoAnnivRepeat() As Integer Dim session As New notessession Dim profile As notesdocument Dim vValue As Variant Set profile = session.currentdatabase.getprofiledocument("CalendarProfile") vValue = profile.getitemvalue("AutoAnniversaryRepeat")(0) If Isnumeric(vValue) Then CSProfileGetAutoAnnivRepeat = vValue Else CSProfileGetAutoAnnivRepeat = 0 End If End Function '++LotusScript Development Environment:2:1:CSEventPerformAction:1:8 Function CSEventPerformAction(vBEObject As Variant, Byval strAction As String, Byval bSendNow As Integer, vArgs As Variant) As Integer Dim note As notesdocument Dim bKeepPosted As Integer, fCancelFlags As Integer Set note = vBEObject.Document Select Case strAction Case ORS_MSGTYPE_ACCEPT If (note.GetItemValue("tmpPencilIn")(0) = "1") Then strAction = ORS_MSGTYPE_PENCILIN Case ORS_MSGTYPE_CANCEL ' See if the user wants to delete the event; if they do, we must mark our owning document ' for deletion and let the backend remove the responses; otherwise, we end up removing the document ' from underneath ourselves fCancelFlags = Cint(vArgs) If (note.GetItemValue("tmpDeleteEntry")(0) = "1" And Not((fCancelFlags And REMOVE_DELETED) = REMOVE_DELETED)) Then fCancelFlags = fCancelFlags Or REMOVE_RESPONSES vArgs = Cint(fCancelFlags) End If Case ORS_MSGTYPE_DELEGATING, ORS_MSGTYPE_REJECT bKeepPosted = (note.GetItemValue("tmpKeepPosted")(0) = "1") vArgs = Cint(bKeepPosted) End Select CSEventPerformAction = CSEventPerformActionGuts(vBEObject, strAction, bSendNow, vArgs) End Function '++LotusScript Development Environment:2:1:CSEventPerformActionGuts:1:8 Function CSEventPerformActionGuts(vBEObject As Variant, strAction As String, bSendNow As Integer, vArgs As Variant) As Integer If Isarray(vArgs) = False Then If Datatype(vArgs) = 8 Then Call vbeobject.ActionHandler(strAction, Cint(bSendNow), Cstr(vArgs)) Elseif Isnumeric(vArgs) Then Call vbeobject.ActionHandler(strAction, Cint(bSendNow), Cint(vArgs)) End If Else Call vbeobject.ActionHandler(strAction, Cint(bSendNow), vArgs) End If End FunctionLSOBenTp<8L LĂ$XT0$$dvDLD$l~Ă \-;(`BBp"LSLSP2Ăjj66PE!4D#T>Lotus ProductV0.08p< ,W32I8*492C110lNEWDELETE INITIALIZE TERMINATEpOBJECT( SUSERNAMESRETABBREVIATEDNAME SRETDOMAINSNAME1SNAME2HSKEYNAME VLISTOFNAMESSNAME SWILDCARD SITEMNAMENOTEDT1DT2 VLSDTNOTESx SITEMNAME1 SITEMNAME28 SDATEITEMP STIMEITEMdINEWTYPEIFLAGST STRNEWFORM<SPROMPTSTITLESERRORNPROMPT LDIFFERENCEDTADJUST VBEOBJECT DTCALINSTANCEDOPTIONS<VCALLBACKOBJECT0DACTION VCONTINUEBOWNERSTRCURRENTTYPElPROFILETBISTASKNOTESRCNOTEDESTDOC STRACTION|BSENDNOWVARGS lsconst.lssV_EMPTYdV_NULL V_INTEGERV_LONGV_SINGLE8V_DOUBLEL V_CURRENCYV_DATEV_STRING V_DISPATCHV_ERROR V_BOOLEAN V_VARIANT V_IUNKNOWN\V_UNISTR0 V_CLIENTHDLp V_TYPEINSTDV_LSOBJ, V_PRODOBJV_BYREFV_ARRAYV_LISTh V_DYNAMIC MB_OK` MB_OKCANCELMB_ABORTRETRYIGNOREDMB_YESNOCANCEL MB_YESNOMB_RETRYCANCEL MB_ICONSTOPMB_ICONQUESTIONMB_ICONEXCLAMATION@MB_ICONINFORMATION  MB_APPLMODAL MB_DEFBUTTON1 MB_DEFBUTTON2 MB_DEFBUTTON3MB_SYSTEMMODAL IDOK IDCANCEL IDABORT, IDRETRY IDIGNOREH IDYES IDNO ATTR_NORMALh ATTR_READONLYl ATTR_HIDDEN( ATTR_SYSTEM ATTR_VOLUMEPATTR_DIRECTORY4 ATTR_ARCHIVE ATTR_MODEP ATTR_HANDLE ATTR_INPUT ATTR_OUTPUT ATTR_RANDOM ATTR_APPEND ATTR_BINARY SHELL_NORMAL_FOCUS SHELL_MIN_FOCUS4 SHELL_MAX_FOCUSd SHELL_NORMAL_NO_FOCUS SHELL_MIN_NO_FOCUSP IME_NOT_INSTALLEDP IME_ON IME_OFF IME_HIRAGANA IME_KATAKANA_DBCS IME_KATAKANA_SBCSl IME_HANGEUL IME_HANJACONVERT IME_ALPHA_DBCS IME_ALPHA_SBCS SC_UPPERCASE< SC_LOWERCASE SC_PROPERCASESC_WIDEh SC_NARROW, SC_KATAKANA SC_HIRAGANA SC_NATIVEDIGITSC_ARABICDIGIT lsprcval.lss\LSI_THREAD_LINExLSI_THREAD_PROCxLSI_THREAD_MODULELSI_THREAD_VERSIONLLSI_THREAD_LANGUAGE$LSI_THREAD_COUNTRYLSI_THREAD_TICKSLSI_THREAD_TICKS_PER_SECLSI_THREAD_PROCESS_IDDLSI_THREAD_TASK_ID orgconst.lss(ORS_MSGTYPE_ACCEPTAORS_MSGTYPE_COUNTERACCEPTBORS_MSGTYPE_CANCELCdORS_MSGTYPE_DELEGATING0DORS_MSGTYPE_REFRESHINFOEORS_MSGTYPE_COMPLETEDlFORS_MSGTYPE_ADDCALENDARPG0ORS_MSGTYPE_INVITEXIORS_MSGTYPE_COUNTERREJECTJORS_MSGTYPE_DELEGATELORS_MSGTYPE_CONFIRMATIONlNORS_MSGTYPE_PENCILINPORS_MSGTYPE_REJECTtR8ORS_MSGTYPE_STATUSUPDATE SORS_MSGTYPE_COUNTERTORS_MSGTYPE_RESCHEDULEPUORS_MSGTYPE_WAITINGPWORS_MSGTYPE_REMOVERESXYORS_MSGTYPE_REMOVEDZDORS_MSGTYPE_STATUSREQUIRED|2ORS_MSGTYPE_STATUSREMOVED5ORS_STATUS_REMOVEDORS_STATE_ROOMORS_STATE_RESOURCEp6ORS_ITEM_CALENDARC0x ORS_ITEM_TODOT0XORS_ITEM_CALLSH0ORS_ITEM_PLANNER<P0ORS_ITEM_ADDRESSHD04ORS_ITEM_NOTEPADN0ORS_ITEM_ANNIVERSARYA0SO_NONESO_USERSSO_ROOMS8 SO_RESOURCES REMOVE_CURRENTREMOVE_RESPONSES|REMOVE_CALENDARREMOVE_DELETED REPEAT_CANCELREPEAT_CURRENTt REPEAT_ALL  REPEAT_PREV\ REPEAT_FUTCTX_REPEAT_NONE0CTX_REPEAT_MAINHCTX_REPEAT_INSTHCTX_REPEAT_MSG CS_VERSION_45$ CS_VERSION_50TCS_SHARED_STRINGCS_OWNER_STRINGtCS_PART_STRING INC_COMMENTS ENTRY_PAST ENTRY_CONF ALARM_TITLE PAST_TITLE DBLBOOK_TITLE ERR_FREETIMERPTCHANGE_TITLEUSER_ACTION_INVALIDUSER_INVALID_DOCUMENTERR_CREATE_REPEAT  ERR_TITLEREPEAT_CONFLICT_PROMPTPREPEAT_CONFLICT_TITLEtREPEAT_OPEN_PROMPTREPEAT_OPEN_TITLExENABLE_OUT_PROMPTENABLE_OUT_TITLERESOURCE_BOOKED_PROMPT\RESOURCE_BOOKED_TITLERESOURCE_FREETIME_ERR_PROMPTdRESOURCE_FREETIME_ERR_TITLE WEB_GOBACK`REPEAT_PASTE_PROMPT@REPEAT_PASTE_TITLE ENTRY_TYPE ENTRY_DTMOD CANC_TITLE RESC_TITLE  STS_TITLE DTMOD_TITLE@ MODTYPE_TITLEx CONF_TITLE CTRACPT_TITLE CTRDECL_TITLEREM_PARTREM_PART_TITLE  RESC_UPD_MSG" REPEAT_TITLE SEND_INV_MSGDSEND_INVRES_MSG SEND_INV_TITLE NO_SEND_LIST( VIEWSTATUS_NOMEMBERS_PROMPT!WEB_TABLE_NAME WEB_TABLE_STATUS!WEB_TABLE_ROLE` RESC_MSGD CANCEL_MSGh! CANCEL_UPD CANCEL_NOACTNL! ERR_SEND_DELE" ERR_BROADCAST ERR_NO_DELEGATE!ERR_NO_PROPOSE0!USER_MUST_ACCEPT! ACPT_TITLE! DECL_TITLE$ UPD_TITLE8" DELE_TITLE" CNTR_TITLE! ADD_TITLET"STATUS_REQUIRED#STATUS_REMOVEDT# STATUS_TITLEp$ CREATE_MEMOp" CREATE_TASK"CREATE_CALENDARP$CREATE_GROUPCALENDAR# ACTION_NONE $ ACTION_CLOSEt# ACTION_SAVE8# ACTION_SEND# ACTION_FILE( ACTION_CANCEL%ACTION_RESCHEDULE#ACTION_COUNTER_REJECT#ACTION_COUNTER_ACCEPT$ACTION_CONFIRMt%ACTION_REMOVE_PEOPLE$ ACTION_ACCEPT%ACTION_DECLINE%ACTION_DELEGATE &ACTION_COUNTER_PROPOSEL%ACTION_OPENRESCHEDULE'ACTION_ADDTOCALENDAR(ACTION_COMPLETED%ACTION_REFRESHINFO,&ACTION_MEMOMGR& ACTION_DRAFT@&ACTION_STATIONERY& ACTION_RENAMEX&ENABLEDl&DISABLEDx'REMOVED& CS_DOC_ALARMS&CS_DOC_FIRSTPASSd'CS_DOC_FOROWNER' CS_DOC_TASK@'CS_DOC_ISCOUNTER*CS_DOC_WEBUSER'CS_DOC_RESOURCE'SESSION( NOTESSESSIONl(%LSXBE'DB' NOTESDATABASE<( NOTESDOCUMENT (ITEM<, NOTESITEMT) NAMELOOKUPT( NOTESNAME4)AGENTLOG(NOTESLOG( PATHANDNAMEp*OWNER( NEWDOCUMENT) ISWEBCLIENT )BASEAPPLICATION$) M_SESSIONl)M_DB) M_STRINGTABLE)DATABASE@* STRINGTABLE+DOCUMENTSTOPROCESS*NOTESDOCUMENTCOLLECTION`*UNPROCESSEDDOCUMENTS*LOCALADDRESSBOOK\+ SADDRESSLINE+NPOS*GETENVIRONMENTSTRING*names4+,* GETDATABASEd- names.nsf.CURRENTDATABASE+CREATEDOCUMENTt+BASECSSTRINGTABLE, GETSTRING,NINDEX2VDATA.1Do you want to include any comments on the reply? , Alarm OptionsX0 Double Book,9An error occured while searching for free time. Continue?<1Change Repeating Entry-;This entry conflicts with an existing entry. Create anyway?/>You must select an instance document to perform these actions.(0tThe maximum number of repeat instances has been reached. Please reduce the number of instances that will be created./Error 1WThe following dates conflict with existing entries or do not fit in your profile times:5Repeat Conflict31Select the repeat /instance date you wish to open: 2Repeat Instance Open 4VWould you like to setup the Out of Office agent to handle messages while you are away?2Enable Out Of Office1WThe specified resource is unavailable for the requested time. Please select a new time.D4Resource Unavailable4`An error occurred while validating the available time for this resource. Please try again later.:Go Back4mThe copied entry is a repeating entry. The new entry pasted will be created as a single, non-repeating entry.h4Paste Repeating Entry5BASEEVENTOWNERSTRINGTABLE4Cancel options 5Reschedule options7Participant Status,5Change entry type5Create in Past$7 Confirm event88=Select the participant(s) you wish to remove from this event.H7Remove Participants7Repeat Optionsd60There are no participants to send the notice to.T9KYou are the owner of this entry. You cannot perform that particular action.\:Accept Counter8Decline CounterX7Namel7Status|7Role;MEETINGOWNERSTRINGTABLE,9@Changing the entry type will cancel this meeting. Change anyway?<=<Are you sure you want to change the date/time of this entry?<7This entry is being created in the past. Create anyway? <Change date/time@>An update notice will be sent to the participants and any rooms/resources you may have requested informing them of this change. l;ADo you want to send meeting invitations to the appropriate users?<TASKOWNERSTRINGTABLE?>Changing the entry type will cancel this to do. Change anyway?=;Are you sure you want to change the date this to do is due?4A7This to do is being created in the past. Create anyway? @0Send to do assignments to the appropriate users?l@Send AssignmentsL_An update notice will be sent to all participants of this to do informing them of this change. ?=There are no participants to view the status of at this time.?BASEEVENTPARTICIPANTSTRINGTABLE?PastD@Ac?cept options CSDOCSAVEVDATESPSTRORIGINALTYPEȏ BCREATEREPEAT$ NCHANGEWHICHITYPE tmpactionpCSEXTAPPDOCSAVE CURRENTTYPE ORIGINALTYPEOrgConfidentialȐ $PublicAccess$Alarm INALARMFOLDER $AlarmTime $AlarmOffsetADDDEFAULTALARM\CONTEXTOriginalStartDateUPDATEDATETIMEITEMSxCSDOCSAVECALENDARENTRYL SETDUESTATE\INCREMENTSEQUENCENUMȒSETCALENDARDATETIME4 SETVIEWICON OrgRepeat ISRESPONSEl RepeatDates GENERATEREPEATERRORGENERATEREPEATDATESГUPDATEBUSYTIMEINFO BookFreeTimeCSDOCSENDPRIMARYNOTICE@CREATEREPEATHIERARCHY MARKTEMPITEMStSTRTABLENYEARLY|tmpDoNotRepeatCSPROFILEGETAUTOANNIVREPEAT StartDatePCOPYITEMTODOCUMENTRepeatStartDate RepeatHow RepeatFor RepeatForUnit RepeatUnitRepeatInterval(RepeatWeekends FSENDOPTIONSXISWORKFLOWENABLEDPRIMARYSENDOPTIONSl INVITEROOMS@PRESENDPRIMARYREQUEST8SENDPRIMARYREQUESTЙPOSTSENDPRIMARYREQUESTCSDOCUPDATEPERSONALCATEGORIES VCATEGORIES(VRESULTNENTRIESSTRSELECTEDCATEGORYȗSTRCORECATEGORIES CategoriesdHVPNCTPCUserCategoriesSAVEtWINSTANTIATEOBJECTVARIABLES\DOCUMENTCONTEXT Agent log8 OPENAGENTLOGWMESSAGEPAGEHEADER@ReplaceSubstring("ܚ ";" ";"+")*<TABLE BORDER CELLSPACING=2 CELLPADDING=2>`#<TR VALIGN=middle BGCOLOR="C0C0C0"> <TD><A HREF="؝T($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>($Calendar)?OpenView&Grid= WCALGRIDTYPEN"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>lY($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>R($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>O"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD></TR></TABLE><HR>ĞCOPYPROFILEVALUESITEM2 LOGACTION owner is <DEFAULTDURATION̞AUTOANNIVERSARYREPEATAutoRemoveFromInboxAUTOREMOVEFROMINBOX0 FormatRepliesD FORMATREPLIES( OffsetChar| OFFSETCHAR, PreventAllP PREVENTALLԟ PreventSent< PREVENTSENT ConflictEvent@ CONFLICTEVENThConflictMeetinghCONFLICTMEETINGConflictAnniversaryCONFLICTANNIVERSARY TaskFollow̠ TASKFOLLOWAutoProcessTypeAUTOPROCESSTYPEAutoProcessUserListlAutoProcessForwardPreventRepliesFromInboxԡPREVENTREPLIESFROMINBOXAllowBusyAccessCONTAINS8APPENDTOTEXTLISTReadMail WriteMailԢEditMail DeleteMail PublicRead PUBLICREADt ReadCalendarL PublicWrite` PUBLICWRITEԤ WriteCalendarSUNDAY|MONDAỴTUESDAY WEDNESDAY$THURSDAYFRIDAYSATURDAY$TimesNAMEl WGETDBPATH8STRTMPT NPOSOFSPACEdFILEPATHt\+ Error is: SETINTERNATIONALFORMATHELPERSp DAYSTRINGDD( MONTHSTRINGHMM< YEARSTRINGYYX HOURSTRINGHH MINUTESTRING̥INTLNOTESINTERNATIONAL INTERNATIONAL<DHELP1DHELP2PDHELP3hTHELP1THELP2 ISDATEDMY, ISDATEMDYDATEFORMATHELPERDATESEP0DATEFORMATHELPER2TIMESEP ISTIME24HOUR0PMSTRINGTIMEFORMATHELPER8TIMEFORMATHELPER2DURATIONFORMATHELPERDURATIONFORMATHELPER2XWMARKTEMPFIELDSdITEMLISTHITEMStmp|disp SAVETODISK| Path_Info Query_String IMPORTANCEDELIVERYPRIORITYDELIVERYREPORT FORM Importance\DeliveryPriorityDeliveryReportWCREATEDEFAULTCALENDARPROFILEȫCOMPUTEWITHFORMWDEFAULTMAILOPT3:  wCreateDefaultCalendarProfileȬWGETCALENDARPROFILE, wGetCalendarProfileCSDOCSAVEREPEATINGENTRYPNCONTEXT$ REPEATMODIFYAPPLYREPEATCHANGESCSGETMAINEVENTOBJECTREPEATINSTANCEEVENT\ PARENTEVENT CSNOTEGETTYPESTRFORM reservationVVALUEAutoAnniversaryRepeat`CSEVENTPERFORMACTION BKEEPPOSTED FCANCELFLAGS tmpPencilIn(tmpDeleteEntry tmpKeepPostedCSEVENTPERFORMACTIONGUTS ACTIONHANDLERWelcome Back! Please disable your Out of Office Agent. To disable the agent, Open your Out of Office profile and select the 'Disable' button.This is a repeat reminder! Please disable your Out of Office Agent. To disable the agent, Open your Out of Office profile and sLelect the 'Enable/Disable' button.  ߪ$Dd$D $<$dPDh d d    $!DD4"dH#`@t $$DDdd 0Hl$ d0$@DDd$$DDdDd$DDddD  0  L l $ Dd dd     $ $8 dT $$ p D d  d   8  h $ DD d D   , D T  $ p $ D d $     @  T  l $ d  D d d  $  0 $ T $ | $ D d D ( `   D   H P|$ D  d , 4h p  d  DT$ \D d  4 $<p x d$DTD\d$ HTtD$dD dD@$L|d$DD$dd8d\D$dD$d<`0d2$2D$4ddXx$$D( ddL x D  D$LDxdd`"$T$$dDd$D2d`3D|456$$7DD8d9$:D;d<|=>$?D@dA$B$HChDdEF$GDD ddd, eH fDd g h$ i j$ kDD !ldD4!mP!ndl!o!pd!q!r$!sD !td$"u<"X"Dt"""$"D=#d$ #<#$X#x###$$$D$$ ddT$t$$$D$ % $x!P%@D$$x%d%D%i%s&0&dD&$\&Dp&d>&g&D$&& ' 4#D'@'T$|'؋؋ ).i]d`'    !h'  p"'Ė``ĖĖ||).i]d`'p    x!$' !@' 0H,\P,,00).i].).i]d`'D!     !  `"e  p"4 (Ѝĕĕ).i].).i]d`'("  (!  ! ! 4#$' !D#@(ԏԏԏPtt).i]d`'#! ep" p" p"$h$( p"T$T>p( ).i]d#p" %D# D# D#$mX( D#$$4$(4$l~( D$lo($=(( (L9( $-$-$$h,h,0)+$`'$ &p*p*+-$`') $() $-8)  & &h' T$&&&& h'T$h'  `'X) T$P'P'P'P' X)T$X)  0)p)T$(((( p)T$p)-`) ).i]dD# p*+) T$`*`*`*`* - )T$) ( +* T$++++++++? *T$+* +D*d*h,T$ -+ T$---- +  (T$ //8+.d/d/d/.....d/.`+-.........`+.x++d/-I(-J/ P2;4X0111 1 1X0X0- 11 1`+/01111100 K1`+1x++1/ (/ 4LH72 4 4 4t3t322/t3 4t3`+P2D3d3T3T3d3d3D3D3 T3`+d3x++ 4P2 ((P2- 6<5`6`6`65555/5`65`+455555555 25`+5x++`64 (4 L9?T788888T7T7-888`+67 877 8 877 7`+ 8x++86 ?(6D ;PEB9;;;p:p:996p:;p:`+L9@:`:P:P:`:`:@:@: IP:`+`:x++;L9 ~ (L9 T>H;\=\=\=<<;;6<\=<`+;<<<<<<<< <`+<x++\=; (; >dfLN4>4>hNevN @N>@@@x?x?>>x?@x?`+T>H?h?X?X?h?h?H?H? X?`+h?x++@T> ?(T> BK0QAdBdBdBAAAAAdBA`+@AAAAAAAA A`+Ax++dB@P(@Q PE0lXCDDD D DXCXC DD D`+BCDDDDDCCRD`+Dx++DB(B LH wEGGGdFdFGGEEGGdF(w PEDFTFDFDFTFTF TF(w LH  Gx PEF GFF G G  Gx LHxGPE8(PE9 KVTwHRKRlOlOHMHHNNtQtQH$PIPH\LHRH$P) HM() HHx  H\Lx HHx@ILHI،،IIIII :I  I\y،y@ K4Mz LHJJJJ zLHz \LRyLHLS\z ؎؎؎ t).i]).i]d(L( IK K K 4Mz LHL$M$M$MMMMMLL = Mz KMz !$M{ K{MP{LHMMMMMMM{ LHz KN|LHNNNNNNN|zlO|LH+ d{t{{{{  {' ! |pL|||l|||L|L|\|\| ?,\|l|X||||}$}}D}D}$}t}4}}T}T}d}d} ,<4}t}  D}}  T}d}t}, }D$p(l~,~\~<~<~L~L~\~\~,~,~-<~  L~|\~ - .̅4tddttTT4D.@DD  T  dzt' !ܝ !l LLL,< T4\\\\, <<(Ld*<  5L 4ttTTdd 6T  4ؤTtt$@LhtT  ؗ ؗ00``).i]djd Ăt ,@lLPPP\\LL j7P\4  P U8  8̅` 8`  D9dttdd `9t̏LT,<,,<< 9<T<(:̫||| ,:̫  DDtttTdDD :TDddh' t  `||LLl\\,,<< :,`<L@\Xlp|  ,4t44ddttDDTT ;D,Td@tXp`) (؋t*  *   * tw   +   $y |Hy yzP, z   !  \{   PP8{   !  ЍX{h{􍐖{#{ *! !tt{ OK K|z(| PK K؎h| JK K| LK K K<}H}    \P}   !  !Ė~   X lUddPPXtT[t\]^_\ 'jLĈ|܈j j jT,đl j j$̋ j jT j j j jԓ\̒܈ޑ,X̌}lFmԍ\PZ8l>hDzD?t8PTȓ̐(MLP葘,]44f`\xa $8Sԓ*nĕ )! ! ! #(p,\',,   <  x -D# D#@BCL( (D# D#Zjl@r$H𞺻|,d00؟`'TlX:S2~81]5}D>0X0~T~L#:.2~81]5}?:1]50X0a]5#0 1#01#W2~81]7}?:2~T81 ]7}?:!2~t81"]7}@:#2~81$]7}$@:%2~81&]7}H@:'2~81(]7}p@:|)2~T81*]7}@:b+2~T81,]7}8A:H-2~81.]7}XA:./2~4810]7}@B:12]70.a] 8#40.#0d/#9W:2~481;]@:}C:<2~T81=]@:}C:>2~t81?]@:/9~T#}C:@2~81A]@:/9~T#}lD:B2~81C]@:}D:D2~481E]@:}D:|F2~81G]@:}E:bH2~81I]@:}\F:HJ2~81K]@:}XG:.L2~81M]@:}H:1O]@:0T7a]`:#Q08#08#VWW2~481X]<} I:Y2~T81Z]<}I:[2~t81\]81]A}`Q:8281]AIAT}Q:281]AIAT} R:281]AIAT}lR:281]A}RIAT:281]A}LS:281]A}S:x281]A}8T:^28"1]A} B}U B:1281]A} B}V: 281]A}HW:281]A}:281]A}X:281]A}X:281]A}Y:281]A}hZ:o281]A}Z:U281]A}Z:;281]A}[:!281]AIA B}X[:281]A}[IAT} \:281]A}[IAT} \:281]AIAT}\:281]AIAT}@]:g281]A}]:M281]A}8^:3281]A}^:281]A}^:281]A}_:281]A}_:281]A}@`:281]A}|`:281]A}`:}281]A}pa:c281]A}a:I281]A}pb:/281]A}c:281]A}PcIA}`c:281]A}c:281]A}d:281]A}d:281]A}d:281]A}de:p281]A}e:V281]A}e:<281]A} f:"281]AIA}f:281]A}f:281]A}`g:281]A}g B}h:281]A}h:281]A}4i:u281]A}i:[281]A}`j B}j:5281]A},k:281 ]A}k:1 W2~$>81]C}Tl:{281]C}l:a281]C}l:G281]C}`m:-281]C}m:281]C}n:281]C}o: 281!]C}lp:"281#]C}|q:$281%]CIDT}r:&281']C}r:n(281)]CIDT}ds:K*281+]CIDT}s:(,281-]CIDT}s:.281/]C}8t:02811]C}pt:22813]C}t:42815]C}u:62817]C},u:82819]C}Tu:i:281;]C}u:O<2 81=]C}8v:5>2 81?]C}dv:@2 81A]C}v:1CKITFŠ8LKTF,0}w#dIM2}w92}w81N]DF*LS]TF#:iO2}w81P]DF*V]TF#:KQ2}x81R]DF*\]TF#:-S2}@x81T]DF*`]TF#:1V]DF*LH]TF#X:Y]DF*LH#Z[^W_2~t81`]F*LS#:Ua2~81b]F*V#:9c2~81d]F*\#:e2~81f]F*`#:1ht\HIIuHH84v\H+$w\HKH- #x\HKH,`#y/K#z:{\HKH-#|\HKH-#}^I}ty/tQ#}y\JI5،@^I}tyF،}ydJI5F茛mHJI77،]JHHKH,}Hz)n##1KH,}z}z#1KH,,}({#8y^MKH,\}({#KM-#8]LJM:C^$MKM-Ѝ#KM,#^M+KHH}({$KM, J$M#]LJM:]L+KHH}({$^M/\L#Y 8)KM-I#-P#8KM,tKM-I#}#:hKM-I#,0}H|#d}zKM-I#,,}({#8:KM,#KM, }|#KM,#KM,؎KM,\L##]NeN^\OKLO-I#/4M]LO#/$P]LO#KLOMH5FyhHx8.K\O,,y#8/lOK\O,\y#/MymH##7/P]LO#IPŠ81KH,,IP#8 KH,IP#KH,H]PIP#1]R}}0H]@T#0K#KH,}w}~#1KH,}~KH- #,|} #,0}D#d#1]V0tQ#}`0R#0H]W#0K#KH,}w}#1\WKYLH,0}Hz#d 0N]Y# ]TZ0tQ#}}}^ [KH-#^[KH,0}#\W~KH,}/,[^[^ [##1KH,}@/,[KH,0}@#^ [##1KH,}T/,[KH,0}T#^ [##1b)g][][#X8 Xf[}!"][I[#0R#0H]]#),0K#-KH,}w}#1.1]h_0tQ#}̃25KH,0}#d%8KH,}@}T#160R#0H]a#;>KH,}w}X#1?B]c}|CG^@]dn%8AKn,,Idn#8BCDF]tn%8GKn,,Itn#8HIJKaLO^^ zNyP?b$Iy~tď@Iy~ď8Ab*:/BIy~ď@8Cb*D: Eb*FH^,zK z,0}#dJ^,z%8 ]yIyJ,zåM)}^ zIyb*]y#PIy8R^KDQK4S%?K4,0}Р#d}T8/A^dK4,\}#BKD,}#CKd,ID}#1DEK4,0}Р#d}z8/G^dK4,\}D#HKD,}D#IKd,ID}D#1JKMK4,,}p#8NKDQK4S%OQK4,,}p#8RKDQ@K4S@%SU^dK4,\}ء#VKD,}ء#W^tKd,ID}ء#XKt-Ѝ#%86YKt,ĕK4,0}H#d#8ZKt,K4,0}H#d#[\^K4,,}<#8/_^dK4,\}<#`KD,}<#aKd,ID}<#1bdK4,,}T#8/e^dK4,\}T#fKD,}T#gKd,ID}T#1hiK4,,}l#8/j^dK4,\}l#kKD,}l#lKd,ID}l#1mnK4,,}#8/o^dK4,\}#pKD,}#qKd,ID}#1rsK4,,}#8AtKDQ$K4S$%u^dK4,\}آ#vKD,}آ#wKd,ID}آ#1xyK4,,}#8AzKDQ0K4S0%{^dK4,\}0#|KD,}0#}Kd,ID}0#1~KDQC^K,0}w#dEJ}8Fa:.GJ}x8HaI: JaKLO^T+$S^dKT- #,|} #U^tKd,0}0#dW^t 8XaJtY: Za[\b^lN,PdI<e2}8#1fKl,0}̬#d}z8]<}:h2}|8W1lbI\mKl,0}#d}zX~t~t8nbX~4ço]\Xp:@r2}92}8,1sbKl,0} #d}zt]\X:1wa)],]<]L]\#x{]t8R|]t>8}NDT ]TWIt':$~]t 8NDT ]TWIt':NDT ]TW]t'PJ MembersMembers^ 1S2S3S5S7S   0S0E 8@$[h( |!248`zMX]ȉqDl芰,(\6p `"T-<<̫?DM`],y 6Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"n3l0# rnOa /m{kD4 ̞iZ#de f [Rчz* 7$TITLE$PublicAccess$ScriptLib$ScriptLib_O$LANGUAGE   30  M      @ BDzp  -K{ԛuYi%@Ss%,uv%eB̻̻̻ ^ $̻, White PageB̻̻̻  $̻, White Page$̻1JournalFrameset?$̻,  White Page$̻, White Page@Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lot}s Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"3 :dBb Bń&j`Qʸ~OY2˜|5$A1jV U%׽;/w"+:,\zH`=0H5$TITLE$Comment$FrameSet$DesignerVersion$LANGUAGE 4R} Zi%ASs%,uv%e >E}1;dI@ }1;NotesViewNotesPreview ?- By Category?\` }1;NotesPreviewPreview(}1; @Ss%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E][T>)ENqMAW>2DPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"`4挝l:TbTS_EB͙wdMBqL^!?d9L"7xȒRqn6L|}!rYSO=mgf̅ns5$LANGUAGE$TITLE$Comment$FrameSet$DesignerVersion:wwBbi%BSs%,uv%e>DBD4@` `/ Template Name?K@ NotesNavigatorNotesView` `?. Outline Page<@Switcher` `2DatabaseLocationI@ NotesViewNotesPreview` `?- By Category?ASs%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2MPURSAFO{B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"xp?‘%-83 뗫ǦX ן!Ũ> A'q 'lġt&z#Yxy* [J5 $LANGUAGE$TITLE$Comment$FrameSet$DesignerVersion3G]g(Afi% DSs%,uv%e3x VC " VC@  VC VCO  VCDy  DiaryDate" DiaryDate DiaryDate$53@2$53r"@  4S6S$51|vThis column is available for backward-compatibility with the R4 journal template, which sup}orted Document Versioning.  1S0$51 Previous version as of iKV"  0RR$118Topic$NoTItle$B h%Untitled 1S2E2SN$118Subject .SubjectNoTitle$B h% 0RR3S4S$44ModifiedD6$44 TimeCreated    3S4S&   ?+WC WC WC WC WC B yl}1;$ @:Y (_Send Document ,_Move To Folder...=|._Remove From FolderK>}Y &A Categori_zeKN|"A_Forward (A_Edit Document New Journal Entryp4tempvars viewtitle By Diary Date  4S6S" JournalEntry  0R4SNew Clean SheetKn4tempvars viewtitle By Diary Date  4S6S  CleanSheet  0R4S*!Folder\Create Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');f ef Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=280');_X!  Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0E*!Folder\Remove Folder  Nvar pathname = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');f ef Nvar pathnamm = (window.location.pathname); window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=250');_J@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S   0R_ ___ __ __ _____D! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in views  1S  0R Y ( _Send Document ,_Move To Folder...=|._Remove From FolderK>|Y &A Categori_zeKN|"A_Forward (A_Edit Document New Journal Entryp4tempvars viewtitle By Diary Date  4S6S" JournalEntry  0R4SNew Clean SheetKn4tempvars viewtitle By Diary Date  4S6S  CleanSheet  0R4SX! Folder\Move to Folder...*1  0S0EP! Folder\Remove from Folder   0S0EJ@Folder\Create Folder   0S0E@Folder\Move To Folder...formh~r AlertPYou must first select a document. Note: highlight bar cannot be on a category.  8S14S16S20S   0RD! Move to Trash L  0S0E@! EmptyTrash   0S0E\!Search@Web only; in views  1S  0RCSs%zOzj"{lmMc%7lLc%l% O=Lotus Notes O=Lotus NotesBV1.0BCBA0BLvNNP]ƻmeȹI,M#}P&_ հ#`]$`jPSN_g!lF;E\[T>)ENqMAW>2DPURSAFO {B?spڕY}39dtf[%d \1!u@;$f#9M7"> |.:#Ut 0gd.k!P#8 Me%TMv% O=Lotus Notes1CN=Lotus Notes Template Development/O=Lotus NotesBV1.0BCBA0BLvNNPIO6D9w'n'GDWQ!`>kW8: g)k%HSń-A U[A  !EN^MA< ל PURSAFOi^X3,J%WT;mѓ,a ;PmXX߭FA=|׻ߟg&OPRtMܑ2Ϋ1"i` a`)(%עhxQUSW72v1W͸CksPN +"΂?Swiֶ%Z>% s$LMNGUAGE$FormulaClass$TITLE$Index$Formula$VIEWFORMAT$Comment$WebFlags$DesignerVersion$V5ACTIONS$ACTIONS| SX^XԮw^Sj%ESs%,uv%e| _ }1; DatabaseLocationRp@   d Rp@   d q)WebFontWebFont b1 R8888b1,Ab18(<8 >pR >U >22 Notes only  1SLocalTxtLocal  0RonTxton 0R1S2Sserver?k 0R1S2S> serve}StringonTxt "Server" 0R1S2S3S4S5S6S10SBserver *LocalTxt serverString 0R6S8S  R >R""b%T  Pv0 F Fcgi variable for web  1S SERVER_NAME  0RSERVER_NAME b1R88