SCMC PATIENT TEAM CHANGES (1166)    PROTOCOL (101)

• SCMC PT TEAM CHANGE MAIL MESSAGE

This is fired off whenever the Patient Team Assignment File (#404.42) is
SCTMNDAF   = 0 Node of Team (#404.51) After
SCPTTM     = Pointer to Patient Team Assignment (#404.42)
SCTMB4     = Pointer to Team (404.51) Before
SCTMAF     = Pointer to Team (404.51) After
 
Notes:
 o  The 7th piece of the Team File (i.e. $P(SCTMND,U,7)) is a pointer 
     to the institution file.
 o  The 8th piece of the Patient Team Assignment File is the Assignment 
    Type Field (#.08).  Its internal value is '1' if it is a primary 
updated.
    care assignment.  Its value could be either null or '99'.  '99' is 
    'Other'.  You can check the variable, SCPCTM (1 or 0) to see if 
    this is a primary care team assignment.
 
Note: Utility: $$INSTPCTM^SCAPMC(DFN,DATE,SCERR)
   Input:
      DFN   - ien of PATIENT File (#2)
      DATE  - date to check (default=DT)
      SCERR - error array (default=^TMP("SCERR",$J)) - contains info 
              about bad data.  It is only set if there is bad data.
 
   Returned:
      0 if no Primary Care Team on Date or
      SC4^Institution Name^SCTM^Team Name
          SC4  = ien of Institution File
          SCTM = ien of Team File
Available Output Variables:
===========================
SCPCTM   = 1 if it this is a primary care team assignment, 0 otherwise
SCPTTMB4 = 0 Node of Patient Team Assignment (#404.42) Before 
SCPTTMAF = 0 Node of Patient Team Assignment (#404.42) After
SCTMNDB4   = 0 Node of Team (#404.51) Before