Global: ^DENT(220

FileMan FileNo	FileMan Filename	Package
220	DENTAL PATIENT	Dental

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

Package	Total	Routines
Dental	2	DENTCPM DENTSCR

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.`

>>	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)

Customize PDF page

Package: Dental

Global: ^DENT(220

Information

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 4

Fields, Total: 28

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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)