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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^SCTM(404.58

Package: Scheduling

Global: ^SCTM(404.58


Information

FileMan FileNo FileMan Filename Package
404.58 TEAM HISTORY Scheduling

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Scheduling 7 SCAPMC15    SCMCCV    SD53P504    SDWLE3    SDWLE6    SDWLQSC    SDWLRQ2    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Scheduling 3 SD53P504    SDWLE6    SDWLQSC    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 4

Field # Name Loc Type Details
.01 TEAM 0;1 POINTER TO TEAM FILE (#404.51)
************************REQUIRED FIELD************************
TEAM(#404.51)

  • LAST EDITED:  AUG 03, 1995
  • HELP-PROMPT:  This is the name of the team.
  • DESCRIPTION:  
    This is a pointer to the TEAM file.
  • CROSS-REFERENCE:  404.58^B
    1)= S ^SCTM(404.58,"B",$E(X,1,30),DA)=""
    2)= K ^SCTM(404.58,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  404.58^AIDT^MUMPS
    1)= N SC2,SC3 S SC2=$P($G(^SCTM(404.58,DA,0)),U,3) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(404.58,"AIDT",X,SC2,-SC3,DA)=""
    2)= N SC2,SC3 S SC2=$P($G(^SCTM(404.58,DA,0)),U,3) I SC2]"" S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM(404.58,"AIDT",X,SC2,-SC3,DA)
    This sorts by TEAM(#.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:  AUG 07, 1995
  • HELP-PROMPT:  This is the date the team's status changed.
  • DESCRIPTION:  
    This is the date that the team's status changed.
  • CROSS-REFERENCE:  404.58^AIDT2^MUMPS
    1)= N SC1,SC2 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"" S ^SCTM(404.58,"AIDT",SC1,SC2,-X,DA)=""
    2)= N SC1,SC2 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"" K ^SCTM(404.58,"AIDT",SC1,SC2,-X,DA)
    This sorts by TEAM(#.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:  AUG 03, 1995
  • HELP-PROMPT:  This indicates what the status of the team is as of the effective date.
  • DESCRIPTION:  
    This is indicates if the team is active or inactive as of the effective date.
  • CROSS-REFERENCE:  404.58^AIDT1^MUMPS
    1)= N SC1,SC3 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" S ^SCTM(404.58,"AIDT",SC1,X,-SC3,DA)=""
    2)= N SC1,SC3 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"" K ^SCTM(404.58,"AIDT",SC1,X,-SC3,DA)
    This sorts by TEAM(#.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")="IF $$RSNDICS^SCAPMCU1(""ZM1"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 16, 1996
  • HELP-PROMPT:  This is the reason that the team's status changed. It is a required field.
  • DESCRIPTION:  
    This is the reason that the team's status changed.
  • SCREEN:  S DIC("S")="IF $$RSNDICS^SCAPMCU1(""ZM1"")"
  • EXPLANATION:  ASDF
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All