Hi Mitch
That's my second faux pas in as many posts. For everyone
picking up this macro, please remove the call to the debugger. I was
obviously testing and forgot to remove it. I would have found it after
my first run, but other might not have found it as easily.
Please remove the line
%Z.debug("TEST"),
Thanks
Ken
-----Original Message-----
From: Lawrence, Mitchell [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 19, 2007 5:58 PM
To: MacPherson, Ken R.; [email protected]
Subject: RE: [MEDITECH-L] GL Period Info
Nice. Thanks Ken.
FYI ya'll might wanna comment (;) or remove the call to the debugger. :)
Thank you,
Mitch Lawrence
Lead Applications Analyst - Advanced Report Writer General Financials
Support CHRISTUS Information Management
(tm): [EMAIL PROTECTED]
Send a "thank you" to someone!
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of MacPherson, Ken R.
Sent: Thursday, July 19, 2007 10:03 AM
To: [email protected]
Cc: MacPherson, Ken R.
Subject: [MEDITECH-L] GL Period Info
Hi Everyone
A couple of days ago, I saw a post inquiring how to determine
the GL Period to which a particular date belonged. After responding
with a quick answer, which I fund out subsequemtly had a logic error in
it, I thought about it and realized that this would be something for
which a generic macro could be very useful.
I have posted the code for just such a macro below. Storing
this macro in a report in either an MIS DPM or the Z DPM would allow you
to access the macro from any application for your reports and
dramatically simplify this process. The documentation for this macro
follows and then the code. Hope you find this useful.
Sincerely
Ken
Application ALL
Subject Report Writer
Title Get GL Period Info
Description DPM MIS.QUERY
Report zcus.npr.macro.library
Macro get.period
Purpose
This macro will take a GL period or a Date as input and return the
GL Period information for that GL Period or Date
A GL Period or Date
If a date is entered, the routine determines the GL Period in which
that date falls. If a GL Period is entered, the routine proceeds. This
routine will return period and fiscal information for the GL Period
entered or derived above.
The period information includes
GL Period
GL Period Start Date
GL Period End Date
The fiscal information includes
Fiscal Year
Fiscal Year Start Date
Fiscal Year End Date
The information is returned as a packed variable in the following format
{{GL.Period,GL.Period.Start.Date,GL.Period.End.Date},
{Fiscal.Year,Fiscal.Year.Start.Date,Fiscal.Year.End.Date}}^XX
XX|0 = Period.Info
XX|1 = Fiscal.Info
Period.Info|0 = GL.Period
Period.Info|1 = GL.Period.Start.Date
Period.Info|2 = GL.Period.End.Date
Fiscal.Info|0 = Fiscal.Year
Fiscal.Info|1 = Fiscal.Year.Start.Date
Fiscal.Info|2 = Fiscal.Year.End.Date
~~~~~~~~~~~~~~~~~ Macro Code Starts Here ~~~~~~~~~~~~~~~~~~~~~~~~~~
;Programmer : Ken MacPherson Created : July 17, 2007
;Purpose : Return Period dates for a period
; : Return Period for a date
@SETUP,
@PROCESS.PERIOD,
{PR.PERIOD,PR.START,PR.END}^PERIOD,
{FY.YEAR,FY.START,FY.END}^FISCAL,
%Z.debug("TEST"),
{PERIOD,FISCAL};
SETUP
A^MIS.GL.PERIOD.period,
IF{MIS.GL.PERIOD.main;
@PROCESS.DATE}
PROCESS.DATE
A^MIS.GL.PERIOD.ending.date,
IF{MIS.GL.PERIOD.date.x;
@Next(MIS.GL.PERIOD.ending.date,MIS.GL.PERIOD.date.x),
MIS.GL.PERIOD.date.x}^MIS.GL.PERIOD.period
PROCESS.PERIOD
@GET.FISCAL.YEAR.INFO,
@GET.PERIOD.INFO
GET.FISCAL.YEAR.INFO
@MIS.GL.PERIOD.fiscal.year^MIS.GL.PERIOD.fiscal.year^FY.YEAR,
""^MIS.GL.PERIOD.ending.date,
@Prev(MIS.GL.PERIOD.ending.date,MIS.GL.PERIOD.year.date.x)^FY.END,
@MIS.GL.PERIOD.fiscal.year-1^MIS.GL.PERIOD.fiscal.year,
""^MIS.GL.PERIOD.ending.date,
@Prev(MIS.GL.PERIOD.ending.date,MIS.GL.PERIOD.year.date.x),
%Z.date.add(MIS.GL.PERIOD.ending.date,1)^FY.START
GET.PERIOD.INFO
MIS.GL.PERIOD.period^PR.PERIOD,
@MIS.GL.PERIOD.ending.date^MIS.GL.PERIOD.ending.date^PR.END,
@Prev(MIS.GL.PERIOD.ending.date,MIS.GL.PERIOD.date.x),
%Z.date.add(MIS.GL.PERIOD.ending.date,1)^PR.START
~~~~~~~~~~~~~ Macro Code Ends Here ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
To check the status of the meditech-l, visit MTUsers.NET
For help, email [EMAIL PROTECTED]
Please visit and add information to the MTUsers WikiPedia at
MTUsers.NET/mwiki ______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
To check the status of the meditech-l, visit MTUsers.NET
For help, email [EMAIL PROTECTED]
Please visit and add information to the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
