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

Package: Dental

Global: ^DENT(221


Information

FileMan FileNo FileMan Filename Package
221 DENTAL TREATMENT (AMIS) Dental

Description

Directly Accessed By Routines, Total: 30

Package Total Routines
Dental 27 DENTUPD    ^DENT(221    DENTA11    DENTA12    DENTA13    DENTA14    DENTA16    DENTAR1
DENTAR11    DENTAR12    DENTAR13    DENTAR14    DENTAR16    DENTCRD    DENTDUP    DENTE1
DENTE2    DENTE3    DENTEC    DENTP1    DENTPCD    DENTPEX    DENTPKG    DENTPOST
DENTPUR    DENTSCR    DENTXREF    
DSS Extracts 1 ECXDENT    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Dental 5 DENTE1    DENTE2    DENTEC    DENTPKG    DENTSCR    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Dental 3 DENTAL PROVIDER(#220.5)[.5]    DENTAL CLASSIFICATION(#220.2)[4.5]    DENTAL BED SECTION(#220.4)[5]    
Kernel 1 NEW PERSON(#200)[60]    
Registration 1 PATIENT(#2)[3]    

Fields, Total: 47

Field # Name Loc Type Details
.01 DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT(0)="-NOW",%DT="ESTX" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) D IEN1^DENTE1
  • LAST EDITED:  DEC 09, 1994
  • HELP-PROMPT:  Enter the date and time for this treatment sitting
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  221^B^MUMPS
    1)= S ^DENT(221,"B",X,DA)=""
    2)= K ^DENT(221,"B",X,DA)
  • CROSS-REFERENCE:  221^AD^MUMPS
    1)= Q
    2)= I $P(^DENT(221,DA,0),"^",40)'="" K ^DENT(221,"A",$P(^DENT(221,DA,0),"^",40),$P(X,".",1),DA) S Z=$P(^DENT(221,DA,0),"^",3) I Z S Z=$S($D(^DENT(220.5,Z,0)):$P(^(0),"^",2),1:"") K:Z'="" ^DENT(221,"AC",$P(^DENT(221,DA,0),"
    ^",40),$P(X,".",1),Z,DA)
    2.  If station.division isn't null, then kill the A cross reference which is composed of (221,"A",station,date,record#).
    If there is data in dental provider field, and the number is a dental provider with INACTIVE status (file 220.5) then kill the "AC" cross reference composed of (221,"AC",station,date,status,recn)
.3 STATION.DIVISION 0;40 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) 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:  JAN 13, 1995
  • HELP-PROMPT:  Select the appropriate station (division) number for this Dental treatment 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 D:$D(DENTFUL) N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  221^A1^MUMPS
    1)= D STASETT^DENTXREF(X)
    2)= D STAKILT^DENTXREF(X)
    **update all xrefs that use Station as part of their key (fields .3,.4,60,61) **
    1.  Set the "A1" xref composed of (221,"A1",Station,Date,Record#).  If data is not released set the A xref composed of (221,"A",Station,Date,Record #).
    2.  Kill "A1" xref composed of (221,"A1",Station,Date,Record#).  If data is released kill the A xref composed of (221,"A",Station,Date,Record #).
  • CROSS-REFERENCE:  221^A1^MUMPS
    1)= S ^DENT(221,"A1",X,$P($P(^DENT(221,DA,0),U,1),".",1),DA)=""
    2)= K ^DENT(221,"A1",X,$P($P(^DENT(221,DA,0),U,1),".",1),DA)
.4 PROVIDER NUMBER 0;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  JAN 11, 1995
  • HELP-PROMPT:  ANSWER MUST BE 4 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    ENTER IN THIS FIELD THE PROVIDER CODE NUMBER
  • NOTES:  TRIGGERED by the DENTAL PROVIDER field of the DENTAL TREATMENT (AMIS) File
  • CROSS-REFERENCE:  221^C
    1)= S ^DENT(221,"C",$E(X,1,30),DA)=""
    2)= K ^DENT(221,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  221^AC1^MUMPS
    1)= I $P(^DENT(221,DA,0),"^",40)'="" D AC1SET^DENTXREF
    2)= I $P(^DENT(221,DA,0),"^",40)'="" D AC1KILL^DENTXREF
    If there is data in station.division field then kill or set the "AC1" x-ref which is composed of (221,"AC1",Station,Date,Provider#,Record#)
    If the data has not been released (released by field) set or kill the "AC" cross reference composed of (221,"AC",Station,Date,Provider#,Record#).
.5 DENTAL PROVIDER 0;3 POINTER TO DENTAL PROVIDER FILE (#220.5)
************************REQUIRED FIELD************************
DENTAL PROVIDER(#220.5)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)'="""",'$P(^(0),""^"",3)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Select the appropriate dental provider by name or provider number.
  • DESCRIPTION:  
    This is the dental provider.  Names are entered lastname,first name.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)'="""",'$P(^(0),""^"",3)"
  • EXPLANATION:  The dental provider must have a dental provider number and must be an active provider.
  • CROSS-REFERENCE:  ^^TRIGGER^221^.4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(221,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$P($G(^DENT(220.5,X,0)),"^",2) S DIH=$G(^DENT(221,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=221,DIG=.4
    D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(221,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DENT(221,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=221,DIG=.4 D ^DICR
    CREATE VALUE)= S X=$P($G(^DENT(220.5,X,0)),"^",2)
    DELETE VALUE)= @
    FIELD)= PROVIDER NUMBER
1 SSN 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<9!($L(X)>10)!(X'?9N."P") X
  • LAST EDITED:  JUL 31, 1986
  • HELP-PROMPT:  Enter this patient's social security number. Answer must be 9 digits or 9 digits followed by one "P".
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  221^D
    1)= S ^DENT(221,"D",$E(X,1,30),DA)=""
    2)= K ^DENT(221,"D",$E(X,1,30),DA)
2 DENTAL PATIENT 0;39 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  I $D(X),X'="GROUP" S DIC="^DENT(220,",DIC(0)="ELMQ",DLAYGO=220 D ^DIC K DLAYGO K:+Y'>0 X I $D(X) S (DFN,DENTDFN)=+Y D DEM^VADPT S X=VADM(1),DENTSSN=$P(VADM(2),"^")
  • LAST EDITED:  FEB 25, 1988
  • HELP-PROMPT:  Select the patient being treated or enter the word "GROUP" for a group patient education treatment sitting.
  • EXECUTABLE HELP:  S:$D(D) ZD=D S X="?",DIC="^DENT(220,",DIC(0)="EM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD D:$D(DENTFUL) N^DENTDNJ2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  221^AE^MUMPS
    1)=  D DPSET^DENTE3
    2)= D DPKILL^DENTE3
3 PATIENT (POINTER) 0;4 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  JUL 06, 1986
  • HELP-PROMPT:  Select the appropriate patient for this sitting.
  • CROSS-REFERENCE:  221^E
    1)= S ^DENT(221,"E",$E(X,1,30),DA)=""
    2)= K ^DENT(221,"E",$E(X,1,30),DA)
4.5 PATIENT CATEGORY 0;19 POINTER TO DENTAL CLASSIFICATION FILE (#220.2)
************************REQUIRED FIELD************************
DENTAL CLASSIFICATION(#220.2)

  • LAST EDITED:  JUL 06, 1986
  • HELP-PROMPT:  Select the appropriate patient category for this sitting.
  • DESCRIPTION:  Category 19 includes only priority 1, continued after priority 1 inpatient care. Category 21 includes only priority 2, continued after priority 2 inpatient care. Category 22 includes only priority 3, continued after
    priority 3 inpatient care and active duty military personnel, military retirees, and CHAMPVA.
5 BED SECTION 0;6 POINTER TO DENTAL BED SECTION FILE (#220.4) DENTAL BED SECTION(#220.4)

  • LAST EDITED:  JUL 25, 1985
  • HELP-PROMPT:  Select the appropriate bed section code (1-15) for this Patient Category. A bed section can only be entered for inpatients (Patient Categories 1 thru 3 and 6 thru 8.
6 SCREENING/COMPLETE EXAM 0;7 SET
  • 'S' FOR SCREENING;
  • 'C' FOR COMPLETE;

  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  Select 'S' for screening or 'C' for complete exam
  • DESCRIPTION:  SCREENING EXAMINATION The screening examination includes an evaluation of the oral and perioral soft tissues and a visual estimate of dental status without a tooth by tooth charting. Radiographs usually will not be
    taken, but may be if PROFESSIONALLY DETERMINED to be necessary as for an emergency.  A chart review (patient not present at time of review) is also classed as a screening exam.  When a chart review is entered the provider
    must also mark ADMIN PROCEDURE on the screen to avoid a "patient visit" count.  Note:  Providers must be aware of significant medical problems; therefore, a medical and dental history and/or medical record review must be
    included.  Recall examinations (may be less than six months) would be included in this area.  The screening examination is an essential part of the admission physical examination.  All INPATIENT screening examinations will
    be placed in a Priority 1 Category.  If the inpatient does not fall into Emergency, Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need Category.  All OUTPATIENT screening
    examinations will be placed in Priority 1.
    COMPLETE EXAMINATION A complete examination includes dental charting on a tooth by tooth basis as well as the comprehensive evaluation of the oral and perioral soft tissues. A head and neck exam is included as an essential
    portion of the complete examination.  A thorough review of the medical chart and medical history with the pertinent medical findings noted on the dental record are included in the complete examination.  A complete
    examination will be accomplished for a patient who is to receive treatment other than emergency care. Complete examinations will be recorded in the appropriate inpatient or outpatient category/priority.
6.2 INTERDISCIPLINARY CONSULT 0;42 SET
  • '1' FOR INTERDISC. CONSULT;

  • LAST EDITED:  MAY 03, 1985
  • HELP-PROMPT:  Enter a '1' or 'I' for an interdisciplinary consultation.
  • DESCRIPTION:  Count those that were instituted via Form 513 (Consultation Request), a telephone request with following Form 513 and Form 10-10 or 10-10m with progress notes attached. All INPATIENT interdisciplinary consultations will
    be placed in a Priority 1 category.  If the inpatient does not fall into Emergency, Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need Category.  All OUTPATIENT
    interdisciplinary consultations will be placed in a Priority 1 Category.
6.4 EVALUATION 0;43 SET
  • '1' FOR EVALUATION;

  • LAST EDITED:  MAY 03, 1985
  • HELP-PROMPT:  Enter a '1' or an 'E' for an evaluation
  • DESCRIPTION:  No more than one evaluation per provider can be counted on the same visit. Evaluations are identified as medical/dental workups, (e.g., periodontal, surgical, endodontic, etc.) on those patients for whom a complete
    screening examination has already been performed. Evaluations may be in conjunction with review of a medical record, the initiation of an interdisciplinary consultion or with a medical or dental emergency workup on a
    patient for whom no definitive treatment is delivered. An evaluation made by the staff mentor for trainees at a scheduled treatment visit prior to carrying out a specific treatment procedure is counted as education time.
    All other INPATIENT evaluations will be placed in a Priority 1 Category.  If the inpatient does not fall into Emergency, Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need
    Category.  All OUTPATIENT evaluations will be placed in a Priority 1 Category.
6.6 PRE AUTH/2ND OPINION EXAM 0;44 SET
  • '2' FOR PRE-AUTH/2ND OPINION;

  • LAST EDITED:  NOV 15, 1985
  • HELP-PROMPT:  Enter a '2' or 'P' for a pre-authorization/second opinion exam.
  • DESCRIPTION:  A pre-authorization exam is performed on a fee basis patient in order to determine treatment needs prior to authorization of the patient to a fee- for-service provider. A second opinion exam is performed when the original
    estimate on a fee basis dental case exceeds $500.00.
6.7 SPOT CHECK EXAM 0;27 SET
  • '1' FOR STAFF;
  • '3' FOR FEE;

  • LAST EDITED:  NOV 18, 1985
  • HELP-PROMPT:  If a spot check examination was performed on this patient, enter a '1' or 'S' if it was for a patient treated by staff and a '3' or 'F' if treated by a fee dentist.
6.8 SPOT CHECK DISCREPANCY # 0;45 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  Enter a number from 0 to 3 to indicate the category of discrepancy.
  • DESCRIPTION:  The DISCREPANCY categories are defined as follows:
    1 = MINOR discrepancy only
    2 = MAJOR discrepancy-- QUALITY  ONLY
    3 = MAJOR discrepancy- MISREPRESENTATION ONLY
7 ADMIN PROCEDURE 0;8 SET
  • '1' FOR ADMIN PROCEDURE;

  • LAST EDITED:  SEP 05, 1985
  • HELP-PROMPT:  Enter a '1' or 'A' for an administrative procedure.
  • DESCRIPTION:  
    An entry should be made in this field when a case, a service or a procedure has been administratively completed or terminated without an actual patient visit (i.e., chart review, telephone call, death, etc.).
7.1 COMPLETIONS/TERMINATIONS 0;41 SET
  • '2' FOR COMPLETION;
  • '3' FOR TERMINATION;

  • LAST EDITED:  NOV 18, 1985
  • HELP-PROMPT:  Enter a '2' or 'C' for a completion or a '3' or 'T' for a termination.
  • DESCRIPTION:  COMPLETIONS
    A case is completed when all treatment authorized has been accomplished.  Only one count should be taken for a patient during any single period of hospitalization unless the patient is under long term care.  In the case of
    long term care patients, including NHC and Dom patients, a count for a completed case may be taken once in each six months if re-examination indicated need for another episode of care.  For outpatients, only one complete
    case count may be taken per episode of care for which a treatment plan was established, even if there were intervening terminations.  If, after an outpatient case has been completed and s/he is eligible for recall, another
    episode of care may begin with the recall examination if treatment is indicated.  Treatment plans will not be segmented for the purpose of multiple completions during an episode of care.  For cases administratively
    completed, also make an entry in the ADMIN PROCEDURE field.
    TERMINATIONS
    A case is terminated when an episode of care is interrupted or stopped short of completion of the authorized treatment plan.  Examples of this would be the death of a patient, discharge to OPT status, closure of the case
    due to failed appointments, health reasons, or at the patient's request. For cases administratively terminated, also make an entry in the ADMIN  PROCEDURE field.
8 X-RAYS EXTRAORAL # 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 26, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 4.
  • DESCRIPTION:  
    Enter the number of EXTRAORAL radiographs taken on this patient for panoramic, cephalometric or other extraoral procedures.
10 X-RAYS INTRAORAL # 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>24)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 24.
  • DESCRIPTION:  
    Enter the number of INTRAORAL radiographs taken for this patient for PA, bitewing, occlusal and other intraoral procedures.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11 PROPHY NATURAL DENTITION 0;12 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 03, 1985
  • HELP-PROMPT:  Enter a '1' or 'Y' for yes for an oral prophylaxis on natural dentition.
  • DESCRIPTION:  In special circumstances, when a patient is of such a difficult nature that two or more appointments are needed to complete the prophylaxis,credit for each treatment episode may be recorded. If a patient is on a formal
    recall status, such as head and neck cancer patients who are being followed after radiation treatment,credit may be taken at each prophylaxis appointment.  A prophylaxis will include a complete review of preventive oral
    disease instructions.
12 PROPHY DENTURE 0;13 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 03, 1985
  • HELP-PROMPT:  Enter a '1' or 'Y' for yes if the patient had one or more complete and/or partial removable prostheses cleaned and polished by any provider.
  • DESCRIPTION:  
    If a patient had a prophylaxis of natural dentition and a removeable prothesis cleaned on the same visit, an entry can be made for both procedures.
14 NEOPLASM CONFIRMED MALIGNANT # 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 23, 1985
  • HELP-PROMPT:  Enter a number from 0 to 2 indicating the number of confirmed malignant neoplasms initially recognized by a member of the Dental Service.
  • DESCRIPTION:  Activities surrounding the confirmation should include patient/family counseling and discussion with other hospital services (laboratory, surgery, etc.) for diagnostic interpretation and treatment planning. All confirmed
    malignant neoplasms on INPATIENTS will be placed in a Priority 1 Category. If the inpatient does not fall into Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need Category.
    All confirmed malignant neoplasms on OUTPATIENTS will be placed in the appropriate Priority 1 Category.
15 NEOPLASM REMOVED # 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 4 indicating the number of neoplasms removed (including excisional biopsies).
  • DESCRIPTION:  All neoplasms removed for INPATIENTS will be placed in a Priority 1 Category. If the inpatient does not fall into Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need
    Category.  All neoplasms removed for OUTPATIENTS will be placed in the appropriate Priority 1 Category.
16 BIOPSY/SMEAR # 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 05, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 4 indicating the number of biopsies/smears.
  • DESCRIPTION:  Enter the number of incisional biopsies (separate lesions) plus the number of cytological smears (one smear per patient) taken. All biopsies and cytological smears performed on INPATIENTS will be placed in a Priority 1
    Category.  If the inpatient does not fall into Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling Medical Need Category.  All biopsies and cytological smears performed on OUTPATIENTS
    will be placed in the appropriate Priority 1 Category.
17 FRACTURE # 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 4 indicating the number of maxillofacial fractures (surgical sites or procedures) reduced.
  • DESCRIPTION:  For multiple fractures in the same bone (e.g., bilateral condylar or a bilateral combination of body and condyle) count only as one fracture reduction if only one surgical site/procedure was used. The computer generated
    weighted value includes all post-operative visits.  All maxillofacial fractures reduced for INPATIENTS will be placed in a Priority 1 Category.  If the inpatient does not fall into Emergency, Extended Care, NHCU, Dom, or
    Special Provisions, s/he would be placed in the Compelling Medical Need Category.  All Maxillofacial fractures reduced for OUTPATIENTS will be placed in the appropriate Priority 1 Category.
19 OTHER SIGNIF. SURG. (CTV) 0;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>50 W !,"WARNING!! Normal range for Other Significant Surgery is 1 to 50",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 99 indicating the weighted value (CTV's) for the surgical procedure performed.
  • DESCRIPTION:  OTHER SIGNIFICANT SURGERY CTV'S
    1. Salivary Gland Surgery            16.0
    2. Dislocation                        3.0
    3. Laceration/suturing                6.0
    4. Incision and Drainage              4.0
    5. Orthognathic Surgery              65.0
    6. Frenectomy*                        6.0
    7. Alveoplasty* (per quadrant)        4.0
    8. Exostoses removal*                 4.0
    9. Apicoectomy                       10.0
    10. Tooth hemisection,
    Root amputation*                  10.0
    11. Vestibuloplasty*
    Sulcus revision,
    Ridge extension (W/O skin graft)  12.0
    Graft procedure                   16.0
    12. Endosteal Implants**               9.0
    13. All other surgeries                6.0
    *  These procedures will be reported at one-half of the listed units
    when done in conjunction with a quadrant of periodontal surgery.
    ** Requires VAMC Research and Development Committee approval.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21 SURFACES RESTORED # 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>24)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>11 W !,"WARNING!! Normal range for Surfaces Restored is 1 to 11",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 24 indicating the number of surfaces restored with permanent restorative material.
  • DESCRIPTION:  
    DO NOT record the number of teeth restored or the number of restorations or temporary restorations in this field. They must be recorded under Other Significant Treatment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22 ROOT CANAL THERAPY # 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>5 W !,"WARNING!! Normal range for Root Canal Therapy is 1 to 5",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 8 indicating the number of root canals permanently filled. DO NOT enter the number of teeth treated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23 PERIODONTAL QUADS (SURGICAL) # 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 02, 1988
  • HELP-PROMPT:  Enter a whole number from 0 to 4 indicating the number of quadrant equivalents of periodontal surgery.
  • DESCRIPTION:  A quadrant may have fewer than eight (8) teeth present or treated, that is, a full quadrant of teeth is not required. If two to eight teeth are present in the same arch and any number cross the midline, count as only ONE
    quadrant.  DO NOT INCLUDE SCALING AND CURETTAGE IN THIS AREA EVEN IF LOCAL ANESTHESIA IS USED.  If scaling and curettage are done as part of the surgical procedure, do not take additional credit by entering both the
    periodontal surgery and the scaling.  Included in the periodontal surgery is the chart review, local anesthesia, post-operative instructions, treating of complications, suture removal and pack changes.
    NOTE: ADDITIONAL SURGICAL PROCEDURES, FRENECTOMY, ALVEOPLASTY, EXOSTOSES REMOVAL, TOOTH HEMISECTION, ROOT AMPUTATION, AND/OR VESTIBULOPLASTY, WHICH ARE PERFORMED AT THE TIME OF PERIODONTAL SURGERY ARE ENTERED AS A SEPARATE
    PROCEDURE UNDER OTHER SIGNIFICANT SURGERY AND ARE WEIGHTED AT ONE-HALF THE LISTED VALUE IF PERFORMED IN THE SAME SURGICAL SITE.
24 PERIO QUADS (ROOT PLANE) # 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 4 indicating the number of quadrant equivalents of subgingival curettage and/or root planing.
  • DESCRIPTION:  This must not be part of a periodontal surgery procedure performed in the same quadrant on the same visit. A quadrant may have fewer than eight (8) teeth present or treated, that is, a full quadrant of teeth is not
    required. If two to eight teeth are present in the same arch and any number cross the midline, count as only ONE quadrant.  If nine or more teeth are present in the same arch, count as two quadrants.  DO NOT COUNT AS
    QUADRANTS OF ROOT PLANING AND CURETTAGE A PROPHYLAXIS PERFORMED BY A DENTIST, EFDA, OR HYGIENIST.  That is, do not count a supragingival scaling (such as using a cavitron alone) and polishing as a curettage.
25 PATIENT ED. (CTV) 0;26 SET
  • '0' FOR NONE;
  • '3' FOR INDIVIDUAL;
  • '4' FOR GROUP;

  • LAST EDITED:  JUN 03, 1985
  • HELP-PROMPT:  Enter a '0' or 'N' for none, a '3' or 'I' for individual , or a '4' or 'G' for group patient instruction.
  • DESCRIPTION:  Enter the weighted value of preventive dentistry instructions. DO NOT LIST THE NUMBER OF MINUTES. These instructions may be given by any provider. However, NO CREDIT IS RECORDED AT THE SAME APPOINTMENT when a
    prophylaxis or another treatment procedure is being accomplished by the same provider (an increase in CTV credits recognizes time spent for patient instruction during other scheduled treatment procedures).  The main pupose
    of this field is to record a specific appointment scheduled for a single patient or for a group training session to provide oral hygiene instructions, diet counseling, plaque scoring, etc.  For an individual patient, enter
    the service code, a weighted value of three (3), and the patient's name for each instructional session.  For a group session, enter the service code, a weighted value of four (4), and the word "GROUP" in place of a
    patient's name for all  instructional sessions.  All group instructions will be entered under the appropriate patient category for the majority of the group in attendance. The patient category determination for individual
    instructional sessions will be reported the same as for other services provided for that individual. Preventive Dentistry instructions presented for employees are recorded as education/training time.
27 INDIVIDUAL CROWNS # 0;28 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>28)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>10 W !,"WARNING!! Normal range for Individual Crowns is 1 to 10",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 28 indicating the number of permanent crowns cemented.
  • DESCRIPTION:  The crowns cemented are not part of a fixed prosthesis. Included in this field are all types of permanent crowns such as, 3/4, porcelain fused to metal, porcelain jacket, full gold, etc. Temporary crowns are NOT to be
    counted in this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
28 POST & CORES # 0;29 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>28)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>8 W !,"WARNING!! Normal range for Post and Cores is 1 to 8",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 28 indicating the number of teeth on which a post/core or overdenture coping was cemented.
  • DESCRIPTION:  Enter a post/core or overdenture coping regardless of whether that tooth will have a crown as part of a fixed prosthesis or have an individual crown placed on it. This field includes all types of posts/cores (i.e., cast,
    pre-prepared types, and/or threaded systems).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
29 FIXED PARTIALS (ABUT) # 0;30 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>24)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>10 W !,"WARNING!! Normal range for Fixed Partials (Abutments) is 1 to 10",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 24 indicating the number of abutment units contained in the fixed prosthesis inserted.
  • DESCRIPTION:  Temporary bridges for this treatment episode are NOT counted in this field. This category includes all types of fixed prostheses with the exception of Acid Etched, Resin Bonded Retainers. These types of prostheses are
    recorded under Splints and Special Procedures.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
30 FIXED PARTIALS (PONT ONLY) # 0;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>28)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 28 indicating the number of PONTIC UNITS contained in the fixed prosthesis inserted.
  • DESCRIPTION:  PONTIC UNITS of temporary bridges for this treatment episode are NOT counted in this field. This field includes all types of fixed prostheses except Acid Etched, Resin Bonded Retainers. These are reported under SPLINTS
    AND SPECIAL PROCEDURES.
31 REMOVABLE PARTIALS # 0;32 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 2 indicating the number of R.P.D.'s that were delivered to the patient.
  • DESCRIPTION:  Acrylic R.P.D.'s may be counted here ONLY if the clasp assembly contains definitive occlusal rests. Transitional (temporary) tissue supported partials are counted in the SPLINTS AND SPECIAL PROCEDURES field. R.P.D.
    relines or rebases are counted under OTHER SIGNIFICANT TREATMENT.
32 COMPLETE DENTURES # 0;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a whole number from 0 to 2 indicating the number of COMPLETE DENTURE units (each separate prosthesis is one unit) delivered to the patient.
  • DESCRIPTION:  
    All COMPLETE DENTURES are counted at the time of insertion or disposition of the dentures.  Complete Denture relines or rebases are to be credited under the field OTHER SIGNIFICANT TREATMENT.
33 PROSTHETIC REPAIR # 0;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>2 W !,"WARNING!! Normal range for Prosthetic Repairs is 1 to 2",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 2 indicating the number of removable dentures and special appliances that were repaired for this patient.
  • DESCRIPTION:  Each repair is counted at the time of delivery to the patient or other disposition. Fixed prostheses with broken facings which have been repaired are reported in the Other Significant Treatment section. If the patient
    does not come to the clinic for the prosthetic repair, an entry must be made in the Admin Procedure field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
34 SPLINTS & SPEC. PROCS. (CTV) 0;35 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>50 W !,"WARNING!! Normal range for Splints and Special Procedures is 1 to 50",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 99 indicating the weighted value (CTV's) assigned to the special appliance delivered to the patient or disposed of for the patient.
  • DESCRIPTION:  WEIGHTED VALUES (CTV'S)
    1. Periodontal or trauma splinting,
    orthodontic bands and/or brackets                     1.0/tooth
    2. Flouride carriers (custom)                            3.0/patient
    3. Facial moulage                                        9.0
    4. Tissue borne partial prosth.                         12.0
    5. Oral hygiene aids for handicapped pts.                9.0
    6. Acrylic cranial plate                                18.0
    7. Mandibular guidance appliance                        36.0
    8. Radiation stent                                      12.0
    9. Surgical stent or night guard                         9.0
    10. Dynamic bite opening device                          36.0
    11. Intraoral obturator (includes basic prosthesis)      50.0
    12. Speech aid prosthesis (includes basic prosthesis)    50.0
    13. Palatal lift prosthesis (includes basic prosthesis)  50.0
    14. Stock occular prosthesis                             50.0
    15. Ear prosthesis                                       50.0
    16. Custom occular prosthesis                            75.0
    17. Facial prosthesis                                    75.0
    18. Resin bonded retainers                                3.0/unit
    19. Orthodontic appliance adjustment                      2.0/visit
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
35 EXTRACTIONS # 0;36 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>32)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>10 W !,"WARNING!! Normal range for Extractions is 1 to 10",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 32 indicating the number of non-impacted (erupted) teeth extracted.
  • DESCRIPTION:  These extractions are considered as simple extractions since no flap was necessary for surgical exposure to extract the tooth or root. Flaps in conjuction with an alveoplasty do not indicate a surgical extraction. This
    entry includes all post-operative care and instructions.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
36 SURGICAL EXTRACTIONS # 0;37 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>32)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>3 W !,"WARNING!! Normal range for Impactions is 1 to 3",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 32 indicating the number of teeth surgically extracted.
  • DESCRIPTION:  
    This includes any type of impaction or an erupted tooth for which an intentional flap is required.  This entry includes all post-operative care and instructions.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
37 OTHER SIGNIFICANT TREAT (CTV) 0;38 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>39)!(X<0)!(X?.E1"."1N.N) X I $D(X),X>16 W !,"WARNING!! Normal range for Other Significant Treatments is 1 to 16",*7 D YN^DENTCRD1
  • LAST EDITED:  MAY 23, 1986
  • HELP-PROMPT:  Enter a whole number from 0 to 39 indicating the weighted values (CTV's) of the procedure performed.
  • DESCRIPTION:  WEIGHTED VALUES (CTV's)
    1. Blood pressure recording                                1.0/patient.
    2. Topical flouride treatment                              2.0/patient.
    3. Drug injection (not local anesthetic)                   1.0/patient.
    4. Prescription writing (Pharmacy)                         1.0/patient.
    5. Temporary restoration                                   2.0/patient.
    6. Nitrous oxide sedation                                  2.0/patient.
    7. Complete or partial denture adj. (not constructed
    by treating clinic during this episode of care.)        2.0/patient.
    8. Occulusal equilibration (not isolated adjustments)      2.0/quadrant.
    9. Recementation of crown                                  2.0
    10. Recementation of fixed bridge                           3.0
    11. Crown or bridge facing repair or recementation          3.0
    12. Tissue conditioning or chairside reline                 3.0/visit
    13. Temporary crown (not constructed by treating clinic
    during this episode of care.)                           3.0
    14. Temporary bridge (not constructed by treating clinic
    during this episode of care.)                           6.0
    15. Bleaching of teeth                                      4.0/visit
    16. Attachments (intra or extra coronal,
    semi-precision or precision)                            5.0/attach.
    17. Full mouth periodontal charting                         6.0/patient.
    18. I.V. sedation/medication                                6.0/patient.
    19. Dental admissions (no O.R.)                             9.0/patient.
    20. Reline or rebase of a complete or partial denture      12.0/unit
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
38 OPERATING ROOM 0;14 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 30, 1985
  • HELP-PROMPT:  Enter a '1' or 'Y' for yes if this patient was treated in the operating room.
  • DESCRIPTION:  
    These cases will not be credited to a resident provider.  They must be credited to a dental staff provider or a dental consultant or attending.
39 FACTOR (NOT USED) 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1985
  • HELP-PROMPT:  NO ENTRY IS PERMITTED IN THIS FIELD AT THIS TIME.
40 CHANGE/DELETE 0;5 SET
  • 'C' FOR CHANGE;
  • 'D' FOR DELETE;

  • LAST EDITED:  OCT 07, 1987
60 RELEASED BY .1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 19, 1995
  • CROSS-REFERENCE:  221^A^MUMPS
    1)= I $P(^DENT(221,DA,0),"^",40)'="" D ASET^DENTXREF
    2)= I $P(^DENT(221,DA,0),"^",40)'="" D AKILL^DENTXREF
    1. Set Logic:  KILL "A" xref composed of (221,"A",Station,Date,Record#).  If provider # has data KILL the "AC" xref composed of (221,"AC",Station,Date,Provider#,Record#).
    2. Kill Logic:  SET "A" xref composed of (221,"A",Station,Date,Record#).  If provider # has data SET the "AC" xref composed of (221,"AC",Station,Date,Provider#,Record#).
61 DATE RELEASED .1;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 09, 1994
  • CROSS-REFERENCE:  221^AG^MUMPS
    1)= I $P(^DENT(221,DA,0),"^",40)'="" S ^DENT(221,"AG",$P(^DENT(221,DA,0),"^",40),X,DA)=""
    2)= I $P(^DENT(221,DA,0),"^",40)'="" K ^DENT(221,"AG",$P(^DENT(221,DA,0),"^",40),X,DA)

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #63
  • DSS EXTRACTS
  • DATE (.01).
    Access: Direct Global Read & w/Fileman

    PATIENT (POINTER) (3).
    Access: Direct Global Read & w/Fileman

    DENTAL PROVIDER (.5).
    Access: Direct Global Read & w/Fileman

    STATION.DIVISION (.3).
    Access: Direct Global Read & w/Fileman

    PATIENT CATEGORY (4.5).
    Access: Direct Global Read & w/Fileman

    SCREENING/COMPLETE EXAM (6).
    Access: Direct Global Read & w/Fileman

    INTERDISCIPLINARY CONSULT (6.2).
    Access: Direct Global Read & w/Fileman

    EVALUATION (6.4).
    Access: Direct Global Read & w/Fileman

    PRE AUTH/2ND OPINION EXAM (6.6).
    Access: Direct Global Read & w/Fileman

    SPOT CHECK EXAM (6.7).
    Access: Direct Global Read & w/Fileman

    SPOT CHECK DISCREPANCY # (6.8).
    Access: Direct Global Read & w/Fileman

    ADMIN PROCEDURE (7).
    Access: Direct Global Read & w/Fileman

    COMPLETIONS/TERMINATIONS (7.1).
    Access: Direct Global Read & w/Fileman

    X-RAYS EXTRAORAL # (8).
    Access: Direct Global Read & w/Fileman

    X-RAYS INTRAORAL # (10).
    Access: Direct Global Read & w/Fileman

    PROPHY NATURAL DENTITION (11).
    Access: Direct Global Read & w/Fileman

    PROPHY DENTURE (12).
    Access: Direct Global Read & w/Fileman

    NEOPLASM CONFIRMED MALIGNANT # (14).
    Access: Direct Global Read & w/Fileman

    NEWPLASM REMOVED # (15).
    Access: Direct Global Read & w/Fileman

    BIOPSY/SMEAR # (16).
    Access: Direct Global Read & w/Fileman

    FRACTURE # (17).
    Access: Direct Global Read & w/Fileman

    OTHER SIGNIF. SURG. (CVT) (19).
    Access: Direct Global Read & w/Fileman

    SURFACES RESTORED # (21).
    Access: Direct Global Read & w/Fileman

    ROOT CANAL THERAPY # (22).
    Access: Direct Global Read & w/Fileman

    PERIODONTAL QUADS (SURGICAL) # (23).
    Access: Direct Global Read & w/Fileman

    PERIO QUADS (ROOT PLANE) # (24).
    Access: Direct Global Read & w/Fileman

    PATIENT ED. (CTV) (25).
    Access: Direct Global Read & w/Fileman

    INDIVIDUAL CROWNS # (27).
    Access: Direct Global Read & w/Fileman

    POST & CORES # (28).
    Access: Direct Global Read & w/Fileman

    FIXED PARTIALS (ABUT) # (29).
    Access: Direct Global Read & w/Fileman

    FIXED PARTIALS (PONT ONLY) # (30).
    Access: Direct Global Read & w/Fileman

    REMOVABLE PARTIALS # (31).
    Access: Direct Global Read & w/Fileman

    COMPLETE DENTURES # (32).
    Access: Direct Global Read & w/Fileman

    PROSTHETIC REPAIR # (33).
    Access: Direct Global Read & w/Fileman

    SPLINTS & SPEC. PROCS. (CTV) (34).
    Access: Direct Global Read & w/Fileman

    EXTRACTIONS # (35).
    Access: Direct Global Read & w/Fileman

    SURGICAL EXTRACTIONS # (36).
    Access: Direct Global Read & w/Fileman

    OTHER SIGNIFICANT TREAT (CTV) (37).
    Access: Direct Global Read & w/Fileman

    OPERATING ROOM (38).
    Access: Direct Global Read & w/Fileman

    ICR #102
  • ICR - IMMUNOLOGY CASE REGISTRY
  • External References

    Name Field # of Occurrence
    ^%DT .01+1, 61+1
    YN^DENTCRD1 19+1, 21+1, 22+1, 27+1, 28+1, 29+1, 33+1, 34+1, 35+1, 36+1
    , 37+1
    N^DENTDNJ2 .3(HELP ), 2(HELP )
    IEN1^DENTE1 .01+1
    DPKILL^DENTE3 2(XREF 1K)
    DPSET^DENTE3 2(XREF 1S)
    AC1KILL^DENTXREF .4(XREF 2K)
    AC1SET^DENTXREF .4(XREF 2S)
    AKILL^DENTXREF 60(XREF 1K)
    ASET^DENTXREF 60(XREF 1S)
    STAKILT^DENTXREF .3(XREF 1K)
    STASETT^DENTXREF .3(XREF 1S)
    ^DIC .3+1, .3(HELP ), .5+1, 2+1, 2(HELP )
    ^DICR .5(XREF 1S), .5(XREF 1K)
    DEM^VADPT 2+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" IDZ0+1
    ^DENT(220.5 - [#220.5] .01(XREF 3K), .5(XREF 1S)
    ^DENT(221 - [#221] IDZ1+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .3(XREF 2S), .3(XREF 2K), .4(XREF 1S), .4(XREF 1K), .4(XREF 2S), .4(XREF 2K)
    .5(XREF 1S), .5(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 60(XREF 1S), 60(XREF 1K), 61(XREF 1S), 61(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 IDZ0+1, IDZ1+1, IDZ2+1, .01(XREF 3K), .5(XREF 1S), .5(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, 61+1*
    >> %DT(0 .01+1*!
    >> D .3(HELP ), 2(HELP )
    >> D0 .5(XREF 1S), .5(XREF 1K)
    >> DA .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .3(XREF 2S), .3(XREF 2K), .4(XREF 1S), .4(XREF 1K), .4(XREF 2S), .4(XREF 2K), .5(XREF 1S)
    .5(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 60(XREF 1S), 60(XREF 1K), 61(XREF 1S), 61(XREF 1K)
    >> DENTDFN 2+1*
    >> DENTFUL .3(HELP ), 2(HELP )
    >> DENTSSN 2+1*
    >> DFN 2+1*
    DIC .3+1*!, .3(HELP ), .5+1!*, 2+1*, 2(HELP )
    DIC("S" .5+1*, .5SCR+1*
    DIC(0 .3+1*, .3(HELP ), 2+1*, 2(HELP )
    >> DIE .3(HELP ), .5+1, 2(HELP )
    >> DIG .5(XREF 1S), .5(XREF 1K)
    >> DIH .5(XREF 1S), .5(XREF 1K)
    >> DIU .5(XREF 1S), .5(XREF 1K)
    DIV .5(XREF 1S), .5(XREF 1K)
    DIV(0 .5(XREF 1S), .5(XREF 1K)
    DLAYGO 2+1*!
    U IDZ0+1, IDZ1+1, IDZ2+1, .3+1, .3(XREF 2S), .3(XREF 2K), .5(XREF 1S), .5(XREF 1K)
    >> VADM(1 2+1
    >> VADM(2 2+1
    X .01+1*!, .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .3+1!*, .3(HELP ), .3(XREF 1S), .3(XREF 1K), .3(XREF 2S), .3(XREF 2K)
    , .4+1!, .4(XREF 1S), .4(XREF 1K), .5+1*!, .5(XREF 1S), .5(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!*
    2(HELP ), 3(XREF 1S), 3(XREF 1K), 6.8+1!, 8+1!, 10+1!, 14+1!, 15+1!, 16+1!, 17+1!
    , 19+1!, 21+1!, 22+1!, 23+1!, 24+1!, 27+1!, 28+1!, 29+1!, 30+1!, 31+1!
    , 32+1!, 33+1!, 34+1!, 35+1!, 36+1!, 37+1!, 39+1!, 61+1*!, 61(XREF 1S), 61(XREF 1K)
    Y IDZ0+1*, IDZ1+1, .01+1, .3+1, .5+1, .5(XREF 1S), .5(XREF 1K), 2+1, 61+1
    Y(0 .3+1
    Y(1 .5(XREF 1S), .5(XREF 1K)
    Z IDZ0+1*!, .01(XREF 3K)
    ZD .3(HELP ), 2(HELP )
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All