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

Accessed By FileMan Db Calls, Total: 13

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

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: 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 SD*5.3*297
  • 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

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #7174
  • Virtual Patient Record
    		•  Use of the ADP index to find position changes for a daterange.
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All