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

Sorry for forgetting the attachment...  I resent with attachment
yesterday, but it never maid the postings...

Thanks,
Brian
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Allen, Brian
Sent: Monday, March 27, 2006 10:08 AM
To: Shirley Hammack; Meditech-L (E-mail)
Subject: RE: [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
======================================

Shirley,
We had a similar request..  Attached is a MAGIC SR5.4.2 report whose
macro can be called from any PP application.  (No need to fragment if
you're already in the application)

To call the fragment you only need to 

VAL=%PP.PAY.SCH.zcus.pay.date.M.from(@payroll,@cd.response["PP.EVAL6"])

The documentation on this routine is as follows:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++
This fragment will return the pay date reflecting a pay increase.
     arguments
          A = Payroll
          B = Anniversary/Effective Date

If the anniversary/effective date falls in the first week of a pay
period, it is effective on the first day of that pay period.

If it falls in the second week of the pay period, it is effective the
next pay period.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++

You may need to edit dates if you're pay date does not follow the same
logic.

Thanks,
Brian

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Shirley Hammack
Sent: Friday, March 24, 2006 5: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

Attachment: paydate
Description: paydate

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

Reply via email to