Sub-Field: 63.06

Parent File	Name	Number	Package
63.05	PRELIMINARY BACT COMMENT	63.06	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRELIMINARY BACT COMMENT	0;1	FREE TEXT	INPUT TRANSFORM: `S Q9="2,68,KMTVP" D COM^LRNUM` `9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "M"[$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.06,.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 2-68 CHARACTERS IN LENGTH` DESCRIPTION: `This is a comment concerning the bacteriology.` EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KMTVP""[$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 BACT COMMENT

0;1

FREE TEXT

INPUT TRANSFORM: S Q9="2,68,KMTVP" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "M"[$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.06,.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 2-68 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the bacteriology.
EXECUTABLE HELP: S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KMTVP""[$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