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

Package: Lab Service

CUMULATIVE(#64.7)-->64.701

Sub-Field: 64.701


Information

Parent File Name Number Package
CUMULATIVE(#64.7) MAJOR HEADER 64.701 Lab Service

Details

Field # Name Loc Type Details
.01 MAJOR HEADER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 18, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  64.701^LGOT^MUMPS
    1)= I $D(^LAC("LRAC",DA(1),1,DA,.5)),$P(^(.5),"^",1)=1 S ^LAC("LGOT",DA(1),DA)=""
    2)= Q
  • CROSS-REFERENCE:  64.701^LGOT^MUMPS
    1)= Q  ;S ^LAC("LGOT",LRDFN,LRMH)="" SET BY PROGRAM (Patient,major header)
    2)= Q
.5 NEW DATA .5;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 18, 1989
1 PAGE NUMBER 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
10 MINOR HEADER 1;0 Multiple #64.703 64.703
Info |  Details |  All