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

Package: Lab Service

LABORATORY TEST(#60)-->60.13

Sub-Field: 60.13


Information

Parent File Name Number Package
LABORATORY TEST(#60) ACCESSION WKLD CODE 60.13 Lab Service

Details

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

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  MAR 26, 1991
  • DESCRIPTION:  Enter the WKLD code used to identify the accession workload for this test. This field can be also used for prep procedures, ie inoculating culture plates. This WKLD code count will appear on the date the specimen was
    accessioned into the laboratory.
    This field functions in the same manner as the WKLD codes, except it doesn't require a completion date to be counted.
    For CYTOLOGY SCREENING WORKLOAD the appropriate WKLD codes are
    entered here.
  • TECHNICAL DESCR:  
    The accession programs look to this field to determine if any accession workload should be credited for this test.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^60.13^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,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.13,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(60.13,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= I need the data for WKLD Workload
    CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
    DELETE VALUE)= @
    FIELD)= WKLD CODE NUMBER
    This data is used for lookup when computing WKLD Workload
1 ACCESSION WKLD CODE # 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>90000)!(X<10000)!(X?.E1"."3N.E)!(X?.E1".".E.A) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Type a Number between 10000 and 90000, 3-4 Decimal Digits
  • DESCRIPTION:  
    This field contains the actual WKLD Code number.
  • TECHNICAL DESCR:  
    This field is stuffed by a trigger. The user cannot edit this field
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ACCESSION WKLD CODE field of the ACCESSION WKLD CODE sub-field of the LABORATORY TEST File
2 TEST MULTIPLY FACTOR 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
  • DESCRIPTION:  If this WKLD code should be counted more than once, enter that number here. The default is 1.
    This field is identical to the multiply field in the verification WKLD code sub file.
Info |  Details |  All