Sub-Field: 63.041

Parent File	Name	Number	Package
63.04	COMMENT	63.041	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"!(^(0)["``")!(^(0)["Changed")&'$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"` 2,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))["``"!(^(0)["Changed") NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63.041^AC^MUMPS` `1)= Q` `2)= D AC1^LRXREF` `This MUMPS cross reference provides an audit trail of comments that are deleted after test verification. This cross reference stores the date and time of test verification, the verifying person and the deleted` `comment. The format for the cross reference nodes created is shown below.` `^LR(LRDFN,"CH",Inverse Date/Time,1,"AC",DUZ,Deletion time in $H format)` `= DATE REPORT COMPLETED^VERIFY PERSON^COMMENT`
1	PERSON	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 09, 1992` DESCRIPTION: `Person making comment` `WRITE AUTHORITY: ^`

.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"!(^(0)["``")!(^(0)["Changed")&'$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"
2,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))["``"!(^(0)["Changed")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.041^AC^MUMPS
1)= Q
2)= D AC1^LRXREF
This MUMPS cross reference provides an audit trail of comments that are deleted after test verification. This cross reference stores the date and time of test verification, the verifying person and the deleted
comment. The format for the cross reference nodes created is shown below.
^LR(LRDFN,"CH",Inverse Date/Time,1,"AC",DUZ,Deletion time in $H format)
= DATE REPORT COMPLETED^VERIFY PERSON^COMMENT

PERSON

0;2

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: OCT 09, 1992
DESCRIPTION:
Person making comment
WRITE AUTHORITY: ^

Customize PDF page

Package: Lab Service

LAB DATA(#63)-->63.04-->63.041

Sub-Field: 63.041

Information

Details