Select the objects that you wish to see in the downloaded PDF
S %DT="EPSTX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
JUN 29, 1992
This is the date/time the comment was entered.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1)= S ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)=""
2)= K ^GMR(120.85,DA(1),"PTC2","B",$E(X,1,30),DA)
AHDR (#496) MUMPS R ACTION
Short Descr: Send data to HDR on entry/edit
Description: Send data to HDR when the P&T addendum is added.
Set Logic: Q:$D(DIU(0)) D SETOB^GMRAHDR
Kill Logic: Q:$D(DIU(0)) D KILLOB^GMRAHDR
Whole Kill: Q
X(1): DATE/TIME ENTERED (120.85315,.01) (forwards)
This is the actual comment that is being added.
This field contains the comments that the P&T committee add to this reaction.