RA ALPHA LIST OF ACTIVES (307)    SORT TEMPLATE (.401)

This template sorts the procedure file to determine the active procedures
and puts them in alphabetical order.

• FILE OR SUBFILE NO.:   71
  GET CODE:   S Y(1)=$S($D(^RAMIS(71,D0,"I")):^("I"),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)
  DESCRIPTION OF SORT:   INACTIVATION DATE=""""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^RAMIS(71,D0,"I")):^("I"),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(1)=X
  FIELD NAME:   INACTIVATION DATE=""
  SORT QUALIFIERS BEFORE FIELD:   ]"@B
  SORT QUALIFIERS AFTER FIELD:   ;L1
• FILE OR SUBFILE NO.:   71
  GET CODE:   S DISX(2)=$P($G(^RAMIS(71,D0,0)),U,1)
  QUERY CONDITION:   I DISX(2)'=""
  DESCRIPTION OF SORT:   NAME not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   NAME
  CROSS REFERENCE DATA:   ^RAMIS(71,"B",^RAMIS(71,^2