RMPR OPEN TRANS (544)    SORT TEMPLATE (.401)

Name Value
NAME RMPR OPEN TRANS
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   664
    GET CODE:   S DISX(1)=$P($G(^RMPR(664,D0,0)),U,8)
    QUERY CONDITION:   I DISX(1)=""
    DESCRIPTION OF SORT:   CLOSE OUT DATE is null
    SEARCH EFFICIENCY RATING:   0.3636
    PROBABILITY RATING:   0.3636
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   8
    FIELD NAME:   CLOSE OUT DATE
    FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   @
    TO VALUE EXTERNAL:   @
  • FILE OR SUBFILE NO.:   664
    GET CODE:   S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$S('$D(^DIC(4,+$P(Y(1),U,14),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
    QUERY CONDITION:   I (DISX(2)]]"@z")&(DISX(2)']]"V")
    DESCRIPTION OF SORT:   STATION NAME from A to V
    DATA TYPE FOR SORTING:   POINTER TO A FILE
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$S('$D(^DIC(4,+$P(Y(1),U,14),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
    FIELD NAME:   STATION NAME
    SORT QUALIFIERS BEFORE FIELD:   "18
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   V
    TO VALUE EXTERNAL:   V
  • FILE OR SUBFILE NO.:   664
    GET CODE:   S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   INITIATOR not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    FIELD NAME:   INITIATOR
    SORT QUALIFIERS BEFORE FIELD:   "10
DATE CREATED 1995-08-14 11:50:00
FILE PROSTHETICS 1358