All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

Hello Shirley,
That seems a bit of an overdone method of obtaining the "current
payperiod starting date". Here is what I would do.

Given that you know the review date, we can use this as a "seed" to find
what pay period it falls in. You can do this wholly within a macro, as
the data resides within PP. In your detail macro, do this little
subroutine:

@GET.PP.STARTDATE

GET.PP.STARTDATE
;First SEED PP.PAY.SCH.ending.date with your current reporting
;date. Just make sure @cd.response["PP.EVAL6"] is in external
;date format (YYYYMMDD).
@cd.response["PP.EVAL6"]^PP.PAY.SCH.ending.date,
;Populate the PP.PAY.SCH.payroll field with whatever payroll
;you are searching in
PAYROLL^PP.PAY.SCH.payroll
; Using the SEED above, find last period's ending date
@Prev(PP.PAY.SCH.ending.date)^PRIOREND,
;Calculate this periods starting date
%Z.date.add(PRIOREND,1)^CURRENTSTART

Viola!

 
Thank you,
Mitch Lawrence
Senior Applications Analyst - Advanced Report Writer
General Financials Support
CHRISTUS Information Management
Tel 361.881.3408  Fax 361.888.6117
Mob 361.549.8456
[EMAIL PROTECTED]
 

If someone has "Made your day", send them a Spirit Buck! 

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Shirley Hammack
Sent: Friday, March 24, 2006 4:46 PM
To: Meditech-L (E-mail)
Subject: [MEDITECH-L] Fragment problem

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

Our HR director would like to have a valid effective date for salary
increases automatically calculate from the employee's review date.  A
valid effective date would be the first day of the payperiod which
includes the review date.

Main report is in PP.PER.   Our review dates are in a CDS because there
are potentially about 16 possible occasions for evals to be done.
I am wanting to send the review date over to a fragment in PP.PAY.SCH
and have it lookup the proper pay period.


I am calling the fragment from a macro which is called from a footnote.
        
        AL D overlay    (I added the code into an already existing
macro.  The actual overlay was not disturbed.)

        @cd.response["PP.EVAL6"]^/R.FRAG.ARG,
        %Z.rw.fragment("PP.PAY.SCH.zcus.hr.par.frag.R","PP.JCH")

The fragment is set to receive

        xx.review.date                             IG
             /R.FRAG.ARG

And then sends out the calculated date

        LC=IF{(%Z.date.sub(@ending.date,/R.FRAG.ARG)+14)'<0'>13 %Z.da
        LC=te.add(@ending.date,1)^/R.FRAG.VAL["START"]}

Then the computed field is trying to pick up the value

        DAT=DATE
        JFY=L
        LEN=8
        VAL=/R.FRAG.VAL["START"]

Almost all the fields in the fragment are calculated fields and
therefore can't be assigned to a slash variable. I can't tell if the
review date isn't being sent properly or if the effective date isn't
making it out of the fragment.

Shirley Hammack
I.T. Financial Analyst
Jackson County Memorial Hospital
580-477-7484


The documents accompanying this transmission contain confidential
information, belonging to the sender, that is legally privileged.  This
information is intended only for the use of the individual or entity
named above.  The authorized recipient of this information is prohibited
from disclosing this information after its stated need has been
fulfilled.

If you are not the intended recipient, you are hereby notified that any
reading, disclosure, copying, distribution, or action taken in reliance
on the contents of these documents is strictly prohibited.  Violators
may be prosecuted.  If you have received this email in error, please
notify the sender immediately and destroy the transmitted information.

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l


_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

Reply via email to