RMPR LIST (665)    SORT TEMPLATE (.401)

Print Prosthetic HPCPS List.

• FILE OR SUBFILE NO.:   661.1
  GET CODE:   S DISX(1)=$P($G(^RMPR(661.1,D0,0)),U)
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   HCPCS not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   HCPCS
• FILE OR SUBFILE NO.:   661.1
  GET CODE:   S Y(2)=$C(59)_$P($G(^DD(661.1,3,0)),U,3),Y(1)=$S($D(^RMPR(661.1,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)="ACTIVE" I D0>0 S DISX(2)=X
  QUERY CONDITION:   I DISX(2)
  DESCRIPTION OF SORT:   STATUS=""ACTIVE""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(2)=$C(59)_$P($G(^DD(661.1,3,0)),U,3),Y(1)=$S($D(^RMPR(661.1,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59),1)="ACTIVE" I D0>0 S DISX(2)=X
  FIELD NAME:   STATUS="ACTIVE"
  SORT QUALIFIERS BEFORE FIELD:   "@B
  SORT QUALIFIERS AFTER FIELD:   ;L1