STANDARD DATA DICTIONARY #404.42 -- PATIENT TEAM ASSIGNMENT FILE 6/27/25 PAGE 1
STORED IN ^SCPT(404.42, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This table contains a history of the teams that have been assigned to the patient over time. Sites are NOT allowed to edit the
structure of this file. Making any kind of revision to this file may result in a faulty performance of the Primary Care Management
Software or other DHCP software that uses this file. Updates to this file should only be done as a result of an official patch to
the Scheduling Module.
Sites are NOT allowed to edit this file's fields via FileMan, without the direction of DHCP Customer Support. Deleting, changing,
or adding entries to this file may result in faulty performance of the Primary Care Management Software or other DHCP software that
uses this file.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: TEAM ASSIGNED DATE (#.02)[R], TEAM ASSIGNMENT (#.03)
POINTED TO BY: PATIENT TEAM ASSIGNMENT field (#.01) of the PATIENT TEAM POSITION ASSIGNMENT File (#404.43)
CROSS
REFERENCED BY: PATIENT(AB), PATIENT(AIDT), TEAM ASSIGNMENT(AIDT1), TEAM ASSIGNED DATE(AIDT2), ASSIGNMENT TYPE(AOUTPT),
PATIENT(APCTM), ASSIGNMENT TYPE(APCTM1), TEAM ASSIGNED DATE(APCTM2), TEAM ASSIGNMENT(APCTM3), PATIENT(APTTM),
TEAM ASSIGNMENT(APTTM1), TEAM ASSIGNMENT(ATMPT), PATIENT(ATMPT1), PATIENT(B), TEAM ASSIGNMENT(C)
INDEXED BY: PATIENT & TEAM ASSIGNMENT (AC)
404.42,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: N SC1,SCN,SCDA S SCDA=+$G(DA),SCN=$G(^SCPT(404.42,SCDA,0)) S $P(SCN,U,1)=X S SCN1=$$OKPTTM^SCMCTMU(
SCN,SCDA) D:'SCN1 EN^DDIOL($P(SCN1,U,2),"","?5") K:'SCN1 X
LAST EDITED: JUL 31, 2002
HELP-PROMPT: Select Patient from active team
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.42^B
1)= S ^SCPT(404.42,"B",$E(X,1,30),DA)=""
2)= K ^SCPT(404.42,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 404.42^AIDT^MUMPS
1)= N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCPT(40
4.42,"AIDT",X,SC2,-SC3,DA)=""
2)= N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCPT(40
4.42,"AIDT",X,SC2,-SC3,DA)
This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).
There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.42^AB
1)= S ^SCPT(404.42,"AB",$E(X,1,30),DA)=""
2)= K ^SCPT(404.42,"AB",$E(X,1,30),DA)
CROSS-REFERENCE: 404.42^ATMPT1^MUMPS
1)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 S ^SCPT(404.42,"ATMPT",SC1,X,DA)=""
2)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 K ^SCPT(404.42,"ATMPT",SC1,X,DA)
This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01). There is an associated cross reference
for the TEAM ASSIGNMENT Field (#.03).
CROSS-REFERENCE: 404.42^APTTM^MUMPS
1)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S ^SCPT(404.42,"APTTM",X,SC2,DA)=""
2)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 K ^SCPT(404.42,"APTTM",X,SC2,DA)
This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03). There is an associated cross reference
for the TEAM ASSIGNMENT Field (#.03).
CROSS-REFERENCE: 404.42^APCTM^MUMPS
1)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S S
C4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",X,SC2,SC3,SC4,DA)=""
2)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S S
C4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",X,SC2,SC3,SC4,DA)
This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGN ED DATE(#.02),
then by TEAM ASSIGNMENT(#.03). There are associated cross refere nces for each of these fields.
RECORD INDEXES: AC (#181)
404.42,.02 TEAM ASSIGNED DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X IF $D(X)&($P(^SCPT(404.42,DA,0),U,9)) D:X>$P(^SCPT(404.42,DA,0),U,
9) EN^DDIOL("Discharge must be after Assigned Date","","?5") K:X>$P(^SCPT(404.42,DA,0),U,9) X
LAST EDITED: FEB 14, 1996
HELP-PROMPT: This is the date the team is assigned to the patient.
DESCRIPTION:
This is the date that the patient joins the team's patient panel.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.42^AIDT2^MUMPS
1)= N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 S ^SCPT(404.4
2,"AIDT",SC1,SC2,-X,DA)=""
2)= N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 K ^SCPT(404.4
2,"AIDT",SC1,SC2,-X,DA)
This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).
There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.42^APCTM2^MUMPS
1)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC4=
$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",SC1,SC2,X,SC4,DA)=""
2)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC4=
$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",SC1,SC2,X,SC4,DA)
This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then
by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
404.42,.03 TEAM ASSIGNMENT 0;3 POINTER TO TEAM FILE (#404.51)
LAST EDITED: JUL 31, 2002
HELP-PROMPT: Name of a team assigned to the patient as of the effective date.
DESCRIPTION:
This is the team assigned to patient as of the effective date.
CROSS-REFERENCE: 404.42^ATMPT^MUMPS
1)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 S ^SCPT(404.42,"ATMPT",X,SC2,DA)=""
2)= N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 K ^SCPT(404.42,"ATMPT",X,SC2,DA)
This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01). There is an associated cross reference
for the PATIENT Field (#.01).
CROSS-REFERENCE: 404.42^APTTM1^MUMPS
1)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S ^SCPT(404.42,"APTTM",SC1,X,DA)=""
2)= N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 K ^SCPT(404.42,"APTTM",SC1,X,DA)
This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03). There is an associated cross reference
for the PATIENT Field (#.01).
CROSS-REFERENCE: 404.42^AIDT1^MUMPS
1)= N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCPT(40
4.42,"AIDT",SC1,X,-SC3,DA)=""
2)= N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCPT(40
4.42,"AIDT",SC1,X,-SC3,DA)
This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).
There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.42^APCTM3^MUMPS
1)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC3=
$P($G(^(0)),U,2) I SC3]"" S ^SCPT(404.42,"APCTM",SC1,SC2,SC3,X,DA)=""
2)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"" S SC3=
$P($G(^(0)),U,2) I SC3]"" K ^SCPT(404.42,"APCTM",SC1,SC2,-SC3,X,DA)
This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then
by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.42^C
1)= S ^SCPT(404.42,"C",$E(X,1,30),DA)=""
2)= K ^SCPT(404.42,"C",$E(X,1,30),DA)
Whole cross-reference, by team.
RECORD INDEXES: AC (#181)
404.42,.08 ASSIGNMENT TYPE 0;8 SET
'1' FOR PRIMARY CARE;
'98' FOR PENDING PRIMARY CARE;
'99' FOR OTHER;
LAST EDITED: MAY 19, 2014
HELP-PROMPT: Enter the type of care provided by this assignment.
DESCRIPTION:
This field indicates the type of care provided by this assignment.
CROSS-REFERENCE: 404.42^APCTM1^MUMPS
1)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=
$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,"APCTM",SC1,X,SC3,SC4,DA)=""
2)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S SC4=
$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,"APCTM",SC1,X,SC3,SC4,DA)
This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then
by TEAM ASSIGNMENT(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.42^AOUTPT^MUMPS
1)= N SCX S SCX=$$MAKEOUT^SCMCDD1(DA)
2)= Q
This makes an entry in the Outpatient Profile File for every patient who ever gets assigned to a
primary care team.
404.42,.09 TEAM DISCHARGE DATE 0;9 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X IF $D(X) D:$P(^SCPT(404.42,DA,0),U,2)>X EN^DDIOL("Discharge must b
e after Assigned Date","","?5") K:$P(^SCPT(404.42,DA,0),U,2)>X X
LAST EDITED: JUL 17, 1995
HELP-PROMPT: Enter the date/time the team was no longer assigned to the patient.
DESCRIPTION:
This is the date/time that the team ceased to be assigned to the patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
404.42,.1 RESTRICT CONSULTS 0;10 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 06, 1995
HELP-PROMPT: Are users not allowed to make consult appointments if a patient is not enrolled in a clinic?
DESCRIPTION: This attribute prevents users from making consult appointments to clinics in which the patient is
not enrolled. This parameter overrides the same parameter at the team level.
404.42,.11 USER ENTERING 0;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 06, 1995
HELP-PROMPT: This is the user who entered the record.
DESCRIPTION:
This is the user who entered this record.
404.42,.12 DATE/TIME ENTERED 0;12 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: This is the date/time that the history of teams and practitioner positions was entered.
DESCRIPTION:
This is the date/time that the history of teams and practitioner positions was entered.
404.42,.13 LAST EDITED BY 0;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 06, 1995
HELP-PROMPT: This is the user who last edited the record.
DESCRIPTION:
This is the user who last edited the record.
404.42,.14 DATE/TIME LAST EDITED 0;14 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: This is the date/time the record was last edited.
DESCRIPTION:
This is the date/time the record was last edited.
404.42,.15 STATUS 0;15 SET
'DU' FOR DOD UNASSIGN;
'IU' FOR INACTIVE UNASSIGN;
'DD' FOR REASSIGN-DOD REMOVED;
'PR' FOR PAT RELOCATED;
'RP' FOR REQ BY PAT;
'NN' FOR NOT NEEDED;
'PC' FOR PROV CHANGE;
'PI' FOR MVI MOVE/MERGE;
'FT' FOR INTRA FAC TRANS;
'MU' FOR MISSING/UNK;
'MD' FOR M-PACT DENIAL/WDRAW;
'DC' FOR DISCHARGE FROM CARE;
'ER' FOR ERROR;
LAST EDITED: JUN 24, 2014
HELP-PROMPT: Choose the unassignment status.
DESCRIPTION:
The status reason the patient was unassigned from the team.
404.42,.16 MULTIPLE PCP 0;16 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 17, 2008
HELP-PROMPT: Will patient have a PCP at more than one facility?
DESCRIPTION: This flag indicates whether a patient may have additional Primary Care Providers at other
facilities.
404.42,1 PURPOSE 1;0 WORD-PROCESSING #404.421
LAST EDITED: MAR 09, 1995
DESCRIPTION:
This field should contain the purpose of the care this assignment will provide.
FILES POINTED TO FIELDS
NEW PERSON (#200) USER ENTERING (#.11)
LAST EDITED BY (#.13)
PATIENT (#2) PATIENT (#.01)
TEAM (#404.51) TEAM ASSIGNMENT (#.03)
File #404.42
Record Indexes:
AC (#181) RECORD MUMPS IR ACTION
Short Descr: Disposition from Wait List
Set Logic: D TEAMRM^SCMCWAIT(X(1),X(2))
Kill Logic: Q
X(1): PATIENT (404.42,.01) (Subscr 1) (Len 30) (forwards)
X(2): TEAM ASSIGNMENT (404.42,.03) (Subscr 2) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):