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

Package: Lab Service

LABORATORY TEST(#60)-->60.12

Sub-Field: 60.12


Information

Parent File Name Number Package
LABORATORY TEST(#60) VERIFY WKLD CODE 60.12 Lab Service

Details

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  NOV 12, 1991
  • DESCRIPTION:  
    The WKLD codes for this test are entered here. Enter only the WKLD codes for the procedures that are done at your hospital for this test.
  • TECHNICAL DESCR:  
    The verification programs look here to determine the prefix to be used to record workload. The suffix is determined by the method defined at the beginning of the verificaton process.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^60.12^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,D1,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(60.12,.01,1,1,1.1) X ^DD(60.12,.01,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=60.12,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,D1,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="" X ^DD(60.12,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=60.12,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= WKLD CODE TEST:WKLD CODE
    DELETE VALUE)= @
    FIELD)= WKLD CODE
  • CROSS-REFERENCE:  60.12^B
    1)= S ^LAB(60,DA(1),9,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(60,DA(1),9,"B",$E(X,1,30),DA)
1 VERIFY WKLD CODE # 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  ANSWER MUST BE 9-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This contains the WKLD codes for this test.
  • TECHNICAL DESCR:  
    This number is suffed by a trigger. The user is not allowed to edit this field.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the VERIFY WKLD CODE field of the VERIFY WKLD CODE sub-field of the LABORATORY TEST File
2 TEST MULTIPLY FACTOR 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  Type a Number between 1 and 20, 0 Decimal Digits
  • DESCRIPTION:  If this WKLD code should be counted more than once, enter the number of times it should be counted to get the total correct workload. If the field is blank, then it will automatically be counted 1 time.
    Note: In version prior to V5.2, this field was named the Default Yes field. That field is not used with V5.2 and greater.
3 PROTECT SUFFIX 0;4 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 11, 1991
  • DESCRIPTION:  If you wish to prevent the suffix from being converted to another suffix during verification. Enter YES in this field.
    Codes which do not have a .0000 suffix need not be protected. They are not changed during verification.
  • TECHNICAL DESCR:  YES in this field will prevent the suffix from being changed during verification.
    NOTE: Suffixes are only changed for the Verification WKLD codes. The WKLD codes found in other files and fields do not have their suffix changed.
Info |  Details