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

Package: Dental

DENTAL PATIENT(#220)-->220.03

Sub-Field: 220.03


Information

Parent File Name Number Package
DENTAL PATIENT(#220) TREATMENT PLAN # 220.03 Dental

Details

Field # Name Loc Type Details
.01 TREATMENT PLAN # 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 16, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • CROSS-REFERENCE:  220.03^B
    1)= S ^DENT(220,DA(1),9,"B",$E(X,1,30),DA)=""
    2)= K ^DENT(220,DA(1),9,"B",$E(X,1,30),DA)
.1 DATE GENERATED 0;17 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 16, 1986
1 RX NEEDED 0;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 06, 1986
2 PROPHYLAXIS APPT'S NEEDED 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 2
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP4^DENTCPM1
3 PROPH PROVIDER 0;4 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^DENT(220.5,+Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 22, 1987
  • HELP-PROMPT:  Enter the Name of the PROPHYLAXIS provider.
  • SCREEN:  S DIC("S")="I '$P(^DENT(220.5,+Y,0),U,3)"
  • EXPLANATION:  Screen out inactive PROPHYLAXIS provider
4 PERIODONTAL APPT'S NEEDED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 8
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue
  • EXECUTABLE HELP:  I X="??" D HLP6^DENTCPM1
5 PERIO PROVIDER 0;6 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of the PERIODONTAL provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive PERIODONTAL provider
6 ENDODONTIC APPT'S NEEDED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 8
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP8^DENTCPM1
7 ENDO PROVIDER 0;8 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of the ENDODONTIC provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive ENDODONTIC provider
8 RESTORATIVE APPT'S NEEDED 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 7
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP10^DENTCPM1
9 REST PROVIDER 0;10 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of the RESTORATIVE provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive RESTORATIVE provider
10 SURGICAL APPT'S NEEDED 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 4
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP12^DENTCPM1
11 SURG PROVIDER 0;12 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of SURGICAL provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive SURGICAL provider
12 CROWN/BRIDGE APPT'S NEEDED 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>18)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 18
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP14^DENTCPM1
13 C/B PROVIDER 0;14 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of the CROWN/BRIDGE provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive CROWN/BRIDGE provider
14 REM PROS APPT'S NEEDED 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 5
  • DESCRIPTION:  
    Enter "??" for further information concerning this field, or to continue.
  • EXECUTABLE HELP:  I X="??" D HLP16^DENTCPM1
15 PROS PROVIDER 0;16 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Enter the name of PROS. provider
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Screen out inactive PROS. provider
Info |  Details