Sub-Field: 63.1

Parent File	Name	Number	Package
63.05	PRELIMINARY PARASITE COMMENT	63.1	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRELIMINARY PARASITE COMMENT	0;1	FREE TEXT	INPUT TRANSFORM: `S Q9="1,68,KP" D COM^LRNUM` `9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "P"[$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.1,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_" " I %L>68 W " too long",! Q` LAST EDITED: `MAY 03, 1987` HELP-PROMPT: `ANSWER MUST BE 1-68 CHARACTERS IN LENGTH` DESCRIPTION: `This is a comment on the preliminary parasitology report.` EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KP""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

PRELIMINARY PARASITE COMMENT

0;1

FREE TEXT

INPUT TRANSFORM: S Q9="1,68,KP" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "P"[$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.1,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_" " I %L>68 W " too long",! Q
LAST EDITED: MAY 03, 1987
HELP-PROMPT: ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the preliminary parasitology report.
EXECUTABLE HELP: S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KP""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER