| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 200
- GET CODE: S Y(1)=$S($D(^VA(200,D0,1)):^(1),1:"") S X=$P(Y(1),U,9)="" I D0>0 S DISX(1)=X
- QUERY CONDITION: I DISX(1)
- DESCRIPTION OF SORT: SSN=""""
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VA(200,D0,1)):^(1),1:"") S X=$P(Y(1),U,9)="" I D0>0 S DISX(1)=X
- FIELD NAME: SSN=""
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 200
- GET CODE: S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))'="" I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)
- DESCRIPTION OF SORT: PRIMARY MENU OPTION'=""""
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VA(200,D0,201)):^(201),1:"") S X=$S('$D(^DIC(19,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))'="" I D0>0 S DISX(2)=X
- FIELD NAME: PRIMARY MENU OPTION'=""
- SORT QUALIFIERS BEFORE FIELD: @"@B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 200
- GET CODE: S Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(1),U,11)="",Y(2)=X S X=$P(Y(1),U,11),Y(3)=X,X=DT S Y=X,X=Y(3),X=X S X=X>Y,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)
- DESCRIPTION OF SORT: TERMINATION DATE=""""!(TERMINATION DATE>TODAY)
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(1),U,11)="",Y(2)=X S X=$P(Y(1),U,11),Y(3)=X,X=DT S Y=X,X=Y(3),X=X S X=X>Y,Y=X,X=Y(2),X=X!Y I D0>0 S DISX(3)=X
- FIELD NAME: TERMINATION DATE=""!(TERMINATION DATE>TODAY)
- SORT QUALIFIERS BEFORE FIELD: "@B
- SORT QUALIFIERS AFTER FIELD: ;L1
|
