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

Package: Lab Service

LABORATORY TEST(#60)-->60.03-->60.14

Sub-Field: 60.14


Information

Parent File Name Number Package
60.03 SAMPLE WKLD CODE 60.14 Lab Service

Details

Field # Name Loc Type Details
.01 SAMPLE WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) WKLD CODE(#64)

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  MAR 07, 1991
  • DESCRIPTION:  If this test has a sample type which should have a specific WKLD code associate with it, enter the WKLD code here.
    Example: Urine electrophoresis always has a urine protein performed.  enter the WKLD code for that procedure here. It will only be counted for collection sample of urine.
    Note: This field is similar to Verify WKLD code sub-file except for the treatment of the suffix and collection sample specific.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^60.14^1
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D1,9,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(60.14,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D1,9,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(60.14,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
    DELETE VALUE)= @
    FIELD)= WKLD CODE
1 SAMPLE WKLD CODE # 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This field contains the actual WKLD Code number.
  • TECHNICAL DESCR:  
    This field is triggered, the user cannot edit this field.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SAMPLE WKLD CODE field of the SAMPLE WKLD CODE sub-field of the COLLECTION SAMPLE sub-field of the LABORATORY TEST File
2 TEST MULTIPLY FACTOR 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 20, 0 Decimal Digits
  • DESCRIPTION:  If this particular WKLD code should be multiplied in order to receive proper count. Enter that number here. The default is 1.
    NOTE: This field is identical the field found in the Verify WKLD code field sub file.
Info |  Details |  All