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

Package: Clinical Case Registries

ROR HISTORICAL DATA EXTRACTION(#799.6)-->799.61

Sub-Field: 799.61


Information

Parent File Name Number Package
ROR HISTORICAL DATA EXTRACTION(#799.6) DATA AREA 799.61 Clinical Case Registries

Details

Field # Name Loc Type Details
.01 DATA AREA 0;1 POINTER TO ROR DATA AREA FILE (#799.33) ROR DATA AREA(#799.33)

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA(1)))
  • LAST EDITED:  JUL 25, 2005
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    Select the data area where the data extraction will be performed. Data will be extracted only from the data areas referenced by this field.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA(1)))
    DELETE AUTHORITY: @
    WRITE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  B (#634) REGULAR IR LOOKUP & SORTING
    Unique for: Key A (#67), File #799.61
    Short Descr: Uniqueness Index for Key 'A' of Subfile #799.61
    Set Logic: S ^RORDATA(799.6,DA(1),1,"B",X,DA)=""
    Kill Logic: K ^RORDATA(799.6,DA(1),1,"B",X,DA)
    Whole Kill: K ^RORDATA(799.6,DA(1),1,"B")
    X(1): DATA AREA (799.61,.01) (Subscr 1)
.02 START DATE 0;2 DATE

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA(1))) S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 01, 2005
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This field stores the start date of an additional data extraction time frame for this data area.
    If this field is empty, then the data is extracted only in the main time frame defined by the top-level fields START DATE (.03) and END DATE (.04).
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA(1)))
    DELETE AUTHORITY: @
    WRITE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^799.61^.03
    1)= X ^DD(799.61,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(799.61,.02,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3)'>0
    1.4)= S DIH=$G(^RORDATA(799.6,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=799.61,DIG=.03 D ^DICR
    2)= Q
    3)= Do not delete!
    CREATE CONDITION)= END DATE'>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= END DATE
    If the END DATE field (.03) is empty, then this trigger populates it with the current date when the package is installed.
.03 END DATE 0;3 DATE

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA(1))) S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 01, 2005
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This field stores the end date of an additional data extraction time frame for this data area.
    If this field is empty, then the data is extracted only in the main time frame defined by the top-level fields START DATE (.03) and END DATE (.04).
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA(1)))
    DELETE AUTHORITY: @
    WRITE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START DATE field of the DATA AREA sub-field of the ROR HISTORICAL DATA EXTRACTION File
Info |  Details