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

Package: Lab Service

LAB SECTION PRINT(#69.2)-->69.33-->69.34

Sub-Field: 69.34


Information

Parent File Name Number Package
69.33 TEST 69.34 Lab Service

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 10, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 7
.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 10, 1986
.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61)
************************REQUIRED FIELD************************
TOPOGRAPHY FIELD(#61)

  • INPUT TRANSFORM:  I $D(X) S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,"Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test.",! K X
  • LAST EDITED:  FEB 17, 1988
  • HELP-PROMPT:  Specimen test is performed on. This must be a specimen entered in the lab test file for the test specified.
  • EXECUTABLE HELP:  S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I $O(^LAB(60,X(1),0)) W !?5,"SELECT FROM " F II=0:0 S II=+$O(^LAB(60,X(1),1,II)) Q:II<1 I $D(^(II,0)) W !?20,$P(^(0),U)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 VALUE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X I $D(X) K:$E(X)'="<"&($E(X)'=">")&($E(X)'="[")&($E(X)'="=") X
  • LAST EDITED:  FEB 17, 1988
  • HELP-PROMPT:  Enter <,>,[ or = followed by the value
  • EXECUTABLE HELP:  W " Answer must be 2-10 characters in length."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details