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: 409.481

Package: Scheduling

SDSC SERVICE CONNECTED CHANGES(#409.48)-->409.481

Sub-Field: 409.481


Information

Parent File Name Number Package
SDSC SERVICE CONNECTED CHANGES(#409.48) TRACK EDITS 409.481 Scheduling

Details

Field # Name Loc Type Details
.01 EDIT NUMBER 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 07, 2006
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  This field contains a unique entry for each edit. The edits are stored in order beginning at 1. Under ordinary circumstances there will usually only be between 1 and 3 edits for any record although there is no specific
    maximum.
  • CROSS-REFERENCE:  409.481^B
    1)= S ^SDSC(409.48,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^SDSC(409.48,DA(1),1,"B",$E(X,1,30),DA)
.02 DATE EDITED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 07, 2006
  • DESCRIPTION:  
    This is the date that the user edited this encounter. A trigger on this field will also update the DATE LAST EDITED field in the main file.
  • CROSS-REFERENCE:  ^^TRIGGER^409.48^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=409.48,DIG=.02 D ^DICR
    2)= Q
    CREATE VALUE)= S X=X
    DELETE VALUE)= NO EFFECT
    FIELD)= #.02
.03 EDITED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 07, 2006
  • DESCRIPTION:  
    This is the user who edited this encounter. A trigger on this field will also update the LAST EDITED BY field in the main file.
  • TECHNICAL DESCR:  
    A pointer to the NEW PERSON file #200.
  • CROSS-REFERENCE:  ^^TRIGGER^409.48^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=409.48,DIG=.03 D ^DICR
    2)= Q
    CREATE VALUE)= S X=X
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
.04 TYPE OF ENTRY 0;4 SET
  • 'U' FOR USER;
  • 'C' FOR CLINICAL;
  • 'S' FOR SUPERVISOR;

  • LAST EDITED:  NOV 07, 2006
  • DESCRIPTION:  This is the type of user who edited this encounter.
    "USER"        any standard user of this package.
    "CLINICAL"    a clinical reviewer with the appropriate security key.
    "SUPERVISOR"  a supervisor with the appropriate security key.
.05 SERV. CONNECT (OK BY USER?) 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 08, 2006
  • DESCRIPTION:  
    This field will contain 1 ('YES') or 0 ('NO') based on the user determination of the encounter's service connected value. A trigger on this field will also update the SERV. CONNECT (OK BY USER?) field in the main file.
  • CROSS-REFERENCE:  ^^TRIGGER^409.48^.06
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=409.48,DIG=.06 D ^DICR
    2)= Q
    CREATE VALUE)= S X=X
    DELETE VALUE)= NO EFFECT
    FIELD)= #.06
.06 REVIEW REQUIRED? 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 08, 2006
  • DESCRIPTION:  
    This field will be set to 1 ('YES') if a regular user determines that this record requires further review by a clinical reviewer. A trigger will also set the STATUS field in the main file to 'REVIEW'.
  • CROSS-REFERENCE:  ^^TRIGGER^409.48^.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="R" S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.48,DIG=.05 D ^DICR
    2)= Q
    CREATE VALUE)= "R"
    DELETE VALUE)= NO EFFECT
    FIELD)= #.05
Info |  Details |  All