| SORT FIELD DATA |
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"") S X=$S('$D(^PRCA(430.2,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
- FROM VALUE INTERNAL: @z
- FROM VALUE EXTERNAL: A
- TO VALUE INTERNAL: B
- TO VALUE EXTERNAL: B
-
- COMPUTED FIELD CODE: S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"") S:X X=$$ACT^PRCADEL(X) S:X<0 X="" I D0>0 S X(2)=X
- FROM VALUE INTERNAL: 2660120.99999
- FROM VALUE EXTERNAL: T-10000
- TO VALUE INTERNAL: 2930608.1139
- TO VALUE EXTERNAL: N
|
