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.041

Package: Lab Service

LAB DATA(#63)-->63.04-->63.041

Sub-Field: 63.041


Information

Parent File Name Number Package
63.04 COMMENT 63.041 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"!(^(0)["``")!(^(0)["Changed")&'$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"
    2,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))["``"!(^(0)["Changed")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.041^AC^MUMPS
    1)= Q
    2)= D AC1^LRXREF
    This MUMPS cross reference provides an audit trail of comments that are deleted after test verification.  This cross reference stores the date and time of test verification, the verifying person and the deleted
    comment.  The format for the cross reference nodes created is shown below.
    ^LR(LRDFN,"CH",Inverse Date/Time,1,"AC",DUZ,Deletion time in $H format)
    = DATE REPORT COMPLETED^VERIFY PERSON^COMMENT
  • CROSS-REFERENCE:  63.041^B
    1)= S ^LR(DA(2),"CH",DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"CH",DA(1),1,"B",$E(X,1,30),DA)
1 PERSON 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 09, 1992
  • DESCRIPTION:  
    Person making comment
    WRITE AUTHORITY:  ^
Info |  Details |  All