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

Package: Lab Service

WKLD DATA(#64.1)-->64.11-->64.111

Sub-Field: 64.111


Information

Parent File Name Number Package
64.11 WKLD CODE 64.111 Lab Service

Details

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

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • OUTPUT TRANSFORM:  S Y(0)=Y I Y S Y=$P($G(^LAM(+Y,0)),U) I $L(Y) S:$P(^(0),U,5) Y="+"_Y
  • LAST EDITED:  DEC 22, 1993
  • DESCRIPTION:  
    This field points to the WKLD code file 64  This file contains all of the specific information for the code.  The file is up dated by the developing ISC.  All official code will be exported by the package
  • TECHNICAL DESCR:  Not all of the possible combination of WKLD codes or exported with the file. As the site needs a specific method WKLD code the software will generate the required WKLD code and place it into the file.
    All of the basic WKLD codes are exported with the package. The additional WKLD codes are created from the WKLD Suffix code file #64.2.
    Data comes from ^DD(68.14,.01,0)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^64.111^.03
    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(^LRO(64.1,D0,1,D1,1,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,3) X ^DD(64.111,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.111,DIG=.03 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(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(64.111,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^LAM(DA,0),U,3)
    DELETE VALUE)= @
    FIELD)= UNIT WEIGHT
    Automatic stuff of unit weight during STD/QC/REP/MANUAL edit option.
  • CROSS-REFERENCE:  ^^TRIGGER^64.111^.04
    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(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(64.111,.01,1,2,1.1) X ^DD(64.111,.01,1,2,1.4)
    1.1)= S X=DIV S X=$P(^LAM(DA,0),U,11)
    1.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=64.111,DIG=.04 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(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(64.111,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=64.111,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^LAM(DA,0),U,11)
    DELETE VALUE)= @
    FIELD)= CONST
    Auto stuff constituent weight during STD/QC/REPS/MANUAL edit option.
  • CROSS-REFERENCE:  64.111^B
    1)= S ^LRO(64.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(64.1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.03 UNIT WEIGHT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>900)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  SEP 27, 1994
  • HELP-PROMPT:  Type a Number between 0 and 900, 1 Decimal Digit
  • DESCRIPTION:  
    Automatically filled in.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the DATE sub-field of the WKLD DATA File
.04 CONSTITUENT WT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 14, 1991
  • HELP-PROMPT:  Type a Number between 0 and 500, 1 Decimal Digit
  • DESCRIPTION:  
    Automatically filled in.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the DATE sub-field of the WKLD DATA File
1 ACCESSION WKLD CODE TIME 1;0 Multiple #64.1111 64.1111

  • LAST EDITED:  MAR 29, 1991
  • DESCRIPTION:  
    Multiple field. Contains information about the accession.
2 STANDARDS S;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,"S")),U,1))
  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  Type a Number between -1000 and 100000, 0 Decimal Digits
  • DESCRIPTION:  This field will contain the number of standards used in any one day. Since standards are not accessioned, this is the only way to record their number. After each verify session the technologist is prompted for the
    number of standards this run. That number is recorded here.
  • TECHNICAL DESCR:  This field can be changed via a tasked routine. As the technologist is verifying a test, a record is maintained in the ^XTMP("LRCAP" ,$H,DUZ,LAB TEST) global. The task routine looks at this global and add the
    standard count to this field. This will prevent a technologist from being locked out of this field during multiple user attempting to access this node.
    The root of this global contains the number of standards,QC,REPEATS and MANUAL
    to be added to the count.
    ^XTMP("LRCAP",$H,DUZ)=STANDARDS^QC^REPEATS^MANUAL The institution is in the ZTSAVE  array of the task job.
    There is also an edit template provided for manual entry into this field.
3 QC S;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,"S")),U,2))
  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  Type a Number between -1000 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of QC which were done on this date.  This field is similar to the STANDARDS field, except it also contained Quality Control which was accessioned and verified in the normal manner.
  • TECHNICAL DESCR:  
    See the description for STANDARDS
4 REPEATS S;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<-1000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,"S")),U,3))
  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  Type a Number between -1000 and 10000, 0 Decimal Digits
5 MANUAL INPUT WORKLOAD S;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-10000)!(X?.E1"."1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,"S")),U,4))
  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  Type a Number between -10000 and 100000, 0 Decimal Digits
Info |  Details |  All