Week number
Catherine Litten
catherine.litten@valleypres.org
Fri, 31 Oct 2003 14:38:28 -0800
This is a multi-part message in MIME format.
------=_NextPart_000_0031_01C39FBC.A6135A20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
I haven't needed this but you could modify this use I add to my programs for
calculating dates - adding the defines:
define CURRENT-WK-NBR num*2 = (days(TODAY) - days(START-CAL)) / 7
and then do some calculations using the day of the week to round it up or
down if you need to be a little more accurate.
define DAY-OF-WEEK char*1 = getsystemval("HPDAY")
Let me know if this helps at all,
**************************************************
Catherine Litten, Sr. Programmer/Analyst, Valley Presbyterian Hospital
www.valleypres.org / www.littenfamily.com
No matter how right you are, no one will believe you if you are yelling it
the top of your lungs - Billy Lee Litten
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
This E-mail is covered by the Electronic Communications Privacy Act, 18
U.S.C. §§ 2510-2521 and is legally privileged. This information is
confidential information and is intended only for the use of the individual
or entity named above. If the reader of this message is not the intended
recipient, you are hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited. If you have received
this transmission in error, please notify the sender immediately by return
electronic transmission and then immediately delete this transmission.
<><><><><><><><><><><><><><><><><><><><>
The thoughts, comments, and opinions expressed herein are mine.
here is my DATE2000 use file this was set up so I could select data on
ranges of information run at certain intervals
without users having to put in dates in the JCL each time:
;############################################################
; SOURCE NAME : DATE2000.VPHU
;
; PROGRAM DESCRIPTION : USE FILE FOR PROMPTING AND DEFINING DATES
; YEAR 2000 Compliant
;
; PROGRAMMER : CATHERINE L. LITTEN
;
; DATE ENTERED PRODUCTION : 1998/08/24
;
; NOTES : CREATED FOR GENERIC SUBFILE DATE PROMPT
; ROUTINE TO BE USED IN REPORTS
;
; REVISED ON BY VER DESCRIPTION
; ---------- --- --- -----------
; 1998/09/30 CLL 002 ADDED 5 YEAR DATE
; 2000/03/31 CLL 003 FIXED ERROR IN LEAP YEAR
;############################################################
define WANT-DATE char*2 = parm prompt &
"Date Selection see response information above (eg. CM) - "
define RANGE-START-DATE date format MMDDYYYY = parm prompt &
"Enter Beginning Report date (YYYYMMDD) if selected 'R' - "
define RANGE-END-DATE date format MMDDYYYY = parm prompt &
"Enter Ending Report date (YYYYMMDD) or 0 = Today if selected 'R' - "
define SELECT-NBR-DAY num*3 = parm prompt &
"Enter # of Days needed for Report if Selected 'D' (eg. 15) - "
define SELECT-END-DAY num*3 = parm prompt &
"Enter # of Days before today to End Report if Selected 'D' (eg. 30) -
"
define CURRENT-YEAR char*4 = ascii(SYSDATE,8)[1:4]
define CURRENT-MO char*2 = ascii(SYSDATE,8)[5:2]
define CURRENT-DAY char*2 = ascii(SYSDATE,8)[7:2]
define YESTERDAY date format MMDDYYYY = date(days(SYSDATE) - 1)
define END-DAY date format MMDDYYYY = &
date(days(SYSDATE) - SELECT-END-DAY)
define NBR-DAY date format MMDDYYYY = &
date(days(END-DAY) - SELECT-NBR-DAY + 1)
define NEW-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) + 1)
define LAST-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) - 1)
define PAST-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) - 2)
define B4-PAST-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) - 3)
define LAST-1-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) - 1)
define START-1-YEAR date = &
nconvert(LAST-1-YEAR + CURRENT-MO + CURRENT-DAY)
define LAST-5-YEAR char*4 = ascii(nconvert(CURRENT-YEAR) - 5)
define START-5-YEAR date = &
nconvert(LAST-5-YEAR + CURRENT-MO + CURRENT-DAY)
define START-WK date format MMDDYYYY = date(days(SYSDATE) - 8)
define LAST-WK date format MMDDYYYY = date(days(SYSDATE) - 15)
define PAST-WK date format MMDDYYYY = date(days(SYSDATE) - 22)
define START-MO DATE =nconvert(ascii(SYSDATE,8)[1:6] + "01")
define NEXT-MO date format MMDDYYYY = &
nconvert(ascii(date(days(START-MO) + 32),8)[1:6] + "01")
define END-MO date format MMDDYYYY = date(days(NEXT-MO) - 1)
define END-LAST-MO date format MMDDYYYY = date(days(START-MO) - 1)
define START-LAST-MO date format MMDDYYYY = &
nconvert(ascii(END-LAST-MO,8)[1:6] +"01")
define END-PAST-MO date format MMDDYYYY = date(days(START-LAST-MO) - 1)
define START-PAST-MO date format MMDDYYYY = &
nconvert(ascii(END-PAST-MO,8)[1:6] +"01")
define START-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "1001") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0701") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0401") if CURRENT-MO > "03" else &
nconvert(CURRENT-YEAR + "0101")
define END-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "1231") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0930") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0630") if CURRENT-MO > "03" else &
nconvert(CURRENT-YEAR + "0331")
define START-LAST-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0701") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0401") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0101") if CURRENT-MO > "03" else &
nconvert(LAST-YEAR + "1001")
define END-LAST-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0930") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0630") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0331") if CURRENT-MO > "03" else &
nconvert(LAST-YEAR + "1231")
define START-PAST-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0401") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0101") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "1001") if CURRENT-MO > "03" else &
nconvert(LAST-YEAR + "0701")
define END-PAST-QTR date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0630") if CURRENT-MO > "09" else &
nconvert(CURRENT-YEAR + "0331") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "1231") if CURRENT-MO > "03" else &
nconvert(LAST-YEAR + "0930")
define START-HALF date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0701") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0101")
define END-HALF date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "1231") if CURRENT-MO > "06" else &
nconvert(CURRENT-YEAR + "0630")
define START-LAST-HALF date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0101") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "0701")
define END-LAST-HALF date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "0630") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "1231")
define START-PAST-HALF date format MMDDYYYY = &
nconvert(LAST-YEAR + "0701") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "0101")
define END-PAST-HALF date format MMDDYYYY = &
nconvert(LAST-YEAR + "1231") if CURRENT-MO > "06" else &
nconvert(LAST-YEAR + "0630")
define START-CAL date format MMDDYYYY = nconvert(CURRENT-YEAR + "0101")
define END-CAL date format MMDDYYYY = nconvert(CURRENT-YEAR + "1231")
define START-LAST-CAL date format MMDDYYYY = nconvert(LAST-YEAR + "0101")
define END-LAST-CAL date format MMDDYYYY = nconvert(LAST-YEAR + "1231")
define START-PAST-CAL date format MMDDYYYY = nconvert(PAST-YEAR + "0101")
define END-PAST-CAL date format MMDDYYYY = nconvert(PAST-YEAR + "1231")
define START-FIS date format MMDDYYYY = &
nconvert(LAST-YEAR + "1101") if CURRENT-MO < "11" else &
nconvert(CURRENT-YEAR + "1101")
define END-FIS date format MMDDYYYY = &
nconvert(CURRENT-YEAR + "1031") if CURRENT-MO < "11" else &
nconvert(NEW-YEAR + "1031")
define START-LAST-FIS date format MMDDYYYY = &
nconvert(PAST-YEAR + "1101") if CURRENT-MO < "11" else &
nconvert(LAST-YEAR + "1101")
define END-LAST-FIS date format MMDDYYYY = &
nconvert(LAST-YEAR + "1031") if CURRENT-MO < "11" else &
nconvert(CURRENT-YEAR + "1031")
define START-PAST-FIS date format MMDDYYYY = &
nconvert(B4-PAST-YEAR + "1101") if CURRENT-MO < "11" else &
nconvert(PAST-YEAR + "1101")
define END-PAST-FIS date format MMDDYYYY = &
nconvert(PAST-YEAR + "1031") if CURRENT-MO < "11" else &
nconvert(LAST-YEAR + "1031")
define END-DATE date format MMDDYYYY = &
0 if WANT-DATE= "A" else &
RANGE-END-DATE if WANT-DATE = "R " and RANGE-END-DATE > 0 else &
SYSDATE if WANT-DATE = "B " or &
WANT-DATE = "C2" or &
WANT-DATE = "L1" or &
WANT-DATE = "L5" or &
WANT-DATE = "R " or &
WANT-DATE = "T " else &
YESTERDAY if WANT-DATE = "Y " or &
WANT-DATE = "CW" else &
END-DAY if WANT-DATE = "D " else &
START-WK if WANT-DATE = "LW" else &
LAST-WK if WANT-DATE = "PW" else &
END-MO if WANT-DATE = "CM" else &
END-LAST-MO if WANT-DATE = "LM" else &
END-PAST-MO if WANT-DATE = "PM" else &
END-QTR if WANT-DATE = "CQ" else &
END-LAST-QTR if WANT-DATE = "LQ" else &
END-PAST-QTR if WANT-DATE = "PQ" else &
END-HALF if WANT-DATE = "CH" else &
END-LAST-HALF if WANT-DATE = "LH" else &
END-PAST-HALF if WANT-DATE = "PH" else &
END-CAL if WANT-DATE = "CY" else &
END-LAST-CAL if WANT-DATE = "LY" else &
END-PAST-CAL if WANT-DATE = "PY" else &
END-FIS if WANT-DATE = "CF" else &
END-LAST-FIS if WANT-DATE = "LF" else &
END-PAST-FIS if WANT-DATE = "PF" else &
SYSDATE
define START-DATE date format MMDDYYYY = &
0 if WANT-DATE ="A" else &
19860901 if WANT-DATE = "B " else &
RANGE-START-DATE if WANT-DATE = "R " and RANGE-START-DATE > 0 else &
SYSDATE if WANT-DATE = "T " or &
WANT-DATE = "R " else &
YESTERDAY if WANT-DATE = "Y " else &
NBR-DAY if WANT-DATE = "D " else &
START-WK if WANT-DATE = "CW" else &
LAST-WK if WANT-DATE = "LW" else &
PAST-WK if WANT-DATE = "PW" else &
START-MO if WANT-DATE = "CM" else &
START-LAST-MO if WANT-DATE = "LM" else &
START-PAST-MO if WANT-DATE = "PM" else &
START-QTR if WANT-DATE = "CQ" else &
START-LAST-QTR if WANT-DATE = "LQ" else &
START-PAST-QTR if WANT-DATE = "PQ" else &
START-HALF if WANT-DATE = "CH" else &
START-LAST-HALF if WANT-DATE = "LH" else &
START-PAST-HALF if WANT-DATE = "PH" else &
START-CAL if WANT-DATE = "CY" else &
START-LAST-CAL if WANT-DATE = "LY" or &
WANT-DATE = "C2" else &
START-PAST-CAL if WANT-DATE = "PY" else &
START-1-YEAR if WANT-DATE = "L1" else &
START-5-YEAR if WANT-DATE = "L5" else &
START-FIS if WANT-DATE = "CF" else &
START-LAST-FIS if WANT-DATE = "LF" else &
START-PAST-FIS if WANT-DATE = "PF" else &
SYSDATE
#################################################
Explination for prompts in Use file:
; 1) PERIOD WANTED 'T'oday
; 'Y'esterday
; 'A'ctive
; 'R'ange of dates (answer start and end
dates)
; 'D'ays (answer # of days needed and ending
#)
; WEEK 'CW' Current
; 'LW' Last
; 'PW' Prior to Last
; MONTH 'CM' Current
; 'LM' Last
; 'PM' Prior to Last
; QUARTER 'CQ' Current
; 'LQ' Last
; 'PQ' Prior to Last
; HALF YEAR 'CH' Current
; 'LH' Last
; 'PH' Prior to Last
; CALENDAR YEAR 'CY' Current
; 'LY' Last
; 'PY' Prior to Last
; 'C2' Last Calendar Year to Current
; FISCAL YEAR 'CF' Current
; 'LF' Last
; 'PF' Prior to Last
; BEGINNING 'B ' Begining of VPH data 1985 to Current
; LAST 5 YEARS 'L5' Last 5 years from today till today
; LAST 1 YEARS 'L1' Last 1 years from today till today
; 2) START DATE for date Range or 0
; 3) END DATE for date Range or 0
; 4) NUMBER of Days for the Reporting Period of the Report or 0
; 5) Report to END # of DAYS before Today or 0
------=_NextPart_000_0031_01C39FBC.A6135A20
Content-Type: application/ms-tnef;
name="winmail.dat"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="winmail.dat"
eJ8+IhwWAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQ2ABAACAAAAAgACAAEGgAMADgAAANMHCgAfAA4AJgAAAAUAPAEB
A5AGAFQWAAAlAAAACwACAAEAAAALACMAAAAAAAMAJgAAAAAACwApAAAAAAADAC4AAAAAAAMANgAA
AAAAHgBwAAEAAAAMAAAAV2VlayBudW1iZXIAAgFxAAEAAAAWAAAAAcOf/7PtgsIWVksBTreUtY3S
pMo0xwAAAgEdDAEAAAAlAAAAU01UUDpDQVRIRVJJTkUuTElUVEVOQFZBTExFWVBSRVMuT1JHAAAA
AAsAAQ4AAAAAQAAGDgDUMqP/n8MBAgEKDgEAAAAYAAAAAAAAANcefAzgHMNDvUSTDBatQhbCgAAA
CwAfDgEAAAACAQkQAQAAAMQRAADAEQAAZT0AAExaRnWBxIDnAwAKAHJjcGcxMjXyMgD7MzYB6AKk
A+QHE08CgwBQA9QCAGNoCsBzeGV0MBCpDlAC8hHZQgBEIEdyYWR1YTR0ZQKDMxM/AHBrUzUFAEQC
gH0KgAjIIDvLCW8OMDUXwzE1FTAJw941AFAYqgmrDiA4GRQbwEMa/hbjc3R5bAeQaHkJ4HR7B7AF
sADAAnNzHDEgHhAUgAuAZyAxSRbDXHYIkHdrC4BkejQMYGMAUAsDC2AfkDFMMDMVMQvEIEkfMGFq
dgnwJwVAbgngAQBkiCB0aAQAIGJ1BUDKeQhgIAWgdWwjYARh9QaQeSN0dRIwAzEfICJw2xSAI2Fv
JKAlAHADYAnAXGFtBCACEAXAYwdAY7ckcBSwH4JkFLEEIC0DMX8SYCYRH4IjgCWQAQELgGV3JbIR
wRJgOgqiCoQKgWIBKaUgQ1VSUkVOAFQtV0stTkJScSMAdW0qJbITIRJgIBo9JaMoKMIoQHlzKMBU
T0RBWSkokS6TUFNUQVIscEMlskG6TCjCKSWyLzAtky8lsv0xNDcrFgFAKsMAcCNiCfD7KDAmYHMD
cCoDJ3gCICVSoyk2LlUgb2YpY3cJ4FZrJkIDYHUzUWkFQHXucDZwBcAz0HcLkTHBBpAXJAMjEiZC
YiWQYSBsvTfQdB3gJKEJcCYAYyewexRwFMAuArIqzyvSLwEtxE9GLIBFRUs0RBIBrSjCKh8gLeBn
EkBzLrC5FMBtdgdALkEfICIowvxIUC8BP7cw0DLGO7Ulwc5MEkAkoCWQa244cDjicyODHhBscAQg
FLAmAGwcbCw7uAswQuFpZGNTOmAKsVxxAOBjEUIy3z6ARp9Hr0itO7RDFLAeEFsFECvhTDpBCfAs
BgByGC4gUCbEB4ByL0GubgdAPyFLEFZEMWUlAHNLcAeQYnkUwAchA6BIeG9zcDfQB0AK4wqAd71O
4C4/cUzhJrAHkC4FsL0foC824E7xOjIJ8GYnAKkDEHkuBaBtRHprCeC+cAuQRTofEEXkDlBpHmE/
JKAUsE2BHzBC8QUQZ2j7I/QKwGVLEELgNnAr4QPw90RAOdE6MGUisCQDOPVVkf8kAEOwOjAfkTfR
KXImUDgR3zkDBcAKQB+QKIJCVmElAC9CYEqWRH9FjGkSYDw+/11vXn9fj2CfRhEVMDvERiHkIFQj
kkUtAMADESOhvwWgIrAJcSPAJQIlkEUd4LdFgANgAwBjLAADcG03kFcN4DT1S3BpP3BjJQBBA0WA
SxAxOCBVLlPELkNLUFwnYTJAZ7HzLXAZ8DAtDjEfIDNCI6H9HeBnRDEmkmZQAxBpUAmA/0tQYrML
gCdBVEE1EWNkUMD/RWAJ8CfwTlFq2mjVC4BK4f8jQgIgWnEnQilyJXI2hSCB/2nhFJEDIAWxbCId
wCMAJwDvI1EBoGOxS1BJNpQJcBSAz1SBNoMjoQeBc2E+4GNi70LgWKRtxwlwYwUgCJACMPdLEFeW
SkFlZCF0AQaQCJD7I2JEAm4lAB9wBBA/UAuA7zTzSxB30WTQaSPRa1InUv1ZEHkfgnLWUUFleGNi
eOL3RYEmkyOQYjfQakJx4iQS+yKSdQJlZlAjVmTQAHFQ8N8EEGtTA6AEkANgcksQC1D/H1AlgXaz
ZDQSMG4BBcAHcL9xQQcwFMBacWQhCXB0CHD/f7FkqH7bM0eB2gEAHeAUwOd+fwuQRiA0IDtwYhhg
r/+Jj2FlYhZT0mKwhlIIYFUR/nNLEHrCbCGMkTNCWRALgPk1E2V4T4ISMCNgdkJ/of9X0nghO2GH
kV0hFRJbWUYgfwLRO6w7w3ZCY2ImgS8AVP5FAdCTsCVjKdAd4DGjI4P+d4BwgVE34zQAImEkVBIw
/2SiKDI6EGthfuE+4AQgNoH9atpyN5BD8n4QACALcW2z/nI/cRHATpQ30IwxN+ESMO8SICKCKTMm
YHAj4X+hKERjf6EpckpDTHCgANBonyNwB3EqoJF/O+E7I5+vX6C/oc+iVp81BgBPLCBDUkUHsEFN
pDA6k1cuMFZQSFWfNaNmUFIYT0dSpGA9AEVTQ4BSSVBUSU9OpJFEVVOkMEZJTKgBT0ss4KaBTadh
TkcQoE63FECnAKggTqkSk2JTo2b8WUUv4C1wk7JlQQtQTbG+dKWfpqOkcCzgpKBDk3AuSK2QqRCk
MExLUExJ+lSTgE6sLZNiYvAsYK2QRkUUQKaBRFVDp3UxoDk5OC8wsdAyILD5rDxOT6pBrbIsQJNx
FEAtqHJHLFCuIUMGAFVC36gjsAOotKNmppBVqQGkMH8u4BQgpDCn4RRAqRAH8EUaUKiAVKpmtidF
Vknzt5KnkUJZTKCtkacJo2Z+Lbu3u6K8Vru2o2axpDl0LzOrcUydgJOwRnBB9kSnABRANarkk2Kj
ZpOiXbHgM76AHyC+xDOoEVg/sKGtkKaQLOC30ahAQVB/quOfP8SPxZ+ibzvDK6VX76lQLHCwAxHy
KkZwLeAKse5tJqKrsAVAJkHIyxMowvwiRBSxBlFkomtSEjByQv9OEDUhb7JsuXGSLjBpUEtQ/ENN
LzI/8DvJK6WmwKkgf2MAL8SwAyhCJzJUQQXQTb2/UFnSocmPyp8/4EWZwt8UIGlQC4ADAB+RUlJQ
CRH90ZQo0qLSYi8wOPGWdCNRuCdSJ88v0DosUETRT//SX9Nv1H/VIB9z1i/XNAWx+xJgLeBUBHA2
Udef2K8r0v+n8KhAsSAsssjBuiAtAsHg99w/3U/VFSM2csvALrAjBt8nQt81OPHMFOICROJQzqP/
GWDPH+Ns2lTkr+W/5s/n1v854CdBWOI2QiZR3sHo/+oK/76Q6u8rrarzySOHsC3ggHAldTBpL7BZ
U5NiLDjAKVsxOjRd9F8r+I5NtzDJJ/bvNToy+C/vK+ntEvof92c3+88rw6rwvy/ArZDtEtrv2/Qo
QigvdPv3VC8yMTDQ/9+wQez0AZ//2/TulsfEAx8okexsBG8r4X/kRgYvBz8ISgomCYjkRiuzBE8L
hEVX9f/3Am5rwXljwXQo9YovMBDf/MRMfkEvwBJ/E48UmAQ//MRQNxa/F88Y3TIZ3yvhQjRuLRsf
HC8YzjMeTxZ2Mf8f/yEPGQ/rby/TJHUMUw2o/8r6JdckKhUw+WksiApvFkn+NSSPJZ8mqurQLj8o
li+1/ymPKp8rpS+1LI8tnzM/PXD+SwxPAp8DqffAOX8WhTsPfzwfA4wyrxrXP59ArwOLMu8ePyh4
+eGwAz0xF/5/9/CENl0VISIwMSJHT/0SE1j5w0RvDWw1v0nIRdn7SJUVEjNHMErfS+8Fk01f/0VP
A4BNBScvBSoWo1UvVj//UapX/yhaWa9OH08vSX1Zaf9SuFNvBTkfs17/Ww9Rpl6l/1y/KDxl31+/
YM9h32W3Y3/zab/Q9FFUNKVr/20PNjt79YtTQTGTsHCx8oL5aT75U1E5IoMhlAF0L3U/dknsMDd3
H3gkNnifea96v+1wkDR7/3gkM31/fo9/n/9wkXCvBUhyf3OPgz+ET3azfjLBUID/eE+Jb4p/e3U5
v76QjC99L45Pj197dTaQ7++B75MPlB97VzOMAoX/Xiv/h2+If5gvmT97n4y/l4+fX/9/36F/kg+j
n6SvhSumj5cf/6ivK3h2fJrvWUmcz53frY//qb+Qj6IfrO+0b5TPto+nb/+4r7m/mhu7n6x/vb+u
n4vV/7Afaqux37Lvwp++z6Xvty//wf/Jn6ovy7+8f83fw392v//A79JP01/UaaFExS9leccP/8gf
15/PH7r/zF/W/95/vz//1U/Rr+K/2H+Lr9Xv5y/oPw/ZGrZj2i8olkhBTEb/3B/dL+yv5C+hP+ZP
8l/zb//Pv+8PBYTwn/Gv95/4r+mv//Xv9v/+b99/7s+bv/vf/O//At8D79AfAS8CP+zf2Q8Fn/9Z
OgePCJ8Ojwq/4B8M3w3v/w7/6T8RH2qcEu8T/xnvGv//9Q8YbyAfIS/5fxyvZZceb/8ffyU/Jk8A
TyO/K08sXwS/+yf/XkRDKaAp3yrlFe8m//8oD/uhNJ81rza/HB8GTylh/zmvOr8mjzf/WQ0/L0A/
LQ//PQ8dX0RfRW87wGsjQb9Czz9lpkmvSr9LzUdv77xGSX5TTw8q7zCv1C4ML+sRPP9YAi+fVi87
z1gVUk/7dFPf/1TvWq9bv9TULh9ZX2C7YcbhYYIoTkVXYs1db5v7/17fX+9g/1DPWB9kX2vvVp//
XI9dn7FWaj9rT3EPch9jT/9vj2VvZnpiX2gPSI91T3Zf83dvYfRCNNuEbg96P3tP/4MfbZ9zX03t
gM+B34fPiN9/eZ+GT3u/Znp434o/+1ZE+EFURYxPjV+OaGGgLmGcV0Hq4ZbimIAiQZIPxY5oUppA
R0UtlqeaCo2YcSLcAJsAYW5knK6P60BhoJsvjoZTWVOdX32eYkKesZeQoJ9hgp3bQ+4yo4+kn55i
TJHxpi+nP/2oQTWoj6mfnmarL6w/C/A+VJ6xoF+OhguQTqBFUn+W4Jhgna6YYK2Prp+lo1fPsA+O
aJaksj8iRK//oTrp8ENXS7gfTLXvjlkSk3u7XwvwULyftv3rEZ2uQ/5Nv/+3DBKTwe+oQcMvtv1/
25PFf7+xxr+2/dviwh9R/8pfxE/bxMWvzZ/Hz8+/v3Xv0T+2/SmTzI9I1O/Ovyl1/9Av2D/ST9pf
v2bb77b9TtL91y9Z36/ZX0602t/i79z/v+UPv3Xmj7b9jBLh30bqP//kD4v05X/tf+ef75+/dfEf
/aE/RZV/NBaW75f/mQ+duwOa745KMTk4NjA5/4Vg85+jYvy/nDz4GZ2vnrv/+BmgH/W/Ao+vxLOf
tK+ehD8Fj7E/B4+zUgtfjoZOQv5St9+47wYfuw+1bxJ/vj//u/8Vv2GC0zMXX7+/Es8+of/JD8L/
HM8+ph4Pxo8gL0km/yG/yh8j3z6h04/NXyd/Ppf/KM/Q/yrvSRcsj9SfLq9JEv/eP9fvMl8+iDO/
258130kI/zeP3085r2mT6N/irz2Paaf/Pt/mRQjfCe+lxEBfOi9Cf/fpz0cfgBQxj9RC35H/Sz/+
NUxfqpdN/xMs82/tP1I//2mrUF9U31Xv8x/0L1kf9k99XPcjX49gn2GMXOa3gXjscGx0gPlQaXhg
d/GOUAH5ESBwcm9tcHQ2c1swY9BVXKF0cGxltXgCOvbqO/4wkLBQDSAsSU8R0JoyRRHQJ1T0J2/4
wHlmVmjFjjdpdw94Amk0amNoxidZJ2X6c/jgcmgoaUprC2j9awfwJ0EnY2OgeIBoXW6vo2j/awUn
Uiee4GdcsC5v/uD4wmTQKJ7gc3e9eJAgbBBdAPlgnuJlnvF/dLOOMpVgjtBsj3hPadwn6kR0IHl0
+CN0dHqBi1DeZYsQnwB19YtAZ19wlWWjd69p61dFRRqwJxUw4ieQ8HVycnYwk+B9L5uBf2nqJxiA
f9BMYWwQn4BvhO95fBvQf9BQcmOw+XsQdG+Dn4ivjqQlYGeQ+kh/kU1/34h/jM9qbINQ/4qhh7+Q
H2pZgm4mkIcPj3+5kMpRVVpxDSB/kVGKv/+Uf5iveeUtwI7/m1+Y35Kjf5aBky+a/2pFO1NQA3+g
SP+Wn5s/o3+ZxqFRnp+mT6PP/4bBoVGeD2zJamNI0daRUCH/oOVr4KF/ph+uH5nVq+Gpb/+w365v
hsGr4ajfsF+1f3mp90ZQr7SsAGFlgAQAXQAM0P5luDGzwawfkJ5bAUjSoOX+Rqv/tL+9/5m3u9Gz
/8DfP75fhrK70bNvwF+Np0JF0EdJTk7GUEdn0P/QcbvgQmVn99B8snSBVus8oPiyYf4yNbivxKxq
Y703MiDIkFACWyCDUDW3Ze3IkHm4cXqQZmSBw8FoIfvDwGVwbM0UyV/Ka2rQy1a+MbdlatDMf82P
kYMy+zK7ZuBaUyD4c2Qy+MNSdDT3exB3NpGDM9PE5KHUf9WPxWrBNNPETlVNxiBQME10gUR6cmQy
dGjYMWXucPkgY6B8wVBsMGOwBBD3dIHbWNivNdPE3RXD0dcyd3szEJFbIGL3sPkgXLBUp9ID1cjh
jwp994AA40AeAEIQAQAAAEIAAAA8MzdBRDIwMUYxOTZDRDMxMUE2QkMwMDUwOEIwOTI3RTkwMzRF
MjAzNUByYmlvaGhleDAxLnFocy5yYmkuZ25pPgAAAAsAAYAIIAYAAAAAAMAAAAAAAABGAAAAAAOF
AAAAAAAAAwADgAggBgAAAAAAwAAAAAAAAEYAAAAAEIUAAAAAAAADAAeACCAGAAAAAADAAAAAAAAA
RgAAAABShQAAfW4BAB4ACYAIIAYAAAAAAMAAAAAAAABGAAAAAFSFAAABAAAABAAAADkuMAALAA2A
CCAGAAAAAADAAAAAAAAARgAAAACChQAAAQAAAB4ADoAIIAYAAAAAAMAAAAAAAABGAAAAAIOFAAAB
AAAAEwAAADQwMjU5MDgyMi0zMTEwMjAwMwAACwA6gAggBgAAAAAAwAAAAAAAAEYAAAAADoUAAAAA
AAADADyACCAGAAAAAADAAAAAAAAARgAAAAARhQAAAAAAAAMAPYAIIAYAAAAAAMAAAAAAAABGAAAA
ABiFAAAAAAAACwBSgAggBgAAAAAAwAAAAAAAAEYAAAAABoUAAAAAAAADAFOACCAGAAAAAADAAAAA
AAAARgAAAAABhQAAAAAAAAIB+A8BAAAAEAAAANcefAzgHMNDvUSTDBatQhYCAfoPAQAAABAAAADX
HnwM4BzDQ71EkwwWrUIWAgH7DwEAAACZAAAAAAAAADihuxAF5RAaobsIACsqVsIAAFBTVFBSWC5E
TEwAAAAAAAAAAE5JVEH5v7gBAKoAN9luAAAAQzpcRG9jdW1lbnRzIGFuZCBTZXR0aW5nc1xWOTMz
NTIyXExvY2FsIFNldHRpbmdzXEFwcGxpY2F0aW9uIERhdGFcTWljcm9zb2Z0XE91dGxvb2tcbWFp
bGJveC5wc3QAAAAAAwD+DwUAAAADAA00/TcAAAIBfwABAAAAPwAAADxNREVETE5FRUVFQkNHS0tC
S0NBS0NFQkRNRkFELmNhdGhlcmluZS5saXR0ZW5AdmFsbGV5cHJlcy5vcmc+AAADAAYQSDpQvgMA
BxCVIwAAAwAQEAAAAAADABEQAAAAAB4ACBABAAAAZQAAAElIQVZFTlRORUVERURUSElTQlVUWU9V
Q09VTERNT0RJRllUSElTVVNFSUFERFRPTVlQUk9HUkFNU0ZPUkNBTENVTEFUSU5HREFURVMtQURE
SU5HVEhFREVGSU5FUzpERUZJTkUAAAAAH8U=
------=_NextPart_000_0031_01C39FBC.A6135A20--