RMPR LIST (665)    SORT TEMPLATE (.401)

Name Value
NAME RMPR LIST
DESCRIPTION
Print Prosthetic HPCPS List.
SORT FIELD DATA
  • 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
DATE CREATED 2000-05-24 11:04:00
READ ACCESS @
FILE PROSTHETIC HCPCS
WRITE ACCESS @
DATE LAST USED 2000-05-24 00:00:00