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: ^SCTM(404.52

Package: Scheduling

Global: ^SCTM(404.52

Information

FileMan FileNo	FileMan Filename	Package
404.52	POSITION ASSIGNMENT HISTORY	Scheduling

Description

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.

Accessed By FileMan Db Calls, Total: 13

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 16

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.` 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)`
.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 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(404.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(404.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)`
.03	PRACTITIONER	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) 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)`
.04	STATUS	0;4	SET	**********************REQUIRED FIELD********************** '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(404.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(404.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.`
.05	STATUS REASON	0;5	POINTER TO SCHEDULING REASON FILE (#403.44)	**********************REQUIRED FIELD********************** SCHEDULING REASON(#403.44) 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`
.07	USER ENTERING	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
.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`
.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`
.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`
.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`
.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,.097,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)`
.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)`
.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`
.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 SD5.3297` 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 XMY 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`
.12	TEAMLET POSITION	0;12	SET	'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.`
1	FTEE HISTORY	1;0	DATE Multiple #404.521	404.521 DESCRIPTION: `Historical changes in FTEE values. This is maintained by PCMM Web and should not be edited.`

ICR, Total: 1

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