Condition for execution: $S(UD'?4N:1,1:$E(UD,1,2)'=10)
Line Location: AL1+1
Function Call: WRITE
Prompt: !?3,"Field: ",$P(AND,"^",4)
Line Location: AL2+0
Function Call: WRITE
Prompt: !,"Old Data: ",OD
Line Location: AL2+1
Function Call: WRITE
Prompt: !?3,"Field: ",$P(AND,"^",4)
Line Location: AL2+2
Function Call: WRITE
Prompt: " (NO)"
Line Location: ALC+2
Function Call: WRITE
Prompt: $P(PX,AT,2)
Line Location: ALC+3
Function Call: WRITE
Prompt: $C(7)," ??"
Line Location: ALC+4
Function Call: WRITE
Prompt: !!,"Enter 'LONG' (or 'L') to see ALL of the entries of this activity log. Enter 'SHORT' (or 'S') to NOT see the fields edited because of the order being",!,"renewed, discontinued, etc. Simply press the RETURN key "
Line Location: ALC+5
Function Call: WRITE
Prompt: "(or enter 'NO', 'N',",!,"or '^') to NOT see the activity log."