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.62

Package: Lab Service

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

Sub-Field: 69.62


Information

Parent File Name Number Package
69.61 TEST TO DISPLAY 69.62 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:  JUL 19, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
.01 TEST TO DISPLAY 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
  • DESCRIPTION:  Most recent results, if any, will be displayed for tests selected
    associated with a specimen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)[""CH"""
  • EXPLANATION:  Selects only single chem, hem, tox, ser, etc. tests
.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),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:  NOV 04, 1985
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details