SORT FIELD DATA |
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"") S X=$S('$D(^ESP(910.7,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
- FROM VALUE INTERNAL: WHITDz
- FROM VALUE EXTERNAL: WHITE
- TO VALUE INTERNAL: WHITEZ
- TO VALUE EXTERNAL: WHITEZ
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"") S X=$S('$D(^ESP(910.7,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1)) I D0>0 S X(2)=X
- FROM VALUE INTERNAL: FORCz
- FROM VALUE EXTERNAL: FORD
- TO VALUE INTERNAL: FORDZ
- TO VALUE EXTERNAL: FORDZ
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^ESP(910.2,D0,1)):^(1),1:"") S X=$S('$D(^DIC(5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
- FROM VALUE INTERNAL: MARYLANCz
- FROM VALUE EXTERNAL: MARYLAND
- TO VALUE INTERNAL: OKLAHOMA
- TO VALUE EXTERNAL: OKLAHOMA
|