| DESCRIPTION |
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
|
