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

Package: Scheduling

Global: ^SCTM(404.59


Information

FileMan FileNo FileMan Filename Package
404.59 TEAM POSITION HISTORY Scheduling

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Scheduling 7 SCAPMC17    ^SCTM(404.59    SCAPMC24    SCRPTPHS    SD53P504    SDWLQSC    TEAM POSITIONS    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Scheduling 3 SCRPTPHS    SD53P504    SDWLQSC    

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

Package Total FileMan Files
Scheduling 2 TEAM POSITION(#404.57)[.01]    SCHEDULING REASON(#403.44)[.04]    

Fields, Total: 4

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:  AUG 07, 1995
  • HELP-PROMPT:  This is the position on the team.
  • DESCRIPTION:  
    This is the position on the team that is either being activated or inactivated.
  • CROSS-REFERENCE:  404.59^B
    1)= S ^SCTM(404.59,"B",$E(X,1,30),DA)=""
    2)= K ^SCTM(404.59,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  404.59^AIDT^MUMPS
    1)= N SC2,SC3 S SC2=$P($G(^SCTM(404.59,DA,0)),U,3) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(404.59,"AIDT",X,SC2,-SC3,DA)=""
    2)= N SC2,SC3 S SC2=$P($G(^SCTM(404.59,DA,0)),U,3) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM(404.59,"AIDT",X,SC2,-SC3,DA)
    This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02). There are associated cross references for each of these fields.
.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 11, 1995
  • HELP-PROMPT:  This is the date that the team position's status changed.
  • DESCRIPTION:  
    This is the date that the team position's status changed.
  • CROSS-REFERENCE:  404.59^AIDT2^MUMPS
    1)= N SC1,SC2 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"" S ^SCTM(404.59,"AIDT",SC1,SC2,-X,DA)=""
    2)= N SC1,SC2 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"" K ^SCTM(404.59,"AIDT",SC1,SC2,-X,DA)
    This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02). There are associated cross references for each of these fields.
.03 STATUS 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR ACTIVE;
  • '0' FOR INACTIVE;

  • LAST EDITED:  MAR 23, 2003
  • HELP-PROMPT:  This indicates if the team position is active or inactive.
  • DESCRIPTION:  
    This indicates if the team position is active or inactive.
  • CROSS-REFERENCE:  404.59^AIDT1^MUMPS
    1)= N SC1,SC3 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(404.59,"AIDT",SC1,X,-SC3,DA)=""
    2)= N SC1,SC3 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM(404.59,"AIDT",SC1,X,-SC3,DA)
    This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02). There are associated cross references for each of these fields.
.04 STATUS REASON 0;4 POINTER TO SCHEDULING REASON FILE (#403.44)
************************REQUIRED FIELD************************
SCHEDULING REASON(#403.44)

  • INPUT TRANSFORM:  S DIC("S")="I $$RSNDICS^SCAPMCU1(""ZM3"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 14, 1995
  • HELP-PROMPT:  This is the reason that the activation/inactivation status changed.
  • DESCRIPTION:  
    This is the reason that the activation/inactivation status changed.
  • SCREEN:  S DIC("S")="I $$RSNDICS^SCAPMCU1(""ZM3"")"
  • EXPLANATION:  Requires Scheduling Reason's Scheduling Event Code to be TEAM POSITION ADD/MODIFY

External References

Name Field # of Occurrence
^%DT .02+1
^DIC .04+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SCTM(404.59 - [#404.59] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC ID.03+1, .04+1!*
DIC("S" .04+1*, .04SCR+1*
>> DIE .04+1
SC1 .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
SC2 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
SC3 .01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
U ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04+1*!
>> Y .02+1, .04+1
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