Sub-Field: 69.9113

Parent File	Name	Number	Package
69.911	Patch #	69.9113	Lab Service

Parent File

Name

Number

Package

Patch #

69.9113

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	Patch #	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 28, 1988` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `Enter a patch number if appropriate.` CROSS-REFERENCE: `69.911^C` `1)= S ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)=""` `2)= K ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)` CROSS-REFERENCE: `69.91^C` `1)= S ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)=""` `2)= K ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)`

Patch #

0;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1988
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
Enter a patch number if appropriate.
CROSS-REFERENCE: 69.911^C
1)= S ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)
CROSS-REFERENCE: 69.91^C
1)= S ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)