"Pop up" Messages via Attributes

When the need presents itself to be able to further instruct or alert the user to a potential problem caused by some input, we can "pop up" a window containing the desired message. Here’s how:

First for the attribute:

Again, we call a macro in our library:
;------------------------------------------------------------------------------------
;Macro checks to see if any messages need to be 'popped' up to the ordering user
;based on the patient's blood pressure
;------------------------------------------------------------------------------------
@INITIALIZE,
IF{SP<90 @SYSTOLIC.TOO.LOW},
IF{DP>90 @DIASTOLIC.TOO.HIGH},
END;
;-------------------------------------------------------------------------------------

INITIALIZE
A#"0/"^SP,
A#"1/"^DP

SYSTOLIC.TOO.LOW
@INITIALIZE.MSG,
"Systolic Pressure is Low"^/BP.MSG[1],
"Check With Patient for History"^/BP.MSG[2],
@DISPLAY.MSG

DIASTOLIC.TOO.HIGH
@INITIALIZE.MSG,
"Diastolic Pressure is Elevated"^/BP.MSG[1],
"Check With Patient for History"^/BP.MSG[2],
@DISPLAY.MSG

INITIALIZE.MSG
""^MSG,
DO{+/BP.MSG[MSG]^MSG ""^/BP.MSG[MSG]}

DISPLAY.MSG
@Bell("")^#,
@Window.centered(8,50,3)^#,
"!! WARNING !!":50C^#,
N(D(4,0))^#,
N("")^#,
DO{+/BP.MSG[MSG]^MSG N(/BP.MSG[MSG]:50C)^#},
NN(D(4,0))^#,
N("Press << ENTER >>":50C)^#,
#0,
@Window.close("")^#

Message #1:

Message #2: