LRDFN-TESTS (77) SORT TEMPLATE (.401)

Name	Value
NAME	LRDFN-TESTS
SORT FIELD DATA	COMPUTED FIELD CODE: S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:"") S X=$S('$D(^LR(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D2>0 S X(2)=X COMPUTED FIELD CODE: S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"") S X=$S('$D(^LAB(60,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D3>0 S X(3)=X
DATE CREATED	1988-05-10 00:00:00
FILE	ACCESSION