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

Package: Lab Service

LAB MONTHLY WORKLOADS(#67.9)-->67.901-->67.911-->67.9114

Sub-Field: 67.9114


Information

Parent File Name Number Package
67.911 WKLD CODE 67.9114 Lab Service

Details

Field # Name Loc Type Details
.01 WKLD CODE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!('$D(^LAM("E",X))) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 9-10 characters in length.
  • DESCRIPTION:  
    This is the workload code. (a number)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.9114^B
    1)= S ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^67.9114^.03
    1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIG^LRXREF X ^DD(67.9114,.01,1,
    2,1.4)
    1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=67.9114,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(67.9114,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=67.9114,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= D TRIG^LRXREF
    DELETE VALUE)= @
    FIELD)= WKLD CODE NAME
    This trigger will stuf the WKLD code name into field .03.
.03 WKLD CODE NAME 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This is the actual name of the WKLD code.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the MONTH sub-field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File
1 IN PATIENT CNT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of inpatient counts.
2 OUT PATIENT CNT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of out-patient counts.
3 OTHER PATIENT CNT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of other patient counts.
4 QC CNT 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of QC counts.
5 IN PATIENT STATS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of in-patient STATS.
6 TOT STATS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of all STATS.
7 MANUAL INPUT DATA 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 27, 1992
  • HELP-PROMPT:  Type a Number between 0 and 1000000, 0 Decimal Digits
  • DESCRIPTION:  
    Number of data put in manually.
7.5 SEND OUT TEST 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 21, 1993
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits
  • DESCRIPTION:  This field contain the test which are performed by some other lab than the one filing LMIP reports. All test sent of a reference/referral lab, research lab, medical school, commercial are included in this total.
    The suffix portion of the WKLD code determine if the procedure is send out (.8000-.8999)
  • TECHNICAL DESCR:  
    This field is the same for total for all send out/referred testing. Only wkld codes with a suffix between 8000-8999 will have a value in this field.
8 TREATING SPECIALITY 1;0 Multiple #67.91148 67.91148

  • LAST EDITED:  MAY 28, 1992
  • DESCRIPTION:  
    Multiple field. Containing data about the treating specialty.
9 REPORTABLE TEST COUNT COMPUTED

  • MUMPS CODE:  X ^DD(67.9114,9,9.2) S X=X+$P(Y(67.9114,9,1),U,8) S X=$J(X,0,0)
    9.2 = S Y(67.9114,9,1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(67.9114,9,1),U,2)+$P(Y(67.9114,9,1),U,3)+$P(Y(67.9114,9,1),U,4)
  • ALGORITHM:  IN PATIENT CNT+OUT PATIENT CNT+OTHER PATIENT CNT+MANUAL INPUT DATA (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    Number of reportable test counts.
10 LMIP BILLABLE TEST 2;1 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 20, 1993
  • HELP-PROMPT:  Answer yes if this procedure should be reported to LMIP
  • DESCRIPTION:  
    If this procedure should be reported to the National Data base as an LMIP defined procedure, this field will be set to yes by the data extracting program. This field should not be manually edited. To have this field set
    to yes, edit the BILLABLE PROCEDURE field in the WKLD CODE (#64) file.
  • TECHNICAL DESCR:  
    When the data is transferred to the MONTHLY WORKLOAD file at the end of each month this field is marked accordingly.
11 REP/STD 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<-10000)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 08, 1993
  • HELP-PROMPT:  Type a Number between -10000 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the total for repeat, dilutions and standards for the WKLD code.
12 OTHERS 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 31, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used for all other types of specimens not coming from the Patient file, Lab Control file or the Referral Patient.
Info |  Details