Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All
Print Page as PDF
Global: ^ADELOG

Package: IHS Dental System

Global: ^ADELOG


Information

FileMan FileNo FileMan Filename Package
9002009 DENTAL DATA EXTRACTION LOG IHS Dental System

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS Dental System 3 ADEFLEX    ADEFLEX0    ADEXSU    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
IHS Dental System 4 ADEFLEX    ADEFLEX0    ADEXSU    ADEXSU1    

Fields, Total: 6

Field # Name Loc Type Details
.01 DATE EXTRACTION PERFORMED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 1988
  • HELP-PROMPT:  ENTER A VALID DATE EXTRACTION PERFORMED
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DATE EXTRACTION PERFORMED
  • DELETE TEST:  1,0)= I '$D(ADELETE)
  • CROSS-REFERENCE:  9002009^B
    1)= S ^ADELOG("B",$E(X,1,30),DA)=""
    2)= K ^ADELOG("B",$E(X,1,30),DA)
1 BEGINNING DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER A VALID BEGINNING DATE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID BEGINNING DATE
2 ENDING DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER A VALID ENDING DATE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ENDING DATE
3 RECORD COUNT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID RECORD COUNT
4 EXTRACTION TYPE 0;5 SET
  • 'D' FOR DENTAL SERVICE;
  • 'F' FOR FLUORIDATION TRACKING;

  • LAST EDITED:  APR 07, 1988
  • HELP-PROMPT:  ENTER A VALID EXTRACTION TYPE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID EXTRACTION TYPE
  • CROSS-REFERENCE:  9002009^AC
    1)= S ^ADELOG("AC",$E(X,1,30),DA)=""
    2)= K ^ADELOG("AC",$E(X,1,30),DA)
5 STATUS 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  OCT 08, 1993
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  9002009^LAST^MUMPS
    1)= Q:'$D(ADELAST)  N ADENOD S ADENOD=^ADELOG(D0,0) S ^ADELOG("LAST",$P(ADENOD,U,5))=$P(ADENOD,U)_U_X_U_D0
    2)= Q:'$D(ADELAST)
    3)= CROSS REFERENCE USED BY DATA EXTRACTION ROUTINES
    This cross reference stores information pertaining to the latest data extraction.  The cross reference is used by the denta data extraction routines
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All