Jeff,
This looks like it should work except for the fact that you are not
passing the patient's URN as argument A. Your call to the macro has nil
as the value of argument A! You could simply pass the value of ANS
instead.
Macro call:
IFE=%MIS.zcus.library.M.tb("ANS")
You could also write this code a little more cleanly this way although
it looked like what you had would have worked.
Macro:
A^ANS,
IF{/[ANS%0, "EDMTRTB1"] |0="Y";
/[ANS%0, "EDMTRTB2"] |0="Y";
/[ANS%0, "EDMMD2154"] |0="Y";
/[ANS%0, "EDMTRTB4"] |0="Y";
/[ANS%0, "EDMTRTB5"] |0="Y";
/[ANS%0, "EDMTRTB6"] |0="Y"};
If any of the above conditions is true, that value is passed back as
the value of the macro program, will be non-nil and will therefore cause
the cursor to stop in the query. Otherwise, a value of nil is passed
back causing the cursor to skip the query!
Hope this helps,
Kenny Whiteside
"Brogneaux, Jeffrey" <[EMAIL PROTECTED]> 03/23/2007
12:31:53 PM >>>
I am attempting to design a macro that will allow me to skip a query
based on answers to several queries above it. I have an attribute that
works but it is to long so I have to take out 2 queries in top half.
IFE=IF{([ANS,"EDMTRTB1"]|0="Y")!
IFE=([ANS,"EDMTRTB2"]|0="Y")!
IFE=([ANS,"EDMMD2154"]|0="Y")!
IFE=([ANS,"EDMTRTB4"]|0="Y")!
IFE=([ANS,"EDMTRTB5"]|0="Y")!
IFE=([ANS,"EDMTRTB6"]|0="Y") 1,
[EMAIL PROTECTED]@Z.mouse.click IF{E(/["buL"]#0)=64 "Y";
IFE="N"}^/[ANS%0,"EDMTRTB8"]|0,
IFE=P(R,S,[ANS,"EDMTRTB8"]|0)^#},1;""}
This is what I have attempted so far as a macro
attribute IFE=%MIS.zcus.library.M.tb("")
Macro
A^urn,
""^TB1^TB2^MD^TB4^TB5^TB6,
IF{/[ANS%0, "EDMTRTB1"] |0="Y"}^TB1,
IF{/[ANS%0, "EDMTRTB2"] |0="Y"}^TB2,
IF{/[ANS%0, "EDMMD2154"] |0="Y"}^MD,
IF{/[ANS%0, "EDMTRTB4"] |0="Y"}^TB4,
IF{/[ANS%0, "EDMTRTB5"] |0="Y"}^TB5,
IF{/[ANS%0, "EDMTRTB6"] |0="Y"}^TB6,
IF{TB1;TB2;MD;TB4;TB5;TB6};
Jeff Brogneaux RN
Clinical Administrator
Wayne Memorial Hospital
Goldsboro, NC 27533
919-731-6954 office
Kenny Whiteside BSN, RN
Patient Care Information Systems
Catawba Valley Medical Center
810 Fairgrove Church Road
Hickory, NC 28602
[EMAIL PROTECTED]
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
