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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 16

Package Total Routines
Scheduling 14 ^SCTM(404.53    SCAPMC8P    SCMCCV3    SCMCHLB    SCMCHLX1    SCMCLK    SCMCPREC    SCMCTSK1
SCMCTSK2    SCMCTSK6    SCRPO4    SCRPPRAH    SCRPV1A    TEAM POSITIONS    

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

External References

Name Field # of Occurrence
^%DT .02+1, .08+1
NOW^%DTC .01(XREF 5n1.1)
^DIC .05+1
^DICR .01(XREF 4n1.4), .01(XREF 5n1.4)
Y^DIQ ID.06+1
$$GETPRTP^SCAPMCU2 200+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 4n1.4), .01(XREF 5n1.4)
^DD(404.53 .01(XREF 4S), .01(XREF 5S)
^DD(404.57 ID.06+1
^SCTM(404.53 - [#404.53] .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), .02(XREF 1S), .02(XREF 1K)
, .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 3S), .06(XREF 4S)
, .06(XREF 4K), 200+1
^SCTM(404.57 - [#404.57] ID.06+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.06+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)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 5n1.1)
>> %DT .02+1*, .08+1*
%H .01(XREF 5n1.1)
%I ID.06+1*!, .01(XREF 5n1.1)
>> C ID.06+1*
>> D0 .01(XREF 4S), .01(XREF 5S), 200+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 5S), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
, .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 3S), .06(XREF 3K), .06(XREF 4S), .06(XREF 4K)
DIC ID.04+1, ID.06+1, .05+1!*
DIC("S" .05+1*, .05SCR+1*
>> DIE .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)
DUZ .01(XREF 4S)
SC1 .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 3S), .06(XREF 3K)
SC2 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K), .06(XREF 4S), .06(XREF 4K)
SC3 .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K)
SC4 .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K), .06(XREF 3S), .06(XREF 4S), .06(XREF 4K)
SC6 .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K), .06(XREF 3S), .06(XREF 4S), .06(XREF 4K)
SCX .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K), .06(XREF 3S), .06(XREF 4S), .06(XREF 4K)
U ID.02+1, ID.06+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)
, .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 3S), .06(XREF 4S), .06(XREF 4K), 200+1
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), .02+1*!
, .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .05+1*!, .06(XREF 1S), .06(XREF 1K), .08+1*!, 200+1*
Y ID.06+1*, .01(XREF 4S), .01(XREF 5S), .02+1, .05+1, .08+1
Y(1 .01(XREF 4S), .01(XREF 5S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All