Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 63.35

Package: Lab Service

LAB DATA(#63)-->63.05-->63.34-->63.35

Sub-Field: 63.35


Information

Parent File Name Number Package
63.34 STAGE 63.35 Lab Service

Details

Field # Name Loc Type Details
.01 STAGE 0;1 SET

  • LAST EDITED:  AUG 17, 1994
  • DESCRIPTION:  
    This is the stage identified with this parasite.
  • CROSS-REFERENCE:  63.35^B
    1)= S ^LR(DA(3),"MI",DA(2),6,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(3),"MI",DA(2),6,DA(1),1,"B",$E(X,1,30),DA)
1 QUANTITY 0;2 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.35,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>50 %S=%S_%Z_" " I %L>50 W " too long",! Q
  • LAST EDITED:  MAY 03, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the quantity of the parasite present.
  • 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
2 COMMENT 1;0 Multiple #63.351 63.351

  • DESCRIPTION:  
    These are the comments on this parasite.
Info |  Details