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

Package: General Medical Record - Generator

GMR TEXT(#124.3)-->124.31

Sub-Field: 124.31


Information

Parent File Name Number Package
GMR TEXT(#124.3) SELECTION 124.31 General Medical Record - Generator

Details

Field # Name Loc Type Details
.01 SELECTION 0;1 POINTER TO AGGREGATE TERM FILE (#124.2) AGGREGATE TERM(#124.2)

  • 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.
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
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(^GMR(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
3 AUDIT TRAIL 2;0 DATE Multiple #124.313 124.313

  • 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]
4 ADDED 0;3 SET
************************REQUIRED FIELD************************
  • '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'.
Info |  Details |  All