Global: ^DENT(223

FileMan FileNo	FileMan Filename	Package
223	DENTAL CLASS I-VI (AMIS)	Dental

Package	Total	Routines
Dental	4	DENTE2 DENTPUR ^DENT(223 DENTARA

Package	Total	Routines
Dental	2	DENTE1 DENTE2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[60]

Fields, Total: 32

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 1985` CROSS-REFERENCE: `223^B` `1)= S ^DENT(223,"B",$E(X,1,30),DA)=""` `2)= K ^DENT(223,"B",$E(X,1,30),DA)`
.3	STATION.DIVISION	0;29	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S DIC="^DENT(225,",DIC(0)="QEMZ" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC` LAST EDITED: `SEP 15, 1985` HELP-PROMPT: `Select the appropriate station (division) no. for this Dental class I-VI entry` DESCRIPTION: `This is the three digit station number.` EXECUTABLE HELP: `S:$D(D) ZD=D S X="?",DIC="^DENT(225,",DIC(0)="QEM" D ^DIC,N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	TREAT CASES AUTH I	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 29, 1987` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
2	CASES PEND INIT OF TREAT I	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class I cases pending initiation of treatment as of the end of this reporting period.`
3	CASES PEND COMP I	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class I cases pending completion as of the end of this reporting period.`
4	TREAT CASES AUTH II	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class II treatment cases authorized during this reporting period.`
5	CASES PEND INIT OF TREAT II	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class II cases pending initiation of treatment as of the end of this reporting period.`
6	CASES PEND COMP II	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class II cases pending completion as of the end of this reporting period.`
7	TREAT CASES AUTH IIA	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIA treatment cases authorized during this reporting period.`
8	CASES PEND INIT OF TREAT IIA	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIA cases pending initiation of treatment as of the end of this reporting period.`
9	CASES PEND COMP IIA	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIA cases pending completion as of the end of this reporting period.`
10	TREAT CASES AUTH IIB	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIB treatment cases authorized during this reporting period.`
11	CASES PEND INIT OF TREAT IIB	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIB cases pending initiation of treatment as of the end of this reporting period.`
12	CASES PEND COMP IIB	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIB cases pending completion as of the end of this reporting period.`
13	TREAT CASES AUTH IIC	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIC treatment cases authorized during this reporting period.`
14	CASES PEND INIT OF TREAT IIC	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIC cases pending initiation of treatment as of the end of this reporting period.`
15	CASES PEND COMP IIC	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class IIC cases pending completion as of the end of this reporting period.`
16	TREAT CASES AUTH III	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class III treatment cases authorized during this reporting period.`
17	CASES PEND INIT OF TREAT III	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class III cases pending initiation of treatment as of the end of this reporting period.`
18	CASES PEND COMP III	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enetr a whole number from 1 to 999 indicating the total number of Class III cases pending completion as of the end of this reporting period.`
19	TREAT CASES AUTH IV	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class IV treatment cases authorized during this reporting period.`
20	CASES PEND INIT OF TREAT IV	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class IV cases pending initiation of treatment as of the end of this reporting period.`
21	CASES PEND COMP IV	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Class IV cases pending completion as of the end of this reporting period.`
22	TREAT CASES AUTH V	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class V treatment cases authorized during this reporting period.`
23	CASES PEND INIT OF TREAT V	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class V cases pending initiation of treatment as of the end of this reporting period.`
24	CASES PEND COMP V	0;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class V cases pending completion as of the end of this reporting period.`
25	TREAT CASES AUTH VI	0;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class VI treatment cases authorized during this reporting period.`
26	CASES PEND INIT OF TREAT VI	0;27	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class VI cases pending initiation of treatment as of the end of this reporting period.`
27	CASES PEND COMP VI	0;28	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1985` HELP-PROMPT: `Enter a whole number from 1 to 99 indicating the total number of Class VI cases pending completion as of the end of this reporting period.`
28	CHANGE/DELETE	0;30	SET	'C' FOR CHANGE; 'D' FOR DELETE; LAST EDITED: `OCT 13, 1987`
60	RELEASED BY	.1;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 12, 1995`
61	DATE RELEASED	.1;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 04, 1985`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 61+1
>> D	.3(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K)
DIC	.3+1*!, .3(HELP )
DIC(0	.3+1*, .3(HELP )
>> DIE	.3(HELP )
U	ID.3+1, .3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .3+1!, .3(HELP ), 1+1!, 2+1!, 3+1!, 4+1!, 5+1! , 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1! , 16+1!, 17+1!, 18+1!, 19+1!, 20+1!, 21+1!, 22+1!, 23+1!, 24+1!, 25+1! , 26+1!, 27+1!, 61+1*!
>> Y	.01+1, .3+1, 61+1
>> Y(0	.3+1
ZD	.3(HELP )

Customize PDF page

Package: Dental

Global: ^DENT(223

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 32

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: