Global: ^SCPT(404.43

FileMan FileNo	FileMan Filename	Package
404.43	PATIENT TEAM POSITION ASSIGNMENT	Scheduling

Package	Total	Routines
Scheduling	66	SCAPMCU1 SCMC EXTENDED SCMC EXTENDED BY CLINIC SCMC FLAGGED BULLETIN SCMCBK SCMCCV4 SCMCDD1 SCMCHLB SCMCHLM SCMCHLR SCMCHLR2 SCMCHLRR SCMCHLZ SCMCLN SCMCMHTC SCMCMU2 SCMCTMU SCMCTMU2 SCMCTPU3 SCMCTSK SCMCTSK2 SCMCTSK3 SCMCTSK9 SCMCWAIT SCRPO4 SCRPPAT2 SCRPTA2 SCRPTP3 SCRPV1A SD53P177 SD53P297 SD53P499 ^SCPT(404.43 SCAPMC11 SCAPMC22 SCAPMC23 SCAPMC33 SCAPMC34 SCAPMCA1 SCAPMCU2 SCMC EXTENDED BULLETIN SCMC EXTENDED BY TEAM SCMC FLAGGED SCMCCV2 SCMCCV6 SCMCHLB2 SCMCHLX1 SCMCMHO7 SCMCMHP2 SCMCTPU SCMCTPU2 SCMCTSK1 SCMCTSK5 SCMCTSK6 SCMCTSK7 SCMCTSKG SCRPM21U SCRPMPSP SCRPMTA SCRPO2 SCRPO7 SCRPPTPA SCUTBK11 SD53P504 SD53P603 TEAM POSITIONS
Clinical Reminders	1	PXRMXAP
Registration	1	DGSDUTL

Package	Total	Routines
Scheduling	17	SCMCCV1 SCMCHLZ SCMCLN SCMCMHHP SCMCMHTC SCMCMU2 SCMCTSK SCMCTSK1 SCMCTSK2 SCMCTSK7 SCMCTSK9 SCMCTSKG SCRPM21U SCRPO5 SCRPPTPA SD53P177 SD53P603

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

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: `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`

Name	Field # of Occurrence
^%DT	.03+1, .04+1, .07+1, .09+1, .15+1, .17+1
Y^DIQ	ID.02+1
KILLPC^SCMCDD1	.01(XREF 5K), .02(XREF 4K), .03(XREF 3K), .05(XREF 1K)
SETPC^SCMCDD1	.01(XREF 5S), .02(XREF 4S), .03(XREF 3S), .05(XREF 1S)
$$OKACTTP^SCMCTPU	.03+1
$$OKINTP^SCMCTPU	.04+1
INACTDT^SCMCTSK1	.159+1
POSRM^SCMCWAIT	IXACSL+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(404.57	ID.02+1
^SCPT(404.42 - [#404.42]	.01(XREF 4S), .01(XREF 4K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
^SCPT(404.43 - [#404.43]	IXASTATSL+1*, IXASTATKL+1!, IXASTATKEIC+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 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S) , .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1, .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1, .04(XREF 2S) , .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .12(XREF 2S), .12(XREF 2K), .13(XREF 1S) , .13(XREF 1K), .15(XREF 1S), .15(XREF 1K)
^SCTM(404.57 - [#404.57]	ID.02+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .04+1, .07+1, .09+1, .15+1, .17+1
%I	ID.02+1*!
>> C	ID.02+1*
>> D0	.159+1
>> DA	IXASTATSL+1, IXASTATKL+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 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1, .04(XREF 2S), .04(XREF 2K) , .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .12(XREF 2S), .12(XREF 2K), .13(XREF 1S), .13(XREF 1K) , .15(XREF 1S), .15(XREF 1K)
>> DIC	ID.02+1
>> DIC("S"	.02+1, .02SCR+1
ND	.01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K) , .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
SC1	.01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03+1~, .03(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04+1~ , .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
SC2	.01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .02(XREF 2S), .02(XREF 2K), .02(XREF 4S), .02(XREF 4K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K)
SC3	.01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K) , .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K) , .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
SC4	.01(XREF 5S), .01(XREF 5K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K) , .03(XREF 6S), .03(XREF 6K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
SC5	.01(XREF 8S), .01(XREF 8K), .03(XREF 6S), .03(XREF 6K), .04(XREF 3S), .04(XREF 3K)
SCDFN	.01(XREF 4S), .01(XREF 4K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 5S), .03(XREF 5K), .03(XREF 6S), .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 3S), .05(XREF 3K)
SCNODE	.03+1~, .04+1~
U	ID.02+1, .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 7S) , .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S) , .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 5S), .03(XREF 5K), .03(XREF 6S) , .03(XREF 6K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K)
X	.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 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .02(XREF 4S), .02(XREF 4K), .02(XREF 6S), .02(XREF 6K), .03+1!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S) , .03(XREF 3K), .04+1!, .05(XREF 1S), .05(XREF 1K), .05(XREF 3S), .05(XREF 3K), .07+1!, .09+1!, .12(XREF 2S), .12(XREF 2K) , .13(XREF 1S), .13(XREF 1K), .14+1!, .15+1!, .15(XREF 1S), .15(XREF 1K), .17+1!
X(1	IXACSL+1, IXASTATSL+1, IXASTATKL+1
X(2	IXACSL+1, IXASTATSL+1, IXASTATKL+1
>> Y	ID.02+1*, .03+1, .04+1, .07+1, .09+1, .15+1, .17+1

Customize PDF page

Package: Scheduling

Global: ^SCPT(404.43

Information

Description

Directly Accessed By Routines, Total: 85

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 16

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: