Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 124.313

Package: General Medical Record - Generator

GMR TEXT(#124.3)-->124.31-->124.313

Sub-Field: 124.313


Information

Parent File Name Number Package
124.31 AUDIT TRAIL 124.313 General Medical Record - Generator

Details

Field # Name Loc Type Details
.01 AUDIT TRAIL DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • 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=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.
  • 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.
1 MODIFICATION 0;2 SET
************************REQUIRED FIELD************************
  • '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,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.
2 USER WHO MODIFIED 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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
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
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
Info |  Details