Previous Topic: Notes to Teleprocessing Monitor UsersNext Topic: VS COBOL II Support


EMPLOYEE Database Definition

This appendix contains the IDMSRPTS utility and the data structure diagram for the EMPLOYEE database from which most of the examples in this manual are taken. Both of the sample programs listed earlier in this manual access this database.

Note: For more information about the IDMSRPTS utility, see the CA IDMS Utilities Guide.

This section contains the following topics:

IDMSRPTS Utility Report Listings

EMPLOYEE Database Structure Diagram

IDMSRPTS Utility Report Listings

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss   1
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ COVERAGE                   RLGTH=  36
RECORD VERSION..... 0100                     DLGTH=  20
RECORD ID.......... 0400                     KLGTH=  16
RECORD LENGTH...... FIXED                    DSTRT=  16
LOCATION MODE...... VIA SET   EMP-COVERAGE    DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION   OFFSET    5 PGS FOR    20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          EMP-COVERAGE   MEMBER     1   2   3
          COVERAGE-CLAIMS OWNER      4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 SELECTION-DATE-0400      DISPLAY               1   8
03 SELECTION-YEAR-0400      DISPLAY         9(4)    1   4
03 SELECTION-MONTH-0400     DISPLAY         9(2)    5   2
03 SELECTION-DAY-0400      DISPLAY         9(2)    7   2
02 TERMINATION-DATE-0400     DISPLAY               9   8
03 TERMINATION-YEAR-0400     DISPLAY         9(4)    9   4
03 TERMINATION-MONTH-0400    DISPLAY         9(2)    13   2
03 TERMINATION-DAY-0400     DISPLAY         9(2)    15   2
02 TYPE-0400           DISPLAY         X     17   1
88 MASTER-0400          COND     'M'          17
88 FAMILY-0400          COND     'F'          17
88 DEPENDENT-0400        COND     'D'          17
02 INS-PLAN-CODE-0400      DISPLAY         X(3)    18   3
88 GROUP-LIFE-0400        COND     '001'         18
88 HMO-0400           COND     '002'         18
88 GROUP-HEALTH-0400       COND     '003'         18
88 GROUP-DENTAL-0400       COND     '004'         18
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss   3
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ DENTAL-CLAIM                 RLGTH= 944
RECORD VERSION..... 0100                     DLGTH= 936
RECORD ID.......... 0405                     KLGTH=  8
RECORD LENGTH...... VARIABLE                   DSTRT=  12
MINIMUM ROOT.......  132 CHARACTERS
MINIMUM FRAGMENT...  932 CHARACTERS
LOCATION MODE...... VIA SET   COVERAGE-CLAIMS   DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION   OFFSE    5 PGS FOR    20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          COVERAGE-CLAIMS MEMBER     1
          (FRAGMENT CHAIN) INTRNL     2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 CLAIM-DATE-0405        DISPLAY               1   8
03 CLAIM-YEAR-0405        DISPLAY         9(4)    1   4
03 CLAIM-MONTH-0405       DISPLAY         9(2)    5   2
03 CLAIM-DAY-0405        DISPLAY         9(2)    7   2
02 PATIENT-NAME-0405       DISPLAY               9  25
03 PATIENT-FIRST-NAME-0405    DISPLAY         X(10)    9  10
03 PATIENT-LAST-NAME-0405    DISPLAY         X(15)   19  15
02 PATIENT-BIRTH-DATE-0405    DISPLAY              34   8
03 PATIENT-BIRTH-YEAR-0405    DISPLAY         9(4)    34   4
03 PATIENT-BIRTH-MONTH-0405   DISPLAY         9(2)    38   2
03 PATIENT-BIRTH-DAY-0405    DISPLAY         9(2)    40   2
02 PATIENT-SEX-0405       DISPLAY         X     42   1
02 RELATION-TO-EMPLOYEE-0405   DISPLAY         X(10)   43  10
02 DENTIST-NAME-0405       DISPLAY              53  25
03 DENTIST-FIRST-NAME-0405    DISPLAY         X(10)   53  10
03 DENTIST-LAST-NAME-0405    DISPLAY         X(15)   63  15
02 DENTIST-ADDRESS-0405     DISPLAY              78  46
03 DENTIST-STREET-0405      DISPLAY         X(20)   78  20
03 DENTIST-CITY-0405       DISPLAY         X(15)   98  15
03 DENTIST-STATE-0405      DISPLAY         X(2)   113   2
03 DENTIST-ZIP-0405       DISPLAY              115   9
04 DENTIST-ZIP-FIRST-FIVE-0405  DISPLAY         X(5)   115   5
04 DENTIST-ZIP-LAST-FOUR-0405  DISPLAY         X(4)   120   4
02 DENTIST-LICENSE-NUMBER-0405  DISPLAY         9(6)   124   6
02 NUMBER-OF-PROCEDURES-0405   COMP          9(2)   130   2
02 FILLER            DISPLAY         X     132   1
02 DENTIST-CHARGES-0405     DISPLAY OCCURS 0 TO 10      133  800
  DEPENDING ON --- NUMBER-OF-PROCEDURES-0405
03 TOOTH-NUMBER-0405       DISPLAY         9(2)    1   2
03 SERVICE-DATE-0405       DISPLAY               3   8
04 SERVICE-YEAR-0405       DISPLAY         9(4)    3   4
04 SERVICE-MONTH-0405      DISPLAY         9(2)    7   2
04 SERVICE-DAY-0405       DISPLAY         9(2)    9   2
03 PROCEDURE-CODE-0405      DISPLAY         9(4)    11   4
03 DESCRIPTION-OF-SERVICE-0405  DISPLAY         X(60)   15  60
03 FEE-0405           COMP-3         S9(7)V99  75   5
03 FILLER            DISPLAY         X     80   1
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss   6
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ DEPARTMENT                  RLGTH=  72
RECORD VERSION..... 0100                     DLGTH=  56
RECORD ID.......... 0410                     KLGTH=  16
RECORD LENGTH...... FIXED                    DSTRT=  16
LOCATION MODE...... CALC USING  DEPT-ID-0410     DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION   OFFSET    5 PGS FOR    20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
          DEPT-EMPLOYEE  INDEX OWNER   3   4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 DEPT-ID-0410         DISPLAY         9(4)    1   4
02 DEPT-NAME-0410        DISPLAY         X(45)    5  45
02 DEPT-HEAD-ID-0410       DISPLAY         9(4)    50   4
02 FILLER            DISPLAY         XXX    54   3
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss   7
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ EMPLOYEE                   RLGTH= 192
RECORD VERSION..... 0100                     DLGTH= 120
RECORD ID.......... 0415                     KLGTH=  72
RECORD LENGTH...... FIXED                    DSTRT=  72
LOCATION MODE...... CALC USING  EMP-ID-0415     DUPLICATES NOT ALLOWED
WITHIN............. EMP-DEMO-REGION   OFFSET    5 PGS FOR    45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
          DEPT-EMPLOYEE  INDEX MEMBER  3      4
          EMP-NAME-NDX   INDEX MEMBER  5
          EMP-SSN-NDX   INDEX MEMBER  6
          OFFICE-EMPLOYEE INDEX MEMBER  7      8
          EMP-COVERAGE   OWNER      9  10
          EMP-EMPOSITION  OWNER     11  12
          EMP-EXPERTISE  OWNER     13  14
          MANAGES     OWNER     15  16
          REPORTS-TO    OWNER     17  18
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 EMP-ID-0415          DISPLAY         9(4)    1   4
02 EMP-NAME-0415         DISPLAY               5  25
03 EMP-FIRST-NAME-0415      DISPLAY         X(10)    5  10
03 EMP-LAST-NAME-0415      DISPLAY         X(15)   15  15
02 EMP-ADDRESS-0415       DISPLAY              30  46
03 EMP-STREET-0415        DISPLAY         X(20)   30  20
03 EMP-CITY-0415         DISPLAY         X(15)   50  15
03 EMP-STATE-0415        DISPLAY         X(2)    65   2
03 EMP-ZIP-0415         DISPLAY              67   9
04 EMP-ZIP-FIRST-FIVE-0415    DISPLAY         X(5)    67   5
04 EMP-ZIP-LAST-FOUR-0415    DISPLAY         X(4)    72   4
02 EMP-PHONE-0415        DISPLAY         9(10)   76  10
02 STATUS-0415          DISPLAY         X(2)    86   2
88 ACTIVE-0415          COND     '01'         86
88 ST-DISABIL-0415        COND     '02'         86
88 LT-DISABIL-0415        COND     '03'         86
88 LEAVE-OF-ABSENCE-0415     COND     '04'         86
88 TERMINATED-0415        COND     '05'         86
02 SS-NUMBER-0415        DISPLAY         9(9)    88   9
02 START-DATE-0415        DISPLAY              97   8
03 START-YEAR-0415        DISPLAY         9(4)    97   4
03 START-MONTH-0415       DISPLAY         9(2)   101   2
03 START-DAY-0415        DISPLAY         9(2)   103   2
02 TERMINATION-DATE-0415     DISPLAY              105   8
03 TERMINATION-YEAR-0415     DISPLAY         9(4)   105   4
03 TERMINATION-MONTH-0415    DISPLAY         9(2)   109   2
03 TERMINATION-DAY-0415     DISPLAY         9(2)   111   2
02 BIRTH-DATE-0415        DISPLAY              113   8
03 BIRTH-YEAR-0415        DISPLAY         9(4)   113   4
03 BIRTH-MONTH-0415       DISPLAY         9(2)   117   2
03 BIRTH-DAY-0415        DISPLAY         9(2)   119   2
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss   8
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ EMPOSITION                  RLGTH=  56
RECORD VERSION..... 0100                     DLGTH=  32
RECORD ID.......... 0420                     KLGTH=  24
RECORD LENGTH...... FIXED                    DSTRT=  24
LOCATION MODE...... VIA SET   EMP-EMPOSITION   DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION   OFFSET   5 PGS FOR     45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          EMP-EMPOSITION  MEMBER     1   2   3
          JOB-EMPOSITION  MEMBER     4   5   6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 START-DATE-0420        DISPLAY               1   8
03 START-YEAR-0420        DISPLAY         9(4)    1   4
03 START-MONTH-0420       DISPLAY         9(2)    5   2
03 START-DAY-0420        DISPLAY         9(2)    7   2
02 FINISH-DATE-0420       DISPLAY               9   8
03 FINISH-YEAR-0420       DISPLAY         9(4)    9   4
03 FINISH-MONTH-0420       DISPLAY         9(2)    13   2
03 FINISH-DAY-0420        DISPLAY         9(2)    15   2
02 SALARY-GRADE-0420       DISPLAY         9(2)    17   2
02 SALARY-AMOUNT-0420      COMP-3         S9(7)V99  19   5
02 BONUS-PERCENT-0420      COMP-3         SV999   24   2
02 COMMISSION-PERCENT-0420    COMP-3         SV999   26   2
02 OVERTIME-RATE-0420      COMP-3         S9V99   28   2
02 FILLER            DISPLAY         XXX    30   3
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  10
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ EXPERTISE                  RLGTH=  32
RECORD VERSION..... 0100                     DLGTH=  12
RECORD ID.......... 0425                     KLGTH=  20
RECORD LENGTH...... FIXED                    DSTRT=  20
LOCATION MODE...... VIA SET   EMP-EXPERTIS    DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION   OFFSET   5 PGS FOR     45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          EMP-EXPERTISE  MEMBER     1   2   3
          SKILL-EXPERTISE INDEX MEMBER  4      5
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 SKILL-LEVEL-0425       DISPLAY         XX     1   2
88 EXPERT-0425          COND     '04'          1
88 PROFICIENT-0425        COND     '03'          1
88 COMPETENT-0425        COND     '02'          1
88 ELEMENTARY-0425        COND     '01'          1
02 EXPERTISE-DATE-0425      DISPLAY               3   8
03 EXPERTISE-YEAR-0425      DISPLAY         9(4)    3   4
03 EXPERTISE-MONTH-0425     DISPLAY         9(2)    7   2
03 EXPERTISE-DAY-0425      DISPLAY         9(2)    9   2
02 FILLER            DISPLAY         XX     11   2

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  10
                         SCHEMA EMPSCHM VERSION 100
RECORD NAME........ HOSPITAL-CLAIM                RLGTH= 304
RECORD VERSION..... 0100                     DLGTH= 300
RECORD ID.......... 0430                     KLGTH=  4
RECORD LENGTH...... FIXED                    DSTRT=  4
LOCATION MODE...... VIA SET   COVERAGE-CLAIMS  DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION   OFFSET   5 PGS FOR     20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          COVERAGE-CLAIMS MEMBER     1
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 CLAIM-DATE-0430        DISPLAY               1   8
03 CLAIM-YEAR-0430        DISPLAY         9(4)    1   4
03 CLAIM-MONTH-0430       DISPLAY         9(2)    5   2
03 CLAIM-DAY-0430        DISPLAY         9(2)    7   2
02 PATIENT-NAME-0430       DISPLAY               9  25
03 PATIENT-FIRST-NAME-0430    DISPLAY         X(10)    9  10
03 PATIENT-LAST-NAME-0430    DISPLAY         X(15)   19  15
02 PATIENT-BIRTH-DATE-0430    DISPLAY              34   8
03 PATIENT-BIRTH-YEAR-0430    DISPLAY         9(4)    34   4
03 PATIENT-BIRTH-MONTH-0430   DISPLAY         9(2)    38   2
03 PATIENT-BIRTH-DAY-0430    DISPLAY         9(2)    40   2
02 PATIENT-SEX-0430       DISPLAY         X     42   1
02 RELATION-TO-EMPLOYEE-0430   DISPLAY         X(10)   43  10
02 HOSPITAL-NAME-0430      DISPLAY         X(25)   53  25
02 HOSP-ADDRESS-0430       DISPLAY              78  46
03 HOSP-STREET-0430       DISPLAY         X(20)   78  20
03 HOSP-CITY-0430        DISPLAY         X(15)   98  15
03 HOSP-STATE-0430        DISPLAY         X(2)   113   2
03 HOSP-ZIP-0430         DISPLAY              115   9
04 HOSP-ZIP-FIRST-FIVE-0430   DISPLAY         X(5)   115   5
04 HOSP-ZIP-LAST-FOUR-0430    DISPLAY         X(4)   120   4
02 ADMIT-DATE-0430        DISPLAY              124   8
03 ADMIT-YEAR-0430        DISPLAY         9(4)   124   4
03 ADMIT-MONTH-0430       DISPLAY         9(2)   128   2
03 ADMIT-DAY-0430        DISPLAY         9(2)   130   2
02 DISCHARGE-DATE-0430      DISPLAY              132   8
03 DISCHARGE-YEAR-0430      DISPLAY         9(4)   132   4
03 DISCHARGE-MONTH-0430     DISPLAY         9(2)   136   2
03 DISCHARGE-DAY-0430      DISPLAY         9(2)   138   2
02 DIAGNOSIS-0430        DISPLAY OCCURS 2    X(60)   140  120
02 HOSPITAL-CHARGES-0430     DISPLAY              260  41
03 ROOM-AND-BOARD-0430      DISPLAY              260  26
04 WARD-0430           DISPLAY              260  13
05 WARD-DAYS-0430        COMP-3         S9(5)   260   3
05 WARD-RATE-0430        COMP-3         S9(7)V99 263   5
05 WARD-TOTAL-0430        COMP-3         S9(7)V99 268   5
04 SEMI-PRIVATE-0430       DISPLAY              273  13
05 SEMI-DAYS-0430        COMP-3         S9(5)   273   3
05 SEMI-RATE-0430        COMP-3         S9(7)V99 276   5
05 SEMI-TOTAL-0430        COMP-3         S9(7)V99 281   5
03 OTHER-CHARGES-0430      DISPLAY              286  15
04 DELIVERY-COST-0430      COMP-3         S9(7)V99 286   5
04 ANESTHESIA-COST-0430     COMP-3         S9(7)V99 291   5
04 LAB-COST-0430         COMP-3         S9(7)V99 296   5

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  12
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ INSURANCE-PLAN                RLGTH= 140
RECORD VERSION..... 0100                     DLGTH= 132
RECORD ID.......... 0435                     KLGTH=  8
RECORD LENGTH...... FIXED                    DSTRT=  8
LOCATION MODE...... CALC USING  INS-PLAN-CODE-0435  DUPLICATES NOT ALLOWED
WITHIN............. INS-DEMO-REGION   OFFSET    1 PGS FOR    4 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 INS-PLAN-CODE-0435      DISPLAY         X(3)    1   3
88 GROUP-LIFE-0435        COND     '001'         1
88 HMO-0435           COND     '002'         1
88 GROUP-HEALTH-0435       COND     '003'         1
88 GROUP-DENTAL-0435       COND     '004'         1
02 INS-CO-NAME-0435       DISPLAY         X(45)    4  45
02 INS-CO-ADDRESS-0435      DISPLAY              49  46
03 INS-CO-STREET-0435      DISPLAY         X(20)   49  20
03 INS-CO-CITY-0435       DISPLAY         X(15)   69  15
03 INS-CO-STATE-0435       DISPLAY         X(2)    84   2
03 INS-CO-ZIP-0435        DISPLAY              86   9
04 INS-CO-ZIP-FIRST-FIVE-0435  DISPLAY         X(5)    86   5
04 INS-CO-ZIP-LAST-FOUR-0435   DISPLAY         X(4)    91   4
02 INS-CO-PHONE-0435       DISPLAY         9(10)   95  10
02 GROUP-NUMBER-0435       DISPLAY         9(6)   105   6
02 PLAN-DESCRIPTION-0435     DISPLAY              111  20
03 DEDUCT-0435          COMP-3         S9(7)V99 111   5
03 MAXIMUM-LIFE-COST-0435    COMP-3         S9(7)V99 116   5
03 FAMILY-COST-0435       COMP-3         S9(7)V99 121   5
03 DEP-COST-0435         COMP-3         S9(7)V99 126   5
02 FILLER            DISPLAY         XX    131   2

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  14
                         SCHEMA EMPSCHM VERSION 100
RECORD NAME........ JOB                     RLGTH= 324
RECORD VERSION..... 0100                     DLGTH= 300
RECORD ID.......... 0440                     KLGTH=  24
RECORD LENGTH...... FIXED (INTERNALLY VARIABLE)         DSTRT=  28
MINIMUM ROOT.......  24 CHARACTERS
MINIMUM FRAGMENT...  296 CHARACTERS
LOCATION MODE...... CALC USING  JOB-ID-0440     DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION   OFFSET    5 PGS FOR    20 PGS
CALL PROCEDURES.... NAME.... WHEN.. FUNCTION
          IDMSCOMP BEFORE STORE
          IDMSCOMP BEFORE MODIFY
          IDMSDCOM AFTER GET
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
          JOB-TITLE-NDX  INDEX MEMBER  3
          JOB-EMPOSITION  OWNER      4   5
          (FRAGMENT CHAIN) INTRNL     6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 JOB-ID-0440          DISPLAY         9(4)    1   4
02 TITLE-0440          DISPLAY         X(20)    5  20
02 DESCRIPTION-0440       DISPLAY              25  120
03 DESCRIPTION-LINE-0440     DISPLAY OCCURS 2    X(60)   25  120
02 REQUIREMENTS-0440       DISPLAY              145  120
03 REQUIREMENT-LINE-0440     DISPLAY OCCURS 2    X(60)   145  120
02 MINIMUM-SALARY-0440      DISPLAY         S9(6)V99 265   8
02 MAXIMUM-SALARY-0440      DISPLAY         S9(6)V99 273   8
02 SALARY-GRADES-0440      DISPLAY OCCURS 4    9(2)   281   8
02 NUMBER-OF-POSITIONS-0440   DISPLAY         9(3)   289   3
02 NUMBER-OPEN-0440       DISPLAY         9(3)   292   3
02 FILLER            DISPLAY         XX    295   2

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  15
                         SCHEMA EMPSCHM VERSION 100
RECORD NAME........ NON-HOSP-CLAIM                RLGTH= 1064
RECORD VERSION..... 0100                     DLGTH= 1056
RECORD ID.......... 0445                     KLGTH=  8
RECORD LENGTH...... VARIABLE                   DSTRT=  12
MINIMUM ROOT.......  248 CHARACTERS
MINIMUM FRAGMENT... 1052 CHARACTERS
LOCATION MODE...... VIA SET   COVERAGE-CLAIMS  DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION   OFFSET   5 PGS FOR     20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          COVERAGE-CLAIMS MEMBER     1
          (FRAGMENT CHAIN) INTRNL     2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 CLAIM-DATE-0445        DISPLAY               1   8
03 CLAIM-YEAR-0445        DISPLAY         9(4)    1   4
03 CLAIM-MONTH-0445       DISPLAY         9(2)    5   2
03 CLAIM-DAY-0445        DISPLAY         9(2)    7   2
02 PATIENT-NAME-0445       DISPLAY               9  25
03 PATIENT-FIRST-NAME-0445    DISPLAY         X(10)    9  10
03 PATIENT-LAST-NAME-0445    DISPLAY         X(15)   19  15
02 PATIENT-BIRTH-DATE-0445    DISPLAY              34   8
03 PATIENT-BIRTH-YEAR-0445    DISPLAY         9(4)    34   4
03 PATIENT-BIRTH-MONTH-0445   DISPLAY         9(2)    38   2
03 PATIENT-BIRTH-DAY-0445    DISPLAY         9(2)    40   2
02 PATIENT-SEX-0445       DISPLAY         X     42   1
02 RELATION-TO-EMPLOYEE-0445   DISPLAY         X(10)   43  10
02 PHYSICIAN-NAME-0445      DISPLAY              53  25
03 PHYSICIAN-FIRST-NAME-0445   DISPLAY         X(10)   53  10
03 PHYSICIAN-LAST-NAME-0445   DISPLAY         X(15)   63  15
02 PHYSICIAN-ADDRESS-0445    DISPLAY              78  46
03 PHYSICIAN-STREET-0445     DISPLAY         X(20)   78  20
03 PHYSICIAN-CITY-0445      DISPLAY         X(15)   98  15
03 PHYSICIAN-STATE-0445     DISPLAY         X(2)   113   2
03 PHYSICIAN-ZIP-0445      DISPLAY              115   9
04 PHYSICIAN-ZIP-FIRST-FIVE-0445 DISPLAY         X(5)   115   5
04 PHYSICIAN-ZIP-LAST-FOUR-0445 DISPLAY         X(4)   120   4
02 PHYSICIAN-ID-0445       DISPLAY         9(6)   124   6
02 DIAGNOSIS-0445        DISPLAY OCCURS 2    X(60)   130  120
02 NUMBER-OF-PROCEDURES-0445   COMP          9(2)   250   2
02 FILLER            DISPLAY         X     252   1
02 PHYSICIAN-CHARGES-0445    DISPLAY OCCURS 0 TO 10      253  800
  DEPENDING ON -- NUMBER-OF-PROCEDURES-0445
03 SERVICE-DATE-0445       DISPLAY               1   8
04 SERVICE-YEAR-0445       DISPLAY         9(4)    1   4
04 SERVICE-MONTH-0445      DISPLAY         9(2)    5   2
04 SERVICE-DAY-0445       DISPLAY         9(2)    7   2
03 PROCEDURE-CODE-0445      DISPLAY         9(4)    9   4
03 DESCRIPTION-OF-SERVICE-0445  DISPLAY         X(60)   13  60
03 FEE-0445           COMP-3         S9(7)V99  73   5
03 FILLER            DISPLAY         XXX    78   3
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  18
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ OFFICE                    RLGTH=  92
RECORD VERSION..... 0100                     DLGTH=  76
RECORD ID.......... 0450                     KLGTH=  16
RECORD LENGTH...... FIXED                    DSTRT=  16
LOCATION MODE...... CALC USING  OFFICE-CODE-0450   DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION   OFFSET    5 PGS FOR    20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
          OFFICE-EMPLOYEE INDEX OWNER   3   4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 OFFICE-CODE-0450       DISPLAY         X(3)    1   3
02 OFFICE-ADDRESS-0450      DISPLAY               4  46
03 OFFICE-STREET-0450      DISPLAY         X(20)    4  20
03 OFFICE-CITY-0450       DISPLAY         X(15)   24  15
03 OFFICE-STATE-0450       DISPLAY         X(2)    39   2
03 OFFICE-ZIP-0450        DISPLAY              41   9
04 OFFICE-ZIP-FIRST-FIVE-0450  DISPLAY         X(5)    41   5
04 OFFICE-ZIP-LAST-FOUR-0450   DISPLAY         X(4)    46   4
02 OFFICE-PHONE-0450       DISPLAY OCCURS 3    9(7)    50  21
02 OFFICE-AREA-CODE-0450     DISPLAY         X(3)    71   3
02 SPEED-DIAL-0450        DISPLAY         X(3)    74   3
 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  20
                         SCHEMA EMPSCHM VERSION 100


RECORD NAME........ SKILL                    RLGTH=  96
RECORD VERSION..... 0100                     DLGTH=  76
RECORD ID.......... 0455                     KLGTH=  20
RECORD LENGTH...... FIXED                    DSTRT=  20
LOCATION MODE...... CALC USING  SKILL-ID-0455    DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION   OFFSET    5 PGS FOR    20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          CALC       MEMBER     1   2
          SKILL-NAME-NDX  INDEX MEMBER  3
          SKILL-EXPERTISE INDEX OWNER   4   5
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 SKILL-ID-0455         DISPLAY         9(4)    1   4
02 SKILL-NAME-0455        DISPLAY         X(12)    5  12
02 SKILL-DESCRIPTION-0455    DISPLAY         X(60)   17  60

 IDMSRPTS nn.n               ── SCHEMA RECORD DESCRIPTION LISTING ───               DATE   TIME  PAGE
 RECDES                    DICTIONARY APPLDICT OF NODE DEFAULT               mm/dd/yy hhmmss  22
                         SCHEMA EMPSCHM VERSION 100

RECORD NAME........ STRUCTURE                  RLGTH=  36
RECORD VERSION..... 0100                     DLGTH=  12
RECORD ID.......... 0460                     KLGTH=  24
RECORD LENGTH...... FIXED                    DSTRT=  24
LOCATION MODE...... VIA SET   MANAGES      DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION   OFFSET   5 PGS FOR     45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
          MANAGES     MEMBER     1   2   3
          REPORTS-TO    MEMBER     4   5   6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 STRUCTURE-CODE-0460      DISPLAY         X(2)    1   2
88 ADMIN-0460          COND 'A'              1
88 PROJECT-0460         COND 'P1' THRU 'P9'         1
02 STRUCTURE-DATE-0460      DISPLAY               3   8
03 STRUCTURE-YEAR-0460      DISPLAY         9(4)    3   4
03 STRUCTURE-MONTH-0460     DISPLAY         9(2)    7   2
03 STRUCTURE-DAY-0460      DISPLAY         9(2)    9   2
02 FILLER            DISPLAY         XX     11   2

EMPLOYEE Database Structure Diagram

The data structure diagram illustrates record relationships in the EMPLOYEE database.