Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ADEDREC

Package: IHS Dental System

Global: ^ADEDREC


Information

FileMan FileNo FileMan Filename Package
9002002.23 ADE GENERIC RECORD IHS Dental System

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Dental System 1 ADEDEDRC    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
IHS Dental System 6 ADE GENERIC ACTIVITY(#9002002.24)[2]    ADE GENERIC PROVIDER(#9002002.22)[99]    ADE GENERIC PURPOSE(#9002002.25)[4, 5]    ADE GENERIC RECIPIENT(#9002002.26)[13]    ADE GENERIC REFERRAL(#9002002.27)[15, 16]    ADE GENERIC SETTING(#9002002.28)[14]    
Utility Tables 1 COMMUNITY(#9999999.05)[1]    

Fields, Total: 27

Field # Name Loc Type Details
.01 DATE OF ACTIVITY 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1988 AND TODAY
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DATE OF ACTIVITY
  • CROSS-REFERENCE:  9002002.23^B
    1)= S ^ADEDREC("B",$E(X,1,30),DA)=""
    2)= K ^ADEDREC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002002.23^AC^MUMPS
    1)= S DIC("DR")=""
    2)= Q
1 COMMUNITY SERVED 0;2 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • HELP-PROMPT:  ENTER A VALID COMMUNITY SERVED
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID COMMUNITY SERVED
2 ACTIVITY TYPE 0;3 POINTER TO ADE GENERIC ACTIVITY FILE (#9002002.24)
************************REQUIRED FIELD************************
ADE GENERIC ACTIVITY(#9002002.24)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  You must enter an activity from the list, or enter ?? to see information on narrative HELP.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ACTIVITY TYPE
3 NUMBER SERVED 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>15000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Type a Number between 0 and 15000, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID NUMBER SERVED
4 PRIMARY PURPOSE 0;5 POINTER TO ADE GENERIC PURPOSE FILE (#9002002.25) ADE GENERIC PURPOSE(#9002002.25)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID PRIMARY PURPOSE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PRIMARY PURPOSE
5 SECONDARY PURPOSE 0;6 POINTER TO ADE GENERIC PURPOSE FILE (#9002002.25) ADE GENERIC PURPOSE(#9002002.25)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID SECONDARY PURPOSE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SECONDARY PURPOSE
6 TRAVEL HOURS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<.25)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Type the number of hours traveled to provide a service. Travel Hours can be from .25 to 999.99.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TRAVEL HOURS
7 ACTIVITY HOURS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<.25)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 23, 1990
  • HELP-PROMPT:  Type a Number between .25 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ACTIVITY HOURS
8 TRAVEL REQUIRED 0;9 SET
  • 'N' FOR LOCAL TRAVEL ONLY;
  • '1' FOR LESS THAN ONE HOUR;
  • '2' FOR GREATER THAN ONE HOUR;

  • LAST EDITED:  JUL 03, 1990
  • HELP-PROMPT:  ENTER CODE OF ESTIMATED TRAVEL TIME INVOLVED.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TRAVEL REQUIRED
9 FLAG2 0;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  ENTER A VALID FLAG2
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID FLAG2
10 IHS CHART NO 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID IHS CHART NO
11 FLAG3 0;12 SET
  • 'A' FOR 1;
  • 'B' FOR 2;
  • 'C' FOR 3;
  • 'D' FOR 4;
  • 'E' FOR 9;
  • 'F' FOR F;

  • HELP-PROMPT:  ENTER A VALID FLAG3
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID FLAG3
12 FLAG4 0;13 SET
  • 'A' FOR A;
  • 'B' FOR B;
  • 'C' FOR C;
  • 'D' FOR D;
  • 'E' FOR E;
  • 'F' FOR F;

  • HELP-PROMPT:  ENTER A VALID FLAG4
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID FLAG4
13 RECIPIENT 0;14 POINTER TO ADE GENERIC RECIPIENT FILE (#9002002.26)
************************REQUIRED FIELD************************
ADE GENERIC RECIPIENT(#9002002.26)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID RECIPIENT
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID RECIPIENT
14 SETTING 0;15 POINTER TO ADE GENERIC SETTING FILE (#9002002.28) ADE GENERIC SETTING(#9002002.28)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A CODE TO REPRESENT WHERE THIS ACTIVITY TOOK PLACE.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SETTING
15 REFER TO 0;16 POINTER TO ADE GENERIC REFERRAL FILE (#9002002.27) ADE GENERIC REFERRAL(#9002002.27)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID REFER TO
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID REFER TO
16 REFER FM 0;17 POINTER TO ADE GENERIC REFERRAL FILE (#9002002.27) ADE GENERIC REFERRAL(#9002002.27)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID REFER FM
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID REFER FM
18 AGE 0;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>130)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 130, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID AGE
19 SEX 0;21 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • HELP-PROMPT:  ENTER A VALID SEX
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SEX
21 COMMENTS 0;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 02, 1990
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID COMMENTS
22 SUB-RECIPIENT 0;24 SET
  • '1' FOR 1;
  • '2' FOR 2;
  • '3' FOR 3;
  • '4' FOR 4;
  • '5' FOR 5;
  • '6' FOR 6;
  • '7' FOR 7;
  • '8' FOR 8;
  • '9' FOR 9;
  • '10' FOR 10;

  • HELP-PROMPT:  ENTER A VALID SUB-RECIPIENT
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID SUB-RECIPIENT
23 ACTIVITY MINUTES 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type the number of minutes it took to provide the service. Activity Minutes can be from 1 to 999.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID ACTIVITY MINUTES
24 TRAVEL MINUTES 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type the number of minutes traveled to provide a service. Travel Minutes can be from 1 to 999.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TRAVEL MINUTES
25 ACTIVITY TIME COMPUTED

  • MUMPS CODE:  X ^DD(9002002.23,25,9.2) S Y=X,X=Y(9002002.23,25,2),X=X+Y S X=$J(X,0,2)
    9.2 = S Y(9002002.23,25,1)=$S($D(^ADEDREC(D0,0)):^(0),1:"") S X=$P(Y(9002002.23,25,1),U,8),Y(9002002.23,25,2)=X S X=$P(Y(9002002.23,25,1),U,19)/60
  • ALGORITHM:  #7+(#23/60) (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  MAR 08, 1990
  • SUM:  S X=S("9002002.23^7"),Y(1)=X S X=S("9002002.23^23")/60,Y=X,X=Y(1),X=X+Y S Y=X
26 TRAVEL TIME COMPUTED

  • MUMPS CODE:  X ^DD(9002002.23,26,9.2) S Y=X,X=Y(9002002.23,26,2),X=X+Y
    9.2 = S Y(9002002.23,26,1)=$S($D(^ADEDREC(D0,0)):^(0),1:"") S X=$P(Y(9002002.23,26,1),U,7),Y(9002002.23,26,2)=X S X=$P(Y(9002002.23,26,1),U,22)/60
  • ALGORITHM:  #6+(#24/60)
  • LAST EDITED:  MAR 08, 1990
  • SUM:  S X=S("9002002.23^6"),Y(1)=X S X=S("9002002.23^24")/60,Y=X,X=Y(1),X=X+Y S Y=X
98 TRANSMIT FLAG 0;25 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER A VALID TRANSMIT FLAG
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TRANSMIT FLAG
99 PROVIDER 0;18 POINTER TO ADE GENERIC PROVIDER FILE (#9002002.22)
************************REQUIRED FIELD************************
ADE GENERIC PROVIDER(#9002002.22)

  • LAST EDITED:  DEC 30, 1992
  • HELP-PROMPT:  ENTER A VALID PROVIDER
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID PROVIDER
  • CROSS-REFERENCE:  9002002.23^C
    1)= S ^ADEDREC("C",$E(X,1,30),DA)=""
    2)= K ^ADEDREC("C",$E(X,1,30),DA)
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All