RMPO-RPT-HOACTZIPLIST (686)    SORT TEMPLATE (.401)

Name Value
NAME RMPO-RPT-HOACTZIPLIST
DESCRIPTION
RMPORAP
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   665
    GET CODE:   S DISX(1)=$P($G(^RMPR(665,D0,"RMPOA")),U,2)
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   HOME OXYGEN ACTIVATION DATE not null
    SEARCH EFFICIENCY RATING:   1.2353
    PROBABILITY RATING:   0.5526
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   19.2
    FIELD NAME:   HOME OXYGEN ACTIVATION DATE
    SORT QUALIFIERS BEFORE FIELD:   ]'
    CROSS REFERENCE DATA:   ^RMPR(665,"AD",^RMPR(665,^2
  • FILE OR SUBFILE NO.:   2
    GET CODE:   S DISX(2)=$P($G(^DPT(D0,.11)),U,12),Y=DISX(2) S Y(0)=Y D ZIPOUT^VAFADDR S DISX(2)=Y
    QUERY CONDITION:   I 1
    DESCRIPTION OF SORT:   All ZIP+4 (includes nulls)
    DATA TYPE FOR SORTING:   FREE TEXT
    RELATIONAL JUMP FIELD DATA:
    • RELATIONAL START FILE NO.:   665
      NEXT SUBSCRIPT:   100
      TO FILE OR SUBFILE:   2
      GLOBAL REFERENCE:   DPT(
      MULTIVALUED FLAG:   NOT MULTI-VALUED
      RELATIONAL CODE:   S I(0,0)=D0 S Y(1)=$S($D(^RMPR(665,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S D(0)=+X
    FIELD NO.:   .1112
    FIELD NAME:   ZIP+4
    SORT QUALIFIERS BEFORE FIELD:   @"@
    FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   z
  • FILE OR SUBFILE NO.:   665
    GET CODE:   S Y(1)=$S($D(^RMPR(665,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(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   NAME not null
    SEARCH EFFICIENCY RATING:   0.1316
    PROBABILITY RATING:   0.1316
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(665,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(3)=X
    FIELD NAME:   NAME
    SORT QUALIFIERS BEFORE FIELD:   @".01
    CROSS REFERENCE DATA:   ^RMPR(665,"B",^RMPR(665,^2
    POINT TO CROSS REFERENCE:   ^DPT("B",
DATE CREATED 1999-02-02 14:47:00
READ ACCESS @
FILE PROSTHETICS PATIENT
WRITE ACCESS @
DATE LAST USED 1999-09-14 00:00:00