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

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

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: `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(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^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 (#182), ASTAT (#183)`
.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: `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(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^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)`
.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: `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.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^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: `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",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: `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.`
.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 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)`
.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

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