Sub-Field: 61.34

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

Details

Field # Name Loc Type 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`

.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

Customize PDF page

Package: Lab Service

FUNCTION FIELD(#61.3)-->61.34

Sub-Field: 61.34

Information

Details