Global: ^DENT(222

FileMan FileNo	FileMan Filename	Package
222	DENTAL FEE BASIS (AMIS)	Dental

Package	Total	Routines
Dental	2	DENTE1 DENTE2

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

Fields, Total: 31

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: `222^B` `1)= S ^DENT(222,"B",$E(X,1,30),DA)=""` `2)= K ^DENT(222,"B",$E(X,1,30),DA)`
.3	STATION.DIVISION	0;28	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 02, 1988` HELP-PROMPT: `Select the appropriate station (division) number for this Dental fee basis 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	APPLI. I-VI RC'D	0;2	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 I through Class VI applications for fee basis care received for this reporting period (including Class II).`
2	APPLI. II RC'D	0;3	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 applications for fee basis care received for this reporting period.`
3	APPLI. I-VI ELIG	0;4	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 I through VI applications found eligible for fee basis care for this reporting period.`
4	APPLI. PEND. ELIG	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 15, 1987` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
5	VA EXAMS AUTH	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 exams authorized for treatment by VA staff for this reporting period.`
6	FEE EXAMS AUTH	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 fee basis exams authorized for this reporting period.`
7	FEE EXAM PEND COMP	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 15, 1987` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
8	FEE EXAM COMP	0;9	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 fee basis exams completed for this reporting period.`
9	FEE TREAT PEND AUTH	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 1991` HELP-PROMPT: `Enter a whole number from 1 to 999 indicating the total number of Fee Basis patients pending treatment authorization for this reporting period.`
10	FEE TREAT AUTH	0;11	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 patients authorized for fee treatment for this reporting period.`
11	FEE TREAT PEND COMP	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 15, 1987` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
12	FEE TREAT COMP	0;13	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 fee basis patients completed for this reporting period.`
13	FEE CASES COMP - I	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 I fee basis patients completed for this reporting period.`
14	FEE CASES COMP - II	0;15	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 fee basis patients completed for this reporting period.`
15	FEE CASES COMP - IIA	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 IIA patients completed for this reporting period.`
16	FEE CASES COMP - IIB	0;17	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 patients completed for this reporting period.`
17	FEE CASES COMP - IIC	0;18	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 patients completed for this reporting period.`
18	FEE CASES COMP - III	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 15, 1987` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
19	FEE CASES COMP - 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 patients completed for this reporting period.`
20	FEE CASES COMP - V	0;21	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 patients completed for this reporting period.`
21	FEE CASES COMP - VI	0;22	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 patients completed for this reporting period.`
22	FEE CUM AVG COST IIC	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 1986` HELP-PROMPT: `Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IIC fee basis patients for this reporting period.`
23	FEE CUM AVG DURATION IIC	0;24	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 cumulative average duration (in days) of Class IIC patients for this reporting period.`
24	FEE CUM AVG COST IV	0;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 1986` HELP-PROMPT: `Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IV fee basis patients for this reporting period.`
25	FEE CUM AVG DURATION IV	0;26	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 cumulative average duration (in days) of Class IV patients for this reporting period.`
26	FEE CUM AVG I-VI	0;27	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 05, 1986` HELP-PROMPT: `Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class I-VI fee basis patients for this reporting period.`
27	CHANGE/DELETE	0;29	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`

Customize PDF page

Package: Dental

Global: ^DENT(222

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 31