Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^LRT(67.2

Package: Lab Service

Global: ^LRT(67.2


Information

FileMan FileNo FileMan Filename Package
67.2 STERILIZER Lab Service

Description

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Lab Service 2 WKLD LOG FILE(#64.03)[2]    WKLD DATA(#64.1)[#64.1111(9)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.104]    
Lab Service 1 LAB DATA(#63)[63]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    Name of the sterilizer.
  • CROSS-REFERENCE:  67.2^B
    1)= S ^LRT(67.2,"B",$E(X,1,30),DA)=""
    2)= K ^LRT(67.2,"B",$E(X,1,30),DA)
.1 LOCATION .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Location of the sterilizer.
  • CROSS-REFERENCE:  67.2^AC^MUMPS
    1)= S:$D(^LRT(67.2,DA,"LR")) ^LR(+^LRT(67.2,DA,"LR"),.1)=^LRT(67.2,DA,.1)
    2)= K:$D(^LRT(67.2,DA,"LR")) ^LR(+^LRT(67.2,DA,"LR"),.1)
.104 PROVIDER .104;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 14, 1993
  • DESCRIPTION:  
    Name of provider
3 DATE INSTALLED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Date of installation of the sterilizer.
9 IDENTIFIER 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67.2,"C",X,0))>0 K X W *7,!,"Already exists",!
  • LAST EDITED:  OCT 18, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Short description categorizing the sterilizer.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.2^C
    1)= S ^LRT(67.2,"C",$E(X,1,30),DA)=""
    2)= K ^LRT(67.2,"C",$E(X,1,30),DA)
63 LABORATORY REFERENCE LR;1 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  APR 25, 1985
  • HELP-PROMPT:  Any changes to this entry must be made from the lab data entry routines. This is the patient's record number in the lab data file.
  • DESCRIPTION:  
    Sterilizer's record number in the lab data file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields