SCMC EXTENDED BULLETIN (884)    SORT TEMPLATE (.401)

Name Value
NAME SCMC EXTENDED BULLETIN
DESCRIPTION
Patients with extended inactivations
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   404.43
    GET CODE:   S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X
    QUERY CONDITION:   I (DISX(1)]]0)&(DISX(1)']]1)
    DESCRIPTION OF SORT:   INTERNAL(EXTEND AUTOMATIC)>0
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^SCPT(404.43,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S X=X>0 I D0>0 S DISX(1)=X
    FIELD NAME:   INTERNAL(EXTEND AUTOMATIC)>0
    SORT QUALIFIERS BEFORE FIELD:   @"B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  • FILE OR SUBFILE NO.:   404.43
    GET CODE:   S DISX(2)=$P($G(^SCPT(404.43,D0,0)),U,15)
    QUERY CONDITION:   I DISX(2)'=""
    DESCRIPTION OF SORT:   DATE FLAGGED FOR INACIVATION not null
    SEARCH EFFICIENCY RATING:   100.0000
    PROBABILITY RATING:   1.0000
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   .15
    FIELD NAME:   DATE FLAGGED FOR INACIVATION
    SORT QUALIFIERS BEFORE FIELD:   '@
    CROSS REFERENCE DATA:   ^SCPT(404.43,"AFLG",^SCPT(404.43,^2
  • FILE OR SUBFILE NO.:   404.57
    GET CODE:   X DPP(3,"OVF100",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   TEAM:INSTITUTION not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(3,"OVF100",9.2) S X=$P($G(^DIC(4,+$P(Y(201),U,7),0)),U) S D0=I(100,0) 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
    OVERFLOW DATA:
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF100
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S I(100,0)=$G(D0),Y(101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:""),D0=$P(Y(101),U,2) S:'D0!'$D(^SCTM(404.51,+D0,0)) D0=-1 S Y(201)=$S($D(^SCTM(404.51,D0,0)):^(0),1:"")
    FIELD NAME:   TEAM:INSTITUTION
    SORT QUALIFIERS BEFORE FIELD:   "#"
    SORT QUALIFIERS AFTER FIELD:   ;"Institution: "
  • 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(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    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(4)=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
  • FILE OR SUBFILE NO.:   404.57
    GET CODE:   S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2) S DISX(5)=X
    QUERY CONDITION:   I 1
    DESCRIPTION OF SORT:   All CURRENT PRACTITIONER (includes nulls)
    DATA TYPE FOR SORTING:   FREE TEXT
    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 NO.:   304
    FIELD NAME:   CURRENT PRACTITIONER
    SORT QUALIFIERS BEFORE FIELD:   "
    FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   z
  • 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(6)=X
    QUERY CONDITION:   I DISX(6)'=""
    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(6)=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
DATE CREATED 2004-03-05 08:08:00
READ ACCESS @
FILE PATIENT TEAM POSITION ASSIGNMENT
WRITE ACCESS @
DATE LAST USED 2005-06-15 00:00:00