STANDARD DATA DICTIONARY #63 -- LAB DATA FILE 3/24/25 PAGE 1
STORED IN ^LR( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Patient's laboratory data
CROSS REFERENCE DESCRIPTION:
^LR("AEMA",'YEAR SPECIMEN TAKEN','ACCESSION #',LRDFN,'DATE/TIME SPECIMEN TAKEN')=""
^LR("AEM",'DATE/TIME SPECIMEN RECEIVED',LRDFN,'DATE/TIME SPECIMEN TAKEN')=""
Similar x-refs exists for SURGICAL PATHOLOGY: "ASPA" and "ASP"
CYTOLOGY: "ACYA" and "ACY"
AUTOPSY: "AAUA" and "AAU"
^LR("AAU",'AUTOPSY DATE/TIME',LRDFN)=""
^LR("AD",DT,'ORGANISM','ACCESSION'_" ")=LRDFN
Set when an organism to be reported to the health department is entered.
^LR(LRDFN,"CH",LRIDT,1,"AC",DUZ,$H)=DATE REPORT COMPLETED^VERIFY PERSON^
COMMENT (DELETED)
Set when a comment is deleted from a verified test, used by the routine
LRDCOM.
IDENTIFIED BY: PARENT FILE (#.02)[R], NAME (#.03)[R]
POINTED TO BY: LABORATORY REFERENCE field (#63) of the PATIENT File (#2)
DATA NAME field (#400) of the LABORATORY TEST File (#60)
INTERNAL NAME field (#5) of the ANTIMICROBIAL SUSCEPTIBILITY File (#62.06)
AFB INTERNAL NAME field (#5.1) of the ANTIMICROBIAL SUSCEPTIBILITY File (#62.06)
LABORATORY REFERENCE field (#63) of the LAB CONTROL NAME File (#62.3)
LRDFN field (#.01) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8)
LRDFN field (#.01) of the CUMULATIVE File (#64.7)
LABORATORY REFERENCE field (#63) of the BLOOD DONOR File (#65.5)
LABORATORY REFERENCE field (#63) of the REFERRAL PATIENT File (#67)
LABORATORY REFERENCE field (#63) of the RESEARCH File (#67.1)
LABORATORY REFERENCE field (#63) of the STERILIZER File (#67.2)
LABORATORY REFERENCE field (#63) of the ENVIRONMENTAL File (#67.3)
LRDFN field (#.01) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File
(#68)
LRDFN field (#.01) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY File (#69)
LRDFN field (#3) of the TEST sub-field (#69.11) of the COLLECTION LIST File (#69.1)
REPORTS ON DEMAND field (#.01) of the REPORTS ON DEMAND sub-field (#69.27) of the LAB SECTION PRINT File (#69.2)
LRDFN field (#.01) of the LRDFN sub-field (#69.3) of the USER REQUEST LIST sub-field (#69.28) of the LAB SECTION
PRINT File (#69.2)
CLOZAPINE LAB RESULT field (#.01) of the CLOZAPINE LAB RESULTS sub-field (#100.08) of the ORDER CHECK INSTANCES File
(#100.05)
LABORATORY DATA NAME field (#.01) of the LABORATORY DATA NAME sub-field (#139.21) of the RISK MODEL LAB TEST File
(#139.2)
LABORATORY INFO field (#613) of the RHEUMATOLOGY File (#701)
LAB LRDFN field (#2) of the DICOM LAB TEMP LIST File (#2006.5838)
CROSS
REFERENCED BY: AUTOPSY DATE/TIME(AAU), AUTOPSY ACC #(AAUA), TRANSFUSION REACTION TYPE(AB), DATE/TIME SPECIMEN RECEIVED(ACY),
CYTOPATH ACC #(ACYA), DATE/TIME SPECIMEN RECEIVED(AEM), EM ACC #(AEMA), TRANSFUSION REACTION TYPE(AR),
DATE/TIME SPECIMEN RECEIVED(ASP), SURGICAL PATH ACC #(ASPA), PARENT FILE(AZZ), LRDFN(B), NAME(CZZ)
LAST MODIFIED: APR 2,2019@16:49:10
63,.01 LRDFN 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: MAR 17, 2006
HELP-PROMPT: Enter the application entry number.
DESCRIPTION:
The internal file number of the "patient" (or other entity)
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63^B
1)= S ^LR("B",$E(X,1,30),DA)=""
2)= K ^LR("B",$E(X,1,30),DA)
The internal file number in the ^LR file. This is commonly known as LRDFN variable in LR*
routines.
63,.02 PARENT FILE 0;2 POINTER TO FILE FILE (#1) (Required)
INPUT TRANSFORM: S DIC("S")="I $D(^(""%"",""B"",""LR""))" D ^DIC:X'?1"?".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DD
IFN=X
LAST EDITED: NOV 04, 2002
DESCRIPTION:
The file where the name of this entry may be found.
SCREEN: S DIC("S")="I $D(^(""%"",""B"",""LR""))"
EXPLANATION: Enter the appropriate parent you wish this entry associated with.
EXECUTABLE HELP: W !!,"Allowable Entries: " F %II=0:0 S %II=$O(^DIC("AC","LR",%II)) Q:%II'>0 W ?20,%II,?30,$P(^DIC(
%II,0),"^",1),!
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63^AZZ^MUMPS
1)= Q
2)= I '$D(DIU(0)) S DOLP=X,L1=^LR(DA,0),X=$P(L1,"^",3) X ^DD(63,.03,1,1,2) S ^LR(DA,0)=$P(L1,"^",1,
2)_"^^"_$P(L1,"^",4,99) K DOLP,L1,L,Q
63,.03 NAME 0;3 NUMBER (Required)
INPUT TRANSFORM: I '$D(DIU(0)) S PDA=DA,PDIC=DIC,DIC(0)="QEM",DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),"^"
,2),1:""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I
$D(Y) X ^DD(63,.03,.0001)
OUTPUT TRANSFORM: N L,L1 S L1=$S($D(DA):DA,$D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),Y="" I +$P(L,"^",2)>0 S Y=$P($S($D(@(
^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",1)
LAST EDITED: JAN 13, 1984
DESCRIPTION:
The internal file number in the parent file for this entry.
EXECUTABLE HELP: S X="?",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),"^",2),1:0),DIC(0)="QEM"
D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63^CZZ^MUMPS
1)= S @(^DIC(+$P(^LR(DA,0),"^",2),0,"GL")_(+X)_",""LR"")")=DA
2)= N L I '$D(DIU(0)) S L=$S($D(DOLP):"^"_DOLP_"^"_X,1:^LR(DA,0)) K @(^DIC(+$P(L,"^",2),0,"GL")_(+X
)_",""LR"")")
63,.04 DO NOT TRANSFUSE 0;4 SET
'1' FOR DO NOT TRANSFUSE;
'0' FOR OK TO TRANSFUSE;
LAST EDITED: SEP 09, 1985
DESCRIPTION: If DO NOT TRANSFUSE is entered then the patient cannot be transfused until the reason for not
transfusing a blood component is resolved. The reason can be entered in the BLOOD BANK COMMENTS
field.
63,.05 ABO GROUP 0;5 SET (Required)
PATIENT'S ABO BLOOD TYPE
'A' FOR A;
'B' FOR B;
'AB' FOR AB;
'O' FOR O;
LAST EDITED: AUG 15, 1988
DESCRIPTION:
ABO blood group of patient
EXECUTABLE HELP: W !,"Enter A for A, B for B, O for O or AB for AB"
63,.06 RH TYPE 0;6 SET (Required)
'POS' FOR POS;
'NEG' FOR NEG;
LAST EDITED: AUG 15, 1988
DESCRIPTION:
This is the patient's RH blood type.
63,.07 RBC ANTIGENS PRESENT(other) 1;0 POINTER Multiple #63.13 (Add New Entry without Asking)
DESCRIPTION:
Red blood cell antigens present other than ABO and Rho(D).
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: SELECTS ONLY ANTIGENS
63.13,.01 RBC ANTIGENS PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
RBC antigens present other than ABO & Rho(D)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: AUG 11, 1985
DESCRIPTION:
These are red blood cell antigens present other than ABO and Rho(D).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.13^B
1)= S ^LR(DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),1,"B",$E(X,1,30),DA)
63.13,.02 RBC ANTIGENS PRESENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the red blood cell antigen present.
63,.075 ANTIBODIES IDENTIFIED 1.7;0 POINTER Multiple #63.075 (Add New Entry without Asking)
DESCRIPTION:
These are the patient's identified antibodies.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION: Selects only antibodies
63.075,.01 ANTIBODIES IDENTIFIED 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AB""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
This is a pointer to an antibody identified on this patient.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION: Limits entry to only blood group antibodies
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.075,.02 ANTIBODIES IDENTIFIED COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the antibodies identified.
63,.076 BLOOD BANK COMMENTS 3;0 WORD-PROCESSING #63.076
DESCRIPTION:
These are blood bank comments for this patient.
LAST EDITED: JUN 02, 1985
DESCRIPTION:
These are blood bank comments for this patient.
63,.08 RBC ANTIGENS ABSENT(other) 1.5;0 POINTER Multiple #63.016 (Add New Entry without Asking)
DESCRIPTION:
Red blood cell antigens absent other than ABO & Rho(D).
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: SELECTS ONLY ANTIGENS
63.016,.01 RBC ANTIGENS ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: AUG 11, 1985
DESCRIPTION:
This is a red blood cell antigen that is absent for this patient.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: SELECTS ONLY ANTIGENS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.016,.02 RBC ANTIGENS ABSENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is the comment on the absent antigen.
63,.084 BLOOD COMPONENT REQUEST 1.8;0 POINTER Multiple #63.084 (Add New Entry without Asking)
DESCRIPTION:
These are blood component requests.
SCREEN: S DIC("S")="I $P(^(0),U,15)"
EXPLANATION: Selects only components that can be requested
63.084,.01 BLOOD COMPONENT REQUEST 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,15),$D(^(10,DUZ(2),0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUL 31, 1995
DESCRIPTION:
This is the component requested.
SCREEN: S DIC("S")="I $P(^(0),U,15),$D(^(10,DUZ(2),0))"
EXPLANATION: Selects only components that can be selected within the division
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.084,.02 PRE-OP REQUEST 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 22, 1985
DESCRIPTION:
YES indicates this is a pre-operative request.
63.084,.03 REQUEST DATE/TIME 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the date/time of the request.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.084,.04 NUMBER OF UNITS 0;4 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 07, 1987
HELP-PROMPT: Type a Number between 1 and 50, 0 Decimal Digits
DESCRIPTION:
This is the number of units requested.
63.084,.05 DATE/TIME UNITS WANTED 0;5 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: AUG 26, 1986
DESCRIPTION:
This is the date/time the units are wanted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.084,.06 PREVIOUS TRANSFUSIONS 0;6 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
YES indicates the patient has had previous transfusions.
63.084,.07 PREVIOUS TRANSFUSION REACTION 0;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 26, 1991
DESCRIPTION:
YES indicates the patient has had a previous transfusion reaction.
63.084,.08 ENTERING PERSON 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 04, 1987
DESCRIPTION:
This is the person entering the request.
63.084,.09 REQUESTING PERSON 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>17!($L(X)<2) X
LAST EDITED: MAY 04, 1987
HELP-PROMPT: ANSWER MUST BE 2-17 CHARACTERS IN LENGTH
DESCRIPTION:
This is the person making the request.
63.084,1 UNITS SELECTED FOR XMATCH 1;0 POINTER Multiple #63.0841 (Add New Entry without Asking)
DESCRIPTION:
These are units selected for crossmatch.
SCREEN: S DIC("S")="I '$D(^(4))"
EXPLANATION: SELECTS UNITS WITHOUT DISPOSITION
63.0841,.01 UNIT SELECTED FOR XMATCH 0;1 POINTER TO BLOOD INVENTORY FILE (#65) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I '$D(^(4))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: AUG 06, 1985
DESCRIPTION:
This is the unit selected for crossmatch.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.0841,.02 INVERSE SPECIMEN DATE 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."6N.N) X
LAST EDITED: AUG 06, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 9999999
DESCRIPTION:
This is 9999999--collection date of the specimen for crossmatch.
63.084,2.1 COMPONENT REQUEST REASON 2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="J" D ^LRUB
LAST EDITED: SEP 03, 1987
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION: If request does not meet acceptable criteria enter the reason
why the request should still be completed.
EXECUTABLE HELP:S L(1)="J" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.084,2.2 APPROVED BY 2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the person approving the crossmatch request.
63.084,2.3 TREATING SPECIALITY 2;3 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: SEP 02, 1987
DESCRIPTION:
This is the treating specialty of the crossmatch request.
63,.085 TRANSFUSION RECORD 1.6;0 DATE Multiple #63.017 (Add New Entry without Asking)
DESCRIPTION:
This is data concerning the patient's transfusion.
IDENTIFIED BY: COMPONENT(#.02)[R], COMPONENT ID(#.03)[R]
63.017,.01 TRANSFUSION DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S X(1)=9999999-Y X:$D(^LR(DA(1),1.6,X(1)
)) ^DD(63.017,.01,9.2) S DINUM=X(1)
9.2 = F X(2)=0:0 S X(1)=X(1)-.00001 Q:'$D(^LR(DA(1),1.6,X(1)))
LAST EDITED: AUG 08, 1985
DESCRIPTION:
This is a reverse chronological order of blood components transfused.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.017,.02 COMPONENT 0;2 POINTER TO BLOOD PRODUCT FILE (#66) (Required)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) LR=X
LAST EDITED: JUL 30, 1987
DESCRIPTION:
This is the component transfused.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""BB"""
EXPLANATION: Selects only blood components that can be transfused
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.017,.03 COMPONENT ID 0;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>13!($L(X)<2) X D:$D(X) EN^LRBLU
LAST EDITED: OCT 24, 2000
HELP-PROMPT: ANSWER MUST BE 2-13 CHARACTERS IN LENGTH
DESCRIPTION:
This is the component identification number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.017,.04 ENTERING PERSON 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 04, 1987
DESCRIPTION:
This is the person entering information on the transfusion.
63.017,.05 ABO 0;5 SET
'A' FOR A;
'B' FOR B;
'AB' FOR AB;
'O' FOR O;
LAST EDITED: JUN 02, 1985
DESCRIPTION:
ABO group of component
63.017,.06 RH 0;6 SET
'POS' FOR POSITIVE;
'NEG' FOR NEGATIVE;
LAST EDITED: JUN 02, 1985
DESCRIPTION:
Rh type of component
63.017,.07 UNITS POOLED 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 07, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This is the number of units pooled.
63.017,.08 TRANSFUSION REACTION 0;8 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 04, 1986
DESCRIPTION:
YES indicates a transfusion reaction was associated with this transfusion.
63.017,.09 DATA ENTERED VIA OLD RECORDS 0;9 SET
'1' FOR YES;
LAST EDITED: JUL 30, 1987
DESCRIPTION: If transfusion data entered in the transfusion record via previous
records option then a 'YES' will be entered here.
63.017,.1 VOL(ml) TRANSFUSED 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 08, 1988
HELP-PROMPT: Type a Number between 1 and 1000, 0 Decimal Digits
DESCRIPTION:
Enter in milliliters the volume of the unit transfused
63.017,.11 TRANSFUSION REACTION TYPE 0;11 POINTER TO BLOOD BANK UTILITY FILE (#65.4)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 14, 1992
DESCRIPTION:
Indicates type of transfusion reaction
SCREEN: S DIC("S")="I $P(^(0),U,2)=""T"""
EXPLANATION: Selects transfusion reaction type
CROSS-REFERENCE:63^AB^MUMPS
1)= S ^LR("AB",DA(1),X,DA)=""
2)= K ^LR("AB",DA(1),X,DA)
Transfusion reaction type by patient
63.017,1 TRANSFUSION COMMENT 1;0 Multiple #63.186 (Add New Entry without Asking)
DESCRIPTION:
These are comments on the transfusion.
63.186,.01 TRANSFUSION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JR" D ^LRUB
LAST EDITED: MAY 19, 1987
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the transfusion.
EXECUTABLE HELP:S L(1)="JR" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.017,2 CROSSMATCH COMMENT 2;0 Multiple #63.027 (Add New Entry without Asking)
DESCRIPTION:
These are comments on the crossmatch.
63.027,.01 CROSSMATCH COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 06, 1987
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the crossmatch.
63,.086 TRANSFUSION REACTION DATE 1.9;0 DATE Multiple #63.0171 (Add New Entry without Asking)
LAST EDITED: DEC 29, 1992
DESCRIPTION:
Transfusion reactions that cannot be assigned to a specific unit are entered here.
63.0171,.01 TRANSFUSION REACTION DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=9999999-X
LAST EDITED: JUN 28, 1993
DESCRIPTION:
Transfusion reactions that cannot be assigned to a specific unit are entered here.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.0171,.02 TRANSFUSION REACTION TYPE 0;2 POINTER TO BLOOD BANK UTILITY FILE (#65.4) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 30, 1992
DESCRIPTION:
Stores the type of transfusion reaction
SCREEN: S DIC("S")="I $P(^(0),U,2)=""T"""
EXPLANATION: Selects only transfusion reaction entries
CROSS-REFERENCE: 63^AR^MUMPS
1)= S ^LR("AR",DA(1),X,DA)=""
2)= K ^LR("AR",DA(1),X,DA)
Cross reference for identifying transfusion reactions not able to be identified with a specific
unit.
63.0171,.03 PERSON ENTERING REACTION 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: DEC 13, 1992
DESCRIPTION:
Person entering reaction information
63.0171,1 TRANSFUSION REACTION COMMENT 1;0 Multiple #63.172 (Add New Entry without Asking)
DESCRIPTION:
Multiple for transfusion reaction comment
63.172,.01 TRANSFUSION REACTION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>68!($L(X)<2) X
LAST EDITED: DEC 13, 1992
HELP-PROMPT: Answer must be 2-68 characters in length.
DESCRIPTION:
Comments related to a transfusion reaction such as suspected component or units
63,.09 HOSPITAL ID ; COMPUTED
MUMPS CODE: S L1=$S($D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_
",0)")):^(0),1:""),"^",9),X=$S(X?9N:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X)
ALGORITHM: S L1=$S($D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_
",0)")):^(0),1:""),"^",9),X=$S(X?9N:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X)
LAST EDITED: OCT 07, 2013
DESCRIPTION:
Computed field to present the hospital ID from the parent file.
63,.091 PAT. INFO. .091;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
Patient information
63,.092 LOCATION TYPE .092;1 SET
'C' FOR CLINIC;
'M' FOR MODULE;
'W' FOR WARD;
'Z' FOR OTHER LOCATION;
'N' FOR NON-CLINIC STOP;
'F' FOR FILE AREA;
'I' FOR IMAGING;
'OR' FOR OPERATING ROOM;
LAST EDITED: OCT 21, 1991
DESCRIPTION:
This field is used for Workload Classification. Other location type is the default answer.
TECHNICAL DESCR: This field is simular to the type field found in File #44. It is used to deterimin
In-patient/Out-patient workload.
63,.1 REPORT ROUTING (LOCATION) .1;E1,19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>19!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-19 CHARACTERS IN LENGTH
DESCRIPTION:
The most current location where a lab procedure was requested.
63,.101 REPORT ROUTING (PROVIDER) .2;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 06, 1992
DESCRIPTION:
The most current requesting person who requested a lab procedure.
63,.11 CUMULATIVE REPORT PAGES PG;0 POINTER Multiple #63.03 (Add New Entry without Asking)
DESCRIPTION:
Current temporary (active) page numbers for the cumulative report.
63.03,.01 CUMULATIVE REPORT PAGES 0;1 POINTER TO LAB REPORTS FILE (#64.5)
LAST EDITED: MAY 20, 1987
DESCRIPTION:
First ":" piece page number for the cumulative report.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.03,1 PAGE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 07, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
DESCRIPTION:
Second ":" piece page number for the cumulative report.
63,.12 PRODUCING LABORATORY PL;0 Multiple #63.00012 (Add New Entry without Asking)
DESCRIPTION: Contains information related to laboratory results which document legal and accreditation required
information. It documents the laboratory that produces the lab result value (performing laboratory)
in addition to other supporting information such as address of the performing laboratory and the
name/title/identifier of the laboratory director of the performing laboratory when required.
INDEXED BY: LAB DATA REFERENCE (AC), LAB DATA REFERENCE (B)
63.00012,.01 LAB DATA REFERENCE 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: MAY 12, 2008
HELP-PROMPT: Answer must be 1-60 characters in length
DESCRIPTION: Contains the global reference in a format similar to a FileMan DA array. It resolves to the
section of this file which contains the results that are related to this producing laboratory.
It constructed based on the entry's LRDFN, LRSS and LRIDT where
LRDFN = internal enter number in file #63
LRSS = related subscript
LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value
LRSS="AU"
LRIDT=0
to maintain the structure of the entries and related index.
The structure of the reference is
LRDFN,LRSS,LRIDT,1...N related global nodes in the LR global.
When reference is to a specific field which shares other fields on the same node then the format
used to distinguish separate fields is node;piece position on node.
Example microbiology results within MI subscript
- 173,MI,6959788.895648,3,1,0
Example microbiology results with MI subscript, 6th piece of 1 node - 356,MI,6919497.888687,1;6
FIELD INDEX: AC (#1048) REGULAR IR SORTING ONLY
Short Descr: Index to identify entries related to a specific specimen
Description: This index is used to identify those entries which are related to a specific specimen/accession
in file #63. It constructed based on the entry's LRDFN, LRSS and LRIDT where LRDFN = internal
enter number in file #63
LRSS = related subscript
LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value LRSS="AU" and LRIDT=0 to maintain
the structure of the entries and related index.
Set Logic: S ^LR(DA(1),"PL","AC",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"PL","AC",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"PL","AC")
X(1): LAB DATA REFERENCE (63.00012,.01) (Subscr 1) (forwards)
Transform (Storage): S X=$P(X,",",2)
X(2): Computed Code: S X=$P(^LR(DA(1),"PL",DA,0),",",3)
(Subscr 2)
FIELD INDEX: B (#1049) REGULAR IR LOOKUP & SORTING
Short Descr: Regular 'B' cross-reference
Description: Regular "B" cross-reference on #.01 field. Setup as new style to edit subscript length
Set Logic: S ^LR(DA(1),"PL","B",$E(X,1,60),DA)=""
Kill Logic: K ^LR(DA(1),"PL","B",$E(X,1,60),DA)
Whole Kill: K ^LR(DA(1),"PL","B")
X(1): LAB DATA REFERENCE (63.00012,.01) (Subscr 1) (Len 60) (forwards)
63.00012,.02 INSTITUTION 0;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: APR 07, 2008
DESCRIPTION: Contains the pointer to the entry in the INSTITUTION file which is related to the laboratory
which produced the related laboratory results.
63,.13 EXTERNAL PACKAGE REFERENCE EPR;0 Multiple #63.00013 (Add New Entry without Asking)
LAST EDITED: OCT 02, 2008
DESCRIPTION:
Stores information related to various external packages which are related to a laboratory specimen.
INDEXED BY: LAB DATA REFERENCE (AC), LAB DATA REFERENCE & TYPE OF REFERENCE (AD), LAB DATA REFERENCE (B)
63.00013,.01 LAB DATA REFERENCE 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: APR 02, 2009
HELP-PROMPT: Answer must be 1-60 characters in length
DESCRIPTION: Contains the global reference in a format similar to a FileMan DA array. It resolves to the
section of this file which contains the results that are related to this reference.
It constructed based on the entry's LRDFN, LRSS and LRIDT where LRDFN = internal enter number
in file #63 LRSS = related subscript LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value LRSS="AU" LRIDT=0 to maintain
the structure of the entries and related index.
The structure of the reference is LRDFN,LRSS,LRIDT,1...N related global nodes in the LR global.
When reference is to a specific field which shares other fields on the same node then the format
used to distinguish separate fields is node;piece position on node.
Example microbiology results within MI subscript - 173,MI,6959788.895648,3,1,0
Example microbiology results with MI subscript, 6th piece of 1 node - 356,MI,6919497.888687,1;6
FIELD INDEX: AC (#1050) REGULAR IR SORTING ONLY
Short Descr: Index to identify entries related to a specific specimen.
Description: This index is used to identify those entries which are related to a specific specimen/accession
in file #63. It constructed based on the entry's LRDFN, LRSS and LRIDT where LRDFN = internal
enter number in file #63
LRSS = related subscript LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value LRSS="AU" and LRIDT=0 to maintain
the structure of the entries and related index.
Set Logic: S ^LR(DA(1),"EPR","AC",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"EPR","AC",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"EPR","AC")
X(1): LAB DATA REFERENCE (63.00013,.01) (Subscr 1) (forwards)
Transform (Storage): S X=$P(X,",",2)
X(2): Computed Code: S X=$P(^LR(DA(1),"EPR",DA,0),",",3)
(Subscr 2)
FIELD INDEX: B (#1052) REGULAR IR LOOKUP & SORTING
Short Descr: Regular 'B' cross-reference
Description: Regular "B" cross-reference on #.01 field. Setup as a new style cross-reference to edit
subscript length.
Set Logic: S ^LR(DA(1),"EPR","B",$E(X,1,60),DA)=""
Kill Logic: K ^LR(DA(1),"EPR","B",$E(X,1,60),DA)
Whole Kill: K ^LR(DA(1),"EPR","B")
X(1): LAB DATA REFERENCE (63.00013,.01) (Subscr 1) (Len 60) (forwards)
RECORD INDEXES: AD (#1051)
63.00013,.02 TYPE OF REFERENCE 0;2 SET
'1' FOR SURGICAL CASE;
'2' FOR IMAGING RECORD;
'3' FOR PLACER ORDER NUMBER;
'4' FOR FILLER ORDER NUMBER;
LAST EDITED: APR 12, 2010
HELP-PROMPT: Enter the type of reference.
DESCRIPTION: Stores various references to external data that is related to this laboratory
specimen/order/result.
This field indicates the type/source of the package reference being stored in the REFERENCE field
(#1).
Examples can be:
1 - Imaging when there are associated images or other binary documents.
2 - Surgery when there is a related surgical case and a linkage needs to
be recorded between the surgical operative report and the laboratory
surgical pathology, cytology, or other laboratory report.
3 - Placer order number when the order was received from an external
system and a reference/linkage needs to be maintained with the system.
4 - Filler order number when the order was fulfilled by an external
system and a reference/linkage needs to be maintained to this system.
RECORD INDEXES: AD (#1051)
63.00013,.03 FILE REFERENCE 0;3 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
4 1 FAC: n Select INSITUTION:
LAST EDITED: APR 12, 2010
HELP-PROMPT: Enter the related file entry to this reference if any.
DESCRIPTION: If the type of external reference stored is one which the laboratory package can establish a
pointed-to file relationship then the pointer to that file can be stored here. Examples are
pointing to the IMAGING file (#2005) or INSTITUTION file (#4). It can be used in conjunction with
type #3/4 when storing an order number and in addition to the order number the institution
related to the external order number can also be specified.
63.00013,1 REFERENCE 1;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: APR 12, 2010
HELP-PROMPT: Answer must be 1-245 characters in length
DESCRIPTION: Stores the actual reference related to the external system. Format is based on the type and
handled via software.
If type=imaging then the reference provided by the Imaging package will be recorded.
If type=surgery then the Surgical Case # or reference to the Surgery Package.
If type=placer order then the order identifier received from the placer of the order.
If type=filler order then the filler identifier received from the filler of the order.
TECHNICAL DESCR: Data in this field is stored by position, not piece, and therefore uses extract storage. This
allows FileMan to support a reference which contains embedded caret characters and store in it's
actual form.
63,.14 CODE SYSTEM REFERENCE CSR;0 Multiple #63.00014 (Add New Entry without Asking)
LAST EDITED: OCT 30, 2009
DESCRIPTION:
Contains codes from various code systems used to encode this data element.
INDEXED BY: LAB DATA REFERENCE (AC), LAB DATA REFERENCE & ROLE (AD), LAB DATA REFERENCE & ROLE & NAME OF CODE
SYSTEM & CODE ID (AE), LAB DATA REFERENCE (B)
63.00014,.01 LAB DATA REFERENCE 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Answer must be 1-60 characters in length
DESCRIPTION: Contains the global reference in a format similar to a FileMan DA array. It resolves to the
section of this file which contains the results that are related to this reference.
It constructed based on the entry's LRDFN, LRSS and LRIDT where LRDFN = internal enter number in
file #63 , LRSS = related subscript LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value LRSS="AU" LRIDT=0 to maintain
the structure of the entries and related index.
The structure of the reference is LRDFN,LRSS,LRIDT,1...N related global nodes in the LR global.
When reference is to a specific field which shares other fields on the same node then the format
used to distinguish separate fields is node;piece position on node.
Example microbiology results within MI subscript - 173,MI,6959788.895648,3,1,0
Example microbiology results with MI subscript, 6th piece of 1 node - 356,MI,6919497.888687,1;6
FIELD INDEX: AC (#1053) REGULAR IR SORTING ONLY
Short Descr: Index to identify entries related to a specific specimen.
Description: This index is used to identify those entries which are related to a specific specimen/accession
in file #63. It constructed based on the entry's LRDFN, LRSS and LRIDT where LRDFN = internal
enter number in file #63
LRSS = related subscript LRIDT = inverse date/time of specimen
Autopsy results being one of a kind are created using a value LRSS="AU" and LRIDT=0 to maintain
the structure of the entries and related index.
Set Logic: S ^LR(DA(1),"CSR","AC",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"CSR","AC",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"CSR","AC")
X(1): LAB DATA REFERENCE (63.00014,.01) (Subscr 1) (forwards)
Transform (Storage): S X=$P(X,",",2)
X(2): Computed Code: S X=$P(^LR(DA(1),"CSR",DA,0),",",3)
(Subscr 2)
FIELD INDEX: B (#1056) REGULAR IR LOOKUP & SORTING
Short Descr: Regular 'B' cross-reference
Description: Regular "B" cross-reference on #.01 field. Setup as a new style cross-reference to edit
subscript length.
Set Logic: S ^LR(DA(1),"CSR","B",$E(X,1,60),DA)=""
Kill Logic: K ^LR(DA(1),"CSR","B",$E(X,1,60),DA)
Whole Kill: K ^LR(DA(1),"CSR","B")
X(1): LAB DATA REFERENCE (63.00014,.01) (Subscr 1) (Len 60) (forwards)
RECORD INDEXES: AD (#1054), AE (#1055)
63.00014,.02 ROLE 0;2 SET
'1' FOR ORDER;
'2' FOR RESULT;
'3' FOR ANSWER;
'4' FOR METHODOLOGY;
'5' FOR WORKLOAD;
'6' FOR BILLING;
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Enter the role that this code is used to express.
RECORD INDEXES: AD (#1054), AE (#1055)
63.00014,.03 CODE ID 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Answer must be 1-25 characters in length
DESCRIPTION:
The code id value from the code system being stored.
RECORD INDEXES: AE (#1055)
63.00014,.035 CODE TEXT 1;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: NOV 03, 2009
HELP-PROMPT: Answer must be 1-245 characters in length
DESCRIPTION:
Contains the text associated with the CODE ID.
TECHNICAL DESCR: Data in this field is stored by position, not piece, and therefore uses extract storage. This
allows FileMan to support a code text which contains embedded caret characters and store in it's
actual form.
63.00014,.04 NAME OF CODE SYSTEM 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Answer must be 1-30 characters in length
DESCRIPTION:
Contains the code system name or designated abbreviation used to identify the CODE ID.
RECORD INDEXES: AE (#1055)
63.00014,.05 CODE VERSION 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Answer must be 1-20 characters in length
DESCRIPTION:
This is the version ID for the coding system identified by CODE ID.
63.00014,.06 RELATED ENTRY 0;6 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
95.3 1 LN n Select LOINC code
64 2 NLT n Select NLT code
81 3 CPT n Select CPT code
LAST EDITED: NOV 02, 2009
HELP-PROMPT: Enter the related file entry to this reference if any.
DESCRIPTION: If the associated code exists in a VistA file then this field will contain a link to the related
entry. This field can be blank if the code system does not exist in a related VistA file or the
code is contained in a version not supported by a related VistA file.
63,.2 HLA ANTIGENS PRESENT 2;0 POINTER Multiple #63.14 (Add New Entry without Asking)
DESCRIPTION:
These are HLA antigens associated with this patient.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: SELECTS ONLY HLA ANTIGENS
63.14,.01 HLA ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUN 03, 1986
DESCRIPTION:
This is the HLA antigen associated with this patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.14^B
1)= S ^LR(DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),2,"B",$E(X,1,30),DA)
63.14,.02 HLA ANTIGEN PRESENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 03, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment about the patient's HLA antigen.
63,.21 HLA ANTIGENS ABSENT 2.1;0 POINTER Multiple #63.141 (Add New Entry without Asking)
DESCRIPTION:
These are HLA antigens NOT associated with this patient.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Selects HLA antigens
63.141,.01 HLA ANTIGENS ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUN 03, 1986
DESCRIPTION:
This is the HLA antigen NOT associated with this patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.141,.02 HLA ANTIGEN ABSENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 03, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the antigen absent for this patient.
63,1 BLOOD BANK BB;0 DATE Multiple #63.01 (Add New Entry without Asking)
DESCRIPTION:
This is blood bank data on this patient.
63.01,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETXS",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-Y
LAST EDITED: JUN 29, 1992
HELP-PROMPT: ENTER PAST OR PRESENT DATE/TIME ONLY
DESCRIPTION:
This is the date/time the specimen was collected.
DELETE AUTHORITY: @
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,.03 DATE REPORT COMPLETED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date the report was completed.
WRITE AUTHORITY: ^
63.01,.04 ENTERING PERSON 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person entering the date.
WRITE AUTHORITY: ^
63.01,.05 SPECIMEN 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61)
DESCRIPTION:
This is the specimen collected.
WRITE AUTHORITY: ^
63.01,.055 COLLECTION SAMPLE 0;11 POINTER TO COLLECTION SAMPLE FILE (#62) (Required)
LAST EDITED: NOV 26, 1991
DESCRIPTION:
This is the collection sample for the specimen.
WRITE AUTHORITY: ^
63.01,.06 ACCESSION NUMBER 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAY 08, 1987
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the blood bank accession.
WRITE AUTHORITY: ^
63.01,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+
Y K:Y<0 X
LAST EDITED: APR 20, 1990
DESCRIPTION:
This is the requesting provider.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key.
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,.08 WARD 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>19!($L(X)<1) X
LAST EDITED: MAY 06, 1987
HELP-PROMPT: ANSWER MUST BE 1-19 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
WRITE AUTHORITY:^
63.01,.09 PHLEBOTOMIST 0;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person collecting the sample
WRITE AUTHORITY:^
63.01,.1 DATE/TIME RECEIVED 0;10 DATE (Required)
INPUT TRANSFORM:S %DT="EXT",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X'["." K X
LAST EDITED: JUN 15, 1985
HELP-PROMPT: Enter date and time !
DESCRIPTION:
This is the date/time the sample was received at the blood bank.
EXECUTABLE HELP:K DZ
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,.12 ACCESSION LINK 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>24!($L(X)<1) X
LAST EDITED: SEP 28, 1994
HELP-PROMPT: Answer must be 1-24 characters in length.
DESCRIPTION: This field is used to determine the accession area, accession date and the accession number. The
data is stuffed by the accessioning logic. The contents is used by the workload capturing
routines.
NOTE: THIS FIELD SHOULD NOT BE EDITED MANUALLY, ONLY PROGRAM LOGIC SHOULD SET THIS FIELD.
TECHNICAL DESCR: The structure of the entry is accession area #, accession date and accession number separated by
vertical bar.
29|2940927|3
WRITE AUTHORITY:^
UNEDITABLE
63.01,.99 SPECIMEN COMMENT 99;0 Multiple #63.199 (Add New Entry without Asking)
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the specimen.
WRITE AUTHORITY:^
63.199,.01 SPECIMEN COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: APR 18, 1989
HELP-PROMPT: Answer must be 2-68 characters in length.
DESCRIPTION:
This is a comment on the specimen.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRBLSUPER",DUZ))
WRITE AUTHORITY:^
63.01,2.1 DIRECT AHG(POLYSPECIFIC) 2;1 FREE TEXT
Polyspecific (broad spectrum) antiserum
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.2 DIRECT AHG(5 min incub) 2;2 FREE TEXT
Polyspecific (broad spectrum) antiserum 5 min incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.3 DIRECT AHG CC 2;3 FREE TEXT
Direct AHG broadspectrum check cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.4 ANTI-IgG 2;4 FREE TEXT
Anti-human globulin (not broadspectrum)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.5 ANTI-IgG CC 2;5 FREE TEXT
Anti-human globulin check cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.6 ANTI-COMPLEMENT 2;6 FREE TEXT
Anti-human globulin (complement specific)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.7 ANTI-COMPLEMENT (5 min incub) 2;7 FREE TEXT
Anti-human globulin, complement specific (5 min incubation)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.8 ANTI-COMPLEMENT CC 2;8 FREE TEXT
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,2.9 DIRECT AHG INTERPRETATION 2;9 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
'I' FOR INVALID, USE EDTA SPECIMEN;
LAST EDITED: OCT 21, 1984
DESCRIPTION:
Interpretation of the direct AHG
WRITE AUTHORITY:^
63.01,2.91 DIRECT AHG TEST COMMENT 2;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB
LAST EDITED: MAY 19, 1987
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Any comment on the direct AHG test
EXECUTABLE HELP:S L(1)="JX" D Q^LRUB
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,3 ELUATE ANTIBODY EA;0 POINTER Multiple #63.012 (Add New Entry without Asking)
DESCRIPTION:
These are eluate antibodies.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION: Selects only antibodies
WRITE AUTHORITY:^
63.012,.01 ELUATE ANTIBODY 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AB""" D ^DIC
K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
This is the eluate antibody.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION:Select only Blood group Antibodies
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,4 SCREEN CELL METHOD 3;0 SET Multiple #63.014 (Add New Entry without Asking)
DESCRIPTION:
These are the screen cell methods.
WRITE AUTHORITY:^
63.014,.01 SCREEN CELL METHOD 0;1 SET (Multiply asked)
Cell suspension media (LISH=low ionic strength high mol wt)
'S' FOR SALINE;
'A' FOR ALBUMIN;
'P' FOR PAPAIN;
'F' FOR FICIN;
'L' FOR LISS;
'H' FOR LISH;
LAST EDITED: DEC 20, 1986
HELP-PROMPT:LISH=low ionic strength high molecular weight
DESCRIPTION:
This is the screen cell method.
WRITE AUTHORITY:^
63.014,.02 TECHNIQUE 0;2 SET
'T' FOR TUBE;
'M' FOR MICROPLATE;
'A' FOR AUTOMATED;
LAST EDITED: NOV 01, 1984
DESCRIPTION:
This is the screen cell technique.
WRITE AUTHORITY:^
63.014,1 SCREEN CELL 1;0 SET Multiple #63.015 (Add New Entry without Asking)
DESCRIPTION:
These are the screen cells.
WRITE AUTHORITY:^
63.015,.01 SCREEN CELL 0;1 SET (Multiply asked)
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
INPUT TRANSFORM:I $D(X) S DINUM=X
LAST EDITED: OCT 21, 1984
DESCRIPTION:
This is the screen cell used.
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.02 SOURCE 0;2 POINTER TO BLOOD PRODUCT FILE (#66)
LAST EDITED: OCT 21, 1984
DESCRIPTION:
This is the source of the screen cells.
WRITE AUTHORITY:^
63.015,.03 INTERPRETATION 0;3 SET
'N' FOR NEGATIVE;
'P' FOR POSITIVE;
LAST EDITED: OCT 21, 1984
DESCRIPTION:
This is the interpretation of the screen cells.
WRITE AUTHORITY:^
63.015,.04 IS 0;4 FREE TEXT
Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.05 37 C 0;5 FREE TEXT
37 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.06 AHG 0;6 FREE TEXT
Anti-human globulin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.07 CONTROL CELL 0;7 FREE TEXT
Antibody coated control cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.08 ROOM TEMP 0;8 FREE TEXT
22-24 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.09 12-18 C 0;9 FREE TEXT
12-18 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.015,.1 4 C 0;10 FREE TEXT
4 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,6 ANTIBODY SCREEN INTERPRETATION 6;1 SET
'N' FOR NEG;
'P' FOR POS;
LAST EDITED: OCT 17, 1984
DESCRIPTION:If antibodies are present in the patient's serum the antibody screen interpretation will
usually be positive.
WRITE AUTHORITY:^
63.01,6.1 RBC ANTIGEN PRESENT 1.1;0 POINTER Multiple #63.011 (Add New Entry without Asking)
DESCRIPTION:
Antigens present on RBC's of patient are entered here.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION:Selects red blood cell antigens
WRITE AUTHORITY:^
63.011,.01 RBC ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DI
C K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
Antigens present on RBC's of patient are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION:Limits input to only entries that are RBC Antigens.
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.011,.02 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: OCT 28, 1990
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
Comment field
WRITE AUTHORITY:^
63.01,6.2 RBC ANTIGEN ABSENT 1.2;0 POINTER Multiple #63.0112 (Add New Entry without Asking)
DESCRIPTION:
Antigens identified as absent on red blood cells are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION:Selects red blood cell antigens
WRITE AUTHORITY:^
63.0112,.01 RBC ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^
DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
Antigens identified as absent on red blood cells are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION:Limits input to only entries that are RBC Antigens.
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.0112,.02 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: OCT 28, 1990
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
Comment field
WRITE AUTHORITY:^
63.01,6.3 HLA ANTIGEN PRESENT 1.3;0 POINTER Multiple #63.013 (Add New Entry without Asking)
DESCRIPTION:
HLA antgens present on WBC's are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION:Selects HLA antigens
WRITE AUTHORITY:^
63.013,.01 HLA ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U)",DIC("S")="I $P(^(0),U,5)=""HL""" D
^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigens present on WBC's are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION:Limits input to only entries that are HLA Antigens
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.013,.02 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: OCT 28, 1990
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
Comment field
WRITE AUTHORITY:^
63.01,6.4 HLA ANTIGEN ABSENT 1.4;0 POINTER Multiple #63.0114 (Add New Entry without Asking)
DESCRIPTION:
HLA antigens absent on WBC's are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION:Selects HLA antigens
WRITE AUTHORITY:^
63.0114,.01 HLA ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U)",DIC("S")="I $P(^(0),U,5)=""HL"""
D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigens absent on WBC's are entered here.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION:Limits input to only entries that are HLA Antigens
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.0114,.02 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: OCT 28, 1990
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
Comment field
WRITE AUTHORITY:^
63.01,7 SERUM ANTIBODY 5;0 POINTER Multiple #63.46 (Add New Entry without Asking)
DESCRIPTION:
These are the serum antibodies.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION:SELECTS ANTIBODIES
WRITE AUTHORITY:^
63.46,.01 SERUM ANTIBODY 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC(0)="EQM",DIC("S")="I $
P(^(0),U,5)=""AB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
These are the patient's serum antibodies.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""AB"""
EXPLANATION:Limits entry to only blood group antibodies
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.46,.02 ANTIBODY COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: AUG 29, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the antibodies.
WRITE AUTHORITY:^
63.01,8 ANTIBODY SCREEN COMMENT 4;0 Multiple #63.48 (Add New Entry without Asking)
DESCRIPTION:
These are antibody screen comments.
WRITE AUTHORITY:^
63.48,.01 ANTIBODY SCREEN COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="JX" D ^LRUB
LAST EDITED: MAY 19, 1987
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the antibody screen.
EXECUTABLE HELP:S L(1)="JX" D Q^LRUB
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,9 RBC TYPING METHOD 1;0 SET Multiple #63.018 (Add New Entry without Asking)
DESCRIPTION:
These are RBC typing methods.
WRITE AUTHORITY:^
63.018,.01 RBC TYPING METHOD 0;1 SET
'S' FOR SALINE;
'M' FOR SERUM;
LAST EDITED: NOV 01, 1984
DESCRIPTION:
This is the method used for RBC typing.
WRITE AUTHORITY:^
63.018,.02 TECHNIQUE 0;2 SET
'S' FOR SLIDE;
'T' FOR TUBE;
'A' FOR AUTOMATED;
'M' FOR MICROPLATE;
LAST EDITED: NOV 01, 1984
DESCRIPTION:
This is the technique of RBC typing.
WRITE AUTHORITY:^
63.018,1 ANTISERUM 1;0 POINTER Multiple #63.019 (Add New Entry without Asking)
DESCRIPTION:
These are the antiserums used for RBC typing.
SCREEN:S DIC("S")="I $P(^(0),U,4)=""AB"""
EXPLANATION:SELECTS ONLY ANTISERA
WRITE AUTHORITY:^
63.019,.01 ANTISERUM 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""AB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 02, 1984
DESCRIPTION:
This is the antiserum used for RBC typing.
WRITE AUTHORITY:^
63.019,.02 LOT # 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 02, 1984
HELP-PROMPT:ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the lot number of the antiserum.
WRITE AUTHORITY:^
63.019,.03 INTERPRETATION 0;3 SET (Required)
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
'U' FOR UNCERTAIN;
LAST EDITED: NOV 02, 1984
DESCRIPTION:
This is the patient's antiserum interpretation.
WRITE AUTHORITY:^
63.019,.04 IS 0;4 FREE TEXT
Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.05 37 C 0;5 FREE TEXT
37 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.06 AHG 0;6 FREE TEXT
Anti-human globulin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.07 CONTROL CELL 0;7 FREE TEXT
Antibody coated control cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.08 ROOM TEMP 0;8 FREE TEXT
22-24 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.09 12-18 C 0;9 FREE TEXT
12-18 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.019,.1 4 C 0;10 FREE TEXT
4 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: NOV 02, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,10 ABO INTERPRETATION 10;1 SET
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
'ND' FOR NOT DONE;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is the patient's ABO interpretation.
WRITE AUTHORITY:^
63.01,10.2 ABO TYPING TECH 10;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist interpretating ABO typing results
WRITE AUTHORITY:^
63.01,10.3 ABO TESTING COMMENT 10;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB
LAST EDITED: MAY 19, 1987
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS
DESCRIPTION:
This is a comment on the ABO testing.
EXECUTABLE HELP:S L(1)="JX" D Q^LRUB
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,11 RH INTERPRETATION 11;1 SET
'NEG' FOR NEG;
'POS' FOR POS;
'ND' FOR NOT DONE;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is the patient's Rh interpretation.
WRITE AUTHORITY:^
63.01,11.2 RH TYPING TECH 11;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist interpretating Rh typing results
WRITE AUTHORITY:^
63.01,11.3 RH TESTING COMMENT 11;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB
LAST EDITED: MAY 19, 1987
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS
DESCRIPTION:
This is a comment on the Rh testing.
EXECUTABLE HELP:S L(1)="JX" D Q^LRUB
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,121 PT CELLS+ANTI D (sal) 12;1 FREE TEXT
PT CELLS + ANTI D Saline Reagent
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,122 PT CELLS+RH CTRL (sal) 12;2 FREE TEXT
PT CELLS+RH CONTROL (Low protein or Saline)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,123 PT CELLS(sal)+ANTI D(hp IS) 12;3 FREE TEXT
PT CELLS (saline susp)+Anti D High Protein Reagent immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,124 PT CELLS(ser)+ANTI D(hp IS) 12;4 FREE TEXT (Required)
PT CELLS (serum or plasma susp)+Anti D High Protein Reagent immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,125 PT CELLS+ANTI D (hp 37) 12;5 FREE TEXT
PT CELLS + ANTI D high protein reagent 37 degree C incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,126 PT CELLS+ANTI D (hp AHG) 12;6 FREE TEXT
PT CELLS+ANTI D High Protein AHG)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,127 PT CELLS+ANTI D SLIDE (hp) 12;7 SET
PT CELLS+ANTI S SLIDE high protein reagent
'P' FOR AGGLUTINATION;
'N' FOR NO AGGLUTINATION;
LAST EDITED: FEB 27, 1984
WRITE AUTHORITY:^
63.01,128 PT CELLS(sal)+RH CTRL (hp IS) 12;8 FREE TEXT
PT CELLS (saline suspension) + RH Control (high protein immediate spin)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,129 PT CELLS(ser)+RH CTRL(hp IS) 12;9 FREE TEXT (Required)
PT CELLS(serum or plasma suspension)+RH Control(high protein immediate spin)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,129.1 PT CELLS+RH CTRL (hp 37) 12;10 FREE TEXT
PT CELLS+RH Control (high protein 37 degree C incubation)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,129.11 PT CELLS+RH CTRL (hp AHG) 12;11 FREE TEXT
PT CELLS+RH Control (high protein AHG)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,129.12 PT CELLS+RH CTRL SLIDE (hp) 12;12 SET
PT CELLS+RH Control Slide (high protein)
'P' FOR AGGLUTINATION;
'N' FOR NO AGGLUTINATION;
LAST EDITED: FEB 27, 1984
WRITE AUTHORITY:^
63.01,131 INTERPRETATION OF RH TESTING 13;1 SET (Required)
'NEG' FOR NEG;
'POS' FOR POS;
'PDU' FOR RH POS DU POS;
'NDU' FOR RH NEG DU NEG;
LAST EDITED: JUL 24, 1984
WRITE AUTHORITY:^
63.01,132 RH TEST COMMENT 13;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: FEB 27, 1984
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
WRITE AUTHORITY:^
63.01,133 PT Cells(sal)+Anti D(mod) IS 13;3 FREE TEXT (Required)
PT Cells(saline susp)+Anti D(chemically modified reagent) Immediate Spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,134 PT Cells(ser)+Anti D(mod) IS 13;4 FREE TEXT
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,135 PT Cells+Anti D(mod) 37 13;5 FREE TEXT
PT Cells+Anti D (chemically modified reagent) 37 degree incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,136 PT Cells+Anti D(mod) AHG 13;6 FREE TEXT
PT Cells+Anti D (chemically modified reagent) AHG
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,138 PT Cells(sal)+RH Ctrl(sal) IS 13;8 FREE TEXT (Required)
PT Cells(saline susp)+Rh Control(saline or low protein) Immediate Spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,139 PT Cells(ser)+RH Ctrl(sal) IS 13;9 FREE TEXT
PT Cells(serum or plasm susp) Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,139.1 PT Cells+RH Ctrl(sal) 37 13;10 FREE TEXT
PT Cells+RH Control(saline) 37 degree incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,139.11 PT Cells+RH Ctrl(sal) AHG 13;11 FREE TEXT
PT Cells+RH Control (saline) AHG
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,141 PT CELLS(ser)+ANTI A IS 14;1 FREE TEXT (Required)
Pt Cells serum or plasma susp + Anti A immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,142 PT CELLS(sal)+ANTI A IS 14;2 FREE TEXT
Pt cells saline susp + Anti A immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,143 PT CELLS+ANTI A SLIDE 14;3 SET
'P' FOR AGGLUTINATION;
'N' FOR NO AGGLUTINATION;
LAST EDITED: FEB 27, 1984
WRITE AUTHORITY:^
63.01,144 PT CELLS(ser)+ANTI B IS 14;4 FREE TEXT (Required)
Pt cells serum or plasma susp + Anti B immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,145 PT CELLS(sal)+ANTI B IS 14;5 FREE TEXT
Pt cells saline suspension + Anti B immediatee spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,146 PT CELLS+ANTI B SLIDE 14;6 SET
'P' FOR AGGLUTINATION;
'N' FOR NO AGGLUTINATION;
LAST EDITED: FEB 27, 1984
WRITE AUTHORITY:^
63.01,147 PT CELLS(ser)+ANTI A,B IS 14;7 FREE TEXT (Required)
Pt cells serum or plasma susp + Anti A,B immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,148 PT CELLS(ser)+ANTI A,B (RT) 14;8 FREE TEXT
Pt cells serum or plasma susp + Anti A,B room temp incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,149 PT CELLS(sal)+ANTI A,B (IS) 14;9 FREE TEXT
Pt cells saline suspension + Anti A,B immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,149.1 PT CELLS(sal)+ANTI A,B (RT) 14;10 FREE TEXT
Pt cells saline susp + Anti A,B room temperature incubation
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,149.11 PT CELLS+ANTI A,B SLIDE 14;11 SET
Pt cells + Anti A,B Slide test
'P' FOR AGGLUTINATION;
'N' FOR NO AGGLUTINATION;
LAST EDITED: FEB 27, 1984
WRITE AUTHORITY:^
63.01,149.12 PT SERUM+A1 CELLS 14;12 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,149.13 PT SERUM+B CELLS 14;13 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: OCT 21, 1984
EXECUTABLE HELP:D LST^LRBLAGG
WRITE AUTHORITY:^
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.01,151 INTERPRETATION OF ABO TESTING 15;1 SET (Required)
'A' FOR A;
'B' FOR B;
'AB' FOR AB;
'O' FOR O;
LAST EDITED: JUL 24, 1984
WRITE AUTHORITY:^
63.01,152 ABO TESTING COMMENT 15;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: FEB 27, 1984
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
WRITE AUTHORITY:^
63.01,153 INTERPRETATION ABO GROUP(cell) 15;3 SET
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
LAST EDITED: MAR 14, 1984
DESCRIPTION:
This is the interpretation of the patient's ABO group(cell).
WRITE AUTHORITY:^
63.01,154 INTERPRETATION ABO GROUP(ser) 15;4 SET
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
DESCRIPTION:
This is the interpretation of the patient's ABO type.
WRITE AUTHORITY:^
63,2 EM EM;0 DATE Multiple #63.02 (Add New Entry without Asking)
LAST EDITED: MAR 06, 2003
DESCRIPTION:
This is patient data from electron microscopy (EM).
INDEXED BY: REPORT RELEASE DATE (AC)
63.02,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Required) (Multiply asked)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X
OUTPUT TRANSFORM: D D^LRU W ?0,"-------------------------------------------------------------------------------"
LAST EDITED: MAR 02, 1985
DESCRIPTION:
This is the date/time of collection of the EM specimen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.02,.011 SPECIMEN SUBMITTED BY 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 02, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the person submitting the specimen.
63.02,.012 SPECIMEN .1;0 Multiple #63.202 (Add New Entry without Asking)
DESCRIPTION:
These are the specimens submitted for testing.
63.202,.01 SPECIMEN 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>75!($L(X)<2) X
LAST EDITED: AUG 03, 1987
HELP-PROMPT: ANSWER MUST BE 2-75 CHARACTERS IN LENGTH
DESCRIPTION:
This is the specimen submitted for testing.
63.202,.06 SPECIMEN TOPOGRAPHY 0;6 POINTER TO TOPOGRAPHY FIELD FILE (#61)
INPUT TRANSFORM:S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D ^DIC K DIC S DIC=$G(D
IE),X=+Y K:Y<0 X
LAST EDITED: FEB 05, 2019
HELP-PROMPT: This field contains the topography location for this test.
DESCRIPTION: This field contains the topography location for this test. If the SEX SPECIFIC (#2.5) field of the
TOPOGRAPHY FIELD (#61) file is defined, the sex of the patient must match.
SCREEN: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
EXPLANATION: If this message appears after entering a topography, the entry might be: (1) not on file; (2) missp
elled; or (3) the topography has a restriction by sex that does not match the patient's sex.
63.202,.07 COLLECTION SAMPLE 0;7 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 25, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.202,1 EPON BLOCK 1;0 Multiple #63.2021 (Add New Entry without Asking)
DESCRIPTION:
Identification of epon block prepared from specimen.
63.2021,.01 EPON BLOCK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: DEC 10, 1991
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
Identification of epon block prepared from specimen.
CROSS-REFERENCE:63.2021^B
1)= S ^LR(DA(3),"EM",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"EM",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)
63.2021,.02 DATE/TIME BLOCK PREPARED 0;2 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 10, 1991
DESCRIPTION:
Date/time epon block prepared. Used for workload recording.
63.2021,.03 BLOCK COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 10, 1991
DESCRIPTION:
If block counted for workload a 'YES' is entered.
63.2021,1 EM PROCEDURE 1;0 POINTER Multiple #63.20211 (Add New Entry without Asking)
LAST EDITED: DEC 10, 1991
DESCRIPTION: EM procedures are recorded here. They are either thick (slides)
or thin (grids) sections.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""EM"""
EXPLANATION: Selects only EM procedures (thick &/or thin sections)
63.20211,.01 EM PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""EM""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: DEC 10, 1991
63.20211,.02 SECTIONS PREPARED(#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 10, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: The number of thick (slides) or thin (grids) sections prepared
is kept here.
EXECUTABLE HELP:W !,"Enter the number of slides or grids prepared."
63.20211,.04 DATE/TIME SECTIONS PREPARED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 17, 1991
DESCRIPTION:
When sections are prepared
63.20211,.05 DATE/TIME SECTIONS EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 17, 1991
DESCRIPTION:
When sections are examined
63.20211,.06 SECTIONS COUNTED(#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 17, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of sections counted
63.20211,.07 NEW SECTIONS 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Sections added since prior preparation time.
63.20211,.08 SECTIONS EXAMINED(#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of sections examined
63.20211,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of non-control slides counted.
63.20211,.1 PRINTS MADE(#) 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of prints made
63.20211,.11 DATE/TIME PRINTS MADE 0;11 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 09, 1992
DESCRIPTION:
When the prints are made.
63.20211,.12 PRINTS COUNTED(#) 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of prints counted
63.20211,.13 EXAMINED SECTIONS COUNTED(#) 0;13 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of examined sections that were counted.
63.02,.013 BRIEF CLINICAL HISTORY .2;0 WORD-PROCESSING #63.213
DESCRIPTION:
This is the brief clinical history for this specimen.
LAST EDITED: MAR 02, 1985
63.02,.014 PREOPERATIVE DIAGNOSIS .3;0 WORD-PROCESSING #63.214
DESCRIPTION:
This is the pre-operative diagnosis for this specimen.
63.02,.015 OPERATIVE FINDINGS .4;0 WORD-PROCESSING #63.205
DESCRIPTION:
These are the operative findings for this specimen.
63.02,.016 POSTOPERATIVE DIAGNOSIS .5;0 WORD-PROCESSING #63.206
DESCRIPTION:
This is the post-operative diagnosis for this specimen.
63.02,.02 PATHOLOGIST 0;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the pathologist performing the procedure.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.02,.021 RESIDENT OR EMTECH 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the resident pathologist or the EM technologist performing the test.
63.02,.03 DATE REPORT COMPLETED 0;3 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"EM",DA,0),U,10),".") K X W !,"Re
port date completed must be after date received"
LAST EDITED: MAR 12, 1990
DESCRIPTION:
This is the date the report was completed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.02,.06 EM ACC # 0;6 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^LR("AEMA"
,$E(LRAD,1,3),LRABV,X)) W $C(7),!,X," is already taken for ",LRABV,! K X
LAST EDITED: DEC 14, 1995
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
This is the accession number of the electron microscopy specimen.
EXECUTABLE HELP:W !,"Enter as prefix yr number (ex. EM 95 345)"
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^AEMA^MUMPS
1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"EM",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"EM",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("AEMA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)=""
2)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"EM",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"EM",0),U,6)) K:X(1)&(X(2)]"") ^LR("AEMA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)
Cross references accessions by year and within year by accession area.
63.02,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^X
USER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 30, 1991
HELP-PROMPT:Select the requesting provider.
DESCRIPTION:
This is the requesting physician.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.02,.08 PATIENT LOCATION 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 02, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
63.02,.09 TYPIST 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<2) X
LAST EDITED: JAN 24, 1991
HELP-PROMPT:Answer must be 2-5 characters in length.
DESCRIPTION:
These are the initials of the typist entering the data.
63.02,.1 DATE/TIME SPECIMEN RECEIVED 0;10 DATE (Required)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,1,3) K X
W !,"Year received must be same as log-in year (",LRH(2)+1700,") "
LAST EDITED: JAN 29, 1991
HELP-PROMPT:FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date/time the specimen was received.
EXECUTABLE HELP:K DZ W ?5,"To delete accession enter '^'",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^AEM^MUMPS
1)= S ^LR("AEM",$E(X,1,30),DA(1),DA)=""
2)= K ^LR("AEM",$E(X,1,30),DA(1),DA)
63.02,.11 REPORT RELEASE DATE 0;11 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"EM",DA,0),U,3
),".") K X W !,"Release date must not be before completed date (" S Y=$P(^(0),U,3) D DD^%DT W Y,")"
LAST EDITED: SEP 08, 1995
HELP-PROMPT:ONLY CURRENT DATE/TIME ALLOWED
DESCRIPTION:
YES indicates the report was released.
EXECUTABLE HELP:K DZ
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: AC (#554) MUMPS ACTION
Short Descr: Notify HDR and others that this report is available.
Description: This MUMPS cross-reference triggers the sending of this report to the Health Data Repository (HDR)
and other subscribers when electron microscopy results are released.
Set Logic: D APQ^LA7HDR(DA(1),"EM",DA)
Kill Logic: Q
X(1): REPORT RELEASE DATE (63.02,.11) (Subscr 1) (forwards)
63.02,.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Who released the report
63.02,.14 TC CODE 0;14 SET
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
'4' FOR 4;
'5' FOR 5;
'6' FOR 6;
'7' FOR 7;
'8' FOR 8;
'9' FOR 9;
'0' FOR 0;
LAST EDITED: MAR 26, 1992
DESCRIPTION:
Tissue committee codes
The meaning of each code is identified by each site.
63.02,.15 ORIGINAL RELEASE DATE 0;15 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 24, 1990
DESCRIPTION:
If report was modified after release the original release date
is kept here.
63.02,.16 TIU REFERENCE DATE/TIME - EM .05;0 DATE Multiple #63.49 (Add New Entry without Asking)
LAST EDITED: AUG 28, 2001
DESCRIPTION:
This multiple stores TIU information for corresponding SF515 electron microscopy reports that have
been electronically signed and stored in TIU. This information is used to access the reports in
TIU.
63.49,.01 TIU REFERENCE DATE/TIME - EM 0;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This is the date and time that the electron microscopy SF515 was stored in TIU. It will match
the REFERENCE DATE (#1301) field of the corresponding document in the TIU DOCUMENT (#8925) file.
DELETE TEST: 1,0)= I
CROSS-REFERENCE:63.49^B
1)= S ^LR(DA(2),"EM",DA(1),.05,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"EM",DA(1),.05,"B",$E(X,1,30),DA)
63.49,1 TIU ENTRY POINTER - EM 0;2 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This field is a pointer to the TIU DOCUMENT (#8925) file. It stores the pointer for an electron
microscopy SF515 that has been electronically signed and stored in TIU.
DELETE TEST: 1,0)= I
CROSS-REFERENCE:63.49^C
1)= S ^LR(DA(2),"EM",DA(1),.05,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"EM",DA(1),.05,"C",$E(X,1,30),DA)
63.49,2 TIU CHECKSUM 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 17, 2003
DESCRIPTION:
This field stores the checksum that is calculated at the time the report version is initially
stored in TIU. It will be used for comparison in future print/view requests. A new checksum
will be calculated whenever the report version is printed/viewed, and matching checksums are
proof that the report version has not been illegally altered.
UNEDITABLE
63.02,.17 DATE REPORT MODIFIED - EM .07;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 30, 2001
DESCRIPTION:
This is the date the report was modified if it was modified after it was electronically
signed/released.
63.02,.171 PERSON MODIFYING TEXT .07;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 30, 2001
DESCRIPTION:
Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.
63.02,.172 DIAGNOSIS MODIFIED .07;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 30, 2001
DESCRIPTION:
1 = Diagnosis modified AFTER report was electronically signed/released.
63.02,.31 UID ORU;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This is the UID used by the HOST LEDI system for this order/accession.
This field is used by LEDI software.
63.02,.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Enter the site ordering the test.
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the MailMan domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
63.02,.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location of the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI software.
63.02,.34 HOST UID ORU;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software
is used to accession specimens, usually the collecting site's UID is used to track specimens. If
the collecting UID conflicts with the HOST system number sequence, the HOST UID will be used
instead of the collecting site's UID.
This field is used by LEDI software.
63.02,.342 ORDERING SITE UID ORU;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This field contains the collecting site's UID for this specimen.
This field is used by LEDI software.
63.02,.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT:Enter the facility/site that is releasing this report.
DESCRIPTION:
This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63.02,.35 ORDERED TEST ORUT;0 Multiple #63.52 (Add New Entry without Asking)
DESCRIPTION:
This subfile contains information about the ordered test(s) for this accession. The .01 field
contains the ordered test NLT code requested by the clinical provider. If this test is a panel,
all atomic tests within the panel will be associated with the ordered test using this NLT code.
63.52,.01 ORDERED TEST 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5) X
OUTPUT TRANSFORM:N ZZY S ZZY=$O(^LAM("C",Y_" ",0)) I ZZY,($D(^LAM(ZZY,0))#2) S Y=$P(^(0),U)
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
The ordered test NLT code requested by the clinical provider. If this test is a panel, all
atomic tests within the panel will be associated with the ordered test using this NLT code.
CROSS-REFERENCE:63.52^B
1)= S ^LR(DA(2),"EM",DA(1),"ORUT","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"EM",DA(1),"ORUT","B",$E(X,1,30),DA)
63.52,2 ORDERED URGENCY 0;2 POINTER TO URGENCY FILE (#62.05)
INPUT TRANSFORM:S DIC("S")="I +Y<50" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Select urgency for this test.
DESCRIPTION:
This field contains the urgency for this ordered test.
SCREEN: S DIC("S")="I +Y<50"
EXPLANATION:Prevent selection of WKLD designated urgencies.
63.52,3 CPRS ORDER # 0;3 POINTER TO ORDER FILE (#100)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the pointer to CPRS ORDER (#100) file. This field is only populated when
the original order is placed on the local system.
63.52,4 LAB ORDER # 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 1-20 characters in length.
DESCRIPTION:
This field contains the LAB ORDER number for this test. The construct of this free text field
is: LR-Lab order number-XXXX - where XXXX is the Julian date.
63.52,5 ORDER TYPE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0065""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Select entry from HL7 table 0065.
DESCRIPTION:
This field contains information about how the test order was genera selection must be made from
HL7 Table 0065 entries. This field indicates if the ordered test was part of the original
order, an add-on, or reflexed per clinical protocol.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""0065"""
EXPLANATION:Select entries for the HL7 table 0065.
63.52,6 ORDERING PROVIDER LOCAL 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
The pointer to the NEW PERSON file if the original order was placed on the local system. This
field will be empty if order is placed via LEDI.
63.52,7 ORDERING PROVIDER REMOTE 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
If this test is ordered by a provider from a remote system (not local system), the names
containeed in the HL7 message will be stored in this field.
63.52,8 SPECIMEN TOPOGRAPHY 0;8 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the topography location for this test.
63.52,9 COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.52,10 DISPOSITION 0;10 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0123""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the disposition of this ordered test.
DESCRIPTION:
Maintains the disposition of the ordered test. It will be used to value the test disposition
in HL7 messaging, specifically OBR-25.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""0123"""
EXPLANATION:Select disposition based on HL7 Table 0123 status codes
63.52,11 DISPOSITION DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the date and time this test is dispositioned.
DESCRIPTION:
Stores the date and time that a lab user or the system dispositioned this test.
63.52,12 DISPOSITION BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:User who dispositioned this test.
DESCRIPTION:
Store the user who entered the disposition of this test.
63.52,13 LAB TEST ORDERED 0;13 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the ordered laboratory test.
DESCRIPTION:
Contains the ordered laboratory test associated with the ordered NLT code.
63.52,14 PARENT TEST 0;14 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the parent ordered laboratory test if any.
DESCRIPTION:
If this test is a reflex test this indicates the ordered test that is associated with the
reflex test.
63.52,15 PARENT NLT 0;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
Contains the order NLT code associated with the parent test when the ordered test is a reflex
test.
63.02,.97 DELAYED REPORT COMMENT 97;0 Multiple #63.0297 (Add New Entry without Asking)
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
63.0297,.01 DELAYED REPORT COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X
LAST EDITED: SEP 27, 1993
HELP-PROMPT:Answer must be 1-75 characters in length.
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
63.02,.99 COMMENT 99;0 Multiple #63.208 (Add New Entry without Asking)
DESCRIPTION:
These are comments on this specimen.
63.208,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X
LAST EDITED: MAR 18, 1985
HELP-PROMPT:ANSWER MUST BE 1-75 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on this specimen.
63.02,1 GROSS DESCRIPTION 1;0 WORD-PROCESSING #63.201
DESCRIPTION:
This is the gross description of the specimen.
LAST EDITED: MAR 02, 1985
63.02,1.1 MICROSCOPIC EXAMINATION 1.1;0 WORD-PROCESSING #63.211
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the microscopic examination diagnosis of the specimen.
LAST EDITED: JUL 16, 1993
63.02,1.2 SUPPLEMENTARY REPORT 1.2;0 DATE Multiple #63.207 (Add New Entry without Asking)
DESCRIPTION:
These are supplementary reports.
63.207,.01 SUPPLEMENTARY REPORT DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 02, 1985
DESCRIPTION:
This is the date and time of the supplementary report.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion is not permitted","","!!")
63.207,.02 RELEASE SUPPLEMENTARY REPORT 0;2 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: SEP 20, 1990
DESCRIPTION:
If supplementary report is to be displayed or printed outside
of lab the report must be released by entering 'YES'.
63.207,.03 RELEASE SUPP REPORT MODIFIED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 09, 2004
DESCRIPTION:
This flag will be set to '1' when a released supplementary report is modified. It is
removed when the modified supplementary report is released.
63.207,1 DESCRIPTION 1;0 WORD-PROCESSING #63.218
DESCRIPTION:
This is a description of the supplementary report.
LAST EDITED: MAR 02, 1985
63.207,2 SUPPLEMENTARY REPORT MODIFIED 2;0 DATE Multiple #63.2072 (Add New Entry without Asking)
LAST EDITED: SEP 08, 2000
DESCRIPTION:
This is the date/time in which this supplementary report was modified. This
information is stored for audit trail purposes. It is updated by the software and
can only be modified from programmer mode.
63.2072,.01 SUPPLEMENTARY REPORT MODIFIED 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 08, 2000
HELP-PROMPT:This is the date/time in which this supplementary report was modified. It is
updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the date/time in which this supplementary report was modified. It is
updated by the software and can only be modified from programmer mode.
CROSS-REFERENCE:63.2072^B
1)= S ^LR(DA(3),"EM",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"EM",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)
63.2072,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 06, 1999
HELP-PROMPT:This is the DUZ of the person who modified the supplementary report. It is
updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the DUZ of the person who modified the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.2072,.03 PERSON RELEASING THE SUPP. RPT 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 25, 2003
HELP-PROMPT:This is the DUZ of the person who released the supplementary report. It is
updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the DUZ of the person who released the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.2072,.04 SUPP REPORT RELEASE DATE/TIME 0;4 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 2004
HELP-PROMPT:This is the date/time in which this supplementary report was released. It is
updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the date/time in which this supplementary report was released. It is
updated by the software and can only be modified from programmer mode.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.2072,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.20721
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. It is updated by the software and can only be modified from programmer
mode.
LAST EDITED: DEC 06, 1999
HELP-PROMPT:This is the text of the supplementary report as it existed before it was
modified. This field is updated by the software and can only be modified from
programmer mode.
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. This field is updated by the software and can only be modified from
programmer mode.
63.02,1.4 EM DIAGNOSIS 1.4;0 WORD-PROCESSING #63.204
DESCRIPTION:
Electron microscopy diagnoses are entered here.
LAST EDITED: JUL 16, 1993
63.02,4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.242 (Add New Entry without Asking)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of modification of the microscopic examination/diagnosis.
63.242,.01 DATE MICROSCOPIC EXAM MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the date of modification of the microscopic examination/diagnosis.
63.242,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person making the modification.
63.242,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.243
DESCRIPTION:
This is the text of the modification.
LAST EDITED: NOV 18, 1986
63.02,5 DATE DIAGNOSIS MODIFIED 5;0 DATE Multiple #63.025 (Add New Entry without Asking)
DESCRIPTION:
This is the date of the modification of the diagnosis field.
63.025,.01 DATE DIAGNOSIS MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the date of the modification of the diagnosis field.
63.025,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the person modifying text.
63.025,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0251
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.02,7 DATE GROSS DESCRIPTION CHANGED 7;0 DATE Multiple #63.0272 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of change to the gross description field.
63.0272,.01 DATE GROSS DESCRIPTION CHANGED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
Dates of change of the gross description field are stored here.
63.0272,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
User changing text.
63.0272,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.02721
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.02,9 QA CODE 9;0 POINTER Multiple #63.029 (Add New Entry without Asking)
DESCRIPTION:
Multiple field for Quality Assurance code.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
63.029,.01 QA CODE 0;1 POINTER TO LAB DESCRIPTIONS FILE (#62.5)
(Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3" D ^D
IC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: SEP 16, 1990
HELP-PROMPT:QA codes must be less than 3 characters.
DESCRIPTION:
The quality assurance code
SCREEN:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.02,10 EM ORGAN/TISSUE 2;0 POINTER Multiple #63.212 (Add New Entry without Asking)
DESCRIPTION:
These are the organ/tissue(s) being examined.
SCREEN:S DIC("S")="I SEX[$P(^(0),U,3)"
EXPLANATION:Selects when appropriate sex related organs
63.212,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 02, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of the organ/tissue(s).
63.212,.01 EM ORGAN/TISSUE 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM:S:$E(X,1,2)="T-" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):"M
F",SEX="":"MF",1:SEX) S DIC(0)="EMO",DIC("S")="I SEX[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<
0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the organ/tissue(s) being examined.
EXECUTABLE HELP:W !,"Selects when appropriate sex related organs.",!,
"Ex. A uterus should not be selected for a male patient !!",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.212,1 FUNCTION 3;0 POINTER Multiple #63.285 (Add New Entry without Asking)
DESCRIPTION:
These are the functions associated with this organ/tissue(s).
63.285,.01 FUNCTION 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the function associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.212,1.5 PROCEDURE 4;0 POINTER Multiple #63.282 (Add New Entry without Asking)
DESCRIPTION:
These are the procedures associated with this organ/tissue.
63.282,.01 PROCEDURE 0;1 POINTER TO PROCEDURE FIELD FILE (#61.5) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the procedure associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.282,.02 RESULT 0;2 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: DEC 30, 1989
DESCRIPTION:
If result of procedure is positive enter '1' or 'P'.
63.212,3 DISEASE 1;0 POINTER Multiple #63.215 (Add New Entry without Asking)
DESCRIPTION:
These are the diseases associated with this organ/tissue(s).
63.215,.01 DISEASE 0;1 POINTER TO DISEASE FIELD FILE (#61.4) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<
0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the disease associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.212,4 MORPHOLOGY 2;0 POINTER Multiple #63.216 (Add New Entry without Asking)
DESCRIPTION:
These are the morphologies associated with this organ/tissue(s).
63.216,.01 MORPHOLOGY 0;1 POINTER TO MORPHOLOGY FIELD FILE (#61.1) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:
Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the morphology associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.216,1 ETIOLOGY 1;0 POINTER Multiple #63.217 (Add New Entry without Asking)
DESCRIPTION:
These are the etiologies associated with this organ/tissue(s).
63.217,.01 ETIOLOGY 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y
K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the etiology associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.212,5 SPECIAL STUDIES 5;0 SET Multiple #63.219 (Add New Entry without Asking)
DESCRIPTION:
These are special studies associated with this organ/tissue(s).
IDENTIFIED BY:ID #(#.03)
63.219,.01 SPECIAL STUDIES 0;1 SET (Multiply asked)
'I' FOR IMMUNOFLUORESCENCE;
'P' FOR PHOTOGRAPHY;
'C' FOR CONSULTATION;
'L' FOR LIGHT MICROSCOPY;
'IP' FOR IMMUNOPEROXIDASE;
LAST EDITED: APR 08, 1985
DESCRIPTION:
This is a special study associated with this organ/tissue(s).
63.219,.02 DATE 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 02, 1985
DESCRIPTION:
This is the date of the special study.
63.219,.03 ID # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 02, 1985
HELP-PROMPT:ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the ID number of the special study.
63.219,1 DESCRIPTION 1;0 WORD-PROCESSING #63.221
DESCRIPTION:
This is the description of the special study.
LAST EDITED: MAR 02, 1985
63.02,80 ICD CODE 3;0 POINTER Multiple #63.203 (Add New Entry without Asking)
LAST EDITED: JUN 28, 2012
DESCRIPTION:
These are the ICD codes on this specimen.
63.203,.01 ICD CODE 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: JUN 28, 2012
HELP-PROMPT:Enter the ICD code on this specimen.
DESCRIPTION:
This is the ICD code on this specimen.
63.02,2005 IMAGE 2005;0 POINTER Multiple #63.22005
DESCRIPTION:
Images associated with EM reports are stored in this multiple within the EM field
of the Lab Data (#63) file.
63.22005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: MAY 23, 1995
HELP-PROMPT:IMAGE POINTER BACK TO IMAGE FILE
CROSS-REFERENCE:63.22005^B
1)= S ^LR(DA(2),"EM",DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"EM",DA(1),2005,"B",$E(X,1,30),DA)
63,4 CHEM, HEM, TOX, RIA, SER, etc. CH;0 DATE Multiple #63.04
LAST EDITED: JUN 16, 1997
DESCRIPTION:
Multiple field for Chem., Hem., Tox., RIA, Ser., etc. results
63.04,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X,DINUM
LAST EDITED: AUG 17, 1984
HELP-PROMPT: ENTER DRAW TIME OR VERIFY TIME
DESCRIPTION:
This is the date/time the specimen was taken.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,.02 DATE/TIME OBTAINED INEXACT 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 14, 1987
DESCRIPTION:
YES indicates the time the specimen was obtained is inexact.
63.04,.03 DATE REPORT COMPLETED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date the report was completed.
63.04,.04 VERIFY PERSON 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: MAR 30, 2001
HELP-PROMPT: Enter the person verifying test results.
DESCRIPTION:
This is the person verifying the report.
63.04,.05 SPECIMEN TYPE 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
This is the specimen type.
63.04,.06 ACCESSION 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAY 08, 1987
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the accession for this specimen.
63.04,.07 *VOLUME 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
No longer used. To be deleted after 1/89.
63.04,.08 METHOD OR SITE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This is the method/site of collection.
63.04,.09 SUM REPORT NUM. 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the summary report number.
63.04,.1 REQUESTING PERSON 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 04, 1992
DESCRIPTION:
This is the person requesting the test.
63.04,.11 REQUESTING LOCATION 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>19!($L(X)<1) X
LAST EDITED: MAY 06, 1987
HELP-PROMPT: ANSWER MUST BE 1-19 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
63.04,.111 REQUESTING LOC/DIV 0;13 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
44 1 SC( n Hospital Location
4 2 DIC(4, n Ordering Institution
LAST EDITED: FEB 01, 1997
HELP-PROMPT: Enter the hospital location or institution ordering this test.
DESCRIPTION:
This is the hospital location or institution ordering this test.
63.04,.112 ACCESSIONING INSTITUTION 0;14 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 04, 2004
DESCRIPTION: This field contains the pointer to the institution where the specimen was accessioned. This field
can be blank if LEDI or POC specimen is accessioned. The field will be set if an actual user
accepts the specimen.
63.04,.12 NEW PERSON CONVERSION NPC;1 SET
'1' FOR Y;
LAST EDITED: APR 07, 1992
DESCRIPTION: This field is to indicate that this entry has all of the pointers converted to the NEW PERSON
file. The use of the NEW PERSON file began with Version 5.2
TECHNICAL DESCR: This field will be used to determine if archive data should be repointed to VA(200 before being
restored to the ^LR( global.
63.04,.31 UID ORU;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<10) X
LAST EDITED: JAN 27, 1997
HELP-PROMPT: Answer must be 10-15 characters in length.
DESCRIPTION: This is the UID used by the HOST LEDI system for this order/accession.
This field is used by LEDI software.
63.04,.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4)
INPUT TRANSFORM: S DIC("S")="I $G(^(Y,99))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1996
HELP-PROMPT: Enter the site ordering the test.
DESCRIPTION: This field contains the pointer to the INSTITUTION file for the MailMan domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
SCREEN: S DIC("S")="I $G(^(Y,99))"
EXPLANATION: Must have a site number defined
63.04,.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: FEB 26, 1997
DESCRIPTION: This field contain the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location of the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI software.
63.04,.34 HOST UID ORU;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<10) X
LAST EDITED: FEB 26, 1997
HELP-PROMPT: Answer must be 10-15 characters in length.
DESCRIPTION: Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software
is used to accession specimens, usually the collecting sites UID is used to track specimens. If
the collecting UID conflict is the HOST system number sequence, the HOST UID will be used instead
of the collecting site's UID.
This field is used by LEDI software.
63.04,.342 ORDERING SITE UID ORU;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<10) X
LAST EDITED: FEB 26, 1997
HELP-PROMPT: Answer must be 10-15 characters in length.
DESCRIPTION: This field contains the collecting sites UID for this specimen.
This field is used by LEDI software.
63.04,.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT: Enter the facility/site that is releasing this report.
DESCRIPTION: This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63.04,.35 ORDERED TEST ORUT;0 Multiple #63.07 (Add New Entry without Asking)
DESCRIPTION: This subfile contains information about the ordered test(s) for this accession.
The .01 field contains the ordered test NLT code requested by the clinical provider. If this
test is a panel, all atomic tests within the panel will be associated with the ordered test using
this NLT code.
63.07,.01 ORDERED TEST 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
OUTPUT TRANSFORM: N ZZY S ZZY=$O(^LAM("C",Y_" ",0)) I ZZY,($D(^LAM(ZZY,0))#2) S Y=$P(^(0),U)
LAST EDITED: NOV 10, 2005
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION: Contains the ordered test NLT code requested by the clinical provider. If this test is a panel,
all atomic tests within the panel will be associated with the ordered test using this NLT code.
CROSS-REFERENCE: 63.07^B
1)= S ^LR(DA(2),"CH",DA(1),"ORUT","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CH",DA(1),"ORUT","B",$E(X,1,30),DA)
63.07,2 ORDERED URGENCY 0;2 POINTER TO URGENCY FILE (#62.05)
INPUT TRANSFORM: S DIC("S")="I +Y<50" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 08, 2005
HELP-PROMPT: Select urgency for this test
DESCRIPTION:
This field contains the urgency for this ordered test.
SCREEN: S DIC("S")="I +Y<50"
EXPLANATION: Prevent selection of WKLD designated urgencies
63.07,3 CPRS ORDER # 0;3 POINTER TO ORDER FILE (#100)
LAST EDITED: NOV 08, 2005
DESCRIPTION: This field contains the pointer to CPRS ORDER (#100) file. This field is only populated when
the original order is placed on the local system.
63.07,4 LAB ORDER # 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 08, 2005
HELP-PROMPT: Answer must be 1-20 characters in length
DESCRIPTION: This field contains the LAB ORDER number for this test. The construct of this free text field
is: LR-Lab order number-XXXX - where XXXX is the Julian date.
63.07,5 ORDER TYPE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""0065""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 09, 2005
HELP-PROMPT: Select entry from HL7 table 0065
DESCRIPTION: This field contains information about how how the test order was generated. The selection must
be made from HL7 Table 0065 entries. This field indicates if the ordered test was part of the
original order, an add-on or reflexed per clinical protocol.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""0065"""
EXPLANATION: Select entries for the HL7 table 0065
63.07,6 ORDERING PROVIDER LOCAL 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 08, 2005
DESCRIPTION: The pointer to the NEW PERSON file if the original order was placed on the local system. This
field will be empty if order is placed via LEDI.
63.07,7 ORDERING PROVIDER REMOTE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 08, 2005
HELP-PROMPT: Answer must be 1-80 characters in length
DESCRIPTION: If this test is ordered by a provider from a remote system (not local system); the names
contained in the HL7 message will be stored in this field.
63.07,8 SPECIMEN TOPOGRAPHY 0;8 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 08, 2005
DESCRIPTION:
This field contains the topography location for this test.
63.07,9 COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 08, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.07,10 DISPOSITION 0;10 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: I $P(^(0),U,5)="0123" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the disposition of this ordered test.
DESCRIPTION: Maintains the disposition of the ordered test. It will be used to value the test disposition in
HL7 messaging, specifically OBR-25.
SCREEN: I $P(^(0),U,5)="0123"
EXPLANATION: Select disposition based on HL7 Table 0123 status codes
63.07,11 DISPOSITION DATE/TIME 0;11 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the date and time this test is dispositioned.
DESCRIPTION:
Stores the date and time that a lab user or the system dispositioned this test.
63.07,12 DISPOSITION BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 02, 2007
HELP-PROMPT: User who dispositioned this test/
DESCRIPTION:
Store the user who entered the disposition of this test.
63.07,13 LAB TEST ORDERED 0;13 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: SEP 13, 2007
HELP-PROMPT: Enter the ordered laboratory test.
DESCRIPTION:
Contains the ordered laboratory test associated with the ordered NLT code.
63.07,14 PARENT TEST 0;14 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: SEP 13, 2007
HELP-PROMPT: Enter the parent ordered laboratory test if any.
DESCRIPTION: If this test is a reflex test this indicates the ordered test that is associated with the
reflex test.
63.07,15 PARENT NLT 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1) X
LAST EDITED: SEP 13, 2007
HELP-PROMPT: Answer must be 1-11 characters in length
DESCRIPTION: Contains the order NLT code associated with the parent test when the ordered test is a reflex
test.
63.04,.99 COMMENT 1;0 Multiple #63.041 (Add New Entry without Asking)
DESCRIPTION:
These are the comments on the tests.
63.041,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
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 incorrect
ly 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
63.041,1 PERSON 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 09, 1992
DESCRIPTION:
Person making comment
WRITE AUTHORITY:^
63.04,2 GLUCOSE 2;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,0" D ^LRNUM
LAST EDITED: MAY 11, 1987
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,3 UREA NITROGEN 3;1 NUMBER
INPUT TRANSFORM:S Q9="0,10000,0" D ^LRNUM
LAST EDITED: APR 30, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 10000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,4 CREATININE 4;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
LAST EDITED: FEB 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,5 SODIUM 5;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 17, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,6 POTASSIUM 6;1 NUMBER
INPUT TRANSFORM:S Q9="0,2000,1" D ^LRNUM
LAST EDITED: OCT 02, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,7 CHLORIDE 7;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 12, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,8 CO2 8;1 NUMBER
INPUT TRANSFORM:S Q9="1,99,1" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 1 AND 99
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,9 CALCIUM 9;1 NUMBER
INPUT TRANSFORM:S Q9=".5,999,1" D ^LRNUM
LAST EDITED: NOV 27, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN .5 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,10 PO4 10;1 NUMBER
PHOSPHOROUS
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
LAST EDITED: FEB 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,11 URIC ACID 11;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: APR 14, 1983
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,12 CHOLESTEROL 12;1 NUMBER
INPUT TRANSFORM:S Q9="0,1600,0" D ^LRNUM
LAST EDITED: MAR 15, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 1600
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,13 PROTEIN,TOTAL 13;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: DEC 06, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,14 ALBUMIN 14;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,15 BILIRUBIN,TOTAL 15;1 NUMBER
INPUT TRANSFORM:S Q9="0,99,2" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,16 BILIRUBIN,DIRECT 16;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 18, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,17 ALKALINE PHOSPHATASE 17;1 NUMBER
INPUT TRANSFORM:S Q9="0,6000,0" D ^LRNUM
LAST EDITED: OCT 03, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 6000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,18 LDH 18;1 NUMBER
INPUT TRANSFORM:S Q9="1,99999,0" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,19 SGOT 19;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,0" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,20 SGPT 20;1 NUMBER
INPUT TRANSFORM:S Q9="1,9999,0" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,21 GAMMA-GTP 21;1 NUMBER
INPUT TRANSFORM:S Q9="0,2000,0" D ^LRNUM
LAST EDITED: FEB 25, 1983
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,22 QUINIDINE 22;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 08, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,23 DILANTIN 23;1 FREE TEXT
DIPHENYLHYDANTOIN,NA
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,24 THEOPHYLLINE 24;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,25 BARBITURATES 25;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: OCT 21, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,26 AMPHETAMINES 26;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: OCT 21, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,27 PHENOBARBITAL 27;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,28 LITHIUM 28;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,29 MAGNESIUM 29;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
LAST EDITED: JUL 17, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,30 BROMIDE 30;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,31 COPPER 31;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,2" D ^LRNUM
LAST EDITED: SEP 04, 1987
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,32 ZINC 32;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,33 ARSENIC 33;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,34 MERCURY 34;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,35 LEAD 35;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,36 ETHANOL 36;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 15, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,37 ACETONE 37;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: MAR 31, 1983
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,38 N-ACETYL 38;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,39 ACID PHOSPHATASE 39;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,2" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,40 AMYLASE 40;1 NUMBER
INPUT TRANSFORM:S Q9="0,99999,2" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,41 CPK 41;1 NUMBER
INPUT TRANSFORM:S Q9="0,99999,2" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,42 LACTIC ACID 42;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,43 LIPASE 43;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,2" D ^LRNUM
LAST EDITED: JUN 30, 1987
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,44 5' NUCLEOTIDASE 44;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,45 SALICYLATE 45;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JUN 15, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,46 OSMOLALITY 46;1 NUMBER
INPUT TRANSFORM:S Q9="0,2000,2" D ^LRNUM
LAST EDITED: AUG 26, 1987
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,47 TRIGLYCERIDE 47;1 NUMBER
INPUT TRANSFORM:S Q9="0,10000,2" D ^LRNUM
LAST EDITED: MAR 04, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,48 AMMONIA 48;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,49 ACTH 49;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,51 ANGIOTENSIN 1 51;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,52 DESIPRAMINE 52;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: DEC 07, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,53 ESTROGEN 53;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,54 IMI+DES 54;1 FREE TEXT
consider for removal
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JAN 20, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,55 GENTAMICIN 55;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 08, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,57 DISOPYRAMIDE 57;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 08, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,58 HGB ELECTROPHORESIS 58;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-200 CHARACTERS IN LENGTH
63.04,59 PROTEIN ELECTROPHORESIS 59;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>180!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-180 CHARACTERS IN LENGTH
63.04,60 RENIN 60;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,61 MYELIN BASIC PROTEIN 61;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JAN 18, 1984
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
63.04,62 DNA 62;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: OCT 24, 1984
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,63 ALDOLASE 63;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,64 ALDOSTERONE 64;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,65 AMITRIPTYLINE 65;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1) X
LAST EDITED: JUL 14, 1987
HELP-PROMPT:ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
63.04,66 IMIPRAMINE 66;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: DEC 07, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,67 ANTI SMOOTH MUSCLE 67;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>180!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-180 CHARACTERS IN LENGTH
63.04,68 BUTABARBITAL 68;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,69 C-PEPTIDE 69;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,70 CANDIDA PRECIPITANS AB TITER 70;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,71 CERULOPLASMIN 71;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,72 NORTRIPTYLINE 72;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1)!'(X?.NP) X
LAST EDITED: SEP 16, 1982
HELP-PROMPT:ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
63.04,73 11-DEOXYCORTISOL 73;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 12, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,74 PTH (C-TERMINAL) 74;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: DEC 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,75 PTH (INTACT) 75;1 NUMBER
INPUT TRANSFORM:S Q9="0,5000,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 5000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,76 FSH 76;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,77 METANEPHRINES, TOT 77;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,3" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,78 GASTRIN 78;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,79 HETEROPHIL 79;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,80 HDL 80;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,81 LH 81;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,82 MYSOLINE 82;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,83 PROCAINAMIDE 83;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: SEP 14, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,84 PROLACTIN 84;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 15, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,85 TESTOSTERONE 85;1 NUMBER
INPUT TRANSFORM:S Q9="0,5000,2" D ^LRNUM
LAST EDITED: OCT 04, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 5000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,86 TEGRETOL 86;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 08, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,88 CATECHOLAMINES 88;1 NUMBER
INPUT TRANSFORM:S Q9="0,3000,2" D ^LRNUM
LAST EDITED: NOV 26, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 3000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,89 EPINEPHRINE 89;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,90 NOREPINEPHRINE 90;1 NUMBER
INPUT TRANSFORM:S Q9="0,3000,2" D ^LRNUM
LAST EDITED: DEC 19, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 3000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,91 VMA 91;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,92 CARBAMAZEPINE 92;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,1" D ^LRNUM
LAST EDITED: SEP 16, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,93 TOBRAMYCIN 93;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 08, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,94 AMIKACIN 94;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
LAST EDITED: NOV 07, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,95 CHOLINESTERASE 95;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,96 COMPUTED CREATININE CLEARANCE 96;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,97 ACETAMINOPHEN 97;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JUN 15, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,98 HYDROXYBUTYRIC DEHYDROGENASE 98;1 NUMBER
INPUT TRANSFORM:S Q9="0,500,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,99 AMINOLEVULINIC ACID 99;1 NUMBER
INPUT TRANSFORM:S Q9="0,20,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 20
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,100 ANTIMONY 100;1 NUMBER
INPUT TRANSFORM:S Q9="0,10,3" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,101 CADMIUM 101;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,3" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,102 CARBON TETRACHLORIDE 102;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,103 CAROTENE 103;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,104 CHLORPHENIRAMINE 104;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: DEC 13, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,105 CHLORPROMAZINE 105;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: DEC 13, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,106 CHROMIUM 106;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,5" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,107 CLONAZEPAM 107;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,108 COBALT 108;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,3" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,109 COPROPORPHYRIN 109;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,110 CREATINE 110;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,111 CRYOFIBRINOGEN 111;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,112 DIAZEPAM 112;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JUN 15, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,113 25 OH VITAMIN D 113;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,114 VITAMIN A 114;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,115 VITAMIN E 115;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,116 MANGANESE 116;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,117 SELENIUM 117;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,118 UROPORPHYRIN 118;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,119 PROTOPORPHYRIN 119;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,120 MEPROBAMATE 120;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,121 CARISOPRODOL 121;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,122 CODEINE 122;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,123 PHENACETIN 123;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,124 1,25-DIHYDROXYVIT D3 124;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,125 CYSTINE 125;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,128 RETINOL BINDING PROTEIN 128;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
63.04,129 TRANSTHYRETIN 129;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
63.04,130 ACETYLCHOLINE RCPTR AB TITER 130;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<2) X
LAST EDITED: FEB 14, 1985
HELP-PROMPT:ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
63.04,131 LDH1 131;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
LAST EDITED: JAN 14, 1983
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,132 CPK-MB 132;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
LAST EDITED: NOV 24, 1982
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,133 CPK-MB/CPK 133;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,134 LDH1/LDH 134;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,135 DOXEPIN 135;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,136 NORDOXEPIN 136;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,137 TOT/NDOX 137;1 FREE TEXT
TOT-DOX/NORDOXEPIN
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,138 C1 ESTERASE INHIBIT. 138;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,139 BUTALBITAL 139;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,140 NORDIAZEPAM 140;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,141 VANCOMYCIN 141;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,142 METHANOL 142;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JUN 15, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,143 ISOPROPANOL 143;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JUN 15, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,144 COCAINE 144;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,145 PHENYLPROPANOLAMINE 145;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,146 LIPIDS, TOTAL 146;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: DEC 16, 1982
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,147 NITROGEN 147;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,148 HYDROXYPROLINE-TOTAL 148;1 NUMBER
INPUT TRANSFORM:S Q9="0,200,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 200
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,149 FASTING GTT 149;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,150 1/2Hr.GTT 150;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,151 1Hr.GTT 151;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,152 2Hr.GTT 152;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,153 3Hr.GTT 153;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,154 4Hr.GTT 154;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,155 5Hr.GTT 155;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,1" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,156 PROPRANOLOL 156;1 NUMBER
INPUT TRANSFORM:S Q9="0,2000,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,157 VITAMIN C 157;1 NUMBER
INPUT TRANSFORM:S Q9="0,20,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 20
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,159 DOPAMINE 159;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: DEC 19, 1982
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,160 LIPIDS, QUALITATIVE 160;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,161 LIPID PHENOTYPE EVAL. 161;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,162 APPEARANCE 162;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,163 CHYLOMICRONS 163;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,164 LIPOPROTEIN, BETA 164;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,165 LIPOPROTEIN, PRE-BETA 165;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,166 LIPOPROTEIN, ALPHA 166;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,167 6Hr.GTT 167;1 NUMBER
INPUT TRANSFORM:S Q9="0,2500,0" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 2500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,169 KETONES 169;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: AUG 12, 1992
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,170 SOMATOMEDIN-C 170;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,171 LIDOCAINE 171;1 NUMBER
INPUT TRANSFORM:S Q9="0,20,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 20
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,172 IMMUNE COMPLEX-C1Q 172;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,173 HLA B8 173;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,174 HLA B27 174;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,175 HCG BETA, QUANT. 175;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,176 HCG BETA, SCREEN 176;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,177 MAPROTILINE-LUDIOMIL 177;1 NUMBER
INPUT TRANSFORM:S Q9="1,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,178 AMITRIPTYLENE & NORTRIPTYLINE 178;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,179 IMIPRAMINE & DESIPRAMINE 179;1 FREE TEXT
consider for removal
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,180 DOXEPIN & N-DESMETHYLDOXEPIN 180;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
63.04,181 N-DESMETHYLDOXEPIN 181;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JAN 07, 1983
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,182 CIE: CLOSTRIDIUM DIFFICILE 182;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,183 CIE: GROUP B STREPTOCOCCUS 183;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,184 CIE: H. INFLUENZA 184;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,185 CIE: MENINGOCOCCUS 185;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,186 CIE: PNEUMOCOCCUS 186;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,187 HOMOVANILLIC ACID 187;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,188 ANTI-DEOXYRIBONUCLEASE 188;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,189 IONIZED CALCIUM 189;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,190 TCA 190;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,191 FATTY ACIDS, FREE 191;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,2" D ^LRNUM
LAST EDITED: JAN 16, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,192 ALK PHOSPHATASE, HEAT LABILE 192;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,193 ALK PHOSPHATASE, HEAT STABLE 193;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,194 17-HYDROXYCORTICOSTEROIDS 194;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 21, 1983
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,195 17-KETOGENIC STEROIDS 195;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,196 17-KETOSTEROIDS, TOTAL 196;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,197 A/G RATIO 197;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,198 ACETALDEHYDE 198;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,199 ACETAZOLAMIDE 199;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,200 ACTIVE METABOLITE 200;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,201 ALPHA-1 FRACTION 201;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,202 ALPHA-1 GLOBULIN 202;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,203 ALPHA-2 FRACTION 203;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,204 ALPHA-2 GLOBULIN 204;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,205 ALUMINUM 205;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,209 AMORBARBITAL 209;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,210 AMOXAPINE 210;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,211 AMPICILLIN 211;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,212 ANTIDIURETIC HOR 212;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,213 ARYLSULFATASE 213;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,214 BENCE JONES PROTEIN 214;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,215 BENZENE 215;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,216 BENZODIAZEPINES 216;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,217 BERYLLIUM 217;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,218 BETA 2-MICROGLOB 218;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,219 BETA FRACTION 219;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,220 BETA GLOBULIN 220;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,221 BETA LACTOGLOBULIN 221;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,222 BISMUTH 222;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,224 CAFFEINE 224;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,225 CANNABINOIDS 225;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,226 CARBON MONOXIDE 226;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,227 CHLORAL HYDRATE 227;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,228 CHLORAMPHENICOL 228;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,229 CHLORAZEPATE 229;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,230 CHLORDANE 230;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,231 CHLORDIAZEPOXIDE 231;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,232 CHLORPROPAMIDE 232;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,233 CIMETIDINE 233;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,234 CORTICOSTERONE 234;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,235 CYANIDE 235;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,236 DESMETHYLDOXEPIN 236;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,237 DIELDRIN 237;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,238 DIMETHADIONE 238;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,239 DIPHENHYDRAMINE 239;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,240 DISULFIRAM 240;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 21, 1983
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,241 ESTRONE 241;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,242 ETHCHLORVYNOL 242;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,243 ETHINAMATE 243;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,244 ETHOSUXIMIDE 244;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,245 ETHOTOIN 245;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,246 ETHYLENE GLYCOL 246;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,247 ETIOCHOLANOLONE 247;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,249 FIGLU 249;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,250 FLUORIDE 250;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,251 FLUPHENAZINE-PROLIXN 251;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,252 FLURAZEPAM 252;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,253 FREE HCL 253;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,254 FRUCTOSE 254;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,255 FUROSEMIDE 255;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,256 G-6-PD,QUANTITATIVE 256;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,257 GALACTOSEMIA 257;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,260 GLOBULIN 260;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,261 GLUTAMINE 261;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,262 GLUTAMYL TRANSFERASE 262;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,263 GLUTATHIONE 263;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,264 GLUTETHIMIDE 264;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,265 GOLD 265;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,266 GUANASE 266;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,267 HEMOGLOBIN A2 BY COLUMN 267;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,268 HEMOGLOBIN C 268;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,269 HEMOGLOBIN F 269;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,270 HEMOGLOBIN S 270;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,271 HEMOPEXIN 271;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,272 HEROIN 272;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,273 HEXOSAMINIDASE 273;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,274 HISTAMINE 274;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,275 HOMOCYSTINE 275;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,276 HOMOGENTISIC ACID 276;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,277 HYDROXYPROLINE, FREE 277;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 21, 1983
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,278 HYPNOTIC/SEDATIVES EVAL. 278;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,279 INDOLE3 ACETIC ACID 279;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,281 IODINE, INORGANIC 281;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,282 IODINE, TOTAL 282;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,283 ISOCITRIC-DEHYDROGENASE 283;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,284 ISONIAZID 284;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,285 KANAMYCIN 285;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,286 KYNURENIC ACID 286;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,287 LDH 2 287;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,288 LDH 3 288;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,289 LDH 5 289;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,290 LDH 4 290;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,291 LDL CHOLESTEROL 291;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,292 LDL-CHOL CALCULATION 292;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,293 LDL/HDL RATIO 293;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,294 LECITHIN/SPHINGOMYELIN RATIO 294;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,295 LONG ACTING THYROID HORMONE 295;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,296 LSD 296;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,297 LYSOZYME 297;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,298 MACROGLOBULINS 298;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,299 MARIJUANA SCREEN 299;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,300 MAUVE SPOT 300;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,301 MELANIN 301;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,302 MEPERIDINE 302;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,303 MEPHOBARBITAL 303;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,304 MESANTOIN 304;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,306 METHADONE 306;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 21, 1983
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,307 METHAMPHETAMINE 307;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,308 METHAPYRILENE 308;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,309 METHAQUALONE 309;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,310 METHARBITAL 310;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,311 METHEMALBUMIN 311;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,312 METHOCARBAMOL 312;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,313 METHOTREXATE 313;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,314 METHSUXIMIDE 314;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,315 METHYLMALONIC ACID 315;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,316 METHYPRYLON 316;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,317 MORPHINE 317;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,318 MUCOPOLYSACCHARIDES 318;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,319 MYOGLOBIN 319;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,320 N-DESALKYL FLURAZEPAM 320;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,321 NAFCILLIN 321;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,322 NICKEL 322;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,323 NICOTINE 323;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,324 NIRVANOL 324;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,325 NORMETHSUXIMIDE 325;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,326 OPIATES 326;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAR 04, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,327 OXALATE 327;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,328 OXAZEPAM 328;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,329 OXYCODONE 329;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,330 PARAMETHADIONE 330;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,331 PCB-POLYCHLORINATED 331;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,332 PEMA 332;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,333 PENTAZOCINE 333;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,334 PENTOBARBITAL 334;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,335 PEPSINOGEN 335;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,336 PEPSINOGEN 1 336;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,337 PHENCYCLIDINE 337;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,338 PHENCYCLIDINE (PCP) 338;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,339 PHENCYCLIDINE (PCP)B 339;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,340 PHENOL 340;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,341 PHENOLSULFONPHTHALEIN 341;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,342 PHENOTHIAZINE 342;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,343 PHENSUXIMIDE 343;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,344 PHENYLALANINE 344;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,345 PHOSPHOLIPIDS 345;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,346 PHYTANIC ACID 346;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,347 PRAZEPAM 347;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,348 PREGNANEDIOL 348;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,349 PREGNANETRIOL 349;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,350 PROPOXYPHENE 350;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,351 PROTRIPTYLINE 351;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,352 PSEUDOCHOLINESTERASE 352;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,353 PYRUVATE 353;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,354 PYRUVATE KINASE SCREEN 354;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,356 SECOBARBITAL 356;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,357 SEROTONIN 357;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,358 STRYCHNINE 358;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,359 SULFHEMOGLOBIN 359;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,360 SULFONAMIDES 360;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,361 TETRACYCLINE 361;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,363 THALLIUM 363;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,364 THIAMINE 364;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,365 THIOCYANATE 365;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,366 THIOPENTAL 366;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,367 THIORIDAZINE 367;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,368 THIORIDAZINE-MELLARIL 368;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,369 THYROGLOBULIN 369;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,371 TRANXENE 371;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,372 TRAZODONE 372;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,373 TRICYCLICS 373;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,374 TRIMETHADIONE 374;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,375 TRYPSIN 375;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,376 TRYPTAMINE 376;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,377 VALPROIC ACID 377;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,378 VASO ACTIVE PEPTIDE 378;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,379 VITAMIN B-1 379;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,380 VITAMIN B-2 380;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,381 VITAMIN B-6 381;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,382 XANTHURENIC ACID 382;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,383 XYLOSE ABSORPTION 383;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: APR 19, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,384 WBC 384;1 NUMBER
INPUT TRANSFORM:S Q9="0,300000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 300000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,385 RBC 385;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,386 HGB 386;1 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>1500)!(X<0) X
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1500
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,387 HCT 387;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,388 MCV 388;1 NUMBER
INPUT TRANSFORM:S Q9="50,150,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 50 AND 150
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,389 MCH 389;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,390 MCHC 390;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,391 RDW 391;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,392 PLT 392;1 NUMBER
INPUT TRANSFORM:S Q9="0,5000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 5000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,393 MPV 393;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,394 SEGS 394;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,395 BANDS 395;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,396 LYMPHS 396;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,397 MONOCYTES 397;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,398 EOSINO 398;1 NUMBER
INPUT TRANSFORM:S Q9="0,5000,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 5000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,399 BASO 399;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,400 META 400;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,401 MYELO 401;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,402 PROMYELOCYTES 402;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,403 BLAST 403;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,404 NRBC/100 WBC 404;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,405 PLT. (SMEAR EST.) 405;1 SET
'Adeq.' FOR ADEQ.;
'Reduced' FOR REDUCED;
'Inc.' FOR INC.;
'Hi Adq' FOR HI ADQ;
'Lo Adq' FOR LO ADQ;
LAST EDITED: DEC 14, 1984
63.04,406 NORMOCYTIC 406;1 SET
'Yes' FOR YES;
'No' FOR NO;
LAST EDITED: NOV 29, 1984
HELP-PROMPT:A yes answer will skip abnormal normocytic responses.
63.04,407 NORMOCHROMIC 407;1 SET
'Yes' FOR YES;
'No' FOR NO;
LAST EDITED: NOV 29, 1984
HELP-PROMPT:A yes answer will skip abnormal normochromic responses.
63.04,408 ANISOCYTOSIS 408;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,409 POIKILOCYTOSIS 409;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,410 MICROCYTOSIS 410;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,411 MACROCYTOSIS 411;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,412 POLYCHROMASIA 412;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,413 HYPOCHROMIA 413;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Few' FOR F;
LAST EDITED: APR 23, 1984
63.04,414 TARGET CELLS 414;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,415 DOHLE BODIES 415;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
LAST EDITED: FEB 29, 1984
63.04,416 HOWELL JOLLY BODIES 416;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,417 PAPPENHEIMER BODIES 417;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,418 MALARIA FORMS 418;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,419 MEGAKARYOCYTE 419;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,420 OVALOCYTES 420;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,421 TEARDROPS 421;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,422 SICKLE CELLS 422;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,423 BURR CELLS 423;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,424 HELMET CELLS 424;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,425 SCHISTOCYTES 425;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
LAST EDITED: JUL 17, 1991
63.04,426 ACANTHOCYTES 426;1 SET
'Few' FOR F;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
63.04,427 WINTROBE ESR 427;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,428 RETICULOCYTES 428;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,430 PROTHROMBIN TIME 430;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1) X
HELP-PROMPT:'HELP'-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
63.04,431 PARTIAL THROMBOPLASTIN TIME 431;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1)!(X?.E1"."2N.N) X
HELP-PROMPT:ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,432 FIBRINOGEN 432;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1)!'(X?1PN.N) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,433 FIBRIN SPLIT PRODUCTS 433;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,434 BLEEDING TIME 434;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1)!'(X?.">"1N.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,435 THROMBIN TIME 435;1 NUMBER
INPUT TRANSFORM:S Q9="1,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 1 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,436 VISCOSITY 436;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<1) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT:ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
63.04,437 LIQUIFACTION 437;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT:ANSWER MUST BE 2-68 CHARACTERS IN LENGTH
63.04,438 ANTITHROMBIN III 438;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,439 MOTILITY 439;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT:ANSWER MUST BE 2-68 CHARACTERS IN LENGTH
63.04,440 SPERM COUNT 440;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,441 PT CONTROL 441;1 NUMBER
INPUT TRANSFORM:S Q9="0,20,1" D ^LRNUM
LAST EDITED: OCT 02, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 20
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,442 MESOTHELIAL CELLS 442;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,443 CRYSTALS 443;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,444 FIO2 (L. OR %) 444;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X IF $D(X),'(X["%"!(X?1N.NP1"L"!(X["CA"))),X<21!(X>100) K X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ENTER O2%, O2 LITERS, OR CA -CARDIAC ARREST BAGGING
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,445 HB (HGB) 445;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JAN 18, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,446 %O2HB 446;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
LAST EDITED: JUL 15, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,447 %COHB 447;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
LAST EDITED: JUL 15, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,448 %METHB 448;1 NUMBER
INPUT TRANSFORM:S Q9="0,9,1" D ^LRNUM
LAST EDITED: JUL 15, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,449 O2CT. 449;1 NUMBER
INPUT TRANSFORM:S Q9="0,27,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 27
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,450 PH 450;1 NUMBER
INPUT TRANSFORM:S Q9="1,14,3" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 1 AND 14
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,451 PCO2 451;1 NUMBER
INPUT TRANSFORM:S Q9="10,200,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 10 AND 200
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,452 PO2 452;1 NUMBER
INPUT TRANSFORM:S Q9="5,800,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 5 AND 800
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,453 BASE EXCESS 453;1 NUMBER
INPUT TRANSFORM:S Q9="-30,30,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN -30 AND 30
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,454 BICARBONATE 454;1 NUMBER
INPUT TRANSFORM:S Q9="3,65,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 3 AND 65
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,455 CO2CT. 455;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,456 PT. TEMP 456;1 NUMBER
INPUT TRANSFORM:S:X>50 X=+$J(X-32*5/9,2,1) K:(X>50)!(X<25) X
HELP-PROMPT:ENTER FARENHEIT OR CENTIGRADE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,457 pH at PT temp 457;1 NUMBER
INPUT TRANSFORM:S Q9="5,9,3" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 5 AND 9
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,458 PCO2 AT PT. TEMP 458;1 NUMBER
INPUT TRANSFORM:S Q9="10,200,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 10 AND 200
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,459 PO2 AT PT. TEMP 459;1 NUMBER
INPUT TRANSFORM:S Q9="15,600,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 15 AND 600
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,460 PTT CONTROL 460;1 NUMBER
INPUT TRANSFORM:S Q9="0,50,1" D ^LRNUM
LAST EDITED: OCT 01, 1991
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 50
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,461 HAM'S TEST 461;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,462 HEMOGLOBIN A1C 462;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 15, 1989
HELP-PROMPT:ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
63.04,463 LE PREP 463;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,464 OSMOTIC FRAGILITY 464;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: OCT 10, 1984
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,465 SICKLE CELL PREP 465;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,466 SUGAR WATER TEST 466;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>25!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
63.04,467 SPERM MORPHOLOGY 467;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT:ANSWER MUST BE 2-68 CHARACTERS IN LENGTH
63.04,468 NEUTROPHIL 468;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,469 WESTERGREN ESR 469;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,470 ERYTHROPOIETIN 470;1 NUMBER
INPUT TRANSFORM:S Q9="0,200,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 200
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,471 ATYPICAL LYMPHOCYTES 471;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,472 PLASMA CELLS 472;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,473 SPHEROCYTES 473;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Occ' FOR O;
'Few' FOR F;
'Neg.' FOR NEG;
63.04,474 BASOPHILIC STIPPLING 474;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Occ' FOR O;
'Few' FOR F;
'Neg.' FOR NEG;
63.04,475 TOXIC GRANULATION 475;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Occ' FOR O;
'Few' FOR F;
'Neg.' FOR NEG;
63.04,476 HYPERSEGMENTED NEUTROPHILS 476;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Occ' FOR O;
'Few' FOR F;
'Neg.' FOR NEG;
63.04,477 SMUDGE CELLS 477;1 SET
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Occ' FOR O;
'Few' FOR F;
'Neg.' FOR NEG;
63.04,478 NEUTROPHIL MATURITY, MEAN 478;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,479 NEUTROPHIL MATURITY, STA DEV 479;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,480 LYMPHOCYTE ATYPIA, MEAN 480;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,481 LYMPHOCYTE ATYPIA, STA DEV 481;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,482 TURBIDITY 482;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-7 CHARACTERS IN LENGTH
63.04,483 COLOR 483;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>13!($L(X)<2) X
LAST EDITED: DEC 22, 1983
HELP-PROMPT:ANSWER MUST BE 2-13 CHARACTERS IN LENGTH
63.04,484 FACTOR VII 484;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,485 FACTOR IX INHIBITOR 485;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,486 FACTOR XII 486;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,487 BETHESDA ASY 487;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,488 MALARIA SMEAR 488;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>25!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
63.04,489 TUBE # 489;1 NUMBER
INPUT TRANSFORM:S Q9="1,5,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,490 MACROPHAGES 490;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,491 PLATELET AGGREGATION 491;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,492 FACTOR VIII ANTIGEN 492;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,493 FACTOR VIII ACTIVITY 493;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,494 FACTOR VIII MULTIMER 494;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,495 FACTOR II INHIBITOR 495;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,496 FACTOR V INHIBITOR 496;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,497 FACTOR X INHIBITOR 497;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,498 FACTOR XI 498;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,499 FACTOR XIII 499;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,500 PT WITH MIX 500;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,501 REPTILASE TIME 501;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,502 ALTERNATE LYMPHS 502;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,503 A2 HEMOGLOBIN BY COLUMN 503;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,504 BONE MARROW 504;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,505 LUPUS TYPE INHIBITOR 505;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,506 COLLAGEN TYPE INHIBITOR 506;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,507 FACTOR VIII INHIBITOR 507;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,508 FACTOR VII INHIBITOR 508;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,509 HEM FACTOR IX INHIBITOR 509;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,510 DRUG INDUCED INHIBITOR 510;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
63.04,511 STYPVEN TIME 511;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,512 EUGLOBULIN LYSIS TIME 512;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,513 MUCIN CLOT 513;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,514 PROTAMINE SULFATE 514;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 03, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,515 HEPARIN 515;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,516 PLASMINOGEN, ACTIVATED 516;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,517 PLASMINOGEN, TOTAL 517;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,518 ADP 518;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,519 HEM EPINEPHRINE 519;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,520 ARACHIDONIC ACID 520;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,521 RISTOCETIN 521;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,522 VON WILLEBRAND FACTOR 522;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,523 VON WILLEBRAND (CONTROL) 523;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,524 PLATELET ADHESION 524;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,525 ADP COMMENT 525;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
63.04,526 COLLAGEN COMMENT 526;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
63.04,527 EPINEPHRINE COMMENT 527;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
63.04,528 ARACHIDONIC ACID COMMENT 528;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
63.04,529 RISTOCETIN COMMENT 529;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
63.04,530 HEINZ BODY STAIN 530;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,531 LUPUS TYPE INHIBITOR (CONTROL) 531;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,532 COLLAGEN TYPE (CONTROL) 532;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,533 FACTOR VIII (CONTROL) 533;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,534 FACTOR VII (CONTROL) 534;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,535 FACTOR V (CONTROL) 535;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,536 FACTOR II (CONTROL) 536;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,537 FACTOR IX (CONTROL) 537;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,538 FACTOR X (CONTROL) 538;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,539 STYPVEN TIME (CONTROL) 539;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,540 EUGLOBULIN TIME (CONTROL) 540;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,541 ALPHA-1-ANTITRYPSIN 541;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,542 ANTINUCLEAR ANTIBODY 542;1 SET
'N' FOR Negative;
'H' FOR Positive (Homogeneous Pattern);
'M' FOR Positive (Membranous Pattern);
'S' FOR Positive (Speckled Pattern);
'PP' FOR Positive (Peripheral Pattern);
'P' FOR Positive;
LAST EDITED: JUN 15, 1984
63.04,543 ANTISTREPTOLYSIN SC 543;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,544 ASO 544;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,545 C-REACTIVE PROTEIN 545;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,546 COLD AGGLUTININS 546;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,547 COMPLEMENT C3 547;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,548 COMPLEMENT C4 548;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,549 CRYOGLOBULINS 549;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,550 FEBRILE AGGLUTINS 550;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,551 FTA 551;1 SET
'R' FOR Reactive;
'WR' FOR Weakly Reactive;
'N' FOR Nonreactive;
LAST EDITED: APR 05, 1984
63.04,552 HAPTOGLOBIN 552;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,553 HEPATITIS B SURFACE ANTIGEN 553;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,554 IMMUNOELECTROPHORESIS 554;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
LAST EDITED: FEB 04, 1992
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,555 IMMUNOGLOBULINS 555;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,556 MONO TEST 556;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,557 MYCOPLASMA TITER 557;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
LAST EDITED: SEP 06, 1984
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,558 RHEUMATOID FACTOR 558;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,559 RPR,QUAL 559;1 SET
'Reactive' FOR Reactive;
'Nonreactive' FOR Nonreactive;
'Weakly Reactive' FOR Weakly Reactive;
LAST EDITED: JUL 30, 1985
63.04,560 STREPTOZYME 560;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
LAST EDITED: MAY 08, 1990
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,561 VDRL 561;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,562 FUNGAL 562;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,563 ANTI-DNA ANTIBODY 563;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,564 ANTI-HYALURONIDASE TITER 564;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,565 ANTI-MICROSOMAL ANTIBODY 565;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,566 ANTI-MITOCHONDRIAL ANTIBODIES 566;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,567 ANTI-PARIETAL CELL ANTIBODY 567;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,568 ANTI-THYROGLOBULIN ANTIBODY 568;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,569 BRUCELLA AGGLUTINATION 569;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
63.04,570 COMPLEMENT C2 570;1 NUMBER
INPUT TRANSFORM:S Q9="0,99999,4" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,571 COMPLEMENT C5 571;1 NUMBER
INPUT TRANSFORM:S Q9="0,30,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 30
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,572 COMPLEMENT C6 572;1 NUMBER
INPUT TRANSFORM:S Q9="0,10,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,573 COMPLEMENT DECAY RATE 573;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,574 COMPLEMENT TOTAL 574;1 NUMBER
INPUT TRANSFORM:S Q9="0,200,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 200
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,575 DIBUCAINE NUMBER 575;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,576 CHLAMYDIA AB TITER 576;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,577 RUBELLA 577;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,578 HERPES SIMPLEX,COMMON AG TITER 578;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,579 CMV 579;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: OCT 23, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,580 TOXOPLASMA 580;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,581 HEPATITIS A ANTIBODY 581;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,582 HEPATITIS B CORE ANTIBODY 582;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,583 HEPATITIS B SURFACE ANTIBODY 583;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,584 HEPATITIS E ANTIBODY 584;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,585 HEPATITIS E ANTIGEN 585;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,586 ANTI GLOM BASEMENT MEM 586;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,587 COMPLEMENT CH50 587;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,588 BRUCELLA BLOCKING ANTIBODIES 588;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,589 ADENOVIRUS TITER 589;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,590 ANTI-DNASE AB 590;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,591 ANTI-EPIDERMAL AB 591;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,592 ANTI-MYOCARDIAL AB 592;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,593 ANTI-RETICULIN 593;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,594 ANTI-RNP 594;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,595 ANTI-SKELETAL MUSCLE 595;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,596 ANTI-STRIATED MUSCLE 596;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,597 ANTI-THYROID ANTIBODIES GROUP 597;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,598 ANTICENTROMERE 598;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,599 ASPERGILLUS AB IMMUNODIFFUSION 599;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,600 ASPERGILLUS COMPLEMENT TITER 600;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,601 BLASTOMYCES AB 601;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,602 BLASTOMYCES COMPLEMENT TITER 602;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,603 C-1Q COMPLEMENT COMPONENT 603;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,604 C-1Q IMMUNE COMPLEX 604;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,605 CANDIDA IMMUNO DIFF 605;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,606 CRYPTOCOCCUS ANTIGEN 606;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 23, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,607 CYTOMEGALO IFA 607;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,608 CYTOMEGALOVIRUS 608;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,609 CYTOPLASMIC AB 609;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,610 EPSTEIN BARR 610;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 23, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,611 FUNGUS ANTIBODY GROUP 611;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,612 GROUP B-1 612;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,613 GROUP B-2 613;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,614 GROUP B-3 614;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,615 GROUP B-4 615;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,616 GROUP B-5 616;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,617 GROUP B-6 617;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,618 H. SIMPLEX I 618;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,619 H. SIMPLEX II 619;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,620 HETEROPHIL AB DIFFERENTIAL 620;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,621 HISTONE-REACTIVE AB 621;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,622 HISTOPLASMA COMPLEMENT TITER 622;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,623 HISTOPLASMA PRECIPITIN 623;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,624 HLA-ABC TYPING 624;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,625 IGA 625;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,626 IGD 626;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,627 IGG 627;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,628 IGG SYNTHESIS RATE 628;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,629 IGG, ACUTE 629;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,630 IGG, CONVALESCENT 630;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,631 IGM 631;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,632 IGM, ACUTE 632;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,633 IGM, CONVALESCENT 633;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,634 INFLUENZA TYPE B (TITER) 634;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,635 INFLUENZA TYPE C (TITER) 635;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,636 INSULIN ANTIBODIES 636;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,637 INSULIN BINDING 637;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,638 INTRINSIC FACTOR AB 638;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,639 LATEX FIXATION 639;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,640 LEGIONELLA AB 640;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,641 LEPTOSPIRA AGGLT 641;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,642 MEASLES-RUBEOLA TITER 642;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,643 MUMPS 643;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,644 MUMPS SOLUBLE 644;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,645 MUMPS VIRAL 645;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,646 PARAINFLUENZA 1 TITER 646;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 23, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,647 PARAINFLUENZA 2 TITER 647;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,648 PARAINFLUENZA 3 TITER 648;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,649 PLATELET AB 649;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,650 POLIO VIRUS 1 650;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 25, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,651 POLIO VIRUS 2 651;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: OCT 25, 1984
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,652 POLIO VIRUS 3 652;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,653 PREGNANCY TEST 653;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,654 RA PRECIPITIN AB 654;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,655 ROCKY MTN SPOTTED FV. TITER 655;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,656 RUBELLA TITER 656;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,657 RUBEOLA 657;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,658 SALINE TITER 658;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,659 CYCLOSPORIN 659;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: JAN 20, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,660 LEUKOCYTE ALK PHOS SCORE 660;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,0" D ^LRNUM
LAST EDITED: JAN 20, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,661 SALMONELLA AGGLUTINATION 661;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,662 SALMONELLA GROUP A 662;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,663 SALMONELLA GROUP B 663;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,664 SALMONELLA GROUP C 664;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,665 SALMONELLA GROUP D 665;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,666 SALMONELLA GROUP E 666;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,667 SALMONELLA H ANTIGEN 667;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,668 SALMONELLA O ANTIGENS 668;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,669 SCLERODERMA AB 669;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,670 SEROTYPE 2 670;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,671 SEROTYPE 4 671;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,672 SEROTYPE 11 672;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,673 SEROTYPE 16 673;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,674 TEICHOIC ACID AB 674;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,675 TRICHINELLA AGGLUTINATION 675;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,676 TULAREMIA AGGLUTINATION 676;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,677 TYPHOID H 677;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,681 AMOEBIC IHA ANTIBODY 681;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,682 LYMPHOCHORIOMENINGITIS 682;1 FREE TEXT
LCM
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,683 UR COLOR 683;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<3) X
HELP-PROMPT:ANSWER MUST BE 3-7 CHARACTERS IN LENGTH
63.04,684 DENSITY 684;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<3) X
HELP-PROMPT:ANSWER MUST BE 3-7 CHARACTERS IN LENGTH
63.04,685 SPECIFIC GRAVITY 685;1 NUMBER
INPUT TRANSFORM:S X1="" S:"<>"[$E(X,1) X1=$E(X,1),X=$E(X,2,99) S:X=+X&(X'[".") X=X/1000+1,X=$J(X,$L(X),3) S X=X
1_X S Q9="1,1.099,3" D ^LRNUM
LAST EDITED: OCT 24, 1986
HELP-PROMPT:If no "." is entered, value will be assumed to be nn/1000+1.000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,686 UROBILINOGEN 686;1 SET
'Neg.' FOR NEG;
'1+' FOR SMALL;
'2+' FOR MODERATE;
'3+' FOR LARGE;
LAST EDITED: DEC 13, 1984
63.04,687 UR BLOOD 687;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Neg.' FOR NEG;
'Trace' FOR TRACE;
LAST EDITED: DEC 13, 1984
63.04,688 UR BILIRUBIN 688;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Neg.' FOR NEG;
'Trace' FOR TRACE;
LAST EDITED: DEC 12, 1984
63.04,689 UR KETONES 689;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Neg.' FOR NEG;
'Trace' FOR TRACE;
LAST EDITED: DEC 12, 1984
63.04,690 UR GLUCOSE 690;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Neg.' FOR NEG;
'Trace' FOR TRACE;
LAST EDITED: NOV 29, 1984
63.04,691 UR PROTEIN 691;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Neg.' FOR NEG;
'Trace' FOR TRACE;
LAST EDITED: DEC 12, 1984
63.04,692 UR PH 692;1 NUMBER
INPUT TRANSFORM:S Q9="1,14,1" D ^LRNUM
LAST EDITED: FEB 22, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 1 AND 14
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,693 WBC/HPF 693;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,694 RBC/HPF 694;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:Enter 1-7 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,695 EPITHELIAL CELLS 695;1 SET
'NoneObs' FOR NONEOBS;
'Y' FOR ;
LAST EDITED: FEB 14, 1985
HELP-PROMPT:A no answer will skip urine epithelial cell responses.
63.04,696 BACTERIA 696;1 SET
'1+' FOR 1+;
'2+' FOR 2+;
'3+' FOR 3+;
'4+' FOR 4+;
'Few' FOR FEW;
'NoneObs' FOR NONEOBS;
LAST EDITED: DEC 12, 1984
63.04,697 MUCUS 697;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,698 URINE CASTS 698;1 SET
'NoneObs' FOR NONEOBS;
'Y' FOR ;
'Unexamd' FOR UNEXAMD;
LAST EDITED: AUG 02, 1985
HELP-PROMPT:A no answer will skip urine casts responses.
63.04,699 URINE CRYSTALS 699;1 SET
'NoneObs' FOR NONEOBS;
'Y' FOR ;
'Unexamd' FOR UNEXAMD;
LAST EDITED: AUG 02, 1985
HELP-PROMPT:A no answer will skip urine crystal responses.
63.04,700 WBC/CASTS/LPF 700;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,701 RBC/CASTS/LPF 701;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,702 HYALINE/CASTS/LPF 702;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,703 GRANULAR/CASTS/LPF 703;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,704 WAXY/CASTS/LPF 704;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,705 FATTY/CASTS/LPF 705;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)
63.04,706 UR YEAST 706;1 SET
'Abundnt' FOR ABUNDNT;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'NoneObs' FOR NONEOBS;
'Occ' FOR OCC;
'Rare' FOR RARE;
LAST EDITED: DEC 12, 1984
63.04,707 HEMOSIDERIN 707;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,708 5HIAA-QUANT 708;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
LAST EDITED: NOV 05, 1984
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,709 PORPHOBILINOGEN 709;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
63.04,710 TRICHOMONAS 710;1 SET
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
'NoneObs' FOR NONEOBS;
LAST EDITED: DEC 12, 1984
63.04,711 AM URATE CRYSTALS 711;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,712 AM PHOSPHATE CRYSTALS 712;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,713 TRI PHOSPHATE CRYSTALS 713;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,714 CA++ OXALATE CRYSTALS 714;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,715 URIC ACID CRYSTALS 715;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,716 CYSTINE CRYSTALS 716;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,717 LEUCINE CRYSTALS 717;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,718 TYROSINE CRYSTALS 718;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,719 CHOLESTEROL CRYSTALS 719;1 SET
'Rare' FOR RARE;
'Few' FOR FEW;
'Moderat' FOR MODERAT;
'Abundnt' FOR ABUNDNT;
LAST EDITED: DEC 12, 1984
63.04,720 UR GLUCOSE TOLERANCE TEST 720;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,721 UR FASTING GTT 721;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,722 UR 1/2Hr.GTT 722;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,723 UR 1Hr.GTT 723;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,724 UR 2Hr.GTT 724;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,725 UR 3Hr.GTT 725;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,726 UR 4Hr.GTT 726;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,727 UR 5Hr.GTT 727;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,728 UR 6Hr.GTT 728;1 SET
'Neg.' FOR NEG;
'1+' FOR 1;
'2+' FOR 2;
'3+' FOR 3;
'4+' FOR 4;
'Trace' FOR T;
63.04,729 RENAL TUBE EPITH 729;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,730 SPERM 730;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,731 CALCULUS 731;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
63.04,732 ADDIS COUNT 732;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,733 REACTION PH 733;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,734 B 12 734;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,735 DIGITOXIN 735;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,736 DIGOXIN 736;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,737 THYROXINE 737;1 NUMBER
INPUT TRANSFORM:S Q9="0,99,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,738 T-3 RESIN UPTAKE 738;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,739 FREE T4 739;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,740 FOLATE 740;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0)!'(X?.NP) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,741 TSH 741;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<0)!'(X?.NP) X
HELP-PROMPT:ANSWER MUST BE 0-6 CHARACTERS IN LENGTH
63.04,742 INSULIN 742;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,743 HCG 743;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,744 FERRITIN 744;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,745 CORTISOL 745;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,746 PREGNANCY 746;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,747 ALPHA-FETOPROTEIN 747;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
LAST EDITED: SEP 04, 1984
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,748 TIBC 748;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,749 UIBC 749;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,750 IRON 750;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,751 IRON SATURATION 751;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,752 GONADOTROPINS 752;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,753 TRIIODOTHYRONINE 753;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,754 CEA 754;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,755 ANDROSTENEDIONE 755;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,756 CALCITONIN 756;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
LAST EDITED: MAR 04, 1985
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,757 CHOLYLGLYCINE 757;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,758 CHORIONIC GONADOTROPIN 758;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,759 CYCLIC AMP 759;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,760 DHEA SULFATE 760;1 NUMBER
Dehydroepiandrosterone sulfate
INPUT TRANSFORM:S Q9="0,800,1" D ^LRNUM
LAST EDITED: AUG 29, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 800
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,761 DHEA 761;1 FREE TEXT
Dehydroepiandrosterone
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
LAST EDITED: JUN 14, 1985
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,762 DEOXYCORTICOSTERONE 762;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,763 DIHYDROTESTOSTERONE 763;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,764 ESTRADIOL, 17-B 764;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,765 ESTRADIOL RECEPTOR ASSAY 765;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,766 ESTRIOL 766;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,767 REV T-3 767;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,768 TRANSFERRIN 768;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,769 FREE TRIIODOTHYRONINE 769;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,770 GROWTH HORMONE 770;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!(X'?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-5 NUMBERS
63.04,771 T-4 BINDING GLOBULIN 771;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1)!'(X?.NP) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,772 GLUCAGON 772;1 NUMBER
INPUT TRANSFORM:S Q9="0,9999,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,773 17-HYDROXYPROGESTERONE 773;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,774 CEA-S, RIA 774;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,775 ABNORMAL FORMS 775;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: NOV 16, 1983
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,776 ALTERNATE LYMPHS 2 776;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
LAST EDITED: JAN 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,777 SQUAMOUS EPITHELIAL 777;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
LAST EDITED: OCT 25, 1984
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,778 RENAL EPITHELIAL 778;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
LAST EDITED: OCT 25, 1984
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,779 TRANSITIONAL EPITHELIAL 779;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
LAST EDITED: OCT 25, 1984
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,780 OTHER 780;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: MAR 14, 1984
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
63.04,781 Q FEVER (ACUTE) TITER 781;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: MAR 14, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,782 Q FEVER (CONV.) TITER 782;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
LAST EDITED: MAR 14, 1984
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,783 MICROGLOBULIN 783;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,784 TOTAL WEIGHT 784;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
63.04,785 OLIGOCLONAL BANDS 785;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 05, 1984
HELP-PROMPT:ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
63.04,786 PRESSURE 786;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,2" D ^LRNUM
LAST EDITED: APR 13, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,787 %O2 787;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,2" D ^LRNUM
LAST EDITED: APR 13, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,788 %CO2 788;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,2" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,789 MISCELLANEOUS 789;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAY 17, 1984
HELP-PROMPT:ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
63.04,790 ANION GAP 790;1 NUMBER
INPUT TRANSFORM:S Q9="-50,50,2" D ^LRNUM
LAST EDITED: AUG 06, 1984
HELP-PROMPT:TYPE A NUMBER BETWEEN -50 AND 50
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,791 CALCULATED OSMOLALITY 791;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,0" D ^LRNUM
LAST EDITED: AUG 19, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,792 MALIGNANT CELLS 792;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,793 VENTRICULAR LINING CELLS 793;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
LAST EDITED: SEP 20, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,794 SYNOVIAL LINING CELLS 794;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,0" D ^LRNUM
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,795 NITRITE, URINE 795;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,796 LEUKOCYTE ESTERASE, URINE 796;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,797 VOLUME 797;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
LAST EDITED: OCT 26, 1984
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.04,798 ANTICOAGULANT 798;1 SET
'1' FOR HEPARIN ONLY;
'2' FOR COUMADIN ONLY;
'3' FOR HEPARIN & COUMADIN;
'4' FOR NO ANTICOAGULANTS;
'5' FOR ANTICOAGULANT NOT INDICATED;
LAST EDITED: OCT 26, 1984
63.04,799 PORPHYRINS-QUAL 799;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: FEB 11, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,800 FREE HEMOGLOBIN 800;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: FEB 11, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,801 FAST.LTT 801;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: FEB 11, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,802 1/2HR.LTT 802;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,803 1HR.LTT 803;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,804 2HR.LTT 804;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,805 3HR.LTT 805;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,806 INFLUENZA TYPE A (TITER) 806;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,807 RESP SYNCYTIAL VIRUS TITER 807;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,808 ECHO,2,3,4,7,8,11 TITER 808;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,809 ECHO,6,9,16,30 TITER 809;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,810 ECHO,14,18,20,25,28 TITER 810;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,811 COXSACKIE A 1-10 TITER 811;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,812 COXSACKIE B 1-6 TITER 812;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
63.04,813 ARBOVIRUS CALIF TITER 813;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,814 ARBOVIRUS EEE TITER 814;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,815 ARBOVIRUS SLE TITER 815;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,816 ARBOVIRUS WEE TITER 816;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,817 COLORADO TICK FEVER TITER 817;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 16, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,818 TYPHUS AB TITER 818;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,819 VARICELLA ZOSTER(VZ) AB TITER 819;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,820 INFLUENZA A,BANGKOK TITER 820;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,821 INFLUENZA A,ENGLAND TITER 821;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,822 INFLUENZA A,PHILLIPINES TITER 822;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,823 INFLUENZA B,SINGAPORE 823;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,824 HELPER T CELLS 824;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,825 SUPPRESSOR T CELLS 825;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,826 HELPER/SUPPRESSOR T CELL RATIO 826;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,827 T LYMPHOCYTES 827;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,828 B LYMPHOCYTES 828;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,829 SALMONELLA A-O TITER 829;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
LAST EDITED: FEB 19, 1985
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,830 SALMONELLA B-O TITER 830;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,831 SALMONELLA C-O TITER 831;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,832 SALMONELLA D-O TITER 832;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,833 SALMONELLA A-H TITER 833;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,834 SALMONELLA B-H TITER 834;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,835 SALMONELLA C-H TITER 835;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,836 SALMONELLA TYPHI-H TITER 836;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,837 COCCIDIOIDES LPA TITER 837;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,838 COCCIDIOIDES IDCF TITER 838;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,839 COCCIDIOIDES CF TITER 839;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
63.04,840 ELAPSED TIME 840;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 06, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.04,841 NEUTROPHIL, ABSOLUTE 841;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,842 LYMPHS, ABSOLUTE 842;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,843 MONOS, ABSOLUTE 843;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,844 EOSINO, ABSOLUTE 844;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,845 BASO, ABSOLUTE 845;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,846 GRANULOCYTES, ABSOLUTE 846;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,847 BANDS, ABSOLUTE 847;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,848 SEGS, ABSOLUTE 848;1 NUMBER
INPUT TRANSFORM:S Q9="0,1000,1" D ^LRNUM
LAST EDITED: JAN 16, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,849 PROTEUS OX2 849;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,850 PROTEUS OXK 850;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,851 PROTEUS OX19 851;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,852 HALOPERIDOL 852;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,853 VITAMIN B-12 853;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,854 COCCIDIOIDES AB 854;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,855 COCCIDIOIDES PRECIPITIN 855;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,856 HISTOPLASMA AB 856;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUL 23, 1985
HELP-PROMPT:ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
63.04,857 GRANULOCYTE, ALTERNATE % 857;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
LAST EDITED: DEC 05, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,858 MONOCYTE, ALTERNATE % 858;1 NUMBER
INPUT TRANSFORM:S Q9="0,100,1" D ^LRNUM
LAST EDITED: DEC 05, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 100
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,859 GRANULOCYTE, ALTERNATE ABS 859;1 NUMBER
INPUT TRANSFORM:S Q9="0,10000,1" D ^LRNUM
LAST EDITED: DEC 05, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,860 MONOCYTE, ALTERNATE ABS 860;1 NUMBER
INPUT TRANSFORM:S Q9="0,10000,1" D ^LRNUM
LAST EDITED: DEC 05, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,861 LYMPHS, ALTERNATE ABS 861;1 NUMBER
INPUT TRANSFORM:S Q9="0,10000,1" D ^LRNUM
LAST EDITED: DEC 05, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 10000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.04,862 UROBILINOGEN, QUANTITATIVE 862;1 NUMBER
INPUT TRANSFORM:S Q9="0,999,1" D ^LRNUM
LAST EDITED: MAR 03, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,5 MICROBIOLOGY MI;0 DATE Multiple #63.05 (Add New Entry without Asking)
LAST EDITED: DEC 03, 1991
DESCRIPTION:
This is microbiology data associated with this patient.
63.05,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X K %DT(0)
LAST EDITED: MAR 22, 1984
HELP-PROMPT: ENTER DATE/TIME SPECIMEN TAKEN or ACCESSION #
DESCRIPTION:
This is the date/time of collection of the microbiology specimen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,.02 DATE/TIME OBTAINED INEXACT 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 14, 1987
DESCRIPTION:
YES indicates the date/time of collection is inexact.
63.05,.03 DATE REPORT COMPLETED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 19, 1984
DESCRIPTION:
This is the date the report was completed.
63.05,.04 VERIFY PERSON 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 16, 1982
DESCRIPTION:
This is the person verifying the report.
63.05,.05 SITE/SPECIMEN 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
This is the site/specimen collected.
63.05,.055 COLLECTION SAMPLE 0;11 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: MAR 22, 1984
DESCRIPTION:
This is the collection sample of the specimen.
63.05,.06 MICROBIOLOGY ACCESSION 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: OCT 02, 1984
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the microbiology accession.
63.05,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
This is the requesting physician.
63.05,.08 WARD 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30 X I $D(X) S LRLLOC=X,DIC(0)="EQM",DIC=44 D ^DIC S X=$P(Y,U,2) X:Y<1 ^DD(63.05,.08,9.2) Q
:'$D(X) S:X']"" X="UNKNOWN" S:$D(LRDFN) ^LR(+LRDFN,.1)=X
9.2 = K X R !?3,"NON-STANDARD LOCATION!, OK? N//",YN:DTIME S:YN["Y" X=LRLLOC
LAST EDITED: MAR 15, 1983
HELP-PROMPT: ANSWER MUST BE 2-19 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
EXECUTABLE HELP:S X="?",DIC(0)="Q",DIC=44 D ^DIC
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,.09 AMENDED REPORT 0;9 SET
'1' FOR YES;
LAST EDITED: AUG 24, 1987
DESCRIPTION: YES will indicate that this report has been edited after the report had been verified by a
supervisor. This field is set directly by the result entry routine when a previously verified
report is edited.
63.05,.1 DATE/TIME RECEIVED 0;10 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date/time the specimen was received.
63.05,.111 REQUESTING LOC/DIV 0;13 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
44 1 SC( n Enter Hospital Location
4 2 DIC(4, n Select appropriate Institution
LAST EDITED: AUG 04, 2004
HELP-PROMPT: Enter the hospital location or institution ordering this test.
DESCRIPTION:
Enter the hospital location or institution ordering this test.
63.05,.112 ACCESSIONING INSTITUTION 0;14 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 04, 2004
DESCRIPTION: This field contains the pointer to the institution where the specimen was accessioned. This field
can be blank if LEDI or POC specimen is accessioned. The field will be set if an actual user
accepts the specimen.
63.05,.31 UID ORU;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 28, 2005
HELP-PROMPT: Answer must be 10-20 characters in length.
DESCRIPTION: This is the UID used by the HOST LEDI system for this order/accession.
This field is used by LEDI software.
63.05,.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 20, 2004
HELP-PROMPT: Enter the site ordering the test.
DESCRIPTION: This field contains the pointer to the INSTITUTION file for the Mailman domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
63.05,.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 28, 2005
HELP-PROMPT: Enter the collecting site.
DESCRIPTION: This field contains the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location for the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI.
63.05,.34 HOST UID ORU;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 28, 2005
HELP-PROMPT: Answer must be 10-20 characters in length.
DESCRIPTION: Each order/accession is given a HOST UID. The UID is stored in this location. If LEDI software is
used to accession specimens, usually the collecting sites UID is used to track specimens. If the
collecting UID conflicts with the HOST system number sequence, the HOST UID will be used instead of
the collecting site's UID.
This field is used by LEDI software.
63.05,.342 ORDERING SITE UID ORU;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 28, 2005
HELP-PROMPT: Answer must be 10-20 characters in length.
DESCRIPTION: This field contains the collecting sites UID for this specimen.
This field is used by LEDI software.
63.05,.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT: Enter the facility/site that is releasing this report.
DESCRIPTION: This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63.05,.35 ORDERED TEST ORUT;0 Multiple #63.5 (Add New Entry without Asking)
DESCRIPTION: This subfile contains information about the ordered test(s) for this accession. The .01 field
contains the ordered test NLT code requested by the clinical provider. If this test is a panel,
all atomic tests within the panel will be associated with the ordered test using this NLT code.
63.5,.01 ORDERED TEST 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5) X
OUTPUT TRANSFORM:N ZZY S ZZY=$O(^LAM("C",Y_" ",0)) I ZZY,$D(^LAM(ZZY,0))#2 S Y=$P(^(0),U)
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION: This field contains the ordered test NLT code requested by the clinical provider. If this test
is a panel, all atomic tests within the panel will be associated with the ordered test using this
NLT code.
CROSS-REFERENCE:63.5^B
1)= S ^LR(DA(2),"MI",DA(1),"ORUT","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),"ORUT","B",$E(X,1,30),DA)
63.5,2 ORDERED URGENCY 0;2 POINTER TO URGENCY FILE (#62.05)
INPUT TRANSFORM:S DIC("S")="I +Y<50" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Select urgency for this test.
DESCRIPTION: This field contains the urgency for this ordered test.
SCREEN: S DIC("S")="I +Y<50"
EXPLANATION: Prevent selection of WKLD designated urgencies.
63.5,3 CPRS ORDER # 0;3 POINTER TO ORDER FILE (#100)
LAST EDITED: NOV 28, 2005
DESCRIPTION: This field contains the pointer to CPRS ORDER(#100) file. This field is only populated when the
original order is placed on the local system.
63.5,4 LAB ORDER # 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 28, 2005
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This field contains the LAB ORDER number for this test. The construct of this free text field
is: LR-Lab order number-XXXX- where XXXX is the Julian date.
63.5,5 ORDERED TYPE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0065""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Select entry from HL7 table 0065.
DESCRIPTION: This field contains information about how the test order was generated. The selection must be
made from HL7 0065 entries. This field indicates if the ordered test was part of the original
order, an add-on or reflexed per clinical protocol.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""0065"""
EXPLANATION: Select entries for the HL7 table 0065.
63.5,6 ORDERING PROVIDER LOCAL 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 29, 2005
DESCRIPTION: The pointer to the NEW PERSON file if the original order was placed on the local system. This
field will be empty if order is placed via LEDI.
63.5,7 ORDERING PROVIDER REMOTE 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION: If this test is ordered by a provider from a remote system (not local system), the names
contained in the HL7 message will be stored in this field.
63.5,8 SPECIMEN TOPOGRAPHY 0;8 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 29, 2005
DESCRIPTION: This field contains the topography location for this test.
63.5,9 COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 29, 2005
DESCRIPTION: This field contains the collection sample for this test.
63.5,10 DISPOSITION 0;10 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0123""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the disposition of this ordered test.
DESCRIPTION: Maintains the disposition of the ordered test. It will be used to value the test disposition in
HL7 messaging, specifically OBR-25.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""0123"""
EXPLANATION: Select disposition based on HL7 Table 0123 status codes
63.5,11 DISPOSITION DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the date and time this test is dispositioned.
DESCRIPTION:
Stores the date and time that a lab user or the system dispositioned this test.
63.5,12 DISPOSITION BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 05, 2007
HELP-PROMPT: User who dispositioned this test
DESCRIPTION:
Store the user who entered the disposition of this test.
63.5,13 LAB TEST ORDERED 0;13 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the ordered laboratory test.
DESCRIPTION:
Contains the ordered laboratory test associated with the ordered NLT code.
63.5,14 PARENT TEST 0;14 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Enter the parent ordered laboratory test if any.
DESCRIPTION: If this test is a reflex test then indcates the ordered test that is associated with the reflex
test.
63.5,15 PARENT NLT 0;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: OCT 05, 2007
HELP-PROMPT: Answer must be 1-11 characters in length.
DESCRIPTION: Contains the order NLT code associated with the parent test when the ordered test is a reflex
test.
63.05,.99 COMMENT ON SPECIMEN 99;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<1 I "A"[$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.05,.99,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 on the specimen.
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
63.05,1 PRELIMINARY BACT COMMENT 19;0 Multiple #63.06 (Add New Entry without Asking)
DESCRIPTION:
These are preliminary bacteriology comments.
63.06,.01 PRELIMINARY BACT COMMENT 0;1 FREE TEXT (Multiply asked)
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
63.05,1.5 BACTERIOLOGY TEST(S) 26;0 Multiple #63.061 (Add New Entry without Asking)
LAST EDITED: DEC 02, 1991
63.061,.01 BACTERIOLOGY TEST(S) 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 30, 1989
HELP-PROMPT:Answer must be 2-68 characters in length.
63.05,11 BACT RPT DATE APPROVED 1;1 DATE
INPUT TRANSFORM:D RPT^LRMIUT1
LAST EDITED: FEB 08, 1987
DESCRIPTION:
This is the approval date of bacteriology data for this specimen.k
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,11.5 BACT RPT STATUS 1;2 SET (Required)
'F' FOR FINAL REPORT;
'P' FOR PRELIMINARY REPORT;
DESCRIPTION:
This is the report status of the bacteriology data.
63.05,11.51 STERILITY CONTROL 1;7 SET
'N' FOR NEGATIVE;
'P' FOR POSITIVE;
LAST EDITED: FEB 15, 1984
DESCRIPTION:
This indicates the sterility control as positive or negative.
63.05,11.52 STERILITY RESULTS 31;0 SET Multiple #63.292 (Add New Entry without Asking)
DESCRIPTION:
These are results of microbiology sterility testing.
63.292,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 09, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 9
DESCRIPTION:
This is the entry number of the sterility result.
63.292,.01 STERILITY RESULTS 0;1 SET (Multiply asked)
'N' FOR NEGATIVE;
'P' FOR POSITIVE;
LAST EDITED: NOV 09, 1984
DESCRIPTION:
These are results of microbiology sterility testing.
63.05,11.55 BACT PERSON 1;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 12, 1983
DESCRIPTION:
This is the person entering the bacteriology data.
63.05,11.56 MIC PERSON 1;4 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
This is the person entering the minimum inhibitory concentration data.
63.05,11.57 URINE SCREEN 1;6 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
LAST EDITED: JAN 07, 1984
DESCRIPTION:
This indicates the urine screen is positive or negative.
63.05,11.58 SPUTUM SCREEN 1;5 FREE TEXT
INPUT TRANSFORM:S Q9="1,68,KY" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "Y"[$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.05,11.58,9.2) S %L=$L(%S)+$L(%Z)
S:%L'>60 %S=%S_%Z_" " I %L>60 W " too long",! Q
LAST EDITED: MAY 03, 1987
HELP-PROMPT:ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
DESCRIPTION:
These are the results of a sputum screen.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KY""[$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
63.05,11.6 GRAM STAIN 2;0 Multiple #63.29 (Add New Entry without Asking)
DESCRIPTION:
These are gram stain results.
63.29,.01 GRAM STAIN 0;1 FREE TEXT (Multiply asked)
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
63.05,11.7 BACTERIOLOGY SMEAR/PREP 25;0 Multiple #63.291 (Add New Entry without Asking)
DESCRIPTION:
These are results of a smear/prep in bacteriology.
63.291,.01 BACTERIOLOGY SMEAR/PREP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KW" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "S"[$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.291,.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 result of a smear/prep in bacteriology.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KW""[$P(^(0),U,4)",D="B" K DO D DQ^DI
CQ K DO,DIC S DIC=DIE D DO^DIC1
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,12 ORGANISM 3;0 POINTER Multiple #63.3 (Add New Entry without Asking)
LAST EDITED: DEC 03, 1991
DESCRIPTION:
These are the organisms reported on this specimen.
SCREEN:S DIC("S")="I ""PVRBFM""[$P(^(0),U,5)"
EXPLANATION:DISPLAY ONLY BACTERIA, FUNGI, OR MYCOBACTERIA
INDEXED BY: ORGANISM (AD)
63.3,.001 ISOLATE NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 11, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of the organism.
63.3,.01 ORGANISM 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I ""PVRBFM""[$P(^(0),U,5)" D ^DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 28, 2006
DESCRIPTION:
This is an organism identified on this specimen.
EXECUTABLE HELP:Q
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.3^AC^MUMPS
1)= I $P(^LAB(61.2,X,0),"^",9) S ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
2)= I $P(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
CROSS-REFERENCE:63.3^B
1)= S ^LR(DA(2),"MI",DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),3,"B",$E(X,1,30),DA)
3)= Regular cross-reference on organism field
Regular "B" cross-reference on #.01 field.
FIELD INDEX: AD (#1057) MUMPS IR ACTION
Short Descr: Create ISOLATE ID on .01 entry
Set Logic: D SETISOID^LRXREF(3)
Kill Logic: Q
X(1): ORGANISM (63.3,.01) (Subscr 1) (forwards)
63.3,.1 ISOLATE ID .1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 27, 2006
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of
99VA4:x:y
TECHNICAL DESCR:
Created by patch LR*5.2*350.
No other fields should be added to this node so it can accept larger Isolate IDs if needed in the
future.
Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
This field is automatically populated by software via the "AD" xref on field #.01. This field is
uneditable by the user to prevent changes when/if the field is displayed via input templates.
UNEDITABLE
CROSS-REFERENCE:63.3^C
1)= S ^LR(DA(2),"MI",DA(1),3,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),3,"C",$E(X,1,30),DA)
^LR(LRDFN,"MI",LRIDT,3,"C",ISOLATE ID,IEN)=""
63.3,1 QUANTITY 0;2 FREE TEXT
INPUT TRANSFORM:S Q9="1,68,KM" 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.3,1,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 IN LENGTH
DESCRIPTION:
This is the quantity of the organism present.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KM""[$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
63.3,1.3 SIT #1 0;3 FREE TEXT
Serum inhibitory titer
INPUT TRANSFORM:S Q8="" S:"<>"[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1"1"1":"1N.N)
X S:$D(X) X=Q8_X K Q8
LAST EDITED: NOV 18, 1986
HELP-PROMPT:Enter dilution (1:2, 1:4, 1:8, etc.)
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,1.4 SBT #1 0;4 FREE TEXT
Serum bactericidal titer
INPUT TRANSFORM:S Q8="" S:"<>"[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1"1"1":"1N.N)
X S:$D(X) X=Q8_X K Q8
LAST EDITED: NOV 18, 1986
HELP-PROMPT:Enter dilution (1:2, 1:4, 1:8, etc.)
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,1.5 DRAW TIME #1 (SIT,SBT) 0;5 SET
'P' FOR PEAK;
'T' FOR TROUGH;
INPUT TRANSFORM:X "I $D(^LR(LRDFN,""MI"",LRIDT,3,DA,0)),$P(^(0),U,8)=X K X" Q:$D(X) W !,"Draw time m
ust be different than DRAW TIME #2",!
LAST EDITED: MAY 04, 1987
DESCRIPTION:
This is the draw time of SIT #1 or SBT #1.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,1.6 SIT #2 0;6 FREE TEXT
Serum inhibitory titer
INPUT TRANSFORM:S Q8="" S:"<>"[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1"1"1":"1N.N)
X S:$D(X) X=Q8_X K Q8
LAST EDITED: NOV 24, 1987
HELP-PROMPT:Enter dilution (1:2, 1:4, 1:8, etc.)
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,1.7 SBT #2 0;7 FREE TEXT
Serum bactericidal titer
INPUT TRANSFORM:S Q8="" S:"<>"[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1"1"1":"1N.N)
X S:$D(X) X=Q8_X K Q8
LAST EDITED: NOV 24, 1987
HELP-PROMPT:Enter dilution (1:2, 1:4, 1:8, etc.)
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,1.8 DRAW TIME #2 (SIT,SBT) 0;8 SET
'P' FOR PEAK;
'T' FOR TROUGH;
INPUT TRANSFORM:X "I $D(^LR(LRDFN,""MI"",LRIDT,3,DA,0)),$P(^(0),U,5)=X K X" Q:$D(X) W !,"Draw time m
ust be different than DRAW TIME #1",!
LAST EDITED: MAY 04, 1987
DESCRIPTION:
This is the draw time of SIT #2 or SBT #2.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,2 COMMENT 1;0 Multiple #63.31 (Add New Entry without Asking)
DESCRIPTION:
These are comments on this organism.
63.31,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="2,68,KM" 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.31,.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 on this organism.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KM""[$P(^(0),U,4)",D="B" K DO D D
Q^DICQ K DO,DIC S DIC=DIE D DO^DIC1
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,5 NEOMYCIN 2.0001;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: JUL 13, 1987
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,5.1 NEOMYCIN INTERP 2.0001;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,5.2 NEOMYCIN SCREEN 2.0001;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,10 BACITRACIN 2.0002;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: MAR 30, 1987
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,10.1 BACITRACIN INTERP 2.0002;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,10.2 BACITRACIN SCREEN 2.0002;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,15 PENICILLIN 2.0003;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,15.1 PENICILLIN INTERP 2.0003;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,15.2 PENICILLIN SCREEN 2.0003;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,20 CLINDAMYCIN 2.0004;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,20.1 CLINDAMYCIN INTERP 2.0004;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,20.2 CLINDAMYCIN SCREEN 2.0004;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,25 METHICILLIN 2.0005;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: MAR 30, 1987
HELP-PROMPT:ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,25.1 METHICILLIN INTERP 2.0005;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,25.2 METHICILLIN SCREEN 2.0005;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,30 VANCOMYCIN 2.0006;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,30.1 VANCOMYCIN INTERP 2.0006;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,30.2 VANCOMYCIN SCREEN 2.0006;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,35 GENTAMICIN 2.0007;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,35.1 GENTAMICIN INTERP 2.0007;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,35.2 GENTAMICIN SCREEN 2.0007;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,40 CHLORAMPHENICOL 2.0008;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: AUG 10, 1988
EXECUTABLE HELP:D EN^LRMISR
63.3,40.1 CHLORAMPHENICOL INTERP 2.0008;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,40.2 CHLORAMPHENICOL SCREEN 2.0008;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,45 KANAMYCIN 2.0009;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,45.1 KANAMYCIN INTERP 2.0009;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,45.2 KANAMYCIN SCREEN 2.0009;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: FEB 24, 1987
63.3,50 CEFAZOLIN 2.001;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,50.1 CEFAZOLIN INTERP 2.001;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,50.2 CEFAZOLIN SCREEN 2.001;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,55 TETRACYCLINE 2.0011;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,55.1 TETRACYCLINE INTERP 2.0011;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,55.2 TETRACYCLINE SCREEN 2.0011;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,60 AMPICILLIN 2.0012;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,60.1 AMPICILLIN INTERP 2.0012;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,60.2 AMPICILLIN SCREEN 2.0012;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,65 CARBENICILLIN 2.0013;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,65.1 CARBENICILLIN INTERP 2.0013;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,65.2 CARBENICILLIN SCREEN 2.0013;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,70 TOBRAMYCIN 2.0014;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,70.1 TOBRAMYCIN INTERP 2.0014;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,70.2 TOBRAMYCIN SCREEN 2.0014;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,75 TRIMETHOPRIM/SULFAMETHOXAZOLE 2.0015;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,75.1 TRIMETHOPRIM/SULFA INTERP 2.0015;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,75.2 TRIMETHOPRIM/SULFA SCREEN 2.0015;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,80 AMIKACIN 2.0016;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,80.1 AMIKACIN INTERP 2.0016;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,80.2 AMIKACIN SCREEN 2.0016;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,85 CEFAMANDOLE 2.0017;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,85.1 CEFAMANDOLE INTERP 2.0017;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,85.2 CEFAMANDOLE SCREEN 2.0017;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,90 CEFOXITIN 2.0018;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,90.1 CEFOXITIN INTERP 2.0018;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,90.2 CEFOXITIN SCREEN 2.0018;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,95 CEFOTAXIME 2.0021;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,95.1 CEFOTAXIME INTERP 2.0021;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,95.2 CEFOTAXIME SCREEN 2.0021;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,100 NITROFURANTOIN 2.0022;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,100.1 NITROFURANTOIN INTERP 2.0022;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,100.2 NITROFURANTOIN SCREEN 2.0022;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,105 POLYMYXIN B 2.0023;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,105.1 POLYMYXIN B INTERP 2.0023;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,105.2 POLYMYXIN B SCREEN 2.0023;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,110 ERYTHROMYCIN 2.0019;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,110.1 ERYTHROMYCIN INTERP 2.0019;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,110.2 ERYTHROMYCIN SCREEN 2.0019;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,115 RIFAMPIN 2.0024;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,115.1 RIFAMPIN INTERP 2.0024;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,115.2 RIFAMPIN SCREEN 2.0024;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,120 NOVOBIOCIN 2.0025;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,120.1 NOVOBIOCIN INTERP 2.0025;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,120.2 NOVOBIOCIN SCREEN 2.0025;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,125 CEFOPERAZONE 2.0026;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,125.1 CEFOPERAZONE INTERP 2.0026;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,125.2 CEFOPERAZONE SCREEN 2.0026;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,130 MEZLOCILLIN 2.0027;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,130.1 MEZLOCILLIN INTERP 2.0027;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,130.2 MEZLOCILLIN SCREEN 2.0027;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,135 MOXALACTAM 2.0028;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,135.1 MOXALACTAM INTERP 2.0028;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,135.2 MOXALACTAM SCREEN 2.0028;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,140 NETILMICIN 2.0029;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,140.1 NETILMICIN INTERP 2.0029;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,140.2 NETILMICIN SCREEN 2.0029;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,145 PIPERACILLIN 2.002;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,145.1 PIPERACILLIN INTERP 2.002;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,145.2 PIPERACILLIN SCREEN 2.002;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,150 OXACILLIN 2.003;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,150.1 OXACILLIN INTERP 2.003;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,150.2 OXACILLIN SCREEN 2.003;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,151 SULFISOXAZOLE 2.0031;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,151.1 SULFISOXAZOLE INTERP 2.0031;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,151.2 SULFISOXAZOLE SCREEN 2.0031;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,152 NAFCILLIN 2.0032;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,152.1 NAFCILLIN INTERP 2.0032;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,152.2 NAFCILLIN SCREEN 2.0032;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,153 NALIDIXIC ACID 2.0033;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,153.1 NALIDIXIC ACID INTERP 2.0033;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,153.2 NALIDIXIC ACID SCREEN 2.0033;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,154 CEPHALOTHIN 2.0034;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,154.1 CEPHALOTHIN INTERP 2.0034;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,154.2 CEPHALOTHIN SCREEN 2.0034;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,155 COLISTIN 2.0035;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,155.1 COLISTIN INTERP 2.0035;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,155.2 COLISTIN SCREEN 2.0035;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,156 METRONIDAZOLE 2.0036;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D EN^LRMISR
63.3,156.1 METRONIDAZOLE INTERP 2.0036;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,156.2 METRONIDAZOLE SCREEN 2.0036;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,157 CEFUROXIME 2.0037;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 20, 1984
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,157.1 CEFUROXIME INTERP 2.0037;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,157.2 CEFUROXIME SCREEN 2.0037;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,158 CEFTIZOXIME 2.0038;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 20, 1984
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,158.1 CEFTIZOXIME INTERP 2.0038;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,158.2 CEFTIZOXIME SCREEN 2.0038;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,159 SPECTINOMYCIN 2.0039;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 20, 1984
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,159.1 SPECTINOMYCIN INTERP 2.0039;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,159.2 SPECTINOMYCIN SCREEN 2.0039;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,160 TRIMETHOPRIM 2.004;1 FREE TEXT
INPUT TRANSFORM:D ^LRMISR
LAST EDITED: NOV 20, 1984
EXECUTABLE HELP:D EN^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,160.1 TRIMETHOPRIM INTERP 2.004;2 FREE TEXT
INPUT TRANSFORM:D INT^LRMISR
LAST EDITED: APR 06, 1987
EXECUTABLE HELP:D HINT^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3,160.2 TRIMETHOPRIM SCREEN 2.004;3 SET
'A' FOR ALWAYS DISPLAY;
'N' FOR NEVER DISPLAY;
'R' FOR RESTRICT DISPLAY;
LAST EDITED: DEC 15, 1986
63.3,200 ANTIBIOTIC 3;0 Multiple #63.32
DESCRIPTION:
These are other antibiotics reported.
63.32,.01 ANTIBIOTIC 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<2) X
LAST EDITED: JAN 28, 1984
HELP-PROMPT:E.g. ^OXACILLIN if you wish to go to that antibiotic, otherwise free text.
DESCRIPTION:
This is a free text entry for another antibiotic.
63.32,1 MIC(ug/ml) 0;2 NUMBER
Minimum Inhibitory Concentration
INPUT TRANSFORM:S Q9=".001,1000,3" D ^LRNUM
LAST EDITED: APR 30, 1987
HELP-PROMPT:TYPE A NUMBER BETWEEN .001 AND 1000
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.32,2 MBC(ug/ml) 0;3 NUMBER
Minimum Bactericidal Concentration
INPUT TRANSFORM:S Q9=".001,1000,3" D ^LRNUM
LAST EDITED: APR 30, 1987
HELP-PROMPT:TYPE A NUMBER BETWEEN .001 AND 1000
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,13 BACT RPT REMARK 4;0 Multiple #63.33 (Add New Entry without Asking)
DESCRIPTION:
These are report remarks on bacteriology data.
63.33,.01 BACT RPT REMARK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KM" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 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.33,.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 IN LENGTH
DESCRIPTION:
This is a report remark on bacteriology data.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KM""[$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
63.05,14 PARASITE RPT DATE APPROVED 5;1 DATE
INPUT TRANSFORM:D RPT^LRMIUT1
LAST EDITED: FEB 08, 1987
DESCRIPTION:
This is the approval date of the parasitology data.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,15 PARASITE RPT STATUS 5;2 SET (Required)
'F' FOR FINAL REPORT;
'P' FOR PRELIMINARY REPORT;
DESCRIPTION:
This is the approval date of the parasitology data.
63.05,15.5 PARASITE ENTERING PERSON 5;3 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
This is the person entering the parasitology data.
63.05,15.51 PARASITOLOGY SMEAR/PREP 24;0 Multiple #63.341 (Add New Entry without Asking)
DESCRIPTION:
These are the results of a smear/prep in parasitology.
63.341,.01 PARASITOLOGY SMEAR/PREP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KW" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "S"[$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.341,.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
DESCRIPTION:
This is the result of a smear/prep in parasitology.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KW""[$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
63.05,16 PARASITE 6;0 POINTER Multiple #63.34 (Add New Entry without Asking)
DESCRIPTION:
These are the parasites reported on this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""P"""
EXPLANATION:ONLY ALLOW PARASITES TO BE SELECTED
INDEXED BY: PARASITE (AD)
63.34,.001 ISOLATE NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 25, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of the parasite.
63.34,.01 PARASITE 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<1 X
LAST EDITED: SEP 27, 2006
DESCRIPTION:
This is the parasite identified on this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""P"""
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.34^B
1)= S ^LR(DA(2),"MI",DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),6,"B",$E(X,1,30),DA)
CROSS-REFERENCE:63.34^AC^MUMPS
1)= I $P(^LAB(61.2,X,0),"^",9) S ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
2)= I $P(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
CROSS-REFERENCE:63.05^AE^MUMPS
1)= D ENDIY^LRCAPV1
2)= Q
3)= Trigger workload collection routine.
Look any WKLD associated with this organism and record.
FIELD INDEX: AD (#1058) MUMPS IR ACTION
Short Descr: Create ISOLATE ID on .01 entry
Description: Creates and stuffs the ISOLATE ID whith .01 entry.
Set Logic: D SETISOID^LRXREF(6)
Kill Logic: Q
X(1): PARASITE (63.34,.01) (Subscr 1) (forwards)
63.34,.1 ISOLATE ID .1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 27, 2006
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of
99VA4:x:y
TECHNICAL DESCR:
Created by patch LR*5.2*350.
No other fields should be added to this node so it can accept larger Isolate IDs if needed in the
future.
Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
This field is automatically populated by software via the "AD" xref on field #.01. This field
is uneditable by the user to prevent changes when/if the field is displayed via input templates.
UNEDITABLE
CROSS-REFERENCE:63.34^C
1)= S ^LR(DA(2),"MI",DA(1),6,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),6,"C",$E(X,1,30),DA)
^LR(LRDFN,"MI",LRIDT,6,"C",ISOLATE ID,IEN)=""
63.34,1 STAGE 1;0 SET Multiple #63.35 (Add New Entry without Asking)
DESCRIPTION:
These are the stages identified with this parasite.
63.35,.01 STAGE 0;1 SET (Multiply asked)
'T' FOR TROPHOZOITES;
'C' FOR CYSTS;
'E' FOR EGGS;
'L' FOR LARVAE;
'S' FOR SCHIZONTS;
'G' FOR GAMETES;
'M' FOR MICROFILARIA;
'A' FOR ADULTS;
'R' FOR RHABDITIFORM LARVAE;
'F' FOR FILARIFORM LARVAE;
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)
63.35,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
63.35,2 COMMENT 1;0 Multiple #63.351 (Add New Entry without Asking)
DESCRIPTION:
These are the comments on this parasite.
63.351,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
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.351,.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 IN LENGTH
DESCRIPTION:
This is a comment on this parasite.
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
63.05,16.4 PARASITE TEST(S) 27;0 Multiple #63.361 (Add New Entry without Asking)
63.361,.01 PARASITE TEST(S) 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 30, 1989
HELP-PROMPT:Answer must be 2-68 characters in length.
63.05,16.5 PRELIMINARY PARASITE COMMENT 21;0 Multiple #63.1 (Add New Entry without Asking)
DESCRIPTION:
These are preliminary parasitology comments.
63.1,.01 PRELIMINARY PARASITE COMMENT 0;1 FREE TEXT (Multiply asked)
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.1,.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 IN LENGTH
DESCRIPTION:
This is a comment on the preliminary parasitology report.
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
63.05,17 PARASITE RPT REMARK 7;0 Multiple #63.36 (Add New Entry without Asking)
DESCRIPTION:
These are report remarks on the parasitology data.
63.36,.01 PARASITE RPT REMARK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KMP" 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.36,.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 IN LENGTH
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KMP""[$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
63.05,18 MYCOLOGY RPT DATE APPROVED 8;1 DATE
INPUT TRANSFORM:D RPT^LRMIUT1
LAST EDITED: FEB 08, 1987
DESCRIPTION:
This is the date of approval of the mycology report.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,19 MYCOLOGY RPT STATUS 8;2 SET (Required)
'F' FOR FINAL REPORT;
'P' FOR PRELIMINARY REPORT;
DESCRIPTION:
This is the status of the mycology report.
63.05,19.5 MYC PERSON 8;3 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
This is the person entering the mycology data.
63.05,19.6 MYCOLOGY SMEAR/PREP 15;0 Multiple #63.371 (Add New Entry without Asking)
DESCRIPTION:
These are the results of the smear/prep in mycology.
63.371,.01 MYCOLOGY SMEAR/PREP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KW" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "S"[$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.371,.01
,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_" " I %L>68 W " too long",! Q
LAST EDITED: JUN 01, 1987
HELP-PROMPT:ANSWER MUST BE 1-68 CHARACTERS
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KW""[$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
63.05,20 FUNGUS/YEAST 9;0 POINTER Multiple #63.37 (Add New Entry without Asking)
DESCRIPTION:
These are the fungus/yeast reported on this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""F"""
EXPLANATION:ALLOW ONLY FUNGI TO BE EDITED
INDEXED BY: FUNGUS/YEAST (AD)
63.37,.001 ISOLATE NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 25, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
63.37,.01 FUNGUS/YEAST 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""F""" D ^DIC K DIC S DIC=$G(DIE),
X=+Y K:Y<0 X
LAST EDITED: FEB 21, 2013
HELP-PROMPT:Select the fungus/yeast identified on this specimen.
DESCRIPTION:
The fungus/yeast identified on this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""F"""
EXPLANATION:Only entities with an Identifier of Fungus are selectable.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.37^B
1)= S ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA)
CROSS-REFERENCE:63.37^AC^MUMPS
1)= I $P($G(^LAB(61.2,+X,0)),"^",9) S ^LR("AD",DT,+X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
2)= I $P($G(^LAB(61.2,+X,0)),"^",9) K ^LR("AD",DT,+X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
CROSS-REFERENCE:63.05^AD^MUMPS
1)= D ENDIY^LRCAPV1
2)= Q
3)= To trigger WKLD routine.
Lookup any WKLD codes for this organism and record.
FIELD INDEX: AD (#1059) MUMPS IR ACTION
Short Descr: Create ISOLATE ID on .01 entry
Set Logic: D SETISOID^LRXREF(9)
Kill Logic: Q
X(1): FUNGUS/YEAST (63.37,.01) (Subscr 1) (forwards)
63.37,.1 ISOLATE ID .1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 27, 2006
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of
99VA4:x:y
TECHNICAL DESCR:
No other fields should be added to this node so it can accept larger Isolate IDs if needed in the
future.
Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
This field is automatically populated by software via the "AD" xref on field #.01. This field
is uneditable by the user to prevent changes when/if the field is displayed via input templates.
UNEDITABLE
CROSS-REFERENCE:63.37^C
1)= S ^LR(DA(2),"MI",DA(1),9,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),9,"C",$E(X,1,30),DA)
^LR(LRDFN,"MI",LRIDT,9,"C",ISOLATE ID,IEN)=""
63.37,1 QUANTITY 0;2 FREE TEXT
INPUT TRANSFORM:S Q9="1,68,KF" D COM^LRNUM
LAST EDITED: MAY 03, 1987
HELP-PROMPT:ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KF""[$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
63.37,2 COMMENT 1;0 Multiple #63.372 (Add New Entry without Asking)
63.372,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KF" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "F"[$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.372
,.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 IN LENGTH
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KF""[$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
63.05,20.4 MYCOLOGY TEST(S) 28;0 Multiple #63.111 (Add New Entry without Asking)
63.111,.01 MYCOLOGY TEST(S) 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 30, 1989
HELP-PROMPT:Answer must be 2-68 characters in length.
63.05,20.5 PRELIMINARY MYCOLOGY COMMENT 22;0 Multiple #63.11 (Add New Entry without Asking)
DESCRIPTION:
These are preliminary mycology comments.
63.11,.01 PRELIMINARY MYCOLOGY COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KF" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "F"[$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
.11,.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 IN LENGTH
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KF""[
$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
63.05,21 MYCOLOGY RPT REMARK 10;0 Multiple #63.38 (Add New Entry without Asking)
DESCRIPTION:
These are report remarks on the mycology data.
63.38,.01 MYCOLOGY RPT REMARK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KMF" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "F"[$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.38,.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 IN LENGTH
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KMF
""[$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
63.05,22 TB RPT DATE APPROVED 11;1 DATE
INPUT TRANSFORM:D RPT^LRMIUT1
LAST EDITED: FEB 08, 1987
DESCRIPTION:
This is the approval date of mycobacterium data for this specimen.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,23 TB RPT STATUS 11;2 SET (Required)
'F' FOR FINAL REPORT;
'P' FOR PRELIMINARY REPORT;
DESCRIPTION:
This is the status of the report.
63.05,24 ACID FAST STAIN 11;3 SET
'DP' FOR DIRECT POSITIVE;
'DN' FOR DIRECT NEGATIVE;
'CP' FOR CONCENTRATE POSITIVE;
'CN' FOR CONCENTRATE NEGATIVE;
LAST EDITED: OCT 22, 1984
DESCRIPTION:
This is the acid fast stain result.
63.05,25 QUANTITY 11;4 FREE TEXT
INPUT TRANSFORM:S Q9="1,68,KMTVP" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$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.05,25,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 IN LENGTH
DESCRIPTION:
This is the quantity of the mycobacterium present.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KMT
VP""[$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
63.05,25.5 TB ENTERING PERSON 11;5 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
This is the person entering the mycobacterium data.
63.05,26 MYCOBACTERIUM 12;0 POINTER Multiple #63.39 (Add New Entry without Asking)
DESCRIPTION:
These are the mycobacterium identified with this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""M"""
EXPLANATION:ALLOW ONLY MYCOBACTERIUM TO BE EDITED
INDEXED BY: MYCOBACTERIUM (AD)
63.39,.001 ISOLATE NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 25, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of the mycobacterium.
63.39,.01 MYCOBACTERIUM 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""M""" D ^DIC K DIC S DI
C=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 2006
DESCRIPTION:
This is the mycobacterium identified with this specimen.
CROSS-REFERENCE:63.39^B
1)= S ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA)
CROSS-REFERENCE:63.39^AF^MUMPS
1)= I $P(^LAB(61.2,X,0),"^",9) S ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
2)= I $P(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
CROSS-REFERENCE:63.05^AC^MUMPS
1)= D ENDIY^LRCAPV1
2)= Q
3)= To trigger WKDL routine.
Look up any WKLD codes for this organism and record.
FIELD INDEX: AD (#1060) MUMPS IR ACTION
Short Descr: Create ISOLATE ID on .01 entry
Set Logic: D SETISOID^LRXREF(12)
Kill Logic: Q
X(1): MYCOBACTERIUM (63.39,.01) (Subscr 1) (forwards)
63.39,.1 ISOLATE ID .1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 27, 2006
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of
99VA4:x:y
TECHNICAL DESCR:
Created by patch LR*5.2*350.
No other fields should be added to this node so it can accept larger Isolate IDs if needed in the
future.
Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
This field is automatically populated by software via the "AD" xref on field #.01. This field
is uneditable by the user to prevent changes when/if the field is displayed via input templates.
UNEDITABLE
CROSS-REFERENCE:63.39^C
1)= S ^LR(DA(2),"MI",DA(1),12,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),12,"C",$E(X,1,30),DA)
^LR(LRDFN,"MI",LRIDT,12,"C",ISOLATE ID,IEN)=""
63.39,1 QUANTITY 0;2 FREE TEXT
INPUT TRANSFORM:S Q9="1,68,KT" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$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]"" ^D
D(63.39,1,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 IN LENGTH
DESCRIPTION:
This is the quantity of the mycobacterium present.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""K
T""[$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
63.39,2 COMMENT 1;0 Multiple #63.4 (Add New Entry without Asking)
DESCRIPTION:
These are the comments on the microbacterium data.
63.4,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KT" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 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.4,.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 IN LENGTH
DESCRIPTION:
This is the comment on the mycobacterium data.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I "
"KT""[$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
63.39,5 STR 2.0001;1 FREE TEXT
Streptomycin
INPUT TRANSFORM:D COM^LRMISR
LAST EDITED: NOV 19, 1984
EXECUTABLE HELP:D ZQ^LRMISR
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.39,10 PAS 2.0002;1 FREE TEXT
p-Aminosalicylic Acid
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,15 INH 2.0003;1 FREE TEXT
Isoniazid
INPUT TRANSFORM:D COM^LRMISR
LAST EDITED: JUL 15, 1986
EXECUTABLE HELP:D ZQ^LRMISR
63.39,20 ETH 2.0004;1 FREE TEXT
Ethambutal
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,25 RIF 2.0005;1 FREE TEXT
Rifampin
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,30 KANAMYCIN 2.0006;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
LAST EDITED: JUN 15, 1990
EXECUTABLE HELP:D ZQ^LRMISR
63.39,35 CAPREOMYCIN 2.0007;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,40 CYCLOSERINE 2.0008;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,45 ETHIONAMIDE 2.0009;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,50 PYRAZINAMIDE 2.001;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.39,55 MIOMYCIN 2.0011;1 FREE TEXT
INPUT TRANSFORM:D COM^LRMISR
EXECUTABLE HELP:D ZQ^LRMISR
63.05,26.4 TB TEST(S) 29;0 Multiple #63.181 (Add New Entry without Asking)
63.181,.01 TB TEST(S) 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 30, 1989
HELP-PROMPT:Answer must be 2-68 characters in length.
63.05,26.5 PRELIMINARY TB COMMENT 23;0 Multiple #63.18 (Add New Entry without Asking)
DESCRIPTION:
These are preliminary TB comments.
63.18,.01 PRELIMINARY TB COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KT" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$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.18,.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 IN LENGTH
DESCRIPTION:
This is a preliminary TB comment.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")=
"I ""KT""[$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
63.05,27 TB RPT REMARK 13;0 Multiple #63.41 (Add New Entry without Asking)
DESCRIPTION:
These are report remarks on the mycobacterium data.
63.41,.01 TB RPT REMARK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KMT" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$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.41,.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 IN LENGTH
DESCRIPTION:
This is a report remark on the mycobacterium data.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S"
)="I ""KMT""[$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
63.05,28 ANTIBIOTIC LEVEL 14;0 Multiple #63.42 (Add New Entry without Asking)
DESCRIPTION:
These are the results of the antibiotic levels.
63.42,.01 ANTIBIOTIC(for SERUM LEVEL) 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>20!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the result of the antibiotic levels.
63.42,1 DRAW TIME 0;2 SET (Required)
'P' FOR PEAK;
'T' FOR TROUGH;
'R' FOR RANDOM;
LAST EDITED: MAR 20, 1985
DESCRIPTION:
This is the collection time of the antibiotic level.
63.42,2 CONC(ug/ml) 0;3 FREE TEXT
INPUT TRANSFORM:S X1="" S:$E(X,1)="<"!($E(X,1)=">") X1=$E
(X,1),X=$E(X,2,99) K:$L(X)>20 X K:$G(X)'=""&($G(X)'?1N.N1"-"1N.N)&($G(X)'?.N) X S:$D(X) X=X1_X
LAST EDITED: JUL 16, 2008
HELP-PROMPT:Enter low value, dash, high value, or just a
value (may use '<' or '>')
DESCRIPTION:
This is the concentration of the result of antibiotic level.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,33 VIROLOGY RPT DATE 16;1 DATE
INPUT TRANSFORM:D RPT^LRMIUT1
LAST EDITED: FEB 08, 1987
DESCRIPTION:
This is the approval date of virology data for this specimen.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.05,34 VIROLOGY REPORT STATUS 16;2 SET
'P' FOR PRELIMINARY;
'F' FOR FINAL;
LAST EDITED: NOV 04, 1983
DESCRIPTION:
This is the report status of virology.
63.05,35 VIROLOGY ENTERING PERSON 16;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: NOV 04, 1983
DESCRIPTION:
This is the person entering the virology data.
63.05,36 VIRUS 17;0 POINTER Multiple #63.43 (Add New Entry without Asking)
DESCRIPTION:
These are the viruses reported on this specimen.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""V""!($P(^(0),U,5)=""R
"")"
EXPLANATION:ALLOW ONLY VIRUS OR RICKETTSIAE
INDEXED BY: VIRUS (AD)
63.43,.001 ISOLATE NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 25, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of this virus.
63.43,.01 VIRUS 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""V""!($P(^(
0),U,5)=""R"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 2006
DESCRIPTION:
This is the virus reported on this specimen.
CROSS-REFERENCE:63.43^AG^MUMPS
1)= I $P(^LAB(61.2,X,0),"^",9) S ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
2)= I $P(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
CROSS-REFERENCE:63.05^AF^MUMPS
1)= D ENDIY^LRCAPV1
2)= Q
3)= Trigger WKLD routine.
Look up any WKLD code for this organism and record.
CROSS-REFERENCE:63.43^B
1)= S ^LR(DA(2),"MI",DA(1),17,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),17,"B",$E(X,1,30),DA)
FIELD INDEX: AD (#1061) MUMPS IR ACTION
Short Descr: Create ISOLATE ID on .01 entry.
Set Logic: D SETISOID^LRXREF(17)
Kill Logic: Q
X(1): VIRUS (63.43,.01) (Subscr 1) (forwards)
63.43,.1 ISOLATE ID .1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 27, 2006
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of
99VA4:x:y
TECHNICAL DESCR:
Created by patch LR*5.2*350.
No other fields should be added to this node so it can accept larger Isolate IDs if needed in the
future.
Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
This field is automatically populated by software via the "AD" xref on field #.01. This field
is uneditable by the user to prevent changes when/if the field is displayed via input templates.
UNEDITABLE
CROSS-REFERENCE:63.43^C
1)= S ^LR(DA(2),"MI",DA(1),17,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),17,"C",$E(X,1,30),DA)
^LR(LRDFN,"MI",LRIDT,17,"C",ISOLATE ID,IEN)=""
63.05,36.4 VIROLOGY TESTS 30;0 Multiple #63.432 (Add New Entry without Asking)
63.432,.01 VIROLOGY TESTS 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 30, 1989
HELP-PROMPT:Answer must be 2-68 characters in length.
63.05,36.5 PRELIMINARY VIROLOGY COMMENT 20;0 Multiple #63.431 (Add New Entry without Asking)
DESCRIPTION:
These are preliminary virology comments.
63.431,.01 PRELIMINARY VIROLOGY COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KMV" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 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.431,.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 IN
LENGTH
DESCRIPTION:
This is a preliminary virology comment.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q"
,DIC("S")="I ""KMV""[$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
63.05,37 VIROLOGY RPT REMARK 18;0 Multiple #63.44 (Add New Entry without Asking)
DESCRIPTION:
These are report remarks for virology.
63.44,.01 VIROLOGY RPT REMARK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:S Q9="1,68,KMV" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "V"[$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.44,.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 IN
LENGTH
DESCRIPTION:
This is a report remark for virology.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="
Q",DIC("S")="I ""KMV""[$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
63.05,38 NEW PERSON CONVERSION NPC;1 SET
'1' FOR YES;
LAST EDITED: JUN 09, 1992
DESCRIPTION:
This field is to indicate that this entry has all of the pointers converted to the NEW PERSON file.
The use of the NEW PERSON file. began with Version 5.2.
TECHNICAL DESCR:
This field will be used to determine if archive data should be repointed to VA(200 before being
restored the ^LR( global.
63.05,39 MICROBIOLOGY AUDIT 32;0 DATE Multiple #63.539 (Add New Entry without Asking)
DESCRIPTION:
The microbiology audit file contains audit data for a given test on an accession.
TECHNICAL DESCR:
Originally introduced by LR*5.2*216, which at this time is under development. This field was added
by LR*5.2*350 and only some of the initial LR*216 fields are populated by LR*350.
Original DD definition: .01 MICROBIOLOGY AUDIT [0;1] [D]
1 LREDIT [0;2] [RD]
2 LAB TECH [0;3] [RP200']
3 EDIT TYPE [0;4] [RS]
4 EDIT JUSTIFICATION [0;5] [RF]
5 NP JUSTIFICATION [6;0] [63.5395PA] <-Mult
6 LAB AREA [1;2] [S]
7 FACILITY [1;3] [RP4']
8 ALERT ID [1;4] [F]
9 ALERT EXPIRATION [1;5] [NJ3,0]
10 EDITS [2;0] [63.549A] <-Mult
11 REPORT [3;0] [63.53911] <-Mult
12 ALERT RECIPIENTS [4;1] [F]
13 VALIDATION DATE [5;1] [D]
14 TEST [5;2] [P60']
15 ALERT STATUS [7;1] [S]
16 ALERT MESSAGE [7;2] [F]
63.539,.01 MICROBIOLOGY AUDIT 0;1 DATE
INPUT TRANSFORM:S %DT="ESTR" D ^%DT S X=Y K:Y<1
X
LAST EDITED: OCT 19, 2004
DESCRIPTION:
The Date/Time the audit log added this entry.
TECHNICAL DESCR:
Distributed by LR*5.2*350
CROSS-REFERENCE:63.539^B
1)= S ^LR(DA(2),"MI",DA(1),32,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"MI",DA(1),32,"B",$E(X,1,30),DA)
63.539,1 LREDIT 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ESTR" D ^%DT S X=Y K:Y<1
X
LAST EDITED: OCT 19, 2004
HELP-PROMPT:Enter the date the test is being
edited
DESCRIPTION:
This field contains the date that the test was edited. This is the entry point for the audit
trail for this particular test.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63.539,2 LAB TECH 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: OCT 19, 2004
HELP-PROMPT:ENTER THE NAME OF THE TECHNICIAN
EDITING THE TEST RESULTS
DESCRIPTION:
This field contains the ID of the lab technician who is editing the results for this test.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63.539,3 EDIT TYPE 0;4 SET (Required)
'1' FOR ROUTINE EDIT;
'2' FOR SUPPLEMENTAL;
'3' FOR CORRECTION;
LAST EDITED: OCT 19, 2004
HELP-PROMPT:ENTER TYPE OF EDIT
DESCRIPTION:
The EDIT TYPE field is used to identify the type of revision being done to the lab test results.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63.539,4 EDIT JUSTIFICATION 0;5 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>120!($L(X)<1) X
LAST EDITED: OCT 19, 2004
HELP-PROMPT:Answer must be 1-120 characters in
length.
DESCRIPTION:
Used by the technician to record the reason the lab data is being revised or modified.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63.539,6 LAB AREA 1;2 SET
'1' FOR BACTERIOLOGY;
'5' FOR PARASITOLOGY;
'8' FOR MYCOLOGY;
'11' FOR MYCOBACTERIOLOGY;
'16' FOR VIROLOGY;
LAST EDITED: OCT 19, 2004
HELP-PROMPT:ENTER LAB AREA CODE
DESCRIPTION:
Since the audit data is not being stored under each of the lab data file sections, but rather
with the individual test results, we want to be able to identify the lab area of the test for
reporting purposes without having to do a look-up for that data.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63.539,7 FACILITY 1;3 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: OCT 19, 2004
HELP-PROMPT:ENTER THE ID OF THE FACILITY DOING
THE EDITING.
DESCRIPTION:
This field is used to record the facility at which this test is being edited.
TECHNICAL DESCR:
Distributed by LR*5.2*350
63,8 SURGICAL PATHOLOGY SP;0 DATE Multiple #63.08 (Add New Entry without Asking)
DESCRIPTION:
This is the surgical pathology for this patient.
IDENTIFIED BY: SURGICAL PATH ACC #(#.06)[R]
INDEXED BY: REPORT RELEASE DATE/TIME (AD)
63.08,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Required) (Multiply asked)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X
OUTPUT TRANSFORM: D D^LRU W ?0,"-------------------------------------------------------------------------------"
LAST EDITED: JAN 20, 1985
HELP-PROMPT: ENTER ONLY PAST OR PRESENT DATE/TIME --Future times not permitted
DESCRIPTION:
This is the date/time the specimen was taken.
DELETE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.011 SPECIMEN SUBMITTED BY 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 11, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the person submitting the specimen.
63.08,.012 SPECIMEN .1;0 Multiple #63.812 (Add New Entry without Asking)
DESCRIPTION:
These are the specimens submitted.
63.812,.01 SPECIMEN 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<2) X
LAST EDITED: MAY 04, 1991
HELP-PROMPT: Answer must be 2-75 characters in length.
DESCRIPTION:
This is the specimen submitted.
CROSS-REFERENCE: 63.812^B
1)= S ^LR(DA(2),"SP",DA(1),.1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),.1,"B",$E(X,1,30),DA)
63.812,.02 SURGICAL WORKLOAD PROFILE 0;2 POINTER TO LABORATORY TEST FILE (#60)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 26, 1991
DESCRIPTION:
Profile of surgical workload
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only surgical pathology entries.
63.812,.03 GROSS DESCRIPTION/CUTTING DATE 0;3 DATE
GROSS DESCRIPTION/CUTTING DATE & TIME
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 30, 1991
HELP-PROMPT: If gross description/cutting performed by a nonphysician enter date/time done.
DESCRIPTION: If gross description/cutting of a specimen is performed by a non-physician date and time are
entered here.
EXECUTABLE HELP: K DZ
63.812,.04 GROSS DESCRIPTION/CUTTING TYPE 0;4 SET
'1' FOR ROUTINE GROSS SURGICAL;
'2' FOR EXTENSIVE GROSS SURGICAL;
'3' FOR TECHNICAL ASSISTANCE SURGICAL;
LAST EDITED: DEC 30, 1991
DESCRIPTION: Select 1 or 'R' when the gross description and cutting of surgical tissue is performed by a
nonphysician (e.g., a pathology assistant)
Select 2 or 'E' when extensive gross processing is required by technical assistants in
addition to the usual dissection and description (e.g., orientation of a renal biopsy and
splitting it for light and electron microscopy, and immunofluorescence)
Select 3 or 'T' when technical or clerical staff assist with gross processing.
63.812,.05 GROSS DESCRIPTION COUNTED 0;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 17, 1991
HELP-PROMPT: Enter 'YES' if gross description counted for workload.
DESCRIPTION:
Whether the gross description is counted for workload
63.812,.06 SPECIMEN TOPOGRAPHY 0;6 POINTER TO TOPOGRAPHY FIELD FILE (#61)
INPUT TRANSFORM:S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D ^DIC K DIC S DIC=$G(D
IE),X=+Y K:Y<0 X
LAST EDITED: FEB 05, 2019
HELP-PROMPT: This field contains the topography location for this test.
DESCRIPTION: This field contains the topography location for this test. If the SEX SPECIFIC (#2.5) field of the
TOPOGRAPHY FIELD (#61) file is defined, the sex of the patient must match.
SCREEN: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
EXPLANATION: If this message appears after entering a topography, the entry might be: (1) not on file; (2) missp
elled; or (3) the topography has a restriction by sex that does not match the patient's sex.
63.812,.07 COLLECTION SAMPLE 0;7 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: FEB 08, 2007
DESCRIPTION:
This field contains the collection sample for this test.
63.812,1 PARAFFIN BLOCK 1;0 Multiple #63.8121 (Add New Entry without Asking)
DESCRIPTION:
This is a list of paraffin blocks prepared from the specimen submitted.
63.8121,.01 PARAFFIN BLOCK ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1992
HELP-PROMPT: ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
DESCRIPTION: The identification number on the paraffin block used to make
the slides for any stains or procedures.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.8121^B
1)= S ^LR(DA(3),"SP",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"SP",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)
63.8121,.02 DATE/TIME BLOCK PREPARED 0;2 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 1991
DESCRIPTION:
Date/time block prepared. Used for workload recording.
63.8121,.03 BLOCK COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 04, 1991
DESCRIPTION: Used for workload recording.
If block counted a 'YES' is entered.
63.8121,1 STAIN/PROCEDURE 1;0 POINTER Multiple #63.8122 (Add New Entry without Asking)
DESCRIPTION: List of tissue stains or procedures performed on the slides cut
from the paraffin block.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.8122,.01 STAIN/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUL 18, 1986
DESCRIPTION: A tissue stain or procedure performed on a slide cut from a
paraffin block.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.8122,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 17, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
The number of slides for which a specific stain or procedure was performed.
63.8122,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 30, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This is the number of control slides prepared.
63.8122,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When slides are stained
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.8122,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When slides are examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.8122,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.8122,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
Number of labels to print
63.8122,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of non-control slides counted
63.812,2 PLASTIC BLOCK 2;0 Multiple #63.822 (Add New Entry without Asking)
DESCRIPTION:
These are the plastic blocks set up on this specimen.
63.822,.01 PLASTIC BLOCK ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1992
HELP-PROMPT: ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
DESCRIPTION:
This is the plastic block identification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.822^B
1)= S ^LR(DA(3),"SP",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"SP",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)
63.822,.02 DATE/TIME BLOCK PREPARED 0;2 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 1991
DESCRIPTION:
When the block is prepared
63.822,.03 BLOCK COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 04, 1991
63.822,1 PLASTIC STAIN/PROCEDURE 1;0 POINTER Multiple #63.823 (Add New Entry without Asking)
DESCRIPTION:
These are the plastic stain/procedures performed.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.823,.01 PLASTIC STAIN/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: OCT 30, 1986
DESCRIPTION:
This is the plastic stain or procedure performed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.823,.02 PLASTIC SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 23, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This is the number of slides prepared.
63.823,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 30, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This is the number of control slides prepared.
63.823,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When slides are stained
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.823,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When slides are examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.823,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.823,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.823,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.812,3 FROZEN TISSUE BLOCK 3;0 Multiple #63.824 (Add New Entry without Asking)
LAST EDITED: DEC 28, 1991
DESCRIPTION:
This is the list of frozen tissues prepared from the specimen submitted.
63.824,.01 FROZEN TISSUE ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1992
HELP-PROMPT: ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
DESCRIPTION:
This is the identification of frozen tissue.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.824^B
1)= S ^LR(DA(3),"SP",DA(2),.1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"SP",DA(2),.1,DA(1),3,"B",$E(X,1,30),DA)
63.824,.02 DATE/TIME FROZEN PREPARED 0;2 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 1991
DESCRIPTION:
When the frozen section is prepared
63.824,.03 FROZEN COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 04, 1991
63.824,.04 FROZEN TISSUE BLOCK TYPE 0;4 SET (Required)
'1' FOR RUSH;
'0' FOR NOT RUSH;
LAST EDITED: JAN 07, 1992
DESCRIPTION: Entry indicates if the frozen tissue block is used for rush (rapid) diagnosis or
routinely processed (not rush).
63.824,1 STAIN/PROCEDURE 1;0 POINTER Multiple #63.825 (Add New Entry without Asking)
DESCRIPTION:
These are the stain/procedures performed on this specimen.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.825,.01 STAIN/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=
X
LAST EDITED: DEC 31, 1991
DESCRIPTION:
This is the stain/procedure performed on this specimen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.825^B
1)= S ^LR(DA(4),"SP",DA(3),.1,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(4),"SP",DA(3),.1,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)
63.825,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 30, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This is the number of slides prepared.
63.825,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 30, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This is the number of control slides.
63.825,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When the slides are prepared
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.825,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
When the slides are examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.825,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.825,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 03, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.825,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.08,.013 BRIEF CLINICAL HISTORY .2;0 WORD-PROCESSING #63.813
DESCRIPTION:
This is a brief clinical history of the specimen.
LAST EDITED: SEP 11, 1984
63.08,.014 PREOPERATIVE DIAGNOSIS .3;0 WORD-PROCESSING #63.814
DESCRIPTION:
This is the pre-operative diagnosis of the specimen.
63.08,.015 OPERATIVE FINDINGS .4;0 WORD-PROCESSING #63.815
DESCRIPTION:
These are the operative findings of the specimen.
63.08,.016 POSTOPERATIVE DIAGNOSIS .5;0 WORD-PROCESSING #63.816
63.08,.02 PATHOLOGIST 0;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K D
IC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the pathologist performing the procedure.
SCREEN:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.021 RESIDENT PATHOLOGIST 0;4 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K D
IC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the resident pathologist performing the procedure.
SCREEN:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.03 DATE REPORT COMPLETED 0;3 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"SP",DA,0),U,10),".") K X
W !,"Report date completed must be after date received"
LAST EDITED: MAR 12, 1990
DESCRIPTION:
This is the date the report is completed.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.06 SURGICAL PATH ACC # 0;6 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^L
R("ASPA",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X," is already taken for ",LRABV,! K X
LAST EDITED: DEC 14, 1995
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
This is the accession number of the surgical pathology specimen.
EXECUTABLE HELP:W !,"Enter as prefix yr number (ex. SP 95 345)"
UNEDITABLE
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^ASPA^MUMPS
1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"SP",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"SP",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("ASPA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)=""
2)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"SP",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"SP",0),U,6)) K:X(1)&(X(2)]"") ^LR("ASPA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)
Cross references accessions by year and within year by accession area.
63.08,.07 SURGEON/PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$
ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 27, 2018
HELP-PROMPT:Select the requesting provider.
DESCRIPTION:
This is the requesting provider.
SCREEN:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XU
SER(Y)"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.08 PATIENT LOCATION 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 31, 1983
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
63.08,.09 TYPIST 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<2) X
LAST EDITED: JAN 24, 1991
HELP-PROMPT:Answer must be 2-5 characters in length.
DESCRIPTION:
These are the initials of the typist entering the data.
63.08,.1 DATE/TIME SPECIMEN RECEIVED 0;10 DATE (Required)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,
1,3) K X W !,"Year received must be same as log-in year (",LRH(2)+1700,") "
LAST EDITED: OCT 16, 1991
HELP-PROMPT:FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date/time the specimen was received.
EXECUTABLE HELP:K DZ W ?5,"To delete accession enter '^'",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^ASP
1)= S ^LR("ASP",$E(X,1,30),DA(1),DA)=""
2)= K ^LR("ASP",$E(X,1,30),DA(1),DA)
63.08,.11 REPORT RELEASE DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"SP",D
A,0),U,3),".") K X W !,"Release date must not be before report completed date (" S Y=$P(^(0),U,3) D
DD^%DT W Y,")"
LAST EDITED: FEB 19, 1999
HELP-PROMPT:ONLY PRESENT DATE/TIME ALLOWED
DESCRIPTION:
YES indicates the report was released.
EXECUTABLE HELP:K DZ
UNEDITABLE
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.08^AC^MUMPS
1)= D ADD^LRWOMEN
2)= D DEL^LRWOMEN
This cross reference will send notification to the Women's Health Program when a Surgical Pathology
specimen on a female is verified/released by the laboratory.
FIELD INDEX: AD (#555) MUMPS ACTION
Short Descr: Notify HDR and others that this report is available.
Description: This MUMPS cross-reference triggers the sending of this report to the Health Data
Repository (HDR) and other subscribers when surgical pathology results are
released.
Set Logic: D APQ^LA7HDR(DA(1),"SP",DA)
Kill Logic: Q
X(1): REPORT RELEASE DATE/TIME (63.08,.11) (Subscr 1) (forwards)
63.08,.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
63.08,.14 TC CODE 0;14 SET
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
'4' FOR 4;
'5' FOR 5;
'6' FOR 6;
'7' FOR 7;
'8' FOR 8;
'9' FOR 9;
'0' FOR 0;
LAST EDITED: DEC 05, 1989
DESCRIPTION:
Tissue committee codes
The meaning of each code is identified by each site.
63.08,.15 ORIGINAL RELEASE DATE 0;15 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 24, 1990
DESCRIPTION:
If report was modified after release the original release date
is kept here.
63.08,.16 TIU REFERENCE DATE/TIME - SP .05;0 DATE Multiple #63.19 (Add New Entry without Asking)
LAST EDITED: AUG 28, 2001
DESCRIPTION:
This multiple stores TIU information for corresponding SF515 surgical pathology reports that have
been electronically signed and stored in TIU. This information is used to access the reports in
TIU.
63.19,.01 TIU REFERENCE DATE/TIME - SP 0;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This is the date and time that the surgical pathology SF515 was stored in TIU. It will match the
REFERENCE DATE (#1301) field of the corresponding document in the TIU DOCUMENT (#8925) file.
DELETE TEST: 1,0)= I 1
CROSS-REFERENCE:63.19^B
1)= S ^LR(DA(2),"SP",DA(1),.05,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),.05,"B",$E(X,1,30),DA)
63.19,1 TIU ENTRY POINTER - SP 0;2 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This field is a pointer to the TIU DOCUMENT (#8925) file. It stores the pointer for a surgical
pathology SF515 that has been electronically signed and stored in TIU.
DELETE TEST: 1,0)= I 1
CROSS-REFERENCE:63.19^C
1)= S ^LR(DA(2),"SP",DA(1),.05,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),.05,"C",$E(X,1,30),DA)
63.19,2 TIU CHECKSUM - SP 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 17, 2003
DESCRIPTION:
This field stores the checksum that is calculated at the time the report version is initially
stored in TIU. It will be used for comparison in future print/view requests. A new checksum
will be calculated whenever the report version is printed/viewed, and matching checksums are
proof that the report version has not been illegally altered.
UNEDITABLE
63.08,.17 DATE REPORT MODIFIED - SP .07;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 30, 2001
DESCRIPTION:
This is the date the report was modified if it was modified after it was electronically
signed/released.
63.08,.171 PERSON MODIFYING TEXT .07;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 30, 2001
DESCRIPTION:
Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.
63.08,.172 DIAGNOSIS MODIFIED .07;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 30, 2001
DESCRIPTION:
1 = Diagnosis modified AFTER report was electronically signed/released.
63.08,.31 UID ORU;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This is the UID used by the HOST LEDI system for this order/accession.
This field is used by LEDI software.
63.08,.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Enter the site ordering the test.
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the MailMan domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
63.08,.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location of the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI software.
63.08,.34 HOST UID ORU;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software
is used to accession specimens, usually the collecting sites UID is used to track specimens. If
the collecting UID conflicts with the HOST system number sequence, the HOST UID will be used
instead of the collecting site's UID.
This field is used by LEDI software.
63.08,.342 ORDERING SITE UID ORU;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This field contains the collecting site's UID for this specimen.
this field is used by LEDI software.
63.08,.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT:Enter the facility/site that is releasing this report.
DESCRIPTION:
This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63.08,.35 ORDERED TEST ORUT;0 Multiple #63.53 (Add New Entry without Asking)
DESCRIPTION:
This subfile contains information about the ordered test(s) for this accession. The .01 field
contains the ordered test NLT code requested by the clinical provider. If this test is a panel,
all atomic tests within the panel will be associated with the ordered test using this NLT code.
63.53,.01 ORDERED TEST 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5) X
OUTPUT TRANSFORM:N ZZY S ZZY=$O(^LAM("C",Y_" ",0)) I ZZY,($D(^LAM(ZZY,0))#2) S Y=$P(^(0),U)
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
Contains the ordered test NLT code requested by the clinical provider. If this test is a
panel, all atomic tests within the panel will be associated with the ordered test using this
NLT code.
CROSS-REFERENCE:63.53^B
1)= S ^LR(DA(2),"SP",DA(1),"ORUT","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),"ORUT","B",$E(X,1,30),DA)
63.53,2 ORDERED URGENCY 0;2 POINTER TO URGENCY FILE (#62.05)
INPUT TRANSFORM:S DIC("S")="I +Y<50" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Select urgency for this test.
DESCRIPTION:
This field contains the urgency for this ordered test.
SCREEN:S DIC("S")="I +Y<50"
EXPLANATION:Prevent selection of WKLD designated urgencies.
63.53,3 CPRS ORDER # 0;3 POINTER TO ORDER FILE (#100)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the pointer to CPRS ORDER (#100) file. This field is only populated when
the original order is placed on the local system.
63.53,4 LAB ORDER # 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 1-20 characters in length.
DESCRIPTION:
This field contains the LAB ORDER number for this test. The construct of this free text field
is: LR-Lab order number-XXXX - where XXXX is the Julian date.
63.53,5 ORDER TYPE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0065""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains information about how the test order was generated. The selection must be
made from HL7 Table 0065 entries. This field indicates if the ordered test was part of the
original order, an add-on or reflexed per clinical protocol.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""0065"""
EXPLANATION:Select entries for the HL7 table 0065.
63.53,6 ORDERING PROVIDER LOCAL 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
The pointer to the NEW PERSON file if the original order was placed on the local system. This
field will be empty if order is placed via LEDI.
63.53,7 ORDERING PROVIDER REMOTE 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 23, 2005
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
If this test is ordered by a provider from a remote system (not local sytem), the names
contained in the HL7 message will be stored in this field.
63.53,8 SPECIMEN TOPOGRAPHY 0;8 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the topography location for this test.
63.53,9 COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 23, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.53,10 DISPOSITION 0;10 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0123""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the disposition of this ordered test.
DESCRIPTION:
Maintains the disposition of the ordered test. It will be used to value the test disposition
in HL7 messaging, specifically OBR-25.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""0123"""
EXPLANATION:Select disposition based on HL7 Table 0123 status codes
63.53,11 DISPOSITION DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the date and time this test is dispositioned.
DESCRIPTION:
Stores the date and time that a lab user or the system dispositioned this test.
63.53,12 DISPOSITION BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:User who dispositioned this test.
DESCRIPTION:
Store the user who entered the disposition of this test.
63.53,13 LAB TEST ORDERED 0;13 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the ordered laboratory test.
DESCRIPTION:
Contains the ordered laboratory test associated with the ordered NLT code.
63.53,14 PARENT TEST 0;14 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the parent ordered laboratory test if any.
DESCRIPTION:
If this test is a reflex test this indicates the ordered test that is associated with the
reflex test.
63.53,15 PARENT NLT 0;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
Contains the order NLT code associated with the parent test when the ordered test is a reflex
test.
63.08,.97 DELAYED REPORT COMMENT 97;0 Multiple #63.0897
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
63.0897,.01 DELAYED REPORT COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X I $D(X) S L=75,L(1)="S" D ^LRUB
LAST EDITED: SEP 27, 1993
HELP-PROMPT:Answer must be 1-75 characters in length.
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
EXECUTABLE HELP:S L(1)="S" D Q^LRUB
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,.99 COMMENT 99;0 Multiple #63.98 (Add New Entry without Asking)
DESCRIPTION:
These are the comments on the specimen.
63.98,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X I $D(X) S L=75,L(1)="S" D ^LRUB
LAST EDITED: APR 20, 1989
HELP-PROMPT:ANSWER MUST BE 1-75 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the specimen.
EXECUTABLE HELP:S L(1)="S" D Q^LRUB
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,1 GROSS DESCRIPTION 1;0 WORD-PROCESSING #63.81
DESCRIPTION:
This is the gross description of the specimen.
LAST EDITED: SEP 11, 1984
63.08,1.1 MICROSCOPIC DESCRIPTION 1.1;0 WORD-PROCESSING #63.811
LAST EDITED: JUL 15, 1993
DESCRIPTION:
This is the microscopic examination diagnosis.
LAST EDITED: JUL 15, 1993
DESCRIPTION:
Microscopic slide examination report is entered here.
63.08,1.2 SUPPLEMENTARY REPORT 1.2;0 DATE Multiple #63.817 (Add New Entry without Asking)
DESCRIPTION:
These are supplementary reports on the specimen.
63.817,.01 SUPPLEMENTARY REPORT DATE/TIME 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 11, 1984
DESCRIPTION:
This is the date/time of the supplementary report.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion is not permitted","","!!")
63.817,.02 RELEASE SUPPLEMENTARY REPORT 0;2 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: SEP 20, 1990
DESCRIPTION:
If supplementary report is to be displayed or printed outside
of lab the report must be released by entering 'YES'.
63.817,.03 RELEASE SUPP REPORT MODIFIED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 09, 2004
DESCRIPTION:
This flag will be set to '1' when a released supplementary report is modified. It is
removed when the modified supplementary report is released.
63.817,1 DESCRIPTION 1;0 WORD-PROCESSING #63.818
DESCRIPTION:
This is the description of the supplementary report.
LAST EDITED: SEP 11, 1984
63.817,2 SUPPLEMENTARY REPORT MODIFIED 2;0 DATE Multiple #63.8172 (Add New Entry without Asking)
LAST EDITED: SEP 08, 2000
DESCRIPTION:
This is the date/time in which this supplementary report was modified. This
information is stored for audit trail purposes. It is updated by the software and
can only be changed from programmer mode.
63.8172,.01 SUPPLEMENTARY REPORT MODIFIED 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 08, 2000
HELP-PROMPT:This is the date/time in which this supplementary report was
modified. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the date/time in which this supplementary report was modified. This
information is stored for audit trail purposes. It is updated by the software
and can only be changed from programmer mode.
CROSS-REFERENCE:63.8172^B
1)= S ^LR(DA(3),"SP",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"SP",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)
63.8172,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 24, 1999
HELP-PROMPT:This is the DUZ of the person who modified the supplementary report.
It is updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the DUZ of the person who modified the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.8172,.03 PERSON RELEASING THE SUPP. RPT 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 05, 2004
HELP-PROMPT:This is the DUZ of the person who released the supplementary report.
It is updated by the software and can only be modified from programmer mode.
DESCRIPTION:
This is the DUZ of the person who released the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.8172,.04 SUPP REPORT RELEASE DATE/TIME 0;4 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 2004
HELP-PROMPT:This is the date/time in which this supplementary report was
released. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the date/time in which this supplementary report was released. This
information is stored for audit trail purposes. It is updated by the software
and can only be changed from programmer mode.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.8172,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.81721
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. It is updated by the software and can only be modified from programmer
mode.
LAST EDITED: MAY 24, 1999
HELP-PROMPT:This is the text of the supplementary report as it existed before
it was modified. This field is updated by the software and can only be
modified from programmer mode.
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. This field is updated by the software and can only be modified from
programmer mode.
63.08,1.3 FROZEN SECTION 1.3;0 WORD-PROCESSING #63.801
DESCRIPTION:
Frozen section descriptions can optionally be entered in this field.
LAST EDITED: DEC 02, 1992
63.08,1.4 SURGICAL PATH DIAGNOSIS 1.4;0 WORD-PROCESSING #63.802
LAST EDITED: JUL 16, 1993
DESCRIPTION:
Surgical pathology diagnoses are entered here.
LAST EDITED: JUL 16, 1993
63.08,4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.84 (Add New Entry without Asking)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of modification of the microscopic examination
diagnosis.
63.84,.01 DATE MICROSCOPIC EXAM MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the date of modification of the microscopic examination
diagnosis.
63.84,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person modifying the text.
63.84,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.841
DESCRIPTION:
This is the premodification text.
LAST EDITED: NOV 18, 1986
63.08,5 DATE DIAGNOSIS MODIFIED 5;0 DATE Multiple #63.085 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of modification of the diagnosis field
(DD(63.08,1.4))
63.085,.01 DATE DIAGNOSIS MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
63.085,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
User who changes text.
63.085,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0851
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.08,6 DATE FROZEN SECTION MODIFIED 6;0 DATE Multiple #63.086 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of modification of the frozen section field.
63.086,.01 DATE FROZEN SECTION MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of modification of the frozen section field.
CROSS-REFERENCE:63.086^B
1)= S ^LR(DA(2),"SP",DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),6,"B",$E(X,1,30),DA)
63.086,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
User who changes text.
63.086,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0861
DESCRIPTION:
Text before modification is stored here.
LAST EDITED: JUL 16, 1993
63.08,7 DATE GROSS DESCRIPTION CHANGED 7;0 DATE Multiple #63.087 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of modification of the gross description
field.
63.087,.01 DATE GROSS DESCRIPTION CHANGED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of modification of the gross description
field.
63.087,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
User who changes text.
63.087,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0871
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.08,9 QA CODE 9;0 POINTER Multiple #63.089
(Add New Entry without Asking)
SCREEN:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
63.089,.01 QA CODE 0;1 POINTER TO LAB DESCRIPTIONS FILE (#62.5)
(Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(
0),U))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: SEP 16, 1990
HELP-PROMPT:QA codes must be less than 3 characters.
SCREEN:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,10 ORGAN/TISSUE 2;0 POINTER Multiple #63.12 (Add New Entry without Asking)
DESCRIPTION:
These are the organ/tissue(s) being examined.
SCREEN:S DIC("S")="I SEX[$P(^(0),U,3)"
EXPLANATION:Selects when appropriate sex related organs
INDEXED BY: ORGAN/TISSUE (AC)
63.12,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the entry number of the organ/tissue(s).
63.12,.01 ORGAN/TISSUE 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM:S:$E(X,1,2)="T-" X=$E(X,3,$L(X)) S SEX=
$S('$D(SEX):"MF",SEX="":"MF",1:SEX) S DIC(0)="EMO",DIC("S")="I SEX[$P(^(0),U,3)" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:If entering SNOMED code you may enter the
prefix 'T-' (not necessary)
DESCRIPTION:
This is the organ/tissue(s) being examined.
EXECUTABLE HELP:W !,"Selects when appropriate Sex relat
ed organs.",!,"Ex. A uterus should not be selected for a male patient !!",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: AC (#565) MUMPS ACTION
Short Descr: Notify Women's Health of SNOMED change
Description: This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED code is made. The
SNOMED line tag notifies the Women's Health package that a SNOMED change has been made on an
already verified pathology report for a female patient.
Set Logic: Q:$D(DIU(0)) D SNOMED^LRWOMEN
Kill Logic: Q
X(1): ORGAN/TISSUE (63.12,.01) (Subscr 1) (forwards)
63.12,1 FUNCTION 3;0 POINTER Multiple #63.85 (Add New Entry without Asking)
DESCRIPTION:
These are the functions associated with this organ/tissue(s).
63.85,.01 FUNCTION 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:Enter SNOMED code without 'F-' or 'F'
DESCRIPTION:
This is the function associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.12,1.5 PROCEDURE 4;0 POINTER Multiple #63.82 (Add New Entry without Asking)
DESCRIPTION:
These are the procedures associated with this organ/tissue(s).
63.82,.01 PROCEDURE 0;1 POINTER TO PROCEDURE FIELD FILE (#61.5) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=D
IE,X=+Y K:Y<0 X
LAST EDITED: OCT 28, 1988
HELP-PROMPT:Enter SNOMED code without 'P-' or 'P'
DESCRIPTION:
This is a procedure associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.82,.02 RESULT 0;2 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: DEC 22, 1989
DESCRIPTION:
If result of procedure is positive enter '1' or 'P'.
63.12,2 WEIGHT (gm) 0;3 NUMBER
INPUT TRANSFORM:S Q9=".001,9999,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT:TYPE A NUMBER BETWEEN .001 AND 9999
DESCRIPTION:
This is the weight of the specimen.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.12,3 DISEASE 1;0 POINTER Multiple #63.15 (Add New Entry without Asking)
DESCRIPTION:
These are the diseases associated with this organ/tissue(s).
63.15,.01 DISEASE 0;1 POINTER TO DISEASE FIELD FILE (#61.4) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:Enter SNOMED code without 'D-' or 'D'
DESCRIPTION:
This is a disease associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.12,4 MORPHOLOGY 2;0 POINTER Multiple #63.16 (Add New Entry without Asking)
DESCRIPTION:
These are the morphologies associated with this organ/tissue(s).
63.16,.01 MORPHOLOGY 0;1 POINTER TO MORPHOLOGY FIELD FILE (#61.1) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S D
IC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:Enter SNOMED code without 'M-' or
'M'
DESCRIPTION:
This is a morphology associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.16,1 ETIOLOGY 1;0 POINTER Multiple #63.17 (Add New Entry without Asking)
DESCRIPTION:
These are the etiologies associated with this organ/tissue(s).
63.17,.01 ETIOLOGY 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:Enter SNOMED code without 'E-' or
'E'
DESCRIPTION:
This is an etiology associated with this organ/tissue(s)
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.12,5 SPECIAL STUDIES 5;0 SET Multiple #63.819 (Add New Entry without Asking)
DESCRIPTION:
These are special studies associated with this organ/tissue(s).
IDENTIFIED BY:ID #(#.03)
63.819,.01 SPECIAL STUDIES 0;1 SET (Multiply asked)
'E' FOR ELECTRON MICROSCOPY;
'I' FOR IMMUNOFLUORESCENCE;
'P' FOR PHOTOGRAPHY;
'C' FOR CONSULTATION;
'F' FOR FROZEN SECTION;
'IP' FOR IMMUNOPEROXIDASE;
LAST EDITED: MAR 26, 1985
DESCRIPTION:
This is a special study associated with this organ/tissue(s).
63.819,.02 DATE 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:
Y<1 X
LAST EDITED: SEP 11, 1984
DESCRIPTION:
This is the date of the special studies.
63.819,.03 ID # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 11, 1984
HELP-PROMPT:ANSWER MUST BE 1-30 CHARACTERS
IN LENGTH
DESCRIPTION:
This is the identification number of the special studies.
63.819,1 DESCRIPTION 1;0 WORD-PROCESSING #63.821
DESCRIPTION:
This is the description of the special studies.
LAST EDITED: SEP 11, 1984
63.08,80 ICD DIAGNOSIS 3;0 POINTER Multiple #63.88 (Add New Entry without Asking)
DESCRIPTION:
These are the ICD diagnoses associated with this organ/tissue(s).
63.88,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
INPUT TRANSFORM:I $D(X) S DINUM=X
LAST EDITED: FEB 25, 1985
DESCRIPTION:
This is the ICD diagnosis associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.08,2005 IMAGE 2005;0 POINTER Multiple #63.82005
DESCRIPTION:
Images associated with Surgical Pathology reports are stored in this multiple
within the Surgical Pathology field of the Lab Data (#63) file.
63.82005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: MAY 23, 1995
HELP-PROMPT:IMAGE POINTER BACK TO
IMAGE FILE
CROSS-REFERENCE:63.82005^B
1)= S ^LR(DA(2),"SP",DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"SP",DA(1),2005,"B",$E(X,1,30),DA)
63,9 CYTOPATHOLOGY CY;0 DATE Multiple #63.09 (Add New Entry without Asking)
DESCRIPTION:
QCytopathology data associated with this patient.
INDEXED BY: REPORT RELEASE DATE/TIME (AD)
63.09,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X
OUTPUT TRANSFORM: D D^LRU W ?0,"-------------------------------------------------------------------------------"
LAST EDITED: JAN 20, 1985
HELP-PROMPT: FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date/time of collection of the specimen.
DELETE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,.011 SPECIMEN SUBMITTED BY 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 28, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the person submitting the specimen.
63.09,.012 SPECIMEN .1;0 Multiple #63.902 (Add New Entry without Asking)
DESCRIPTION:
These are the specimens submitted.
63.902,.01 SPECIMEN 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>75!($L(X)<2) X I $D(X),X="PAP SMEAR",$D(SEX),SEX'="F" W " Patient not female." K X
LAST EDITED: APR 26, 1992
HELP-PROMPT: Answer must be 2-75 characters in length.
DESCRIPTION:
Enter the name of the specimen submitted..
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.902^B
1)= S ^LR(DA(2),"CY",DA(1),.1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CY",DA(1),.1,"B",$E(X,1,30),DA)
63.902,.02 WORKLOAD PROFILE 0;2 POINTER TO LABORATORY TEST FILE (#60)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""CY""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 1991
HELP-PROMPT: ENTRY MANDATORY. MUST MATCH ENTRY IN LABORATORY TEST FILE.
DESCRIPTION: The name of a cytology subscripted entry in the lab test file.
The entry is composed of accession WKLD codes and one or more
cytology procedures associated with specimen processing.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""CY"""
EXPLANATION: Selects only cytopathology workload entries
63.902,.06 SPECIMEN TOPOGRAPHY 0;6 POINTER TO TOPOGRAPHY FIELD FILE (#61)
INPUT TRANSFORM:S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D ^DIC K DIC S DIC=$G(D
IE),X=+Y K:Y<0 X
LAST EDITED: FEB 05, 2019
HELP-PROMPT: This field contains the topography location for this test.
DESCRIPTION: This field contains the topography location for this test. If the SEX SPECIFIC (#2.5) field of the
TOPOGRAPHY FIELD (#61) file is defined, the sex of the patient must match.
SCREEN: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)=""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
EXPLANATION: If this message appears after entering a topography, the entry might be: (1) not on file; (2) missp
elled; or (3) the topography has a restriction by sex that does not match the patient's sex.
63.902,.07 COLLECTION SAMPLE 0;7 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 25, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.902,1 SMEAR PREP 1;0 Multiple #63.9121 (Add New Entry without Asking)
63.9121,.01 SMEAR PREP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
CROSS-REFERENCE:63.9121^B
1)= S ^LR(DA(3),"CY",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"CY",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)
63.9121,1 STAIN/PROCEDURE 1;0 POINTER Multiple #63.9122 (Add New Entry without Asking)
LAST EDITED: JAN 13, 1991
63.9122,.01 STAIN/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: DEC 31, 1991
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9122,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The number of slides prepared
63.9122,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.9122,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were stained
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9122,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9122,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.9122,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.9122,.08 SLIDES SCREENED (#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 13, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides screened for workload.
63.9122,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.902,2 CELL BLOCK 2;0 Multiple #63.922 (Add New Entry without Asking)
63.922,.01 CELL BLOCK 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
CROSS-REFERENCE:63.922^B
1)= S ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"CY",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)
63.922,1 CELL BLOCK STAIN 1;0 POINTER Multiple #63.923 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.923,.01 CELL BLOCK STAIN 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: DEC 31, 1991
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.923,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.923,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 04, 1988
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.923,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were stained
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.923,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.923,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.923,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.923,.08 SLIDES SCREENED (#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 13, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides screened for workload.
63.923,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.902,3 MEMBRANE FILTER 3;0 Multiple #63.924 (Add New Entry without Asking)
63.924,.01 MEMBRANE FILTER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT: Answer must be 1-9 characters in length.
63.924,1 MEMBRANE FILTER STAIN 1;0 POINTER Multiple #63.9241 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.9241,.01 MEMBRANE FILTER STAIN 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=
X
LAST EDITED: JAN 13, 1991
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9241,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.9241,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.9241,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were stained
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9241,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Future date/time not allowed.
DESCRIPTION:
Date slides were examined
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9241,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.9241,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
63.9241,.08 SLIDES SCREENED (#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 13, 1991
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides screened for workload.
63.9241,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
63.902,4 PREPARED SLIDES 4;0 Multiple #63.9024 (Add New Entry without Asking)
63.9024,.01 PREPARED SLIDES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT: Answer must be 1-9 characters in length.
63.9024,1 PREPARED SLIDES STAIN 1;0 POINTER Multiple #63.90241 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
63.90241,.01 PREPARED SLIDES STAIN 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DI
NUM=X
LAST EDITED: JAN 13, 1991
SCREEN:S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION:Selects only stains/procedures associated with anatomic pathology
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90241,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
63.90241,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT:Type a Number between 0 and 99, 0 Decimal Digits
63.90241,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT:Future date/time not allowed.
DESCRIPTION:
Date slides were stained
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90241,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT:Future date/time not allowed.
DESCRIPTION:
Date slides were examined
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90241,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.90241,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT:Type a Number between 0 and 99, 0 Decimal Digits
63.90241,.08 SLIDES SCREENED (#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 13, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides screened for workload.
63.90241,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
63.902,5 CYTOSPIN 5;0 Multiple #63.9025 (Add New Entry without Asking)
63.9025,.01 CYTOSPIN 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>9!($L(X)<1) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT:Answer must be 1-9 characters in length.
63.9025,1 CYTOSPIN STAIN 1;0 POINTER Multiple #63.90251 (Add New Entry without Asking)
SCREEN:S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION:Selecs only stains/procedures associated with anatomic pathology
63.90251,.01 CYTOSPIN STAIN 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X
) DINUM=X
LAST EDITED: JAN 13, 1991
SCREEN:S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION:Selects only stains/procedures associated with anatomic pathology
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90251,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
63.90251,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1991
HELP-PROMPT:Type a Number between 0 and 99, 0 Decimal Digits
63.90251,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT:Future date/time not allowed.
DESCRIPTION:
Date slides were stained
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90251,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: APR 29, 1991
HELP-PROMPT:Future date/time not allowed.
DESCRIPTION:
Date slides were examined
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.90251,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.90251,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT:Type a Number between 0 and 99, 0 Decimal Digits
63.90251,.08 SLIDES SCREENED (#) 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 13, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides screened for workload.
63.90251,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 02, 1993
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
63.09,.013 BRIEF CLINICAL HISTORY .2;0 WORD-PROCESSING #63.913
DESCRIPTION:
This is a brief clinical history of the specimen.
LAST EDITED: FEB 27, 1985
63.09,.014 PREOPERATIVE DIAGNOSIS .3;0 WORD-PROCESSING #63.914
DESCRIPTION:
This is the pre-operative diagnosis.
63.09,.015 OPERATIVE FINDINGS .4;0 WORD-PROCESSING #63.905
DESCRIPTION:
These are the operative findings of the specimen.
63.09,.016 POSTOPERATIVE DIAGNOSIS .5;0 WORD-PROCESSING #63.906
DESCRIPTION:
This is the post-operative diagnosis.
63.09,.02 PATHOLOGIST/CYTOTECHNOLOGIST 0;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX
^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 05, 2004
HELP-PROMPT:Enter the pathologist or cytotechnologist performing the examination. NOTE: A
cytotech's name can be entered on negative GYN cases only.
DESCRIPTION:
This is the pathologist performing the examination.
SCREEN:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key
.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,.021 CYTOTECH 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the technologist performing the test.
63.09,.03 DATE REPORT COMPLETED 0;3 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"CY",DA,0),U,10),
".") K X W !,"Report date completed must be after date received"
LAST EDITED: MAR 12, 1990
DESCRIPTION:
This is the date the report was completed.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,.06 CYTOPATH ACC # 0;6 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRAD),$D(LRAB
V),$D(^LR("ACYA",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X," is already taken for ",LRABV,! K X
LAST EDITED: DEC 14, 1995
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
This is the accession number of the cytopathology specimen.
EXECUTABLE HELP:W !,"Enter as prefix yr number (ex. CY 95 345)"
UNEDITABLE
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^ACYA^MUMPS
1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"CY",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"CY",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("ACYA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)=""
2)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"CY",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1)
,"CY",0),U,6)) K:X(1)&(X(2)]"") ^LR("ACYA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)
Cross references accessions by year and within year by accession area.
63.09,.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"
",Y)),$$ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 30, 1991
HELP-PROMPT:Select the requesting provider.
DESCRIPTION:
This is the requesting provider.
SCREEN:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$A
CTIVE^XUSER(Y)"
EXPLANATION:Selection must be made from active PROVIDERS who hold the PROVIDER security key
.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,.08 PATIENT LOCATION 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 31, 1983
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
63.09,.09 TYPIST 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<2) X
LAST EDITED: JAN 24, 1991
HELP-PROMPT:Answer must be 2-5 characters in length.
DESCRIPTION:
These are the initials of the typist entering the cytopathology data.
63.09,.1 DATE/TIME SPECIMEN RECEIVED 0;10 DATE (Required)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2
)'=$E(X,1,3) K X W !,"Year received must be same as log-in year (",LRH(2)+1700,") "
LAST EDITED: JAN 29, 1991
HELP-PROMPT:FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date/time the specimen was received.
EXECUTABLE HELP:K DZ W ?5,"To delete accession enter '^'",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63^ACY^MUMPS
1)= S ^LR("ACY",$E(X,1,30),DA(1),DA)=""
2)= K ^LR("ACY",$E(X,1,30),DA(1),DA)
63.09,.101 REVIEWED BY PATHOLOGIST 0;12 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: AUG 04, 1987
HELP-PROMPT:Enter 'YES' if case reviewed by pathologist.
DESCRIPTION:
YES identifies that the case has been reviewed by the pathologist.
63.09,.11 REPORT RELEASE DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1
),"CY",DA,0),U,3),".") K X W !,"Release date must not be before completed date (" S Y=$P(^(0),U,3)
D DD^%DT W Y,")"
LAST EDITED: FEB 19, 1999
HELP-PROMPT:ONLY CURRENT DATE/TIME ALLOWED
DESCRIPTION:
Date report was released
EXECUTABLE HELP:K DZ
UNEDITABLE
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.09^AC^MUMPS
1)= D ADD^LRWOMEN
2)= D DEL^LRWOMEN
This cross reference will send notification to the Women's Health Program when a Cytology specimen
is Verified/Released from the Laboratory package.
FIELD INDEX: AD (#556) MUMPS ACTION
Short Descr: Notify HDR and others that this report is available.
Description: This MUMPS cross-reference triggers the sending of this report to the Health Data Repository (HDR)
and other subscribers when cytology results are released.
Set Logic: D APQ^LA7HDR(DA(1),"CY",DA)
Kill Logic: Q
X(1): REPORT RELEASE DATE/TIME (63.09,.11) (Subscr 1) (forwards)
63.09,.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Name of individual who released report
63.09,.14 TC CODE 0;14 SET
'1' FOR 1;
'2' FOR 2;
'3' FOR 3;
'4' FOR 4;
'5' FOR 5;
'6' FOR 6;
'7' FOR 7;
'8' FOR 8;
'9' FOR 9;
'0' FOR 0;
LAST EDITED: MAR 26, 1992
DESCRIPTION:
Tissue committee codes The meaning of each code is identified by each site.
63.09,.15 ORIGINAL RELEASE DATE 0;15 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 24, 1990
DESCRIPTION:
If report was modified after release the original release date
is kept here.
63.09,.16 TIU REFERENCE DATE/TIME - CY .05;0 DATE Multiple #63.47 (Add New Entry without Asking)
LAST EDITED: AUG 28, 2001
DESCRIPTION:
This multiple stores TIU information for corresponding SF515 cytopathology reports that have been
electronically signed and stored in TIU. This information is used to access the reports in TIU.
63.47,.01 TIU REFERENCE DATE/TIME - CY 0;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This is the date and time that the cytopathology SF515 was stored in TIU. It will match the
REFERENCE DATE (#1301) field of the corresponding document in the TIU DOCUMENT (#8925) file.
DELETE TEST: 1,0)= I
CROSS-REFERENCE:63.47^B
1)= S ^LR(DA(2),"CY",DA(1),.05,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CY",DA(1),.05,"B",$E(X,1,30),DA)
63.47,1 TIU ENTRY POINTER - CY 0;2 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: AUG 29, 2001
DESCRIPTION:
This field is a pointer to the TIU DOCUMENT (#8925) file. It stores the pointer for a
cytopathology SF515 that has been electronically signed and stored in TIU.
DELETE TEST: 1,0)= I
CROSS-REFERENCE:63.47^C
1)= S ^LR(DA(2),"CY",DA(1),.05,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CY",DA(1),.05,"C",$E(X,1,30),DA)
63.47,2 TIU CHECKSUM - CY 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 17, 2003
DESCRIPTION:
This field stores the checksum that is calculated at the time the report version is initially
stored in TIU. It will be used for comparison in future print/view requests. A new checksum
will be calculated whenever the report version is printed/viewed, and matching checksums are
proof that the report version has not been illegally altered.
UNEDITABLE
63.09,.17 DATE REPORT MODIFIED - CY .07;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 30, 2001
DESCRIPTION:
This is the date the report was modified if it was modified after it was electronically
signed/released.
63.09,.171 PERSON MODIFYING TEXT .07;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 30, 2001
DESCRIPTION:
Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.
63.09,.172 DIAGNOSIS MODIFIED .07;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 30, 2001
DESCRIPTION:
1 = Diagnosis modified AFTER report was electronically signed/released.
63.09,.31 UID ORU;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This is the UID used by the HOST LEDI system for this order/accession.
This field is used by LEDI software.
63.09,.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Enter the site ordering the test.
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the Mailman domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
63.09,.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location of the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI software.
63.09,.34 HOST UID ORU;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software
is used to accession specimens, usually the collecting sites UID is used to track specimens. If
the collecting UID conflicts with the HOST system number sequence, the HOST UID will be used
instead of the collecting site's UID.
This field is used by LEDI software.
63.09,.342 ORDERING SITE UID ORU;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<10) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 10-20 characters in length
DESCRIPTION:
This field contains the collecting sites UID for this specimen.
This field is used by LEDI software.
63.09,.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT:Enter the facility/site that is releasing this report.
DESCRIPTION:
This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63.09,.35 ORDERED TEST ORUT;0 Multiple #63.51 (Add New Entry without Asking)
DESCRIPTION:
This subfile contains information about the ordered test(s) for this accession. The .01 field
contains the ordered test NLT code requested by the clinical provider. If this test is a panel,
all atomic tests within the panel will be associated with the ordered test using this NLT code.
63.51,.01 ORDERED TEST 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<5) X
OUTPUT TRANSFORM:N ZZY S ZZY=$O(^LAM("C",Y_" ",0)) I ZZY,($D(^LAM(ZZY,0))#2) S Y=$P(^(0
),U)
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 5-15 characters in length.
DESCRIPTION:
Contains the ordered test NLT code requested by the clinical provider. If this test is a
panel, all atomic tests within the panel will be associated with the ordered test using this
NLT code.
CROSS-REFERENCE:63.51^B
1)= S ^LR(DA(2),"CY",DA(1),"ORUT","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CY",DA(1),"ORUT","B",$E(X,1,30),DA)
63.51,2 ORDERED URGENCY 0;2 POINTER TO URGENCY FILE (#62.05)
INPUT TRANSFORM:S DIC("S")="I +Y<50" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Select urgency for this test.
DESCRIPTION:
This field contains the urgency for this ordered test.
SCREEN:S DIC("S")="I +Y<50"
EXPLANATION:Prevent selection of WKLD designated urgencies.
63.51,3 CPRS ORDER # 0;3 POINTER TO ORDER FILE (#100)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the pointer to CPRS ORDER (#100) file. This field is only populated when
the original order is placed on the local system.
63.51,4 LAB ORDER # 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 1-20 characters in length
DESCRIPTION:
This field contains the LAB ORDER number for this test. The construct of this free text field
is: LR-Lab order number-XXXX - where XXXX is the Julian date.
63.51,5 ORDER TYPE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0065""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Select entry from HL7 table 0065.
DESCRIPTION:
This field contains information about how the test order was generated.
The selection must be made from HL7 Table 0065 entries. This field indicates if the ordered
test was part of the original order, an add-on or reflexed per clinical protocol.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""0065"""
EXPLANATION:Select entries for the HL7 table 0065
63.51,6 ORDERING PROVIDER LOCAL 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
The pointer to the NEW PERSON file if the original order was placed on the local system. This
field will be empty if order is placed via LEDI.
63.51,7 ORDERING PROVIDER REMOTE 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 22, 2005
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
If this test is ordered by a provider from a remote system (not local system), the names
contained in the HL7 message will be stored in this field.
63.51,8 SPECIMEN TOPOGRAPHY 0;8 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the topography location for this test.
63.51,9 COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: NOV 22, 2005
DESCRIPTION:
This field contains the collection sample for this test.
63.51,10 DISPOSITION 0;10 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)=""0123""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the disposition of this ordered test.
DESCRIPTION:
Maintains the disposition of the ordered test. It will be used to value the test disposition in
HL7 messaging, specifically OBR-25.
SCREEN:S DIC("S")="I $P(^(0),U,5)=""0123"""
EXPLANATION:Select disposition based on HL7 Table 0123 status codes
63.51,11 DISPOSITION DATE/TIME 0;11 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the date and time this test is dispositioned.
DESCRIPTION:
Stores the date and time that a lab user or the system dispositioned this test.
63.51,12 DISPOSITION BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:User who dispositioned this test.
DESCRIPTION:
Store the user who entered the disposition of this test.
63.51,13 LAB TEST ORDERED 0;13 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the ordered laboratory test.
DESCRIPTION:
Contains the ordered laboratory test associated with the ordered NLT code.
63.51,14 PARENT TEST 0;14 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Enter the parent ordered laboratory test if any.
DESCRIPTION:
If this test is a reflex test this indicates the ordered test that is associated with the
reflex test.
63.51,15 PARENT NLT 0;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
LAST EDITED: OCT 05, 2007
HELP-PROMPT:Answer must be 1-11 characters in length.
DESCRIPTION:
Contains the order NLT code associated with the parent test when the ordered test is a reflex
test.
63.09,.97 DELAYED REPORT COMMENT 97;0 Multiple #63.0997 (Add New Entry without Asking)
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
63.0997,.01 DELAYED REPORT COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X
LAST EDITED: SEP 27, 1993
HELP-PROMPT:Answer must be 1-75 characters in length.
DESCRIPTION:
If a report is delayed, reason(s) for delay may be entered here. They will appear on the log
book report and the clinician screen display.
63.09,.99 COMMENT 99;0 Multiple #63.908 (Add New Entry without Asking)
LAST EDITED: MAR 13, 1984
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
These are comments on the cytopathology data.
63.908,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X
LAST EDITED: MAR 18, 1985
HELP-PROMPT:ANSWER MUST BE 1-75 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on the cytopathology data.
63.09,1 GROSS DESCRIPTION 1;0 WORD-PROCESSING #63.91
LAST EDITED: NOV 06, 1984
DESCRIPTION:
This is the gross description of the specimen.
LAST EDITED: FEB 28, 1985
63.09,1.1 MICROSCOPIC EXAMINATION 1.1;0 WORD-PROCESSING #63.911
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the microscopic examination diagnosis.
LAST EDITED: JUL 16, 1993
63.09,1.2 SUPPLEMENTARY REPORT 1.2;0 DATE Multiple #63.907 (Add New Entry without Asking)
DESCRIPTION:
These are the supplementary reports on the specimen.
63.907,.01 SUPPLEMENTARY REPORT DATE/TIME 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 27, 1985
DESCRIPTION:
This is the date/time of the supplementary report.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion is not permitted","","!!")
63.907,.02 RELEASE SUPPLEMENTARY REPORT 0;2 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: SEP 20, 1990
DESCRIPTION:
If supplementary report is to be displayed or printed outside of
lab the report must be released by entering 'YES'.
63.907,.03 RELEASE SUPP REPORT MODIFIED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 09, 2004
DESCRIPTION:
This flag will be set to '1' when a released supplementary report is modified. It is
removed when the modified supplementary report is released.
63.907,1 DESCRIPTION 1;0 WORD-PROCESSING #63.918
DESCRIPTION:
This is the description of the supplementary report.
LAST EDITED: FEB 27, 1985
63.907,2 SUPPLEMENTARY REPORT MODIFIED 2;0 DATE Multiple #63.9072 (Add New Entry without Asking)
LAST EDITED: SEP 08, 2000
DESCRIPTION:
This is the date/time in which this supplementary report was modified. This
information is stored for audit trail purposes. It is updated by the software and
can only be modified from programmer mode.
63.9072,.01 SUPPLEMENTARY REPORT MODIFIED 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 08, 2000
HELP-PROMPT:This is the date/time in which this supplementary report was
modified. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the date/time in which this supplementary report was modified. It is
updated by the software and can only be modified from programmer mode.
CROSS-REFERENCE:63.9072^B
1)= S ^LR(DA(3),"CY",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(3),"CY",DA(2),1.2,DA(1),2,"B",$E(X,1,30),DA)
63.9072,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 06, 1999
HELP-PROMPT:This is the DUZ of the person who modified the supplementary
report. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the DUZ of the person who modified the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.9072,.03 PERSON RELEASING THE SUPP. RPT 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 25, 2003
HELP-PROMPT:This is the DUZ of the person who released the supplementary
report. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the DUZ of the person who released the supplementary report. It is
updated by the software and can only be modified from programmer mode.
63.9072,.04 SUPP REPORT RELEASE DATE/TIME 0;4 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 2004
HELP-PROMPT:This is the date/time in which this supplementary report was
released. It is updated by the software and can only be modified from programmer
mode.
DESCRIPTION:
This is the date/time the supplementay report is released. It is updated by the
software and can only be modified from programmer mode.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.9072,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.90721
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. It is updated by the software and can only be modified from programmer
mode.
LAST EDITED: DEC 06, 1999
HELP-PROMPT:This is the text of the supplementary report before it was
modified. It is updated by the software and can only be modified from
programmer mode.
DESCRIPTION:
This is the text of the supplementary report as it existed before it was
modified. This field is updated by the software and can only be modified from
programmer mode.
63.09,1.4 CYTOPATHOLOGY DIAGNOSIS 1.4;0 WORD-PROCESSING #63.903
DESCRIPTION:
Cytopathology diagnoses are entered here.
LAST EDITED: JUL 16, 1993
63.09,4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.94 (Add New Entry without Asking)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of the modification of the microscopic examination
diagnosis.
63.94,.01 DATE MICROSCOPIC EXAM MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the date of the modification of the microscopic examination
diagnosis.
63.94,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person modifying text.
63.94,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.941
DESCRIPTION:
This is the premodification text.
LAST EDITED: NOV 18, 1986
DESCRIPTION:
This is the premodification text.
63.09,5 DATE DIAGNOSIS MODIFIED 5;0 DATE Multiple #63.095 (Add New Entry without Asking)
DESCRIPTION:
This is the date of the modification of the diagnosis field.
63.095,.01 DATE DIAGNOSIS MODIFIED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
This is the date of the modification of the diagnosis field.
63.095,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
63.095,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0951
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.09,7 DATE GROSS DESCRIPTION CHANGED 7;0 DATE Multiple #63.097 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of change in the gross description field.
63.097,.01 DATE GROSS DESCRIPTION CHANGED 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 1993
DESCRIPTION:
These are the dates of change in the gross description field.
63.097,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 16, 1993
DESCRIPTION:
User who changes text.
63.097,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.0971
DESCRIPTION:
This is the premodification text.
LAST EDITED: JUL 16, 1993
63.09,9 QA CODE 9;0 POINTER Multiple #63.099 (Add New Entry without Asking)
SCREEN:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
63.099,.01 QA CODE 0;1 POINTER TO LAB DESCRIPTIONS FILE (#62.5)
(Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(
^(0),U))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: SEP 16, 1990
HELP-PROMPT:QA codes must be less than 3 characters.
SCREEN:S DIC("S")="I $P(^(0),U,4)="",$L($P(^(0),U))<3"
EXPLANATION:Selects entries with less than 3 characters
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,10 CYTOPATH ORGAN/TISSUE 2;0 POINTER Multiple #63.912 (Add New Entry without Asking)
DESCRIPTION:
This is the organ/tissue(s) being examined.
SCREEN:S DIC("S")="I SEX[$P(^(0),U,3)"
EXPLANATION:Selects when appropriate sex related organs
INDEXED BY: CYTOPATH ORGAN/TISSUE (AC)
63.912,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
63.912,.01 CYTOPATH ORGAN/TISSUE 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM:S:$E(X,1,2)="T-" X=$E(X,3,$L(X)) S SE
X=$S('$D(SEX):"MF",SEX="":"MF",1:SEX) S DIC(0)="EMO",DIC("S")="I SEX[$P(^(0),U,3)" D ^DIC K DIC S D
IC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
EXECUTABLE HELP:W !,"Selects when appropriate sex rel
ated organs.",!,"Ex. A uterus should not be selected for a male patient !!",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: AC (#566) MUMPS ACTION
Short Descr: Notify Women's Health of SNOMED change
Description: This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED code is made. The
SNOMED line tag notifies the Women's Health package that a SNOMED change has been made on an
already verified pathology report for a female patient.
Set Logic: Q:$D(DIU(0)) D SNOMED^LRWOMEN
Kill Logic: Q
X(1): CYTOPATH ORGAN/TISSUE (63.912,.01) (Subscr 1) (forwards)
63.912,1 FUNCTION 3;0 POINTER Multiple #63.985 (Add New Entry without Asking)
DESCRIPTION:
These are the functions associated with this organ/tissue(s).
63.985,.01 FUNCTION 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=D
IE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the function associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.912,1.5 PROCEDURE 4;0 POINTER Multiple #63.982 (Add New Entry without Asking)
DESCRIPTION:
These are the procedures associated with this organ/tissue(s).
63.982,.01 PROCEDURE 0;1 POINTER TO PROCEDURE FIELD FILE (#61.5) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the procedure associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.982,.02 RESULT 0;2 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: DEC 22, 1989
DESCRIPTION:
If result of procedure is positive enter '1' or 'P'.
63.912,3 DISEASE 1;0 POINTER Multiple #63.915 (Add New Entry without Asking)
DESCRIPTION:
These are the diseases associated with this organ/tissue(s).
63.915,.01 DISEASE 0;1 POINTER TO DISEASE FIELD FILE (#61.4) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EQMO" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 15, 1987
DESCRIPTION:
This is the disease associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.912,4 MORPHOLOGY 2;0 POINTER Multiple #63.916 (Add New Entry without Asking)
DESCRIPTION:
These are morphologies associated with this organ/tissue(s).
63.916,.01 MORPHOLOGY 0;1 POINTER TO MORPHOLOGY FIELD FILE (#61.1) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT:You may enter:
DESCRIPTION:
This is the morphology associated with this organ/tissue(s).
EXECUTABLE HELP:W !!,"N, CLASS I, or CLASS 1
for NEGATIVE",!,"A, II, CLASS II or CLASS 2(choice of atypias) for ATYPIA",!,"S, III, 3, CLASS III
or CLASS 3 for SUSPICIOUS",!,"P, CLASS V, or CLASS 5 for POSITIVE",!,"U or CLASS 0 for UNSATISFACTO
RY",!
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.916,1 ETIOLOGY 1;0 POINTER Multiple #63.917 (Add New Entry without Asking)
DESCRIPTION:
These are the etiologies associated with this organ/tissue(s).
63.917,.01 ETIOLOGY 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is an etiology associated with this organ/tissue(s).
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.912,5 SPECIAL STUDIES 5;0 SET Multiple #63.919 (Add New Entry without Asking)
DESCRIPTION:
These are the special studies associated with this organ/tissue(s).
IDENTIFIED BY:ID #(#.03)
63.919,.01 SPECIAL STUDIES 0;1 SET (Multiply asked)
'E' FOR EM;
'I' FOR IMMUNOFLUORESCENCE;
'P' FOR PHOTOGRAPHY;
'C' FOR CONSULTATION;
'IP' FOR IMMUNOPEROXIDASE;
LAST EDITED: APR 08, 1985
DESCRIPTION:
This is a special study associated with this organ/tissue(s).
63.919,.02 DATE 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y
K:Y<1 X
LAST EDITED: FEB 27, 1985
DESCRIPTION:
This is the date of the special study.
63.919,.03 ID # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 27, 1985
HELP-PROMPT:ANSWER MUST BE 1-30
CHARACTERS IN LENGTH
DESCRIPTION:
This is the identification number of the special study.
63.919,1 DESCRIPTION 1;0 WORD-PROCESSING #63.921
DESCRIPTION:
This is the description of the special studies.
LAST EDITED: FEB 27, 1985
63.09,80 ICD DIAGNOSIS 3;0 POINTER Multiple #63.901 (Add New Entry without Asking)
DESCRIPTION:
These are the IDC diagnosis of the specimen.
63.901,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
INPUT TRANSFORM:I $D(X) S DINUM=X
LAST EDITED: FEB 27, 1985
DESCRIPTION:
This is the ICD diagnosis of the specimen.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.09,2005 IMAGE 2005;0 POINTER Multiple #63.92005
DESCRIPTION:
Images associated with Cytopathology reports are stored in this multiple within the
Cytopathology field of the Lab Data (#63) file.
63.92005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: MAY 23, 1995
HELP-PROMPT:IMAGE POINTER BACK TO
IMAGE FILE
CROSS-REFERENCE:63.92005^B
1)= S ^LR(DA(2),"CY",DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"CY",DA(1),2005,"B",$E(X,1,30),DA)
63,11 AUTOPSY DATE/TIME AU;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D D^LRAUAW K:'LR(63,12)!(LR(63,12)&(X30!($L(X)<1) X
LAST EDITED: MAR 13, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the age of the patient at the time of death.
63,13 DATE AUTOPSY REPORT COMPLETED AU;3 DATE
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X),+^LR(DA,"AU")>X K X
W !,"Date must be after date autopsy performed (" S Y=+^("AU") D D^LRU W Y,")"
LAST EDITED: FEB 21, 1991
HELP-PROMPT: FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date the autopsy report was completed.
EXECUTABLE HELP: K DZ W ?5,"AUTOPSY DATE/TIME MUST BE ENTERED"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,13.01 AUTOPSY TYPIST AU;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<2) X
LAST EDITED: JUN 23, 1986
HELP-PROMPT: ANSWER MUST BE 2-5 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the Autopsy typist
EXECUTABLE HELP: W !?5,"Enter initials of autopsy typist"
63,13.1 DATE FINAL AUTOPSY DIAGNOSES AU;4 DATE
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X),+^LR(DA,"AU")>X K X
W !,"Date must be after date autopsy performed (" S Y=+^("AU") D D^LRU W Y,")"
LAST EDITED: FEB 20, 1991
HELP-PROMPT: FUTURE DATE/TIME NOT ALLOWED
DESCRIPTION:
This is the date the final autopsy diagnoses are completed.
EXECUTABLE HELP: K DZ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,13.5 RESIDENT PATHOLOGIST AU;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+
Y K:Y<0 X
LAST EDITED: APR 07, 1993
DESCRIPTION:
This is the resident pathologist.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key.
63,13.6 SENIOR PATHOLOGIST AU;10 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+
Y K:Y<0 X
LAST EDITED: SEP 07, 1989
DESCRIPTION:
This is the senior pathologist.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION: Selects only active providers
63,13.7 AUTOPSY TYPE AU;11 SET
'F' FOR FULL AUTOPSY;
'H' FOR HEAD ONLY;
'T' FOR TRUNK ONLY;
'A' FOR ABDOMEN ONLY;
'C' FOR CHEST ONLY;
'O' FOR OTHER LIMITATION;
LAST EDITED: SEP 28, 1993
DESCRIPTION:
This is the autopsy type.
63,13.8 AUTOPSY ASSISTANT AU;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 16, 1992
DESCRIPTION:
If prosector has an assistant enter name of assistant.
63,14 AUTOPSY ACC # AU;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRABV),$D(^LR("AAUA",$E(+$G(^LR(DA,"A
U")),1,3),$G(LRABV),X)) N ARR S ARR(1)=$C(7)_X_" is already taken for "_LRABV,ARR(2)="" D EN^DDIOL(
.ARR) K X
LAST EDITED: SEP 26, 2013
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
This is the number of this autopsy.
EXECUTABLE HELP: D EN^DDIOL("Enter as prefix yr number (ex. AU 95 23)")
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63^AAUA^MUMPS
1)= S ^LR("AAUA",$E(+^LR(DA,"AU"),1,3),$P(X," "),$P(X," ",3),DA)=""
2)= K ^LR("AAUA",$E(+^LR(DA,"AU"),1,3),$P(X," "),$P(X," ",3),DA)
63,14.1 LOCATION AU;5 FREE TEXT
WARD OR OTHER LOCATION
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X I $D(X) X:X["?" ^DD(63,14.1,4) Q:X["?" S Y(0)="",LRLLOC=X,DIC(0)="EQMZ",DIC
=44 D ^DIC S X=$P($G(Y(0)),U,1) X:Y<1 ^DD(63,14.1,9.2) Q:'$D(X) S:X']"" X="UNKNOWN"
9.2 = K X R !?3,"Non-standard location ! OK ? NO// ",YN:DTIME S:YN["Y" X=LRLLOC
LAST EDITED: FEB 24, 1999
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the requesting location.
EXECUTABLE HELP: S X="?",DIC(0)="Q",DIC=44 D ^DIC
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,14.5 SERVICE AU;8 SET
'M' FOR MEDICINE;
'S' FOR SURGERY;
'P' FOR PSYCHIATRY;
'NH' FOR NHCU;
'NE' FOR NEUROLOGY;
'I' FOR INTERMEDIATE MED;
'R' FOR REHAB MEDICINE;
'SCI' FOR SPINAL CORD INJURY;
'D' FOR DOMICILLARY;
'B' FOR BLIND REHAB;
LAST EDITED: DEC 04, 1984
DESCRIPTION:
This is the service to which this patient was assigned.
63,14.6 TREATING SPECIALITY AT DEATH AU;14 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: NOV 03, 1992
DESCRIPTION:
Name of treating specialty at time of patient's death.
63,14.7 AUTOPSY RELEASE DATE/TIME AU;15 DATE
INPUT TRANSFORM: S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X) S Y=+^LR(DA,"AU") I
'Y!(Y>X) K X D D^LRU W !,"No AUTOPSY TIME",!,"or AUTOPSY RELEASE TIME before AUTOPSY TIME" W:Y]"" "
(",Y,")"
LAST EDITED: SEP 08, 1995
HELP-PROMPT: ONLY CURRENT DATE/TIME ALLOWED
DESCRIPTION:
Date and time autopsy verified.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,14.8 AUTOPSY RELEASED BY AU;16 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 21, 1992
DESCRIPTION:
Name of person releasing verified autopsy report.
63,14.9 PROVISIONAL ANAT DX DATE AU;17 DATE
PROVISIONAL ANATOMIC DIAGNOSIS DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P(+$G(^LR(DA,"AU")),".") K X W $C(7),!!,"Date must be af
ter autopsy date."
LAST EDITED: JUN 10, 1996
DESCRIPTION:
Date provisional anatomic diagnoses reported
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,14.91 RELEASING SITE AU;18 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JAN 29, 2009
HELP-PROMPT: Enter the facility/site that is releasing this autopsy.
DESCRIPTION: This field indicates the site that released the clinical report. This field can be used to
determine the information required to correctly indicate the address/location of the laboratory
responsible for releasing the report.
63,16 BODY HEIGHT (in) AW;1 NUMBER
INPUT TRANSFORM: S Q9="30,96,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 30 AND 96
DESCRIPTION:
Height of body in inches
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,17 BODY WT (lb) AW;2 NUMBER
INPUT TRANSFORM: S Q9="30,700,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 30 AND 700
DESCRIPTION:
Weight of body in pounds
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,18 LUNG,RT (gm) AW;3 NUMBER
INPUT TRANSFORM: S Q9="50,10000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 50 AND 10000
DESCRIPTION:
Right lung
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,19 LUNG,LT (gm) AW;4 NUMBER
INPUT TRANSFORM: S Q9="50,10000,0" D ^LRNUM
LAST EDITED: SEP 29, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 50 AND 10000
DESCRIPTION:
Left lung
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,20 LIVER (gm) AW;5 NUMBER
INPUT TRANSFORM: S Q9="100,15000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 100 AND 15000
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,21 SPLEEN (gm) AW;6 NUMBER
INPUT TRANSFORM: S Q9="1,15000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 15000
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,22 KIDNEY,RT (gm) AW;7 NUMBER
INPUT TRANSFORM: S Q9="1,10000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 10000
DESCRIPTION:
Right kidney
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,23 KIDNEY,LT (gm) AW;8 NUMBER
INPUT TRANSFORM: S Q9="1,10000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 10000
DESCRIPTION:
Left kidney
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,24 HEART (gm) AW;9 NUMBER
INPUT TRANSFORM: S Q9="100,2000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 100 AND 2000
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25 BRAIN (gm) AW;10 NUMBER
INPUT TRANSFORM: S Q9="1,2000,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 2000
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.1 PITUITARY GLAND (gm) AW;11 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.2 THYROID GLAND (gm) AW;12 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.3 PARATHYROID, LEFT UPPER (gm) AW;13 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Left upper parathyroid
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.4 PARATHYROID, LEFT LOWER (gm) AW;14 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Left lower parathyroid
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.5 PARATHYROID, RIGHT UPPER (gm) AW;15 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Right upper parathyroid
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.6 PARATHYROID, RIGHT LOWER (gm) AW;16 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Right lower parathyroid
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.7 ADRENAL, LEFT (gm) AW;17 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Left adrenal
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.8 ADRENAL, RIGHT (gm) AW;18 NUMBER
INPUT TRANSFORM: S Q9="0,99,3" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: Enter weight in grams (ex. 1.5 =1.5 grams)
DESCRIPTION:
Right adrenal
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.9 PANCREAS (gm) AWI;1 NUMBER
INPUT TRANSFORM: S Q9="0,999,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.91 TESTIS, LEFT (gm) AWI;2 NUMBER
INPUT TRANSFORM: S Q9="0,500,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 500
DESCRIPTION:
Left testis
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.92 TESTIS, RIGHT (gm) AWI;3 NUMBER
INPUT TRANSFORM: S Q9="0,500,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 500
DESCRIPTION:
Right testis
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.93 OVARY, LEFT (gm) AWI;4 NUMBER
INPUT TRANSFORM: S Q9="0,500,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 500
DESCRIPTION:
Left ovary
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,25.94 OVARY, RIGHT (gm) AWI;5 NUMBER
INPUT TRANSFORM: S Q9="0,500,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 500
DESCRIPTION:
Right ovary
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,26 TRICUSPID VALVE (cm) AV;1 NUMBER
INPUT TRANSFORM: S Q9="1,20,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 20
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,27 PULMONIC VALVE (cm) AV;2 NUMBER
INPUT TRANSFORM: S Q9="1,20,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 20
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,28 MITRAL VALVE (cm) AV;3 NUMBER
INPUT TRANSFORM: S Q9="1,20,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 20
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,29 AORTIC VALVE (cm) AV;4 NUMBER
INPUT TRANSFORM: S Q9="1,20,1" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 20
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,30 RIGHT VENTRICLE (cm) AV;5 NUMBER
INPUT TRANSFORM: S Q9="0,5,2" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 5
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,31 LEFT VENTRICLE (cm) AV;6 NUMBER
INPUT TRANSFORM: S Q9="0,9,2" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,31.1 PLEURAL CAVITY, LEFT (ml) AV;7 NUMBER
INPUT TRANSFORM: S Q9="0,99999,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Left pleural cavity
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,31.2 PLEURAL CAVITY, RIGHT (ml) AV;8 NUMBER
INPUT TRANSFORM: S Q9="0,99999,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Right pleural cavity
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,31.3 PERICARDIAL CAVITY (ml) AV;9 NUMBER
INPUT TRANSFORM: S Q9="0,99999,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,31.4 PERITONEAL CAVITY (ml) AV;10 NUMBER
INPUT TRANSFORM: S Q9="0,99999,0" D ^LRNUM
LAST EDITED: MAY 24, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Body organ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,32 AUTOPSY ORGAN/TISSUE AY;0 POINTER Multiple #63.2 (Add New Entry without Asking)
DESCRIPTION:
These are the organ/tissue(s) examined.
SCREEN: S DIC("S")="I SEX[$P(^(0),U,3)"
EXPLANATION: Selects where appropriate sex specific organ or tissue.
63.2,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 06, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the entry number of the autopsy organ/tissue(s) being examined.
63.2,.01 AUTOPSY ORGAN/TISSUE 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM:S:$E(X,1,2)="T-1" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):"MF",SEX="":"MF",1:SEX) S DIC(0)="EMO",DIC("S")
="I SEX[$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
HELP-PROMPT: If entering SNOMED code prefix "T-" may be used (not necessary)
DESCRIPTION:
This is the autopsy organ/tissue(s) being examined.
EXECUTABLE HELP:W !,"Selects when appropriate sex specific organ or tissue."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.2^B
1)= S ^LR(DA(1),"AY","B",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),"AY","B",$E(X,1,30),DA)
63.2,1 FUNCTION 3;0 POINTER Multiple #63.25 (Add New Entry without Asking)
DESCRIPTION:
These are the functions associated with the organ/tissue(s).
63.25,.01 FUNCTION 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the function associated with this organ/tissues(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.2,1.5 PROCEDURE 4;0 POINTER Multiple #63.24 (Add New Entry without Asking)
DESCRIPTION:
These are the procedures associated with this organ/tissue(s).
63.24,.01 PROCEDURE 0;1 POINTER TO PROCEDURE FIELD FILE (#61.5) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is the procedure associated with this organ/tissue(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.24,.02 RESULT 0;2 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: DEC 30, 1989
DESCRIPTION:
If result is positive enter '1' or 'P'.
63.2,3 DISEASE 1;0 POINTER Multiple #63.21 (Add New Entry without Asking)
DESCRIPTION:
These are the diseases associated with this organ/tissue(s).
63.21,.01 DISEASE 0;1 POINTER TO DISEASE FIELD FILE (#61.4) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is a disease associated with this organ/tissue(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.2,4 MORPHOLOGY 2;0 POINTER Multiple #63.22 (Add New Entry without Asking)
DESCRIPTION:
These are the morphologies associated with this organ/tissue(s).
63.22,.01 MORPHOLOGY 0;1 POINTER TO MORPHOLOGY FIELD FILE (#61.1) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is a morphology associated with this organ/tissue.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.22^B
1)= S ^LR(DA(2),"AY",DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"AY",DA(1),2,"B",$E(X,1,30),DA)
63.22,1 ETIOLOGY 1;0 POINTER Multiple #63.23 (Add New Entry without Asking)
DESCRIPTION:
These are the etiologies associated with this organ/tissue(s).
63.23,.01 ETIOLOGY 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="EMO" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 19, 1987
DESCRIPTION:
This is an etiology associated with this organ/tissue(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.2,5 SPECIAL STUDIES 5;0 SET Multiple #63.26 (Add New Entry without Asking)
DESCRIPTION:
These are special studies associated with this organ/tissue(s).
63.26,.01 SPECIAL STUDIES 0;1 SET (Multiply asked)
'E' FOR EM;
'I' FOR IMMUNOFLUORESCENCE;
'P' FOR PHOTOGRAPHY;
'C' FOR CONSULTATION;
'F' FOR FROZEN SECTION;
'IP' FOR IMMUNOPEROXIDASE;
LAST EDITED: JUL 15, 1992
DESCRIPTION:
This is the special study associated with this organ/tissue(s).
63.26,.02 DATE 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 11, 1985
DESCRIPTION:
This is the date of the special studies.
63.26,.03 ID # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 11, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the identification number of the special studies.
63.26,1 DESCRIPTION 1;0 WORD-PROCESSING #63.27
DESCRIPTION:
This is the description of the special studies.
LAST EDITED: MAR 11, 1985
DESCRIPTION:
This is the description of the special studies.
63.2,2005 IMAGE (GROSS) 2005;0 POINTER Multiple #63.28
DESCRIPTION: Images associated with Autopsy Organ/Tissue reports are stored in this multiple
within the Autopsy Organ/Tissue field of the Lab Data (#63) file.
63.28,.01 IMAGE (GROSS) 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: MAY 23, 1995
HELP-PROMPT: IMAGE POINTER BACK TO IMAGE FILE
CROSS-REFERENCE:63.28^B
1)= S ^LR(DA(2),"AY",DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"AY",DA(1),2005,"B",$E(X,1,30),DA)
63.2,2005.1 IMAGE (MICROSCOPIC) 2005.1;0 POINTER Multiple #63.45
DESCRIPTION: Images associated with Autopsy Organ/Tissue reports are stored in this multiple
within the Autopsy Organ/Tissue field of the Lab Data (#63) file.
63.45,.01 IMAGE (MICROSCOPIC) 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: MAY 23, 1995
HELP-PROMPT: IMAGE POINTER BACK TO IMAGE FILE
CROSS-REFERENCE:63.45^B
1)= S ^LR(DA(2),"AY",DA(1),2005.1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),"AY",DA(1),2005.1,"B",$E(X,1,30),DA)
63,32.1 AUTOPSY COMMENTS AZC;0 Multiple #63.97 (Add New Entry without Asking)
DESCRIPTION:
These are comments on the autopsy.
63.97,.01 AUTOPSY COMMENTS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: OCT 17, 1984
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment on this autopsy.
63,32.2 CLINICAL DIAGNOSES 81;0 WORD-PROCESSING #63.322
DESCRIPTION:
These are the clinical diagnoses.
LAST EDITED: MAR 11, 1985
63,32.3 PATHOLOGICAL DIAGNOSES 82;0 WORD-PROCESSING #63.323
DESCRIPTION:
These are the pathological diagnoses.
LAST EDITED: MAR 11, 1985
63,32.4 AUTOPSY SUPPLEMENTARY REPORT 84;0 DATE Multiple #63.324 (Add New Entry without Asking)
DESCRIPTION:
Multiple for autopsy supplementary report
63.324,.01 SUPPLEMENTARY REPORT DATE 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 10, 1988
DESCRIPTION:
Date of supplementary autopsy report
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion is not permitted","","!!")
63.324,.02 RELEASE SUPPLEMENTARY REPORT 0;2 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: OCT 30, 2001
DESCRIPTION: If the supplementary report is to be displayed or printed outside of lab, the report must be
released by entering 'YES'.
63.324,.03 RELEASE SUPP REPORT MODIFIED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 08, 2004
DESCRIPTION: This flag will be set to '1' when a released supplementary report is modified. It is removed when
the modified supplementary report is released.
63.324,1 DESCRIPTION 1;0 WORD-PROCESSING #63.3241
DESCRIPTION:
Description of the supplementary autopsy
LAST EDITED: AUG 10, 1988
63.324,2 SUPPLEMENTARY REPORT MODIFIED 2;0 DATE Multiple #63.3242 (Add New Entry without Asking)
LAST EDITED: SEP 08, 2000
DESCRIPTION: This is the date/time in which this supplementary report was modified. This information is
stored for audit trail purposes. It is updated by the software and can only be changed from
programmer mode.
63.3242,.01 SUPPLEMENTARY REPORT MODIFIED 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 08, 2000
HELP-PROMPT: This is the date/time in which this supplementary report was modified. It is updated by the
software and can only be modified from programmer mode.
DESCRIPTION: This is the date/time in which this supplementary report was modified. This information is
stored for audit trail purposes. It is updated by the software and can only be changed from
programmer mode.
CROSS-REFERENCE: 63.3242^B
1)= S ^LR(DA(2),84,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),84,DA(1),2,"B",$E(X,1,30),DA)
63.3242,.02 PERSON MODIFYING TEXT 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 27, 2000
HELP-PROMPT: This the DUZ of the person who modified the supplementary report. It is updated by the
software and can only be modified from programmer mode.
DESCRIPTION: This is the DUZ of the person who modified the supplementary report. It is updated by the
software and can only be modified from programmer mode.
63.3242,.03 PERSON RELEASING THE SUPP. RPT 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 25, 2003
HELP-PROMPT: This is the DUZ of the person who released the supplementary report. It is updated by
software and can only be modified from programmer mode.
DESCRIPTION: This is the DUZ of the person who released the supplementary report. It is updated by the
software and can only be modified from programmer mode.
63.3242,.04 SUPP REPORT RELEASE DATE/TIME 0;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 2004
HELP-PROMPT: This is the date/time in which this supplementary report was released. It is updated by the
software and can only be modified from programmer mode.
DESCRIPTION: This is the date/time in which this supplementary report was released. This information is
stored for audit trail purposes. It is updated by the software and can only be changed from
programmer mode.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3242,1 PREMODIFICATION TEXT 1;0 WORD-PROCESSING #63.32421
DESCRIPTION: This is the text of the supplementary report as it existed before it was modified. It is
updated by the software and can only be modified from programmer mode.
LAST EDITED: DEC 14, 1999
HELP-PROMPT: This is the text of the supplementary report as it existed before it was modified. This
field is updated by the software and can only be modified from programmer mode.
DESCRIPTION: This is the text of the supplementary report as it existed before it was modified. This
field is updated by the software and can only be modified from programmer mode.
63,33 AUTOPSY SPECIMEN 33;0 Multiple #63.033 (Add New Entry without Asking)
DESCRIPTION: Autopsy organs and tissues are entered here for block and slide preparation, label printing and
workload.
63.033,.01 AUTOPSY SPECIMEN 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>75!($L(X)<2) X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Answer must be 2-75 characters in length.
DESCRIPTION: Autopsy organs and tissues are entered here for block and slide preparation, label printing and
workload.
CROSS-REFERENCE: 63.033^B
1)= S ^LR(DA(1),33,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),33,"B",$E(X,1,30),DA)
63.033,1 PARAFFIN BLOCK 1;0 Multiple #63.331 (Add New Entry without Asking)
DESCRIPTION:
List of paraffin blocks prepared from autopsy organs/tissues.
63.331,.01 PARAFFIN BLOCK ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: SEP 12, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
The identification number on the paraffin block used to make slides for staining.
CROSS-REFERENCE: 63.331^B
1)= S ^LR(DA(2),33,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(2),33,DA(1),1,"B",$E(X,1,30),DA)
63.331,.02 DATE/TIME BLOCK PREPARED 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 1992
DESCRIPTION:
Date/time block prepared. Used for workload recording.
63.331,.03 BLOCK COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 05, 1992
DESCRIPTION:
Used for workload recording.
63.331,1 STAIN/PROCEDURE 1;0 POINTER Multiple #63.3311 (Add New Entry without Asking)
DESCRIPTION:
List of tissue stains or procedures performed on the slides cut from the paraffin block.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology.
63.3311,.01 STAIN/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: FEB 06, 1992
DESCRIPTION:
A tissue stain or procedure performed on a slide cut from a paraffin block.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION: Selects only stains/procedures associated with anatomic pathology
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.3311,.02 SLIDES PREPARED (#) 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
The number of slides for which a specific stain or procedure was performed.
63.3311,.03 CONTROL SLIDES (#) 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
Number of control slides prepared.
63.3311,.04 DATE/TIME SLIDES STAINED 0;4 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 1992
DESCRIPTION:
Date slides were stained
63.3311,.05 DATE/TIME SLIDES EXAMINED 0;5 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 05, 1992
DESCRIPTION:
Date slides were examined
63.3311,.06 SLIDES COUNTED (#) 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Last number of slides counted for workload.
63.3311,.07 LABELS TO PRINT 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 1992
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
Amount of labels needed to print
63.3311,.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 20, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of non-control slides counted
63,80 AUTOPSY ICD CODE 80;0 POINTER Multiple #63.808 (Add New Entry without Asking)
LAST EDITED: JUN 28, 2012
DESCRIPTION:
These are the ICD codes on this autopsy.
63.808,.01 AUTOPSY ICD CODE 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: JUN 28, 2012
HELP-PROMPT: Enter ICD code on this autopsy.
DESCRIPTION:
This is the ICD code on this autopsy.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,83.1 MAJOR DIAGNOSTIC DISAGREEMENT 83;1 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: FEB 12, 1987
DESCRIPTION: If major diagnostic disagreements between autopsy and clinical findings
enter 'YES' else enter 'NO'.
63,83.2 CLINICAL DIAGNOSIS CLARIFIED 83;2 SET
'1' FOR YES;
'0' FOR NO;
'2' FOR CONFIRMED;
LAST EDITED: FEB 13, 1987
DESCRIPTION: If clinical dx insufficient (ex. intracranial hemorrhage) did autopsy
clarify the dx (ex. ruptured aneurysm) ?
63,99 AUTOPSY QA CODE 99;0 POINTER Multiple #63.999 (Add New Entry without Asking)
DESCRIPTION:
Multiple for autopsy quality assurance code
SCREEN: S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION: Selects entries with less than 3 characters
63.999,.01 AUTOPSY QA CODE 0;1 POINTER TO LAB DESCRIPTIONS FILE (#62.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINU
M=X
LAST EDITED: SEP 16, 1990
HELP-PROMPT: QA codes must be less than 3 characters.
DESCRIPTION:
Quality assurance code for autopsy
SCREEN: S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
EXPLANATION: Selects entries with less than 3 characters
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,100 ARCHIVE REFERENCE T;0 Multiple #63.99 (Add New Entry without Asking)
DESCRIPTION:
These are references to archiving information.
63.99,.01 ARCHIVE REFERENCE 0;1 NUMBER
INPUT TRANSFORM: K X
OUTPUT TRANSFORM: S Y=$S($D(^LAB(69.9,1,6,+Y,0)):$P(^(0),"^",1),1:+Y)
LAST EDITED: AUG 21, 1985
DESCRIPTION: This points to the entry in the Laboratory site parameters file 69.9 in the Archive multiple to
indicate where data is archived.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63,101 TIU REFERENCE DATE/TIME - AU 101;0 DATE Multiple #63.101 (Add New Entry without Asking)
LAST EDITED: AUG 28, 2001
DESCRIPTION: This multiple stores TIU information for corresponding SF515 autopsy reports that have been
electronically signed and stored in TIU. This information is used to access the reports in TIU.
63.101,.01 TIU REFERENCE DATE/TIME - AU 0;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 29, 2001
DESCRIPTION: This is the date and time that the autopsy SF515 was stored in TIU. It will match the REFERENCE
DATE (#1301) field of the corresponding document in the TIU DOCUMENT (#8925) file.
DELETE TEST: 1,0)= I
CROSS-REFERENCE: 63.101^B
1)= S ^LR(DA(1),101,"B",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),101,"B",$E(X,1,30),DA)
63.101,1 TIU ENTRY POINTER - AU 0;2 POINTER TO TIU DOCUMENT FILE (#8925)
LAST EDITED: AUG 29, 2001
DESCRIPTION: This field is a pointer to the TIU DOCUMENT (#8925) file. It stores the pointer for an autopsy
SF515 that has been electronically signed and stored in TIU.
DELETE TEST: 1,0)= I
CROSS-REFERENCE: 63.101^C
1)= S ^LR(DA(1),101,"C",$E(X,1,30),DA)=""
2)= K ^LR(DA(1),101,"C",$E(X,1,30),DA)
63.101,2 TIU CHECKSUM 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 17, 2003
DESCRIPTION: This field stores the checksum that is calculated at the time the report version is initially
stored in TIU. It will be used for comparison in future print/view requests. A new checksum
will be calculated whenever the report version is printed/viewed, and matching checksums are
proof that the report version has not been illegally altered.
UNEDITABLE
63,102 DATE REPORT MODIFIED - AU 102;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 30, 2001
DESCRIPTION: This is the date the report was modified if it was modified after it was electronically
signed/released.
63,102.1 PERSON MODIFYING TEXT 102;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 30, 2001
DESCRIPTION:
Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.
63,102.2 DIAGNOSIS MODIFIED 102;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 30, 2001
DESCRIPTION:
1 = Diagnosis modified AFTER report was electronically signed/released.
FILES POINTED TO FIELDS
BLOOD BANK UTILITY (#65.4) TRANSFUSION RECORD:TRANSFUSION REACTION TYPE (#.11)
TRANSFUSION REACTION DATE:TRANSFUSION REACTION TYPE (#.02)
BLOOD INVENTORY (#65) UNITS SELECTED FOR XMATCH:UNIT SELECTED FOR XMATCH (#.01)
BLOOD PRODUCT (#66) SCREEN CELL:SOURCE (#.02)
TRANSFUSION RECORD:COMPONENT (#.02)
ANTISERUM:ANTISERUM (#.01)
BLOOD COMPONENT REQUEST:BLOOD COMPONENT REQUEST (#.01)
COLLECTION SAMPLE (#62) BLOOD BANK:COLLECTION SAMPLE (#.055)
MICROBIOLOGY:COLLECTION SAMPLE (#.055)
ORDERED TEST:COLLECTION SAMPLE (#9)
FIELD^NL^1^4:COLLECTION SAMPLE (#.07)
ORDERED TEST:COLLECTION SAMPLE (#9)
ORDERED TEST:COLLECTION SAMPLE (#9)
ORDERED TEST:COLLECTION SAMPLE (#9)
ORDERED TEST:COLLECTION SAMPLE (#9)
FIELD^NL^3^10:COLLECTION SAMPLE (#.07)
FIELD^NL^5^9:COLLECTION SAMPLE (#.07)
DISEASE FIELD (#61.4) DISEASE:DISEASE (#.01)
DISEASE:DISEASE (#.01)
DISEASE:DISEASE (#.01)
DISEASE:DISEASE (#.01)
ETIOLOGY FIELD (#61.2) ETIOLOGY:ETIOLOGY (#.01)
ETIOLOGY:ETIOLOGY (#.01)
ETIOLOGY:ETIOLOGY (#.01)
ORGANISM:ORGANISM (#.01)
PARASITE:PARASITE (#.01)
FUNGUS/YEAST:FUNGUS/YEAST (#.01)
MYCOBACTERIUM:MYCOBACTERIUM (#.01)
VIRUS:VIRUS (#.01)
ETIOLOGY:ETIOLOGY (#.01)
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALITY AT DEATH (#14.6)
BLOOD COMPONENT REQUEST:TREATING SPECIALITY (#2.3)
FILE (#1) PARENT FILE (#.02)
FUNCTION FIELD (#61.3) RBC ANTIGEN PRESENT:RBC ANTIGEN PRESENT (#.01)
RBC ANTIGEN ABSENT:RBC ANTIGEN ABSENT (#.01)
HLA ANTIGEN ABSENT:HLA ANTIGEN ABSENT (#.01)
ELUATE ANTIBODY:ELUATE ANTIBODY (#.01)
HLA ANTIGEN PRESENT:HLA ANTIGEN PRESENT (#.01)
RBC ANTIGENS ABSENT(other):RBC ANTIGENS ABSENT (#.01)
ANTIBODIES IDENTIFIED:ANTIBODIES IDENTIFIED (#.01)
RBC ANTIGENS PRESENT(other):RBC ANTIGENS PRESENT (#.01)
HLA ANTIGENS PRESENT:HLA ANTIGEN PRESENT (#.01)
HLA ANTIGENS ABSENT:HLA ANTIGENS ABSENT (#.01)
FUNCTION:FUNCTION (#.01)
FUNCTION:FUNCTION (#.01)
SERUM ANTIBODY:SERUM ANTIBODY (#.01)
FUNCTION:FUNCTION (#.01)
FUNCTION:FUNCTION (#.01)
ICD DIAGNOSIS (#80) ICD CODE:ICD CODE (#.01)
AUTOPSY ICD CODE:AUTOPSY ICD CODE (#.01)
ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
IMAGE (GROSS):IMAGE (GROSS) (#.01)
IMAGE (MICROSCOPIC):IMAGE (MICROSCOPIC) (#.01)
IMAGE:IMAGE (#.01)
IMAGE:IMAGE (#.01)
INSTITUTION (#4) RELEASING SITE (#14.91)
PRODUCING LABORATORY:INSTITUTION (#.02)
FIELD^NL^2005^43:ORDERING SITE (#.32)
COLLECTING SITE (#.33)
RELEASING SITE (#.345)
CHEM, HEM, TOX, RIA, SER, etc.:ACCESSIONING INSTITUTION (#.112)
ORDERING SITE (#.32)
COLLECTING SITE (#.33)
RELEASING SITE (#.345)
MICROBIOLOGY:ACCESSIONING INSTITUTION (#.112)
ORDERING SITE (#.32)
COLLECTING SITE (#.33)
RELEASING SITE (#.345)
FIELD^NL^2005^45:ORDERING SITE (#.32)
COLLECTING SITE (#.33)
RELEASING SITE (#.345)
FIELD^NL^2005^44:ORDERING SITE (#.32)
COLLECTING SITE (#.33)
RELEASING SITE (#.345)
MICROBIOLOGY AUDIT:FACILITY (#7)
LAB DESCRIPTIONS (#62.5) QA CODE:QA CODE (#.01)
QA CODE:QA CODE (#.01)
QA CODE:QA CODE (#.01)
AUTOPSY QA CODE:AUTOPSY QA CODE (#.01)
LAB ELECTRONIC CODES (#64.061) ORDERED TEST:ORDER TYPE (#5)
DISPOSITION (#10)
ORDERED TEST:ORDERED TYPE (#5)
DISPOSITION (#10)
ORDERED TEST:ORDER TYPE (#5)
DISPOSITION (#10)
ORDERED TEST:ORDER TYPE (#5)
DISPOSITION (#10)
ORDERED TEST:ORDER TYPE (#5)
DISPOSITION (#10)
LAB REPORTS (#64.5) CUMULATIVE REPORT PAGES:CUMULATIVE REPORT PAGES (#.01)
LABORATORY TEST (#60) ORDERED TEST:LAB TEST ORDERED (#13)
PARENT TEST (#14)
EM PROCEDURE:EM PROCEDURE (#.01)
STAIN/PROCEDURE:STAIN/PROCEDURE (#.01)
ORDERED TEST:LAB TEST ORDERED (#13)
PARENT TEST (#14)
ORDERED TEST:LAB TEST ORDERED (#13)
PARENT TEST (#14)
ORDERED TEST:LAB TEST ORDERED (#13)
PARENT TEST (#14)
ORDERED TEST:LAB TEST ORDERED (#13)
PARENT TEST (#14)
FIELD^NL^3^10:SURGICAL WORKLOAD PROFILE (#.02)
STAIN/PROCEDURE:STAIN/PROCEDURE (#.01)
PLASTIC STAIN/PROCEDURE:PLASTIC STAIN/PROCEDURE (#.01)
STAIN/PROCEDURE:STAIN/PROCEDURE (#.01)
FIELD^NL^5^9:WORKLOAD PROFILE (#.02)
PREPARED SLIDES STAIN:PREPARED SLIDES STAIN (#.01)
CYTOSPIN STAIN:CYTOSPIN STAIN (#.01)
STAIN/PROCEDURE:STAIN/PROCEDURE (#.01)
CELL BLOCK STAIN:CELL BLOCK STAIN (#.01)
MEMBRANE FILTER STAIN:MEMBRANE FILTER STAIN (#.01)
MORPHOLOGY FIELD (#61.1) MORPHOLOGY:MORPHOLOGY (#.01)
MORPHOLOGY:MORPHOLOGY (#.01)
MORPHOLOGY:MORPHOLOGY (#.01)
MORPHOLOGY:MORPHOLOGY (#.01)
NEW PERSON (#200) REPORT ROUTING (PROVIDER) (#.101)
PHYSICIAN (#12.1)
RESIDENT PATHOLOGIST (#13.5)
SENIOR PATHOLOGIST (#13.6)
AUTOPSY ASSISTANT (#13.8)
AUTOPSY RELEASED BY (#14.8)
PERSON MODIFYING TEXT (#102.1)
BLOOD BANK:ENTERING PERSON (#.04)
PHYSICIAN (#.07)
PHLEBOTOMIST (#.09)
ABO TYPING TECH (#10.2)
RH TYPING TECH (#11.2)
TRANSFUSION RECORD:ENTERING PERSON (#.04)
TRANSFUSION REACTION DATE:PERSON ENTERING REACTION (#.03)
FIELD^NL^2005^43:PATHOLOGIST (#.02)
RESIDENT OR EMTECH (#.021)
PHYSICIAN (#.07)
RELEASED BY (#.13)
PERSON MODIFYING TEXT (#.171)
DATE DIAGNOSIS MODIFIED:PERSON MODIFYING TEXT (#.02)
DATE GROSS DESCRIPTION CHANGED:PERSON MODIFYING TEXT (#.02)
CHEM, HEM, TOX, RIA, SER, etc.:VERIFY PERSON (#.04)
REQUESTING PERSON (#.1)
COMMENT:PERSON (#1)
MICROBIOLOGY:VERIFY PERSON (#.04)
PHYSICIAN (#.07)
BACT PERSON (#11.55)
MIC PERSON (#11.56)
PARASITE ENTERING PERSON (#15.5)
MYC PERSON (#19.5)
TB ENTERING PERSON (#25.5)
VIROLOGY ENTERING PERSON (#35)
ORDERED TEST:ORDERING PROVIDER LOCAL (#6)
DISPOSITION BY (#12)
FIELD^NL^2005^45:PATHOLOGIST (#.02)
RESIDENT PATHOLOGIST (#.021)
SURGEON/PHYSICIAN (#.07)
RELEASED BY (#.13)
PERSON MODIFYING TEXT (#.171)
BLOOD COMPONENT REQUEST:ENTERING PERSON (#.08)
DATE DIAGNOSIS MODIFIED:PERSON MODIFYING TEXT (#.02)
DATE FROZEN SECTION MODIFIED:PERSON MODIFYING TEXT (#.02)
DATE GROSS DESCRIPTION CHANGED:PERSON MODIFYING TEXT (#.02)
FIELD^NL^2005^44:PATHOLOGIST/CYTOTECHNOLOGIST (#.02)
CYTOTECH (#.021)
PHYSICIAN (#.07)
RELEASED BY (#.13)
PERSON MODIFYING TEXT (#.171)
DATE DIAGNOSIS MODIFIED:PERSON MODIFYING TEXT (#.02)
DATE GROSS DESCRIPTION CHANGED:PERSON MODIFYING TEXT (#.02)
SUPPLEMENTARY REPORT MODIFIED:PERSON MODIFYING TEXT (#.02)
PERSON RELEASING THE SUPP. RPT (#.03)
DATE MICROSCOPIC EXAM MODIFIED:PERSON MODIFYING TEXT (#.02)
SUPPLEMENTARY REPORT MODIFIED:PERSON MODIFYING TEXT (#.02)
PERSON RELEASING THE SUPP. RPT (#.03)
ORDERED TEST:ORDERING PROVIDER LOCAL (#6)
DISPOSITION BY (#12)
ORDERED TEST:ORDERING PROVIDER LOCAL (#6)
DISPOSITION BY (#12)
ORDERED TEST:ORDERING PROVIDER LOCAL (#6)
DISPOSITION BY (#12)
ORDERED TEST:ORDERING PROVIDER LOCAL (#6)
DISPOSITION BY (#12)
MICROBIOLOGY AUDIT:LAB TECH (#2)
SUPPLEMENTARY REPORT MODIFIED:PERSON MODIFYING TEXT (#.02)
PERSON RELEASING THE SUPP. RPT (#.03)
DATE MICROSCOPIC EXAM MODIFIED:PERSON MODIFYING TEXT (#.02)
SUPPLEMENTARY REPORT MODIFIED:PERSON MODIFYING TEXT (#.02)
PERSON RELEASING THE SUPP. RPT (#.03)
DATE MICROSCOPIC EXAM MODIFIED:PERSON MODIFYING TEXT (#.02)
ORDER (#100) ORDERED TEST:CPRS ORDER # (#3)
ORDERED TEST:CPRS ORDER # (#3)
ORDERED TEST:CPRS ORDER # (#3)
ORDERED TEST:CPRS ORDER # (#3)
ORDERED TEST:CPRS ORDER # (#3)
PROCEDURE FIELD (#61.5) PROCEDURE:PROCEDURE (#.01)
PROCEDURE:PROCEDURE (#.01)
PROCEDURE:PROCEDURE (#.01)
PROCEDURE:PROCEDURE (#.01)
TIU DOCUMENT (#8925) TIU REFERENCE DATE/TIME - AU:TIU ENTRY POINTER - AU (#1)
TIU REFERENCE DATE/TIME - SP:TIU ENTRY POINTER - SP (#1)
TIU REFERENCE DATE/TIME - CY:TIU ENTRY POINTER - CY (#1)
TIU REFERENCE DATE/TIME - EM:TIU ENTRY POINTER - EM (#1)
TOPOGRAPHY FIELD (#61) BLOOD BANK:SPECIMEN (#.05)
CHEM, HEM, TOX, RIA, SER, etc.:SPECIMEN TYPE (#.05)
MICROBIOLOGY:SITE/SPECIMEN (#.05)
ORDERED TEST:SPECIMEN TOPOGRAPHY (#8)
ORGAN/TISSUE:ORGAN/TISSUE (#.01)
AUTOPSY ORGAN/TISSUE:AUTOPSY ORGAN/TISSUE (#.01)
FIELD^NL^1^4:SPECIMEN TOPOGRAPHY (#.06)
EM ORGAN/TISSUE:EM ORGAN/TISSUE (#.01)
ORDERED TEST:SPECIMEN TOPOGRAPHY (#8)
ORDERED TEST:SPECIMEN TOPOGRAPHY (#8)
ORDERED TEST:SPECIMEN TOPOGRAPHY (#8)
ORDERED TEST:SPECIMEN TOPOGRAPHY (#8)
FIELD^NL^3^10:SPECIMEN TOPOGRAPHY (#.06)
FIELD^NL^5^9:SPECIMEN TOPOGRAPHY (#.06)
CYTOPATH ORGAN/TISSUE:CYTOPATH ORGAN/TISSUE (#.01)
URGENCY (#62.05) ORDERED TEST:ORDERED URGENCY (#2)
ORDERED TEST:ORDERED URGENCY (#2)
ORDERED TEST:ORDERED URGENCY (#2)
ORDERED TEST:ORDERED URGENCY (#2)
ORDERED TEST:ORDERED URGENCY (#2)
Subfile #63.00013
Record Indexes:
AD (#1051) RECORD REGULAR IR SORTING ONLY
Short Descr: Index to identify reference by type
Description: This index is used to identify those entries which relate to a specific type of external package reference.
Example is an entry that contains the related surgical package case ien to link to a surgical pathology report
when the report is related to a surgery case.
Set Logic: S ^LR(DA(1),"EPR","AD",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"EPR","AD",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"EPR","AD")
X(1): LAB DATA REFERENCE (63.00013,.01) (Subscr 1) (forwards)
X(2): TYPE OF REFERENCE (63.00013,.02) (Subscr 2) (forwards)
Subfile #63.00014
Record Indexes:
AD (#1054) RECORD REGULAR IR SORTING ONLY
Short Descr: Index to identify reference by role
Description: This index is used to identify those entries which relate to a specific type of code system role.
Set Logic: S ^LR(DA(1),"CSR","AD",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"CSR","AD",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"CSR","AD")
X(1): LAB DATA REFERENCE (63.00014,.01) (Subscr 1) (forwards)
X(2): ROLE (63.00014,.02) (Subscr 2) (forwards)
AE (#1055) RECORD REGULAR IR SORTING ONLY
Short Descr: Index to identify reference by role/code system.
Description: This index is used to identify those entries which relate to a specific role and code system. There maybe
multiple codes related to a specific role that come from different code systems.
Set Logic: S ^LR(DA(1),"CSR","AE",X(1),X(2),X(3),X(4),DA)=""
Kill Logic: K ^LR(DA(1),"CSR","AE",X(1),X(2),X(3),X(4),DA)
Whole Kill: K ^LR(DA(1),"CSR","AE")
X(1): LAB DATA REFERENCE (63.00014,.01) (Subscr 1) (forwards)
X(2): ROLE (63.00014,.02) (Subscr 2) (forwards)
X(3): NAME OF CODE SYSTEM (63.00014,.04) (Subscr 3) (forwards)
X(4): CODE ID (63.00014,.03) (Subscr 4) (forwards)
INPUT TEMPLATE(S):
LR ANAEROBIC PANEL MAR 28, 1985 USER #0
LR C&S JUL 21, 1986 USER #0
LR DEFAULT FEB 24, 1987 USER #0
LR FASTIDIOUS ORGANISM MAR 28, 1985 USER #0
LR GNR APR 08, 1991@15:52 USER #0
LR GRAM NEG & URINARY MAR 28, 1985 USER #0
LR GRAM POSITIVE MAY 23, 1989@12:49 USER #0
LR MTB JAN 28, 1986 USER #0
LR OTHER JUL 14, 1987 USER #0
LR PSEUDO MAR 13, 1984 USER #0
LR STAPH MAR 17, 1984 USER #0
LR STERILITY DEC 31, 1987 USER #0
LR STREPT MAR 13, 1984 USER #0
LRBLPABRH JUN 28, 1995@12:32 USER #0
LRBLPAG NOV 07, 1996@06:42 USER #0
LRBLPCMBS SEP 10, 1999@10:55 USER #0
LRBLPCS MAR 27, 1997@14:04 USER #0
LRBLPEDIT MAY 26, 1986 USER #0
LRBLPOLD NOV 02, 2001@09:47 USER #0
LRBLPT JUL 30, 1987 USER #0
LRBLPTXR JUN 28, 1993@07:19 USER #0
LRBLSCREEN NOV 02, 2001@09:46 USER #0
LRBLSPP AUG 03, 1988 USER #0
LRCYWK APR 30, 1991@14:33 USER #0
PRINT TEMPLATE(S):
LRSP NOV 07, 1983 USER #0 Anatomic Pathology Cumulative Patient Report
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):