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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | 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.

Directly Accessed By Routines, Total: 43

Package	Total	Routines
Scheduling	42	SCAPMC11 SCAPMC2 SCAPMC3 SCAPMC7 SCAPMCU1 SCAPMCU2 SCAPMCU4 SCMCBK6 SCMCCV2 SCMCDD1 SCMCEV1 SCMCEV2 SCMCHLB SCMCHLB1 SCMCHLM SCMCHLR2 SCMCHLX1 SCMCLN SCMCMHTC SCMCMU2 SCMCTMU SCMCTMU2 SCMCTPM SCMCTPU SCMCTPU3 SCMCTSK SCMCTSK2 SCMCTSK3 SCMCTSK5 SCMCTSK6 SCMCTSK7 SCMCWAIT SCRPEC2 SCRPM21U SCRPMPSP SCRPMTA SCRPPAT2 SCRPTA2 SCRPU2 SCRPV1A SD53P504 SDWLE5
Registration	1	DGSDUTL

Accessed By FileMan Db Calls, Total: 6

Package	Total	Routines
Scheduling	6	SCMCEV1 SCMCMU2 SCMCTSK SCMCTSK7 SCMCTSKG SCRPM21U

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Scheduling	1	PATIENT TEAM POSITION ASSIGNMENT(#404.43)[.01]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.11, .13]
Registration	1	VA PATIENT(#2)[.01]
Scheduling	1	TEAM(#404.51)[.03]

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA 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 (#74)`
.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 (#74)`
.08	ASSIGNMENT TYPE	0;8	SET	'1' FOR PRIMARY CARE; '99' FOR OTHER; LAST EDITED: `MAR 25, 1996` HELP-PROMPT: `The type of care provided by this assignment.` DESCRIPTION: This field indicates the type of care provided by this assignment. TECHNICAL DESCR: Currently there are only two choices in this set of codes. If additional choices are permited, the GUI forms will have to be updated from a check-box to another display method. 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 DEATH UNASSIGNMENT; 'IU' FOR INACTIVITY UNASSIGNMENT; 'DD' FOR REASSIGNED AFTER DATE OF DEATH REMOVED; LAST EDITED: `AUG 18, 2002` DESCRIPTION: If Inactivity causes this patient to be discharged from this assignment
1	PURPOSE	1;0	WORD-PROCESSING #404.421

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6402	Enterprise Health Management Platform	PATIENT (.01). Access: Read w/Fileman

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All