Sub-Field: 124.21

Parent File	Name	Number	Package
AGGREGATE TERM(#124.2)	CHILDREN	124.21	General Medical Record - Generator

Field #	Name	Loc	Type	Details
.01	CHILD	0;1	POINTER TO AGGREGATE TERM FILE (#124.2)	AGGREGATE TERM(#124.2) INPUT TRANSFORM: `S DIC("S")="D EN3^GMRGUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 13, 1989` HELP-PROMPT: `Answer with an aggregate term that is under this frame/document.` DESCRIPTION: An aggregate term that is under this frame/document. SCREEN: `S DIC("S")="D EN3^GMRGUTL"` EXPLANATION: `Entries are screened to allow only valid children.` LAYGO TEST: `1,0)= S GMRGCYC(0)=X,GMRGND=DA(1),GMRGCYC=0 D FNDPRM^GMRGRUT0 K:GMRGCYC GMRGCYC D:'$D(GMRGCYC) EN^DDIOL($C(7)_"ADDING THIS TERM WOULD CREATE AN INVALID DATA CONDITION, CANNOT ADD!!",,"!?5") I $D(GMRGCYC) K GMRGCYC` CROSS-REFERENCE: `124.21^B` 1)= S ^GMRD(124.2,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^GMRD(124.2,DA(1),1,"B",$E(X,1,30),DA) This is a regular cross-reference on the Children sub-field for the Name sub-field of the Children multiple. CROSS-REFERENCE: `124.2^AKID^MUMPS` 1)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):^(0),1:"") S ^GMRD(124.2,"AKID",$E(X,1,30),DA(1),+$P(GMRG,"^",6),DA)="" K GMRG 2)= K ^GMRD(124.2,"AKID",$E(X,1,30),DA(1),1,DA),^GMRD(124.2,"AKID",$E(X,1,30),DA(1),0,DA) This cross-reference sets a multi-field cross-reference ("AKID") on the entire file. This cross-reference uses the Name (.01) sub-field and Delete Flag (5) sub-field of the Children multiple, and has the following structure: ^GMRD(124.2,"AKID",Name,DA(1),Delete_Flag,DA)="" CROSS-REFERENCE: `124.21^ACHTXT^MUMPS` 1)= S GMRG(0)=1 D EN5^GMRGUT2 2)= S GMRG(0)=0 D EN5^GMRGUT2 This cross-reference triggers data into the following fields: Value that is triggered Field Triggered into ----------------------- -------------------- a. Name field for Aggregate Term file Child Text sub-field of Children entry pointed to by this field. multiple for this entry. b. Package field for Aggregate Term Child Package sub-field of Children file entry pointed to by this field. multiple for this entry. c. Type of Term field for Aggregate Child Type of Term sub-field of Term file entry pointed to by this Children multiple for this entry. field. d. Node Identification field for Child Node ID sub-field of Children Aggregate Term file entry pointed multiple for this entry. to by this field.
1	CHILD TEXT	0;2	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` LAST EDITED: `MAR 16, 1989` HELP-PROMPT: `Please enter Child Text (3-60 chars.)` DESCRIPTION: `The data in this field is triggered in from the ACHTXT xref on the Child (#.01) field, of the Children multiple. This field is uneditable, and should be invisible to the users. No cross-referencing is allowed for this` field. DELETE TEST: `1,0)= I 1` DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE CROSS-REFERENCE: `124.21^AC^MUMPS` 1)= S GMRGX0("D")=1 D EN7^GMRGUT4 2)= S GMRGX0("D")=0 D EN7^GMRGUT4 This cross-reference is a multi-field cross-reference on the Children sub-file. The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5) sub-field of the Children multiple. The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed. Also, the data that is cross-reference varies on whether there is data in the Display Order sub-field. If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any. The structure of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text. There will be only one cross-reference entry per entry in multiple.
2	CHILD TYPE	0;3	SET	**********************REQUIRED FIELD********************** '2' FOR FRAME; '3' FOR TERM; LAST EDITED: `MAY 17, 1989` DESCRIPTION: This field contains the type of term for this child. This field is needed as an identifier when transferring data from one system to another. DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE
3	CHILD PACKAGE	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `MAY 17, 1989` HELP-PROMPT: `Please enter Child Package name, (2-5 chars.).` DESCRIPTION: This field contains the package reference for this child. This field is needed as an identifier when transferring data from one system to another. DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE
4	CHILD NODE ID	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 the "NODE" for this Child, (a whole number between 1 and 99999).` DESCRIPTION: This field contains the node identifier for this child. This field is needed for transferring data from one system to another. DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE
5	DELETE FLAG	0;6	SET	'0' FOR NO; '1' FOR YES; 9.2 = I $D(^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),0,DA))!$D(^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1,DA)) K ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1,DA) S ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),0,DA)="" LAST EDITED: `FEB 07, 1991` HELP-PROMPT: `Please enter a one (1) if this term has been deleted from the Care Plan. Press RETURN or ENTER if not.` DESCRIPTION: A flag to track whether a site has removed this term from its care plan or not. A flag was used so that site configured changes are not lost from version to version. CROSS-REFERENCE: `124.21^AC1^MUMPS` 1)= S GMRGX0("D")=101 D EN7^GMRGUT4 2)= S GMRGX0("D")=100 D EN7^GMRGUT4 This cross-reference is a multi-field cross-reference on the Children sub-file. The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5) sub-field of the Children multiple. The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed. Also, the data that is cross-reference varies on whether there is data in the Display Order sub-field. If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any. The structure of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text. There will be only one cross-reference entry per entry in multiple. CROSS-REFERENCE: `124.21^AKID1^MUMPS` 1)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),"^"),1:"") K:GMRG ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1-X,DA) S:GMRG ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),+X,DA)="" K GMRG 2)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),"^"),1:"") X:GMRG ^DD(124.21,5,9.2) K GMRG This cross-reference sets a multi-field cross-reference ("AKID") on the entire file. This cross-reference uses the Name (.01) sub-field and Delete Flag (5) sub-field of the Children multiple, and has the following structure: ^GMRD(124.2,"AKID",Name,DA(1),Delete_Flag,DA)=""
6	DISPLAY ORDER	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 09, 1990` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: This field contains data indicating the order this child is displayed in this frame. CROSS-REFERENCE: `124.21^AC2^MUMPS` 1)= S GMRGX0("D")=11 D EN7^GMRGUT4 2)= S GMRGX0("D")=10 D EN7^GMRGUT4 This cross-reference is a multi-field cross-reference on the Children sub-file. The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5) sub-field of the Children multiple. The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed. Also, the data that is cross-reference varies on whether there is data in the Display Order sub-field. If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any. The structure of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text. There will be only one cross-reference entry per entry in multiple.

Field #

Name

Loc

Type

Details

.01

CHILD

0;1

POINTER TO AGGREGATE TERM FILE (#124.2)

AGGREGATE TERM(#124.2)

INPUT TRANSFORM: S DIC("S")="D EN3^GMRGUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 13, 1989
HELP-PROMPT: Answer with an aggregate term that is under this frame/document.

DESCRIPTION:

An aggregate term that is under this frame/document.

SCREEN: S DIC("S")="D EN3^GMRGUTL"
EXPLANATION: Entries are screened to allow only valid children.
LAYGO TEST: 1,0)= S GMRGCYC(0)=X,GMRGND=DA(1),GMRGCYC=0 D FNDPRM^GMRGRUT0 K:GMRGCYC GMRGCYC D:'$D(GMRGCYC) EN^DDIOL($C(7)_"ADDING THIS TERM WOULD CREATE AN INVALID DATA CONDITION, CANNOT ADD!!",,"!?5") I $D(GMRGCYC) K GMRGCYC

CROSS-REFERENCE: 124.21^B

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

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

This is a regular cross-reference on the Children sub-field for the Name sub-field of the Children multiple.

CROSS-REFERENCE: 124.2^AKID^MUMPS

1)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):^(0),1:"") S ^GMRD(124.2,"AKID",$E(X,1,30),DA(1),+$P(GMRG,"^",6),DA)="" K GMRG

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

This cross-reference sets a multi-field cross-reference ("AKID") on the entire file.  This cross-reference uses the Name (.01) sub-field and Delete Flag (5) sub-field of the Children multiple, and has the following

structure:  ^GMRD(124.2,"AKID",Name,DA(1),Delete_Flag,DA)=""

CROSS-REFERENCE: 124.21^ACHTXT^MUMPS

1)= S GMRG(0)=1 D EN5^GMRGUT2

2)= S GMRG(0)=0 D EN5^GMRGUT2

This cross-reference triggers data into the following fields:

Value that is triggered               Field Triggered into

-----------------------               --------------------

a. Name field for Aggregate Term file    Child Text sub-field of Children

entry pointed to by this field.       multiple for this entry.  b. Package field for Aggregate Term      Child Package sub-field of Children

file entry pointed to by this field.  multiple for this entry.  c. Type of Term field for Aggregate      Child Type of Term sub-field of

Term file entry pointed to by this    Children multiple for this entry.

field.  d. Node Identification field for         Child Node ID sub-field of Children

Aggregate Term file entry pointed     multiple for this entry.

to by this field.

1

CHILD TEXT

0;2

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
LAST EDITED: MAR 16, 1989
HELP-PROMPT: Please enter Child Text (3-60 chars.)
DESCRIPTION: The data in this field is triggered in from the ACHTXT xref on the Child (#.01) field, of the Children multiple. This field is uneditable, and should be invisible to the users. No cross-referencing is allowed for this
```
field.
```

DELETE TEST: 1,0)= I 1

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

CROSS-REFERENCE: 124.21^AC^MUMPS

1)= S GMRGX0("D")=1 D EN7^GMRGUT4

2)= S GMRGX0("D")=0 D EN7^GMRGUT4

This cross-reference is a multi-field cross-reference on the Children sub-file.  The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5)

sub-field of the Children multiple.  The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed.  Also, the data that is cross-reference varies on whether there is data

in the Display Order sub-field.  If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any.  The structure

of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text.  There will be only one cross-reference entry per entry in multiple.

2

CHILD TYPE

0;3

SET

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

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

LAST EDITED: MAY 17, 1989

DESCRIPTION:

This field contains the type of term for this child.  This field is needed as an identifier when transferring data from one system to another.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

3

CHILD PACKAGE

0;4

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: MAY 17, 1989
HELP-PROMPT: Please enter Child Package name, (2-5 chars.).

DESCRIPTION:

This field contains the package reference for this child.  This field is needed as an identifier when transferring data from one system to another.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

4

CHILD NODE ID

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 the "NODE" for this Child, (a whole number between 1 and 99999).

DESCRIPTION:

This field contains the node identifier for this child.  This field is needed for transferring data from one system to another.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

5

DELETE FLAG

0;6

SET

'0' FOR NO;
'1' FOR YES;
9.2 = I $D(^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),0,DA))!$D(^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1,DA)) K ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1,DA) S ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),0,DA)=""

LAST EDITED: FEB 07, 1991
HELP-PROMPT: Please enter a one (1) if this term has been deleted from the Care Plan. Press RETURN or ENTER if not.

DESCRIPTION:

A flag to track whether a site has removed this term from its care plan or not.  A flag was used so that site configured changes are not lost from version to version.

CROSS-REFERENCE: 124.21^AC1^MUMPS

1)= S GMRGX0("D")=101 D EN7^GMRGUT4

2)= S GMRGX0("D")=100 D EN7^GMRGUT4

This cross-reference is a multi-field cross-reference on the Children sub-file.  The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5)

sub-field of the Children multiple.  The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed.  Also, the data that is cross-reference varies on whether there is data

in the Display Order sub-field.  If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any.  The structure

of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text.  There will be only one cross-reference entry per entry in multiple.

CROSS-REFERENCE: 124.21^AKID1^MUMPS

1)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),"^"),1:"") K:GMRG ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),1-X,DA) S:GMRG ^GMRD(124.2,"AKID",$E(GMRG,1,30),DA(1),+X,DA)="" K GMRG

2)= S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),"^"),1:"") X:GMRG ^DD(124.21,5,9.2) K GMRG

This cross-reference sets a multi-field cross-reference ("AKID") on the entire file.  This cross-reference uses the Name (.01) sub-field and Delete Flag (5) sub-field of the Children multiple, and has the following

structure:  ^GMRD(124.2,"AKID",Name,DA(1),Delete_Flag,DA)=""

6

DISPLAY ORDER

0;7

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 09, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits

DESCRIPTION:

This field contains data indicating the order this child is displayed in this frame.

CROSS-REFERENCE: 124.21^AC2^MUMPS

1)= S GMRGX0("D")=11 D EN7^GMRGUT4

2)= S GMRGX0("D")=10 D EN7^GMRGUT4

This cross-reference is a multi-field cross-reference on the Children sub-file.  The fields that are indexed are the Uppercase version of the Child Text (1) sub-field, the Display Order (6) sub-field and Delete Flag (5)

sub-field of the Children multiple.  The cross- reference is set only if the Delete Flag sub-field is null or equal to 'NO', otherwise it is killed.  Also, the data that is cross-reference varies on whether there is data

in the Display Order sub-field.  If there is data in the Display Order sub-field, then the cross-reference will be set for the Display Order, else it will use the value in the Child Text sub-field, if any.  The structure

of the cross-reference is: ^GMRD(124.2,DA(1),1,"AC",Value,DA)="", where Value is the Display Order if its present, otherwise its the Child Text.  There will be only one cross-reference entry per entry in multiple.

Customize PDF page

Package: General Medical Record - Generator

AGGREGATE TERM(#124.2)-->124.21

Sub-Field: 124.21

Information

Details