Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | 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.

Directly Accessed By Routines, Total: 29

Package	Total	Routines
Scheduling	29	SC53272P SCAPMC12 SCAPMC13 SCAPMC19 SCAPMC8 SCMCCV5 SCMCHLB SCMCHLL SCMCHLP SCMCHLR2 SCMCHLR3 SCMCHLR9 SCMCHLX1 SCMCMHTC SCMCPT6 SCMCQK1 SCMCQK2 SCMCTSK SCMCTSK1 SCMCTSK2 SCMCTSK3 SCMCTSK6 SCMCTSKG SCMCTSKI SCMCWAIT SCMCYPC SCRPSLT2 SCRPU1 SD53A204

Accessed By FileMan Db Calls, Total: 10

Package	Total	Routines
Scheduling	10	SCMCCV5 SCMCHLR2 SCMCHLR3 SCMCHLR9 SCMCMHTC SCMCQK1 SCMCQK2 SCMCTSK2 SCMCTSK6 SCMCTSKG

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Scheduling	2	PCMM HL7 TRANSMISSION LOG(#404.471)[.07] PCMM HL7 EVENT(#404.48)[.07]

Pointer To FileMan Files, Total: 3

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: 15

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: `MAR 23, 2003` 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: `404.52^AEVENT1^MUMPS` 1)= D POSHXREF^SCMCHLX(DA) 2)= D POSHXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited. 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 S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) 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
.02	EFFECTIVE DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 08, 1995` 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. CROSS-REFERENCE: `404.52^AEVENT2^MUMPS` 1)= D POSHXREF^SCMCHLX(DA) 2)= D POSHXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited.
.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 28, 1996` 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) CROSS-REFERENCE: `404.52^AEVENT3^MUMPS` 1)= D POSHXREF^SCMCHLX(DA) 2)= D POSHXREF^SCMCHLX(DA) Trigger an entry into PCMM HL7 EVENT file when this field is edited.
.04	STATUS	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR ACTIVE; '0' FOR INACTIVE; LAST EDITED: `DEC 16, 2002` 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. CROSS-REFERENCE: `404.52^ASTATUS^MUMPS` 1)= I 'X D POSBXREF^SCMCHLX(DA,404.52) 2)= Q For HL7 Workload Transmission. Creates an entry in PCMM HL7 EVENT file.
.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	PRIMARY CARE FTEE EQUIVALENT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 27, 2004` HELP-PROMPT: `Type a Number between 0 and 1, 2 Decimal Digits Total for site cannot exceed 1` DESCRIPTION: Workload measurement for Primary Care Providers. This information is transmitted in the HL7 workload message. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `404.52^AFTEE^MUMPS` 1)= D POSBXREF^SCMCHLX(DA,404.52) 2)= D POSBXREF^SCMCHLX(DA,404.52) For HL7 Workload transmission. Creates an entry in PCMM HL7 EVENT file. CROSS-REFERENCE: `404.52^FTEXR^MUMPS` 1)= D FTEXR^SCMCTSK 2)= I '$O(^SCTM(404.52,DA,1,0)) D FTEXR^SCMCTSK Keep track of FTEE changes
.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
1	FTEE HISTORY	1;0	DATE Multiple #404.521	404.521 DESCRIPTION: Historical changes in FTEE values. This is set by crossreference, should not be edited.

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All