MPIF REQUEST SORT (681)    SORT TEMPLATE (.401)

Name Value
NAME MPIF REQUEST SORT
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   984.9
    GET CODE:   X DPP(1,"OVF0",9.3) S Y=X,X=Y(4),X=X_Y_")" S D0=I(0,0) I D0>0 S DISX(1)=X
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   $E(#.07,1,15)_"" (""_(#.07:#99)_"")"" not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(1,"OVF0",9.3) S Y=X,X=Y(4),X=X_Y_")" S D0=I(0,0) I D0>0 S DISX(1)=X
    OVERFLOW DATA:
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"") S X=$S('$D(^DIC(4,+$P(Y(1),U,7),0)):"",1:$P(^(0),U,1)),Y(2)=X S X=1,Y(3)=X S X=15
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.3
      OVERFLOW CODE:   X DPP(1,"OVF0",9.2) S X=$E(Y(2),Y(3),X)_" (",Y(4)=X,D0=$P(Y(1),U,7) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(101),U,1)
    FIELD NAME:   $E(#.07,1,15)_" ("_(#.07:#99)_")"
    SORT QUALIFIERS BEFORE FIELD:   "
    SORT QUALIFIERS AFTER FIELD:   ;"STATION: "
  • FILE OR SUBFILE NO.:   984.9
    GET CODE:   S DISX(2)=$P($G(^MPIF(984.9,D0,0)),U,3)
    QUERY CONDITION:   I DISX(2)'=""
    DESCRIPTION OF SORT:   DATE REQUESTED not null
    SEARCH EFFICIENCY RATING:   0.0323
    PROBABILITY RATING:   0.0323
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   .03
    FIELD NAME:   DATE REQUESTED
  • FILE OR SUBFILE NO.:   984.9
    GET CODE:   S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)=2
    DESCRIPTION OF SORT:   INTERNAL(#.06) equals 2
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X I D0>0 S DISX(3)=X
    FIELD NAME:   INTERNAL(#.06)
    SORT QUALIFIERS BEFORE FIELD:   @"
    FROM VALUE INTERNAL:   1.99999
    FROM VALUE EXTERNAL:   2
    TO VALUE INTERNAL:   2
    TO VALUE EXTERNAL:   2
  • FILE OR SUBFILE NO.:   984.9
    GET CODE:   S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   INTERNAL(#.02) not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^MPIF(984.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X I D0>0 S DISX(4)=X
    FIELD NAME:   INTERNAL(#.02)
    SORT QUALIFIERS BEFORE FIELD:   @"
    FROM VALUE INTERNAL:   12563.99999
    FROM VALUE EXTERNAL:   12564
    TO VALUE INTERNAL:   12564
    TO VALUE EXTERNAL:   12564
  • FILE OR SUBFILE NO.:   984.9
    GET CODE:   S X=0 I $P(^MPIF(984.9,D0,0),"^",3)]"" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),"^",2)]"":$P(^(2),"^",2),1:DT),$P(^MPIF(984.9,D0,0),"^",3)) S X=$J(X,0,0) S DISX(5)=X S:DISX(5)]"" DISX(5)=+DISX(5)
    QUERY CONDITION:   I DISX(5)]]1.99999
    DESCRIPTION OF SORT:   DAYS OLD from 2
    SEARCH EFFICIENCY RATING:   0.2258
    PROBABILITY RATING:   0.2258
    DATA TYPE FOR SORTING:   NUMERIC
    FIELD NO.:   100
    FIELD NAME:   DAYS OLD
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   1.99999
    FROM VALUE EXTERNAL:   2
    TO VALUE INTERNAL:   z
DATE CREATED 1997-10-06 11:38:00
READ ACCESS @
FILE MPIF CMOR REQUEST
WRITE ACCESS @
DATE LAST USED 1999-04-29 00:00:00