| SORT FIELD DATA |
-
- CROSS REFERENCE DATA: ^PRCP(445,"B",^PRCP(445,^2
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCP(445,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^PRCP(445.6,+$P(Y(1),U,21),0)):"",1:$P(^(0),U,1)) I D1>0 S X(2)=X
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: z
-
- FROM VALUE INTERNAL: ?z
- FROM VALUE EXTERNAL: @
- TO VALUE INTERNAL: z
-
- COMPUTED FIELD CODE: X:$D(PRCPSORT) PRCPSORT I D1>0 S X(4)=X
|
