SCMC INACTIVATION BY TEAM (879)    SORT TEMPLATE (.401)

Name Value
NAME SCMC INACTIVATION BY TEAM
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   404.42
    GET CODE:   S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(101),U,1),0)),U) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   PATIENT not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(101)=$S($D(^SCPT(404.42,D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(101),U,1),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.42
      GLOBAL REFERENCE:   SCPT(404.42,
      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,1),X=X S D(0)=+X
    FIELD NAME:   PATIENT
    SORT QUALIFIERS BEFORE FIELD:   "@".01
BY(0) TMP("SCSORT",$J,
L(0) 3
SORT RANGE DATA FOR BY(0)
  • DISPAR(0,n) PIECE ONE:   #
    DISPAR(0,n) PIECE TWO:   ;"Institution: "
  • DISPAR(0,n) PIECE TWO:   ;"Team: "
DATE CREATED 2004-01-21 09:39:00
READ ACCESS @
FILE PATIENT TEAM POSITION ASSIGNMENT
WRITE ACCESS @
DATE LAST USED 2004-01-21 00:00:00