STANDARD DATA DICTIONARY #26.14 -- PRF ASSIGNMENT HISTORY FILE 6/27/25 PAGE 1
STORED IN ^DGPF(26.14, *** 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 the audit information associated with a record in the PRF ASSIGNMENT (#26.13) file. Entries in this file are
created automatically by the Record Flag Assignment [DGPF RECORD FLAG ASSIGNMENT] option for each creation/edit of a PRF ASSIGNMENT
(#26.13) file entry.
Records in this file should not be added, edited, or deleted except through the use of the Patient Record Flag software that is
part of Registration. Doing so would likely cause the Patient Record Flag database to become corrupted.
IDENTIFIED BY: DATE/TIME (#.02)[R], ACTION (#.03)[R]
POINTED TO BY: PRF ASSIGNMENT HISTORY field (#.02) of the PRF HL7 TRANSMISSION LOG File (#26.17)
CROSS
REFERENCED BY: PRF ASSIGNMENT(B)
INDEXED BY: APPROVED BY & PRF ASSIGNMENT (APPRO), TIU PN LINK (ATIUPN), PRF ASSIGNMENT & DATE/TIME (C), DATE/TIME & APPROVED BY
(D)
LAST MODIFIED: JUN 14,2024@11:27:04
26.14,.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.14,.01 PRF ASSIGNMENT 0;1 POINTER TO PRF ASSIGNMENT FILE (#26.13) (Required)
LAST EDITED: MAY 24, 2018
HELP-PROMPT: Enter the record flag assignment associated with this history record.
DESCRIPTION: This field contains the history record's parent Patient Record Flag Assignment in the PRF
ASSIGNMENT file.
TECHNICAL DESCR: This field is a pointer to the history record's parent Patient Record Flag Assignment in the PRF
ASSIGNMENT file (#26.13).
UNEDITABLE
CROSS-REFERENCE: 26.14^B
1)= S ^DGPF(26.14,"B",$E(X,1,30),DA)=""
2)= K ^DGPF(26.14,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^26.14^.09
1)= X ^DD(26.14,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.14,D0,0)):^(0),1:"") S X=$P(Y(1),U,9
),X=X S DIU=X K Y S X=DIV S X=+$$SITE^VASITE S DIH=$G(^DGPF(26.14,DIV(0),0)),DIV=X S $P(^(0),U,9)=D
IV,DIH=26.14,DIG=.09 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGPF(26.14,D0,0)):^(0),1:"") S X=$P($G(^
DIC(4,+$P(Y(1),U,9),0)),U)=""
2)= Q
CREATE CONDITION)= #.09=""
CREATE VALUE)= S X=+$$SITE^VASITE
DELETE VALUE)= NO EFFECT
FIELD)= #.09
Upon creation of a History record, stuff the current default INSTITUTION into field CREATED BY
SITE.
RECORD INDEXES: APPRO (#265), C (#266)
26.14,.02 DATE/TIME 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the Date/Time of the assignment history.
DESCRIPTION: This field will contain the Date and [optional] Time of either the initial ASSIGNMENT of the
PATIENT RECORD FLAG or the REVIEW Date/Time of the PATIENT RECORD FLAG.
UNEDITABLE
RECORD INDEXES: C (#266), D (#267)
26.14,.03 ACTION 0;3 SET (Required)
'1' FOR NEW ASSIGNMENT;
'2' FOR CONTINUE;
'3' FOR INACTIVATE;
'4' FOR REACTIVATE;
'5' FOR ENTERED IN ERROR;
'6' FOR DBRS#/OTHER FIELD UPDATE;
'7' FOR REFRESH INACTIVE;
'8' FOR REFRESH ACTIVE;
LAST EDITED: SEP 11, 2018
HELP-PROMPT: Enter the action associated with the assignment history.
DESCRIPTION:
This field contains the event that occurred to create this PRF ASSIGNMENT HISTORY record.
UNEDITABLE
26.14,.04 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the user who is entering or editing the record flag assignment.
DESCRIPTION: This field contains the name of the person entering, editing or reviewing the associated patient
record flag assignment.
TECHNICAL DESCR: This field contains the pointer to the NEW PERSON FILE (#200) of the person making the
Enter/Edit/Review to a PATIENT RECORD FLAG of the associated PRF ASSIGNMENT FILE (#26.13) record.
UNEDITABLE
26.14,.05 APPROVED BY 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
OUTPUT TRANSFORM: S Y=$$COS^DGPFDD(Y)
LAST EDITED: MAY 09, 2003
HELP-PROMPT: Enter the person approving the record flag assignment.
DESCRIPTION: This field contains the name of the person who approved the assignment of the patient record flag
to the patient.
TECHNICAL DESCR: This field contains the pointer to the NEW PERSON FILE (#200) of the person who approved the
assignment of the patient record flag to the patient. When the assignment originates from a site
different from the local site, the internal value of the field will be .5 (POSTMASTER). An output
transform converts POSTMASTER to the text "CHIEF OF STAFF" for screen displays and reports.
UNEDITABLE
RECORD INDEXES: APPRO (#265), D (#267)
26.14,.06 TIU PN LINK 0;6 POINTER TO TIU DOCUMENT FILE (#8925) (Required)
LAST EDITED: APR 20, 2004
HELP-PROMPT: Enter the Progress Note IEN that will be linked to this assignment history record.
DESCRIPTION: This field contains the IEN of the TIU Progress Note that is linked to this PRF Assignment History
record. Integration Agreement #4387.
TECHNICAL DESCR: This field contains the pointer to the TIU DOCUMENT file (#8925) of the Progress Note that is
linked to this PRF Assignment History record.
UNEDITABLE
FIELD INDEX: ATIUPN (#646) REGULAR IR SORTING ONLY
Short Descr: This is a sort only index of the TIU PN LINK field.
Set Logic: S ^DGPF(26.14,"ATIUPN",X,DA)=""
Kill Logic: K ^DGPF(26.14,"ATIUPN",X,DA)
Whole Kill: K ^DGPF(26.14,"ATIUPN")
X(1): TIU PN LINK (26.14,.06) (Subscr 1) (forwards)
26.14,.09 CREATED BY SITE 0;9 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: SEP 24, 2018
HELP-PROMPT: Enter the name of the facility that created this record.
DESCRIPTION: Enter the name of the INSTITUTION which created this history record. This field is auto-populated
with the system's facility name whenever a new record is created in this file by a Fileman trigger
cross reference on the .01 field.
NOTES: TRIGGERED by the PRF ASSIGNMENT field of the PRF ASSIGNMENT HISTORY File
26.14,1 HISTORY COMMENTS 1;0 WORD-PROCESSING #26.141 (NOWRAP)
DESCRIPTION: This word processing field contains the comments associated with the patient record flag assignment
history. The history comments should describe the reason that the history record was generated.
LAST EDITED: APR 23, 2003
HELP-PROMPT: Enter the comments associated with this history record.
TECHNICAL DESCR: This field will contain the comments that apply to the Enter/Edit/Review of the patient's RECORD
FLAG of the PRF ASSIGNMENT FILE (#26.13).
26.14,2 DBRS NUMBER 2;0 Multiple #26.142
DESCRIPTION: The Disruptive Behavior Reporting System (DBRS) has information which might be of interest. This
field records any changes to DBRS# records in file 26.13.
26.142,.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: APR 04, 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: 673AA for a nursing home
site_number := 3 numbers, 1 "/", 1-6 alphanumeric characters
for example: 673/107C
YYNNNC := 6 numbers
TECHNICAL DESCR: In most cases, a History record for DBRS# will contain the complete set of DBRS# data that
existed at the time this record was created. The HL7 processing routines at the site that
receives the message will delete all existing DBRS# for that assignment and then add in all the
DBRS# in that HL7 message. There are a few exceptions to this general rule.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 26.142^B
1)= S ^DGPF(26.14,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^DGPF(26.14,DA(1),2,"B",$E(X,1,30),DA)
26.142,.02 DBRS OTHER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
MAXIMUM LENGTH: 60
LAST EDITED: JUN 11, 2018
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
Additional information pertinent to this DBRS#
26.142,.03 DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 24, 2018
HELP-PROMPT: Enter the date that the DBRS record was created in file 26.13.
DESCRIPTION: This is the date that this DBRS record was created on the system which first entered this DBRS
record for this assignment. It should be the same value as that recorded in the PRF Assignment
file (#26.13).
26.142,.04 STATUS 0;4 SET
'A' FOR Add;
'D' FOR Delete;
'E' FOR Edit;
'N' FOR No Change;
LAST EDITED: SEP 20, 2018
HELP-PROMPT: Enter the type edit action that occurred.
DESCRIPTION: If any changes occur to any DBRS entry in file 26.13, then for that corresponding History record
show all the DBRS records that existed at that time. This status value will indicate the status
of that DBRS record in 26.13 at the time this History record was created.
26.142,.05 CREATE SITE 0;5 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JUL 12, 2018
HELP-PROMPT: This is the name of Facility that first entered this DBRS#
DESCRIPTION: This is the name of the Facility that first created this DBRS# record. It should be the same
value as in the associated Flag Assignment (#26.13).
FILES POINTED TO FIELDS
INSTITUTION (#4) CREATED BY SITE (#.09)
DBRS NUMBER:CREATE SITE (#.05)
NEW PERSON (#200) ENTERED BY (#.04)
APPROVED BY (#.05)
PRF ASSIGNMENT (#26.13) PRF ASSIGNMENT (#.01)
TIU DOCUMENT (#8925) TIU PN LINK (#.06)
File #26.14
Record Indexes:
APPRO (#265) RECORD REGULAR IR SORTING ONLY
Short Descr: This is a regular index on the APPROVED BY and PRF ASSIGNMENT fields.
Set Logic: S ^DGPF(26.14,"APPRO",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.14,"APPRO",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.14,"APPRO")
X(1): APPROVED BY (26.14,.05) (Subscr 1) (forwards)
X(2): PRF ASSIGNMENT (26.14,.01) (Subscr 2) (forwards)
C (#266) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: This is a regular index on the PRF ASSIGNMENT & DATE/TIME FIELDS.
Set Logic: S ^DGPF(26.14,"C",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.14,"C",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.14,"C")
X(1): PRF ASSIGNMENT (26.14,.01) (Subscr 1) (forwards)
X(2): DATE/TIME (26.14,.02) (Subscr 2) (forwards)
D (#267) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: This is a regular index on the DATE/TIME & APPROVED BY fields.
Set Logic: S ^DGPF(26.14,"D",X(1),X(2),DA)=""
Kill Logic: K ^DGPF(26.14,"D",X(1),X(2),DA)
Whole Kill: K ^DGPF(26.14,"D")
X(1): DATE/TIME (26.14,.02) (Subscr 1) (forwards)
X(2): APPROVED BY (26.14,.05) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):