RMPR FL 10-90 ADP (541)    SORT TEMPLATE (.401)

Sorts file 665.4 by letter type.

• COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(665.4,D0,0)):^(0),1:"") S X=$S('$D(^RMPR(665.2,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
  FROM VALUE INTERNAL:   FL 10-90 ADOz
  FROM VALUE EXTERNAL:   FL 10-90 ADP
  TO VALUE INTERNAL:   FL 10-90 ADP
  TO VALUE EXTERNAL:   FL 10-90 ADP
• FROM VALUE INTERNAL:   2.99999
  FROM VALUE EXTERNAL:   3
  TO VALUE INTERNAL:   4
  TO VALUE EXTERNAL:   4