Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LAB(64.2

Package: Lab Service

Global: ^LAB(64.2


Information

FileMan FileNo FileMan Filename Package
64.2 WKLD SUFFIX CODES Lab Service

Description

Directly Accessed By Routines, Total: 35

Package Total Routines
Lab Service 27 LR105    LR105PO    LR163    LR232    LR258PO    LR274POA    LR302A    LR302PO
LR302POA    LR334PO    LR334POA    LRARC1A    LRARCR1A    LRARCR2    LRCAPR1A    LRIPOS
SYNONYM    ^LAB(62.4    ^LAB(64.2    ^LRO(68.2    LRCAPR2    LRCAPV    LRCKFLAA    LRIPRE2
LRLNCC    LRLNCLK    LRVRPOCU    
Automated Lab Instruments 5 LA7COBRA    LA7COBXA    LA7PCFG    LA7VOBRA    LA7VOBXA    
IHS Lab LOINC Surveillance 2 BLSMIT    BLSULLF    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Lab Service 5 LR105PO    LR232P    LRCAPBV    LRCAPBV1    LRCAPV11    
Automated Lab Instruments 4 LA7COBRA    LA7COBXA    LA7VOBRA    LA7VOBXA    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Lab Service 3 AUTO INSTRUMENT(#62.4)[.14]    LAB LOINC(#95.3)[6]    LOAD/WORK LIST(#68.2)[.14, #68.24(3)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Lab Service 3 WKLD CODE LAB SECT(#64.21)[12]    WKLD ITEM FOR COUNT(#64.22)[6]    WKLD INSTRUMENT MANUFACTURER(#64.3)[11]    

Fields, Total: 18

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X["""" X I $D(X) K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  NOV 10, 2004
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  Name of the method to be used in LMIP workload recording. The starting data base was obtained from College of Clinical Pathologist (CAP) Laboratory Recording Method manual by permission of the college. Howver the CAP codes
    have been expanded and new numbering scheme developed by Department of Veteran Affairs. These entries support the Workload recording file design to allow automated collection and reporting of laboratory workload.
  • DELETE TEST:  1,0)= I 1
    UNEDITABLE
  • CROSS-REFERENCE:  64.2^B
    1)= S ^LAB(64.2,"B",$E(X,1,50),DA)=""
    2)= K ^LAB(64.2,"B",$E(X,1,50),DA)
  • CROSS-REFERENCE:  64.2^VR^MUMPS
    1)= S ^LAB(64.2,"VR")=$G(^LAB(64.2,"VR"))
    2)= Q
    3)= Indicates which data version
    This X-Ref is to track which version of data has been installed.
.05 SYNONYM 1;0 Multiple #64.23 64.23

  • DESCRIPTION:  
    This field is used for a shorten name or alternate identifier.
1 WKLD SUFFIX CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X1=$P(X,".",2) Q:X1="0000" K:X1>9999!(X1<1)!(X'?1"."4.5N) X I $D(X),$D(^LAB(64.2,"F",X)) D EN^DDIOL("Duplicate Code","","!?20") K X
  • LAST EDITED:  SEP 24, 2012
  • HELP-PROMPT:  Type a Number between .0001 and .9999, 4 Decimal Digits
  • DESCRIPTION:  
    Enter the four digit suffix code, including the decimal point, for this instrument and manufacturer.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.2^C
    1)= S ^LAB(64.2,"C",$E(X,1,30)_" ",DA)=""
    2)= K ^LAB(64.2,"C",$E(X,1,30)_" ",DA)
  • CROSS-REFERENCE:  64.2^F
    1)= S ^LAB(64.2,"F",$E(X,1,30),DA)=""
    2)= K ^LAB(64.2,"F",$E(X,1,30),DA)
2 UNIT WEIGHT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 17, 1995
  • HELP-PROMPT:  Type a Number between .1 and 999, 1 Decimal Digit
  • DESCRIPTION:  
    The numerical value assigned to this suffix should be entered in this field.
4 BILLABLE PROCEDURE 0;5 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 09, 1993
  • DESCRIPTION:  
    Is this procedure reportable with respect to CLIA-88 interpretation of total number of (billable/reportable) test count.
  • TECHNICAL DESCR:  Use this field to determine if this procedure should be included in the total number of reportable test(s) performed on patients. Not all procedures are done on patient(s) specimens or result in a reportable clinical
    value.
5 Reserved 1 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  OCT 20, 1992
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    Enter the segment of the VA Amis form the total value should be entered.
6 UNIT FOR COUNT 0;7 POINTER TO WKLD ITEM FOR COUNT FILE (#64.22) WKLD ITEM FOR COUNT(#64.22)

  • LAST EDITED:  DEC 22, 1990
  • DESCRIPTION:  Defines for each procedure what is to be counted to obtain the raw count.





7
COST
0;10
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X
  • LAST EDITED:  OCT 29, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 10000, 2 Decimal Digits
  • DESCRIPTION:  
    If the site wished to assign a locally derived cost figure for this suffix it can be entered into this field.





8
PRICE
0;11
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>500)!(X<.01) X
  • LAST EDITED:  MAY 07, 1997
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 500, 2 Decimal Digits
  • DESCRIPTION:  This field is not use to determine price or cost. Only the Cost and Price fields of WKLD CODE files are used by reports.
    This field is over written when new codes are constructed by joining prefix code to suffix codes.  Prefix code cost used for all new codes.





9
SORTING GROUP
0;12
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 26, 1993
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This field is intended to be used by the local site. This field is not used by the wkld package, but this field could be used to enable the site to sort on this field using FileMan.





10
SPECIAL CODE
0;13
SET

  • '1' FOR YES;
  • LAST EDITED:  DEC 20, 1989
  • DESCRIPTION:  
    If this suffix code is an experimentally assigned value, enter YES.





11
MANUFACTURER
0;14
POINTER TO WKLD INSTRUMENT MANUFACTURER FILE (#64.3)
WKLD INSTRUMENT MANUFACTURER(#64.3)
  • LAST EDITED:  JUL 14, 1992
  • DESCRIPTION:  
    Enter the manufacturer of the instrument having this WKLD code suffix.
  • CROSS-REFERENCE:  64.2^D
    1)= S ^LAB(64.2,"D",$E(X,1,30),DA)=""
    2)= K ^LAB(64.2,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  64.2^E
    1)= S:$D(^LAB(64.3,+X,0)) ^LAB(64.2,"E",$E($P($G(^LAB(64.3,+X,0)),U),1,50),DA)=""
    2)= K:$D(^LAB(64.3,+X,0)) ^LAB(64.2,"E",$E($P($G(^LAB(64.3,+X,0)),U),1,50),DA)





12
WKLD CODE LAB SECTION
0;15
POINTER TO WKLD CODE LAB SECT FILE (#64.21) 

************************REQUIRED FIELD************************
WKLD CODE LAB SECT(#64.21)
  • LAST EDITED:  MAY 07, 1997
  • DESCRIPTION:  
    This field contains the nationally assign section for this suffix. This field will be used during national rollup.





13
Reserved 3
0;16
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1993
  • HELP-PROMPT:  Type a Number between 1 and 40, 0 Decimal Digits
  • DESCRIPTION:  
    This field is not used by version 5.2. A later version may make use of this field.





15
ACTIVATE WKLD CODE
0;17
SET

  • '1' FOR YES;
  • LAST EDITED:  JAN 12, 1991
  • DESCRIPTION:  
    This field can be used to determine if this suffix has been used in previous reports by setting this field to yes. Then sort on this field using Fileman for print outs.
  • CROSS-REFERENCE:  64.2^AC
    1)= S ^LAB(64.2,"AC",$E(X,1,30),DA)=""
    2)= K ^LAB(64.2,"AC",$E(X,1,30),DA)
    3)= Used to determine active codes at this site





16
BATCH ANALYZER
0;18
SET

  • '1' FOR YES;
  • LAST EDITED:  MAR 29, 1991
  • DESCRIPTION:  
    If this particular suffix is for a batch analyzer, set this field to yes.





18
PRINT NAME
2;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 08, 1993
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the print name of the test.





19
VENDOR
2;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 08, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the normal free text name of the Manufacturer.







External References







Name
Field # of Occurrence




EN^DDIOL
1+1




Y^DIQ
ID11+1








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




^DD(64.3
ID11+1




^LAB(64.2 - [#64.2]
.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 1+1, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 11(XREF 1S), 11(XREF 1K)
, 11(XREF 2S), 11(XREF 2K), 15(XREF 1S), 15(XREF 1K)		




^LAB(64.3 - [#64.3]
ID11+1, 11(XREF 2S), 11(XREF 2K)








Naked Globals







Name
Field # of Occurrence




^(0
ID1+1, ID11+1








Local Variables




  

    
Legend:

    

      
        

           >> 
           Not killed explicitly
          

           * 
          Changed
          

           ! 
          Killed
          

          ~
          Newed
        

      
    

    

  





Name
Field # of Occurrence




%I
ID11+1*!




>> C
ID11+1*




>> DA
.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K)
, 15(XREF 1S), 15(XREF 1K)		




>> DIC
ID11+1




U
ID1+1, ID11+1, 11(XREF 2S), 11(XREF 2K)




X
.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1!, 5+1!
, 7+1*!, 8+1*!, 9+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K), 13+1!, 15(XREF 1S), 15(XREF 1K)
, 18+1!, 19+1!		




>> X1
1+1*




>> Y
ID11+1*








    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
External References | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All