STANDARD DATA DICTIONARY #404.52 -- POSITION ASSIGNMENT HISTORY FILE 3/24/25 PAGE 1
STORED IN ^SCTM(404.52, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This table holds the history of which users were assigned to each Team Position and when. 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.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: EFFECTIVE DATE (#.02)[R], PRACTITIONER (#.03)[R], STATUS (#.04)[R]
POINTED TO BY: WORKLOAD EVENT POINTER field (#.07) of the PCMM HL7 TRANSMISSION LOG File (#404.471)
EVENT POINTER field (#.07) of the PCMM HL7 EVENT File (#404.48)
CROSS
REFERENCED BY: DATE FLAGGED FOR INACTIVATION(AFLAG), TEAM POSITION(AIDT), EFFECTIVE DATE(AIDT1), STATUS(AIDT2),
TEAM POSITION(AWRK), TEAM POSITION(B), PRACTITIONER(C)
INDEXED BY: EFFECTIVE DATE & TEAM POSITION (ADP)
LAST MODIFIED: MAY 4,2017@17:42:53
404.52,.01 TEAM POSITION 0;1 POINTER TO TEAM POSITION FILE (#404.57) (Required)
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This is the entry in the Team Position file.
DESCRIPTION:
This is the entry in the Team Position file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.52^B
1)= S ^SCTM(404.52,"B",$E(X,1,30),DA)=""
2)= K ^SCTM(404.52,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 404.52^AIDT^MUMPS
1)= N SC2,SC3 S SC2=$P($G(^SCTM(404.52,DA,0)),U,4) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM
(404.52,"AIDT",X,SC2,-SC3,DA)=""
2)= N SC2,SC3 S SC2=$P($G(^SCTM(404.52,DA,0)),U,4) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM
(404.52,"AIDT",X,SC2,-SC3,DA)
This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02). There are
associated cross references for each of these fields.
CROSS-REFERENCE: ^^TRIGGER^404.52^.07
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X
S DIU=X K Y S X=DIV S X=DUZ X ^DD(404.52,.01,1,4,1.4)
1.4)= S DIH=$S($D(^SCTM(404.52,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.52,DIG=.07 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= user
This trigger updates the field USER ENTERING. It is intended to record who entered the record.
CROSS-REFERENCE: ^^TRIGGER^404.52^.08
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X
S DIU=X K Y X ^DD(404.52,.01,1,5,1.1) X ^DD(404.52,.01,1,5,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^SCTM(404.52,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.52,DIG=.08 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= date
This cross reference is intended to record when the entry is added.
CROSS-REFERENCE: 404.52^AWRK
1)= S ^SCTM(404.52,"AWRK",$E(X,1,30),DA)=""
2)= K ^SCTM(404.52,"AWRK",$E(X,1,30),DA)
Keep track of workload on deletion
CROSS-REFERENCE: 404.52^AWRK^MUMPS
1)= Q
2)= D POSBXREF^SCMCHLX(DA,404.52)
Keep track of workload on deletion
RECORD INDEXES: ADP (#468)
404.52,.02 EFFECTIVE DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This is the date/time that the practitioner took over the position.
DESCRIPTION:
This is the date/time that the practitioner took over the team position.
CROSS-REFERENCE: 404.52^AIDT1^MUMPS
1)= N SC1,SC2 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"" S ^SCTM(40
4.52,"AIDT",SC1,SC2,-X,DA)=""
2)= N SC1,SC2 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"" K ^SCTM(40
4.52,"AIDT",SC1,SC2,-X,DA)
This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02). There are
associated cross references for each of these fields.
RECORD INDEXES: ADP (#468)
404.52,.03 PRACTITIONER 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM: S DIC("S")="I ($D(^USR(8930.3,""B"",+Y)))!('$$USEUSR^SCMCTPU)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This is the practitioner that holds the position.
DESCRIPTION:
This is a staff member who is entered in the USR CLASS MEMBERSHIP file (8930.3).
TECHNICAL DESCR:
Screen insures entry in 8930.3
SCREEN: S DIC("S")="I ($D(^USR(8930.3,""B"",+Y)))!('$$USEUSR^SCMCTPU)"
EXPLANATION: This assures that the practitioner is in the USR Class Membership file (8930.3)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 404.52^C
1)= S ^SCTM(404.52,"C",$E(X,1,30),DA)=""
2)= K ^SCTM(404.52,"C",$E(X,1,30),DA)
404.52,.04 STATUS 0;4 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This indicates if the practitioner's position assignment is active or inactive.
DESCRIPTION:
This indicates whether the practitioner's position assignment is active or inactive.
CROSS-REFERENCE: 404.52^AIDT2^MUMPS
1)= N SC1,SC3 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(40
4.52,"AIDT",SC1,X,-SC3,DA)=""
2)= N SC1,SC3 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM(40
4.52,"AIDT",SC1,X,-SC3,DA)
This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02). There are
associated cross references for each of these fields.
404.52,.05 STATUS REASON 0;5 POINTER TO SCHEDULING REASON FILE (#403.44) (Required)
INPUT TRANSFORM: S DIC("S")="IF $$RSNDICS^SCAPMCU1(""ZM5"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: This is the reason that the position assignment changed.
DESCRIPTION:
This is the reason that the position assignment changed.
SCREEN: S DIC("S")="IF $$RSNDICS^SCAPMCU1(""ZM5"")"
EXPLANATION: This is the reason that the position assignment changed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
404.52,.07 USER ENTERING 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1999
HELP-PROMPT: Enter the name of the person responsible for entering this entry.
DESCRIPTION: This field is a pointer to the person responsible for entering this entry. It is triggered by the
.01 field.
NOTES: TRIGGERED by the TEAM POSITION field of the POSITION ASSIGNMENT HISTORY File
404.52,.08 DATE/TIME ENTERED 0;8 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 30, 1999
HELP-PROMPT: Enter the date this entry was created.
DESCRIPTION: This field contains the date/time this entry was added to this file. It is triggered from the .01
field.
NOTES: TRIGGERED by the TEAM POSITION field of the POSITION ASSIGNMENT HISTORY File
404.52,.09 FTEE EQUIVALENT 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 04, 2017
HELP-PROMPT: Type a Number between 0 and 1, 2 Decimal Digits. Total for site cannot exceed 1.
DESCRIPTION:
Workload measurement. This information is transmitted in the HL7 workload message.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
404.52,.091 DATE FLAGGED FOR INACTIVATION 0;10 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 24, 2004
DESCRIPTION: Practitioners may be flagged for inactivation if their person class is inconsistent with the
position role and primary care designation. The flagging of providers is handled by PCMM NIGHTLY
TASK option.
CROSS-REFERENCE: 404.52^AFLAG
1)= S ^SCTM(404.52,"AFLAG",$E(X,1,30),DA)=""
2)= K ^SCTM(404.52,"AFLAG",$E(X,1,30),DA)
Track positions designated for inactivation
404.52,.096 AVAILABLE POSITIONS ; COMPUTED
MUMPS CODE: X "N I,Y "_$P(^DD(404.52,.097,0),U,5,99) S Y(404.52,.096,1)=X X "N I,Y "_$P(^DD(404.52,.098,0),U,5,
99) S Y(404.52,.096,2)=X S X=Y(404.52,.096,1)-Y(404.52,.096,2)
ALGORITHM: MAX-CURR
LAST EDITED: MAR 22, 2004
404.52,.097 MAX NUMBER OF PATIENTS ; COMPUTED
MUMPS CODE: X ^DD(404.52,.097,9.2) S Y(404.52,.097,101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"") S X=$P(Y(404.52,.0
97,101),U,8) S D0=Y(404.52,.097,80) S X=$J(X,0,0)
9.2 = S Y(404.52,.097,80)=$G(D0),Y(404.52,.097,1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:""),D0=$P(Y(404.
52,.097,1),U,1) S:'D0!'$D(^SCTM(404.57,+D0,0)) D0=-1
ALGORITHM: TEAM POSITION:MAX (ALWAYS 0 DECIMAL DIGITS)
404.52,.098 CURRENT ACTIVE PATIENTS ; COMPUTED
MUMPS CODE: S X=$$PCPOSCNT^SCAPMCU1(+$G(^SCTM(404.52,D0,0)),DT,0)
ALGORITHM: S X=$$PCPOSCNT^SCAPMCU1(+$G(^SCTM(404.52,D0,0)),DT,0)
404.52,.099 ADJUSTED PANEL SIZE ; COMPUTED
MUMPS CODE: X ^DD(404.52,.099,9.3) S Y(404.52,.099,5)=$G(X) S X=0,X=$J(Y(404.52,.099,4),Y(404.52,.099,5),X) S X
=$J(X,0,0)
9.2 = X "N I,Y "_$P(^DD(404.52,.098,0),U,5,99) S Y(404.52,.099,1)=X S Y(404.52,.099,3)=$S($D(^SCTM(
404.52,D0,0)):^(0),1:"") S X=Y(404.52,.099,1)
9.3 = X ^DD(404.52,.099,9.2) S Y(404.52,.099,2)=$G(X) S X=$P(Y(404.52,.099,3),U,9),Y=X,X=Y(404.52,.
099,2),X=X,X=$S(Y:X/Y,1:"*******"),Y(404.52,.099,4)=$G(X) S X=0
9.4 = X ^DD(404.52,.099,9.3) S Y(404.52,.099,101)=$G(X) S X=Y(404.52,.099,102),Y(404.52,.099,103)=$
G(X) S X=$P($G(^SC(+$P(Y(404.52,.099,104),U,9),0)),U)
ALGORITHM: $J((#.098)/(#.09),0,0) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: MAR 22, 2004
SUM: S X=S("404.52^.098"),Y(1)=$G(X) S X=S("404.52^.09"),Y=X,X=Y(1),X=X,X=$S(Y:X/Y,1:"*******"),Y(2)=$G(
X) S X=0,Y(3)=$G(X) S X=0,X=$J(Y(2),Y(3),X) S Y=X
404.52,.11 INACTIVATED AUTOMATICALLY 0;11 SET
'1' FOR YES;
LAST EDITED: APR 02, 2004
HELP-PROMPT: Set by background job on inactivated providers
DESCRIPTION: Set by background job. Do not edit This is set by the PCMM NIGHTLY TASK option when a flagged
record remains inconsistent 6 months after installation of patch SD*5.3*297
CROSS-REFERENCE: ^^BULLETIN MESSAGE
1)= S Y(0)=X,D0=DA X "N DIIND F DIIND=1.001:.001 Q:$D(^DD(404.52,.11,1,1,DIIND))[0 X ^(DIIND)" K X
MY S XMB="SCMC PROVIDER INACTIVATION" D ^XMB:$D(^XMB(3.6,"B",XMB)) K Y,XMB
1.001)= S X=Y(0) S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U)
S XMB(1)=X
1.002)= S X=Y(0) S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0
)),U) S XMB(2)=X
2)= Q
CREATE PARAMETER #1)= PRACTI
CREATE PARAMETER #2)= TEAM POS
CREATE VALUE)= SCMC PROVIDER INACTIVATION
DELETE VALUE)= NO EFFECT
404.52,.12 TEAMLET POSITION 0;12 SET
Teamlet position
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 18, 2015
HELP-PROMPT: Is the position a teamlet position?
DESCRIPTION: Historically, a patient encounter with a primary care provider or similar was necessary for that
patient to avoid being inactivated from PCMM. With the implementation of PCMMR this proviso was
changed to include any provider assigned to a teamlet-designated position.
404.52,1 FTEE HISTORY 1;0 DATE Multiple #404.521 (Add New Entry without Asking)
DESCRIPTION:
Historical changes in FTEE values. This is maintained by PCMM Web and should not be edited.
404.521,.01 FTEE HISTORY 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 13, 2015
HELP-PROMPT: Enter the current date/time.
DESCRIPTION:
Record of changes in FTEE. This is maintained by PCMM Web and should not be edited.
CROSS-REFERENCE: 404.521^B
1)= S ^SCTM(404.52,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^SCTM(404.52,DA(1),1,"B",$E(X,1,30),DA)
404.521,.02 VALUE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JAN 13, 2015
HELP-PROMPT: Type a Number between 0 and 1, 2 Decimal Digits
DESCRIPTION:
Historical record of FTEE changes. This is maintained by PCMM Web and should not be edited.
404.521,.03 USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 13, 2015
HELP-PROMPT: Enter the name of the person updating FTEE history.
DESCRIPTION:
User making changes to FTEE. This is maintained by PCMM Web and should not be edited.
FILES POINTED TO FIELDS
NEW PERSON (#200) PRACTITIONER (#.03)
USER ENTERING (#.07)
FTEE HISTORY:USER (#.03)
SCHEDULING REASON (#403.44) STATUS REASON (#.05)
TEAM POSITION (#404.57) TEAM POSITION (#.01)
File #404.52
Record Indexes:
ADP (#468) RECORD REGULAR IR SORTING ONLY
Short Descr: Sort Assignments by Date & Position
Description: This regular index sorts assignment changes by Effective Date and Position.
Set Logic: S ^SCTM(404.52,"ADP",X(1),X(2),DA)=""
Kill Logic: K ^SCTM(404.52,"ADP",X(1),X(2),DA)
Whole Kill: K ^SCTM(404.52,"ADP")
X(1): EFFECTIVE DATE (404.52,.02) (Subscr 1) (forwards)
X(2): TEAM POSITION (404.52,.01) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SC INACTIVATED SEP 22, 2005@10:17 USER #0 Primary Care Staff Inactivated
SC PROVIDER FLAGGED JUL 11, 2008@09:43 USER #0 Primary Care Staff Scheduled for Inactivation
SCMC FTEE 1 CLN FEB 27, 2012@13:17 USER #0 ^SCMCPT6 PANEL FTEE AND SIZE REPORT
SCMC FTEE AND PANEL SIZE FEB 27, 2012@12:01 USER #0 ^SCMCYPC FTEE AND PANEL SIZE REPORT
SORT TEMPLATE(S):
SC INACTIVATED MAY 20, 2004@07:45 USER #0
SORT BY: @INACTIVATED AUTOMATICALLY// (INACTIVATED AUTOMATICALLY not null)
WITHIN INACTIVATED AUTOMATICALLY, SORT BY: TEAM POSITION:;"INSTITUTION: "//
TEAM POSITION FIELD: TEAM:INST// (User is asked range)
WITHIN TEAM:INST, SORT BY: PRACTITIONER// (PRACTITIONER not null)
WITHIN PRACTITIONER, SORT BY: TEAM POSITION// (TEAM POSITION not null)
SC PROVIDER FLAGGED APR 08, 2004@11:50 USER #0
SORT BY: '@DATE FLAGGED FOR INACTIVATION// (DATE FLAGGED FOR INACTIVATION not null)
WITHIN DATE FLAGGED FOR INACTIVATION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (User is asked range)
WITHIN INSTITUTION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: TEAM// (TEAM not null)
WITHIN TEAM, SORT BY: PRACTITIONER// (PRACTITIONER not null)
SC PROVIDER FLAGGED BULLE MAR 30, 2004@10:48 USER #0
SORT BY: @DATE FLAGGED FOR INACTIVATION// (DATE FLAGGED FOR INACTIVATION not null)
WITHIN DATE FLAGGED FOR INACTIVATION, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: INSTITUTION// (INSTITUTION not null)
WITHIN INSTITUTION, SORT BY: @TEAM POSITION// (TEAM POSITION not null)
WITHIN TEAM POSITION, SORT BY: @PRACTITIONER// (PRACTITIONER not null)
SCMC FTEE AND PANEL SIZE APR 21, 2003@09:10 USER #0
SORT BY: TEAM POSITION:;"INSTITUTION: "//
TEAM POSITION FIELD: ($P(INSTITUTION,",")_" "_$P(INSTITUTION,",",2,9))// (User is asked range)
WITHIN ($P(INSTITUTION,",")_" "_$P(INSTITUTION,",",2,9)), SORT BY: +PRACTITIONER// (PRACTITIONER not null)
WITHIN PRACTITIONER, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: POSITION// (POSITION not null)
WITHIN POSITION, SORT BY: @D @("SCREEN"_U_"SCMCTSK")// (D @(""SCREEN""_U_""SCMCTSK"") equals 1)
Patient FTEE for Active assignments and Panel Size.
SCMC PROVIDER INACTIVATED MAR 16, 2004@10:42 USER #0
SORT BY: INACTIVATED AUTOMATICALLY// (INACTIVATED AUTOMATICALLY not null)
WITHIN INACTIVATED AUTOMATICALLY, SORT BY: TEAM POSITION://
TEAM POSITION FIELD: TEAM:INST// (TEAM:INST not null)
WITHIN TEAM:INST, SORT BY: PRACTITIONER// (PRACTITIONER not null)
WITHIN PRACTITIONER, SORT BY: TEAM POSITION// (TEAM POSITION not null)
FORM(S)/BLOCK(S):