XUSEC TERMINATION REPORT Q (792)    SORT TEMPLATE (.401)

This template is used for the queued termation option:
 XUSEC ISO Q TERMINATION REPORT

• FILE OR SUBFILE NO.:   1.1
  GET CODE:   S %=^DIC(DIA,0,"GL"),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_",0)")):$P(^(0),U,1),1:""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""),Y=X D:Y]"" Y^DIQ:C]"" S X=Y,C="," S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   ENTRY NAME not null
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   1
  FIELD NAME:   ENTRY NAME
  SORT QUALIFIERS BEFORE FIELD:   @
• FILE OR SUBFILE NO.:   1.1
  GET CODE:   S DISX(2)=$P($G(^DIA(DIA,D0,0)),U,3)
  QUERY CONDITION:   I DISX(2)=9.2
  DESCRIPTION OF SORT:   FIELD NUMBER equals 9.2
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .03
  FIELD NAME:   FIELD NUMBER
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   9.199999
  FROM VALUE EXTERNAL:   9.2
  TO VALUE INTERNAL:   9.2
  TO VALUE EXTERNAL:   9.2
• FILE OR SUBFILE NO.:   1.1
  GET CODE:   X DPP(3,"OVF0",9.3) S X=X&Y I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)
  DESCRIPTION OF SORT:   ((DATE(#.02)>(TODAY-9))&(DATE(#.02)
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.3) S X=X&Y I D0>0 S DISX(3)=X

  OVERFLOW DATA:

  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.2
    OVERFLOW CODE:   S Y(1)=$S($D(^DIA(DIA,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=$P(X,".",1) S X=X,Y(2)=$G(X),Y(3)=$G(X),X=DT S X=X,X1=X,X2=-9,X="" D C^%DTC:X1 S X=X
  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.3
    OVERFLOW CODE:   X DPP(3,"OVF0",9.2) S Y=X,X=Y(2),X=X>Y,Y(4)=$G(X),Y(5)=$G(X) S X=$P(Y(1),U,2),X=$P(X,".",1) S X=X,Y(6)=$G(X),X=DT S Y=X,X=Y(6),X=X S X=X

  FIELD NAME:   ((DATE(#.02)>(TODAY-9))&(DATE(#.02)
  SORT QUALIFIERS BEFORE FIELD:   "@B
  SORT QUALIFIERS AFTER FIELD:   ;L1