| SORT FIELD DATA |
-
- FILE OR SUBFILE NO.: 200
- GET CODE: S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="" I D0>0 S DISX(1)=X
- QUERY CONDITION: I (DISX(1)]]0)&(DISX(1)']]1)
- DESCRIPTION OF SORT: (#12.2)'=""""
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"") S X=$P($G(^USC(8932.2,+$P(Y(1),U,2),0)),U)'="" I D0>0 S DISX(1)=X
- FIELD NAME: (#12.2)'=""
- SORT QUALIFIERS BEFORE FIELD: @"B
- SORT QUALIFIERS AFTER FIELD: ;L1
-
- FILE OR SUBFILE NO.: 200
- GET CODE: X DPP(2,"OVF0",9.3) S X=X="NO",Y(7)=$G(X) S X="NO",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X="YES",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X
- QUERY CONDITION: I DISX(2)'=""
- DESCRIPTION OF SORT: $S((#12.6)=""YES"":""YES"",(#12.6)=""NO"":""NO"",1:""YES"") not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: X DPP(2,"OVF0",9.3) S X=X="NO",Y(7)=$G(X) S X="NO",Y(8)=$G(X) S X=1,Y(9)=$G(X) S X="YES",X=$S(Y(3):Y(4),Y(7):Y(8),Y(9):X) I D0>0 S DISX(2)=X
- OVERFLOW DATA:
-
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.2
- OVERFLOW CODE: S Y(2)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(6)=$C(59)_$P($G(^DD(200,12.6,0)),U,3),Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"")
-
- FIRST SUBSCRIPT FOR OVERFLOW: OVF0
- SECOND SUBSCRIPT FOR OVERFLOW: 9.3
- OVERFLOW CODE: X DPP(2,"OVF0",9.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59))="YES",Y(3)=$G(X) S X="YES",Y(4)=$G(X),Y(5)=$G(X) S X=$P($P(Y(6),$C(59)_$P(Y(1),U,6)_":",2),$C(59))
- FIELD NAME: $S((#12.6)="YES":"YES",(#12.6)="NO":"NO",1:"YES")
- SORT QUALIFIERS BEFORE FIELD: "
- SORT QUALIFIERS AFTER FIELD: ;"TRAINEE?: ";S1
-
- FILE OR SUBFILE NO.: 200
- GET CODE: S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X
- QUERY CONDITION: I DISX(3)'=""
- DESCRIPTION OF SORT: VHA TRAINING FACILITY not null
- DATA TYPE FOR SORTING: FREE TEXT
- COMPUTED FIELD CODE: S Y(1)=$S($D(^VA(200,D0,12)):^(12),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U) I D0>0 S DISX(3)=X
- FIELD NAME: VHA TRAINING FACILITY
- SORT QUALIFIERS BEFORE FIELD: "12.4
- SORT QUALIFIERS AFTER FIELD: ;"TRAINING FACILITY: "
|
