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

Package: Lab Service

LAB SECTION PRINT(#69.2)-->69.61-->69.63

Sub-Field: 69.63


Information

Parent File Name Number Package
69.61 TEST TO PRINT 69.63 Lab Service

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 01, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
.01 TEST TO PRINT 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:  SEP 18, 1989
.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),61,DA(1),2,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 01, 1986
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All