STANDARD DATA DICTIONARY #404.43 -- PATIENT TEAM POSITION ASSIGNMENT FILE 3/24/25 PAGE 1
STORED IN ^SCPT(404.43, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a history of positions that have been assigned to the patient. 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 POSITION (#.02)[R]
POINTED TO BY: WORKLOAD EVENT POINTER field (#.07) of the PCMM HL7 TRANSMISSION LOG File (#404.471)
EVENT POINTER field (#.07) of the PCMM HL7 EVENT File (#404.48)
CROSS
REFERENCED BY: PATIENT TEAM ASSIGNMENT(ACTDFN1), POSITION ASSIGNED DATE(ACTDFN2), POSITION UNASSIGNED DATE(ACTDFN3),
PATIENT TEAM ASSIGNMENT(ACTPC1), POSITION ASSIGNED DATE(ACTPC2), PC ROLE(ACTPC3),
POSITION UNASSIGNED DATE(ACTPC4), PATIENT TEAM ASSIGNMENT(ADFN), TEAM POSITION(ADFN1),
POSITION ASSIGNED DATE(ADFN2), EXTEND AUTOMATIC INACTIVATION(AEXT), DATE FLAGGED FOR INACTIVATION(AFLG),
PATIENT TEAM ASSIGNMENT(APCPOS), PC ROLE(APCPOS1), POSITION ASSIGNED DATE(APCPOS2), TEAM POSITION(APCPOS3),
PATIENT TEAM ASSIGNMENT(APRIMARY), TEAM POSITION(APRIMARY1), POSITION ASSIGNED DATE(APRIMARY2),
TEAM POSITION(APTPA), PATIENT TEAM ASSIGNMENT(APTPA1), STATUS(ASTATB), PATIENT TEAM ASSIGNMENT(B),
TEAM POSITION(C)
INDEXED BY: PATIENT TEAM ASSIGNMENT & TEAM POSITION (AC), PATIENT TEAM ASSIGNMENT & STATUS (ASTAT)
LAST MODIFIED: MAY 4,2017@17:42:53
404.43,.01 PATIENT TEAM ASSIGNMENT 0;1 POINTER TO PATIENT TEAM ASSIGNMENT FILE (#404.42) (Required)
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This is an entry in the team position assignment file.
DESCRIPTION:
This is an entry in the team position assignment file.
CROSS-REFERENCE: 404.43^B
1)= S ^SCPT(404.43,"B",$E(X,1,30),DA)=""
2)= K ^SCPT(404.43,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 404.43^APRIMARY^MUMPS
1)= N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S ^SCPT(40
4.43,"APRIMARY",X,SC2,-SC3,DA)=""
2)= N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" K ^SCPT(40
4.43,"APRIMARY",X,SC2,-SC3,DA)
This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION
ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^APTPA1^MUMPS
1)= N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 S ^SCPT(404.43,"APTPA",SC1,X,DA)=""
2)= N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 K ^SCPT(404.43,"APTPA",SC1,X,DA)
This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01). There is an associated
cross reference for the TEAM POSITION Field (#.02).
CROSS-REFERENCE: 404.43^ADFN^MUMPS
1)= N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC
DFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,SC2,SC3,DA)=""
2)= N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC
DFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,SC2,SC3,DA)
This sorts by PATIENT File ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED
DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^APCPOS^MUMPS
1)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" S S
C4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(X,SC2,SC3,SC4,DA)
2)= N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"" S SC3=$P($G(^(0)),U,3) I SC3]"" S S
C4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(X,SC2,SC3,SC4,DA)
This sorts by PATIENT (via Patient Team Assignement), then by PC ROLE(#.05), then by -POSITION
ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each
of these fields.
CROSS-REFERENCE: 404.43^ACTDFN1^MUMPS
1)= N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']
"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
2)= N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I SC4']
"" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for
fields .03 and .04.
CROSS-REFERENCE: 404.43^ACTPC1^MUMPS
1)= N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I S
C4']"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",
SCDFN,SC5,DA)=""
2)= N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"" S SC4=$P(ND,U,4) I S
C4']"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",
SCDFN,SC5,DA)
This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are
associated xrefs for fields .03, .04 and .05.
RECORD INDEXES: AC (#182), ASTAT (#183)
404.43,.02 TEAM POSITION 0;2 POINTER TO TEAM POSITION FILE (#404.57) (Required)
INPUT TRANSFORM: S DIC("S")="I $$OKTP^SCMCTPU(DA,Y)"
LAST EDITED: MAY 04, 2017
HELP-PROMPT: Enter the position associated with the patient.
DESCRIPTION:
This is the position associated with the patient.
TECHNICAL DESCR:
Position must be from parent team - see screen.
SCREEN: S DIC("S")="I $$OKTP^SCMCTPU(DA,Y)"
EXPLANATION: used to assure position is from team
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.43^APRIMARY1^MUMPS
1)= N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S ^SCPT(40
4.43,"APRIMARY",SC1,X,-SC3,DA)=""
2)= N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" K ^SCPT(40
4.43,"APRIMARY",SC1,X,-SC3,DA)
This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION
ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^APTPA^MUMPS
1)= N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 S ^SCPT(404.43,"APTPA",X,SC2,DA)=""
2)= N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 K ^SCPT(404.43,"APTPA",X,SC2,DA)
This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01). There is an associated
cross reference for the PATIENT TEAM ASSIGNMENT Field (#.01).
CROSS-REFERENCE: 404.43^ADFN1^MUMPS
1)= N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC
DFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,X,SC3,DA)=""
2)= N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC
DFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,X,SC3,DA)
This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED
DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^APCPOS3^MUMPS
1)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC3=
$P($G(^(0)),U,3) I SC3]"" D SETPC^SCMCDD1(SC1,SC2,SC3,X,DA)
2)= N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC3=
$P($G(^(0)),U,3) I SC3]"" D KILLPC^SCMCDD1(SC1,SC2,SC3,X,DA)
This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION
ASSIGNED DATE(#.03), then by
TEAM POSITION(#.02). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^C
1)= S ^SCPT(404.43,"C",$E(X,1,30),DA)=""
2)= K ^SCPT(404.43,"C",$E(X,1,30),DA)
Cross reference by Team Position.
RECORD INDEXES: AC (#182)
404.43,.03 POSITION ASSIGNED DATE 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,+$G(DA),0)) K:'$$
OKACTTP^SCMCTPU(SCNODE,SC1) X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,D0,0))
K:'$$OKACTTP^SCMCTPU(SCNODE,SC1) X
DESCRIPTION:
This is the date that the team position was assigned to the patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.43^APRIMARY2^MUMPS
1)= N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S ^SCPT(404.4
3,"APRIMARY",SC1,SC2,-X,DA)=""
2)= N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 K ^SCPT(404.4
3,"APRIMARY",SC1,SC2,-X,DA)
This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION
ASSIGNED DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^ADFN2^MUMPS
1)= N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN
=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ADFN",SCDFN,SC2,X,DA)=""
2)= N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN
=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ADFN",SCDFN,SC2,X,DA)
This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED
DATE(#.03). There are associated cross references for each of these fields.
CROSS-REFERENCE: 404.43^APCPOS2^MUMPS
1)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC4=
$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,SC2,X,SC4,DA)
2)= N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"" S SC4=
$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,SC2,X,SC4,DA)
This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION
ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each
of these fields.
CROSS-REFERENCE: 404.43^ACTDFN2^MUMPS
1)= N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1
S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
2)= N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I SC1
S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for
fields .01 and .04.
CROSS-REFERENCE: 404.43^ACTPC2^MUMPS
1)= N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I
SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",S
CDFN,SC5,DA)=""
2)= N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I
SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",S
CDFN,SC5,DA)
This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are
associated xrefs for fields .01, .04 and .05.
404.43,.04 POSITION UNASSIGNED DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,DA,0)) K:'$$OKINT
P^SCMCTPU(SCNODE,SC1) X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This is the date that the position is no longer associated with the patient.
DESCRIPTION:
This is the date/time that the position is no longer associated with the patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.43^ACTDFN3^MUMPS
1)= N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S
SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTDFN",SCDFN,DA)
2)= N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"" S
SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTDFN",SCDFN,DA)=""
This sorts currently active entries by PATIENT file ien (DFN). There are associated xrefs for
fields .01 and .03.
CROSS-REFERENCE: 404.43^ACTPC4^MUMPS
1)= N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]
"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC",SC
DFN,SC5,DA)
2)= N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]
"" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC",SC
DFN,SC5,DA)=""
This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are
associated xrefs for fields .01, .03 and .05.
404.43,.05 PC ROLE 0;5 SET
'0' FOR NON PC ASSIGNMENT;
'1' FOR PC ASSIGNMENT;
'2' FOR PC ATTENDING;
INPUT TRANSFORM: N SC1 S SC1=$$OKROLE^SCMCTPU(DA,X) K:'SC1 X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: PC Assignments are only allowed if Patient Team Assignment is for Primary Care
DESCRIPTION: This is used to indicate if patient - team position assigment is a special one (e.g. primary care
practitioner or primary care attending).
TECHNICAL DESCR:
This is only allowable if the team assignment is a pc team assignment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.43^APCPOS1^MUMPS
1)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=
$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,X,SC3,SC4,DA)
2)= N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"" S SC4=
$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,X,SC3,SC4,DA)
This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION
ASSIGNED DATE(#.03), then by TEAM POSITION(#.02). There are associated cross references for each
of these fields.
CROSS-REFERENCE: 404.43^ACTPC3^MUMPS
1)= N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I
SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,"ACTPC
",SCDFN,X,DA)=""
2)= N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"" S SC1=$P(ND,U,1) I
SC1 S SC3=$P(ND,U,3) I SC3]"" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,"ACTPC
",SCDFN,X,DA)
This sorts currently active entries by PATIENT file ien (DFN), then by PC ROLE(#.05). There are
associated xrefs for fields .01, .03 and .04.
404.43,.06 USER ENTERING 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 12, 1996
HELP-PROMPT: The user who initially created the record
DESCRIPTION:
This is the user who initially created the record.
404.43,.07 DATE/TIME ENTERED 0;7 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 1996
HELP-PROMPT: This is the date/time that the history of the position was entered.
DESCRIPTION:
This is the date/time that the history of the position was entered.
404.43,.08 LAST EDITED BY 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 12, 1996
HELP-PROMPT: This is the user who last edited the record.
DESCRIPTION:
This is the user who last edited the record.
404.43,.09 DATE/TIME LAST EDITED 0;9 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 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.43,.12 STATUS 0;12 SET
'DU' FOR DOD UNASSIGN;
'IU' FOR INACTIVE UNASSIGN;
'DD' FOR REASSIGN-DOD REMOVED;
'PR' FOR PAT RELOCATION;
'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 position.
CROSS-REFERENCE: 404.43^ASTATB
1)= S ^SCPT(404.43,"ASTATB",$E(X,1,30),DA)=""
2)= K ^SCPT(404.43,"ASTATB",$E(X,1,30),DA)
Sort by Status
RECORD INDEXES: ASTAT (#183)
404.43,.13 EXTEND AUTOMATIC INACTIVATION 0;13 SET
'0' FOR DO NOT EXTEND;
'1' FOR PATIENT HAS FUTURE PC APPOINTMENT;
'2' FOR PROVIDER REQUEST-WILL CONTACT PATIENT;
'3' FOR PATIENT CONTACTED SITE FOR APPOINTMENT;
'4' FOR OTHER;
LAST EDITED: JAN 19, 2004
HELP-PROMPT: Enter if you wish to extend this automatic inactivation date by 60 days
DESCRIPTION: This is entered in PCMM GUI and is the reason for extending this assignments inactivation. If
'Other' is entered a comment is required.
CROSS-REFERENCE: 404.43^AEXT
1)= S ^SCPT(404.43,"AEXT",$E(X,1,30),DA)=""
2)= K ^SCPT(404.43,"AEXT",$E(X,1,30),DA)
Extended from automatic inactivation
404.43,.14 EXTENSION COMMENT 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: OCT 09, 2003
HELP-PROMPT: Answer must be 2-50 characters in length.
DESCRIPTION:
If extended for 'OTHER' then this is the free text reason. This is entered in the PCMM GUI
404.43,.15 DATE FLAGGED FOR INACTIVATION 0;15 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 10, 2004
DESCRIPTION:
Date background job flagged the record for inactivation due to inactivity.
CROSS-REFERENCE: 404.43^AFLG
1)= S ^SCPT(404.43,"AFLG",$E(X,1,30),DA)=""
2)= K ^SCPT(404.43,"AFLG",$E(X,1,30),DA)
Date record flagged for inactivation. Used to inactivate record 60 days later
404.43,.159 SCHEDULED INACTIVATION DATE ; COMPUTED DATE
MUMPS CODE: D INACTDT^SCMCTSK1(D0)
ALGORITHM: D INACTDT^SCMCTSK1(D0)
LAST EDITED: MAR 15, 2004
DESCRIPTION:
Date this patient is scheduled to be inactivated if not seen by that time.
404.43,.16 EXTENDED BY 0;16 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 28, 2003
HELP-PROMPT: Person who filed extension of inactivation
DESCRIPTION:
Automatically filed with extension
404.43,.17 DATE DISINACTIVATED 0;17 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 10, 2004
DESCRIPTION:
Date reassigned after being automatically inactivated
FILES POINTED TO FIELDS
NEW PERSON (#200) USER ENTERING (#.06)
LAST EDITED BY (#.08)
EXTENDED BY (#.16)
PATIENT TEAM ASSIGNMENT (#404.42) PATIENT TEAM ASSIGNMENT (#.01)
TEAM POSITION (#404.57) TEAM POSITION (#.02)
File #404.43
Record Indexes:
AC (#182) RECORD MUMPS IR ACTION
Short Descr: Disposition Waiting List Entry
Set Logic: D POSRM^SCMCWAIT(X(1),X(2))
Kill Logic: Q
X(1): PATIENT TEAM ASSIGNMENT (404.43,.01) (Subscr 1) (forwards)
X(2): TEAM POSITION (404.43,.02) (Subscr 2) (forwards)
ASTAT (#183) RECORD REGULAR IR SORTING ONLY
Short Descr: STATUS CROSS REFERENCE
Set Logic: S ^SCPT(404.43,"ASTAT",X(1),X(2),DA)=""
Kill Logic: K ^SCPT(404.43,"ASTAT",X(1),X(2),DA)
Whole Kill: K ^SCPT(404.43,"ASTAT")
X(1): PATIENT TEAM ASSIGNMENT (404.43,.01) (Subscr 1) (forwards)
X(2): STATUS (404.43,.12) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SC BULLETIN MAY 02, 2006@11:07 USER #0 @@
SCMC EXTENDED FEB 07, 2008@10:19 USER #0 PATIENT TEAM POSITION ASSIGNMENT LIST
SCMC INACTIVATED FEB 07, 2008@10:21 USER #0 PATIENT TEAM POSITION ASSIGNMENT LIST
SCMC PENDING UNASSIGN FEB 07, 2008@10:16 USER #0 PATIENT TEAM POSITION ASSIGNMENT LIST
SCMC PENDING UNASSIGN PAT FEB 07, 2008@10:23 USER #0 PATIENT TEAM POSITION ASSIGNMENT LIST
SCMC TOBE INACTIVATED DEC 19, 2005@10:45 USER #0 PATIENT TEAM POSITION ASSIGNMENT LIST
SORT TEMPLATE(S):
SCMC EXTENDED MAR 15, 2004@17:11 USER #0
SORT BY: @INTERNAL(EXTEND AUTOMATIC)>0;L1// (INTERNAL(EXTEND AUTOMATIC)>0)
WITHIN INTERNAL(EXTEND AUTOMATIC)>0, SORT BY: @SCHEDULED INACTIVATION DATE// (User is asked range)
WITHIN SCHEDULED INACTIVATION DATE, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: NAME// (NAME not null)
SCMC EXTENDED BULLETIN MAR 05, 2004@08:08 USER #0
SORT BY: @INTERNAL(EXTEND AUTOMATIC)>0;L1// (INTERNAL(EXTEND AUTOMATIC)>0)
WITHIN INTERNAL(EXTEND AUTOMATIC)>0, SORT BY: '@DATE FLAGGED FOR INACIVATION// (DATE FLAGGED FOR INACIVATION not null)
WITHIN DATE FLAGGED FOR INACIVATION, SORT BY: TEAM POSITION:;"Institution: "//
TEAM POSITION FIELD: TEAM:INSTITUTION// (TEAM:INSTITUTION not null)
WITHIN TEAM:INSTITUTION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: TEAM// (TEAM not null)
WITHIN TEAM, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: CURRENT PRACTITIONER// (All CURRENT PRACTITIONER (includes nulls))
WITHIN CURRENT PRACTITIONER, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
Patients with extended inactivations
SCMC EXTENDED BY CLINIC JAN 20, 2004@06:22 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Clinic: "//
WITHIN SORT FIELD 2, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC EXTENDED BY TEAM JAN 20, 2004@07:45 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Team: "//
WITHIN SORT FIELD 2, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC FLAGGED MAR 12, 2004@13:05 USER #0
SORT BY: @'DATE FLAGGED FOR INACTIVATION// (DATE FLAGGED FOR INACTIVATION not null)
WITHIN DATE FLAGGED FOR INACTIVATION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: TEAM ASSIGNMENT// (TEAM ASSIGNMENT not null)
WITHIN TEAM ASSIGNMENT, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC FLAGGED BULLETIN MAR 30, 2004@09:31 USER #0
SORT BY: @'DATE FLAGGED FOR INACTIVATION// (DATE FLAGGED FOR INACTIVATION not null)
WITHIN DATE FLAGGED FOR INACTIVATION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: TEAM ASSIGNMENT// (TEAM ASSIGNMENT not null)
WITHIN TEAM ASSIGNMENT, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC FLAGGED BY CLINIC JAN 21, 2004@15:41 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Clinic: "//
WITHIN SORT FIELD 2, SORT BY: @SCHEDULED INACTIVATION DATE// (SCHEDULED INACTIVATION DATE not null)
WITHIN SCHEDULED INACTIVATION DATE, SORT BY: @PATIENT TEAM ASSIGNMENT// (PATIENT TEAM ASSIGNMENT not null)
SCMC FLAGGED BY TEAM JAN 21, 2004@14:54 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Team: "//
WITHIN SORT FIELD 2, SORT BY: @SCHEDULED INACTIVATION DATE// (SCHEDULED INACTIVATION DATE not null)
WITHIN SCHEDULED INACTIVATION DATE, SORT BY: @PATIENT TEAM ASSIGNMENT// (PATIENT TEAM ASSIGNMENT not null)
SCMC INACTIVATED JUN 24, 2014@19:11 USER #0
SORT BY: 'STATUS// (STATUS from DC (DISCHARGE FROM CARE) to RP (REQ BY PAT))
WITHIN STATUS, SORT BY: @'POSITION UNASSIGNED DATE// (User is asked range)
WITHIN POSITION UNASSIGNED DATE, SORT BY: TEAM POSITION:;"Institution: "//
TEAM POSITION FIELD: TEAM:INSTITUTION// (TEAM:INSTITUTION not null)
WITHIN TEAM:INSTITUTION, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: TEAM ASSIGNMENT// (TEAM ASSIGNMENT not null)
WITHIN TEAM ASSIGNMENT, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: CURRENT PRACTITIONER// (All CURRENT PRACTITIONER (includes nulls))
WITHIN CURRENT PRACTITIONER, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
Patient inactivated automatically.
SCMC INACTIVATION BY CLINIC JAN 21, 2004@09:39 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Clinic: "//
WITHIN SORT FIELD 2, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC INACTIVATION BY TEAM JAN 21, 2004@09:39 USER #0
SORT BY: SORT FIELD 1;"Institution: "//
WITHIN SORT FIELD 1, SORT BY: SORT FIELD 2;"Team: "//
WITHIN SORT FIELD 2, SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC INACTIVATION SORT MAR 05, 2004@09:33 USER #0
SORT BY: '@POSITION UNASSIGNED DATE// (User is asked range)
WITHIN POSITION UNASSIGNED DATE, SORT BY: @STATUS// (STATUS not null)
SCMC PENDING UNASSIGN JUL 17, 2003@10:01 USER #0
SORT BY: PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: @PATIENT TEAM ASSIGNMENT://
PATIENT TEAM ASSIGNMENT FIELD: PATIENT// (PATIENT not null)
SCMC TOBE INACTIVATED DEC 19, 2005@10:35 USER #0
SORT BY: @SCHEDULED INACTIVATION DATE// (SCHEDULED INACTIVATION DATE from Dec 19,2005 to Feb 17,2006@24:00)
WITHIN SCHEDULED INACTIVATION DATE, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: TEAM// (TEAM not null)
Sort by date flagged by inactivation (t to t+60), institution, and team.
FORM(S)/BLOCK(S):