Hi Jo,
Here is something that I think will work out for you:
1) Create an NPR report in ADM.PAT with a macro called get.data with the
following code:
A^{urn,LOC},
""^event.date^event.seq.no^DONE,
[EMAIL PROTECTED](event.seq.no)&@Not(DONE) [EMAIL PROTECTED]'="TFRADMIN";
@event.location=LOC [EMAIL PROTECTED],@event.eff.time}^DONE};
@Prev(event.date)&@Not(DONE)},
DONE;
This code is designed to loop through the events and return the effective date
and time for the transfer.
2) Create an xx field for the transfer date and another for the transfer
time:
xx.xfer.date
DAT=DATE10
LEN=10
VAL=%ADM.PAT.zcus.report.M.get.data({urn,"[EMAIL
PROTECTED](�4)���ᙕȹѥ��4)P�!!544)18��4)Y0��4�AP����̹ɕ���й4���й��ф���ɸ��1=
[EMAIL PROTECTED](�4)e�ԁݥ��������Ѽ�ɕ�������1=
Q%=8��ݥѠ�ѡ��������������ѡ������ѥ�����ԁ�ɔ���ѕɕ�ѕ�����4(�4)A���͔���Ё������܁�����ԁ��ٔ������Օ�ѥ��́�ȁ�ո���Ѽ������ɽ����̸4(�4) �����Ս��4(�4)
ɥ���M�����4)
[EMAIL PROTECTED](�����������������
����Ʌє�=�����4(��ܸ��̸���5�����4) ɥ������������ɜ4)
ɥ���M����������������4)����輽��ܹ���������ɜ�4(�4) ����5�ɹ����4)]���ɔ���
�L��Ը�MHȁͥє������$�ݽ���ɕ�������役����́�ɥ�ѕ�������Ѽ������ɔ�ѡ���Ʌ�͙�ȁ�����Ё��ѕ́��ȁݡ�������ѥ��Ё�́��ٕ��Ѽ����������������ѥ����$����܁ѡ�Ёѡ����х���͕����Ёݽձ�������䁉���ٕ��̰���Ё$�����Ё͕���Ѽ���Ёѡ�����ɕ�Ё�ٕ�Ё��є�ѥ��Rf�"F�R��6F������6�v�BF�6�7V�FRG�H���܈ ] �X�Y�X���][ۋ�B�B�[�H\��\�[��H ��[�HܙX] H\ �X�X]Y �B�B�[���B�B���B���[��HXZ�������YZ[�
RT�CB�T���ܙ[�]܈�܈YY]X�QK���[�T�H\ X�][ۜ�B� [�\��^H��][ �B��H
M�
KB� [�\��^H�Y�[ۘ[X[ ��Y[��\��[� �KB�N
�]�\���YB� [�\��^K\�[�
Ј PLCB�ٙ�X�N�
�M�
M���CB��^�
�M�
MNLL�B�XZ��ڐ � ��]B�B���KH�QQUP� S\� ��\�Y�H�\�[�\] K��H�\����\��[� [�H�[� \�H] �˂��X���] ����^K�ܙψ ��[��]��
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
All messages should be posted in plain text. HTML will be converted to an
attachment.
To subscribe or unsubscribe to the meditech-l, visit MTUsers.com
To check the status of the meditech-l, visit MTUsers.net.
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
