PRCS1358 OPEN DAILY RECORDS (190)    SORT TEMPLATE (.401)

This sort template is for those records that have not been marked
(stamped) closed by the Control Point.

• FROM VALUE INTERNAL:   @z
  TO VALUE INTERNAL:   B
• COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRC(424,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),Y(2)=X S X="-",Y(3)=X S X=3,X=$P(Y(2),Y(3),X) I D0>0 S X(2)=X
  FROM VALUE INTERNAL:   0000z
  TO VALUE INTERNAL:   0001
• FROM VALUE INTERNAL:   ?z
  TO VALUE INTERNAL:   @