Global: ^GMRD(124.2

FileMan FileNo	FileMan Filename	Package
124.2	AGGREGATE TERM	General Medical Record - Generator

Package	Total	Routines
General Medical Record - Generator	30	GMRGCLAS GMRGED0 GMRGED2 GMRGED4 GMRGED6 GMRGED7 GMRGED8 GMRGED9 GMRGEDA GMRGEDB GMRGPNB0 GMRGPNB1 GMRGPNB2 GMRGPUT0 GMRGPUTL GMRGRUT0 GMRGRUT3 GMRGTGI0 GMRGTGI1 GMRGTGI2 GMRGTGIF GMRGUT0 GMRGUT1 GMRGUT2 GMRGUT3 GMRGUT4 GMRGUTL GMRGXAGC GMRGXPST GMRGXUPD
Nursing Service	26	NURCAS1 NURCCP1 NURCCP3 NURCCP4 NURCCPE NURCCPU1 NURCCPU2 NURCCPU4 NURCCPU5 NURCES1 NURCEVE0 NURCEVE1 NURCEVE4 NURCEVP0 NURCPP0 NURCPP1 NURCPP2 NURCPP6 NURCPP9 NURCPPS1 NURCPPS2 NURCPPS3 NURCRL1 NURCRL4 NURCROP0 NURCROP1

Package	Total	Routines
General Medical Record - Generator	8	GMRGED0 GMRGEDA GMRGPRNT GMRGTGI0 GMRGTGI2 GMRGTGIF GMRGXAGC GMRGXPST

Package	Total	FileMan Files
General Medical Record - Generator	2	GMR TEXT(#124.3)[.01, #124.31(.01)] AGGREGATE TERM(#124.2)[#124.21(.01)]
Nursing Service	1	NURS CARE PLAN(#216.8)[#216.81(.01), #216.82(.02), #216.83(.03), #216.84(.02)]

Package	Total	FileMan Files
General Medical Record - Generator	2	AGGREGATE TERM(#124.2)[#124.21(.01)] TERM CLASSIFICATION(#124.25)[.04]

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E!(X?1"[".E)!(X?1"<".E)) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: Text that composes the Aggregate Term CROSS-REFERENCE: `124.2^B` 1)= S ^GMRD(124.2,"B",$E(X,1,30),DA)="" 2)= K ^GMRD(124.2,"B",$E(X,1,30),DA) This is a regular cross-reference on the Name field. CROSS-REFERENCE: `124.2^AA^MUMPS` 1)= D EN3^GMRGUT1 2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(2)=$P(GMRG,"^",2),GMRG(3)=$P(GMRG,"^",3),GMRG(5)=$P(GMRG,"^",5) K:GMRG(2)'=""&(GMRG(3)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",GMRG(3),GMRG(2),X,GMRG(5),DA) K GMRG This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields. The fields used are the Name (.01), Type of Term (.02), Package (.03) and Node Identification (.05). The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="". CROSS-REFERENCE: `124.2^ATXTUP^MUMPS` 1)= S GMRGX("D")=1,GMRGX("F")=1 D EN6^GMRGUT2 2)= S GMRGX("D")=0,GMRGX("F")=1 D EN6^GMRGUT2 This field triggers in the new value of the Name field into the Child Text sub-field of the Children multiple for all entries that point to this entry. CROSS-REFERENCE: `124.2^C^MUMPS` 1)= D EN4^GMRGUT3 2)= D EN5^GMRGUT3 This cross-reference has the format of a regular cross-reference, but the value used for the lookup is the uppercase version of the Name field. ^GMRD(124.2,"C",Uppercase_Name,DA)="" is the structure.
.02	TYPE OF TERM	0;2	SET	**********************REQUIRED FIELD********************** '2' FOR FRAME; '3' FOR TERM; LAST EDITED: `MAY 17, 1989` DESCRIPTION: Set of codes that identifies the basic types of text. SCREEN: `S DIC("S")="D EN4^GMRGUT1"` EXPLANATION: `You cannot make a term out of an Aggregate term with children.` CROSS-REFERENCE: `124.2^ATY` 1)= S ^GMRD(124.2,"ATY",$E(X,1,30),DA)="" 2)= K ^GMRD(124.2,"ATY",$E(X,1,30),DA) This is a regular cross-reference on the Type of Term field. CROSS-REFERENCE: `124.2^AA02^MUMPS` 1)= D EN3^GMRGUT1 2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(3)=$P(GMRG,"^",3),GMRG(5)=$P(GMRG,"^",5) K:GMRG(1)'=""&(GMRG(3)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",GMRG(3),X,GMRG(1),GMRG(5),DA) K GMRG This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields. The fields used are the Name (.01), Type of Term (.02), Package (.03) and Node Identification (.05). The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="". CROSS-REFERENCE: `124.2^ATYUP^MUMPS` 1)= S GMRGX("D")=1,GMRGX("F")=2 D EN6^GMRGUT2 2)= S GMRGX("D")=0,GMRGX("F")=2 D EN6^GMRGUT2 This cross-reference triggers the value of the Type of Term field into the Child Type sub-field of the Children multiple for all entries that point to this entry.
.03	PACKAGE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X` LAST EDITED: `JUL 19, 1990` HELP-PROMPT: `Please enter Package Name (2-5 chars.)` DESCRIPTION: `The DHCP package associated with this aggregate term.` If an application wants to allow site configuration of its care plans, the changes made by the site should be given 'ZZ' as a package. In other words calls made to the Generic Input Utility routine (GMRGTGIF) for site configuration options should set the variable GMRGPK="ZZ". CROSS-REFERENCE: `124.2^PK` 1)= S ^GMRD(124.2,"PK",$E(X,1,30),DA)="" 2)= K ^GMRD(124.2,"PK",$E(X,1,30),DA) This is a regular cross-refence on the Package field. CROSS-REFERENCE: `124.2^AA03^MUMPS` 1)= D EN3^GMRGUT1 2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(2)=$P(GMRG,"^",2),GMRG(5)=$P(GMRG,"^",5) K:GMRG(1)'=""&(GMRG(2)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",X,GMRG(2),GMRG(1),GMRG(5),DA) K GMRG This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields. The fields used are the Name (.01), Type of Term (.02), Package (.03) and Node Identification (.05). The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="". CROSS-REFERENCE: `124.2^APKUP^MUMPS` 1)= S GMRGX("D")=1,GMRGX("F")=3 D EN6^GMRGUT2 2)= S GMRGX("D")=0,GMRGX("F")=3 D EN6^GMRGUT2 This cross-reference triggers the value of the Package field into the Child Package sub-field of the Children multiple for all entries that point to this entry. CROSS-REFERENCE: `124.2^ATD1^MUMPS` 1)= S GMRG=.03 D EN1^GMRGUT2 2)= S GMRG=.03 D EN2^GMRGUT2 This cross-reference sets a multiple index ("ATD") on the Package (.03) and Classification (.04) fields and Begin Text (1) field of the Term Classification file for the entry pointed to by the Classification (.04) field. The value of the Begin Text field will determine if this index will be set. If the Begin Text field is null, the index is not set, if it is 'YES' it is set. The format of the "ATD" cross-reference is: ^GMRD(124.2,"ATD",Package,Classification,DA)="". This cross-reference also triggers the values into the Action on Entering Selection (7), Action on Filing Selection (8), Action on Leaving Selection (9) and Action on Printing Selection (10) from the corresponding fields in the Term Classification file for the entry which is pointed to by the Classification field.
.04	CLASSIFICATION	0;4	POINTER TO TERM CLASSIFICATION FILE (#124.25)	TERM CLASSIFICATION(#124.25) LAST EDITED: `JUL 19, 1994` HELP-PROMPT: `Please enter Classification of aggregate term.` DESCRIPTION: Special classification that further identifies an aggregate term. CROSS-REFERENCE: `124.2^CL` 1)= S ^GMRD(124.2,"CL",$E(X,1,30),DA)="" 2)= K ^GMRD(124.2,"CL",$E(X,1,30),DA) This is a regular cross-reference on the Classification field. CROSS-REFERENCE: `124.2^ATD^MUMPS` 1)= S GMRG=.04 D EN1^GMRGUT2 2)= S GMRG=.04 D EN2^GMRGUT2 This cross-reference sets a multiple index ("ATD") on the Package (.03) and Classification (.04) fields and Begin Text (1) field of the Term Classification file for the entry pointed to by the Classification (.04) field. The value of the Begin Text field will determine if this index will be set. If the Begin Text field is null, the index is not set, if it is 'YES' it is set. The format of the "ATD" cross-reference is: ^GMRD(124.2,"ATD",Package,Classification,DA)="". This cross-reference also triggers the values into the Action on Entering Selection (7), Action on Filing Selection (8), Action on Leaving Selection (9) and Action on Printing Selection (10) from the corresponding fields in the Term Classification file for the entry which is pointed to by the Classification field.
.05	NODE IDENTIFICATION	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 17, 1989` HELP-PROMPT: `Please enter this Aggregate Term's "NODE" (a whole number between 1 and 99999).` DESCRIPTION: Identification which separates this Aggregate Term NODE from another Aggregate Term NODE that has the same NAME(.01), but different logical parent NODE. DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE CROSS-REFERENCE: `124.2^ANDUP^MUMPS` 1)= S GMRGX("D")=1,GMRGX("F")=4 D EN6^GMRGUT2 2)= S GMRGX("D")=0,GMRGX("F")=4 D EN6^GMRGUT2 This cross-reference triggers the value of the Node Identification field into the Child Node ID sub-field of the Children multiple for all entries that point to this entry. CROSS-REFERENCE: `124.2^AA05^MUMPS` 1)= S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRGX(1)=$P(GMRGX,"^"),GMRGX(2)=$P(GMRGX,"^",2),GMRGX(3)=$P(GMRGX,"^",3) S:GMRGX(1)'=""&(GMRGX(2)'="")&(GMRGX(3)'="") ^GMRD(124.2,"AA",GMRGX(3),GMRGX(2),GMRGX(1),X,DA)="" K G MRGX 2)= S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRGX(1)=$P(GMRGX,"^"),GMRGX(2)=$P(GMRGX,"^",2),GMRGX(3)=$P(GMRGX,"^",3) K:GMRGX(1)'=""&(GMRGX(2)'="")&(GMRGX(3)'="") ^GMRD(124.2,"AA",GMRGX(3),GMRGX(2),GMRGX(1),X,DA) K GMRG X This cross-reference sets a multiple cross-reference ("AA") over four fields. The fields used are the Name (.01), Type of Term (.02), Package (.03) and Node Identification (.05). The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="".
.1	TERM DEFINITION	TD;0	WORD-PROCESSING #124.22	DESCRIPTION: `If further clarification of this term is needed, it may be added here. The definition of the term displays when a user types '???' while selecting terms through the Patient Data Enter/Edit module. added here, and when` selecting terms in the patient edit, if the user types in '???' then this definition will appear in conjunction with this term.
1	CHILDREN	1;0	POINTER Multiple #124.21	124.21 DESCRIPTION: Children are aggregate terms that are under this frame/document. IDENTIFIED BY: `CHILD TEXT(#1)[R], CHILD TYPE(#2)[R], CHILD PACKAGE(#3)[R], CHILD NODE ID(#4)[R], DISPLAY ORDER(#6)`
2	MIN	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 08, 1988` HELP-PROMPT: `Enter The minimum number of selections allowed under this frame/document. (0-99)` DESCRIPTION: The minimum number of selections allowed under this frame/document. Null entry means zero.
3	MAX	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 08, 1988` HELP-PROMPT: `Enter the maximum number of selections allowed under this frame/document. (0-99)` DESCRIPTION: The maximum number of selections allowed under this frame/document. A null entry means there is no maximum.
3.5	SUPRESS MIN/MAX MESSAGE	0;12	SET	'0' FOR NO SUPRESSION; '1' FOR SUPRESS MIN MESSAGE; '2' FOR SUPRESS MAX MESSAGE; '3' FOR SUPRESS BOTH MESSAGES; LAST EDITED: `MAR 25, 1991` DESCRIPTION: This field determines whether the MIN and MAX messages should be supressed for this frame.
4	LEAD TEXT	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `OCT 08, 1988` HELP-PROMPT: `Enter a Header Text that would precede this frame/document.(1-200 chars.)` DESCRIPTION: Text that precedes the text of this frame/document in displays.
5	TRAIL TEXT	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `OCT 08, 1988` HELP-PROMPT: `Enter a Trailing Text that would follow this frame/document. (1-200 chars.)` DESCRIPTION: Text that follows the text of this frame/document in displays.
6	FORMAT OF OUTPUT	0;8	SET	'S' FOR SENTENCE; 'T' FOR TABULAR; 'B' FOR BRIEF TABULAR; LAST EDITED: `OCT 08, 1988` DESCRIPTION: `This is the format of the frame/document display. Tabular, and brief tabular displays in an outline format; tabular uses lead and trail texts, and brief tabular does not. Sentence creates paragraphs using lead and trail` texts, and ends sentences with periods.
6.5	ASK ADDITIONAL TEXT	0;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 03, 1989` DESCRIPTION: A flag determining whether Additional Text can be entered for an aggregate term or not. SCREEN: `S DIC("S")="I $P(^GMRD(124.2,DA,0),U,4)'=$O(^GMRD(124.25,""B"",""PRIME DOCUMENT"",0))"` EXPLANATION: `Cannot have an entry for a term with classification of Prime Document.`
7	ACTION ON ENTERING SELECTION	7;E1,245	FREE TEXT	INPUT TRANSFORM: `D ^DIM` LAST EDITED: `OCT 06, 1988` HELP-PROMPT: `ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH` DESCRIPTION: `This is valid MUMPS code that is executed upon entering the screen of an Aggregate Term in the General Medical Record Generator patient edit.` The variables that the programmer can rely on being set and the programmer should not kill are: DFN and arrays from DEM^VADPT and INP^VADPT GMRGRT=Prime document data for this term in the following format: AGGY IEN^Term text GMRGPDA=ENTRY IN GMR TEXT (124.3) FILE GMRGTERM=Data on term being processed in the following format: 124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists. GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0) WRITE AUTHORITY: @ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	ACTION ON FILING	8;E1,245	FREE TEXT	INPUT TRANSFORM: `D ^DIM` LAST EDITED: `OCT 08, 1988` HELP-PROMPT: `ANSWER MUST BE 1-245 CHARACTERS IN LENGTH` DESCRIPTION: `This is valid MUMPS code that will be executed upon the filing of an Aggregate Term in the General Medical Record Treatment Planner.` The variables that the programmer can rely on being set and the programmer should not kill are: DFN and arrays from DEM^VADPT and INP^VADPT GMRGRT=Prime document data for this term in the following format: AGGY IEN^Term text GMRGPDA = ENTRY IN GMR TEXT (124.3) FILE GMRGTERM=Data on term being filed in the following format: 124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists. GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0) GMRGART=$S(0:if term is being deleted,1:if term is being added) WRITE AUTHORITY: @ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	ACTION ON LEAVING SELECTION	9;E1,245	FREE TEXT	INPUT TRANSFORM: `D ^DIM` LAST EDITED: `MAR 01, 1989` HELP-PROMPT: `ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH` DESCRIPTION: `This is valid MUMPS code that will be executed upon the leaving of this aggregate term screen from the General Medical Record Generator patient edit.` The variables that the programmer can rely on being set, and that the programmer should not kill are: DFN and arrays from DEM^VADPT and INP^VADPT GMRGRT=Prime document data for this term in the following format: AGGY IEN^Term text GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE GMRGTERM=Data on term being processed in the following format: 124.2 FILE IEN^Term text^IEN in 124.31 multiple if exist. GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0) WRITE AUTHORITY: @ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	ACTION ON PRINTING SELECTION	10;E1,245	FREE TEXT	INPUT TRANSFORM: `D ^DIM` LAST EDITED: `MAR 14, 1989` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `An action that occurs when an aggregate term is printed as a selection on the screen.` The variables that the programmer can rely on being set, and that the programmer should not kill are: DFN and arrays from DEM^VADPT and INP^VADPT GMRGRT=Prime document data for this term in the following format: AGGY IEN^Term text GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE GMRGTERM=Term data whose selections are being printed as follows: 124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists GMRGTERM(0)=^GMRD(124.2,GMRGTERM,0) GMRGSEL=Selection being printed for term in GMRGTERM 124.2 FILE IEN^Term text^$S(1:data is active for term ,0:data is not active for term) If there is other information that needs to be printed with a selection for a particular package, this is a way to get this information to print. WRITE AUTHORITY: @ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Field #

Name

Loc

Type

Details

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E!(X?1"[".E)!(X?1"<".E)) X
LAST EDITED: DEC 06, 1990
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
```
Text that composes the Aggregate Term
```

CROSS-REFERENCE: 124.2^B

1)= S ^GMRD(124.2,"B",$E(X,1,30),DA)=""

2)= K ^GMRD(124.2,"B",$E(X,1,30),DA)

This is a regular cross-reference on the Name field.

CROSS-REFERENCE: 124.2^AA^MUMPS

1)= D EN3^GMRGUT1

2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(2)=$P(GMRG,"^",2),GMRG(3)=$P(GMRG,"^",3),GMRG(5)=$P(GMRG,"^",5) K:GMRG(2)'=""&(GMRG(3)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",GMRG(3),GMRG(2),X,GMRG(5),DA) K GMRG

This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields.  The fields used are the Name (.01), Type of Term (.02), Package (.03) and

Node Identification (.05).  The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="".

CROSS-REFERENCE: 124.2^ATXTUP^MUMPS

1)= S GMRGX("D")=1,GMRGX("F")=1 D EN6^GMRGUT2

2)= S GMRGX("D")=0,GMRGX("F")=1 D EN6^GMRGUT2

This field triggers in the new value of the Name field into the Child Text sub-field of the Children multiple for all entries that point to this entry.

CROSS-REFERENCE: 124.2^C^MUMPS

1)= D EN4^GMRGUT3

2)= D EN5^GMRGUT3

This cross-reference has the format of a regular cross-reference, but the value used for the lookup is the uppercase version of the Name field.  ^GMRD(124.2,"C",Uppercase_Name,DA)="" is the structure.

.02

TYPE OF TERM

0;2

SET

************************REQUIRED FIELD************************

'2' FOR FRAME;
'3' FOR TERM;

LAST EDITED: MAY 17, 1989

DESCRIPTION:

Set of codes that identifies the basic types of text.

SCREEN: S DIC("S")="D EN4^GMRGUT1"
EXPLANATION: You cannot make a term out of an Aggregate term with children.

CROSS-REFERENCE: 124.2^ATY

1)= S ^GMRD(124.2,"ATY",$E(X,1,30),DA)=""

2)= K ^GMRD(124.2,"ATY",$E(X,1,30),DA)

This is a regular cross-reference on the Type of Term field.

CROSS-REFERENCE: 124.2^AA02^MUMPS

1)= D EN3^GMRGUT1

2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(3)=$P(GMRG,"^",3),GMRG(5)=$P(GMRG,"^",5) K:GMRG(1)'=""&(GMRG(3)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",GMRG(3),X,GMRG(1),GMRG(5),DA) K GMRG

This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields.  The fields used are the Name (.01), Type of Term (.02), Package (.03)  and

Node Identification (.05).  The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="".

CROSS-REFERENCE: 124.2^ATYUP^MUMPS

1)= S GMRGX("D")=1,GMRGX("F")=2 D EN6^GMRGUT2

2)= S GMRGX("D")=0,GMRGX("F")=2 D EN6^GMRGUT2

This cross-reference triggers the value of the Type of Term field into the Child Type sub-field of the Children multiple for all entries that point to this entry.

.03

PACKAGE

0;3

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X
LAST EDITED: JUL 19, 1990
HELP-PROMPT: Please enter Package Name (2-5 chars.)

DESCRIPTION: The DHCP package associated with this aggregate term.

If an application wants to allow site configuration of its care plans, the changes made by the site should be given 'ZZ' as a package.  In other words calls made to the Generic Input Utility routine (GMRGTGIF) for site

configuration options should set the variable GMRGPK="ZZ".

CROSS-REFERENCE: 124.2^PK

1)= S ^GMRD(124.2,"PK",$E(X,1,30),DA)=""

2)= K ^GMRD(124.2,"PK",$E(X,1,30),DA)

This is a regular cross-refence on the Package field.

CROSS-REFERENCE: 124.2^AA03^MUMPS

1)= D EN3^GMRGUT1

2)= S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRG(1)=$P(GMRG,"^"),GMRG(2)=$P(GMRG,"^",2),GMRG(5)=$P(GMRG,"^",5) K:GMRG(1)'=""&(GMRG(2)'="")&(GMRG(5)'="") ^GMRD(124.2,"AA",X,GMRG(2),GMRG(1),GMRG(5),DA) K GMRG

This cross-reference triggers data into the Node Identification field if its null, and sets a multiple cross-reference ("AA") over four fields.  The fields used are the Name (.01), Type of Term (.02), Package (.03)  and

Node Identification (.05).  The structure of the cross-reference is: ^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="".

CROSS-REFERENCE: 124.2^APKUP^MUMPS

1)= S GMRGX("D")=1,GMRGX("F")=3 D EN6^GMRGUT2

2)= S GMRGX("D")=0,GMRGX("F")=3 D EN6^GMRGUT2

This cross-reference triggers the value of the Package field into the Child Package sub-field of the Children multiple for all entries that point to this entry.

CROSS-REFERENCE: 124.2^ATD1^MUMPS

1)= S GMRG=.03 D EN1^GMRGUT2

2)= S GMRG=.03 D EN2^GMRGUT2

This cross-reference sets a multiple index ("ATD") on the Package (.03) and Classification (.04) fields and Begin Text (1) field of the Term Classification file for the entry pointed to by the Classification (.04) field.

The value of the Begin Text field will determine if this index will be set.  If the Begin Text field is null, the index is not set, if it is 'YES' it is set.   The format of the "ATD" cross-reference is:

^GMRD(124.2,"ATD",Package,Classification,DA)="".

This cross-reference also triggers the values into the Action on Entering Selection (7), Action on Filing Selection (8), Action on Leaving Selection (9) and Action on Printing Selection (10) from the corresponding fields

in the Term Classification file for the entry which is pointed to by the Classification field.

.04

CLASSIFICATION

0;4

POINTER TO TERM CLASSIFICATION FILE (#124.25)

TERM CLASSIFICATION(#124.25)

LAST EDITED: JUL 19, 1994
HELP-PROMPT: Please enter Classification of aggregate term.

DESCRIPTION:

Special classification that further identifies an aggregate term.

CROSS-REFERENCE: 124.2^CL

1)= S ^GMRD(124.2,"CL",$E(X,1,30),DA)=""

2)= K ^GMRD(124.2,"CL",$E(X,1,30),DA)

This is a regular cross-reference on the Classification field.

CROSS-REFERENCE: 124.2^ATD^MUMPS

1)= S GMRG=.04 D EN1^GMRGUT2

2)= S GMRG=.04 D EN2^GMRGUT2

This cross-reference sets a multiple index ("ATD") on the Package (.03) and Classification (.04) fields and Begin Text (1) field of the Term Classification file for the entry pointed to by the Classification (.04) field.

The value of the Begin Text field will determine if this index will be set.  If the Begin Text field is null, the index is not set, if it is 'YES' it is set.   The format of the "ATD" cross-reference is:

^GMRD(124.2,"ATD",Package,Classification,DA)="".

This cross-reference also triggers the values into the Action on Entering Selection (7), Action on Filing Selection (8), Action on Leaving Selection (9) and Action on Printing Selection (10) from the corresponding fields

in the Term Classification file for the entry which is pointed to by the Classification field.

.05

NODE IDENTIFICATION

0;5

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 17, 1989
HELP-PROMPT: Please enter this Aggregate Term's "NODE" (a whole number between 1 and 99999).

DESCRIPTION:

Identification which separates this Aggregate Term NODE from another Aggregate Term NODE that has the same NAME(.01), but different logical parent NODE.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

CROSS-REFERENCE: 124.2^ANDUP^MUMPS

1)= S GMRGX("D")=1,GMRGX("F")=4 D EN6^GMRGUT2

2)= S GMRGX("D")=0,GMRGX("F")=4 D EN6^GMRGUT2

This cross-reference triggers the value of the Node Identification field into the Child Node ID sub-field of the Children multiple for all entries that point to this entry.

CROSS-REFERENCE: 124.2^AA05^MUMPS

1)= S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRGX(1)=$P(GMRGX,"^"),GMRGX(2)=$P(GMRGX,"^",2),GMRGX(3)=$P(GMRGX,"^",3) S:GMRGX(1)'=""&(GMRGX(2)'="")&(GMRGX(3)'="") ^GMRD(124.2,"AA",GMRGX(3),GMRGX(2),GMRGX(1),X,DA)="" K G

MRGX

2)= S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""),GMRGX(1)=$P(GMRGX,"^"),GMRGX(2)=$P(GMRGX,"^",2),GMRGX(3)=$P(GMRGX,"^",3) K:GMRGX(1)'=""&(GMRGX(2)'="")&(GMRGX(3)'="") ^GMRD(124.2,"AA",GMRGX(3),GMRGX(2),GMRGX(1),X,DA) K GMRG

This cross-reference sets a multiple cross-reference ("AA") over four fields.  The fields used are the Name (.01), Type of Term (.02), Package (.03) and Node Identification (.05).  The structure of the cross-reference is:

^GMRD(124.2,"AA",Package,Type_of_Term,Name,Node_Identification,DA)="".

.1

TERM DEFINITION

TD;0

WORD-PROCESSING #124.22

DESCRIPTION: If further clarification of this term is needed, it may be added here. The definition of the term displays when a user types '???' while selecting terms through the Patient Data Enter/Edit module. added here, and when
```
selecting terms in the patient edit, if the user types in '???' then this definition will appear in conjunction with this term.
```

1

CHILDREN

1;0

POINTER Multiple #124.21

124.21

DESCRIPTION:

Children are aggregate terms that are under this frame/document.

IDENTIFIED BY: CHILD TEXT(#1)[R], CHILD TYPE(#2)[R], CHILD PACKAGE(#3)[R], CHILD NODE ID(#4)[R], DISPLAY ORDER(#6)

2

MIN

0;6

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 08, 1988
HELP-PROMPT: Enter The minimum number of selections allowed under this frame/document. (0-99)

DESCRIPTION:

The minimum number of selections allowed under this frame/document.  Null entry means zero.

3

MAX

0;7

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 08, 1988
HELP-PROMPT: Enter the maximum number of selections allowed under this frame/document. (0-99)

DESCRIPTION:

The maximum number of selections allowed under this frame/document.  A null entry means there is no maximum.

3.5

SUPRESS MIN/MAX MESSAGE

0;12

SET

'0' FOR NO SUPRESSION;
'1' FOR SUPRESS MIN MESSAGE;
'2' FOR SUPRESS MAX MESSAGE;
'3' FOR SUPRESS BOTH MESSAGES;

LAST EDITED: MAR 25, 1991

DESCRIPTION:

This field determines whether the MIN and MAX messages should be supressed for this frame.

4

LEAD TEXT

4;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: OCT 08, 1988
HELP-PROMPT: Enter a Header Text that would precede this frame/document.(1-200 chars.)

DESCRIPTION:

Text that precedes the text of this frame/document in displays.

5

TRAIL TEXT

5;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: OCT 08, 1988
HELP-PROMPT: Enter a Trailing Text that would follow this frame/document. (1-200 chars.)

DESCRIPTION:

Text that follows the text of this frame/document in displays.

6

FORMAT OF OUTPUT

0;8

SET

'S' FOR SENTENCE;
'T' FOR TABULAR;
'B' FOR BRIEF TABULAR;

LAST EDITED: OCT 08, 1988
DESCRIPTION: This is the format of the frame/document display. Tabular, and brief tabular displays in an outline format; tabular uses lead and trail texts, and brief tabular does not. Sentence creates paragraphs using lead and trail
```
texts, and ends sentences with periods.
```

6.5

ASK ADDITIONAL TEXT

0;9

SET

'0' FOR NO;
'1' FOR YES;

LAST EDITED: MAR 03, 1989

DESCRIPTION:

A flag determining whether Additional Text can be entered for an aggregate term or not.

SCREEN: S DIC("S")="I $P(^GMRD(124.2,DA,0),U,4)'=$O(^GMRD(124.25,""B"",""PRIME DOCUMENT"",0))"
EXPLANATION: Cannot have an entry for a term with classification of Prime Document.

7

ACTION ON ENTERING SELECTION

7;E1,245

FREE TEXT

INPUT TRANSFORM: D ^DIM
LAST EDITED: OCT 06, 1988
HELP-PROMPT: ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH

DESCRIPTION: This is valid MUMPS code that is executed upon entering the screen of an Aggregate Term in the General Medical Record Generator patient edit.

The variables that the programmer can rely on being set and the

programmer should not kill are:

DFN and arrays from DEM^VADPT and INP^VADPT

GMRGRT=Prime document data for this term in the following format:

AGGY IEN^Term text

GMRGPDA=ENTRY IN GMR TEXT (124.3) FILE

GMRGTERM=Data on term being processed in the following format:

124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists.

GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)

WRITE AUTHORITY:  @

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

8

ACTION ON FILING

8;E1,245

FREE TEXT

INPUT TRANSFORM: D ^DIM
LAST EDITED: OCT 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH

DESCRIPTION: This is valid MUMPS code that will be executed upon the filing of an Aggregate Term in the General Medical Record Treatment Planner.

The variables that the programmer can rely on being set and the

programmer should not kill are:

DFN and arrays from DEM^VADPT and INP^VADPT

GMRGRT=Prime document data for this term in the following format:

AGGY IEN^Term text

GMRGPDA = ENTRY IN GMR TEXT (124.3) FILE

GMRGTERM=Data on term being filed in the following format:

124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists.

GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)

GMRGART=$S(0:if term is being deleted,1:if term is being added)

WRITE AUTHORITY:  @

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

9

ACTION ON LEAVING SELECTION

9;E1,245

FREE TEXT

INPUT TRANSFORM: D ^DIM
LAST EDITED: MAR 01, 1989
HELP-PROMPT: ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH

DESCRIPTION: This is valid MUMPS code that will be executed upon the leaving of this aggregate term screen from the General Medical Record Generator patient edit.

The variables that the programmer can rely on being set, and that the

programmer should not kill are:

DFN and arrays from DEM^VADPT and INP^VADPT

GMRGRT=Prime document data for this term in the following format:

AGGY IEN^Term text

GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE

GMRGTERM=Data on term being processed in the following format:

124.2 FILE IEN^Term text^IEN in 124.31 multiple if exist.

GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)

WRITE AUTHORITY:  @

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

10

ACTION ON PRINTING SELECTION

10;E1,245

FREE TEXT

INPUT TRANSFORM: D ^DIM
LAST EDITED: MAR 14, 1989
HELP-PROMPT: Answer must be 1-245 characters in length.

DESCRIPTION: An action that occurs when an aggregate term is printed as a selection on the screen.

The variables that the programmer can rely on being set, and that the

programmer should not kill are:

DFN and arrays from DEM^VADPT and INP^VADPT

GMRGRT=Prime document data for this term in the following format:

AGGY IEN^Term text

GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE

GMRGTERM=Term data whose selections are being printed as follows:

124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists

GMRGTERM(0)=^GMRD(124.2,GMRGTERM,0)

GMRGSEL=Selection being printed for term in GMRGTERM

124.2 FILE IEN^Term text^$S(1:data is active for term

,0:data is not active for term)

If there is other information that needs to be printed with a selection for a particular package, this is a way to get this information to print.

WRITE AUTHORITY:  @

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Customize PDF page

Package: General Medical Record - Generator

Global: ^GMRD(124.2

Information

Description

Directly Accessed By Routines, Total: 56

Accessed By FileMan Db Calls, Total: 8

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 18