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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | 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: 77

Package	Total	Routines
Scheduling	58	SCAPMC11 SCAPMC2 SCAPMC3 SCAPMC7 SCAPMCU1 SCAPMCU2 SCAPMCU4 SCMC EXTENDED BULLETIN SCMC EXTENDED BY CLINIC SCMC EXTENDED BY TEAM SCMC FLAGGED SCMC FLAGGED BULLETIN SCMC FLAGGED BY CLINIC SCMC FLAGGED BY TEAM SCMC INACTIVATED SCMC INACTIVATION BY CLINIC SCMC INACTIVATION BY TEAM SCMC PENDING UNASSIGN SCMCBK6 SCMCCV2 SCMCDD1 SCMCEV1 SCMCEV2 SCMCHLB SCMCHLB1 SCMCHLM SCMCHLR2 SCMCHLX1 SCMCLN SCMCMHP2 SCMCMHTC SCMCMU2 SCMCTMU SCMCTMU2 SCMCTPM SCMCTPU SCMCTPU3 SCMCTSK SCMCTSK2 SCMCTSK3 SCMCTSK5 SCMCTSK6 SCMCTSK7 SCMCWAIT SCRPEC2 SCRPM21U SCRPMPSP SCRPMTA SCRPPAT2 SCRPPTA SCRPTA2 SCRPU2 SD53P504 SDWLE5 ^SCPT(404.42 ^SCPT(404.43 SCRPV1A TEAM POSITIONS
Registration	1	DGSDUTL

Accessed By FileMan Db Calls, Total: 9

Package	Total	Routines
Scheduling	6	SCMCEV1 SCMCMU2 SCMCTSK7 SCMCTSKG SCRPM21U SCRPPTA
Virtual Patient Record	2	VPREVNT VPRPCMM
Enterprise Health Management Platform	1	HMPEVNT

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	PATIENT(#2)[.01]
Scheduling	1	TEAM(#404.51)[.03]

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

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

External References

Name	Field # of Occurrence
^%DT	.02+1, .09+1, .12+1, .14+1
EN^DDIOL	.01+1, .02+1, .09+1
Y^DIQ	ID.03+1
$$MAKEOUT^SCMCDD1	.08(XREF 2S)
$$OKPTTM^SCMCTMU	.01+1
TEAMRM^SCMCWAIT	IXACSL+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(404.51	ID.03+1
^SCPT(404.42 - [#404.42]	.01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S) , .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K) , .09+1
^SCTM(404.51 - [#404.51]	ID.03+1

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 6S), .01(XREF 6K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .09+1, .12+1, .14+1
%I	ID.03+1*!
>> C	ID.03+1*
>> DA	.01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S) , .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K) , .08(XREF 2S), .09+1
>> DIC	ID.03+1
SC1	.01+1~, .01(XREF 4S), .01(XREF 4K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S) , .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K)
SC2	.01(XREF 2S), .01(XREF 2K), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 4S), .03(XREF 4K)
SC3	.01(XREF 2S), .01(XREF 2K), .01(XREF 6S), .01(XREF 6K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K)
SC4	.01(XREF 6S), .01(XREF 6K), .02(XREF 2S), .02(XREF 2K), .08(XREF 1S), .08(XREF 1K)
SCDA	.01+1~*
SCN	.01+1~*
>> SCN1	.01+1*
SCX	.08(XREF 2S)
U	ID.02+1, ID.03+1, .01+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S) , .01(XREF 6K), .02+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .08(XREF 1S), .08(XREF 1K), .09+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S) , .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 5S), .03(XREF 5K), .08(XREF 1S), .08(XREF 1K) , .09+1!, .12+1!, .14+1!
X(1	IXACSL+1
X(2	IXACSL+1
>> Y	ID.03+1*, .02+1, .09+1, .12+1, .14+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All