000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.         HHMGR170.                                    00020001
000500                                                                  00050002
000600*----------------------------------------------------------------*00060001
000700*  THIS PROGRAM CALLS HHOPN170                                   *00070001
000800*----------------------------------------------------------------*00080001
000900                                                                  00090002
004600 DATE-COMPILED.                                                   00460000
004700 ENVIRONMENT                     DIVISION.                        00470000
004800                                                                  00480000
004900 CONFIGURATION                   SECTION.                         00490000
005000 SOURCE-COMPUTER.                IBM-370.                         00500000
005100 OBJECT-COMPUTER.                IBM-370.                         00510000
005200                                                                  00520000
005300 INPUT-OUTPUT SECTION.                                            00530000
005400 FILE-CONTROL.                                                    00540000
005500                                                                  00550000
005600     SELECT HHAFILE    ASSIGN TO UT-S-HHAFILE                     00560000
005700         FILE STATUS IS UT1-STAT.                                 00570000
005800     SELECT OUTFILE    ASSIGN TO UT-S-OUTFILE                     00580000
005900         FILE STATUS IS UT2-STAT.                                 00590000
006000     SELECT PRTFILE    ASSIGN TO UT-S-PRTFILE                     00600000
006100         FILE STATUS IS PRT-STAT.                                 00610000
006200                                                                  00620000
006300 DATA DIVISION.                                                   00630000
006400 FILE SECTION.                                                    00640000
006500 FD  HHAFILE                                                      00650000
006600     LABEL RECORDS ARE STANDARD                                   00660000
006700     RECORDING MODE IS F                                          00670000
006800     BLOCK CONTAINS 0 RECORDS.                                    00680000
006900 01  HHA-REC                     PIC X(650).                      00690004
007000                                                                  00700000
007100 FD  OUTFILE                                                      00710000
007200     LABEL RECORDS ARE STANDARD                                   00720000
007300     RECORDING MODE IS F                                          00730000
007400     BLOCK CONTAINS 0 RECORDS.                                    00740000
007500 01  OUT-REC                     PIC X(650).                      00750004
007600                                                                  00760000
007700 FD  PRTFILE                                                      00770000
007800     RECORDING MODE IS F                                          00780000
007900     BLOCK CONTAINS 133 RECORDS                                   00790000
008000     LABEL RECORDS ARE STANDARD.                                  00800000
008100 01  PRTFILE-LINE                PIC X(133).                      00810000
008200                                                                  00820000
008300                                                                  00830000
008400 WORKING-STORAGE SECTION.                                         00840000
008500 77  W-STORAGE-REF               PIC X(36)  VALUE                 00850005
008600     'HHMGR - W O R K I N G  S T O R A G E'.                      00860005
008700 01  HHMGR-VERSION               PIC X(09)  VALUE 'M2017.0'.      00870004
008900 01  HHOPN170                    PIC X(08)  VALUE 'HHOPN170'.     00890004
009000 01  SUB1                        PIC 9(03)  VALUE 0.              00900000
009100 01  EOF-SW                      PIC 9(01)  VALUE 0.              00910000
009200 01  LINE-CTR                    PIC 9(02)  VALUE 65.             00920000
009300 01  HHAFILE-CTR                 PIC 9(09)  VALUE 0.              00930000
009400 01  OUTFILE-CTR                 PIC 9(09)  VALUE 0.              00940000
009500 01  PRTFILE-CTR                 PIC 9(09)  VALUE 0.              00950000
009600 01  UT1-STAT.                                                    00960000
009700     05  UT1-STAT1               PIC X.                           00970000
009800     05  UT1-STAT2               PIC X.                           00980000
009900 01  UT2-STAT.                                                    00990000
010000     05  UT2-STAT1               PIC X.                           01000000
010100     05  UT2-STAT2               PIC X.                           01010000
010200 01  PRT-STAT.                                                    01020000
010300     05  PRT-STAT1               PIC X.                           01030000
010400     05  PRT-STAT2               PIC X.                           01040000
010500*----------------------------------------------------------------*01050003
010600*  INPUT/OUTPUT RECORD LAYOUT - PIC X(650)                       *01060008
010610*----------------------------------------------------------------*01061003
010800 01  HHA-INPUT-DATA.                                              01080000
010900     05  HHA-DATA.                                                01090000
011000         10  HHA-NPI                 PIC X(10).                   01100000
011100         10  HHA-HIC                 PIC X(12).                   01110000
011200         10  HHA-PROV-NO             PIC X(06).                   01120000
011300         10  HHA-TOB                 PIC X(03).                   01130008
011400         10  HHA-PEP-INDICATOR       PIC X(01).                   01140008
011500         10  HHA-PEP-DAYS            PIC 9(03).                   01150008
011600         10  HHA-INIT-PAY-INDICATOR  PIC X(01).                   01160008
011700             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              01170010
011800             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              01180010
011900         10  FILLER                  PIC X(09).                   01190008
012000         10  HHA-CBSA                PIC X(05).                   01200008
012010         10  FILLER                  PIC X(02).                   01201008
012910         10  HHA-SERV-FROM-DATE.                                  01291010
013000             15  HHA-FROM-CC         PIC XX.                      01300000
013100             15  HHA-FROM-YYMMDD.                                 01310000
013200                 25  HHA-FROM-YY     PIC XX.                      01320000
013300                 25  HHA-FROM-MM     PIC XX.                      01330000
013400                 25  HHA-FROM-DD     PIC XX.                      01340000
013500         10  HHA-SERV-THRU-DATE.                                  01350000
013600             15  HHA-THRU-CC         PIC XX.                      01360000
013700             15  HHA-THRU-YYMMDD.                                 01370000
013800                 25  HHA-THRU-YY     PIC XX.                      01380000
013900                 25  HHA-THRU-MM     PIC XX.                      01390000
014000                 25  HHA-THRU-DD     PIC XX.                      01400000
014100         10  HHA-ADMIT-DATE.                                      01410000
014200             15  HHA-ADMIT-CC        PIC XX.                      01420000
014300             15  HHA-ADMIT-YYMMDD.                                01430000
014400                 25  HHA-ADMIT-YY    PIC XX.                      01440000
014500                 25  HHA-ADMIT-MM    PIC XX.                      01450000
014600                 25  HHA-ADMIT-DD    PIC XX.                      01460000
014700         10  HHA-HRG-DATA      OCCURS 6.                          01470000
014800             15  HHA-MED-REVIEW-INDICATOR PIC X.                  01480000
014900             15  HHA-HRG-INPUT-CODE       PIC X(05).              01490000
015000             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              01500000
015100             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              01510000
015200             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        01520000
015300             15  HHA-HRG-PAY              PIC 9(07)V9(02).        01530000
015400         10  HHA-REVENUE-DATA     OCCURS 6.                       01540000
015500             15  HHA-REVENUE-CODE              PIC X(04).         01550000
015600             15  HHA-REVENUE-QTY-COV-VISITS    PIC 9(03).         01560000
015610             15  HHA-REVENUE-QTY-OUTL-UNITS    PIC 9(05).         01561004
015700             15  HHA-REVENUE-EARLIEST-DATE     PIC 9(08).         01570000
015800             15  HHA-REVENUE-DOLL-RATE         PIC 9(07)V9(02).   01580000
015900             15  HHA-REVENUE-COST              PIC 9(07)V9(02).   01590000
016000             15  HHA-REVENUE-ADD-ON-VISIT-AMT  PIC 9(07)V9(02).   01600000
016100     05  HHA-PASSBACK-DATA.                                       01610000
016200         10  HHA-PAY-RTC                PIC 99.                   01620000
016300         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                01630000
016400         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                01640000
016500         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          01650000
016600         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          01660000
016700     05  HHA-CASE-MIX-DATA.                                       01670000
016800         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).          01680000
016900         10  HHA-LUPA-SRC-ADM           PIC X.                    01690000
017000         10  HHA-RECODE-IND             PIC X.                    01700000
017100         10  HHA-EPISODE-TIMING         PIC 9.                    01710000
017200         10  HHA-SEVERITY-POINTS.                                 01720000
017300             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).                01730000
017400             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).                01740000
017500             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).                01750000
017600             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).                01760000
017700             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).                01770000
017800             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).                01780000
017900             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).                01790000
018000             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).                01800000
018100     05  HHA-PROV-TOTAL-DATA.                                     01810000
018200         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          01820000
018300         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).          01830000
018400     05  FILLER                         PIC X(51).                01840006
018600                                                                  01860004
019000 01  HOLD-VARIABLES-DATA.                                         01900000
019100     02  HOLD-VAR-DATA.                                           01910000
019200         05  PRICER-OPTION-SW         PIC X.                      01920000
019300         05  HHOPN-VERSION            PIC X(07).                  01930000
019400         05  HHDRV-VERSION            PIC X(07).                  01940000
019500         05  HHCAL-VERSION            PIC X(07).                  01950000
019600         05  FILLER                   PIC X(20).                  01960000
019700                                                                  01970000
019710                                                                  01971004
019800 01  TOTAL-COUNTERS.                                              01980000
019900     03  FILLER    OCCURS 19.                                     01990009
020000         05  COUNT-TOTAL       PIC 9(09)  COMP.                   02000000
020100                                                                  02010000
020200*******************************************************           02020000
020300*----------------------------------------------------**           02030000
020400*    HHA PAYMENT REPORT COMPONENTS                    *           02040000
020500*----------------------------------------------------**           02050000
020600 01  HHA-DETAIL-LINE.                                             02060000
020700     05  FILLER                  PIC X(02)  VALUE SPACES.         02070000
020800     05  PRT-NPI                 PIC X(10).                       02080000
020900     05  FILLER                  PIC X(02).                       02090000
021000     05  PRT-HIC                 PIC X(12).                       02100000
021100     05  FILLER                  PIC X(02).                       02110000
021200     05  PRT-PROV                PIC X(06).                       02120000
021300     05  FILLER                  PIC X(02)  VALUE SPACES.         02130000
021400     05  PRT-MSA-CBSA            PIC X(05).                       02140000
021500     05  FILLER                  PIC X(01)  VALUE SPACES.         02150000
021600     05  PRT-FROM-DATE           PIC X(08).                       02160000
021700     05  FILLER                  PIC X(03)  VALUE SPACES.         02170000
021800     05  PRT-PEP                 PIC X.                           02180000
021900     05  FILLER                  PIC X(02)  VALUE SPACES.         02190000
022000     05  PRT-MED-IND1            PIC X.                           02200000
022100     05  PRT-MED-IND2            PIC X.                           02210000
022200     05  PRT-MED-IND3            PIC X.                           02220000
022300     05  PRT-MED-IND4            PIC X.                           02230000
022400     05  PRT-MED-IND5            PIC X.                           02240000
022500     05  PRT-MED-IND6            PIC X.                           02250000
022600     05  FILLER                  PIC X(01)  VALUE SPACES.         02260000
022700     05  PRT-TOB                 PIC XXX.                         02270000
022800     05  PRT-OUTLIER-PAY         PIC $$,$$$,$$$.99.               02280000
022900     05  PRT-PAYMENT-RATE        PIC $$,$$$,$$$.99.               02290000
023000     05  FILLER                  PIC X(01)  VALUE SPACES.         02300000
023100     05  FILLER                  PIC X(01)  VALUE SPACES.         02310000
023200     05  PRT-HHA-RTC             PIC 99.                          02320000
023300     05  FILLER                  PIC X(01)  VALUE SPACES.         02330000
023400     05  PRT-13-QTY              PIC X(5).                        02340000
023500     05  FILLER                  PIC X(01)  VALUE '/'.            02350000
023600     05  PRT-16-QTY              PIC X(5).                        02360000
023700     05  FILLER                  PIC X(02)  VALUE SPACES.         02370000
023800     05  PRT-INIT-PAY-IND        PIC X.                           02380000
023900     05  FILLER                  PIC X(01)  VALUE SPACES.         02390000
024000     05  PRT-THRU-DATE           PIC X(08).                       02400000
024100     05  PRT-REV-DOLL-RATE-1     PIC $$,$$$,$$$.99.               02410000
024200                                                                  02420000
024300 01  HHA-HEAD1.                                                   02430000
024400     05  FILLER                  PIC X(01)  VALUE SPACES.         02440000
024500     05  FILLER                  PIC X(44)  VALUE                 02450000
024600        ' C M S,                                     '.           02460000
024700     05  FILLER                  PIC X(44)  VALUE                 02470000
024800        '                                            '.           02480000
024900     05  FILLER                  PIC X(44)  VALUE                 02490000
025000        '                                            '.           02500000
025100                                                                  02510000
025200 01  HHA-HEAD2.                                                   02520000
025300     05  FILLER                  PIC X(01)  VALUE SPACES.         02530000
025400     05  FILLER                  PIC X(44)  VALUE                 02540000
025500        ' PBG,DDS     HHA NATIONAL PRICER            '.           02550003
025600     05  FILLER                  PIC X(44)  VALUE                 02560000
025700        '                          T E S T   D A T A '.           02570000
025800     05  FILLER                  PIC X(44)  VALUE                 02580000
025900        '  R E P O R T                               '.           02590000
026000                                                                  02600000
026100 01  HHA-HEAD3.                                                   02610000
026200     05  FILLER                  PIC X(01)  VALUE SPACES.         02620000
026300     05  FILLER                  PIC X(44)  VALUE                 02630000
026400        '    NPI         HIC         PROV           F'.           02640000
026500     05  FILLER                  PIC X(44)  VALUE                 02650000
026600        'ROM    PEP  MED   TOB    OUTLIER         TOT'.           02660000
026700     05  FILLER                  PIC X(44)  VALUE                 02670000
026800        'AL   RTC SUM3/SUM6  PAY  THRU        REV-1  '.           02680000
026900                                                                  02690000
027000 01  HHA-HEAD4.                                                   02700000
027100     05  FILLER                  PIC X(01)  VALUE SPACES.         02710000
027200     05  FILLER                  PIC X(44)  VALUE                 02720000
027300        '    NO.         NO.         NO.  MSA/CBSA  D'.           02730000
027400     05  FILLER                  PIC X(44)  VALUE                 02740000
027500        'ATE    COD  COD          PAYMENT        PAYM'.           02750000
027600     05  FILLER                  PIC X(44)  VALUE                 02760000
027700        'ENT         QTY     IND  DATE        RATE   '.           02770000
027800                                                                  02780000
027900**--------------------------------------------------------------  02790000
028000 PROCEDURE  DIVISION.                                             02800000
028100                                                                  02810000
028200 0000-MAINLINE  SECTION.                                          02820000
028300     OPEN INPUT  HHAFILE                                          02830000
028400          OUTPUT OUTFILE                                          02840000
028500          OUTPUT PRTFILE.                                         02850000
028600                                                                  02860000
028700     MOVE LOW-VALUES TO TOTAL-COUNTERS.                           02870000
028800                                                                  02880000
028900     PERFORM 0100-PROCESS-RECORDS THRU 0100-EXIT UNTIL EOF-SW = 1.02890000
029000                                                                  02900000
029100     DISPLAY ' '.                                                 02910000
029200                                                                  02920000
029300     DISPLAY '-- PROGRAM HHMGR170  VERSION  ===> ' HHMGR-VERSION. 02930000
029400     DISPLAY '-- PROGRAM HHOPN170  VERSION  ===> ' HHOPN-VERSION. 02940000
029500     DISPLAY '-- PROGRAM HHDRV170  VERSION  ===> ' HHDRV-VERSION. 02950000
029600                                                                  02960000
029700     DISPLAY ' '.                                                 02970000
029800                                                                  02980000
029900     IF COUNT-TOTAL (1) > 0                                       02990000
030000         DISPLAY '-- PROGRAM HHCAL016  VERSION  ===> P2001.6 '.   03000000
030100     IF COUNT-TOTAL (2) > 0                                       03010000
030200         DISPLAY '-- PROGRAM HHCAL023  VERSION  ===> P2002.3 '.   03020000
030300     IF COUNT-TOTAL (3) > 0                                       03030000
030400         DISPLAY '-- PROGRAM HHCAL033  VERSION  ===> P2003.3 '.   03040000
030500     IF COUNT-TOTAL (4) > 0                                       03050000
030600         DISPLAY '-- PROGRAM HHCAL044  VERSION  ===> P2004.4 '.   03060000
030700     IF COUNT-TOTAL (5) > 0                                       03070000
030800         DISPLAY '-- PROGRAM HHCAL053  VERSION  ===> P2005.3 '.   03080000
030900     IF COUNT-TOTAL (6) > 0                                       03090000
031000         DISPLAY '-- PROGRAM HHCAL066  VERSION  ===> P2006.6 '.   03100000
031100     IF COUNT-TOTAL (7) > 0                                       03110000
031200         DISPLAY '-- PROGRAM HHCAL074  VERSION  ===> P2007.4 '.   03120000
031300     IF COUNT-TOTAL (8) > 0                                       03130000
031400         DISPLAY '-- PROGRAM HHCAL088  VERSION  ===> P2008.8 '.   03140000
031500     IF COUNT-TOTAL (9) > 0                                       03150000
031600         DISPLAY '-- PROGRAM HHCAL095  VERSION  ===> P2009.5 '.   03160000
031700     IF COUNT-TOTAL (10) > 0                                      03170000
031800         DISPLAY '-- PROGRAM HHCAL10D  VERSION  ===> P2010.D '.   03180000
031900     IF COUNT-TOTAL (11) > 0                                      03190000
032000         DISPLAY '-- PROGRAM HHCAL10A  VERSION  ===> P2010.A '.   03200000
032100     IF COUNT-TOTAL (12) > 0                                      03210000
032200         DISPLAY '-- PROGRAM HHCAL112  VERSION  ===> P2011.2 '.   03220000
032300     IF COUNT-TOTAL (13) > 0                                      03230000
032400         DISPLAY '-- PROGRAM HHCAL121  VERSION  ===> P2012.1 '.   03240000
032500     IF COUNT-TOTAL (14) > 0                                      03250000
032600         DISPLAY '-- PROGRAM HHCAL131  VERSION  ===> P2013.1 '.   03260000
032700     IF COUNT-TOTAL (15) > 0                                      03270000
032800         DISPLAY '-- PROGRAM HHCAL144  VERSION  ===> P2014.4 '.   03280000
032900     IF COUNT-TOTAL (16) > 0                                      03290000
033000         DISPLAY '-- PROGRAM HHCAL152  VERSION  ===> P2015.2 '.   03300000
033100     IF COUNT-TOTAL (17) > 0                                      03310000
033200         DISPLAY '-- PROGRAM HHCAL160  VERSION  ===> P2016.0 '.   03320000
033210     IF COUNT-TOTAL (18) > 0                                      03321000
033220         DISPLAY '-- PROGRAM HHCAL170  VERSION  ===> P2017.0 '.   03322013
033300                                                                  03330000
033400     DISPLAY ' '.                                                 03340000
033500                                                                  03350000
033600     IF COUNT-TOTAL (1) > 0                                       03360000
033700        DISPLAY '-- FY2001 RECORD COUNT  ===> ' COUNT-TOTAL (1).  03370000
033800     IF COUNT-TOTAL (2) > 0                                       03380000
033900        DISPLAY '-- FY2002 RECORD COUNT  ===> ' COUNT-TOTAL (2).  03390000
034000     IF COUNT-TOTAL (3) > 0                                       03400000
034100        DISPLAY '-- FY2003 RECORD COUNT  ===> ' COUNT-TOTAL (3).  03410000
034200     IF COUNT-TOTAL (4) > 0                                       03420000
034300        DISPLAY '-- FY2004 RECORD COUNT  ===> ' COUNT-TOTAL (4).  03430000
034400     IF COUNT-TOTAL (5) > 0                                       03440000
034500        DISPLAY '-- FY2005 RECORD COUNT  ===> ' COUNT-TOTAL (5).  03450000
034600     IF COUNT-TOTAL (6) > 0                                       03460000
034700        DISPLAY '-- CY2006 RECORD COUNT  ===> ' COUNT-TOTAL (6).  03470000
034800     IF COUNT-TOTAL (7) > 0                                       03480000
034900        DISPLAY '-- CY2007 RECORD COUNT  ===> ' COUNT-TOTAL (7).  03490000
035000     IF COUNT-TOTAL (8) > 0                                       03500000
035100        DISPLAY '-- CY2008 RECORD COUNT  ===> ' COUNT-TOTAL (8).  03510000
035200     IF COUNT-TOTAL (9) > 0                                       03520000
035300        DISPLAY '-- CY2009 RECORD COUNT  ===> ' COUNT-TOTAL (9).  03530000
035400     IF COUNT-TOTAL (10) > 0                                      03540000
035500        DISPLAY '-- CY2010C RECORD COUNT ===> ' COUNT-TOTAL (10). 03550000
035600     IF COUNT-TOTAL (11) > 0                                      03560000
035700        DISPLAY '-- CY20109 RECORD COUNT ===> ' COUNT-TOTAL (11). 03570000
035800     IF COUNT-TOTAL (12) > 0                                      03580000
035900        DISPLAY '-- CY2011  RECORD COUNT ===> ' COUNT-TOTAL (12). 03590000
036000     IF COUNT-TOTAL (13) > 0                                      03600000
036100        DISPLAY '-- CY2012  RECORD COUNT ===> ' COUNT-TOTAL (13). 03610000
036200     IF COUNT-TOTAL (14) > 0                                      03620000
036300        DISPLAY '-- CY2013  RECORD COUNT ===> ' COUNT-TOTAL (14). 03630000
036400     IF COUNT-TOTAL (15) > 0                                      03640000
036500        DISPLAY '-- CY2014  RECORD COUNT ===> ' COUNT-TOTAL (15). 03650000
036600     IF COUNT-TOTAL (16) > 0                                      03660000
036700        DISPLAY '-- CY2015  RECORD COUNT ===> ' COUNT-TOTAL (16). 03670000
036800     IF COUNT-TOTAL (17) > 0                                      03680000
036900        DISPLAY '-- CY2016  RECORD COUNT ===> ' COUNT-TOTAL (17). 03690000
036910     IF COUNT-TOTAL (18) > 0                                      03691000
036920        DISPLAY '-- CY2017  RECORD COUNT ===> ' COUNT-TOTAL (18). 03692000
037000                                                                  03700000
037100     DISPLAY ' '.                                                 03710000
037200                                                                  03720000
037300     DISPLAY '-- INPUT  COUNTS FOR HHAFILE  ===> ' HHAFILE-CTR.   03730000
037400     DISPLAY '-- OUTPUT COUNTS FOR OUTFILE  ===> ' OUTFILE-CTR.   03740000
037500     DISPLAY '-- OUTPUT COUNTS FOR PRTFILE  ===> ' PRTFILE-CTR.   03750000
037600                                                                  03760000
037700     CLOSE HHAFILE.                                               03770000
037800     CLOSE OUTFILE.                                               03780000
037900     CLOSE PRTFILE.                                               03790000
038000                                                                  03800000
038100     STOP RUN.                                                    03810000
038200                                                                  03820000
038300 0100-PROCESS-RECORDS.                                            03830000
038400     READ HHAFILE INTO HHA-INPUT-DATA                             03840000
038500         AT END                                                   03850000
038600             MOVE 1 TO EOF-SW                                     03860000
038700             GO TO 0100-EXIT.                                     03870000
038800                                                                  03880000
038900     ADD 1 TO HHAFILE-CTR.                                        03890000
039000                                                                  03900000
039100     MOVE ALL '0' TO HOLD-VAR-DATA                                03910000
039200                     HHA-PASSBACK-DATA.                           03920000
039300                                                                  03930000
039400                                                                  03940000
039500     IF  EOF-SW = 0                                               03950000
039600         PERFORM 0400-APPLY-COUNTERS THRU 0400-EXIT               03960000
039700         PERFORM 0200-CALL-DRV THRU 0200-EXIT                     03970000
039800         PERFORM 1100-WRITE THRU 1100-EXIT.                       03980000
039900                                                                  03990000
040000 0100-EXIT.  EXIT.                                                04000000
040100 0200-CALL-DRV.                                                   04010000
040200         MOVE 'A' TO PRICER-OPTION-SW                             04020000
040300         CALL  HHOPN170   USING HHA-INPUT-DATA                    04030000
040400                                HOLD-VARIABLES-DATA.              04040000
040500                                                                  04050000
040600 0200-EXIT.  EXIT.                                                04060000
040700 0400-APPLY-COUNTERS.                                             04070000
040800                                                                  04080000
040900      IF HHA-SERV-THRU-DATE < 20020101                            04090000
041000         ADD 1 TO COUNT-TOTAL (1)                                 04100000
041100         GO TO 0400-EXIT.                                         04110000
041200                                                                  04120000
041300      IF HHA-SERV-THRU-DATE < 20030101                            04130000
041400         ADD 1 TO COUNT-TOTAL (2)                                 04140000
041500         GO TO 0400-EXIT.                                         04150000
041600                                                                  04160000
041700      IF HHA-SERV-THRU-DATE < 20040101                            04170000
041800         ADD 1 TO COUNT-TOTAL (3)                                 04180000
041900         GO TO 0400-EXIT.                                         04190000
042000                                                                  04200000
042100      IF HHA-SERV-THRU-DATE < 20050101                            04210000
042200         ADD 1 TO COUNT-TOTAL (4)                                 04220000
042300         GO TO 0400-EXIT.                                         04230000
042400                                                                  04240000
042500      IF HHA-SERV-THRU-DATE < 20060101                            04250000
042600         ADD 1 TO COUNT-TOTAL (5)                                 04260000
042700         GO TO 0400-EXIT.                                         04270000
042800                                                                  04280000
042900      IF HHA-SERV-THRU-DATE < 20070101                            04290000
043000         ADD 1 TO COUNT-TOTAL (6)                                 04300000
043100         GO TO 0400-EXIT.                                         04310000
043200                                                                  04320000
043300      IF HHA-SERV-THRU-DATE < 20080101                            04330000
043400         ADD 1 TO COUNT-TOTAL (7)                                 04340000
043500         GO TO 0400-EXIT.                                         04350000
043600                                                                  04360000
043700      IF HHA-SERV-THRU-DATE < 20090101                            04370000
043800         ADD 1 TO COUNT-TOTAL (8)                                 04380000
043900         GO TO 0400-EXIT.                                         04390000
044000                                                                  04400000
044100      IF HHA-SERV-THRU-DATE < 20100101                            04410000
044200         ADD 1 TO COUNT-TOTAL (9)                                 04420000
044300         GO TO 0400-EXIT.                                         04430000
044400                                                                  04440000
044500      IF HHA-SERV-THRU-DATE < 20100401                            04450000
044600         ADD 1 TO COUNT-TOTAL (10)                                04460000
044700         GO TO 0400-EXIT.                                         04470000
044800                                                                  04480000
044900      IF HHA-SERV-THRU-DATE < 20110101                            04490000
045000         ADD 1 TO COUNT-TOTAL (11)                                04500000
045100         GO TO 0400-EXIT.                                         04510000
045200                                                                  04520000
045300      IF HHA-SERV-THRU-DATE < 20120101                            04530000
045400         ADD 1 TO COUNT-TOTAL (12)                                04540000
045500         GO TO 0400-EXIT.                                         04550000
045600                                                                  04560000
045700      IF HHA-SERV-THRU-DATE < 20130101                            04570000
045800         ADD 1 TO COUNT-TOTAL (13)                                04580000
045900         GO TO 0400-EXIT.                                         04590000
046000                                                                  04600000
046100      IF HHA-SERV-THRU-DATE < 20140101                            04610000
046200         ADD 1 TO COUNT-TOTAL (14)                                04620000
046300         GO TO 0400-EXIT.                                         04630000
046400                                                                  04640000
046500      IF HHA-SERV-THRU-DATE < 20150101                            04650000
046600         ADD 1 TO COUNT-TOTAL (15)                                04660000
046700         GO TO 0400-EXIT.                                         04670000
046800                                                                  04680000
046900      IF HHA-SERV-THRU-DATE < 20160101                            04690000
047000         ADD 1 TO COUNT-TOTAL (16)                                04700000
047100         GO TO 0400-EXIT.                                         04710000
047200                                                                  04720000
047210      IF HHA-SERV-THRU-DATE < 20170101                            04721000
047220         ADD 1 TO COUNT-TOTAL (17)                                04722000
047230         GO TO 0400-EXIT.                                         04723000
047231                                                                  04723107
047232      IF HHA-SERV-THRU-DATE < 20180101                            04723207
047233         ADD 1 TO COUNT-TOTAL (18)                                04723307
047234         GO TO 0400-EXIT.                                         04723407
047240                                                                  04724000
047300      ADD 1 TO COUNT-TOTAL (19).                                  04730007
047400                                                                  04740000
047500 0400-EXIT.  EXIT.                                                04750000
047600                                                                  04760000
047700 1100-WRITE.                                                      04770000
047800                                                                  04780000
047900******************************************************************04790000
048000*    PRINT HHA PROSPECTIVE PAYMENT TEST DATA DETAIL REPORT        04800000
048100******************************************************************04810000
048200                                                                  04820000
048300     IF  LINE-CTR > 54                                            04830000
048400         PERFORM 1200-HHA-HEADINGS THRU 1200-EXIT.                04840000
048500                                                                  04850000
048600     MOVE SPACES          TO  HHA-DETAIL-LINE.                    04860000
048700                                                                  04870000
048800*    IF HHA-SERV-THRU-DATE < 20060101                             04880010
048900*       MOVE HHA-MSA2          TO PRT-MSA-CBSA                    04890010
049000*    ELSE                                                         04900010
049100*       MOVE HHA-CBSA          TO PRT-MSA-CBSA.                   04910010
049200                                                                  04920000
049210     MOVE HHA-CBSA           TO PRT-MSA-CBSA.                     04921010
049300     MOVE HHA-SERV-FROM-DATE TO PRT-FROM-DATE.                    04930000
049400     MOVE HHA-SERV-THRU-DATE TO PRT-THRU-DATE.                    04940000
049500                                                                  04950000
049600     MOVE HHA-NPI                TO PRT-NPI.                      04960000
049700     MOVE HHA-HIC                TO PRT-HIC.                      04970000
049800     MOVE HHA-PROV-NO            TO PRT-PROV.                     04980000
049900                                                                  04990000
050000     MOVE HHA-REVENUE-SUM1-3-QTY-THR TO PRT-13-QTY.               05000000
050100     MOVE HHA-REVENUE-SUM1-6-QTY-ALL TO PRT-16-QTY.               05010000
050200                                                                  05020000
050300     MOVE HHA-PEP-INDICATOR          TO PRT-PEP.                  05030000
050400     MOVE HHA-MED-REVIEW-INDICATOR (1)  TO PRT-MED-IND1.          05040000
050500     MOVE HHA-MED-REVIEW-INDICATOR (2)  TO PRT-MED-IND2.          05050000
050600     MOVE HHA-MED-REVIEW-INDICATOR (3)  TO PRT-MED-IND3.          05060000
050700     MOVE HHA-MED-REVIEW-INDICATOR (4)  TO PRT-MED-IND4.          05070000
050800     MOVE HHA-MED-REVIEW-INDICATOR (5)  TO PRT-MED-IND5.          05080000
050900     MOVE HHA-MED-REVIEW-INDICATOR (6)  TO PRT-MED-IND6.          05090000
051000     MOVE HHA-TOB                    TO PRT-TOB.                  05100000
051100     MOVE HHA-INIT-PAY-INDICATOR TO PRT-INIT-PAY-IND.             05110000
051200                                                                  05120000
051300     MOVE HHA-OUTLIER-PAYMENT        TO PRT-OUTLIER-PAY.          05130000
051400     MOVE HHA-TOTAL-PAYMENT          TO PRT-PAYMENT-RATE.         05140000
051500     MOVE HHA-REVENUE-DOLL-RATE (1)  TO                           05150000
051600                                      PRT-REV-DOLL-RATE-1.        05160000
051700                                                                  05170000
051800     MOVE HHA-PAY-RTC                TO PRT-HHA-RTC.              05180000
051900                                                                  05190000
052000     WRITE PRTFILE-LINE FROM HHA-DETAIL-LINE                      05200000
052100                             AFTER ADVANCING 1.                   05210000
052200     ADD 1 TO PRTFILE-CTR.                                        05220000
052300     IF PRT-STAT1 > 0 DISPLAY ' BAD1 WRITE ON PRTFILE FILE'.      05230000
052400     ADD 1 TO LINE-CTR.                                           05240000
052500                                                                  05250000
052600******************************************************************05260000
052700*    WRITE OUT-REC FILE 600 BYTES TO GO INTO YOUR INTERFACE       05270000
052800******************************************************************05280000
052900     WRITE OUT-REC FROM HHA-INPUT-DATA.                           05290000
053000                                                                  05300000
053100     IF UT2-STAT1 > 0 DISPLAY ' BAD2 WRITE ON OUTFILE  FILE'.     05310000
053200     ADD 1 TO OUTFILE-CTR.                                        05320000
053300                                                                  05330000
053400 1100-EXIT.  EXIT.                                                05340000
053500                                                                  05350000
053600 1200-HHA-HEADINGS.                                               05360000
053700     WRITE PRTFILE-LINE FROM HHA-HEAD1                            05370000
053800                             AFTER ADVANCING PAGE.                05380000
053900     IF PRT-STAT1 > 0 DISPLAY ' BAD3 WRITE ON PRTFILE FILE'.      05390000
054000     WRITE PRTFILE-LINE FROM HHA-HEAD2                            05400000
054100                             AFTER ADVANCING 1.                   05410000
054200     IF PRT-STAT1 > 0 DISPLAY ' BAD5 WRITE ON PRTFILE FILE'.      05420000
054300     MOVE ALL '---' TO PRTFILE-LINE.                              05430000
054400     WRITE PRTFILE-LINE AFTER ADVANCING 1.                        05440000
054500     IF PRT-STAT1 > 0 DISPLAY ' BAD4 WRITE ON PRTFILE FILE'.      05450000
054600     WRITE PRTFILE-LINE FROM HHA-HEAD3                            05460000
054700                             AFTER ADVANCING 2.                   05470000
054800     IF PRT-STAT1 > 0 DISPLAY ' BAD6 WRITE ON PRTFILE FILE'.      05480000
054900     WRITE PRTFILE-LINE FROM HHA-HEAD4                            05490000
055000                             AFTER ADVANCING 1.                   05500000
055100     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.      05510000
055200     MOVE ALL '  -' TO PRTFILE-LINE.                              05520000
055300     WRITE PRTFILE-LINE AFTER ADVANCING 1.                        05530000
055400     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.      05540000
055500     MOVE 7 TO LINE-CTR.                                          05550000
055600                                                                  05560000
055700 1200-EXIT.  EXIT.                                                05570000
