RT PURGE PROFILE (242) SORT TEMPLATE (.401)
Name
Value
NAME
RT PURGE PROFILE
SORT FIELD DATA
COMPUTED FIELD CODE: S Y(1)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$S('$D(^DIC(195.1,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
CROSS REFERENCE DATA: ^DIC(195.2,"B",^DIC(195.2,^2
DATE CREATED
1987-04-28 00:00:00
FILE
File: 1, IEN: 195.2