| SORT FIELD DATA |
-
- TO VALUE INTERNAL: z
- CROSS REFERENCE DATA: ^PRCF(423,"AM",^PRCF(423,^2
-
- CROSS REFERENCE DATA: ^PRCF(423,"AD",^PRCF(423,^2
-
- CROSS REFERENCE DATA: ^PRCF(423,"AE",^PRCF(423,^2
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCF(423,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=+X,Y(2)=X S X=1,Y(3)=X S X=6,X=$E(Y(2),Y(3),X) I D0>0 S X(4)=X
|
