Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^SCPT(404.42

Package: Scheduling

Global: ^SCPT(404.42

Information

FileMan FileNo	FileMan Filename	Package
404.42	PATIENT TEAM ASSIGNMENT	Scheduling

Description

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.

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) 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(404.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(404.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 SC4=$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 SC4=$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)`
.02	TEAM ASSIGNED DATE	0;2	DATE	**********************REQUIRED FIELD********************** 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.42,"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.42,"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.`
.03	TEAM ASSIGNMENT	0;3	POINTER TO TEAM FILE (#404.51)	TEAM(#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(404.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(404.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)`
.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.`
.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 be 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`
.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.`
.11	USER ENTERING	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
.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.`
.13	LAST EDITED BY	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
.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.`
.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.`
.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.`
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.`

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All