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

Package: Lab Service

ARCHIVED LR DATA(#63.9999)-->63.999904-->63.9999041

Sub-Field: 63.9999041


Information

Parent File Name Number Package
63.999904 COMMENT 63.9999041 Lab Service

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"&'$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"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.9999041^AC^MUMPS
    1)= Q
    2)= D AC1^LRXREF
1 PERSON 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 09, 1992
    WRITE AUTHORITY:  ^
Info |  Details |  All