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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DENT(220

Package: Dental

Global: ^DENT(220


Information

FileMan FileNo FileMan Filename Package
220 DENTAL PATIENT Dental

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Dental 7 ^DENT(226    DENTCPM    DENTCPM1    DENTCRD    TP CHART NUM    TREATMENT PLAN #    ^DENT(220    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Dental 2 DENTCPM    DENTSCR    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Dental 3 DENTAL PROVIDER(#220.5)[.09.1#220.03(3)#220.03(5)#220.03(7)#220.03(9)#220.03(11)#220.03(13)#220.03(15)]    DENTAL CLASSIFICATION(#220.2)[70.01]    DENTAL TYPE OF SERVICE(#220.3)[#220.02(.01)]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 28

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  FEB 12, 2009
  • HELP-PROMPT:  PLEASE SELECT NAME OF DENTAL PATIENT
  • DESCRIPTION:  
    ENTER PATIENT'S NAME IN THIS ORDER: LAST, FIRST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  220^B
    1)= S ^DENT(220,"B",$E(X,1,30),DA)=""
    2)= K ^DENT(220,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  AM (#826)
.09 PRIMARY PROVIDER 0;9 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=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAR 19, 2013
  • HELP-PROMPT:  Select this patient's primary dental provider.
  • DESCRIPTION:  
    This field contains the Primary provider for this dental patient.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Only active dental providers
  • CROSS-REFERENCE:  220^AP
    1)= S ^DENT(220,"AP",$E(X,1,30),DA)=""
    2)= K ^DENT(220,"AP",$E(X,1,30),DA)
.1 SECONDARY 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=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAR 19, 2013
  • HELP-PROMPT:  Select this patient's secondary dental provider.
  • DESCRIPTION:  
    This field contains the Secondary provider for this dental patient.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Only active dental providers
  • CROSS-REFERENCE:  220^AS
    1)= S ^DENT(220,"AS",$E(X,1,30),DA)=""
    2)= K ^DENT(220,"AS",$E(X,1,30),DA)
.11 PRIMARY FEE PROVIDER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length
  • DESCRIPTION:  
    If the Primary Provider for the Patient is a Fee Basis provider, then this field will be set to the name of the Fee provider.
.12 SECONDARY FEE PROVIDER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length
  • DESCRIPTION:  
    If the Secondary Provider for the Patient is a Fee Basis provider, then this field will be set to the name of the Fee provider.
1 APPLICATION FOR CARE STATUS 0;2 SET
  • 'N' FOR NEW PATIENT;
  • 'R' FOR READMISSION/REAPPLICATION;
2 PATIENT CATEGORY 0;3 SET
  • '1' FOR EMERGENCY;
  • '2' FOR COMPELLING MEDICAL NEED;
  • '3' FOR EXTENDED CARE;
  • '4' FOR NURSING HOME CARE;
  • '5' FOR DOMICILIARY;
  • '6' FOR SPECIAL PROVISION;
  • '7' FOR PRIORITY 2;
  • '8' FOR PRIORITY 3;

  • LAST EDITED:  AUG 07, 1985
  • DESCRIPTION:  
    ENTER CODE CHOOSE FROM: 01 = EMERGENCY 02 = COMPELLING MEDICAL NEED 03 = EXTENDED CARE 04 = NURSING HOME CARE 05 = DOMICILIARY 06 = SPECIAL PROVISION 07 = PRIORITY 2 08 = PRIORITY 3
    SOURCE OF DATA: Central Office instruction manual (test) on use of Optical Scan
3 FLUORIDE CODE 1 0;4 POINTER ***** TO AN UNDEFINED FILE (#228.2), STORED IN ^DENT(228.2) *******

  • LAST EDITED:  APR 21, 2009
  • HELP-PROMPT:  Select a Transaction that flagged the Fluoride Monitor
  • DESCRIPTION:  
    This field contains the first of two restoration codes that flagged the fluoride monitor.
4 FLUORIDE CODE 2 0;5 POINTER ***** TO AN UNDEFINED FILE (#228.2), STORED IN ^DENT(228.2) *******

  • LAST EDITED:  APR 21, 2009
  • HELP-PROMPT:  Select a Transaction that flagged the Fluoride Monitor
  • DESCRIPTION:  
    This field contains the second of two restoration codes that flagged the fluoride monitor.
5 FLUORIDE MONITOR RUN DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 20, 2009
  • HELP-PROMPT:  Enter the date the fluoride monitor was last run
  • DESCRIPTION:  This field contains the date (only) that the Fluoride Monitor was run for this patient. Because the monitor runs in the background when a user brings up a patient and may potentially process many transactions, it will
    only run once per day for a patient and then store the results so that the next user will not have to wait.
  • NOTES:  TRIGGERED by the FLUORIDE MONITOR FLAG field of the DENTAL PATIENT File
    TRIGGERED by the FLUORIDE RX DATE field of the DENTAL PATIENT File
  • RECORD INDEXES:  AM (#826)
6 FLUORIDE RX DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 20, 2009
  • HELP-PROMPT:  Enter the date a fluoride prescription was given
  • DESCRIPTION:  
    This is the date that a Fluoride prescription was given (written, or prescribed) to the patient that meets the Fluoride Monitor criteria.
  • CROSS-REFERENCE:  ^^TRIGGER^220^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(220,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DENT(220,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=220,DIG=5 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(220,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DENT(220,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=220,DIG=5 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= FLUORIDE MONITOR RUN
    Delete the Fluoride Monitor Run Date when a Fluoride Rx Date is changed so that the monitor is re-run for the patient/date.
7 FLUORIDE MONITOR FLAG 0;8 SET
  • '0' FOR MONITOR IS PROCESSING;
  • '1' FOR MONITOR IS MET (NO FLAG);
  • '2' FOR ALERT PROVIDER (FLAG);

  • LAST EDITED:  APR 21, 2009
  • HELP-PROMPT:  Select the monitor flag, 1=No flag 2=Flag
  • DESCRIPTION:  This field contains the flag for the Fluoride Monitor. A value of 0 (zero) means the monitor is currently running in the background for the patient and the system/application should continue to poll for results. A value
    of 1 means that there is no flag (either no restorative codes, or fluoride was prescribed or treatment was given). A value of 2 means the provider should be flagged that restorative intervention is needed for this
    patient.
  • CROSS-REFERENCE:  ^^TRIGGER^220^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(220,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DENT(220,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=220,DIG=5 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= FLUORIDE MONITOR RUN DATE
    Set the Fluoride Monitor Date to the current date when the Fluoride Monitor Flag is set to denote the monitor has been run.
8 ORAL MALIGNANCY DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
9 PERIAPICAL RADIOGRAPH DATE 1;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
10 BITE WING RADIOGRAPH DATE 1;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
11 PANOGRAPHIC RADIOGRAPH DATE 1;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
12 OTHER RADIOGRAPH DATE 1;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
13 EDENTULOUS NO DENTURES 2;1 SET
  • 'U' FOR UPPER;
  • 'L' FOR LOWER;
  • 'B' FOR BOTH;

  • LAST EDITED:  OCT 27, 1985
14 EDENTULOUS WITH DENTURES 2;2 SET
  • 'U' FOR UPPER;
  • 'L' FOR LOWER;
  • 'B' FOR BOTH;

  • LAST EDITED:  JUL 18, 1985
47 OTHER FINDINGS/REMARKS 5;0 WORD-PROCESSING #220.01
48 TREATMENT PLAN PREPARED DATE 6;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
49 TREATMENT PLAN 7;0 POINTER Multiple #220.02 220.02
50 MEDICAL REVIEW DATE 8;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 23, 2007
  • CROSS-REFERENCE:  220^AC
    1)= S ^DENT(220,"AC",$E(X,1,30),DA)=""
    2)= K ^DENT(220,"AC",$E(X,1,30),DA)
    This cross references by the Medical Review date (Recare Date).
51 TREATMENT PLAN # 9;0 Multiple #220.03 220.03

  • IDENTIFIED BY:  DATE GENERATED(#.1)[R], PROPH PROVIDER(#3)
60 DENTAL ALERTS 12;0 WORD-PROCESSING #220.04

  • DESCRIPTION:  
    Contains the dental alerts for the patient - e.g. Antibiotic Premed, Sedation Premed, etc.
70.01 LAST CLASSIFICATION 10;1 POINTER TO DENTAL CLASSIFICATION FILE (#220.2) DENTAL CLASSIFICATION(#220.2)

  • LAST EDITED:  JUL 17, 2003
  • DESCRIPTION:  This is computer generated. It is the last classification for this patient based upon data filed in file 228.1 for which a transaction was marked as completed or terminated.
    This valued is stuffed from a cross reference on the dental transaction file, 228.2.
70.02 LAST CLASSIFICATION DATE 10;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUL 17, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is computed generated from data entered into file 228.2. This is date of the last classification.
71 TP CHART NUM 11;0 Multiple #220.071 220.071

  • DESCRIPTION:  This multiple contains data used by the Discus Treatment Planning software. That software sequences transactions by patient per day.
    Completed transactions have a chart number of 60 or greater. Chart numbers 0-59 indicate treatment plans. The Discus software allows only one completed chart number per day per patient.
    To sequence the data within a chart number, the Discus software uses the TIME COUNTER field. For each transaction TIME COUNTER must be unique per patient per day.
    The data in this multiple is computer generated from cross references on file 228.2.

External References

Name Field # of Occurrence
^%DT 5+1, 6+1, 8+1, 9+1, 10+1, 11+1, 12+1, 48+1, 50+1, 70.02+1
^DIC .09+1, .1+1
^DICR 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DENT(220 - [#220] .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 50(XREF 1S)
50(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 5+1*, 6+1*, 8+1*, 9+1*, 10+1*, 11+1*, 12+1*, 48+1*, 50+1*, 70.02+1*
>> D0 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
>> DA .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 50(XREF 1S)
50(XREF 1K)
DIC .09+1!*, .1+1!*
DIC("S" .09+1*, .09SCR+1*, .1+1*, .1SCR+1*
>> DIE .09+1, .1+1
>> DIG 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
>> DIH 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
>> DINUM .01+1*
>> DIU 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
DIV 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
DIV(0 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
DT 7(XREF 1S)
U 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
X .01+1, .01(XREF 1S), .01(XREF 1K), .09+1*!, .09(XREF 1S), .09(XREF 1K), .1+1*!, .1(XREF 1S), .1(XREF 1K), .11+1!
, .12+1!, 5+1*!, 6+1*!, 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 8+1*!, 9+1*!, 10+1*!, 11+1*!
, 12+1*!, 48+1*!, 50+1*!, 50(XREF 1S), 50(XREF 1K), 70.02+1*!
Y .09+1, .1+1, 5+1, 6+1, 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 8+1, 9+1, 10+1
, 11+1, 12+1, 48+1, 50+1, 70.02+1
Y(1 6(XREF 1S), 6(XREF 1K), 7(XREF 1S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All