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  | All
Print Page as PDF
Global: ^SCTM(404.53

Package: Scheduling

Global: ^SCTM(404.53


Information

FileMan FileNo FileMan Filename Package
404.53 PRECEPTOR ASSIGNMENT HISTORY Scheduling

Description

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Scheduling 2 SCMCPREC    SCRPPRAH    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 3

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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All