         MACRO                                                          MCE00010
         MCT401PR                                                       MCE00020
SAVE     DS    3F                                                       MCE00030
H7       DC    H'7'                                                     MCE00070
*H15      DC    H'15'                 (13.0) CHG IN 31.0 EXPAND TO 45   MCE00090
H45      DC    H'45'                  (31.0)                            MCE00090
H240     DC    H'240'                                                   MCE00100
WDSTAT   DS    H                                                        MCE00120
DSTAB    DC    X'FF050102030406070A',11X'FF',X'08',9X'FF',X'09'  (60A)  MCE00130
         DC    12X'FF',X'0B',6X'FF',X'0C0D'                      (20.0) MCE00140
         DC    9X'FF',X'0E0F10111213',4X'FF',X'1415'             (22.0) MCE00150
         DC    27X'FF'     TAKE TO 100   (24.1)                         MCE00160
* TABLE FOR CHANGE ON 20080401           (24.1)
         DC    X'FF'       DSTAT = 0                                    MCE00130
         DC    X'05'               1                                    MCE00130
         DC    X'01'               2                                    MCE00130
         DC    X'02'               3                                    MCE00130
         DC    X'03'               4                                    MCE00130
         DC    X'17'               5                                    MCE00130
         DC    X'06'               6                                    MCE00130
         DC    X'07'               7                                    MCE00130
         DC    X'0A'               8                                    MCE00130
         DC    11X'FF'             9-19                                 MCE00130
         DC    X'08'               20                                   MCE00130
         DC    X'18'               21   (27)
         DC    8X'FF'              22-29                                MCE00130
         DC    X'09'               30                                   MCE00130
         DC    12X'FF'             31-42                                MCE00140
         DC    X'0B'               43                                   MCE00140
         DC    6X'FF'              44-49                                MCE00140
         DC    X'0C'               50                                   MCE00140
         DC    X'0D'               51                                   MCE00140
         DC    9X'FF'              52-60                                MCE00150
         DC    X'0E'               61                                   MCE00150
         DC    X'0F'               62                                   MCE00150
         DC    X'10'               63                                   MCE00150
         DC    X'11'               64                                   MCE00150
         DC    X'12'               65                                   MCE00150
         DC    X'13'               66                                   MCE00150
         DC    2X'FF'              67-68    (31.0)                      MCE00150
*31.0    DC    3X'FF'              67-69
         DC    X'19'               69       (31.0)                      MCE00150
         DC    X'16'               70                                   MCE00150
         DC    X'14'               71                                   MCE00150
         DC    X'15'               72                                   MCE00150
*31.0    DC    27X'FF'             73-99
         DC    8X'FF'              73-80    (31.0)
         DC    X'1A'               81       (31.0)
         DC    X'1B'               82       (31.0)
         DC    X'1C'               83       (31.0)
         DC    X'1D'               84       (31.0)
         DC    X'1E'               85       (31.0)
         DC    X'1F'               86       (31.0)
         DC    X'20'               87       (31.0)
         DC    X'21'               88       (31.0)
         DC    X'22'               89       (31.0)
         DC    X'23'               90       (31.0)
         DC    X'24'               91       (31.0)
         DC    X'25'               92       (31.0)
         DC    X'26'               93       (31.0)
         DC    X'27'               94       (31.0)
         DC    X'28'               95       (31.0)
         DC    5X'FF'              96-100   (31.0)
*                                                                       MCE00160
TRTAB    DC    240X'FF',10X'00',6X'FF'                                  MCE00170
BLANKS   DC    CL7' '                 (23.0)                            MCE00180
CHAR0    DC    CL7'0000000'           (23.0)                            MCE00190
DEFMSG   DC    C'(DEFAULT)'           (4.0)                             MCE00200
ADXFLG   DS    CL1                    (24.0)
*********************************************************************** MCE00210
RIBCODE  DS    CL16                   (24.0)CODE/DISCH DATE             MCE00220
MCTDATE  EQU   RIBCODE+8              (24.0)                            MCE00230
PDXHD    DC    C'PRINCIPAL DIAGNOSIS' (24.0)
ADXHD    DC    C'ADMITTING DIAGNOSIS'                                   MCE00250
NOPROCS  DC    C'NO PROCEDURES'                                         MCE00260
NOSDX    DC    C'NO SECONDARY DIAGNOSES'                                MCE00270
NONE     DC    C'NO DESCRIPTION'                                        MCE00280
INVDST   DC    C'INVALID '                                              MCE00290
INVDST2  DC    C'DISCHARGE STATUS:'                                     MCE00300
INVAGE   DC    C'INVALID '                                              MCE00310
INVAGE2  DC    C'AGE:'                                                  MCE00320
INVSEX   DC    C'INVALID '                                              MCE00330
INVSEX2  DC    C'SEX:'                                                  MCE00340
INVDTE   DC    C'INVALID '            (4.0)                             MCE00350
INVDTE2  DC    C'DISCHARGE DATE:'     (4.0)                             MCE00360
INVLOS   DC    C'LOS:'                (30.0)
*********************************************************************** MCE00370
HEAD1    DC    C'MEDICARE CODE EDITOR - '                               MCE00570
*********************************************************************** MCE00760
SEXDSC   DC    CL7'UNKNOWN'                                             MCE00770
         DC    CL7'MALE'                                                MCE00780
         DC    CL7'FEMALE'                                              MCE00790
*********************************************************************** MCE00980
PHD1     DC    C'(PPS)'                                                 MCE00990
PHD2     DC    C'(NON-PPS)'                                             MCE01000
PHD3     DC    C'(PPS STATUS UNKNOWN)'                                  MCE01010
*********************************************************************** MCE01020
PCNTL    DC    C' '                                                     MCE01030
PAREA    DC    CL132' '                                                 MCE01040
PC       EQU   PCNTL                                                    MCE01050
PA       EQU   PC+4                                                     MCE01060
*********************************************************************** MCE01070
PAGENO   DC    PL3'1'                                                   MCE01080
SCHAR    DC    CL10'  /  /    '         (15.0)FILLED BY MCT..DT         MCE01090
PMSK     DC    X'402020202120'                                          MCE01100
AMSK     DC    X'40202120'                                              MCE01110
PSW      DC    X'00'                                                    MCE01120
P0       DC    PL1'0'                                                   MCE01140
P1       DC    PL1'1'                                                   MCE01140
*********************************************************************** MCE01150
BUFDEF   DS   0CL138                  (27)UP FROM 78                    MCE01160
BUFPROV  DS    CL15                                                     MCE01170
BUFPPS   DS    CL1                                                      MCE01180
BUFACCM  DS    0CL120                  (27)UP FROM 60                   MCE01190
         DS    CL46
BUFAGE   DS    CL2
BUFSEX   DS    CL2
BUFDST   DS    CL2
         DS    CL68
BUFEDFL  DS    CL2                                                      MCE01230
***********************************************************************
* DISCHARGE STATUS DESCRIPTION EXPANDED FROM 15 TO 45 BYTES IN 31.0
* NEW DSTATS AND DESCRIPTIONS ADDED
***********************************************************************
DDSC     DC    CL45'UNKNOWN'
         DC    CL45'XFR-ACU'
         DC    CL45'XFR-SNF'
*        DC    CL15'XFR-ICF'                DEL  (27.0)
         DC    CL45'CUST/SUPP CARE'         NEW  (27.0)
         DC    CL45'XFR-OTHER'
         DC    CL45'HOME'
         DC    CL45'HHC'
         DC    CL45'AMA'
         DC    CL45'DIED'
         DC    CL45'STILL PATIENT'
         DC    CL45'HOME-IV SERV'
         DC    CL45'FED HOSPITAL'                (20.0)
         DC    CL45'HOSPICE-HOME'                (13.0)
         DC    CL45'HOSPICE-MED FAC'             (13.0)
         DC    CL45'SWING BED'                   (18.0)
         DC    CL45'REHAB FAC/UNIT'              (18.0)
         DC    CL45'LTC HOSPITAL'                (18.0)
         DC    CL45'NURS FAC-MCAID'              (19.0)
         DC    CL45'PSYCH HOSP/UNIT'             (20.0)
         DC    CL45'CRIT ACC HOSP'               (22.0)
         DC    CL45'OP SRV-OTHR FAC'             (18.0)
         DC    CL45'OP SRV-THIS FAC'             (18.0)
         DC    CL45'OTH INSTITUTION'             (24.1)
         DC    CL45'CANC/CHILD HOSP'             (24.1)
         DC    CL45'COURT/LAW ENFRC'             (26.0)
         DC    CL45'DESIGNATED DISASTER ALTERNATIVE CARE SITE' 69(31.0)
         DC    CL45'HOME-SELF CARE W PLANNED READMISSION'      81(31.0)
         DC    CL45'SHORT TERM HOSPITAL W PLANNED READMISSION' 82(31.0)
         DC    CL45'SNF W PLANNED READMISSION'                 83(31.0)
         DC    CL45'CUST/SUPP CARE W PLANNED READMISSION'      84(31.0)
         DC    CL45'CANC/CHILD HOSP W PLANNED READMISSION'     85(31.0)
         DC    CL45'HOME HEALTH SERVICE W PLANNED READMISSION' 86(31.0)
         DC    CL45'COURT/LAW ENFRC W PLANNED READMISSION'     87(31.0)
         DC    CL45'FEDERAL HOSPITAL W PLANNED READMISSION'    88(31.0)
         DC    CL45'SWING BED W PLANNED READMISSION'           89(31.0)
         DC    CL45'REHAB FACILITY/ UNIT W PLANNED READMISSION'  (31.0)
         DC    CL45'LTCH W PLANNED READMISSION'                91(31.0)
         DC    CL45'NURSG FAC-MEDICAID CERT W PLANNED READMISS'  (31.0)
         DC    CL45'PSYCH HOSP/UNIT W PLANNED READMISSION'     93(31.0)
         DC    CL45'CRIT ACC HOSP W PLANNED READMISSION'       94(31.0)
         DC    CL45'OTH INSTITUTION W PLANNED READMISSION'     95(31.0)
*********************************************************************** MCE01240
* REGISTER EQUATES                                                      MCE01580
*********************************************************************** MCE01590
R0       EQU   0                                                        MCE01600
R1       EQU   1                                                        MCE01610
R2       EQU   2                                                        MCE01620
R3       EQU   3                                                        MCE01630
R4       EQU   4                                                        MCE01640
R5       EQU   5                                                        MCE01650
R6       EQU   6                                                        MCE01660
R7       EQU   7                                                        MCE01670
R8       EQU   8                                                        MCE01680
R9       EQU   9                                                        MCE01690
R10      EQU   10                                                       MCE01700
R11      EQU   11                                                       MCE01710
R12      EQU   12                                                       MCE01720
R13      EQU   13                                                       MCE01730
R14      EQU   14                                                       MCE01740
R15      EQU   15                                                       MCE01750
*********************************************************************** MCE01760
* ERROR FLAGS                                                           MCE01770
*********************************************************************** MCE01780
FBYTE1   EQU   X'FF'                  (3.0)                             MCE01790
FINV     EQU   X'80'                  (3.0)                             MCE01800
FSEX     EQU   X'40'                  (3.0)                             MCE01810
FAGE     EQU   X'20'                  (3.0)                             MCE01820
FQADM    EQU   X'10'                  (3.0)                             MCE01830
FMANIF   EQU   X'08'                  (3.0)                             MCE01840
FNSDX    EQU   X'04'                  (3.0)                             MCE01850
FEPDX    EQU   X'02'                  (3.0)                             MCE01860
FINV45   EQU   X'01'                  (3.0)                             MCE01870
*                                                                       MCE01880
FBYTE2   EQU   X'FF'                  (3.0)                             MCE01890
FNSOR    EQU   X'80'                  (3.0)                             MCE01900
FBIOP    EQU   X'40'                  (3.0)                             MCE01910
FNCOV    EQU   X'20'                  (3.0)                             MCE01920
FUNACC   EQU   X'10'                  (3.0)                             MCE01930
FDUPPDX  EQU   X'08'                  (3.0)                             MCE01940
FMSP     EQU   X'04'                  (3.0)                             MCE01950
FBILAT   EQU   X'02'                  (3.0)                             MCE01960
FREQSDX  EQU   X'01'                  (3.0)                             MCE01970
*                                                                       MCE01980
FBYTE3   EQU   X'FF'                  (20.0)                            MCE01990
FLVRS    EQU   X'80'                  (20.0)
FLUNT    EQU   X'40'                  (20.0)
FCHLT    EQU   X'20'                  (20.0)
FHART    EQU   X'10'                  (20.0)
FIIPH    EQU   X'08'                  (20.0)
FIMVT    EQU   X'04'                  (20.0)
FLIVT    EQU   X'02'                  (20.0)
FOPRC    EQU   X'01'                  (20.0)                            MCE02000
*
FBYTE4   EQU   X'01'                  (20.0)
FORPROC  EQU   X'01'                  (3.0)NOT AN ERROR                 MCE02000
         MEND                                                           MCE02010
