All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ======================================
|
Good afternoon, I am trying to develop a macro that will allow us to define
our own doctor look up (since the Meditech default one is limited) for CDS’s.
I have developed the following code which works fine if you use a
keyboard. But if you use a mouse to select an item from the lookup it
will intermittently crash and I can’t figure out why. Can anyone
see what I am doing wrong? Thanks, Patrick Whitmore Software Engineer Frederick Memorial HealthCare System 240-566-3648 B^ANS, C^QRY, D^QRY2, ""^I^DOC, ("Name":20TL)_("Code":6TL)_("Group":10TL)_("Specialty")^/HDR, DO{+/DOCS[DOC]^DOC ""^/DOCS[DOC]}, A^DOCN, DO{I+1^I,+\GGGN[DOCN]^DOCN,I<50 +\GGGN[DOCN,""]^DOC, \GGG[DOC]^DATA, IF{DATA|0="Y"
\GGL["PROVSPEC","E",\GGG[DOC,"CD","PROVSPEC"]|0]|0^SPEC, Q("Y",DOC,DATA|14,SPEC)^/DOCS[DATA|1]}}, "CD:19TL_([A,CD]|1:6TL)_D(32)_([A,CD]|2:9TL)_D(32)_([A,CD]|3:9TL)"^LINE, 144^/Z, %Z.id.dict.color(^/DOCS,A,/HDR,LINE,"AR","Doctors")^A, A^NM, /DOCS[A]|1^A^/[ANS%0,QRY]|0, IF{QRY2 1, DO{+/G.MSE.CDS[ROW]^ROW 1, DO{+/G.MSE.CDS[ROW,COL]^COL IF{/G.MSE.CDS[ROW,COL]|1=QRY2 ROW^R, NM^/[ANS%0,QRY2]|0, P(R,C,NM_(" ":20)$20)^#}, A_";"_NM; |
_______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
