Sub-Field: 63.29

Parent File	Name	Number	Package
63.05	GRAM STAIN	63.29	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	GRAM STAIN	0;1	FREE TEXT	INPUT TRANSFORM: `S Q9="1,68,KG" D COM^LRNUM` `9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "G"[$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.29,.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 Answer with free text statements (ex. GRAM POS COCCI IN CLUSTERS)` DESCRIPTION: `This is the gram stain result.` EXECUTABLE HELP: `S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KG""[$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`

GRAM STAIN

0;1

FREE TEXT

INPUT TRANSFORM: S Q9="1,68,KG" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "G"[$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.29,.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 Answer with free text statements (ex. GRAM POS COCCI IN CLUSTERS)
DESCRIPTION:
This is the gram stain result.
EXECUTABLE HELP: S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KG""[$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