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

Package: Lab Service

EXECUTE CODE(#62.07)-->62.09

Sub-Field: 62.09


Information

Parent File Name Number Package
EXECUTE CODE(#62.07) EXECUTE WKLD CODE 62.09 Lab Service

Details

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

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  MAR 15, 1991
  • DESCRIPTION:  
    Enter the WKLD codes associated with the execute code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^62.09^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.07,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.09,.01,1,1,1.1) X ^DD(62.09,.01,1,1,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),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) S D1=I(1,0)
    1.4)= S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,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(62.07,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(62.09,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= WKLD CODE:WKLD CODE
    DELETE VALUE)= @
    FIELD)= WKLD CODE NUMBER
1 EXECUTE WKLD CODE # 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<10000)!(X?.E1"."4N.N) X
  • LAST EDITED:  MAR 15, 1991
  • HELP-PROMPT:  Type a Number between 10000 and 99999, 3 Decimal Digits
    WRITE AUTHORITY: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the EXECUTE WKLD CODE field of the EXECUTE WKLD CODE sub-field of the EXECUTE CODE File
2 MULTIPLY FACTOR 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 22, 1990
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    If this particular WKLD code should be multiplied in order to receive proper count, enter that number here. The default is 1. NOTE: This field is identical to the field found in the Verify WKLD code field sub file.
Info |  Details