Sub-Field: 124.313

Date/time of the modification of this selection.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

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=G

MRG(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.

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.

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.

The type of modification that was made.

DELETE AUTHORITY: ^

WRITE AUTHORITY:^

UNEDITABLE

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,DA(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,DA(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.

User who made this modification.

DELETE AUTHORITY: ^

WRITE AUTHORITY:^

UNEDITABLE

This is the appended/internal text that existed at this date/time for this care plan.

DELETE AUTHORITY: ^

WRITE AUTHORITY:^

UNEDITABLE

The additional text for a term at this point in time.

DELETE AUTHORITY: ^

WRITE AUTHORITY:^

UNEDITABLE