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=$S('$D(^PRCF(420.7,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
-
- CROSS REFERENCE DATA: ^PRCF(421,"B",^PRCF(421,^2
|