Global: ^SCTM(404.52

FileMan FileNo	FileMan Filename	Package
404.52	POSITION ASSIGNMENT HISTORY	Scheduling

Package	Total	Routines
Scheduling	39	FTEE HISTORY SC INACTIVATED SC PROVIDER FLAGGED SC PROVIDER FLAGGED BULLE SCAPMC12 SCAPMC13 SCAPMC19 SCAPMC8 SCMC FTEE AND PANEL SIZE SCMC PROVIDER INACTIVATED SCMCCV5 SCMCFTEE SCMCHLB SCMCHLL SCMCHLP SCMCHLR2 SCMCHLR3 SCMCHLR9 SCMCHLX1 SCMCMHTC SCMCMHU1 SCMCPT6 SCMCQK1 SCMCQK2 SCMCTSK SCMCTSK1 SCMCTSK2 SCMCTSK3 SCMCTSK6 SCMCTSKG SCMCTSKI SCMCWAIT SCMCYPC SCRPPAHS SCRPSLT2 SCRPU1 TEAM POSITIONS ^SCTM(404.52 SD53A204
Virtual Patient Record	2	VPRIDX VPRPCMM

Package	Total	Routines
Scheduling	12	SCMCCV5 SCMCHLR2 SCMCHLR3 SCMCHLR9 SCMCMHTC SCMCQK1 SCMCQK2 SCMCTSK2 SCMCTSK6 SCMCTSKG SCRPPAHS SD53P603
Virtual Patient Record	1	VPRIDX

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	TEAM POSITION(#404.57)[.01] SCHEDULING REASON(#403.44)[.05]
Kernel	1	NEW PERSON(#200)[.03, .07, #404.521(.03)]

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

Name	Field # of Occurrence
^%DT	.02+1, .08+1, .091+1
NOW^%DTC	.01(XREF 5n1.1)
^DIC	.03+1, .05+1
^DICR	.01(XREF 4n1.4), .01(XREF 5n1.4)
Y^DIQ	ID.03+1
$$PCPOSCNT^SCAPMCU1	.098+1
POSBXREF^SCMCHLX	.01(XREF 7K)
^XMB	.11(XREF 1S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 4n1.4), .01(XREF 5n1.4)
^DD(200	ID.03+1
^DD(404.52	.01(XREF 4S), .01(XREF 5S), .096+1, .097+1, .099+1, .099OF9.2+1, .099OF9.3+1, .099OF9.4+1
^SC - [#44]	.099OF9.4+1
^SCTM(404.52 - [#404.52]	IXADPSL+1*, IXADPKL+1!, IXADPKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S) , .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .091(XREF 1S) , .091(XREF 1K), .097OF9.2+1, .098+1, .099OF9.2+1, .11(XREF 1n1.001), .11(XREF 1n1.002)
^SCTM(404.57 - [#404.57]	.097+1, .097OF9.2+1, .11(XREF 1n1.002)
^VA(200 - [#200]	ID.03+1, .11(XREF 1n1.001)
^XMB(3.6 - [#3.6]	.11(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 5n1.1)
>> %DT	.02+1, .08+1, .091+1*
%H	.01(XREF 5n1.1)
%I	ID.03+1*!, .01(XREF 5n1.1)
>> C	ID.03+1*
>> D0	.01(XREF 4S), .01(XREF 5S), .097+1, .097OF9.2+1, .098+1, .099OF9.2+1, .11(XREF 1S), .11(XREF 1n1.001), .11(XREF 1n1.002)
>> DA	IXADPSL+1, IXADPKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 5S), .01(XREF 6S), .01(XREF 6K) , .01(XREF 7K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .091(XREF 1S), .091(XREF 1K), .11(XREF 1S)
DIC	ID.03+1, ID.04+1, .03+1!, .05+1!
DIC("S"	.03+1, .03SCR+1, .05+1, .05SCR+1
>> DIE	.03+1, .05+1
>> DIG	.01(XREF 4n1.4), .01(XREF 5n1.4)
>> DIH	.01(XREF 4n1.4), .01(XREF 5n1.4)
>> DIU	.01(XREF 4S), .01(XREF 5S)
DIV	.01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.1), .01(XREF 5n1.4)
DIV(0	.01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.4)
DT	.098+1
DUZ	.01(XREF 4S)
SC1	.02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)
SC2	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
SC3	.01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K)
U	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.4), .02(XREF 1S), .02(XREF 1K) , .04(XREF 1S), .04(XREF 1K), .096+1, .097+1, .097OF9.2+1, .099OF9.2+1, .099OF9.3+1, .099OF9.4+1, .11(XREF 1n1.001), .11(XREF 1n1.002)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5n1.1), .01(XREF 5n1.4), .01(XREF 6S) , .01(XREF 6K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .05+1! , .08+1!, .09+1!, .091+1!, .091(XREF 1S), .091(XREF 1K), .096+1, .097+1, .098+1, .099+1, .099OF9.2+1 , .099OF9.3+1, .099OF9.4+1, .11(XREF 1S), .11(XREF 1n1.001), .11(XREF 1n1.002)
X(1	IXADPSL+1, IXADPKL+1
X(2	IXADPSL+1, IXADPKL+1
XMB	.11(XREF 1S)
XMB(1	.11(XREF 1n1.001)
XMB(2	.11(XREF 1n1.002)
XMY	.11(XREF 1S)
Y	ID.03+1, .01(XREF 4S), .01(XREF 5S), .02+1, .03+1, .05+1, .08+1, .091+1, .099OF9.3+1, .11(XREF 1S)
Y(	.096+1, .097+1, .097OF9.2+1, .099+1, .099OF9.2+1, .099OF9.3+1, .099OF9.4+1*
Y(0	.11(XREF 1S), .11(XREF 1n1.001), .11(XREF 1n1.002)
Y(1	.01(XREF 4S), .01(XREF 5S), .11(XREF 1n1.001), .11(XREF 1n1.002)

Customize PDF page

Package: Scheduling

Global: ^SCTM(404.52

Information

Description

Directly Accessed By Routines, Total: 62

Accessed By FileMan Db Calls, Total: 13

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: