STANDARD DATA DICTIONARY #124.3 -- GMR TEXT FILE 9/29/25 PAGE 1
STORED IN ^GMR(124.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
File that stores the selected patient data for a prime document.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: PATIENT (#.02)[R], DATE CREATED (#.03)[R]
POINTED TO BY: TEXT FILE ENTRY field (#.01) of the NURS CARE PLAN File (#216.8)
CROSS
REFERENCED BY: TEXT BLOCK(AA), PATIENT(AA01), DATE CREATED(AA02), ENTERED IN ERROR(AEET), TEXT BLOCK(ALIST), DATE CREATED(AUPD),
DATE LAST UPDATED(AUPDT), TEXT BLOCK(B), PATIENT(C), DATE CREATED(D)
124.3,.01 TEXT BLOCK 0;1 POINTER TO AGGREGATE TERM FILE (#124.2) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)>0,$D(^GMRD(124.25,$P(^GMRD(124.2,+Y,0),U,4),0)),$P(^(0),U)=""PRIME DOCUM
ENT""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 11, 1989
DESCRIPTION:
The topic/lead frame associated with the information.
SCREEN: S DIC("S")="I $P(^(0),U,4)>0,$D(^GMRD(124.25,$P(^GMRD(124.2,+Y,0),U,4),0)),$P(^(0),U)=""PRIME DOCUM
ENT"""
EXPLANATION: A text block can only be a prime document
CROSS-REFERENCE: 124.3^B
1)= S ^GMR(124.3,"B",$E(X,1,30),DA)=""
2)= K ^GMR(124.3,"B",$E(X,1,30),DA)
This is a regular index on the entire file of the GMR Text (.01) field.
CROSS-REFERENCE: 124.3^AA^MUMPS
1)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(2)=$P(GMRG,"^",2),GMRG(3)=$P(GMRG,"^",3) S:GMRG(
2)'=""&(GMRG(3)'="") ^GMR(124.3,"AA",GMRG(2),X,9999999-GMRG(3),DA)="" K GMRG
2)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(2)=$P(GMRG,"^",2),GMRG(3)=$P(GMRG,"^",3) K:GMRG(
2)'=""&(GMRG(3)'="") ^GMR(124.3,"AA",GMRG(2),X,9999999-GMRG(3),DA) K GMRG
This is a multi-field index ("AA") on the GMR Text (.01), Patient (.02), and Date Created (.03)
fields. The structure of the cross-reference is:
^GMR(124.3,"AA",Patient,GMR_Text,9999999-Date_Created,DA)="".
CROSS-REFERENCE: ^^TRIGGER^124.3^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $S('$D(^GMR(124.3,D0,0)):1,$P(^(0),U,5)="":1,1:0) I X
S X=DIV S Y(1)=$S($D(^GMR(124.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ
X ^DD(124.3,.01,1,3,1.4)
1.4)= S DIH=$S($D(^GMR(124.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=124.3,DIG=3 D ^DICR
:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= I $S('$D(^GMR(124.3,D0,0)):1,$P(^(0),U,5)="":1,1:0)
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= AUTHOR
This field triggers the value of DUZ into the Author (3) field if there is no data in that field
already. This will ensure that the Author field is set to the person who created this record.
CROSS-REFERENCE: 124.3^ALIST^MUMPS
1)= S:'$D(^GMR(124.3,DA,1,"ALIST",X,1)) ^(1)="^0" S:'$D(^GMR(124.3,DA,1,0)) ^(0)="^124.31PA^^"
2)= X "F GMRG=0:0 S GMRG=$O(^GMR(124.3,DA,1,""ALIST"",X,GMRG)) Q:GMRG'>0 K ^GMR(124.3,DA,1,""ALIST
"",X,GMRG)" K GMRG
This cross-reference sets part of the ("ALIST") index on the Selection sub-file. This index
represents the order in which the terms were selected for this entry. The structure of the index
is:
^GMR(124.3,DA(1),1,"ALIST",GMR_Text,#)="^child1^child2^..." where # is an integer ranging from 1
to the number of entries in the index for the particular GMR_Text. The cross-reference is equal to
an ^ delimited list of the children selected for the particular entry being indexed. If the list
of children is longer than 245 characters, it overflows to the next # subscript.
124.3,.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: OCT 12, 1988
HELP-PROMPT: ANSWER WITH THE NAME OF THE PATIENT THIS TEXT IS FOR.
DESCRIPTION:
The patient associated with the filed information.
CROSS-REFERENCE: 124.3^C
1)= S ^GMR(124.3,"C",$E(X,1,30),DA)=""
2)= K ^GMR(124.3,"C",$E(X,1,30),DA)
This is a regular cross-reference on the entire file of the Patient (.02) field.
CROSS-REFERENCE: 124.3^AA01^MUMPS
1)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(3)=$P(GMRG,"^",3) S:GMRG(1)
'=""&(GMRG(3)'="") ^GMR(124.3,"AA",X,GMRG(1),9999999-GMRG(3),DA)="" K GMRG
2)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(3)=$P(GMRG,"^",3) K:GMRG(1)
'=""&(GMRG(3)'="") ^GMR(124.3,"AA",X,GMRG(1),9999999-GMRG(3),DA) K GMRG
This is a multi-field index ("AA") on the GMR Text (.01), Patient (.02), and Date Created (.03)
fields. The structure of the cross-reference is:
^GMR(124.3,"AA",Patient,GMR_Text,9999999-Date_Created,DA)="".
124.3,.03 DATE CREATED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1996
HELP-PROMPT: ENTER THE DATE THIS TEXT WAS CREATED.
DESCRIPTION:
The date/time this text was created.
CROSS-REFERENCE: 124.3^AA02^MUMPS
1)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(2)=$P(GMRG,"^",2) S:GMRG(1)
'=""&(GMRG(2)'="") ^GMR(124.3,"AA",GMRG(2),GMRG(1),9999999-X,DA)="" K GMRG
2)= S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(2)=$P(GMRG,"^",2) K:GMRG(1)
'=""&(GMRG(2)'="") ^GMR(124.3,"AA",GMRG(2),GMRG(1),9999999-X,DA) K GMRG
This is a multi-field index ("AA") on the GMR Text (.01), Patient (.02), and Date Created (.03)
fields. The structure of the cross-reference is:
^GMR(124.3,"AA",Patient,GMR_Text,9999999-Date_Created,DA)="".
CROSS-REFERENCE: 124.3^D
1)= S ^GMR(124.3,"D",$E(X,1,30),DA)=""
2)= K ^GMR(124.3,"D",$E(X,1,30),DA)
This is a regular cross-reference on the entire file for the Date Created (.03) field.
CROSS-REFERENCE: 124.3^AUPD^MUMPS
1)= D UPD1^GMRGUT4
2)= Q
This cross-reference will trigger data into the Date Last Updated (6) field.
124.3,1 SELECTION 1;0 POINTER Multiple #124.31 (Add New Entry without Asking)
DESCRIPTION:
A record of all AGGREGATE TERMs selected, and any FREE TEXT entered for this TEXT BLOCK.
124.31,.01 SELECTION 0;1 POINTER TO AGGREGATE TERM FILE (#124.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="D EN4^GMRGUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 25, 1990
HELP-PROMPT: ANSWER WITH AGGREGATE TERM TO BE FILED WITH THIS TEXT BLOCK.
DESCRIPTION:
An AGGREGATE TERM that belongs to this text block.
SCREEN: S DIC("S")="D EN4^GMRGUTL"
EXPLANATION: Screen to pick valid selections
DELETE TEST: 1,0)= I 1 D EN^DDIOL($C(7)_"SELECTIONS CANNOT BE DELETED!!")
LAYGO TEST: 1,0)= D EN^DDIOL("CANNOT ADD SELECTIONS THROUGH FILEMAN!!") I 0
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 124.31^B
1)= S ^GMR(124.3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^GMR(124.3,DA(1),1,"B",$E(X,1,30),DA)
This is a regular cross-reference on the Selection multiple of the Selection (.01) sub-field.
124.31,1 APPENDED/INTERNAL TEXT 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>175!($L(X)<1)!'(X'?1P.E!(X?1"|".E)) X I $D(X) D EN2^GMRGUT3
LAST EDITED: JUL 06, 1989
HELP-PROMPT: ANSWER MUST BE 1-175 CHARACTERS IN LENGTH. Enter "???" for more information.
DESCRIPTION: Any additional free text for a SELECTION is entered here. Multiple values are allowed with the
horizontal bar (|) used as a delimiter. The first piece is equal to the free text appended to
the end of an aggregate term, and all subsequent pieces are equal to any [ embedded ] free text
within an AGGREGATE TERM.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
124.31,2 ADDITIONAL TEXT ADD;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:(X?1P.E)!($L(X)>245)!($L(X)<1) X I $D(X),'$P($G(^GMRD(124.2,+$P(^GM
R(124.3,DA(1),1,DA,0),U),0)),U,9) D EN^DDIOL($C(7)_"Ask Additional Text flag not set.") K X
LAST EDITED: JUL 06, 1989
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION:
This is additional text that is applicable for this term.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
124.31,3 AUDIT TRAIL 2;0 DATE Multiple #124.313 (Add New Entry without Asking)
DESCRIPTION: This is an audit trail on this selection used by the General Medical Record Treatment Planner to
determine the status of this selection.
IDENTIFIED BY: MODIFICATION(#1)[R]
124.313,.01 AUDIT TRAIL DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1996
HELP-PROMPT: ENTER DATE/TIME RECORD WAS MODIFIED
DESCRIPTION:
Date/time of the modification of this selection.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("YOU CANNOT DELETE AUDIT TRAIL ENTRIES!!")
LAYGO TEST: 1,0)= D EN^DDIOL("NEW ENTRIES CANNOT BE ADDED THROUGH FILEMAN!!") I 0
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
CROSS-REFERENCE:124.313^AUT^MUMPS
1)= S GMRG=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),"^",3),1:""),GMRG(0)=X S:GMRG="" X=DUZ,$
P(^(0),"^",3)=X X:GMRG="" "F GMRG=0:0 S GMRG=$O(^DD(124.313,2,1,GMRG)) Q:GMRG'>0 X:$D(^DD(124.313,
2,1,GMRG,1)) ^(1)" S X=GMRG(0) K GMRG
2)= Q
This cross-reference triggers the value of DUZ into the User Who Modified (2) sub-field of the
Audit Trail sub-file if that field has no data in it. This will ensure that a user will be
associated with each Audit Trail entry.
CROSS-REFERENCE:124.313^AA^MUMPS
1)= S GMRG(2)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),"^",2),1:"") S:GMRG(2)'="" ^GMR(124.3
,DA(2),1,DA(1),2,"AA",9999999-X,GMRG(2),DA)="" K GMRG S GMRG=1 D EN7^GMRGUT1
2)= S GMRG(2)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),"^",2),1:"") K:GMRG(2)'="" ^GMR(124.3
,DA(2),1,DA(1),2,"AA",9999999-X,GMRG(2),DA) K GMRG S GMRG=0 D EN7^GMRGUT1
This cross-reference does two things.
First it sets a multi-field ("AA") index on the Audit Trail sub-file with the Audit Trail Date/Time
(.01) and Modificatino (1) sub-fields of the Audit Trail sub-file. The structure of this
cross-reference is:
^GMR(124.3,DA(2),1,DA(1),2,"AA",9999999-Audit_Trail_D/T,Modification,DA)="".
Secondly, this cross-reference sets part of the ("ALIST") index on the Selection sub-file. This
index represents the order in which the terms were selected for this entry. This index takes the
value of the Selection (.01) sub-field of the Selection sub-file associated with this Audit Trail
entry and checks to see if this modification is an add or delete. If it's an add, then it will
update the "ALIST" cross-reference to indicate that this Selection is currently part of the data.
This includes ensuring the "ALIST" index exists for this Selection, and that any parents of the
Selection present in the "ALIST" index have their child list updated to indicate that this
Selection is a child for its parent. If it's a delete, then it updates the "ALIST" cross-reference
to indicate that this Selection is not part of the data by removing the "ALIST" entry for the
Selection and removes this Selection from its parent's children lists. The structure of the index
is:
^GMR(124.3,DA(1),1,"ALIST",Selection,#)="^child1^child2^..." where # is an integer ranging from 1
to the number of entries in the index for the particular Selection. The cross-reference is equal
to an ^ delimited list of the children selected for the particular entry being indexed. If the
list of children is longer than 245 characters, it overflows to the next # subscript.
CROSS-REFERENCE:124.31^AUPD^MUMPS
1)= D UPD^GMRGUT4(1)
2)= D UPD^GMRGUT4(2)
This cross-reference triggers data into the Date Last Updated (6) field of the GMR Text file.
124.313,1 MODIFICATION 0;2 SET (Required)
'0' FOR DELETE;
'1' FOR CREATE;
'2' FOR EDIT;
INPUT TRANSFORM:D EN3^GMRGUT3 K DIC("S") Q
LAST EDITED: JUL 07, 1989
HELP-PROMPT: ENTER DELETE, CREATE, OR EDIT.
DESCRIPTION:
The type of modification that was made.
SCREEN: S DIC("S")="D EN2^GMRGUTL"
EXPLANATION: The only valid selections are:
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:124.313^AA01^MUMPS
1)= S GMRG(1)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),"^"),1:"") S:GMRG(1)'="" ^GMR(124.3,D
A(2),1,DA(1),2,"AA",9999999-GMRG(1),X,DA)="" K GMRG S GMRG=1 D EN7^GMRGUT1
2)= S GMRG(1)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),"^"),1:"") K:GMRG(1)'="" ^GMR(124.3,D
A(2),1,DA(1),2,"AA",9999999-GMRG(1),X,DA) K GMRG S GMRG=0 D EN7^GMRGUT1
This cross-reference does two things.
First it sets a multi-field ("AA") index on the Audit Trail sub-file with the Audit Trail Date/Time
(.01) and Modificatino (1) sub-fields of the Audit Trail sub-file. The structure of this
cross-reference is:
^GMR(124.3,DA(2),1,DA(1),2,"AA",9999999-Audit_Trail_D/T,Modification,DA)="".
Secondly, this cross-reference sets part of the ("ALIST") index on the Selection sub-file. This
index represents the order in which the terms were selected for this entry. This index takes the
value of the Selection (.01) sub-field of the Selection sub-file associated with this Audit Trail
entry and checks to see if this modification is an add or delete. If it's an add, then it will
update the "ALIST" cross-reference to indicate that this Selection is currently part of the data.
This includes ensuring the "ALIST" index exists for this Selection, and that any parents of the
Selection present in the "ALIST" index have their child list updated to indicate that this
Selection is a child for its parent. If it's a delete, then it updates the "ALIST" cross-reference
to indicate that this Selection is not part of the data by removing the "ALIST" entry for the
Selection and removes this Selection from its parent's children lists. The structure of the index
is: ^GMR(124.3,DA(1),1,"ALIST",Selection,#)="^child1^child2^..." where # is an integer ranging
from 1 to the number of entries in the index for the particular Selection. The cross-reference is
equal to an ^ delimited list of the children selected for the particular entry being indexed. If
the list of children is longer than 245 characters, it overflows to the next # subscript.
124.313,2 USER WHO MODIFIED 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JAN 09, 1992
HELP-PROMPT: ENTER THE NAME OF THE USER WHO MODIFIED THIS RECORD
DESCRIPTION:
User who made this modification.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
124.313,3 APPENDED/INTERNAL TEXT 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>175!($L(X)<1)!'(X'?1P.E!(X?1"|".E)) X
LAST EDITED: JUL 06, 1989
HELP-PROMPT: Enter appended/internal text that exist for this Care Plan on this date and time.
DESCRIPTION:
This is the appended/internal text that existed at this date/time for this care plan.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
124.313,4 ADDITIONAL TEXT ADD;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>245!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JUL 06, 1989
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION:
The additional text for a term at this point in time.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
124.31,4 ADDED 0;3 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 06, 1989
DESCRIPTION: This is a flag that is stuffed in directly by the patient data edit. This flag denotes whether
this term has been added into the patient care plan or not.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
READ AUTHORITY:^
UNEDITABLE
CROSS-REFERENCE:124.31^ANOT^MUMPS
1)= S:'X ^GMR(124.3,DA(1),1,"ANOT",DA)=""
2)= K ^GMR(124.3,DA(1),1,"ANOT",DA)
This cross-reference sets the ("ANOT") index which is a regular index of the Selection sub-file of
the Added (4) sub-field. This index is only set if the value of the Added field is 'NO'.
124.3,3 AUTHOR 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JAN 09, 1992
HELP-PROMPT: ANSWER WITH THE SIGN-ON USER
DESCRIPTION:
User who created the text.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the TEXT BLOCK field of the GMR TEXT File
124.3,5 ENTERED IN ERROR 5;1 SET
'1' FOR YES;
LAST EDITED: OCT 26, 1988
DESCRIPTION:
Flag to designate if a text block has been entered in error.
DELETE TEST: 1,0)= I 1
CROSS-REFERENCE: 124.3^AEET^MUMPS
1)= D EN1^GMRGUT4
2)= Q
This cross-reference triggers the current date/time into the Date Entered in Error (5.1) field and
DUZ into the User Entering in Error (5.2) field.
124.3,5.1 DATE ENTERED IN ERROR 5;2 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 27, 1988
DESCRIPTION:
Date that this text was flagged as being in error.
UNEDITABLE
124.3,5.2 USER ENTERING IN ERROR 5;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 09, 1992
DESCRIPTION:
User that flagged the text as entered in error.
UNEDITABLE
124.3,6 DATE LAST UPDATED 0;6 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1996
DESCRIPTION: This field contains the date/time this GMR Text entry was last updated. The data in this field is
triggered from the Audit Trail multiple and Date Created field and cannot be changed via FileMan.
WRITE AUTHORITY: @
CROSS-REFERENCE: 124.3^AUPDT
1)= S ^GMR(124.3,"AUPDT",$E(X,1,30),DA)=""
2)= K ^GMR(124.3,"AUPDT",$E(X,1,30),DA)
This is a regular cross-reference on the Date Last Updated (6) field for the whole GMR Text (124.3)
file. This cross-reference will not be used for lookup as well as sorting.
FILES POINTED TO FIELDS
AGGREGATE TERM (#124.2) TEXT BLOCK (#.01)
SELECTION:SELECTION (#.01)
NEW PERSON (#200) AUTHOR (#3)
USER ENTERING IN ERROR (#5.2)
AUDIT TRAIL:USER WHO MODIFIED (#2)
PATIENT (#2) PATIENT (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):