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
