Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^GMR(124.3

Package: General Medical Record - Generator

Global: ^GMR(124.3


Information

FileMan FileNo FileMan Filename Package
124.3 GMR TEXT General Medical Record - Generator

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
Nursing Service 26 NURCAS1    NURCCPU0    NURCCPU1    NURCCPU2    NURCCPU3    NURCCPU4    NURCCPU5    NURCES1
NURCEVE0    NURCEVE2    NURCEVE4    NURCEVE5    NURCEVP0    NURCPP1    NURCPP2    NURCPP4
NURCPP6    NURCPP7    NURCPP8    NURCPP9    NURCPPS1    NURCPPS2    NURCPPS3    NURCPPS4
NURCRL4    NURCROP0    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
General Medical Record - Generator 4 GMRGARC0    GMRGED7    GMRGRUT3    GMRGXUPD    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Nursing Service 1 NURS CARE PLAN(#216.8)[.01]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
General Medical Record - Generator 1 AGGREGATE TERM(#124.2)[.01, #124.31(.01)]    
Kernel 1 NEW PERSON(#200)[3, 5.2, #124.313(2)]
Registration 1 PATIENT(#2)[.02]    

Fields, Total: 9

Field # Name Loc Type Details
.01 TEXT BLOCK 0;1 POINTER TO AGGREGATE TERM FILE (#124.2)
************************REQUIRED FIELD************************
AGGREGATE TERM(#124.2)

  • 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 DOCUMENT""" 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 DOCUMENT"""
  • 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.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • 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)="".
.03 DATE CREATED 0;3 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 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.
1 SELECTION 1;0 POINTER Multiple #124.31 124.31

  • DESCRIPTION:  
    A record of all AGGREGATE TERMs selected, and any FREE TEXT entered for this TEXT BLOCK.
3 AUTHOR 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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
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.
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
5.2 USER ENTERING IN ERROR 5;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 09, 1992
  • DESCRIPTION:  
    User that flagged the text as entered in error.
    UNEDITABLE
6 DATE LAST UPDATED 0;6 DATE
************************REQUIRED FIELD************************

  • 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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All