Global: ^SCTM(404.53

FileMan FileNo	FileMan Filename	Package
404.53	PRECEPTOR ASSIGNMENT HISTORY	Scheduling

Description

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.

Package	Total	Routines
Scheduling	2	SCMCPREC SCRPPRAH

Package	Total	FileMan Files
Scheduling	1	PCMM HL7 EVENT(#404.48)[.07]

Package	Total	FileMan Files
Scheduling	2	TEAM POSITION(#404.57)[.01, .06] SCHEDULING REASON(#403.44)[.05]
Kernel	1	NEW PERSON(#200)[.07]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	TEAM POSITION	0;1	POINTER TO TEAM POSITION FILE (#404.57)	**********************REQUIRED FIELD********************** TEAM POSITION(#404.57) 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.`
.02	EFFECTIVE DATE	0;2	DATE	**********************REQUIRED FIELD********************** 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(404.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(404.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.`
.04	STATUS	0;4	SET	**********************REQUIRED FIELD********************** '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(404.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(404.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.`
.05	STATUS REASON	0;5	POINTER TO SCHEDULING REASON FILE (#403.44)	SCHEDULING REASON(#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.`
.06	PRECEPTOR TEAM POSITION	0;6	POINTER TO TEAM POSITION FILE (#404.57)	**********************REQUIRED FIELD********************** TEAM POSITION(#404.57) 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.`
.07	USER ENTERING	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
.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`
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`

Customize PDF page

Package: Scheduling

Global: ^SCTM(404.53

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 8