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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ADEKNT

Package: IHS Dental System

Global: ^ADEKNT


Information

FileMan FileNo FileMan Filename Package
9002009.7 DENTAL OBJECTIVE COUNT IHS Dental System

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
IHS Dental System 4 ADE697C    ADEKNT3    ADEKRP    ADEKSAV    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Dental System 2 ADE697C    ADEKNT3    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Dental System 1 DENTAL PROGRAM OBJECTIVE(#9002009.6)[.07]    
Utility Tables 1 LOCATION(#9999999.06)[.11]    

Fields, Total: 10

Field # Name Loc Type Details
.01 YEAR.QUARTER.OBJECTIVE.AGE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<6)!'(X?4N1"."1N1".".E) X
  • LAST EDITED:  SEP 04, 1998
  • HELP-PROMPT:  Answer YEAR as YYYY (i.e. 1998).
  • TECHNICAL DESCR:  Y2K CHANGES MADE BY FRED LEPKER IN 9/98. PREVIOUSLY, THE YEAR PART OF THIS STRING WAS IN THE FORMAT YY. IN ORDER FOR THIS FILE TO WORK CORRECTLY AFTER THE YEAR 2000, THE YEAR PART OF THIS STRING MUST BE YYYY (i.e. 1998).
    THE LENGTH, PATTERN MATCH, AND SHORT HELP FIELDS WERE CHANGED TO FACILITATE THIS.
  • CROSS-REFERENCE:  9002009.7^B
    1)= S ^ADEKNT("B",$E(X,1,30),DA)=""
    2)= K ^ADEKNT("B",$E(X,1,30),DA)
.02 QUARTER COUNT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 15, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 2 Decimal Digits
  • TECHNICAL DESCR:  
    12/15/03 - LSL - Modified to allow 2 decimal for RVU compilation
.03 1-YEAR COUNT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 15, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 2 Decimal Digits
  • TECHNICAL DESCR:  
    12/15/03 - LSL - Modified to allow 2 decimal digits for RVU compilation
.04 3-YEAR COUNT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 15, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 2 Decimal Digits
  • TECHNICAL DESCR:  
    12/15/03 - LSL - Modified to allow 2 decimal digits for RVU compilation
.05 YEAR 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2200)!(X<1981)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 04, 1998
  • HELP-PROMPT:  Type a Number between 1981 and 2200, 0 Decimal Digits
  • TECHNICAL DESCR:  
    Y2K CHANGE BY FRED LEPKER 9/98. CHANGED RANGE FROM 1981-2010 TO 1981-2200.
.06 QUARTER 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 1994
  • HELP-PROMPT:  Type a Number between 1 and 4, 0 Decimal Digits
.07 OBJECTIVE 0;7 POINTER TO DENTAL PROGRAM OBJECTIVE FILE (#9002009.6) DENTAL PROGRAM OBJECTIVE(#9002009.6)

  • LAST EDITED:  JUN 30, 1994
.08 LOWER AGE 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>125)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 06, 1997
  • HELP-PROMPT:  Type a Number between 0 and 125, 0 Decimal Digits
  • CROSS-REFERENCE:  9002009.7^AD^MUMPS
    1)= S:$L($P(^ADEKNT(DA,0),U),".")=4 ^ADEKNT("AD",$P($P(^ADEKNT(DA,0),U),".",1,3),X,DA)=""
    2)= K:$L($P(^ADEKNT(DA,0),U),".")=4 ^ADEKNT("AD",$P($P(^ADEKNT(DA,0),U),".",1,3),X)
  • CROSS-REFERENCE:  9002009.7^AF^MUMPS
    1)= S:$L($P(^ADEKNT(DA,0),U),".")=5 ^ADEKNT("AF",$P($P(^ADEKNT(DA,0),U),".",1,3)_"."_$P($P(^ADEKNT(DA,0),U),".",5),X,DA)=""
    2)= K:$L($P(^ADEKNT(DA,0),U),".")=5 ^ADEKNT("AF",$P($P(^ADEKNT(DA,0),U),".",1,3)_"."_$P($P(^ADEKNT(DA,0),U),".",5),X)
    FACILITY-LEVEL CROSS REFERENCE.
.09 UPPER AGE 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>125)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 1994
  • HELP-PROMPT:  Type a Number between 0 and 125, 0 Decimal Digits
.11 LOCATION 0;11 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  JAN 06, 1997
  • HELP-PROMPT:  ENTER A VALID LOCATION
  • DESCRIPTION:  
    LOCATION OF OBJECTIVE COUNT
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All