Select the objects that you wish to see in the downloaded PDF
JUN 03, 1993
This is the problem for which a change is being recorded.
125.8^B
1)= S ^GMPL(125.8,"B",$E(X,1,30),DA)=""
2)= K ^GMPL(125.8,"B",$E(X,1,30),DA)
125.8^AD^MUMPS
1)= S:+$P(^GMPL(125.8,DA,0),U,3) ^GMPL(125.8,"AD",X,(9999999-$P(^(0),U,3)),DA)=""
2)= K ^GMPL(125.8,"AD",X,+(9999999-$P(^GMPL(125.8,DA,0),U,3)),DA)
Used to retrieve a problem's audit trail in reverse-chronological order.
K:+X'=X!(X>9999.9999)!(X<.01)!(X?.E1"."5N.N) X
OCT 28, 1992
Type a Number between .01 and 9999.9999, 4 Decimal Digits
This is the number of the field for which a change is being recorded.
S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
This is the date and time that this data was changed.
125.8^AD1^MUMPS
1)= S ^GMPL(125.8,"AD",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)=""
2)= K ^GMPL(125.8,"AD",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)
This is the user who actually made the change to this data; the current user's DUZ is stuffed in here.
K:$L(X)>15!($L(X)<1) X
Answer must be 1-15 characters in length.
This is the original value as stored in the Problem file global (internal format).
This is the new value now stored in the Problem file global (internal format).
K:$L(X)>25!($L(X)<3) X
Answer must be 3-25 characters in length.
This is the description of why the change was made, if known.
MAR 05, 1993
This is the provider who either changed this data, or directed it to be changed.
K:$L(X)>150!($L(X)<1) X
Answer must be 1-150 characters in length.
This is the entire problem entry (internal format) as it existed prior to changing this data.
This field consists of the original 0-node concatenated with an "^" and the original 1-node, prior to modifying this data.