Select the objects that you wish to see in the downloaded PDF
MAR 14, 1991
Enter a valid data element from the DATA ELEMENT file.
This is a pointer to the DATA ELEMENT file. Enter a valid data element.
Pointer to the DATA ELEMENT file { ^QA(743.4 }. No LAYGO allowed.
743.11^B
1)= S ^QA(743.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^QA(743.1,DA(1),1,"B",$E(X,1,30),DA)
743.11^AD1^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,"E"))#2:^("E"),1:""),QAM(2)=$P(QAM,"^") S:QAM(2)]"" ^QA(743.1,"AD",X,$E(QAM(2),1,63),DA(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,"E"))#2:^("E"),1:""),QAM(2)=$P(QAM,"^") K:QAM(2)]"" ^QA(743.1,"AD",X,$E(QAM(2),1,63),DA(1),DA) K QAM
Cross-reference of DATA ELEMENT and ACTUAL DATA.
K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X
Answer must be 1-245 characters in length.
This field contains the free text data of the type specified by the data element field.
743.11^AD2^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^") S:QAM(1)]"" ^QA(743.1,"AD",QAM(1),$E(X,1,63),DA(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^") K:QAM(1)]"" ^QA(743.1,"AD",QAM(1),$E(X,1,63),DA(1),DA) K QAM