<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags" xmlns:ns0 =
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.3660" name=GENERATOR><!--[if !mso]>
<STYLE>v\:* {
BEHAVIOR: url(#default#VML)
}
o\:* {
BEHAVIOR: url(#default#VML)
}
w\:* {
BEHAVIOR: url(#default#VML)
}
.shape {
BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]--><o:SmartTagType name="country-region"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="PostalCode"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="State"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="City"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><o:SmartTagType
name="place"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><!--[if !mso]>
<STYLE>st1\:* {
BEHAVIOR: url(#default#ieooui)
}
</STYLE>
<![endif]-->
<STYLE>@font-face {
font-family: Tahoma;
}
@font-face {
font-family: Verdana;
}
@font-face {
font-family: Calibri;
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.0in 1.0in 1.0in; }
A:link {
mso-style-priority: 99
}
SPAN.MSOHYPERLINK {
mso-style-priority: 99
}
A:visited {
mso-style-priority: 99
}
SPAN.MSOHYPERLINKFOLLOWED {
mso-style-priority: 99
}
P {
mso-style-priority: 99
}
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
P {
FONT-SIZE: 12pt; MARGIN-LEFT: 0in; MARGIN-RIGHT: 0in; FONT-FAMILY: "Times New Roman"; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto
}
SPAN.EmailStyle18 {
COLOR: #1f497d; FONT-FAMILY: Calibri; mso-style-type: personal
}
SPAN.EmailStyle20 {
COLOR: navy; FONT-FAMILY: Arial; mso-style-type: personal-reply
}
DIV.Section1 {
page: Section1
}
</STYLE>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=EN-US vLink=purple link=blue>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>Thanks guys. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>John, I'm going with Ken's version. I need the actual
Julian day, 074 for today's date. His solution gives me that in
D-CurrentDay. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>The option you give is for reporting only. I need to
store it in a batch header record with QTP. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>Unless you can tell me how to do that in your version.
</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>Either way, I appreciate both answers. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>PS. Just found out there is a system variable
set HPDOY that will also give me it. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2>GLO TEMP JULIAN-DAY ZON*03 INIT
NCON(GETSYSTEMVAL("HPDOY")[1:3])</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=815272316-15032010><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> Pickering, John (NORBORD)
[mailto:John.Pickering@norbord.com] <BR><B>Sent:</B> Monday, March 15, 2010
11:18 AM<BR><B>To:</B> Ken@Langendock.com; Lowe, Chuck J;
powerh-l@lists.sowder.com<BR><B>Subject:</B> RE: [Bulk] Julian
date<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">There is likely no need
for Ken’s complicated conversion logic!<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Just define your date
item as type “jdate” and Powerhouse will convert to Julian format. If you are
converting from a century included date then you’ll need to use the
removecentury function. As in:<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">>define
d-julian-date jdate = removecentury(sysdate)<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">>report sysdate
d-julian-date format yyddd<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Note that any date may
be displayed in any format. Even a jdate will be displayed in the dictionary’s
default format so you’ll probably need to include the format
option.<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">JWP<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" size=3><SPAN style="FONT-SIZE: 12pt">
<HR tabIndex=-1 align=center width="100%" SIZE=2>
</SPAN></FONT></DIV>
<P class=MsoNormal><B><FONT face=Tahoma size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">
powerh-l-bounces+john.pickering=norbord.com@lists.sowder.com
[mailto:powerh-l-bounces+john.pickering=norbord.com@lists.sowder.com] <B><SPAN
style="FONT-WEIGHT: bold">On Behalf Of </SPAN></B>Ken Langendock<BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> Monday, March 15, 2010 11:12
AM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> 'Lowe, Chuck J';
powerh-l@lists.sowder.com<BR><B><SPAN
style="FONT-WEIGHT: bold">Subject:</SPAN></B> RE: [Bulk] Julian
date</SPAN></FONT><o:p></o:p></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Calibri color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: Calibri">Try
this<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Calibri color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: Calibri"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">; Julian
Date Calculations<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
DEFINE D-CurrentYY CHARACTER * 2 &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
= ASCII(SYSDATE,8)[3:2]<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
DEFINE D-JanuaryFirst DATE &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
= NCONVERT(ASCII(SYSDATE,8)[1:4] + "0101")<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
DEFINE D-CurrentDay CHARACTER * 3 &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
= ASCII(DAYS(SYSDATE) &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
- DAYS(D-JanuaryFirst) + 1,3)<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'"> DEFINE
D-JulianDate CHARACTER * 5 &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
= D-CurrentYY &<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: 'Courier New'">
+ D-CurrentDay<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><B><FONT face=Calibri color=#1f497d size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: Calibri"><o:p> </o:p></SPAN></FONT></B></P>
<P class=MsoNormal><FONT face=Calibri color=#1f497d size=2><SPAN
style="FONT-SIZE: 11pt; COLOR: #1f497d; FONT-FAMILY: Calibri"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<DIV
style="BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: #b5c4df 1pt solid; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; BORDER-LEFT: medium none; PADDING-TOP: 3pt; BORDER-BOTTOM: medium none">
<P class=MsoNormal><B><FONT face=Tahoma size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">
powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com] <B><SPAN
style="FONT-WEIGHT: bold">On Behalf Of </SPAN></B>Lowe, Chuck J<BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> March 15, 2010 10:59 AM<BR><B><SPAN
style="FONT-WEIGHT: bold">To:</SPAN></B> powerh-l@lists.sowder.com<BR><B><SPAN
style="FONT-WEIGHT: bold">Subject:</SPAN></B> [Bulk] Julian
date<o:p></o:p></SPAN></FONT></P></DIV></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I must be having a bad day.
Can anyone give me the code to find out the Julian date for a day . I.e.
February 2nd would be 33. In QTP would be preferable.
</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Thanks!</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<P><B><FONT face=Verdana color=#333333 size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #333333; FONT-FAMILY: Verdana">Chuck
Lowe </SPAN></FONT></B><B><FONT face=Verdana color=#006633 size=1><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 8.5pt; COLOR: #006633; FONT-FAMILY: Verdana">Quest
Diagnostics</SPAN></FONT></B><FONT face=Verdana><SPAN
style="FONT-FAMILY: Verdana"> </SPAN></FONT><FONT face=Verdana color=#666666
size=1><SPAN style="FONT-SIZE: 8.5pt; COLOR: #666666; FONT-FAMILY: Verdana">|
Sr. Programmer/Analyst,SYS Billing System/Denver| 400 Egypt Rd. | West
<st1:place w:st="on"><st1:City w:st="on">Norriton</st1:City>, <st1:State
w:st="on">PA</st1:State> <st1:PostalCode w:st="on">19403</st1:PostalCode>
<st1:country-region w:st="on">USA</st1:country-region></st1:place> |
<STRONG><B><FONT face=Verdana><SPAN
style="FONT-FAMILY: Verdana">phone</SPAN></FONT></B></STRONG> 610-650-6679|
<STRONG><B><FONT face=Verdana><SPAN
style="FONT-FAMILY: Verdana">fax</SPAN></FONT></B></STRONG> 610-650-2111
| <A href="mailto:Chuck.J.Lowe@questdiagnostics.com"><FONT
color=#666666><SPAN
style="COLOR: #666666">Chuck.J.Lowe@questdiagnostics.com</SPAN></FONT></A> | <A
href="http://www.questdiagnostics.com/"><FONT color=#666666><SPAN
style="COLOR: #666666">www.QuestDiagnostics.com</SPAN></FONT></A>
</SPAN></FONT><FONT face=Verdana><SPAN
style="FONT-FAMILY: Verdana"><o:p></o:p></SPAN></FONT></P>
<P style="MARGIN-BOTTOM: 48pt"><FONT face=Verdana color=#006633 size=1><SPAN
style="FONT-SIZE: 8.5pt; COLOR: #006633; FONT-FAMILY: Verdana">Please think
about resource conservation before you print this
message<o:p></o:p></SPAN></FONT></P>
<DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><BR>------------------------------------------ <BR>The
contents of this message, together with any attachments, are intended only for
the use of the person(s) to which they are addressed and may contain
confidential and/or privileged information. Further, any medical information
herein is confidential and protected by law. It is unlawful for unauthorized
persons to use, review, copy, disclose, or disseminate confidential medical
information. If you are not the intended recipient, immediately advise the
sender and delete this message and any attachments. Any distribution, or copying
of this message, or any attachment, is prohibited. <o:p></o:p></SPAN></FONT></P>
<P><FONT face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">No
virus found in this incoming message.<BR>Checked by AVG -
www.avg.com<BR>Version: 9.0.733 / Virus Database: 271.1.1/2748 - Release Date:
03/15/10 03:33:00</SPAN></FONT><o:p></o:p></P></DIV></BODY></HTML>
<br>
------------------------------------------
<br>
The contents of this message, together with any attachments, are intended only for the use of the person(s) to which they are addressed and may contain confidential and/or privileged information. Further, any medical information herein is confidential and protected by law. It is unlawful for unauthorized persons to use, review, copy, disclose, or disseminate confidential medical information. If you are not the intended recipient, immediately advise the sender and delete this message and any attachments. Any distribution, or copying of this message, or any attachment, is prohibited.