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 |  Found Entries |  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: 4

Package Total Routines
Scheduling 4 SCAPMC17    SCAPMC24    SD53P504    SDWLQSC    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Scheduling 2 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.
  • FIELD INDEX:  AC (#79) MUMPS IR ACTION
    Short Descr:  TRIGGER HL7 MESSAGE
    Description:  Trigger entry in PCMM HL7 EVENT file for HL7 Workload message.
    Set Logic:  D POSBXREF^SCMCHLX(DA,404.59)
    Set Cond:  S X=0 S:X2(1)=0 X=1
    Kill Logic:  D POSBXREF^SCMCHLX(DA,404.59)
    X(1):  STATUS  (404.59,.03)  (Subscr 1)  (forwards)
.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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All