| SORT FIELD DATA |
-
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S X(2)=X
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$S('$D(^PSI(58.19,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)),X=$P(X,".",1) I D2>0 S X(3)=X
- TO VALUE INTERNAL: z
|
