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

Package: Scheduling

SCHEDULING CONVERSION SPECIFICATION TEMPLATE(#404.98)-->404.9825

Sub-Field: 404.9825


Information

Parent File Name Number Package
SCHEDULING CONVERSION SPECIFICATION TEMPLATE(#404.98) REQUEST LOG 404.9825 Scheduling

Details

Field # Name Loc Type Details
.01 REQUEST DATE/TIME 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 27, 1995
  • DESCRIPTION:  
    This field contains the date/time the request was entered.
  • CROSS-REFERENCE:  404.9825^B
    1)= S ^SD(404.98,DA(1),"R","B",+$E(X,1,30),DA)=""
    2)= K ^SD(404.98,DA(1),"R","B",+$E(X,1,30),DA)
.02 REQUEST ACTION 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR SCHEDULE;
  • '2' FOR STOP;
  • '3' FOR RE-START;

  • LAST EDITED:  MAY 07, 1996
  • DESCRIPTION:  
    This field contains the requested action.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^404.98^.08
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=X X ^DD(404.9825,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(404.9825,.02,1,1,2.4)
    2.4)= S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=X
    DELETE VALUE)= @
    FIELD)= LAST LOG REQUEST ACTION
.03 EVENT 0;3 SET
  • '0' FOR ESTIMATE;
  • '1' FOR CONVERT;
  • '2' FOR RE-CONVERT;

  • LAST EDITED:  MAY 08, 1996
  • DESCRIPTION:  
    This field contains the event corresponding to the request.
    UNEDITABLE
.04 START DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 27, 1995
  • DESCRIPTION:  
    This field contains the requested start date/time.
.05 STOP DATE/TIME 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 27, 1995
  • DESCRIPTION:  
    This field contains the requested stop date/time.
.06 USER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 06, 1996
  • DESCRIPTION:  
    This field contains the user who entered the request.
.07 NUMBER ERRORS LOGGED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of errors that occurred as a result of this request.
  • CROSS-REFERENCE:  ^^TRIGGER^404.98^1.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(404.9825,.07,1,1,1.4)
    1.4)= S DIH=$S($D(^SD(404.98,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=404.98,DIG=1.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(404.9825,.07,1,1,2.4)
    2.4)= S DIH=$S($D(^SD(404.98,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=404.98,DIG=1.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= PLEASE DO NOT DELETE
    CREATE VALUE)= TOTAL ERRORS LOGGED+NUMBER ERRORS LOGGED
    DELETE VALUE)= TOTAL ERRORS LOGGED-OLD NUMBER ERRORS LOGGED
    FIELD)= TOTAL ERRORS LOGGED
    This trigger keeps track of the total # of errors that occur during a full run of a CST, regardless of the # of times it is stopped and restarted.
Info |  Details