Hello,
Our MAR continuously prints whenever there are more than 4 lines of
allergies. Is it possible to modify the macro below so only 4 lines
print? Please see Knowledge Base Article 20547.
;
; A or /patient - patient
; B - max line length (defaults to 92)
; C - ^[structure to write to] for allergies (defaults to ^/MV["AL"])
; D - field number, if MV region for allergies
; E - ^[structure to write to] for adrs (defaults to ^/MV["AD"])
; F - field number, if MV region for adrs
;
IF{A;/patient}^patient,
IF{B;92}-1^LEN,
@ALLERGIES,
"";
ALLERGIES
D^LN,""^Q^XX^C^D^S,
[EMAIL PROTECTED](PHA.PAT.generic.allergy,PHA.PAT.generic.allergies)
@PHA.GENERIC.name^N,@ADD.IT},
[EMAIL PROTECTED](PHA.PAT.class.allergy,PHA.PAT.class.allergies)
@PHA.CLASS.name^N,@ADD.IT},
[EMAIL PROTECTED](PHA.PAT.allergy.code,PHA.PAT.allergy.codes)
@PHA.ALLERGY.desc^N,@ADD.IT},
@LAST.LINE
ADD.IT
IF{L(S_N)>LEN @NEW.LINE},
S_", "_N^S
NEW.LINE
IF{LN S%1_","^/MV["AL",Q+1^Q,LN];
S%1_","^/MV["AL",Q+1^Q]},
""^S
LAST.LINE
IF{LN IF{S S%1;'Q "None on File"}^/MV["AL",Q+1^Q,LN];
IF{S S%1;'Q "None on File"}^/MV["AL",Q+1^Q]}
Thank you in advance,
Al Cardenas
IT Business Systems Analyst
Central Valley Service Area Information Technology
Memorial Medical Center
Modesto, CA
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
To check the status of the meditech-l, visit MTUsers.NET
For help, email [EMAIL PROTECTED]
Please visit and add information to the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
