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

Package: Lab Service

LAB DATA(#63)-->63.08-->63.089

Sub-Field: 63.089


Information

Parent File Name Number Package
63.08 QA CODE 63.089 Lab Service

Details

Field # Name Loc Type Details
.01 QA CODE 0;1 POINTER TO LAB DESCRIPTIONS FILE (#62.5) LAB DESCRIPTIONS(#62.5)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  SEP 16, 1990
  • HELP-PROMPT:  QA codes must be less than 3 characters.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
  • EXPLANATION:  Selects entries with less than 3 characters
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details