Global: ^RORDATA(799.6

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

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

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

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

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`

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

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)

>>	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)

Customize PDF page

Package: Clinical Case Registries

Global: ^RORDATA(799.6

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 14

Found Entries, Total: 5

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: