PRPF UNASSIGNED STATION LIST (737)    SORT TEMPLATE (.401)

THIS TEMPLATE WILL SEARCH FOR PATIENTS WITH OUT A STATION ASSIGNED TO THEM

• FILE OR SUBFILE NO.:   470
  GET CODE:   S Y(1)=$S($D(^PRPF(470,D0,12)):^(12),1:"") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)=""
  DESCRIPTION OF SORT:   STATION NAME is null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRPF(470,D0,12)):^(12),1:"") S X=$S('$D(^DIC(4,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  FIELD NAME:   STATION NAME
  SORT QUALIFIERS BEFORE FIELD:   @"73
  FROM VALUE INTERNAL:   ?z
  FROM VALUE EXTERNAL:   @
  TO VALUE INTERNAL:   @
  TO VALUE EXTERNAL:   @
• FILE OR SUBFILE NO.:   470
  GET CODE:   S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$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:   NAME not null
  SEARCH EFFICIENCY RATING:   0.0000
  PROBABILITY RATING:   0.0000
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
  FIELD NAME:   NAME
  SORT QUALIFIERS BEFORE FIELD:   ".01
  CROSS REFERENCE DATA:   ^PRPF(470,"B",^PRPF(470,^2
  POINT TO CROSS REFERENCE:   ^DPT("B",