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: 68.14

Package: Lab Service

ACCESSION(#68)-->68.01-->68.02-->68.04-->68.14

Sub-Field: 68.14


Information

Parent File Name Number Package
68.04 WKLD CODE 68.14 Lab Service

Details

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

  • OUTPUT TRANSFORM:  S Y(0)=Y I $G(Y) S Y=$P($G(^LAM(+Y(0),0)),U) S:$P($G(^LAM(+Y(0),0)),U,5) Y="+"_$P(^(0),U)
  • LAST EDITED:  APR 29, 1994
  • HELP-PROMPT:  Enter WKLD code for this test.
  • DESCRIPTION:  
    WKLD codes associated with test/procedure are entered here.
  • CROSS-REFERENCE:  68.04^AB
    1)= S ^LRO(68,DA(4),1,DA(3),1,DA(2),4,"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^LRO(68,DA(4),1,DA(3),1,DA(2),4,"AB",$E(X,1,30),DA(1),DA)
.02 TEST MULTIPLY FACTOR 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number of times the WKLD code is used for the test/procedure.
.03 WKLD CODE COUNTED 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 07, 1990
  • DESCRIPTION:  This field is used by the workload compiling routine to prevent the WKLD code from being counted twice. The number 1 indicates the weight has been captured for this WKLD code.
    NOTE: THIS FIELD SHOULD NOT BE MANUALLY EDITED.
.04 WKLD CODE TALLY 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 07, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  A WKLD code may have several individual counts.
    Each time a count is made it is added to the WKLD
    code tally and the WKLD CODE COUNTED flag is set to zero.
.05 WKLD CODE REPEAT COUNT 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 16, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This field is not being presently used. It may be used in the future to automatically capture repeat workload. Another field in ^LRO(64.1, is being used to capture this data from manual entry.
1 COMPLETION TIME 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 1990
  • DESCRIPTION:  
    This field conatins the completion time for this individual WKLD code procedure. It calulated at the time of verification by the routines which stuff the data into this field.
2 USER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    This field contains the person (NEW PERSON file) which verified this particular portion of the test. This field is automatically stuffed at the time of verification.
3 INSTITUTION 0;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  DEC 27, 1990
  • DESCRIPTION:  
    This is the institution the verifying person used when logging on to the system. This field allow the workload from Multi-Div sites to be stored and counted separately.
  • TECHNICAL DESCR:  
    The value of DUZ(2) is used for this field.
4 MAJOR SECTION 0;9 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  MAR 26, 1991
  • DESCRIPTION:  
    This field contains the accession area which should recieve credit for this workload. ie CHEMISTRY
  • TECHNICAL DESCR:  
    This data is obtained when the user selects a worklist. The worklist has this data predefined. The default value is the accession area which contains the data.
5 LAB SUBSECTION 0;10 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  DEC 28, 1990
  • DESCRIPTION:  This the second level used for identifying where workload credit should be credited.
    ie. SPECIAL CHEMISTRY
  • TECHNICAL DESCR:  
    This data is obtained when the user selects a worklist. The worklist has this data predefined. The default is the accession area which contains the data.
6 WORK AREA 0;11 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • INPUT TRANSFORM:  S DIC("S")="I $L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 13, 1991
  • DESCRIPTION:  This is the lowest level used to credit workload. This field may be the same as the LAB SUBSECTION entry.
    i.e., ELECTROPHORESIS
  • TECHNICAL DESCR:  
    This data is obtained when the user selects a worklist. The worklist has this data predefined. The default is the entry in either LAB SUBSECTION  or the value found in MAJOR SECTION entries.
  • SCREEN:  S DIC("S")="I $L($P(^(0),U,17))"
  • EXPLANATION:  Select only accession areas identified as Work Areas.
12 MANUAL EDIT 0;12 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 10, 1991
  • DESCRIPTION:  
    If this data is entered manually via a edit template. This field would indicate if the data was not stuffed automatically.
Info |  Details |  All