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

Package: IHS Dental System

DENTAL FLUORIDATION SURVEILLANCE(#9002002.1)-->9002002.11

Sub-Field: 9002002.11


Information

Parent File Name Number Package
DENTAL FLUORIDATION SURVEILLANCE(#9002002.1) TEST DATE 9002002.11 IHS Dental System

Details

Field # Name Loc Type Details
.01 TEST DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  DEC 01, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1980 AND DT
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TEST DATE
  • CROSS-REFERENCE:  9002002.1^AB
    1)= S ^ADEFLU("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADEFLU("AB",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  9002002.11^AB
    1)= S ^ADEFLU(DA(1),1,"AB",$E(X,1,30),DA)=""
    2)= K ^ADEFLU(DA(1),1,"AB",$E(X,1,30),DA)
1 PPM 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<0)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9, 1 Decimal Digit
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PPM
2 TEST INSTRUMENT TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'S' FOR SPECTROPHOTOMETER;
  • 'C' FOR COLORIMETER;
  • 'I' FOR ION METER;
  • 'A' FOR ANALYSIS;
  • 'O' FOR OTHER;

  • HELP-PROMPT:  ENTER A VALID TEST INSTRUMENT TYPE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TEST INSTRUMENT TYPE
3 ANALYST 0;4 POINTER TO DENTAL EMPLOYEE FILE (#9002010.01)
************************REQUIRED FIELD************************
DENTAL EMPLOYEE(#9002010.01)

  • LAST EDITED:  AUG 05, 1988
  • HELP-PROMPT:  ENTER A VALID ANALYST
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ANALYST
4 EXTRACT FLAG 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 28, 1989
  • HELP-PROMPT:  ENTER A VALID EXTRACT FLAG
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID EXTRACT FLAG
  • CROSS-REFERENCE:  9002002.1^AC
    1)= S ^ADEFLU("AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADEFLU("AC",$E(X,1,30),DA(1),DA)
Info |  Details |  All