Sub-Field: 63.9999041

Parent File	Name	Number	Package
63.999904	COMMENT	63.9999041	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	COMMENT	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$S($D(^LR(DA(2),"CH",DA(1),1,DA,0)):$S(^(0)["reported incorrectly as"&'$D(^XUSEC("LRSUPER",DUZ)):1,1:0),1:0) X I $D(X) S Q9="1,68,KL" D COM^LRNUM` `9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "CHOQU"[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),"^",2) Q:'$D(^(9)) S Y=$P(X," ",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q` `9.1 = F I=1:1 Q:$P(X," ",I,99)="" S %Z=$P(X," ",I),Y="" X:%Z]"" ^DD(63.041,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>65 %S=%S_%Z_" " I %L>65 W " too long",! Q` LAST EDITED: `OCT 09, 1992` HELP-PROMPT: `ANSWER MUST BE 1-68 CHARACTERS IN LENGTH` DESCRIPTION: `This is a comment reported with CHEM, HEM, TOX, etc., data.` EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KL""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1` DELETE TEST: `1,0)= I $P(^LR(DA(2),"CH",DA(1),0),U,3),'$D(^XUSEC("LRSUPER",DUZ)),$G(^LR(DA(2),"CH",DA(1),1,DA,0))["reported incorrectly as"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63.9999041^AC^MUMPS` `1)= Q` `2)= D AC1^LRXREF`
1	PERSON	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 09, 1992` `WRITE AUTHORITY: ^`

COMMENT

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$S($D(^LR(DA(2),"CH",DA(1),1,DA,0)):$S(^(0)["reported incorrectly as"&'$D(^XUSEC("LRSUPER",DUZ)):1,1:0),1:0) X I $D(X) S Q9="1,68,KL" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "CHOQU"[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),"^",2) Q:'$D(^(9)) S Y=$P(X," ",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q
9.1 = F I=1:1 Q:$P(X," ",I,99)="" S %Z=$P(X," ",I),Y="" X:%Z]"" ^DD(63.041,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>65 %S=%S_%Z_" " I %L>65 W " too long",! Q
LAST EDITED: OCT 09, 1992
HELP-PROMPT: ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment reported with CHEM, HEM, TOX, etc., data.
EXECUTABLE HELP: S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KL""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1
DELETE TEST: 1,0)= I $P(^LR(DA(2),"CH",DA(1),0),U,3),'$D(^XUSEC("LRSUPER",DUZ)),$G(^LR(DA(2),"CH",DA(1),1,DA,0))["reported incorrectly as"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.9999041^AC^MUMPS
1)= Q
2)= D AC1^LRXREF

PERSON

0;2

POINTER TO NEW PERSON FILE (#200)