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: ^BTPW(90628

Package: Tracking Procedure Workflow

Global: ^BTPW(90628


Information

FileMan FileNo FileMan Filename Package
90628 CM EVENT TRACKING SITE PARAMETERS Tracking Procedure Workflow

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Tracking Procedure Workflow 9 BTPW1PRE    BTPW1PST    BTPWBTAD    BTPWBTTR    BTPWETRG    BTPWPCHT    BTPWPUTL    BTPWSCHD
BTPWTAB    
iCare 1 BQISYSIT    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Tracking Procedure Workflow 4 BTPW1PRE    BTPWETRG    BTPWPUTL    BTPWSCHD    
iCare 1 BQISYSIT    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Tracking Procedure Workflow 3 CM EVENT RESULT TYPE(#90620.9)[#90628.02(1.01)]    CM EVENT(#90621)[#90628.02(.01)]    CM EVENT NOTIFICATION TYPE(#90622)[#90628.02(.05)]    
Kernel 1 NEW PERSON(#200)[.09, 1.05, 1.07, 1.09, #90628.02(.03)]    
Utility Tables 1 LOCATION(#9999999.06)[.01]    

Fields, Total: 21

Field # Name Loc Type Details
.01 HOME SITE 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  AUG 11, 2008
  • CROSS-REFERENCE:  90628^B
    1)= S ^BTPW(90628,"B",$E(X,1,30),DA)=""
    2)= K ^BTPW(90628,"B",$E(X,1,30),DA)
.02 AUTOCLOSE PW 0;2 SET
  • '1' FOR Yes;
  • '0' FOR No;

  • LAST EDITED:  AUG 11, 2008
  • DESCRIPTION:  
    Enter 'Yes' if the procedure workflow is to be automatically closed when all steps have been completed. Enter 'No' if the user must manually close the procedure workflow.
.03 QUEUE JOB 0;3 SET
  • '1' FOR ON;
  • '0' FOR OFF;

  • LAST EDITED:  AUG 11, 2009
  • DESCRIPTION:  The CMET nightly job will be released as turned 'OFF' because the post-install job will initially set up the CMET queue with all data found in the system. Once the site is ready to keep data flowing to the queue, the
    nightly job can then be turned 'ON'.
  • CROSS-REFERENCE:  ^^TRIGGER^90628^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BTPW(90628,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90628,DIG=.09 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.09
  • CROSS-REFERENCE:  ^^TRIGGER^90628^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^BTPW(90628,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90628,DIG=.1 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #.1
.04 QUEUE JOB FREQUENCY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUN 19, 2009
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • DESCRIPTION:  The CMET Queue job frequency will be initially set to '1D' = once a day. However, this frequency may be modified to either more frequent or less frequent, depending on the amount of visits performed at the site.
    Less frequent is '#D' = every # days e.g. 7D = every 7 days or once a week
    More frequent is '#S' = every # seconds e.g. 120S = every 2 hours
    It is advised to not set the frequency to less than every 2 hours to prevent excessive data hits.





.05
QUEUE JOB START TIME
0;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JUN 19, 2009
  • HELP-PROMPT:  Answer must be 4 characters in length.
  • DESCRIPTION:  This is the time that the CMET Queue job should start running at.  The default is 0130 (1:30 AM).
    Please enter the start time in military time format (24 hour clock).
    Example:  0130 = 1:30 AM
    1330 = 1:30 PM





.06
DATE/TIME QUEUE JOB STARTED
0;6
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2009





.07
DATE/TIME QUEUE JOB STOPPED
0;7
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 19, 2009





.08
QUEUE JOB STATUS
0;8
SET

  • '1' FOR Running;
  • LAST EDITED:  JUN 19, 2009





.09
WHO LAST EDITED QUEUE JOB
0;9
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  AUG 11, 2009
  • NOTES:  TRIGGERED by the QUEUE JOB field of the CM EVENT TRACKING SITE PARAMETERS File





.1
DATE/TIME QUEUE JOB LAST EDIT
0;10
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 11, 2009
  • NOTES:  TRIGGERED by the QUEUE JOB field of the CM EVENT TRACKING SITE PARAMETERS File





1.01
FINDINGS FREQUENCY
1;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  OCT 19, 2009
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  Enter the number of days or months that the finding is due by before it is considered to be overdue.
    Example:   30  = 30 days
    12M  = 12 months (or one year)
    120M  = 10 years (120 months)
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,4)=DIV,DIH=90628,DIG=1.04 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.04
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,5)=DIV,DIH=90628,DIG=1.05 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.05





1.02
FOLLOWUP FREQUENCY
1;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  OCT 19, 2009
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  Enter the number of days or months that the followup may be due by before it is considered to be overdue.
    Example:   30  = 30 days
    12M  = 12 months (or one year)
    120M  = 10 years (120 months)
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,6)=DIV,DIH=90628,DIG=1.06 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.06
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,7)=DIV,DIH=90628,DIG=1.07 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.07





1.03
NOTIFICATION FREQUENCY
1;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  OCT 19, 2009
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  Enter the number of days or months that the notification may be due by before it is considered to be overdue.
    Example:   30  = 30 days
    12M  = 12 months (or one year)
    120M  = 10 years (120 months)
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,8)=DIV,DIH=90628,DIG=1.08 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.08
  • CROSS-REFERENCE:  ^^TRIGGER^90628^1.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BTPW(90628,D0,1)):^(1),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BTPW(90628,DIV(0),1)),DIV=X S $P(^(1),U,9)=DIV,DIH=90628,DIG=1.09 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.09





1.04
DATE/TIME FINDINGS LAST EDITED
1;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 FINDINGS FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





1.05
FINDINGS LAST EDITED BY
1;5
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the FINDINGS FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





1.06
DATE/TIME FOLLOWUP LAST EDITED
1;6
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the FOLLOWUP FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





1.07
FOLLOWUP LAST EDITED BY
1;7
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the FOLLOWUP FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





1.08
DATE/TIME NOTIF LAST EDITED
1;8
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the NOTIFICATION FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





1.09
NOTIFICATION LAST EDITED BY
1;9
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  AUG 04, 2009
  • NOTES:  TRIGGERED by the NOTIFICATION FREQUENCY field of the CM EVENT TRACKING SITE PARAMETERS File





2
EVENT FREQUENCY
2;0
POINTER Multiple #90628.02
90628.02




3
CR EXECUTABLE
3;E1,245
MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JUL 13, 2010
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @







Found Entries, Total: 1




HOME SITE: 9999999.06^7819    








    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All