Global: ^GMR(124.3

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

Package	Total	Routines
General Medical Record - Generator	29	AUDIT TRAIL GMRGARC0 GMRGED0 GMRGED1 GMRGED2 GMRGED4 GMRGED5 GMRGED6 GMRGED7 GMRGED8 GMRGED9 GMRGEDA GMRGEDB GMRGPNB0 GMRGPNB1 GMRGPNB2 GMRGPUT0 GMRGUT1 GMRGXUPD ^GMR(124.3 GMRGPUTL GMRGRUT0 GMRGRUT2 GMRGRUT3 GMRGUT0 GMRGUT3 GMRGUT4 GMRGUTL SELECTION
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

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

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

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.`

Name	Field # of Occurrence
^%DT	.03+1, 5.1+1, 6+1
^DIC	.01+1
^DICR	.01(XREF 3n1.4)
DT^DIQ	ID.03+1
Y^DIQ	ID.02+1
EN1^GMRGUT4	5(XREF 1S)
UPD1^GMRGUT4	.03(XREF 3S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 3n1.4)
^DD(124.3	.01(XREF 3S)
^DD(2	ID.02+1
^DPT - [#2]	ID.02+1
^GMR(124.3 - [#124.3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S) , .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), 6(XREF 1S), 6(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, 5.1+1, 6+1*
%I	ID.02+1!, ID.03+1!
>> C	ID.02+1*
>> D0	.01(XREF 3S)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), 6(XREF 1S), 6(XREF 1K)
DIC	ID.02+1, .01+1!*
DIC("S"	.01+1, .01SCR+1
>> DIE	.01+1
>> DIG	.01(XREF 3n1.4)
>> DIH	.01(XREF 3n1.4)
>> DIU	.01(XREF 3S)
DIV	.01(XREF 3S), .01(XREF 3n1.4)
DIV(0	.01(XREF 3S), .01(XREF 3n1.4)
DUZ	.01(XREF 3S)
GMRG	.01(XREF 2S), .01(XREF 2K), .01(XREF 4K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
GMRG(1	.02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
GMRG(2	.01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
GMRG(3	.01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
U	ID.02+1, ID.03+1, .01(XREF 3S), .01(XREF 3n1.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .02(XREF 1S), .02(XREF 1K) , .02(XREF 2S), .02(XREF 2K), .03+1!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), 5.1+1!, 6+1!, 6(XREF 1S) , 6(XREF 1K)
Y	ID.02+1, ID.03+1, .01+1, .01(XREF 3S), .03+1, 5.1+1, 6+1
Y(0	.01(XREF 3S)
Y(1	.01(XREF 3S)

Customize PDF page

Package: General Medical Record - Generator

Global: ^GMR(124.3

Information

Description

Directly Accessed By Routines, Total: 56

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 9

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S) , .03(XREF 1K)
^(1	.01(XREF 4S)