SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 3.51
- GET CODE: S Y(1)=$S($D(^XMB(3.51,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)'=""
- DESCRIPTION OF SORT: USER not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^XMB(3.51,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
- FIELD NAME: USER
- SORT QUALIFIERS BEFORE FIELD: +"4
- CROSS REFERENCE DATA: ^XMB(3.51,"ADUZ",^XMB(3.51,^2
- POINT TO CROSS REFERENCE: ^VA(200,"B",
|