000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.         HHMGR181.
000300
000400*----------------------------------------------------------------*
000500*  THIS PROGRAM CALLS HHOPN181                                   *
000600*----------------------------------------------------------------*
000700
000800 DATE-COMPILED.
000900 ENVIRONMENT                     DIVISION.
001000
001100 CONFIGURATION                   SECTION.
001200 SOURCE-COMPUTER.                IBM-370.
001300 OBJECT-COMPUTER.                IBM-370.
001400
001500 INPUT-OUTPUT SECTION.
001600 FILE-CONTROL.
001700
001800     SELECT HHAFILE    ASSIGN TO UT-S-HHAFILE
001900         FILE STATUS IS UT1-STAT.
002000     SELECT OUTFILE    ASSIGN TO UT-S-OUTFILE
002100         FILE STATUS IS UT2-STAT.
002200     SELECT PRTFILE    ASSIGN TO UT-S-PRTFILE
002300         FILE STATUS IS PRT-STAT.
002400
002500 DATA DIVISION.
002600 FILE SECTION.
002700 FD  HHAFILE
002800     LABEL RECORDS ARE STANDARD
002900     RECORDING MODE IS F
003000     BLOCK CONTAINS 0 RECORDS.
003100 01  HHA-REC                     PIC X(650).
003200
003300 FD  OUTFILE
003400     LABEL RECORDS ARE STANDARD
003500     RECORDING MODE IS F
003600     BLOCK CONTAINS 0 RECORDS.
003700 01  OUT-REC                     PIC X(650).
003800
003900 FD  PRTFILE
004000     RECORDING MODE IS F
004100     BLOCK CONTAINS 133 RECORDS
004200     LABEL RECORDS ARE STANDARD.
004300 01  PRTFILE-LINE                PIC X(133).
004400
004500
004600 WORKING-STORAGE SECTION.
004700 77  W-STORAGE-REF               PIC X(36)  VALUE
004800     'HHMGR - W O R K I N G  S T O R A G E'.
004900 01  HHMGR-VERSION               PIC X(09)  VALUE 'M2018.1'.
005000 01  HHOPN181                    PIC X(08)  VALUE 'HHOPN181'.
005100 01  SUB1                        PIC 9(03)  VALUE 0.
005200 01  EOF-SW                      PIC 9(01)  VALUE 0.
005300 01  LINE-CTR                    PIC 9(02)  VALUE 65.
005400 01  HHAFILE-CTR                 PIC 9(09)  VALUE 0.
005500 01  OUTFILE-CTR                 PIC 9(09)  VALUE 0.
005600 01  PRTFILE-CTR                 PIC 9(09)  VALUE 0.
005700 01  UT1-STAT.
005800     05  UT1-STAT1               PIC X.
005900     05  UT1-STAT2               PIC X.
006000 01  UT2-STAT.
006100     05  UT2-STAT1               PIC X.
006200     05  UT2-STAT2               PIC X.
006300 01  PRT-STAT.
006400     05  PRT-STAT1               PIC X.
006500     05  PRT-STAT2               PIC X.
006600*----------------------------------------------------------------*
006700*  INPUT/OUTPUT RECORD LAYOUT - PIC X(650)                       *
006800*----------------------------------------------------------------*
006900 01  HHA-INPUT-DATA.
007000     05  HHA-DATA.
007100         10  HHA-NPI                 PIC X(10).
007200         10  HHA-HIC                 PIC X(12).
007300         10  HHA-PROV-NO             PIC X(06).
007400         10  HHA-TOB                 PIC X(03).
007500         10  HHA-PEP-INDICATOR       PIC X(01).
007600         10  HHA-PEP-DAYS            PIC 9(03).
007700         10  HHA-INIT-PAY-INDICATOR  PIC X(01).
007800             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.
007900             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.
008000         10  FILLER                  PIC X(09).
008100         10  HHA-CBSA                PIC X(05).
008200         10  FILLER                  PIC X(02).
008300         10  HHA-SERV-FROM-DATE.
008400             15  HHA-FROM-CC         PIC XX.
008500             15  HHA-FROM-YYMMDD.
008600                 25  HHA-FROM-YY     PIC XX.
008700                 25  HHA-FROM-MM     PIC XX.
008800                 25  HHA-FROM-DD     PIC XX.
008900         10  HHA-SERV-THRU-DATE.
009000             15  HHA-THRU-CC         PIC XX.
009100             15  HHA-THRU-YYMMDD.
009200                 25  HHA-THRU-YY     PIC XX.
009300                 25  HHA-THRU-MM     PIC XX.
009400                 25  HHA-THRU-DD     PIC XX.
009500         10  HHA-ADMIT-DATE.
009600             15  HHA-ADMIT-CC        PIC XX.
009700             15  HHA-ADMIT-YYMMDD.
009800                 25  HHA-ADMIT-YY    PIC XX.
009900                 25  HHA-ADMIT-MM    PIC XX.
010000                 25  HHA-ADMIT-DD    PIC XX.
010100         10  HHA-HRG-DATA      OCCURS 6.
010200             15  HHA-MED-REVIEW-INDICATOR PIC X.
010300             15  HHA-HRG-INPUT-CODE       PIC X(05).
010400             15  HHA-HRG-OUTPUT-CODE      PIC X(05).
010500             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).
010600             15  HHA-HRG-WGTS             PIC 9(02)V9(04).
010700             15  HHA-HRG-PAY              PIC 9(07)V9(02).
010800         10  HHA-REVENUE-DATA     OCCURS 6.
010900             15  HHA-REVENUE-CODE              PIC X(04).
011000             15  HHA-REVENUE-QTY-COV-VISITS    PIC 9(03).
011100             15  HHA-REVENUE-QTY-OUTL-UNITS    PIC 9(05).
011200             15  HHA-REVENUE-EARLIEST-DATE     PIC 9(08).
011300             15  HHA-REVENUE-DOLL-RATE         PIC 9(07)V9(02).
011400             15  HHA-REVENUE-COST              PIC 9(07)V9(02).
011500             15  HHA-REVENUE-ADD-ON-VISIT-AMT  PIC 9(07)V9(02).
011600     05  HHA-PASSBACK-DATA.
011700         10  HHA-PAY-RTC                PIC 99.
011800         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).
011900         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).
012000         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).
012100         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).
012200     05  HHA-CASE-MIX-DATA.
012300         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).
012400         10  HHA-LUPA-SRC-ADM           PIC X.
012500         10  HHA-RECODE-IND             PIC X.
012600         10  HHA-EPISODE-TIMING         PIC 9.
012700         10  HHA-SEVERITY-POINTS.
012800             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).
012900             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).
013000             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).
013100             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).
013200             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).
013300             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).
013400             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).
013500             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).
013600     05  HHA-PROV-TOTAL-DATA.
013700         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).
013800         10  HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).
013810     05  HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).
013820     05  HHA-VBP-ADJ-AMT                PIC S9(7)V99.
013830     05  HHA-PPS-STD-VALUE              PIC 9(7)V99.
013910     05  FILLER                         PIC X(27).
014000
014100 01  HOLD-VARIABLES-DATA.
014200     02  HOLD-VAR-DATA.
014300         05  PRICER-OPTION-SW         PIC X.
014400         05  HHOPN-VERSION            PIC X(07).
014500         05  HHDRV-VERSION            PIC X(07).
014600         05  HHCAL-VERSION            PIC X(07).
014700         05  FILLER                   PIC X(20).
014800
014900
015000 01  TOTAL-COUNTERS.
015100     03  FILLER    OCCURS 20.
015200         05  COUNT-TOTAL       PIC 9(09)  COMP.
015300
015400*******************************************************
015500*----------------------------------------------------**
015600*    HHA PAYMENT REPORT COMPONENTS                    *
015700*----------------------------------------------------**
015800 01  HHA-DETAIL-LINE.
015900     05  FILLER                  PIC X(02)  VALUE SPACES.
016000     05  PRT-NPI                 PIC X(10).
016100     05  FILLER                  PIC X(02).
016200     05  PRT-HIC                 PIC X(12).
016300     05  FILLER                  PIC X(02).
016400     05  PRT-PROV                PIC X(06).
016500     05  FILLER                  PIC X(02)  VALUE SPACES.
016600     05  PRT-MSA-CBSA            PIC X(05).
016700     05  FILLER                  PIC X(01)  VALUE SPACES.
016800     05  PRT-FROM-DATE           PIC X(08).
016900     05  FILLER                  PIC X(03)  VALUE SPACES.
017000     05  PRT-PEP                 PIC X.
017100     05  FILLER                  PIC X(02)  VALUE SPACES.
017200     05  PRT-MED-IND1            PIC X.
017300     05  PRT-MED-IND2            PIC X.
017400     05  PRT-MED-IND3            PIC X.
017500     05  PRT-MED-IND4            PIC X.
017600     05  PRT-MED-IND5            PIC X.
017700     05  PRT-MED-IND6            PIC X.
017800     05  FILLER                  PIC X(01)  VALUE SPACES.
017900     05  PRT-TOB                 PIC XXX.
018000     05  PRT-OUTLIER-PAY         PIC $$,$$$,$$$.99.
018100     05  PRT-PAYMENT-RATE        PIC $$,$$$,$$$.99.
018200     05  FILLER                  PIC X(01)  VALUE SPACES.
018300     05  FILLER                  PIC X(01)  VALUE SPACES.
018400     05  PRT-HHA-RTC             PIC 99.
018500     05  FILLER                  PIC X(01)  VALUE SPACES.
018600     05  PRT-13-QTY              PIC X(5).
018700     05  FILLER                  PIC X(01)  VALUE '/'.
018800     05  PRT-16-QTY              PIC X(5).
018900     05  FILLER                  PIC X(02)  VALUE SPACES.
019000     05  PRT-INIT-PAY-IND        PIC X.
019100     05  FILLER                  PIC X(01)  VALUE SPACES.
019200     05  PRT-THRU-DATE           PIC X(08).
019300     05  PRT-REV-DOLL-RATE-1     PIC $$,$$$,$$$.99.
019400
019500 01  HHA-HEAD1.
019600     05  FILLER                  PIC X(01)  VALUE SPACES.
019700     05  FILLER                  PIC X(44)  VALUE
019800        ' C M S,                                     '.
019900     05  FILLER                  PIC X(44)  VALUE
020000        '                                            '.
020100     05  FILLER                  PIC X(44)  VALUE
020200        '                                            '.
020300
020400 01  HHA-HEAD2.
020500     05  FILLER                  PIC X(01)  VALUE SPACES.
020600     05  FILLER                  PIC X(44)  VALUE
020700        ' PBG,DDS     HHA NATIONAL PRICER            '.
020800     05  FILLER                  PIC X(44)  VALUE
020900        '                          T E S T   D A T A '.
021000     05  FILLER                  PIC X(44)  VALUE
021100        '  R E P O R T                               '.
021200
021300 01  HHA-HEAD3.
021400     05  FILLER                  PIC X(01)  VALUE SPACES.
021500     05  FILLER                  PIC X(44)  VALUE
021600        '    NPI         HIC         PROV           F'.
021700     05  FILLER                  PIC X(44)  VALUE
021800        'ROM    PEP  MED   TOB    OUTLIER         TOT'.
021900     05  FILLER                  PIC X(44)  VALUE
022000        'AL   RTC SUM3/SUM6  PAY  THRU        REV-1  '.
022100
022200 01  HHA-HEAD4.
022300     05  FILLER                  PIC X(01)  VALUE SPACES.
022400     05  FILLER                  PIC X(44)  VALUE
022500        '    NO.         NO.         NO.  MSA/CBSA  D'.
022600     05  FILLER                  PIC X(44)  VALUE
022700        'ATE    COD  COD          PAYMENT        PAYM'.
022800     05  FILLER                  PIC X(44)  VALUE
022900        'ENT         QTY     IND  DATE        RATE   '.
023000
023100**--------------------------------------------------------------
023200 PROCEDURE  DIVISION.
023300
023400 0000-MAINLINE  SECTION.
023500     OPEN INPUT  HHAFILE
023600          OUTPUT OUTFILE
023700          OUTPUT PRTFILE.
023800
023900     MOVE LOW-VALUES TO TOTAL-COUNTERS.
024000
024100     PERFORM 0100-PROCESS-RECORDS THRU 0100-EXIT UNTIL EOF-SW = 1.
024200
024300     DISPLAY ' '.
024400
024500     DISPLAY '-- PROGRAM HHMGR181  VERSION  ===> ' HHMGR-VERSION.
024600     DISPLAY '-- PROGRAM HHOPN181  VERSION  ===> ' HHOPN-VERSION.
024700     DISPLAY '-- PROGRAM HHDRV181  VERSION  ===> ' HHDRV-VERSION.
024800
024900     DISPLAY ' '.
025000
025100     IF COUNT-TOTAL (1) > 0
025200         DISPLAY '-- PROGRAM HHCAL016  VERSION  ===> P2001.6 '.
025300     IF COUNT-TOTAL (2) > 0
025400         DISPLAY '-- PROGRAM HHCAL023  VERSION  ===> P2002.3 '.
025500     IF COUNT-TOTAL (3) > 0
025600         DISPLAY '-- PROGRAM HHCAL033  VERSION  ===> P2003.3 '.
025700     IF COUNT-TOTAL (4) > 0
025800         DISPLAY '-- PROGRAM HHCAL044  VERSION  ===> P2004.4 '.
025900     IF COUNT-TOTAL (5) > 0
026000         DISPLAY '-- PROGRAM HHCAL053  VERSION  ===> P2005.3 '.
026100     IF COUNT-TOTAL (6) > 0
026200         DISPLAY '-- PROGRAM HHCAL066  VERSION  ===> P2006.6 '.
026300     IF COUNT-TOTAL (7) > 0
026400         DISPLAY '-- PROGRAM HHCAL074  VERSION  ===> P2007.4 '.
026500     IF COUNT-TOTAL (8) > 0
026600         DISPLAY '-- PROGRAM HHCAL088  VERSION  ===> P2008.8 '.
026700     IF COUNT-TOTAL (9) > 0
026800         DISPLAY '-- PROGRAM HHCAL095  VERSION  ===> P2009.5 '.
026900     IF COUNT-TOTAL (10) > 0
027000         DISPLAY '-- PROGRAM HHCAL10D  VERSION  ===> P2010.D '.
027100     IF COUNT-TOTAL (11) > 0
027200         DISPLAY '-- PROGRAM HHCAL10A  VERSION  ===> P2010.A '.
027300     IF COUNT-TOTAL (12) > 0
027400         DISPLAY '-- PROGRAM HHCAL112  VERSION  ===> P2011.2 '.
027500     IF COUNT-TOTAL (13) > 0
027600         DISPLAY '-- PROGRAM HHCAL121  VERSION  ===> P2012.1 '.
027700     IF COUNT-TOTAL (14) > 0
027800         DISPLAY '-- PROGRAM HHCAL131  VERSION  ===> P2013.1 '.
027900     IF COUNT-TOTAL (15) > 0
028000         DISPLAY '-- PROGRAM HHCAL144  VERSION  ===> P2014.4 '.
028100     IF COUNT-TOTAL (16) > 0
028200         DISPLAY '-- PROGRAM HHCAL152  VERSION  ===> P2015.2 '.
028300     IF COUNT-TOTAL (17) > 0
028400         DISPLAY '-- PROGRAM HHCAL160  VERSION  ===> P2016.0 '.
028500     IF COUNT-TOTAL (18) > 0
028600         DISPLAY '-- PROGRAM HHCAL170  VERSION  ===> P2017.0 '.
028610     IF COUNT-TOTAL (19) > 0
028620         DISPLAY '-- PROGRAM HHCAL181  VERSION  ===> P2018.1 '.
028700
028800     DISPLAY ' '.
028900
029000     IF COUNT-TOTAL (1) > 0
029100        DISPLAY '-- FY2001 RECORD COUNT  ===> ' COUNT-TOTAL (1).
029200     IF COUNT-TOTAL (2) > 0
029300        DISPLAY '-- FY2002 RECORD COUNT  ===> ' COUNT-TOTAL (2).
029400     IF COUNT-TOTAL (3) > 0
029500        DISPLAY '-- FY2003 RECORD COUNT  ===> ' COUNT-TOTAL (3).
029600     IF COUNT-TOTAL (4) > 0
029700        DISPLAY '-- FY2004 RECORD COUNT  ===> ' COUNT-TOTAL (4).
029800     IF COUNT-TOTAL (5) > 0
029900        DISPLAY '-- FY2005 RECORD COUNT  ===> ' COUNT-TOTAL (5).
030000     IF COUNT-TOTAL (6) > 0
030100        DISPLAY '-- CY2006 RECORD COUNT  ===> ' COUNT-TOTAL (6).
030200     IF COUNT-TOTAL (7) > 0
030300        DISPLAY '-- CY2007 RECORD COUNT  ===> ' COUNT-TOTAL (7).
030400     IF COUNT-TOTAL (8) > 0
030500        DISPLAY '-- CY2008 RECORD COUNT  ===> ' COUNT-TOTAL (8).
030600     IF COUNT-TOTAL (9) > 0
030700        DISPLAY '-- CY2009 RECORD COUNT  ===> ' COUNT-TOTAL (9).
030800     IF COUNT-TOTAL (10) > 0
030900        DISPLAY '-- CY2010C RECORD COUNT ===> ' COUNT-TOTAL (10).
031000     IF COUNT-TOTAL (11) > 0
031100        DISPLAY '-- CY20109 RECORD COUNT ===> ' COUNT-TOTAL (11).
031200     IF COUNT-TOTAL (12) > 0
031300        DISPLAY '-- CY2011  RECORD COUNT ===> ' COUNT-TOTAL (12).
031400     IF COUNT-TOTAL (13) > 0
031500        DISPLAY '-- CY2012  RECORD COUNT ===> ' COUNT-TOTAL (13).
031600     IF COUNT-TOTAL (14) > 0
031700        DISPLAY '-- CY2013  RECORD COUNT ===> ' COUNT-TOTAL (14).
031800     IF COUNT-TOTAL (15) > 0
031900        DISPLAY '-- CY2014  RECORD COUNT ===> ' COUNT-TOTAL (15).
032000     IF COUNT-TOTAL (16) > 0
032100        DISPLAY '-- CY2015  RECORD COUNT ===> ' COUNT-TOTAL (16).
032200     IF COUNT-TOTAL (17) > 0
032300        DISPLAY '-- CY2016  RECORD COUNT ===> ' COUNT-TOTAL (17).
032400     IF COUNT-TOTAL (18) > 0
032500        DISPLAY '-- CY2017  RECORD COUNT ===> ' COUNT-TOTAL (18).
032510     IF COUNT-TOTAL (19) > 0
032520        DISPLAY '-- CY2018  RECORD COUNT ===> ' COUNT-TOTAL (19).
032600
032700     DISPLAY ' '.
032800
032900     DISPLAY '-- INPUT  COUNTS FOR HHAFILE  ===> ' HHAFILE-CTR.
033000     DISPLAY '-- OUTPUT COUNTS FOR OUTFILE  ===> ' OUTFILE-CTR.
033100     DISPLAY '-- OUTPUT COUNTS FOR PRTFILE  ===> ' PRTFILE-CTR.
033200
033300     CLOSE HHAFILE.
033400     CLOSE OUTFILE.
033500     CLOSE PRTFILE.
033600
033700     STOP RUN.
033800
033900 0100-PROCESS-RECORDS.
034000     READ HHAFILE INTO HHA-INPUT-DATA
034100         AT END
034200             MOVE 1 TO EOF-SW
034300             GO TO 0100-EXIT.
034400
034500     ADD 1 TO HHAFILE-CTR.
034600
034700     MOVE ALL '0' TO HOLD-VAR-DATA
034800                     HHA-PASSBACK-DATA.
034900
035000
035100     IF  EOF-SW = 0
035200         PERFORM 0400-APPLY-COUNTERS THRU 0400-EXIT
035300         PERFORM 0200-CALL-DRV THRU 0200-EXIT
035400         PERFORM 1100-WRITE THRU 1100-EXIT.
035500
035600 0100-EXIT.  EXIT.
035700 0200-CALL-DRV.
035800         MOVE 'A' TO PRICER-OPTION-SW
035900         CALL  HHOPN181   USING HHA-INPUT-DATA
036000                                HOLD-VARIABLES-DATA.
036100
036200 0200-EXIT.  EXIT.
036300 0400-APPLY-COUNTERS.
036400
036500      IF HHA-SERV-THRU-DATE < 20020101
036600         ADD 1 TO COUNT-TOTAL (1)
036700         GO TO 0400-EXIT.
036800
036900      IF HHA-SERV-THRU-DATE < 20030101
037000         ADD 1 TO COUNT-TOTAL (2)
037100         GO TO 0400-EXIT.
037200
037300      IF HHA-SERV-THRU-DATE < 20040101
037400         ADD 1 TO COUNT-TOTAL (3)
037500         GO TO 0400-EXIT.
037600
037700      IF HHA-SERV-THRU-DATE < 20050101
037800         ADD 1 TO COUNT-TOTAL (4)
037900         GO TO 0400-EXIT.
038000
038100      IF HHA-SERV-THRU-DATE < 20060101
038200         ADD 1 TO COUNT-TOTAL (5)
038300         GO TO 0400-EXIT.
038400
038500      IF HHA-SERV-THRU-DATE < 20070101
038600         ADD 1 TO COUNT-TOTAL (6)
038700         GO TO 0400-EXIT.
038800
038900      IF HHA-SERV-THRU-DATE < 20080101
039000         ADD 1 TO COUNT-TOTAL (7)
039100         GO TO 0400-EXIT.
039200
039300      IF HHA-SERV-THRU-DATE < 20090101
039400         ADD 1 TO COUNT-TOTAL (8)
039500         GO TO 0400-EXIT.
039600
039700      IF HHA-SERV-THRU-DATE < 20100101
039800         ADD 1 TO COUNT-TOTAL (9)
039900         GO TO 0400-EXIT.
040000
040100      IF HHA-SERV-THRU-DATE < 20100401
040200         ADD 1 TO COUNT-TOTAL (10)
040300         GO TO 0400-EXIT.
040400
040500      IF HHA-SERV-THRU-DATE < 20110101
040600         ADD 1 TO COUNT-TOTAL (11)
040700         GO TO 0400-EXIT.
040800
040900      IF HHA-SERV-THRU-DATE < 20120101
041000         ADD 1 TO COUNT-TOTAL (12)
041100         GO TO 0400-EXIT.
041200
041300      IF HHA-SERV-THRU-DATE < 20130101
041400         ADD 1 TO COUNT-TOTAL (13)
041500         GO TO 0400-EXIT.
041600
041700      IF HHA-SERV-THRU-DATE < 20140101
041800         ADD 1 TO COUNT-TOTAL (14)
041900         GO TO 0400-EXIT.
042000
042100      IF HHA-SERV-THRU-DATE < 20150101
042200         ADD 1 TO COUNT-TOTAL (15)
042300         GO TO 0400-EXIT.
042400
042500      IF HHA-SERV-THRU-DATE < 20160101
042600         ADD 1 TO COUNT-TOTAL (16)
042700         GO TO 0400-EXIT.
042800
042900      IF HHA-SERV-THRU-DATE < 20170101
043000         ADD 1 TO COUNT-TOTAL (17)
043100         GO TO 0400-EXIT.
043200
043300      IF HHA-SERV-THRU-DATE < 20180101
043400         ADD 1 TO COUNT-TOTAL (18)
043500         GO TO 0400-EXIT.
043600
043700      ADD 1 TO COUNT-TOTAL (19).
043800
043900 0400-EXIT.  EXIT.
044000
044100 1100-WRITE.
044200
044300******************************************************************
044400*    PRINT HHA PROSPECTIVE PAYMENT TEST DATA DETAIL REPORT
044500******************************************************************
044600
044700     IF  LINE-CTR > 54
044800         PERFORM 1200-HHA-HEADINGS THRU 1200-EXIT.
044900
045000     MOVE SPACES          TO  HHA-DETAIL-LINE.
045100
045200*    IF HHA-SERV-THRU-DATE < 20060101
045300*       MOVE HHA-MSA2          TO PRT-MSA-CBSA
045400*    ELSE
045500*       MOVE HHA-CBSA          TO PRT-MSA-CBSA.
045600
045700     MOVE HHA-CBSA           TO PRT-MSA-CBSA.
045800     MOVE HHA-SERV-FROM-DATE TO PRT-FROM-DATE.
045900     MOVE HHA-SERV-THRU-DATE TO PRT-THRU-DATE.
046000
046100     MOVE HHA-NPI                TO PRT-NPI.
046200     MOVE HHA-HIC                TO PRT-HIC.
046300     MOVE HHA-PROV-NO            TO PRT-PROV.
046400
046500     MOVE HHA-REVENUE-SUM1-3-QTY-THR TO PRT-13-QTY.
046600     MOVE HHA-REVENUE-SUM1-6-QTY-ALL TO PRT-16-QTY.
046700
046800     MOVE HHA-PEP-INDICATOR          TO PRT-PEP.
046900     MOVE HHA-MED-REVIEW-INDICATOR (1)  TO PRT-MED-IND1.
047000     MOVE HHA-MED-REVIEW-INDICATOR (2)  TO PRT-MED-IND2.
047100     MOVE HHA-MED-REVIEW-INDICATOR (3)  TO PRT-MED-IND3.
047200     MOVE HHA-MED-REVIEW-INDICATOR (4)  TO PRT-MED-IND4.
047300     MOVE HHA-MED-REVIEW-INDICATOR (5)  TO PRT-MED-IND5.
047400     MOVE HHA-MED-REVIEW-INDICATOR (6)  TO PRT-MED-IND6.
047500     MOVE HHA-TOB                    TO PRT-TOB.
047600     MOVE HHA-INIT-PAY-INDICATOR TO PRT-INIT-PAY-IND.
047700
047800     MOVE HHA-OUTLIER-PAYMENT        TO PRT-OUTLIER-PAY.
047900     MOVE HHA-TOTAL-PAYMENT          TO PRT-PAYMENT-RATE.
048000     MOVE HHA-REVENUE-DOLL-RATE (1)  TO
048100                                      PRT-REV-DOLL-RATE-1.
048200
048300     MOVE HHA-PAY-RTC                TO PRT-HHA-RTC.
048400
048500     WRITE PRTFILE-LINE FROM HHA-DETAIL-LINE
048600                             AFTER ADVANCING 1.
048700     ADD 1 TO PRTFILE-CTR.
048800     IF PRT-STAT1 > 0 DISPLAY ' BAD1 WRITE ON PRTFILE FILE'.
048900     ADD 1 TO LINE-CTR.
049000
049100******************************************************************
049200*    WRITE OUT-REC FILE 600 BYTES TO GO INTO YOUR INTERFACE
049300******************************************************************
049400     WRITE OUT-REC FROM HHA-INPUT-DATA.
049500
049600     IF UT2-STAT1 > 0 DISPLAY ' BAD2 WRITE ON OUTFILE  FILE'.
049700     ADD 1 TO OUTFILE-CTR.
049800
049900 1100-EXIT.  EXIT.
050000
050100 1200-HHA-HEADINGS.
050200     WRITE PRTFILE-LINE FROM HHA-HEAD1
050300                             AFTER ADVANCING PAGE.
050400     IF PRT-STAT1 > 0 DISPLAY ' BAD3 WRITE ON PRTFILE FILE'.
050500     WRITE PRTFILE-LINE FROM HHA-HEAD2
050600                             AFTER ADVANCING 1.
050700     IF PRT-STAT1 > 0 DISPLAY ' BAD5 WRITE ON PRTFILE FILE'.
050800     MOVE ALL '---' TO PRTFILE-LINE.
050900     WRITE PRTFILE-LINE AFTER ADVANCING 1.
051000     IF PRT-STAT1 > 0 DISPLAY ' BAD4 WRITE ON PRTFILE FILE'.
051100     WRITE PRTFILE-LINE FROM HHA-HEAD3
051200                             AFTER ADVANCING 2.
051300     IF PRT-STAT1 > 0 DISPLAY ' BAD6 WRITE ON PRTFILE FILE'.
051400     WRITE PRTFILE-LINE FROM HHA-HEAD4
051500                             AFTER ADVANCING 1.
051600     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.
051700     MOVE ALL '  -' TO PRTFILE-LINE.
051800     WRITE PRTFILE-LINE AFTER ADVANCING 1.
051900     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.
052000     MOVE 7 TO LINE-CTR.
052100
052200 1200-EXIT.  EXIT.
