DG BAI (839)    SORT TEMPLATE (.401)

This template used to list patients with a Bad Address Indicator.

• FILE OR SUBFILE NO.:   2
  GET CODE:   S DISX(1)=$P($G(^DPT(D0,0)),U)
  QUERY CONDITION:   I DISX(1)'=""
  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:   ^DPT("B",^DPT(^2
• FILE OR SUBFILE NO.:   2
  GET CODE:   S Y(2)=$C(59)_$P($G(^DD(2,.121,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59))'="" I D0>0 S DISX(2)=X
  QUERY CONDITION:   I (DISX(2)]]0)&(DISX(2)']]1)
  DESCRIPTION OF SORT:   (#.121)'=""""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(2)=$C(59)_$P($G(^DD(2,.121,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59))'="" I D0>0 S DISX(2)=X
  FIELD NAME:   (#.121)'=""
  SORT QUALIFIERS BEFORE FIELD:   @"B
  SORT QUALIFIERS AFTER FIELD:   ;L1
• FILE OR SUBFILE NO.:   2
  GET CODE:   S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(3)=X
  QUERY CONDITION:   I (DISX(3)]]0)&(DISX(3)']]1)
  DESCRIPTION OF SORT:   (#.351)=""""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(3)=X
  FIELD NAME:   (#.351)=""
  SORT QUALIFIERS BEFORE FIELD:   @"B
  SORT QUALIFIERS AFTER FIELD:   ;L1