RMPO-RPT-HOPRIITM (685)    SORT TEMPLATE (.401)

Name Value
NAME RMPO-RPT-HOPRIITM
DESCRIPTION
Primary Item Report sort template. Order by item then patient.
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   665.194
    GET CODE:   S DISX(1)=$P($G(^RMPR(665,D0,"RMPOC",D1,0)),U,11)
    QUERY CONDITION:   I DISX(1)="Y"
    DESCRIPTION OF SORT:   PRIMARY ITEM equals Y (YES)
    DATA TYPE FOR SORTING:   SET OF CODES
    MULTIPLE FIELD DATA:
    • MULT.FILE OR SUBFILE NO.:   665
      NODE:   RMPOC
    FIELD NO.:   10
    FIELD NAME:   PRIMARY ITEM
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   Xz
    FROM VALUE EXTERNAL:   Y
    FROM VALUE PRINTABLE:   Y (YES)
    TO VALUE INTERNAL:   Y
    TO VALUE EXTERNAL:   Y
    TO VALUE PRINTABLE:   Y (YES)
    CROSS REFERENCE DATA:   ^RMPR(665,"AC",^RMPR(665,^2
  • FILE OR SUBFILE NO.:   665.194
    GET CODE:   S Y(1)=$S($D(^RMPR(665,D0,"RMPOC",D1,0)):^(0),1:""),Y=$P(Y(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y I D1>0 S DISX(2)=X
    QUERY CONDITION:   I DISX(2)'=""
    DESCRIPTION OF SORT:   ITEM not null
    DATA TYPE FOR SORTING:   NUMERIC
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RMPR(665,D0,"RMPOC",D1,0)):^(0),1:""),Y=$P(Y(1),U,1) X:$D(^DD(665.194,.01,2)) ^(2) S X=Y I D1>0 S DISX(2)=X
    MULTIPLE FIELD DATA:
    • MULT.FILE OR SUBFILE NO.:   665
      NODE:   RMPOC
    FIELD NAME:   ITEM
    SORT QUALIFIERS BEFORE FIELD:   ".01
DATE CREATED 1999-01-14 15:01:00
READ ACCESS @
FILE PROSTHETICS PATIENT
WRITE ACCESS @
DATE LAST USED 1999-01-14 00:00:00