XU-CLINICAL TRAINEE DB COUNT (780)    SORT TEMPLATE (.401)

This is the sort that counts the number of entries where field PROGRAM OF 
STUDY(12.2) is not null.

• 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