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

Primary Item Report sort template. Order by item then patient.

• 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