XUDEV LINEPORTADDR (25)    SORT TEMPLATE (.401)

Sort logic for Line/Port address report.

• FILE OR SUBFILE NO.:   3.5
  GET CODE:   S DISX(1)=$P($G(^%ZIS(1,D0,0)),U,1)
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   NAME not null
  SEARCH EFFICIENCY RATING:   0.0000
  PROBABILITY RATING:   0.0000
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   NAME
  CROSS REFERENCE DATA:   ^%ZIS(1,"B",^%ZIS(1,^2
• FILE OR SUBFILE NO.:   3.5
  GET CODE:   X DPP(2,"OVF0",9.2) S X=X="TERMINAL" I D0>0 S DISX(2)=X
  QUERY CONDITION:   I DISX(2)
  DESCRIPTION OF SORT:   TYPE=""TERMINAL""
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(2,"OVF0",9.2) S X=X="TERMINAL" I D0>0 S DISX(2)=X

  OVERFLOW DATA:

  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.2
    OVERFLOW CODE:   S Y(2)=$C(59)_$S($D(^DD(3.5,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^%ZIS(1,D0,"TYPE")):^("TYPE"),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59),1)

  FIELD NAME:   TYPE="TERMINAL"
  SORT QUALIFIERS BEFORE FIELD:   "@B
  SORT QUALIFIERS AFTER FIELD:   ;L1
• FILE OR SUBFILE NO.:   3.5
  GET CODE:   S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X'=0 I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)
  DESCRIPTION OF SORT:   INTERNAL(#1)'=0
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X'=0 I D0>0 S DISX(3)=X
  FIELD NAME:   INTERNAL(#1)'=0
  SORT QUALIFIERS BEFORE FIELD:   "@B
  SORT QUALIFIERS AFTER FIELD:   ;L1