| SORT FIELD DATA |
-
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRCF(421,"AJ",^PRCF(421,^2
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCF(421,D0,0)):^(0),1:"") S X=$P(Y(1),U,13)'=0,Y(2)=X S X=$P(Y(1),U,14)'=0,Y=X,X=Y(2),X=X!Y,Y(3)=X S X=$P(Y(1),U,15)'=0,Y=X,X=Y(3),X=X!Y I D0>0 S X(2)=X
-
-
|
