Sub-Field: 743.51

Parent File	Name	Number	Package
GROUP(#743.5)	GROUP MEMBER	743.51	Clinical Monitoring System

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	GROUP MEMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X) D EN8^QAMUTL0` OUTPUT TRANSFORM: `S Y=$P(Y,";")` LAST EDITED: `JUN 02, 1992` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `This field contains the actual members on the group.` TECHNICAL DESCR: `The group members are stored as free-text pointers to the file specified in the parent file field. The second semi-colon piece of the data is the internal entry number of the entry in the parent file.` EXECUTABLE HELP: `N DIC,DO S DIC(0)="M",D="B",DZ="?",DIC=$S($D(^DIC(+$P(^QA(743.5,$S($D(DA(1))#2:DA(1),1:D0),0),"^",2),0,"GL"))#2:^("GL"),1:"") D:DIC]"" DQ^DICQ Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `743.51^B` `1)= S ^QA(743.5,DA(1),"GRP","B",$E(X,1,30),DA)=""` `2)= K ^QA(743.5,DA(1),"GRP","B",$E(X,1,30),DA)` CROSS-REFERENCE: `743.51^AB^MUMPS` `1)= S ^QA(743.5,DA(1),"GRP","AB",$P(X,";",2),DA)=""` `2)= K ^QA(743.5,DA(1),"GRP","AB",$P(X,";",2),DA)` `Cross-reference of the GROUP MEMBER's internal entry number in the file pointed to by the PARENT FILE field.`

GROUP MEMBER

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X) D EN8^QAMUTL0
OUTPUT TRANSFORM: S Y=$P(Y,";")
LAST EDITED: JUN 02, 1992
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION:
This field contains the actual members on the group.
TECHNICAL DESCR:
The group members are stored as free-text pointers to the file specified in the parent file field. The second semi-colon piece of the data is the internal entry number of the entry in the parent file.
EXECUTABLE HELP: N DIC,DO S DIC(0)="M",D="B",DZ="?",DIC=$S($D(^DIC(+$P(^QA(743.5,$S($D(DA(1))#2:DA(1),1:D0),0),"^",2),0,"GL"))#2:^("GL"),1:"") D:DIC]"" DQ^DICQ Q
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 743.51^B
1)= S ^QA(743.5,DA(1),"GRP","B",$E(X,1,30),DA)=""
2)= K ^QA(743.5,DA(1),"GRP","B",$E(X,1,30),DA)
CROSS-REFERENCE: 743.51^AB^MUMPS
1)= S ^QA(743.5,DA(1),"GRP","AB",$P(X,";",2),DA)=""
2)= K ^QA(743.5,DA(1),"GRP","AB",$P(X,";",2),DA)
Cross-reference of the GROUP MEMBER's internal entry number in the file pointed to by the PARENT FILE field.