| SORT FIELD DATA |
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))="VAQ-PROC" I D0>0 S X(1)=X
-
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VAT(394.61,D0,0)):^(0),1:"") S X=$S('$D(^VAT(394.85,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1))="VAQ-RQACK" I D0>0 S X(2)=X
-
-
- CROSS REFERENCE DATA: ^VAT(394.61,"B",^VAT(394.61,^2
-
- COMPUTED FIELD CODE: X DPP(5,"OVF0",9.4) S Y(7)=X,X=+$O(^VAT(394.81,0)) S X=+$G(^VAT(394.81,X,"LIFE")) S:(X=0) X=30 I 1 S Y=X,X=Y(7),X=X S X=X0 S X(5)=X
-
- COMPUTED FIELD CODE: S Y(2)=$C(59)_$S($D(^DD(394.61,90,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^VAT(394.61,D0,"PRG")):^("PRG"),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59),1)'="YES" I D0>0 S X(6)=X
|
