Global: ^ROR(799.33

FileMan FileNo	FileMan Filename	Package
799.33	ROR DATA AREA	Clinical Case Registries

Accessed By FileMan Db Calls, Total: 6

Package	Total	Routines
Clinical Case Registries	6	ROREXPR RORHDT06 RORP010 RORP011 RORP013 RORP014

Package	Total	FileMan Files
Clinical Case Registries	2	ROR PATIENT EVENTS(#798.3)[#798.32(1)] ROR HISTORICAL DATA EXTRACTION(#799.6)[#799.61(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 06, 2003` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits.` `DELETE AUTHORITY: @` `WRITE AUTHORITY: @`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `Q:$$VAEDT^RORDD(799.33,,-1) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `JUN 06, 2003` HELP-PROMPT: `Enter name of the data area (2-30 characters).` DESCRIPTION: `This field stores the name of the data area referenced by the DATA AREA fields of the HL7 SEGMENT (the ROR REGISTRY PARAMETERS file) and EVENT (the ROR PATIENT EVENTS file) multiples.` DELETE TEST: `1,0)= I $$VADEL^RORDD(799.33,,-1)` `DELETE AUTHORITY: @` `WRITE AUTHORITY: @` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `799.33^B` `1)= S ^ROR(799.33,"B",$E(X,1,30),DA)=""` `2)= K ^ROR(799.33,"B",$E(X,1,30),DA)` `3)= Do not delete!`

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 06, 2003
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits.
DELETE AUTHORITY: @
WRITE AUTHORITY: @

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.33,,-1) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: JUN 06, 2003
HELP-PROMPT: Enter name of the data area (2-30 characters).
DESCRIPTION:
This field stores the name of the data area referenced by the DATA AREA fields of the HL7 SEGMENT (the ROR REGISTRY PARAMETERS file) and EVENT (the ROR PATIENT EVENTS file) multiples.
DELETE TEST: 1,0)= I $$VADEL^RORDD(799.33,,-1)
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 799.33^B
1)= S ^ROR(799.33,"B",$E(X,1,30),DA)=""
2)= K ^ROR(799.33,"B",$E(X,1,30),DA)
3)= Do not delete!