STANDARD DATA DICTIONARY #404.53 -- PRECEPTOR ASSIGNMENT HISTORY FILE 3/24/25 PAGE 1
STORED IN ^SCTM(404.53, *** 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 preceptor positions 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.
IDENTIFIED BY: EFFECTIVE DATE (#.02)[R], STATUS (#.04)[R], PRECEPTOR TEAM POSITION (#.06)[R]
POINTED TO BY: EVENT POINTER field (#.07) of the PCMM HL7 EVENT File (#404.48)
CROSS
REFERENCED BY: PRECEPTOR TEAM POSITION(AD), TEAM POSITION(AIDT), EFFECTIVE DATE(AIDT1), STATUS(AIDT2),
PRECEPTOR TEAM POSITION(AIDTP), EFFECTIVE DATE(AIDTP1), STATUS(AIDTP2), TEAM POSITION(B),
PRECEPTOR TEAM POSITION(D)
LAST MODIFIED: MAY 4,2017@17:42:53
404.53,.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.
CROSS-REFERENCE: 404.53^B
1)= S ^SCTM(404.53,"B",$E(X,1,30),DA)=""
2)= K ^SCTM(404.53,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 404.53^AIDT^MUMPS
1)= N SC2,SC3 S SC2=$P($G(^SCTM(404.53,DA,0)),U,4) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM
(404.53,"AIDT",X,SC2,-SC3,DA)=""
2)= N SC2,SC3 S SC2=$P($G(^SCTM(404.53,DA,0)),U,4) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM
(404.53,"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.53^.07
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.53,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.53,.01,1,4,1.4)
1.4)= S DIH=$S($D(^SCTM(404.53,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.53,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 is intended to populate the USER ENTERING field of this file. It is to record who
entered this entry.
CROSS-REFERENCE: ^^TRIGGER^404.53^.08
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.53,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X
S DIU=X K Y X ^DD(404.53,.01,1,5,1.1) X ^DD(404.53,.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.53,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.53,DIG=.08 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= DATE
This trigger is intended to populate the date/time entered field. This is the date/time the entry
was added.
404.53,.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 precepting the position.
DESCRIPTION:
This is the date/time that the practitioner took over precepting the position.
CROSS-REFERENCE: 404.53^AIDT1^MUMPS
1)= N SC1,SC2 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"" S ^SCTM(40
4.53,"AIDT",SC1,SC2,-X,DA)=""
2)= N SC1,SC2 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"" K ^SCTM(40
4.53,"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 fo r each of these fields.
CROSS-REFERENCE: 404.53^AIDTP1^MUMPS
1)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" S ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)=""
2)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" K ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)
This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then by -EFFECTIVE DATE (#.02).
There are associated cross references for each of these fields.
404.53,.04 STATUS 0;4 SET (Required)
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: MAY 04, 2017
HELP-PROMPT: This indicates if the preceptor link is active or not.
DESCRIPTION:
This indicates if the preceptor link is active or not.
CROSS-REFERENCE: 404.53^AIDT2^MUMPS
1)= N SC1,SC3 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(40
4.53,"AIDT",SC1,X,-SC3,DA)=""
2)= N SC1,SC3 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(40
4.53,"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 fo r each of these fields.
CROSS-REFERENCE: 404.53^AIDTP2^MUMPS
1)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" S ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)=""
2)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" K ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)
This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then by -EFFECTIVE DATE (#.02).
There are associated cross references for each of these fields.
404.53,.05 STATUS REASON 0;5 POINTER TO SCHEDULING REASON FILE (#403.44)
INPUT TRANSFORM: S DIC("S")="IF $$RSNDICS^SCAPMCU1(""ZM6"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 19, 1999
HELP-PROMPT: This is the reason the preceptor link changed.
DESCRIPTION:
This is the reason the preceptor link changed.
SCREEN: S DIC("S")="IF $$RSNDICS^SCAPMCU1(""ZM6"")"
EXPLANATION: This is the reason the preceptor link changed.
404.53,.06 PRECEPTOR TEAM POSITION 0;6 POINTER TO TEAM POSITION FILE (#404.57) (Required)
LAST EDITED: MAY 04, 2017
HELP-PROMPT: Enter the position that supervises this position.
DESCRIPTION:
This is the preceptor's team position.
CROSS-REFERENCE: 404.53^D
1)= S ^SCTM(404.53,"D",$E(X,1,30),DA)=""
2)= K ^SCTM(404.53,"D",$E(X,1,30),DA)
CROSS-REFERENCE: 404.53^AD^MUMPS
1)= N SC1,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC1=$P(SCX,U) I SC1]"
" S SC6=$P(SCX,U,6) I SC6]"" S ^SCTM(404.53,"AD",SC6,SC1,SC4,DA)=""
2)= N SC1 S SC1="^SCTM(404.53,""AD"")" F S SC1=$Q(@SC1) Q:SC1'["AD" I +$P(SC1,",",6)=DA K @SC1 Q
Sorts for preceptor links from top down. Sorts by preceptor position, precepted position, and
status.
CROSS-REFERENCE: 404.53^AIDTP^MUMPS
1)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" S ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)=""
2)= N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"" S SC2=$P(SCX,U,2) I SC2
]"" S SC6=$P(SCX,U,6) I SC6]"" K ^SCTM(404.53,"AIDTP",SC6,SC4,-SC2,DA)
This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then by -EFFECTIVE DATE (#.02).
There are associated cross references for each of these fields.
404.53,.07 USER ENTERING 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1999
HELP-PROMPT: Enter the user that is responsible for this entry.
DESCRIPTION: This field contains the user that created this entry. It is triggered from the .01 field of this
file.
NOTES: TRIGGERED by the TEAM POSITION field of the PRECEPTOR ASSIGNMENT HISTORY File
404.53,.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: This is the date/time this entry was added.
DESCRIPTION:
This is the date/time this entry was added. It is triggered from the .01 field of this file.
NOTES: TRIGGERED by the TEAM POSITION field of the PRECEPTOR ASSIGNMENT HISTORY File
404.53,200 PRECEPTOR NAME ; COMPUTED
MUMPS CODE: S X=$P($$GETPRTP^SCAPMCU2($P(^SCTM(404.53,D0,0),U,6),$P(^SCTM(404.53,D0,0),U,2)),U,2)
ALGORITHM: S X=$P($$GETPRTP^SCAPMCU2($P(^SCTM(404.53,D0,0),U,6),$P(^SCTM(404.53,D0,0),U,2)),U,2)
LAST EDITED: MAR 26, 1999
FILES POINTED TO FIELDS
NEW PERSON (#200) USER ENTERING (#.07)
SCHEDULING REASON (#403.44) STATUS REASON (#.05)
TEAM POSITION (#404.57) TEAM POSITION (#.01)
PRECEPTOR TEAM POSITION (#.06)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):