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 | Found Entries | 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

File that stores the selected patient data for a prime document.

Directly Accessed By Routines, Total: 52

Package	Total	Routines
General Medical Record - Generator	26	GMRGARC0 GMRGED0 GMRGED1 GMRGED2 GMRGED4 GMRGED5 GMRGED6 GMRGED7 GMRGED8 GMRGED9 GMRGEDA GMRGEDB GMRGPNB0 GMRGPNB1 GMRGPNB2 GMRGPUT0 GMRGPUTL GMRGRUT0 GMRGRUT2 GMRGRUT3 GMRGUT0 GMRGUT1 GMRGUT3 GMRGUT4 GMRGUTL GMRGXUPD
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	VA 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 VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA 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: `OCT 12, 1988` 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 | Found Entries | All