000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.          HHMGR130.                                   00020069
000300*AUTHOR.             DDS TEAM.                                    00030000
000400*REVISED.            DDS TEAM.                                    00040000
000500*                        CMS.                                     00050000
000600**==============================================================**00060000
000700*REMARKS.                                                         00070000
000800*     HHMGR010   NATIONAL HHA FOR OCT 1, 2000 FY 2001 START OF HH 00080000
000900*     HHMGR012   NATIONAL HHA FOR APR 1, 2001 FY 2001             00090000
001000*                          ****                                   00100000
001100*     HHMGR020   NATIONAL HHA FOR OCT 1, 2001 FY 2002             00110000
001200*     HHMGR030   NATIONAL HHA FOR OCT 1, 2002 FY 2003             00120000
001300*     HHMGR040   NATIONAL HHA FOR OCT 1, 2003 FY 2004             00130000
001400*     HHMGR041   NATIONAL HHA FOR APR 1, 2004 FY 2004             00140000
001500*     HHMGR050   NATIONAL HHA FOR JAN 1, 2005 CY 2005             00150000
001600*     HHMGR060   NATIONAL HHA FOR JAN 1, 2006 CY 2006             00160000
001700*     HHMGR061   NATIONAL HHA FOR JAN 1, 2006 CY 2006             00161000
001800*                RURAL DIFFERENTIAL VERSION                       00162000
001900*     HHMGR062   NATIONAL HHA FOR JAN 1, 2006 CY 2006             00163000
002000*                RURAL DIFFERENTIAL VERSION AND RURAL CBSA CODES  00164000
002100*     HHMGR063   NATIONAL HHA FOR JUL 1, 2006 CY 2006 CICS VERSION00165000
002200*     HHMGR070   NATIONAL HHA FOR JAN 1, 2007 CY 2007 CICS VERSION00165100
002300*     HHMGR071   NATIONAL HHA FOR JAN 1, 2007 CY 2007 CICS VERSION00165200
002400*                CORRECT LUPA RATE DETERMINATION IF STATEMENT     00165300
002500*     HHMGR083   NATIONAL HHA FOR JAN 1, 2008 CY 2008 CICS VERSION00165400
002600*                CORRECT LUPA RATE DETERMINATION IF STATEMENT     00165500
002700*                CORRECT LUPA CALCULATION FOR REJECTED AND        00165601
002800*                REPROCESSED CLAIMS                               00165701
002900*     HHMGR090   NATIONAL HHA FOR JAN 1, 2008 CY 2008 CICS VERSION00165806
003000*                CORRECT LUPA RATE DETERMINATION IF STATEMENT     00165902
003100*                CORRECT LUPA CALCULATION FOR REJECTED AND        00166002
003200*                REPROCESSED CLAIMS. KEEP LUPA HIPS FROM RECODING.00166104
003300*     HHMGR091   LUPA ADD ON ZERO FOR ZERO REV VISITS             00166209
003400*     HHMGR092   HIPPS CODE RECODE CHANGE FOR 5 IN POS 1          00166310
003500*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES - BEATA VERSION 00166419
003600*     HHDRV101 CORRECT LUPA ADD ON FACTORS.                       00166521
003700*     HHDRV103 CORRECT SUPPLY ADD ON CODING.                      00166625
003800*     HHDRV105 HEALTH CARE REFORM                                 00166732
003900*     HHDRV110 HEALTH CARE REFORM                                 00166864
004000*     HHDRV120 HEALTH CARE REFORM                                 00166964
004000*     HHDRV130 HEALTH CARE REFORM                                 00167071
004100**==============================================================**00167171
004200 DATE-COMPILED.                                                   00167271
004300 ENVIRONMENT                     DIVISION.                        00167371
004400                                                                  00167471
004500 CONFIGURATION                   SECTION.                         00167571
004600 SOURCE-COMPUTER.                IBM-370.                         00167671
004700 OBJECT-COMPUTER.                IBM-370.                         00167771
004800                                                                  00167871
004900 INPUT-OUTPUT SECTION.                                            00167971
005000 FILE-CONTROL.                                                    00168071
005100                                                                  00168171
005200     SELECT HHAFILE    ASSIGN TO UT-S-HHAFILE                     00168271
005300         FILE STATUS IS UT1-STAT.                                 00168371
005400     SELECT OUTFILE    ASSIGN TO UT-S-OUTFILE                     00168471
005500         FILE STATUS IS UT2-STAT.                                 00168571
005600     SELECT PRTFILE    ASSIGN TO UT-S-PRTFILE                     00168671
005700         FILE STATUS IS PRT-STAT.                                 00169000
005800                                                                  00170000
005900 DATA DIVISION.                                                   00180000
006000 FILE SECTION.                                                    00190000
006100 FD  HHAFILE                                                      00200000
006200     LABEL RECORDS ARE STANDARD                                   00210000
006300     RECORDING MODE IS F                                          00220000
006400     BLOCK CONTAINS 0 RECORDS.                                    00230000
006500 01  HHA-REC                     PIC X(500).                      00240015
006600                                                                  00250000
006700 FD  OUTFILE                                                      00260000
006800     LABEL RECORDS ARE STANDARD                                   00270000
006900     RECORDING MODE IS F                                          00280000
007000     BLOCK CONTAINS 0 RECORDS.                                    00290000
007100 01  OUT-REC                     PIC X(500).                      00300015
007200                                                                  00310000
007300 FD  PRTFILE                                                      00320000
007400     RECORDING MODE IS F                                          00330000
007500     BLOCK CONTAINS 133 RECORDS                                   00340000
007600     LABEL RECORDS ARE STANDARD.                                  00350000
007700 01  PRTFILE-LINE                PIC X(133).                      00360000
007800                                                                  00370000
007900                                                                  00380000
008000 WORKING-STORAGE SECTION.                                         00390000
008100 77  W-STORAGE-REF               PIC X(49)  VALUE                 00400000
008200     'HHA MANAGER       - W O R K I N G   S T O R A G E'.         00410000
008300 01  HHMGR-VERSION               PIC X(09)  VALUE 'M2013.0'.      00420070
008400 01  HHDRV130                    PIC X(08)  VALUE 'HHDRV130'.     00430069
008500 01  HHOPN130                    PIC X(08)  VALUE 'HHOPN130'.     00440069
008600 01  SUB1                        PIC 9(03)  VALUE 0.              00450000
008700 01  EOF-SW                      PIC 9(01)  VALUE 0.              00460000
008800 01  LINE-CTR                    PIC 9(02)  VALUE 65.             00470000
008900 01  HHAFILE-CTR                 PIC 9(09)  VALUE 0.              00480000
009000 01  OUTFILE-CTR                 PIC 9(09)  VALUE 0.              00490000
009100 01  PRTFILE-CTR                 PIC 9(09)  VALUE 0.              00500000
009200 01  UT1-STAT.                                                    00510000
009300     05  UT1-STAT1               PIC X.                           00520000
009400     05  UT1-STAT2               PIC X.                           00530000
009500 01  UT2-STAT.                                                    00540000
009600     05  UT2-STAT1               PIC X.                           00550000
009700     05  UT2-STAT2               PIC X.                           00560000
009800 01  PRT-STAT.                                                    00570000
009900     05  PRT-STAT1               PIC X.                           00580000
010000     05  PRT-STAT2               PIC X.                           00590000
010100*******************************************************           00600000
010200* NATIONAL HHA RECORD FORMAT PASSED TO HHDRV PROGRAM  *           00610000
010300*******************************************************           00620000
010400 01  HHA-INPUT-DATA.                                              00630000
010500     05  HHA-DATA.                                                00640000
010600         10  HHA-NPI                 PIC X(10).                   00650000
010700         10  HHA-HIC                 PIC X(12).                   00660000
010800         10  HHA-PROV-NO             PIC X(06).                   00670000
010900         10  HHA-TOB                 PIC XXX.                     00680000
011000         10  HHA-PEP-INDICATOR       PIC X.                       00690000
011100         10  HHA-PEP-DAYS            PIC 999.                     00700000
011200         10  HHA-INIT-PAY-INDICATOR  PIC X.                       00710000
011300             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              00720000
011400             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              00730000
011500         10  FILLER                  PIC X(07).                   00740000
011600         10  HHA-MSA1                PIC 9(07)V9(02).             00750000
011700         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    00760000
011800             15  FILLER             PIC XXX.                      00770000
011900             15  HHA-MSA2           PIC XXXX.                     00780000
012000             15  FILLER             PIC XX.                       00790000
012100         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    00800000
012200             15  FILLER             PIC XX.                       00810000
012300             15  HHA-CBSA           PIC XXXXX.                    00820000
012400             15  FILLER             PIC XX.                       00830000
012500         10  HHA-SERV-FROM-DATE.                                  00840000
012600             15  HHA-FROM-CC         PIC XX.                      00850000
012700             15  HHA-FROM-YYMMDD.                                 00860000
012800                 25  HHA-FROM-YY     PIC XX.                      00870000
012900                 25  HHA-FROM-MM     PIC XX.                      00880000
013000                 25  HHA-FROM-DD     PIC XX.                      00890000
013100         10  HHA-SERV-THRU-DATE.                                  00900000
013200             15  HHA-THRU-CC         PIC XX.                      00910000
013300             15  HHA-THRU-YYMMDD.                                 00920000
013400                 25  HHA-THRU-YY     PIC XX.                      00930000
013500                 25  HHA-THRU-MM     PIC XX.                      00940000
013600                 25  HHA-THRU-DD     PIC XX.                      00950000
013700         10  HHA-ADMIT-DATE.                                      00960000
013800             15  HHA-ADMIT-CC        PIC XX.                      00970000
013900             15  HHA-ADMIT-YYMMDD.                                00980000
014000                 25  HHA-ADMIT-YY    PIC XX.                      00990000
014100                 25  HHA-ADMIT-MM    PIC XX.                      01000000
014200                 25  HHA-ADMIT-DD    PIC XX.                      01010000
014300         10  HHA-HRG-DATA      OCCURS 6.                          01020000
014400             15  HHA-MED-REVIEW-INDICATOR PIC X.                  01030000
014500             15  HHA-HRG-INPUT-CODE       PIC X(05).              01040000
014600             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              01050000
014700             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              01060000
014800             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        01070000
014900             15  HHA-HRG-PAY              PIC 9(07)V9(02).        01080000
015000         10  HHA-REVENUE-DATA     OCCURS 6.                       01090000
015100             15  HHA-REVENUE-CODE       PIC X(04).                01100000
015200             15  HHA-REVENUE-QTY-COV-VISITS PIC 9(03).            01110000
015300             15  HHA-REVENUE-DOLL-RATE  PIC 9(07)V9(02).          01120000
015400             15  HHA-REVENUE-COST       PIC 9(07)V9(02).          01130000
015500     05  HHA-PASSBACK-DATA.                                       01140000
015600         10  HHA-PAY-RTC                PIC 99.                   01150000
015700         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                01160000
015800         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                01170000
015900         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          01180000
016000         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          01190000
016100     05  HHA-CASE-MIX-DATA.                                       01200000
016200         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).          01210000
016300         10  HHA-LUPA-SRC-ADM           PIC X.                    01220000
016400         10  HHA-RECODE-IND             PIC X.                    01230000
016500         10  HHA-EPISODE-TIMING         PIC 9.                    01240000
016600         10  HHA-SEVERITY-POINTS.                                 01250000
016700             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).                01260000
016800             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).                01261000
016900             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).                01262000
017000             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).                01263000
017100             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).                01264000
017200             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).                01265000
017300             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).                01266000
017400             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).                01267000
017500     05  HHA-PROV-TOTAL-DATA.                                     01268112
017600         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          01268212
017700         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).          01268361
017800     05  FILLER                         PIC X(33).                01268466
017900*******************************************************           01269000
018000*    05  FILLER                         PIC X(20).                01270000
018100*******************************************************           01280000
018200*    PASSED AND RETURNED FROM HHDRV                   *           01290000
018300*******************************************************           01300000
018400 01  HOLD-VARIABLES-DATA.                                         01310000
018500     02  HOLD-VAR-DATA.                                           01320000
018600         05  PRICER-OPTION-SW         PIC X.                      01330000
018700         05  HHOPN-VERSION            PIC X(07).                  01340000
018800         05  HHDRV-VERSION            PIC X(07).                  01350000
018900         05  HHCAL-VERSION            PIC X(07).                  01360000
019000         05  FILLER                   PIC X(20).                  01370000
019100                                                                  01380000
019200 01  TOTAL-COUNTERS.                                              01390000
019300     03  FILLER    OCCURS 14.                                     01400072
019400         05  COUNT-TOTAL       PIC 9(09)  COMP.                   01410000
019500                                                                  01420000
019600*******************************************************           01430000
019700*----------------------------------------------------**           01440000
019800*    HHA PAYMENT REPORT COMPONENTS                    *           01450000
019900*----------------------------------------------------**           01460000
020000 01  HHA-DETAIL-LINE.                                             01470000
020100     05  FILLER                  PIC X(02)  VALUE SPACES.         01480000
020200     05  PRT-NPI                 PIC X(10).                       01490000
020300     05  FILLER                  PIC X(02).                       01500000
020400     05  PRT-HIC                 PIC X(12).                       01510000
020500     05  FILLER                  PIC X(02).                       01520000
020600     05  PRT-PROV                PIC X(06).                       01530000
020700     05  FILLER                  PIC X(02)  VALUE SPACES.         01540000
020800     05  PRT-MSA-CBSA            PIC X(05).                       01550000
020900     05  FILLER                  PIC X(01)  VALUE SPACES.         01560000
021000     05  PRT-FROM-DATE           PIC X(08).                       01570000
021100     05  FILLER                  PIC X(03)  VALUE SPACES.         01580000
021200     05  PRT-PEP                 PIC X.                           01590000
021300     05  FILLER                  PIC X(02)  VALUE SPACES.         01600000
021400     05  PRT-MED-IND1            PIC X.                           01610000
021500     05  PRT-MED-IND2            PIC X.                           01620000
021600     05  PRT-MED-IND3            PIC X.                           01630000
021700     05  PRT-MED-IND4            PIC X.                           01640000
021800     05  PRT-MED-IND5            PIC X.                           01650000
021900     05  PRT-MED-IND6            PIC X.                           01660000
022000     05  FILLER                  PIC X(01)  VALUE SPACES.         01670000
022100     05  PRT-TOB                 PIC XXX.                         01680000
022200     05  PRT-OUTLIER-PAY         PIC $$,$$$,$$$.99.               01690000
022300     05  PRT-PAYMENT-RATE        PIC $$,$$$,$$$.99.               01700000
022400     05  FILLER                  PIC X(01)  VALUE SPACES.         01710000
022500     05  FILLER                  PIC X(01)  VALUE SPACES.         01720000
022600     05  PRT-HHA-RTC             PIC 99.                          01730000
022700     05  FILLER                  PIC X(01)  VALUE SPACES.         01740000
022800     05  PRT-13-QTY              PIC X(5).                        01750000
022900     05  FILLER                  PIC X(01)  VALUE '/'.            01760000
023000     05  PRT-16-QTY              PIC X(5).                        01770000
023100     05  FILLER                  PIC X(02)  VALUE SPACES.         01780000
023200     05  PRT-INIT-PAY-IND        PIC X.                           01790000
023300     05  FILLER                  PIC X(01)  VALUE SPACES.         01800000
023400     05  PRT-THRU-DATE           PIC X(08).                       01810000
023500     05  PRT-REV-DOLL-RATE-1     PIC $$,$$$,$$$.99.               01820000
023600                                                                  01830000
023700 01  HHA-HEAD1.                                                   01840000
023800     05  FILLER                  PIC X(01)  VALUE SPACES.         01850000
023900     05  FILLER                  PIC X(44)  VALUE                 01860000
024000        ' C M S,                                     '.           01870000
024100     05  FILLER                  PIC X(44)  VALUE                 01880000
024200        '                                            '.           01890000
024300     05  FILLER                  PIC X(44)  VALUE                 01900000
024400        '                                            '.           01910000
024500                                                                  01920000
024600 01  HHA-HEAD2.                                                   01930000
024700     05  FILLER                  PIC X(01)  VALUE SPACES.         01940000
024800     05  FILLER                  PIC X(44)  VALUE                 01950000
024900        ' PDG,DDS     HHA NATIONAL PRICER            '.           01960000
025000     05  FILLER                  PIC X(44)  VALUE                 01970000
025100        '                          T E S T   D A T A '.           01980000
025200     05  FILLER                  PIC X(44)  VALUE                 01990000
025300        '  R E P O R T                               '.           02000000
025400                                                                  02010000
025500 01  HHA-HEAD3.                                                   02020000
025600     05  FILLER                  PIC X(01)  VALUE SPACES.         02030000
025700     05  FILLER                  PIC X(44)  VALUE                 02040000
025800        '    NPI         HIC         PROV           F'.           02050000
025900     05  FILLER                  PIC X(44)  VALUE                 02060000
026000        'ROM    PEP  MED   TOB    OUTLIER         TOT'.           02070000
026100     05  FILLER                  PIC X(44)  VALUE                 02080000
026200        'AL   RTC SUM3/SUM6  PAY  THRU        REV-1  '.           02090000
026300                                                                  02100000
026400 01  HHA-HEAD4.                                                   02110000
026500     05  FILLER                  PIC X(01)  VALUE SPACES.         02120000
026600     05  FILLER                  PIC X(44)  VALUE                 02130000
026700        '    NO.         NO.         NO.  MSA/CBSA  D'.           02140000
026800     05  FILLER                  PIC X(44)  VALUE                 02150000
026900        'ATE    COD  COD          PAYMENT        PAYM'.           02160000
027000     05  FILLER                  PIC X(44)  VALUE                 02170000
027100        'ENT         QTY     IND  DATE        RATE   '.           02180000
027200                                                                  02190000
027300**--------------------------------------------------------------  02200000
027400 PROCEDURE  DIVISION.                                             02210000
027500                                                                  02220000
027600 0000-MAINLINE  SECTION.                                          02230000
027700     OPEN INPUT  HHAFILE                                          02240000
027800          OUTPUT OUTFILE                                          02250000
027900          OUTPUT PRTFILE.                                         02260000
028000                                                                  02270000
028100     MOVE LOW-VALUES TO TOTAL-COUNTERS.                           02280000
028200                                                                  02290000
028300     PERFORM 0100-PROCESS-RECORDS THRU 0100-EXIT UNTIL EOF-SW = 1.02300000
028400                                                                  02310000
028500     DISPLAY ' '.                                                 02320000
028600                                                                  02330000
028700     DISPLAY '-- PROGRAM HHMGR130  VERSION  ===> ' HHMGR-VERSION. 02340069
028800     DISPLAY '-- PROGRAM HHOPN130  VERSION  ===> ' HHOPN-VERSION. 02350069
028900     DISPLAY '-- PROGRAM HHDRV130  VERSION  ===> ' HHDRV-VERSION. 02360069
029000                                                                  02370000
029100     DISPLAY ' '.                                                 02380000
029200                                                                  02390000
029300     IF COUNT-TOTAL (1) > 0                                       02400000
029400         DISPLAY '-- PROGRAM HHCAL015  VERSION  ===> P2001.5 '.   02410062
029500     IF COUNT-TOTAL (2) > 0                                       02420000
029600         DISPLAY '-- PROGRAM HHCAL022  VERSION  ===> P2002.2 '.   02430062
029700     IF COUNT-TOTAL (3) > 0                                       02440000
029800         DISPLAY '-- PROGRAM HHCAL032  VERSION  ===> P2003.2 '.   02450062
029900     IF COUNT-TOTAL (4) > 0                                       02460000
030000         DISPLAY '-- PROGRAM HHCAL043  VERSION  ===> P2004.3 '.   02470062
030100     IF COUNT-TOTAL (5) > 0                                       02480000
030200         DISPLAY '-- PROGRAM HHCAL052  VERSION  ===> P2005.2 '.   02490062
030300     IF COUNT-TOTAL (6) > 0                                       02500000
030400         DISPLAY '-- PROGRAM HHCAL065  VERSION  ===> P2006.5 '.   02510062
030500     IF COUNT-TOTAL (7) > 0                                       02520000
030600         DISPLAY '-- PROGRAM HHCAL073  VERSION  ===> P2007.3 '.   02530062
030700     IF COUNT-TOTAL (8) > 0                                       02531000
030800         DISPLAY '-- PROGRAM HHCAL087  VERSION  ===> P2008.7 '.   02532062
030900     IF COUNT-TOTAL (9) > 0                                       02532107
031000         DISPLAY '-- PROGRAM HHCAL094  VERSION  ===> P2009.4 '.   02532262
031100     IF COUNT-TOTAL (10) > 0                                      02532317
031200         DISPLAY '-- PROGRAM HHCAL10C  VERSION  ===> P2010.C '.   02532462
031300     IF COUNT-TOTAL (11) > 0                                      02532529
031400         DISPLAY '-- PROGRAM HHCAL109  VERSION  ===> P2010.9 '.   02532662
031500     IF COUNT-TOTAL (12) > 0                                      02532733
031600         DISPLAY '-- PROGRAM HHCAL111  VERSION  ===> P2011.1 '.   02532862
031700     IF COUNT-TOTAL (13) > 0                                      02532964
031800         DISPLAY '-- PROGRAM HHCAL120  VERSION  ===> P2012.0 '.   02533070
031700     IF COUNT-TOTAL (13) > 0                                      02533169
031800         DISPLAY '-- PROGRAM HHCAL130  VERSION  ===> P2013.0 '.   02533269
031900                                                                  02533369
032000     DISPLAY ' '.                                                 02534000
032100                                                                  02535000
032200     IF COUNT-TOTAL (1) > 0                                       02536000
032300        DISPLAY '-- FY2001 RECORD COUNT  ===> ' COUNT-TOTAL (1).  02537000
032400     IF COUNT-TOTAL (2) > 0                                       02538000
032500        DISPLAY '-- FY2002 RECORD COUNT  ===> ' COUNT-TOTAL (2).  02539000
032600     IF COUNT-TOTAL (3) > 0                                       02540000
032700        DISPLAY '-- FY2003 RECORD COUNT  ===> ' COUNT-TOTAL (3).  02550000
032800     IF COUNT-TOTAL (4) > 0                                       02560000
032900        DISPLAY '-- FY2004 RECORD COUNT  ===> ' COUNT-TOTAL (4).  02570000
033000     IF COUNT-TOTAL (5) > 0                                       02580000
033100        DISPLAY '-- FY2005 RECORD COUNT  ===> ' COUNT-TOTAL (5).  02590000
033200     IF COUNT-TOTAL (6) > 0                                       02600000
033300        DISPLAY '-- CY2006 RECORD COUNT  ===> ' COUNT-TOTAL (6).  02610000
033400     IF COUNT-TOTAL (7) > 0                                       02620000
033500        DISPLAY '-- CY2007 RECORD COUNT  ===> ' COUNT-TOTAL (7).  02630000
033600     IF COUNT-TOTAL (8) > 0                                       02640000
033700        DISPLAY '-- CY2008 RECORD COUNT  ===> ' COUNT-TOTAL (8).  02650000
033800     IF COUNT-TOTAL (9) > 0                                       02651007
033900        DISPLAY '-- CY2009 RECORD COUNT  ===> ' COUNT-TOTAL (9).  02652007
034000     IF COUNT-TOTAL (10) > 0                                      02653012
034100        DISPLAY '-- CY2010C RECORD COUNT ===> ' COUNT-TOTAL (10). 02654062
034200     IF COUNT-TOTAL (11) > 0                                      02655029
034300        DISPLAY '-- CY20109 RECORD COUNT ===> ' COUNT-TOTAL (11). 02656062
034400     IF COUNT-TOTAL (12) > 0                                      02657033
034500        DISPLAY '-- CY2011  RECORD COUNT ===> ' COUNT-TOTAL (12). 02658033
034600     IF COUNT-TOTAL (13) > 0                                      02659064
034700        DISPLAY '-- CY2012  RECORD COUNT ===> ' COUNT-TOTAL (13). 02659164
034600     IF COUNT-TOTAL (14) > 0                                      02659270
034700        DISPLAY '-- CY2013  RECORD COUNT ===> ' COUNT-TOTAL (13). 02659370
034800                                                                  02660000
034900     DISPLAY ' '.                                                 02670000
035000                                                                  02680000
035100     DISPLAY '-- INPUT  COUNTS FOR HHAFILE  ===> ' HHAFILE-CTR.   02690000
035200     DISPLAY '-- OUTPUT COUNTS FOR OUTFILE  ===> ' OUTFILE-CTR.   02700000
035300     DISPLAY '-- OUTPUT COUNTS FOR PRTFILE  ===> ' PRTFILE-CTR.   02710000
035400                                                                  02720000
035500     CLOSE HHAFILE.                                               02730000
035600     CLOSE OUTFILE.                                               02740000
035700     CLOSE PRTFILE.                                               02750000
035800                                                                  02760000
035900     STOP RUN.                                                    02770000
036000                                                                  02780000
036100 0100-PROCESS-RECORDS.                                            02790000
036200     READ HHAFILE INTO HHA-INPUT-DATA                             02800000
036300         AT END                                                   02810000
036400             MOVE 1 TO EOF-SW                                     02820000
036500             GO TO 0100-EXIT.                                     02830000
036600                                                                  02840000
036700     ADD 1 TO HHAFILE-CTR.                                        02850000
036800                                                                  02860000
036900     MOVE ALL '0' TO HOLD-VAR-DATA                                02870000
037000                     HHA-PASSBACK-DATA.                           02880000
037100                                                                  02890000
037200                                                                  02900000
037300     IF  EOF-SW = 0                                               02910000
037400         PERFORM 0400-APPLY-COUNTERS THRU 0400-EXIT               02920000
037500         PERFORM 0200-CALL-DRV THRU 0200-EXIT                     02930000
037600         PERFORM 1100-WRITE THRU 1100-EXIT.                       02940000
037700                                                                  02950000
037800 0100-EXIT.  EXIT.                                                02960000
037900 0200-CALL-DRV.                                                   02970000
038000         MOVE 'A' TO PRICER-OPTION-SW                             02980000
038100         CALL  HHOPN130   USING HHA-INPUT-DATA                    02990069
038200                                HOLD-VARIABLES-DATA.              03000000
038300                                                                  03010000
038400 0200-EXIT.  EXIT.                                                03020000
038500 0400-APPLY-COUNTERS.                                             03030000
038600                                                                  03040000
038700      IF HHA-SERV-THRU-DATE < 20020101                            03050018
038800         ADD 1 TO COUNT-TOTAL (1)                                 03060000
038900         GO TO 0400-EXIT.                                         03070000
039000                                                                  03080000
039100      IF HHA-SERV-THRU-DATE < 20030101                            03090018
039200         ADD 1 TO COUNT-TOTAL (2)                                 03100000
039300         GO TO 0400-EXIT.                                         03110000
039400                                                                  03120000
039500      IF HHA-SERV-THRU-DATE < 20040101                            03130018
039600         ADD 1 TO COUNT-TOTAL (3)                                 03140000
039700         GO TO 0400-EXIT.                                         03141000
039800                                                                  03142000
039900      IF HHA-SERV-THRU-DATE < 20050101                            03143018
040000         ADD 1 TO COUNT-TOTAL (4)                                 03144000
040100         GO TO 0400-EXIT.                                         03145000
040200                                                                  03146000
040300      IF HHA-SERV-THRU-DATE < 20060101                            03147018
040400         ADD 1 TO COUNT-TOTAL (5)                                 03148000
040500         GO TO 0400-EXIT.                                         03149000
040600                                                                  03150000
040700      IF HHA-SERV-THRU-DATE < 20070101                            03160018
040800         ADD 1 TO COUNT-TOTAL (6)                                 03170000
040900         GO TO 0400-EXIT.                                         03180000
041000                                                                  03190000
041100      IF HHA-SERV-THRU-DATE < 20080101                            03200018
041200         ADD 1 TO COUNT-TOTAL (7)                                 03201000
041300         GO TO 0400-EXIT.                                         03202000
041400                                                                  03203000
041500      IF HHA-SERV-THRU-DATE < 20090101                            03203118
041600         ADD 1 TO COUNT-TOTAL (8)                                 03203207
041700         GO TO 0400-EXIT.                                         03203307
041800                                                                  03203407
041900      IF HHA-SERV-THRU-DATE < 20100101                            03203518
042000         ADD 1 TO COUNT-TOTAL (9)                                 03203612
042100         GO TO 0400-EXIT.                                         03203712
042200                                                                  03203812
042300      IF HHA-SERV-THRU-DATE < 20100401                            03203929
042400         ADD 1 TO COUNT-TOTAL (10)                                03204029
042500         GO TO 0400-EXIT.                                         03204129
042600                                                                  03204229
042700      IF HHA-SERV-THRU-DATE < 20110101                            03204333
042800         ADD 1 TO COUNT-TOTAL (11)                                03204433
042900         GO TO 0400-EXIT.                                         03204533
043100                                                                  03204764
043200      IF HHA-SERV-THRU-DATE < 20120101                            03204864
043300         ADD 1 TO COUNT-TOTAL (12)                                03204964
043400         GO TO 0400-EXIT.                                         03205064
043500                                                                  03205164
043200      IF HHA-SERV-THRU-DATE < 20130101                            03205270
043300         ADD 1 TO COUNT-TOTAL (13)                                03205370
043400         GO TO 0400-EXIT.                                         03205470
043500                                                                  03205570
043600      ADD 1 TO COUNT-TOTAL (14).                                  03205670
043700                                                                  03205770
043800 0400-EXIT.  EXIT.                                                03206000
043900                                                                  03207000
044000 1100-WRITE.                                                      03208000
044100                                                                  03209000
044200******************************************************************03210000
044300*    PRINT HHA PROSPECTIVE PAYMENT TEST DATA DETAIL REPORT        03220000
044400******************************************************************03230000
044500                                                                  03240000
044600     IF  LINE-CTR > 54                                            03250000
044700         PERFORM 1200-HHA-HEADINGS THRU 1200-EXIT.                03260000
044800                                                                  03270000
044900     MOVE SPACES          TO  HHA-DETAIL-LINE.                    03280000
045000                                                                  03290000
045100     IF HHA-SERV-THRU-DATE < 20060101                             03300000
045200        MOVE HHA-MSA2          TO PRT-MSA-CBSA                    03310000
045300     ELSE                                                         03320000
045400        MOVE HHA-CBSA          TO PRT-MSA-CBSA.                   03330000
045500                                                                  03340000
045600     MOVE HHA-SERV-FROM-DATE TO PRT-FROM-DATE.                    03350000
045700     MOVE HHA-SERV-THRU-DATE TO PRT-THRU-DATE.                    03360000
045800                                                                  03370000
045900     MOVE HHA-NPI                TO PRT-NPI.                      03380000
046000     MOVE HHA-HIC                TO PRT-HIC.                      03390000
046100     MOVE HHA-PROV-NO            TO PRT-PROV.                     03400000
046200                                                                  03410000
046300     MOVE HHA-REVENUE-SUM1-3-QTY-THR TO PRT-13-QTY.               03420000
046400     MOVE HHA-REVENUE-SUM1-6-QTY-ALL TO PRT-16-QTY.               03430012
046500                                                                  03440000
046600     MOVE HHA-PEP-INDICATOR          TO PRT-PEP.                  03450000
046700     MOVE HHA-MED-REVIEW-INDICATOR (1)  TO PRT-MED-IND1.          03460000
046800     MOVE HHA-MED-REVIEW-INDICATOR (2)  TO PRT-MED-IND2.          03470000
046900     MOVE HHA-MED-REVIEW-INDICATOR (3)  TO PRT-MED-IND3.          03480000
047000     MOVE HHA-MED-REVIEW-INDICATOR (4)  TO PRT-MED-IND4.          03490000
047100     MOVE HHA-MED-REVIEW-INDICATOR (5)  TO PRT-MED-IND5.          03500000
047200     MOVE HHA-MED-REVIEW-INDICATOR (6)  TO PRT-MED-IND6.          03510000
047300     MOVE HHA-TOB                    TO PRT-TOB.                  03520000
047400     MOVE HHA-INIT-PAY-INDICATOR TO PRT-INIT-PAY-IND.             03530000
047500                                                                  03540000
047600     MOVE HHA-OUTLIER-PAYMENT        TO PRT-OUTLIER-PAY.          03550000
047700     MOVE HHA-TOTAL-PAYMENT          TO PRT-PAYMENT-RATE.         03560000
047800     MOVE HHA-REVENUE-DOLL-RATE (1)  TO                           03570000
047900                                      PRT-REV-DOLL-RATE-1.        03580000
048000                                                                  03590000
048100     MOVE HHA-PAY-RTC                TO PRT-HHA-RTC.              03600000
048200                                                                  03610000
048300     WRITE PRTFILE-LINE FROM HHA-DETAIL-LINE                      03620000
048400                             AFTER ADVANCING 1.                   03630000
048500     ADD 1 TO PRTFILE-CTR.                                        03640000
048600     IF PRT-STAT1 > 0 DISPLAY ' BAD1 WRITE ON PRTFILE FILE'.      03650000
048700     ADD 1 TO LINE-CTR.                                           03660000
048800                                                                  03670000
048900******************************************************************03680000
049000*    WRITE OUT-REC FILE 500 BYTES TO GO INTO YOUR INTERFACE       03690015
049100******************************************************************03700000
049200     WRITE OUT-REC FROM HHA-INPUT-DATA.                           03710000
049300                                                                  03720000
049400     IF UT2-STAT1 > 0 DISPLAY ' BAD2 WRITE ON OUTFILE  FILE'.     03730000
049500     ADD 1 TO OUTFILE-CTR.                                        03740000
049600                                                                  03750000
049700 1100-EXIT.  EXIT.                                                03760000
049800                                                                  03770000
049900 1200-HHA-HEADINGS.                                               03780000
050000     WRITE PRTFILE-LINE FROM HHA-HEAD1                            03790000
050100                             AFTER ADVANCING PAGE.                03800000
050200     IF PRT-STAT1 > 0 DISPLAY ' BAD3 WRITE ON PRTFILE FILE'.      03810000
050300     WRITE PRTFILE-LINE FROM HHA-HEAD2                            03820000
050400                             AFTER ADVANCING 1.                   03830000
050500     IF PRT-STAT1 > 0 DISPLAY ' BAD5 WRITE ON PRTFILE FILE'.      03840000
050600     MOVE ALL '---' TO PRTFILE-LINE.                              03850000
050700     WRITE PRTFILE-LINE AFTER ADVANCING 1.                        03860000
050800     IF PRT-STAT1 > 0 DISPLAY ' BAD4 WRITE ON PRTFILE FILE'.      03870000
050900     WRITE PRTFILE-LINE FROM HHA-HEAD3                            03880000
051000                             AFTER ADVANCING 2.                   03890000
051100     IF PRT-STAT1 > 0 DISPLAY ' BAD6 WRITE ON PRTFILE FILE'.      03900000
051200     WRITE PRTFILE-LINE FROM HHA-HEAD4                            03910000
051300                             AFTER ADVANCING 1.                   03920000
051400     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.      03930000
051500     MOVE ALL '  -' TO PRTFILE-LINE.                              03940000
051600     WRITE PRTFILE-LINE AFTER ADVANCING 1.                        03950000
051700     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.      03960000
051800     MOVE 7 TO LINE-CTR.                                          03970000
051900                                                                  03980000
052000 1200-EXIT.  EXIT.                                                03990000
052100                                                                  04000000
052200*****        LAST STATEMENT               *************           04010000
