STANDARD DATA DICTIONARY #391.23 -- DG REGISTER ONCE FIELD DEFINITION FILE 9/29/25 PAGE 1
STORED IN ^DGRO(391.23, (246 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to define the fields that are collected at a Last Site Treated and loaded into a Querying Site via Register Once
Messaging.
NOTICE: This file is part of an implementation of a Nationally
Controlled Procedure. Local modifications to this file
are prohibited per VHA Directive 10-93-142.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B), ORDER INDEX(D)
INDEXED BY: FILE NUMBER & FIELD NUMBER (C), FILE NUMBER & FIELD NUMBER & ORDER INDEX (E)
391.23,.01 NAME 0;1 FREE TEXT (Required)
Description of Field
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JAN 07, 2004
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
CROSS-REFERENCE: 391.23^B
1)= S ^DGRO(391.23,"B",$E(X,1,30),DA)=""
2)= K ^DGRO(391.23,"B",$E(X,1,30),DA)
391.23,1 FILE NUMBER 0;2 NUMBER (Required)
File Number of File
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."6.N) X
LAST EDITED: APR 13, 2004
HELP-PROMPT: Type a number between 0 and 9999999, 5 Decimal Digits
RECORD INDEXES: C (#86), E (#406)
391.23,2 FIELD NUMBER 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."7.N) X
LAST EDITED: APR 13, 2004
HELP-PROMPT: Type a number between 0 and 99999999, 6 Decimal Digits
RECORD INDEXES: C (#86), E (#406)
391.23,3 FIELD DESCRIPTION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 27, 2003
HELP-PROMPT: Answer must be 3-30 characters in length
391.23,4 Disable Field 0;5 SET
'0' FOR No;
'1' FOR Yes;
LAST EDITED: JUL 18, 2003
HELP-PROMPT: Enter Yes to disable the entry of this field from the LST.
391.23,5 ORDER INDEX 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1A.N) X
LAST EDITED: APR 13, 2004
HELP-PROMPT: Enter one Alpha character (mandatory) followed by 1 Numeric (optional).
DESCRIPTION: This field indexes the order that data must be loaded into the respective fields at the Querying
Site.
Is of the format 1 Alpha character followed by an optional Numeric character.
TECHNICAL DESCR: Referenced by Register Once Messaging routine which loads data returned from the Last Site Treated
into the Querying Site.
Is of the format 1 Alpha character followed by an optional Numeric character.
With exception of the Patient file, Indices used must contain a single file, only. The Patient
file can be referenced across multiple indices to set order of entry for fields in that file.
However, Register Once Messaging will not support other files using multiple indices.
The ORDER INDEX field must contain a letter and optionally may be followed by a number. The
optional number is not used with initial release but is allowed so that further levels of order may
be added within a specific "letter group" for the Patient file.
The DG REGISTER ONCE FIELD DEFINITION file is released with ORDER INDEX defined for each field.
Groups of fields in the Patient file has been defined with upper case letters. Fields in other
files have been defined with lower case letters. This is done to support greater expansion for
entries in the Patient file. Use of upper case letters for fields in files other than the Patient
file should be avoided unless those fields are depended upon by Patient file fields.
Reasons for the Constraints on defining ORDER INDEX values:
Register Once Messaging is designed so that this field's value
assumes a record EDIT for the PATIENT file (#2), ONLY. Fields
in other files and PATIENT file multiples will be added as new
records. Examples of other files include the DG SECURITY LOG
file (#38.1). Examples of PATIENT file multiples include the
Patient file ALIAS multiple (2.01).
The ORDER INDEX will NOT support adding data to existing records
in any file or multiple EXCEPT the PATIENT file. This means that
only fields in the Patient file can have an ORDER INDEX different
from another field in the Patient file.
Ordering modifications for the fields defined in this file MUST be designed according to this
ordering specification or a technical redesign of ROM will be necessary.
CROSS-REFERENCE: 391.23^D
1)= S ^DGRO(391.23,"D",$E(X,1,30),DA)=""
2)= K ^DGRO(391.23,"D",$E(X,1,30),DA)
3)= Do not delete.
This cross reference is required to define the arrays passed between FileMan calls in Register Once
Messaging software. The ORDER INDEX field defines the order that groups of fields are loaded into
the data base at the Querying Site.
RECORD INDEXES: E (#406)
File #391.23
Record Indexes:
C (#86) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Cross reference on File and Field numbers
Set Logic: S ^DGRO(391.23,"C",X(1),X(2),DA)=""
Kill Logic: K ^DGRO(391.23,"C",X(1),X(2),DA)
Whole Kill: K ^DGRO(391.23,"C")
X(1): FILE NUMBER (391.23,1) (Subscr 1) (forwards)
X(2): FIELD NUMBER (391.23,2) (Subscr 2) (forwards)
E (#406) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index on File Number, Field Number, and Order Index.
Description: This index cross references FILE NUMBER, FIELD NUMBER, and ORDER INDEX. It is used by ROM code to return the
ORDER INDEX when given the FILE NUMBER and FIELD NUMBER. It speeds up the filing of data at the Register Once
Messaging Querying Site.
Set Logic: S ^DGRO(391.23,"E",X(1),X(2),$E(X(3),1,30),DA)=""
Kill Logic: K ^DGRO(391.23,"E",X(1),X(2),$E(X(3),1,30),DA)
Whole Kill: K ^DGRO(391.23,"E")
X(1): FILE NUMBER (391.23,1) (Subscr 1) (forwards)
X(2): FIELD NUMBER (391.23,2) (Subscr 2) (forwards)
X(3): ORDER INDEX (391.23,5) (Subscr 3) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):