Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Sort Template: SCMC EXTENDED BULLETIN

Package: Scheduling

Sort Template: SCMC EXTENDED BULLETIN


Source Information

Name Value
NAME SCMC EXTENDED BULLETIN
DESCRIPTION
Patients with extended inactivations
SORT FIELD DATA
  1. 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
  2. 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
  3. 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:
    1. 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:
    1. 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: "
  4. 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:
    1. 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
  5. 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:
    1. 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
  6. 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:
    1. 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] P31, P35
^DPT - [#2] P61, P65
^SCPT(404.42 - [#404.42] P61, P65
^SCPT(404.43 - [#404.43] P11, P15, P21, RCOD3P11, RCOD5P11, RCOD6P11
^SCTM(404.51 - [#404.51] OVF03P11, P41, P45
^SCTM(404.57 - [#404.57] RJ, OVF03P11, P41, P45

Naked Globals

Name Field # of Occurrence
^(0 P11, P15, RCOD3P11, OVF03P11, P41, P45, RCOD5P11, P61, P65, RCOD6P11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D(0 RCOD3P11, RCOD5P11, RCOD6P11
D0 P11, P15, P21, P31, P35, RCOD3P11, OVF03P11, P41, P45, P51
, RCOD5P11, P61, P65, RCOD6P11
>> DISX(1 P11, P13, P15
>> DISX(2 P21, P23
>> DISX(3 P31, P33, P35
>> DISX(4 P41, P43, P45
>> DISX(5 P51
>> DISX(6 P61, P63, P65
>> DPP(3 P31, P35
DT P51
>> I(0 RCOD3P11, RCOD5P11, RCOD6P11
>> I(100 P31, P35, OVF03P11
U P11, P15, P21, P31, P35, RCOD3P11, OVF03P11, P41, P45, P51
, RCOD5P11, P61, P65, RCOD6P11
X P11, P15, P31, P35, RCOD3P11, P41, P45, P51, RCOD5P11, P61
, P65, RCOD6P11
Y(1 P11, P15, RCOD3P11, RCOD5P11, RCOD6P11
>> Y(101 OVF03P11, P41, P45, P61, P65
>> Y(201 P31, P35, OVF03P11
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All