STANDARD DATA DICTIONARY #222 -- DENTAL FEE BASIS (AMIS) FILE 9/29/25 PAGE 1
STORED IN ^DENT(222, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains applications and Dental fee data and selected general management and planning data on dental outpatients, class
I-VI. A monthly service report is prepared by each facility having dental outpatient activities. Facilities having a Dental fee
jurisdiction will complete all necessary information.
IDENTIFIED BY: STATION.DIVISION (#.3)[R]
CROSS
REFERENCED BY: DATE(B)
222,.01 DATE 0;1 DATE (Required)
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)
222,.3 STATION.DIVISION 0;28 FREE TEXT (Required)
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
222,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).
222,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.
222,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.
222,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
222,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.
222,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.
222,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
222,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.
222,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.
222,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.
222,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
222,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.
222,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.
222,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.
222,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.
222,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.
222,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.
222,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
222,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.
222,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.
222,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.
222,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.
222,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.
222,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.
222,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.
222,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.
222,27 CHANGE/DELETE 0;29 SET
'C' FOR CHANGE;
'D' FOR DELETE;
LAST EDITED: OCT 13, 1987
222,60 RELEASED BY .1;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 12, 1995
222,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
FILES POINTED TO FIELDS
NEW PERSON (#200) RELEASED BY (#60)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):