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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RORDATA(799.6

Package: Clinical Case Registries

Global: ^RORDATA(799.6


Information

FileMan FileNo FileMan Filename Package
799.6 ROR HISTORICAL DATA EXTRACTION Clinical Case Registries

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Clinical Case Registries 11 DATA AREA    ERROR    REGISTRY NAME    RORDD01    RORHDT06    RORP011    RORP013    RORP014
RORP015    TASK    ^RORDATA(799.6    
Kernel 1 FILE    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Clinical Case Registries 12 RORDD01    RORHDT    RORHDT01    RORHDT02    RORHDT03    RORHDT05    RORHDT06    RORHDTUT
RORP011    RORP013    RORP014    RORP015    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Clinical Case Registries 1 ROR REGISTRY PARAMETERS(#798.1)[21.01]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Clinical Case Registries 2 ROR DATA AREA(#799.33)[#799.61(.01)]    ROR PATIENT(#798.4)[#799.641(.01)]    

Fields, Total: 14

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA)) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 01, 2005
  • HELP-PROMPT:  Enter the unique data extraction name (3-30 characters).
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This field stores the unique name of the historical data extraction. If an extraction is initiated by a patch, it is a good idea to include the patch number.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^799.6^.07
    K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%D
    TC X ^DD(799.6,.01,1,2,1.4)
    1.4)= S DIH=$G(^RORDATA(799.6,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=799.6,DIG=.07 D ^DICR
    2)= Q
    3)= Do not delete!
    CREATE CONDITION)= ACTIVATION DATE'>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= ACTIVATION DATE
    If the ACTIVATION DATE field (.07) is empty, then this trigger populates it with the current date when the package is installed.
    Thus the historical data extraction parameters become active and will be processed by the next run of the nightly task.
  • FIELD INDEX:  B (#633) REGULAR IR LOOKUP & SORTING
    Unique for:  Key A (#66), File #799.6
    Short Descr:  Uniqueness Index for Key 'A' of File #799.6
    Set Logic:  S ^RORDATA(799.6,"B",X,DA)=""
    Kill Logic:  K ^RORDATA(799.6,"B",X,DA)
    Whole Kill:  K ^RORDATA(799.6,"B")
    X(1):  NAME  (799.6,.01)  (Subscr 1)
  • RECORD INDEXES:  ADNAUTO (#632)
.02 TYPE 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR Auto (HL7 messages);
  • '2' FOR Manual (host files);

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA))
  • LAST EDITED:  OCT 31, 2005
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This field defines the type of data extraction.
    Automatic data extractions are initiated by the CCR patches. Data is extracted by the nightly task and sent via regular batch HL7 messages.
    Manual data extractions are initiated by the users using the options from the maintenance menu. They schedule the data extraction tasks and verify their completion. Data is written to host files, which are transferred to
    the AAC via FTP or any other means.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ADNAUTO (#632)
.03 START DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA)) 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 indicates the start date for the historical data extraction.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^799.6^.04
    K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%D
    TC X ^DD(799.6,.03,1,1,1.4)
    1.4)= S DIH=$G(^RORDATA(799.6,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=799.6,DIG=.04 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 (.04) is empty, then this trigger populates it with the current date when the package is installed.
.04 END DATE 0;4 DATE

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA)) 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 indicates the end date for the historical data extraction.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START DATE field of the ROR HISTORICAL DATA EXTRACTION File
.05 PATIENTS PER BATCH 0;5 NUMBER

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA)) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 25, 2005
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits.
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    The PATIENTS PER BATCH field holds the maximum number of patients whose data is written into a single historical data extraction output file.
  • TECHNICAL DESCR:  
    This field is used only during manual historical data extractions.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  MANUAL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 MAXIMUM MESSAGE SIZE 0;6 NUMBER

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,$G(DA)) K:+X'=X!(X>99)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 01, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99, 1 Decimal Digit.
  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This field stores the maximum size (in megabytes) of a batch HL7 message that can be sent to Austin Automation Center (AAC). If this field is empty or contains 0, the size is not limited.
  • TECHNICAL DESCR:  Actual size of an HL7 batch can be greater than the value of this field because the software does not break in the middle of an individual HL7 message.
    For example, if the maximum size is 10Mb, the current size is 9Mb and 3Mb should be sent for the patient being processed then the actual size of the batch will be 12Mb.
    This field is used only during automatic historical data extractions.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  AUTO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 ACTIVATION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 31, 2005
  • DESCRIPTION:  
    This field is used only for automatic data extractions. If it is empty, then the nightly task ignores this record completely. Otherwise, the data extraction will not start before the date and time stored in this field.
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  AUTO
  • NOTES:  TRIGGERED by the NAME field of the ROR HISTORICAL DATA EXTRACTION File
  • RECORD INDEXES:  ADNAUTO (#632)
.08 BASE FILE NAME 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  The base part for the output file names is stored in this field. It is populated either by a patch or by the user (if they are instructed to do so).
    The output file names will have the following structure:
    BASE-SSS-TT.HDT
    where 'BASE' is the value of this field, 'SSS' is the site number (3 digits), and 'TT' is the sequential number of the task (2 digits).
    If the task is restarted, the optional numeric modifier '##' (2 digits) will be added to the name so that the already extracted data will not be overwritten:
    BASE-SSS-TT-##.HDT
  • TECHNICAL DESCR:  
    This field is used only during manual historical data extractions.
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  MANUAL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 NATIONAL 0;9 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • INPUT TRANSFORM:  Q:$$VAEDT^RORDD(799.6,,-1)
  • LAST EDITED:  JUL 25, 2005
  • DESCRIPTION:  ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN EDIT THIS FIELD!
    National historical data extractions (backpulls) must have this field set to "YES". This prevents local editing of other fields of the definitions.
  • DELETE TEST:  1,0)= I $$VADEL^RORDD(799.6,$G(DA))
    DELETE AUTHORITY: @
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 DATA AREA 1;0 POINTER Multiple #799.61 799.61

  • DESCRIPTION:  YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
    This multiple lists all data areas in which the data extraction will be performed. It can also contain additional time frames for these data areas.
    WRITE AUTHORITY:  @
  • GROUP:  DEFINITION
  • SECONDARY KEY:  A (#67)
    Uniqueness Index: B (#634)
    File, Field: 1) DATA AREA (799.61,.01)
  • INDEXED BY:  DATA AREA (B)
2 OUTPUT DIRECTORY 2;E1,240 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JUL 22, 2005
  • HELP-PROMPT:  Enter a valid name of the output directory (1-240 characters).
  • DESCRIPTION:  A directory must be created within the file system of the host operating system (VMS, Windows, etc.). Text files containing historical data in the HL7 format will be created in this directory by the data extraction tasks.
    The full name of the directory must be entered as a value of this field. For example, the value can look something like this:
    VA2$:[OUTPUT] - VAX VMS
    D:\Output\    - Windows, MS-DOS
    Because a file name will be concatenated to the directory name, the trailing slash in the Windows directory name is required.
    Do not forget to enable read/write access to this directory for M processes!
    DELETE AUTHORITY:
  • GROUP:  MANUAL
3 REGISTRY NAME 3;0 Multiple #799.63 799.63

  • LAST EDITED:  OCT 31, 2005
  • DESCRIPTION:  
    This multiple references the registries that the data extraction will be performed for and indicates the extraction status.
    WRITE AUTHORITY:  @
  • SECONDARY KEY:  A (#68)
    Uniqueness Index: B (#636)
    File, Field: 1) REGISTRY NAME (799.63,.01)
  • INDEXED BY:  REGISTRY NAME & COMPLETION DATE/TIME (ANC), REGISTRY NAME (B)
4 TASK 4;0 Multiple #799.64 799.64

  • GROUP:  MANUAL
  • SECONDARY KEY:  A (#69)
    Uniqueness Index: B (#638)
    File, Field: 1) START RECORD IEN (799.64,.01)
  • INDEXED BY:  START RECORD IEN & STATUS (ANC), START RECORD IEN (B)
5 STATUS COMPUTED

  • MUMPS CODE:  S X=$$HDESTAT^RORDD01(+$G(D0))
  • ALGORITHM:  S X=$$HDESTAT^RORDD01(+$G(D0))
  • LAST EDITED:  NOV 14, 2005
  • DESCRIPTION:  This field indicates a generic status of the historical data extraction:
    ""  Unknown/Undefined
    0  Inactive
    1  Pending/Active
    2  Completed
  • GROUP:  STATE

Found Entries, Total: 5

NAME: NON-VA MEDS    NAME: PURCHASED CARE    NAME: ROR-1.5-01-HEPC    NAME: ROR-1.5-02-HIV    NAME: ROR-1.5-05-OUTPATIENT    

External References

Name Field # of Occurrence
^%DT .03+1, .04+1, .07+1
NOW^%DTC .01(XREF 2S), .03(XREF 1S)
^DICR .01(XREF 2n1.4), .03(XREF 1n1.4)
$$VADEL^RORDD .01DEL1+1, .02DEL1+1, .03DEL1+1, .04DEL1+1, .05DEL1+1, .06DEL1+1, .09DEL1+1
$$VAEDT^RORDD .01+1, .03+1, .04+1, .05+1, .06+1
$$HDESTAT^RORDD01 5+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(799.6 .01(XREF 2S), .03(XREF 1S)
^RORDATA(799.6 - [#799.6] IXADNAUTOSL+1*, IXADNAUTOSCC+1, IXADNAUTOKL+1!, IXADNAUTOKEIC+1!, IXBSL+1*, IXBKL+1!, IXBKEIC+1!, .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S)
.03(XREF 1n1.4)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 2S), .03(XREF 1S)
>> %DT .03+1*, .04+1*, .07+1*
%H .01(XREF 2S), .03(XREF 1S)
%I .01(XREF 2S), .03(XREF 1S)
>> D0 .01(XREF 2S), .03(XREF 1S), 5+1
>> DA IXADNAUTOSL+1, IXADNAUTOSCC+1, IXADNAUTOKL+1, IXBSL+1, IXBKL+1, .01+1, .01DEL1+1, .01(XREF 2S), .02DEL1+1, .03+1
, .03DEL1+1, .03(XREF 1S), .04+1, .04DEL1+1, .05+1, .05DEL1+1, .06+1, .06DEL1+1, .09DEL1+1
>> DIG .01(XREF 2n1.4), .03(XREF 1n1.4)
>> DIH .01(XREF 2n1.4), .03(XREF 1n1.4)
>> DIU .01(XREF 2S), .03(XREF 1S)
DIV .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4)
U .01(XREF 2S), .01(XREF 2n1.4), .03(XREF 1S), .03(XREF 1n1.4)
X IXADNAUTOSCC+1*, IXBSL+1, IXBKL+1, .01+1!, .01(XREF 2S), .01(XREF 2n1.4), .03+1*!, .03(XREF 1S), .03(XREF 1n1.4), .04+1*!
, .05+1!, .06+1!, .07+1*!, .08+1!, 2+1!, 5+1*
X(1 IXADNAUTOSL+1, IXADNAUTOKL+1
X(2 IXADNAUTOSL+1, IXADNAUTOKL+1
X(3 IXADNAUTOSCC+1
X(4 IXADNAUTOSCC+1
Y .01(XREF 2S), .03+1, .03(XREF 1S), .04+1, .07+1
Y(0 .01(XREF 2S), .03(XREF 1S)
Y(1 .01(XREF 2S), .03(XREF 1S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All