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 | All

Print Page as PDF

Global: ^SCPT(404.43

Package: Scheduling

Global: ^SCPT(404.43

Information

FileMan FileNo	FileMan Filename	Package
404.43	PATIENT TEAM POSITION ASSIGNMENT	Scheduling

Description

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.

Directly Accessed By Routines, Total: 54

Package	Total	Routines
Scheduling	52	SCAPMC11 SCAPMC22 SCAPMC23 SCAPMC33 SCAPMC34 SCAPMCA1 SCAPMCU1 SCAPMCU2 SCMCCV2 SCMCCV4 SCMCCV6 SCMCDD1 SCMCHLB SCMCHLB2 SCMCHLM SCMCHLR SCMCHLR2 SCMCHLRR SCMCHLX1 SCMCHLZ SCMCLN SCMCMHTC SCMCMU2 SCMCTMU SCMCTMU2 SCMCTPU SCMCTPU2 SCMCTPU3 SCMCTSK SCMCTSK1 SCMCTSK2 SCMCTSK3 SCMCTSK5 SCMCTSK6 SCMCTSK7 SCMCTSK9 SCMCTSKG SCMCWAIT SCRPM21U SCRPMPSP SCRPMTA SCRPO2 SCRPO4 SCRPO7 SCRPPAT2 SCRPTA2 SCRPTP3 SCRPV1A SCUTBK11 SD53P177 SD53P499 SD53P504
Clinical Reminders	1	PXRMXAP
Registration	1	DGSDUTL

Accessed By FileMan Db Calls, Total: 14

Package	Total	Routines
Scheduling	14	SCMCCV1 SCMCHLZ SCMCLN SCMCMHTC SCMCMU2 SCMCTSK SCMCTSK1 SCMCTSK2 SCMCTSK7 SCMCTSK9 SCMCTSKG SCRPM21U SCRPO5 SD53P177

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Scheduling	2	PCMM HL7 TRANSMISSION LOG(#404.471)[.07] PCMM HL7 EVENT(#404.48)[.07]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Scheduling	2	PATIENT TEAM ASSIGNMENT(#404.42)[.01] TEAM POSITION(#404.57)[.02]
Kernel	1	NEW PERSON(#200)[.06, .08, .16]

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	PATIENT TEAM ASSIGNMENT	0;1	POINTER TO PATIENT TEAM ASSIGNMENT FILE (#404.42)	**********************REQUIRED FIELD********************** PATIENT TEAM ASSIGNMENT(#404.42) LAST EDITED: `OCT 07, 2002` 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(404.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(404.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 SCDFN=$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 SCDFN=$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 SC4=$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 SC4=$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^AEVENT1^MUMPS` 1)= D PTPXREF^SCMCHLX(DA) 2)= D PTPXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited. 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 SC4']"" 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 SC4']"" 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 (#75), ASTAT (#76)`
.02	TEAM POSITION	0;2	POINTER TO TEAM POSITION FILE (#404.57)	**********************REQUIRED FIELD********************** TEAM POSITION(#404.57) INPUT TRANSFORM: `S DIC("S")="I $$OKTP^SCMCTPU(DA,Y)"` LAST EDITED: `JUL 31, 2002` 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(404.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(404.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 SCDFN=$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 SCDFN=$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^AEVENT3^MUMPS` 1)= D PTPXREF^SCMCHLX(DA) 2)= D PTPXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited. RECORD INDEXES: `AC (#75)`
.03	POSITION ASSIGNED DATE	0;3	DATE	**********************REQUIRED FIELD********************** 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: `JUL 23, 1999` 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.43,"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.43,"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^AEVENT4^MUMPS` 1)= D PTPXREF^SCMCHLX(DA) 2)= D PTPXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited. 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",SCDFN,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",SCDFN,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.
.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:'$$OKINTP^SCMCTPU(SCNODE,SC1) X` LAST EDITED: `JUL 23, 1999` 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^AEVENT5^MUMPS` 1)= D PTPXREF^SCMCHLX(DA) 2)= D PTPXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited. 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",SCDFN,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",SCDFN,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.
.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: `AUG 02, 1999` 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^AEVENT2^MUMPS` 1)= D PTPXREF^SCMCHLX(DA) 2)= D PTPXREF^SCMCHLX(DA,X) Trigger an entry into PCMM HL7 EVENT file when this field is edited. 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.
.06	USER ENTERING	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.
.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.
.08	LAST EDITED BY	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.
.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.
.12	STATUS	0;12	SET	'DU' FOR DEATH INACTIVATION; 'NA' FOR NO APPT INACTIVATION; 'DD' FOR REASIGNED AFTER DATE OF DEATH REMOVED; LAST EDITED: `MAY 26, 2004` DESCRIPTION: Status of this assignment if action on this assignment was made either by entering Date of Death, removing Date of Death, or because position was inactivated by patient inactivity. CROSS-REFERENCE: `404.43^ASTAT^MUMPS` 1)= S ^SCPT(404.43,"ASTAT",$P($G(^SCPT(404.43,DA,0)),U,1),X,DA)="" 2)= K ^SCPT(404.43,"ASTAT",$P($G(^SCPT(404.43,DA,0)),U,1),X,DA) 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 (#76)`
.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
.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
.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
.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.
.16	EXTENDED BY	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 28, 2003` HELP-PROMPT: `Person who filed extension of inactivation` DESCRIPTION: Automatically filed with extension
.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

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2811	CLINICAL REMINDERS	TEAM POSITION (.02). Access: Direct Global 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 | All