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

Package: Lab Service

FUNCTION FIELD(#61.3)-->61.34

Sub-Field: 61.34


Information

Parent File Name Number Package
FUNCTION FIELD(#61.3) WKLD CODE 61.34 Lab Service

Details

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

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JAN 30, 1991
  • DESCRIPTION:  
    Enter WKLD code(s) associate with this entry.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^61.34^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(61.34,.01,1,1,1.1) X ^DD(61.34,.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(61.3,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.02 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(61.3,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.34,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(61.3,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= WKLD CODE:WKLD CODE
    DELETE VALUE)= @
    FIELD)= WKLD CODE NUMBER
.02 WKLD CODE NUMBER 0;2 NUMBER

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

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 30, 1991
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
Info |  Details |  All