STANDARD DATA DICTIONARY #26.13 -- PRF ASSIGNMENT FILE 3/24/25 PAGE 1
STORED IN ^DGPF(26.13, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of Patient Record Flag assignments. Use the Record Flag Assignment [DGPF RECORD FLAG ASSIGNMENT] option
to create/edit entries in this file.
Records in this file should not be added or edited except through the use of the Patient Record Flag software that is part of
Registration. Doing so would likely cause Patient Record Flag database corruption.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: FLAG NAME (#.02)[R]
POINTED TO BY: PRF ASSIGNMENT field (#.01) of the PRF ASSIGNMENT HISTORY File (#26.14)
CROSS
REFERENCED BY: PATIENT NAME(B)
INDEXED BY: FLAG NAME & PATIENT NAME (AFLAG), REVIEW DATE & PATIENT NAME (AFREV), FLAG NAME & REVIEW DATE (ANDAT), OWNER SITE &
STATUS (AOWN), STATUS & FLAG NAME (ASTAT), PATIENT NAME & FLAG NAME (C), PATIENT NAME & STATUS (D), DBRS NUMBER
(DBRS)
LAST MODIFIED: JUN 14,2024@11:27:04
26.13,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 23, 2003
HELP-PROMPT: Type a Number between 1 and 999999999999999, 0 Decimal Digits
DESCRIPTION:
This is the internal entry number which is assigned to each record of this file.
UNEDITABLE
26.13,.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the patient for this record flag assignment.
DESCRIPTION:
This field contains the name of the patient that has been assigned the PATIENT RECORD FLAG.
TECHNICAL DESCR: This field contains a pointer to the PATIENT FILE (#2) of the patient that has been assigned the
PATIENT RECORD FLAG.
UNEDITABLE
CROSS-REFERENCE: 26.13^B
1)= S ^DGPF(26.13,"B",$E(X,1,30),DA)=""
2)= K ^DGPF(26.13,"B",$E(X,1,30),DA)
RECORD INDEXES: AFLAG (#259), AFREV (#260), C (#263), D (#264)
26.13,.02 FLAG NAME 0;2 VARIABLE POINTER (Required)
FILE ORDER PREFIX LAYGO MESSAGE
26.15 1 N n National Flag
26.11 2 L n Local Flag
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the patient record flag name.
DESCRIPTION:
This field contains the Patient Record Flag Name that is assigned to a patient.
TECHNICAL DESCR: This field contains the Patient Record Flag Name that is assigned to a patient as a variable
pointer field that will either reference the PRF NATIONAL FLAG file (#26.15) or the PRF LOCAL FLAG
file (#26.11).
UNEDITABLE
RECORD INDEXES: AFLAG (#259), ANDAT (#261), ASTAT (#262), C (#263)
26.13,.03 STATUS 0;3 SET (Required)
'0' FOR INACTIVE;
'1' FOR ACTIVE;
LAST EDITED: JUN 22, 2005
HELP-PROMPT: Enter the status of the record flag assignment.
DESCRIPTION:
This field indicates if the patient record flag assignment is Active or Inactive for this patient.
UNEDITABLE
RECORD INDEXES: AOWN (#690), ASTAT (#262), D (#264)
26.13,.04 OWNER SITE 0;4 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: JUN 22, 2005
HELP-PROMPT: Enter the site that owns this record flag assignment.
DESCRIPTION: This field contains the current site that owns this patient flag assignment. Patient assignments
may only be edited by the owner site. The owner site normally corresponds to the site providing
primary care to the patient.
TECHNICAL DESCR: This field contains a pointer to the INSTITUTION file (#4) of the current site that owns this
patient flag assignment. Patient assignments may only be edited by the owner site. The owner site
normally corresponds to the site providing primary care to the patient.
UNEDITABLE
RECORD INDEXES: AOWN (#690)
26.13,.05 ORIGINATING SITE 0;5 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the site that initially made the record flag assignment.
DESCRIPTION: This field contains the site that initially assigned the patient record flag to this patient. The
site that assigns the flag is not required to be the owner of the assignment.
TECHNICAL DESCR: This field contains a pointer to the INSTITUTION FILE (#4) of the site that first entered the flag
on this patient.
UNEDITABLE
26.13,.06 REVIEW DATE 0;6 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the review date for the record flag assignment.
DESCRIPTION: This field will contain the date that the flag assignment is due for review to determine continuing
appropriateness.
UNEDITABLE
RECORD INDEXES: AFREV (#260), ANDAT (#261)
26.13,1 ASSIGNMENT NARRATIVE 1;0 WORD-PROCESSING #26.132 (NOWRAP)
DESCRIPTION: This word processing field contains the patient record flag assignment narrative text. The
assignment narrative text is a description of the incident or reason that generated the need for
this patient record flag assignment. The description is followed by recommended actions that
should be performed by a person working with this specific patient.
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the narrative text for the record flag assignment.
DESCRIPTION: This word field contains the patient record flag assignment narrative text. The assignment
narrative text is a description of the incident or reason that generated the need for this
patient record flag assignment. The description is followed by recommended actions that should
be performed by a person working with this specific patient.
26.13,2 DBRS NUMBER 2;0 Multiple #26.131
LAST EDITED: FEB 13, 2018
DESCRIPTION: This multiple will allow the documentation of the identifiers recorded in the Disruptive Behavior
Record System (DBRS). One can also associate a brief description for each DBRS number.
26.131,.01 DBRS NUMBER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: S:X?.E1L.E X=$$UP^XLFSTR(X) K:$L(X)>18!($L(X)<10)!'((X?3N.7UN1"."6.7N)!(X?3N1"/".6UN1"."6.7N)) X
MAXIMUM LENGTH: 18
LAST EDITED: MAR 10, 2024
HELP-PROMPT: Answer must be 10-18 characters in length, .NNNNNNN
DESCRIPTION: This is the number as registered in the external system Disruptive Behavioral Record System
(DBRS).
The DBRS# format on that system is .YYNNNC where:
site_number := 3 numbers followed by 0-7 alphanumeric characters
for example: 6739AA for a nursing home
site_number := 3 numbers, 1 "/", 1-6 alphanumeric characters
for example: 673/107C
YYNNNC := 6 numbers
DELETE TEST: 1,0)= I +$P(^DGPF(26.13,DA(1),2,DA,0),U,4)'=+$$SITE^VASITE,'$G(DGDBRSE) D EN^DDIOL("Only the faci
lity which first entered this record may delete it!"),EN^DDIOL("","","!?0")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:26.131^B
1)= S ^DGPF(26.13,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^DGPF(26.13,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^26.131^.03
1)= X ^DD(26.131,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P(Y(
1),U,3),X=X S DIU=X K Y S X=DIV S X=$E($$NOW^XLFDT,1,12) X ^DD(26.131,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)
):^(0),1:"") S X=$P(Y(1),U,3)=""
1.4)= S DIH=$G(^DGPF(26.13,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=26.131,DIG=.03 D ^DICR
2)= Q
CREATE CONDITION)= DATE=""
CREATE VALUE)= S X=+$E($$NOW^XLFDT,1,12)
DELETE VALUE)= NO EFFECT
FIELD)= DATE
This data is computer generated. Whenever a new record is created in this multiple, this trigger
will stuff the date and time that this record was created.
CROSS-REFERENCE:^^TRIGGER^26.131^.04
1)= X ^DD(26.131,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P(Y(
1),U,4),X=X S DIU=X K Y S X=DIV S X=+$$SITE^VASITE X ^DD(26.131,.01,1,3,1.4)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)
):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U)=""
1.4)= S DIH=$G(^DGPF(26.13,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=26.131,DIG=.04 D ^DICR
2)= Q
CREATE CONDITION)= CREATE SITE=""
CREATE VALUE)= S X=+$$SITE^VASITE
DELETE VALUE)= NO EFFECT
FIELD)= CREATE
This will populate the CREATE SITE field with the VAMC Facility name.
FIELD INDEX: DBRS (#208) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.13)
Short Descr: Index entire file by DBRS#
Description: This index is used by a KEY to ensure that a DBRS Number is entered once and only once in this
VistA System.
Set Logic: S ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA)=""
Kill Logic: K ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA)
Whole Kill: K ^DGPF(26.13,"DBRS")
X(1): DBRS NUMBER (26.131,.01) (Subscr 1) (Len 30) (forwards)
26.131,.02 OTHER DBRS DATA 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<3) X
MAXIMUM LENGTH: 60
LAST EDITED: JAN 03, 2018
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
Enter any relevant information as desired.
26.131,.03 DATE 0;3 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAR 05, 2018
HELP-PROMPT: (No range limit on date)
DESCRIPTION: This date is computer generated at the time this DBRS record was created by a trigger cross
reference on the .01 field. Thus the meaning of this is that it is the date that this DBRS record
was entered in the owner facility system.
NOTES: TRIGGERED by the DBRS NUMBER field of the DBRS NUMBER sub-field of the PRF ASSIGNMENT File
26.131,.04 CREATE SITE 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JUL 27, 2018
HELP-PROMPT: VAMC that first entered this DBRS Number
DESCRIPTION: This field value is created by a Trigger cross reference on the .01 field. It is the name of the
facility that first entered this DBRS# for this assignment.
Business rule: only the VAMC that created this DBRS record is allowed to delete it.
NOTES: TRIGGERED by the DBRS NUMBER field of the DBRS NUMBER sub-field of the PRF ASSIGNMENT File
FILES POINTED TO FIELDS
INSTITUTION (#4) OWNER SITE (#.04)
ORIGINATING SITE (#.05)
DBRS NUMBER:CREATE SITE (#.04)
PATIENT (#2) PATIENT NAME (#.01)
PRF LOCAL FLAG (#26.11) FLAG NAME (#.02)
PRF NATIONAL FLAG (#26.15) FLAG NAME (#.02)
File #26.13
Record Indexes:
AFLAG (#259) RECORD REGULAR IR SORTING ONLY
Short Descr: Index the Flag Name(var pointer) and Patient fields.
Set Logic: S ^DGPF(26.13,"AFLAG",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"AFLAG",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"AFLAG")
X(1): FLAG NAME (26.13,.02) (Subscr 1) (forwards)
X(2): PATIENT NAME (26.13,.01) (Subscr 2) (forwards)
AFREV (#260) RECORD REGULAR IR SORTING ONLY
Short Descr: Index the Review Date and Patient Name fields
Set Logic: S ^DGPF(26.13,"AFREV",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"AFREV",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"AFREV")
X(1): REVIEW DATE (26.13,.06) (Subscr 1) (forwards)
X(2): PATIENT NAME (26.13,.01) (Subscr 2) (forwards)
ANDAT (#261) RECORD REGULAR IR SORTING ONLY
Short Descr: Computed notification date
Set Logic: S ^DGPF(26.13,"ANDAT",X(3),DA)=""
Kill Logic: K ^DGPF(26.13,"ANDAT",X(3),DA)
Whole Kill: K ^DGPF(26.13,"ANDAT")
X(1): FLAG NAME (26.13,.02) (forwards)
X(2): REVIEW DATE (26.13,.06) (forwards)
X(3): Computed Code: S X=$$NOTIFYDT^DGPFAA3(X(1),X(2)),X=$S(X>0:X,1:"")
(Subscr 1)
AOWN (#690) RECORD REGULAR IR SORTING ONLY
Short Descr: Index the OWNER SITE and STATUS fields
Set Logic: S ^DGPF(26.13,"AOWN",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"AOWN",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"AOWN")
X(1): OWNER SITE (26.13,.04) (Subscr 1) (forwards)
X(2): STATUS (26.13,.03) (Subscr 2) (forwards)
ASTAT (#262) RECORD REGULAR IR SORTING ONLY
Short Descr: Index the STATUS and FLAG NAME fields.
Set Logic: S ^DGPF(26.13,"ASTAT",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"ASTAT",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"ASTAT")
X(1): STATUS (26.13,.03) (Subscr 1) (forwards)
X(2): FLAG NAME (26.13,.02) (Subscr 2) (forwards)
C (#263) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index the Patient and Flag Name fields
Set Logic: S ^DGPF(26.13,"C",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"C",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"C")
X(1): PATIENT NAME (26.13,.01) (Subscr 1) (forwards)
X(2): FLAG NAME (26.13,.02) (Subscr 2) (forwards)
D (#264) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index the Patient Name and the Status fields
Set Logic: S ^DGPF(26.13,"D",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.13,"D",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.13,"D")
X(1): PATIENT NAME (26.13,.01) (Subscr 1) (forwards)
X(2): STATUS (26.13,.03) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):