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 | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^RORDATA(798.4

Package: Clinical Case Registries

Global: ^RORDATA(798.4

Information

FileMan FileNo	FileMan Filename	Package
798.4	ROR PATIENT	Clinical Case Registries

Description

The ROR PATIENT file contains patient information that is common for all local registries (mostly, demographic information). Most of the fields in the file have the same numbers and names as the corresponding fields in the PATIENT file. Demographic data from this file is compared to that from the PATIENT file (#2) to determine if it has been changed since the last registry data extraction. These fields are updated with the values from the PATIENT file and the UPDATE DEMOGRAPHICS flag is set to "YES" in all active registry records of the patient. Records in the file have the same internal entry numbers as the patients' records in the PATIENT file. The records are uniquely identified by the internal value of the PATIENT NAME field. A permanent screen (the ^DD(798.4,0,"SCR") node) restricts access to the records of this file. Only users with the security key(s) for any defined registry (or those with the ROR VA IRM security key) can access records of the file. If you want the changes in the security keys allocation to have an effect immediately, you should rebuild the "ACL" cross-reference of the .01 field of the SECURITY KEY multiple of the ROR REGISTRY PARAMETERS file (#798.1). See the description of the cross-reference for more details.

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Clinical Case Registries	6	ERROR RORPTSTATUS ^RORDATA(798.4 ^RORDATA(799.4 RORUPD51 RORUPD52

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Clinical Case Registries	3	RORDD01 RORRP019 RORUPD50

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Clinical Case Registries	2	ROR REGISTRY RECORD(#798)[.01] ROR HISTORICAL DATA EXTRACTION(#799.6)[#799.641(.01)]

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Registration	2	PERIOD OF SERVICE(#21)[.323] PATIENT(#2)[.01]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAY 23, 2000` DESCRIPTION: `You can select an existing patient or add a new one from the PATIENT file (#2).` `You can access records of this file only if you have appropriate security key(s) for any registry.` TECHNICAL DESCR: `The PATIENT NAME field points to the patient record in the PATIENT file (#2). Internal value of this field is used as internal entry number of the record ("DINUM" feature).` DELETE TEST: `1,0)= I $D(^RORDATA(798,"B",+$G(DA)))` `DELETE AUTHORITY: @` `WRITE AUTHORITY: @` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `798.4^B` `1)= S ^RORDATA(798.4,"B",$E(X,1,30),DA)=""` `2)= K ^RORDATA(798.4,"B",$E(X,1,30),DA)` `3)= Do not delete!`
.02	SEX	1;3	SET	'M' FOR MALE; 'F' FOR FEMALE; LAST EDITED: `NOV 20, 2001` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.03	DATE OF BIRTH	1;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3)) S Y=X` LAST EDITED: `NOV 20, 2001` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.09	SOCIAL SECURITY NUMBER	1;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` OUTPUT TRANSFORM: `S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)` LAST EDITED: `APR 03, 2002` HELP-PROMPT: `Answer must be 9-11 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE` CROSS-REFERENCE: `798.4^BS^MUMPS` `1)= S ^RORDATA(798.4,"BS",$E(X,6,9),DA)=""` `2)= K ^RORDATA(798.4,"BS",$E(X,6,9),DA)` `3)= Do not delete!` `The cross-reference on the last four digits of the SSN.` CROSS-REFERENCE: `798.4^BS5^MUMPS` `1)= S ^RORDATA(798.4,"BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)=""` `2)= K ^RORDATA(798.4,"BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)` `3)= Do not delete!` `This cross-reference contains values combined from the first letter of the last name and last four digits of the SSN.` CROSS-REFERENCE: `798.4^SSN` `1)= S ^RORDATA(798.4,"SSN",$E(X,1,30),DA)=""` `2)= K ^RORDATA(798.4,"SSN",$E(X,1,30),DA)` `3)= Do not delete!`
.1112	ZIP+4	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` LAST EDITED: `NOV 20, 2001` HELP-PROMPT: `Answer must be 5-9 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.301	SERVICE CONNECTED?	1;6	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `NOV 20, 2001` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.302	SERVICE CONNECTED PERCENTAGE	1;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 20, 2001` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.323	PERIOD OF SERVICE	1;5	POINTER TO PERIOD OF SERVICE FILE (#21)	PERIOD OF SERVICE(#21) LAST EDITED: `NOV 20, 2001` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.351	DATE OF DEATH	1;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 02, 2002` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `See the corresponding field in the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
.3721	RATED DISABILITIES DATA	3;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `NOV 06, 2002` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `This field stores the CRC32 value for combined data from the RATED DISABILITIES (VA) multiple (.3721) of the PATIENT file (#2). This data can be used only for comparison (by the RORUPD52 routine) to the data in the PATIENT` `file!` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
2	RACE AND ETHNICITY DATA	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `NOV 06, 2002` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `This field stores the combined data from the RACE INFORMATION (2) and ETHNICITY INFORMATION (6) multiples of the PATIENT file (#2). This data can be used only for comparison (by the RORUPD52 routine) to the data in the` `PATIENT file. Do not try to parse values of this field in any way!` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`
10.1	OLD SSN	10;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` LAST EDITED: `NOV 20, 2001` HELP-PROMPT: `Answer must be 9-11 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `This field contains the previous value of the patient SSN. The registry extraction process transmits both new and old values of the SSN to the national registries.` GROUP: `OLD DEMOGRAPHICS` `UNEDITABLE`
10.2	OLD ICN	10;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `NOV 01, 2002` HELP-PROMPT: `Answer must be 1-19 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `This field contains the previous value of the patient ICN (with the checksum). The registry extraction process transmits both new and old values of the ICN to the national registries.` GROUP: `OLD DEMOGRAPHICS` `UNEDITABLE`
991	INTEGRATION CONTROL NUMBER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `NOV 01, 2002` HELP-PROMPT: `Answer must be 1-19 characters in length.` DESCRIPTION: `Do not edit this field!` TECHNICAL DESCR: `This field stores the patient's full Integration Control Number (the ICN and checksum separated by the "V"). See the fields 991.01 and 991.02 of the PATIENT file (#2).` GROUP: `DEMOGRAPHIC DATA` `UNEDITABLE`

External References

Name	Field # of Occurrence
^%DT	.03+1, .351+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	.09(XREF 2S), .09(XREF 2K)
^RORDATA(798 - [#798]	.01DEL1+1
^RORDATA(798.4 - [#798.4]	.01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .351+1
>> DA	.01DEL1+1, .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)
>> DINUM	.01+1*
X	.01+1, .01(XREF 1S), .01(XREF 1K), .03+1!, .03OT+1, .09+1!, .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K) , .09(XREF 3S), .09(XREF 3K), .1112+1!, .302+1!, .351+1*!, .3721+1!, 2+1!, 10.1+1!, 10.2+1!, 991+1!
>> Y	.03+1, .03OT+1, .09OT+1, .351+1
>> Y(0	.03OT+1, .09OT+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Local Variables | All