Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 90628.02

Package: Tracking Procedure Workflow

CM EVENT TRACKING SITE PARAMETERS(#90628)-->90628.02

Sub-Field: 90628.02


Information

Parent File Name Number Package
CM EVENT TRACKING SITE PARAMETERS(#90628) EVENT FREQUENCY 90628.02 Tracking Procedure Workflow

Details

Field # Name Loc Type Details
.01 EVENT 0;1 POINTER TO CM EVENT FILE (#90621) CM EVENT(#90621)

  • LAST EDITED:  JUN 15, 2009
  • CROSS-REFERENCE:  90628.02^B
    1)= S ^BTPW(90628,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^BTPW(90628,DA(1),2,"B",$E(X,1,30),DA)
.02 FREQUENCY 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  AUG 04, 2009
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90628.02,.02,1,1,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90628.02,DIG=.03 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() X ^DD(90628.02,.02,1,2,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90628.02,DIG=.04 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #.04
.03 WHO LAST EDITED 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the FREQUENCY field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
    TRIGGERED by the DEFAULT NOTIFICATION field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
    TRIGGERED by the DEFAULT BATCH FINDING field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
.04 WHEN LAST EDITED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the FREQUENCY field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
    TRIGGERED by the DEFAULT NOTIFICATION field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
    TRIGGERED by the DEFAULT BATCH FINDING field of the EVENT FREQUENCY sub-field of the CM EVENT TRACKING SITE PARAMETERS File
.05 DEFAULT NOTIFICATION 0;5 POINTER TO CM EVENT NOTIFICATION TYPE FILE (#90622) CM EVENT NOTIFICATION TYPE(#90622)

  • LAST EDITED:  FEB 08, 2010
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90628.02,.05,1,1,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90628.02,DIG=.03 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() X ^DD(90628.02,.05,1,2,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90628.02,DIG=.04 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #.04
1.01 DEFAULT BATCH FINDING 1;1 POINTER TO CM EVENT RESULT TYPE FILE (#90620.9) CM EVENT RESULT TYPE(#90620.9)

  • LAST EDITED:  MAR 05, 2010
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90628.02,1.01,1,1,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90628.02,DIG=.03 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
  • CROSS-REFERENCE:  ^^TRIGGER^90628.02^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BTPW(90628,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() X ^DD(90628.02,1.01,1,2,1.4)
    1.4)= S DIH=$G(^BTPW(90628,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90628.02,DIG=.04 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #.04
Info |  Details |  All