All messages should be posted in plain text. HTML will be converted to
attachments. The meditech-l web site is MTUsers.com
======================================
I am trying to launch the text editor from a type-E query using the
Macro below which I found on the Double T website (minor edits made).
It is working to a degree in Magic 5.5 sr2. However, certain quirks have
appeared in the functionality that I am unable to pin down to a
particular line of code.
Here is how it is currently functioning...
When the cursor is in Query NURDCCLPI, <F4> changes the cursor to a
flashing underscore and <F9> displays the NUR Canned text dictionary.
However, when a selection is made from the list, the text does not
appear in the query. Also, I am unable to type in the Canned Text
mnemonic at this point even though I am able to access the dictionary.
I then select <F11> to exit (I have to press <F11> twice to receive the
Exit Confirmation screen). I answer No to "Exit. Intervention not done.
OK?". The cursor returns to NURDCCLPI. At this point, it will function
as intended. <F4> changes the cursor and the Canned Text mnemonic can
be typed to pull in the text. <F9> works at this point as well. When
the text is selected from the list, NURDCCLPI is populated. After
filing the Assessment, the text appears in the NUR View Form routine.
A%0^ANS,
B^ROW,
C^COL,
D^MAX,
IF{ANS 1,
/S.LAST.QUERY^MIS.QUERY.mnemonic,
/patient^patient,@NUR.PAT.sex^/NUR.PAT.sex,
;[EMAIL PROTECTED]'="N" @W.err("Query "_MIS.QUERY.mnemonic_" is
not
a multiple");
@CLEANUP,
@LOAD.TEXT,
@SETUP.FOR.EDITOR,
@CALL.MIS.TEXT.EDITOR,
@SAVE.TEXT},
END;
SETUP.FOR.EDITOR
; Canned text will be put in [ ] format
;
"Y"^/MIS.GET.EVAL,
[EMAIL PROTECTED]"NUR"]^/MIS.GET.FLD,
[EMAIL PROTECTED](@NUR.TEXT.main)^/MIS.GET.TXT
CALL.MIS.TEXT.EDITOR
; A - file structure
; B - top row offset
; C - bottom row
; D - width
; E - left margin
[EMAIL PROTECTED] 2;0}^OFF,
[EMAIL PROTECTED],
@MIS.QUERY.length^LEN,
; the next 2 lines of code need to be combined into 1 line
; but were split here to fit in the browser window
%MIS.EDIT.sh(^/CANT,ROW+OFF,ROWS,LEN-2,COL,"Q","NUR.DOC","note.edit",{"MIS.EDIT.
text.ed.get",@KEY.OVERRIDES},J,K,"")X^END
; combine previous 2 lines into one line using the F6 key
KEY.OVERRIDES
; 132 = Get Key (F4)
; 164 = Help Key (Shift F8)
D(132,164)
CLEANUP
""^XX,
DO{+/CANT[XX]^XX ""^/CANT[XX]}
LOAD.TEXT
""^XX,
DO{+/[ANS,MIS.QUERY.mnemonic,"M",XX]^XX
/[ANS,MIS.QUERY.mnemonic,"M",XX]|0^/CANT[XX]}
SAVE.TEXT
""^XX,
DO{+/[ANS,MIS.QUERY.mnemonic,"M",XX]^XX
""^/[ANS,MIS.QUERY.mnemonic,"M",XX]},
""^XX,
DO{+/CANT[XX]^XX /CANT[XX]^/[ANS,MIS.QUERY.mnemonic,"M",XX]|0,
IF{XX'>@MIS.QUERY.multiple.line P(ROW+XX-1,COL,/CANT[XX])^#},
IF{XX'>@MIS.QUERY.multiple.line
P(ROW+XX-1,COL,/CANT[XX]:(LEN_"C"))^#},
""^/CANT[XX]}
Jeff Gwin
Applications Consultant
Children's Hospital Central California
Information Technology Services
Phone: 559.353.7328
Pager: 559.446.4045
--------------------------------------------------------------------------------
Children's Hospital Central California
A Great Place to Get Better
------------------------------------------------------------
NOTE: This email and any files transmitted with it are
intended solely for the use of the individual or entity to
whom they are addressed and may contain confidential,
patient health or other legally privileged information.
If you have received this email in error please notify the
sender by email,delete and destroy this message and its
attachments. Any unauthorized review, use, disclosure, or
distribution is prohibited.
------------------------------------------------------------
_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
