SCMC TOBE INACTIVATED (888)    SORT TEMPLATE (.401)

Sort by date flagged by inactivation (t to t+60), institution, and team.

• FILE OR SUBFILE NO.:   404.43
  GET CODE:   D INACTDT^SCMCTSK1(D0) S DISX(1)=X
  QUERY CONDITION:   I (DISX(1)]]3051218.999999)&(DISX(1)']]3060217.24)
  DESCRIPTION OF SORT:   SCHEDULED INACTIVATION DATE from Dec 19,2005 to Feb 17,2006@24:00
  SEARCH EFFICIENCY RATING:   1.0000
  PROBABILITY RATING:   1.0000
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   .159
  FIELD NAME:   SCHEDULED INACTIVATION DATE
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   3051218.999999
  FROM VALUE EXTERNAL:   TODAY
  FROM VALUE PRINTABLE:   Dec 19,2005
  TO VALUE INTERNAL:   3060217.24
  TO VALUE EXTERNAL:   TODAY+60@2400
  TO VALUE PRINTABLE:   Feb 17,2006@24:00
• FILE OR SUBFILE NO.:   404.51
  GET CODE:   S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X
  QUERY CONDITION:   I DISX(2)'=""
  DESCRIPTION OF SORT:   INSTITUTION not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) I D0>0 S DISX(2)=X

  RELATIONAL JUMP FIELD DATA:

  • RELATIONAL START FILE NO.:   404.43
    NEXT SUBSCRIPT:   100
    TO FILE OR SUBFILE:   404.57
    GLOBAL REFERENCE:   SCTM(404.57,
    MULTIVALUED FLAG:   NOT MULTI-VALUED
    RELATIONAL CODE:   S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D(0)=+X
  • RELATIONAL START FILE NO.:   404.57
    NEXT SUBSCRIPT:   200
    TO FILE OR SUBFILE:   404.51
    GLOBAL REFERENCE:   SCTM(404.51,
    MULTIVALUED FLAG:   NOT MULTI-VALUED
    RELATIONAL CODE:   S I(100,0)=D0 S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"") S X=$P(Y(101),U,2),X=X S D(0)=+X

  FIELD NAME:   INSTITUTION
  SORT QUALIFIERS BEFORE FIELD:   ""@".07
• FILE OR SUBFILE NO.:   404.57
  GET CODE:   S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   TEAM not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"") S X=$P($G(^SCTM(404.51,+$P(Y(101),U,2),0)),U) I D0>0 S DISX(3)=X

  RELATIONAL JUMP FIELD DATA:

  • RELATIONAL START FILE NO.:   404.43
    NEXT SUBSCRIPT:   100
    TO FILE OR SUBFILE:   404.57
    GLOBAL REFERENCE:   SCTM(404.57,
    MULTIVALUED FLAG:   NOT MULTI-VALUED
    RELATIONAL CODE:   S I(0,0)=D0 S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D(0)=+X

  FIELD NAME:   TEAM
  SORT QUALIFIERS BEFORE FIELD:   "@".02