000100
000200
000300
000400
000500
000600
000700         LTCH PPS PRICER INSTALLATION GUIDE DOCUMENT
000800
000900            --------------------------------------
001000
001100
001200    The  FY 2015, RY 2015  Long-Term  Care  Hospital  Prospective
001300
001400    Payment  pricing subroutines  (PRICER 2015)  are furnished by
001500
001600    The  Centers  for  Medicare & Medicaid Services (CMS).    The
001700
001800    responsibility   for   installing,   modifying,  testing  and
001900
002000    verifying  the accuracy  of  this routine is that of the user.
002100
002200
002300
002400    Please  report any problems  or direct any  questions you may
002500
002600    have to  Sarah Shirey of  the Division of  Institution Claims
002700
002800    (410)  786-0187.    You  can  also receive  clarification  of
002900
003000    technical   matters if needed.   IN ORDER TO  ASSURE THAT THE
003100
003200    PROBLEMS  YOU  MAY  EXPERIENCE  ARE  NOT  A  RESULT  OF  YOUR
003300
003400    INTERFACE PROGRAM(S),  TEST   PRICER USING  THE CMS  SUPPLIED
003500
003600    TEST PROGRAM (LTMGR152).
003700
003800
003900
004000 subroutine has been tested by CMS.
004100
004200
004300
004400
004500
004600
004700
004800
004900
005000
005100
005200
005300
005400
005500
005600
005700                                 A
005800     FILE # 2 LTCH PPS PRICER INSTALLATION GUIDE DOCUMENT
005900
006000
006100
006200
006300==================================================================
006400
006500           FILES FOR LONG-TERM CARE HOSPITAL PRICER
006600
006700==================================================================
006800
006900                     - IPDRG063
007000                     - IPDRG071
007100                     - IPDRG080
007200                     - IPDRG090
007300                     - IPDRG104
007400                     - IPDRG110
007500                     - IPDRG123
007600                     - IPDRG130
007700                     - IPDRG141
007800                     - IPDRG152
007900                     - IPWIX152
008000                     - IRFBN091
008100                     - IRFBN102
008200                     - IRFBN105
008300                     - LTCAL032
008400                     - LTCAL042
008500                     - LTCAL043
008600                     - LTCAL058
008700                     - LTCAL059
008800                     - LTCAL063
008900                     - LTCAL064
009000                     - LTCAL072
009100                     - LTCAL075
009200                     - LTCAL080
009300                     - LTCAL087
009400                     - LTCAL091
009500                     - LTCAL094
009600                     - LTCAL095
009700                     - LTCAL103
009800                     - LTCAL105
009900                     - LTCAL111
010000                     - LTCAL123
010100                     - LTCAL130
010200                     - LTCAL141
010300                     - LTCAL152
010400                     - LTDRG031
010500                     - LTDRG041
010600                     - LTDRG057
010700                     - LTDRG062
010800                     - LTDRG075
010900                     - LTDRG080
011000                     - LTDRG086
011100                     - LTDRG093
011200                     - LTDRG095
011300                     - LTDRG100
011400                     - LTDRG110
011500                     - LTDRG123
011600                     - LTDRG130
011700                     - LTDRG141
011800                     - LTDRG159
011900                     - LTDRV152
012000                     - LTDUM152
012100                     - LTMAN152
012200                     - LTMGR152
012300                     - LTMSA152
012400                     - LTOPN152
012500                     - LTWIX152
012600
012700
012800
012900
013000
013100
013200
013300
013400
013500
013600
013700
013800
013900
014000
014100                              B							
014200
014300         FILE # 2 LTCH PPS PRICER INSTALLATION GUIDE DOCUMENT
014400
014500
014600
014700                          TABLE OF CONTENTS
014800
014900                               VOLUME I
015000
015100on     . . . . . . . . . . . . . . . . . . . . . . . . . . . .  Pa
015200
015300ntroduction
015400
015500-1.   General . . . . . . . . . . . . . . . . . . . . . .   . .I-1
015600
015700-2.   Summary of PRICER 2015 changes . . . . . . . . . . . .     I
015800
015900stalling the FY 2015 LTCH Prospective Payment PRICER
016000
016100I-1.  General  . . . . . . . . . . . . . . . . . . . . . . . .  II
016200
016300I-2.  Copying the LTCAL Files to Disk  . . . . . . . . . . . .  II
016400
016500I-3.  COMPILING AND LINKAGE OF LTMGR152, LTOPN152, LTDRV152 AND
016600      the yearly LTCALculation module . .. . . . . . . . .      II
016700
016800I-4.  PRICER Assurance Testing . . . . . . . . . . . . . . . .  II
016900
017000I-5.  PRICER Installation Requirements . . . . . . . . . . .  II-3
017100
017200sing the FY 2015 LTCH Prospective Payment PRICER LTCAL152 Module
017300       (LTCAL152)
017400
017500II-1. General  . . . . . . . . . . . . . . . . . . . . . . . . III
017600II-2. Using LTCAL152 . . . . . . . . . . . . . . . . . . . . . III
017700
017800sing the FY 2015, RY 2015 LTCH Prospective Payment PRICER
017900ubroutine (LTDRV152)
018000
018100V-1.  General . . . . . . . . . . . . . . . . . . . . . . . . . IV
018200
018300V-2.  Using LTDRV152. . . . . . . . . . . . . . . . . . . . . . IV
018400
018500RICER ASSURANCE TESTING USING LTMGR152
018600
018700-1.   General  . . . . . . . . . . . . . . . . . . . . . . . . . V
018800
018900-2.   Using LTMGR152 . . . . . . . . . . . . . . . . . . . . . . V
019000
019100-3.   Testing User Supplied Data Using LTMGR152  . . . . . . . . V
019200
019300
019400
019500
019600
019700
019800
019900                                  C
020000         FILE # 2 LTCH PPS PRICER INSTALLATION GUIDE DOCUMENT
020100                        LIST OF ILLUSTRATIONS
020200e  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . P
020300
020400 Flowchart of LTCH PRICER System . . . . . . . . . . . . . . . .
020500
020600 SYSOUR counts from LTMGR  . . . . . . . . . . . . . . . . . . .
020700
020800 Layout of PRICER INSTALLATION TAPE/CARTRIDGE or NETWORK DATA
020900 MOVER (NDM) FILE  . . . . . . . . . . . . . . . . . . . . . . II-
021000
021100 Sample  JCL - Tape To Disk Load of PRICER Installation
021200 Tape/Cartridge  . . . . . . . . . . . . . . . . . . . . . . . . I
021300
021400 CICS / VS/COBOL JCL - Compile LTCALs, LTMGR, LTOPN, & LTDRV . . I
021500
021600 VS/COBOL JCL -Linkedit LTMGR152, LTOPN152, LTDRV152, CALculation
021700 Modules.      . . . . . . . . . . . . . . . . . . . . . . . . . I
021800
021900 Sample JCL - Download of the (NDM) File PRICER Installation
022000 file          . . . . . . . . . . . . . . . . . . . . . . . . .II
022100
022200 CICS / VS-COBOL II JCL - Compile LTCALs, LTOPN152, LTDRV152 . .II
022300
022400 VS-COBOL II JCL - Linkedit LTMGR152.  . . . . . . . . . . . . .II
022500
022600 LTCAL Call List Arguments . . . . . . . . . . . . . . . . . . . I
022700
022800 Layout - Argument 1: Bill Data Sent to LTCAL  . . . . . . . . . I
022900
023000 Layout - Argument 2: Data Returned by LTCAL . . . . . . . . . IV-
023100
023200 Layout - Argument 3: CBSA Returned by LTCAL . . . . . . . . .   I
023300
023400 Layout - Argument 4: PRICER opt-vers switch . . . . . . . . . . I
023500
023600 Layout - Argument 5: Interface Supplied Provider Specific
023700 Record. . . . . . . . . . . . . . . . . . . . . . . . . IV-8,9,10
023800
023900 Layout - Argument 6: Interface Supplied MSAX . . . . . . . . . IV
024000
024100 Layout - Argument 6: Interface Supplied CBSA . . . . . . . . . IV
024200
024300 Layout - Argument 7: Interface Supplied IPPS CBSA  . . . . . . IV
024400
024500 VS/COBOL II -- SAMPLE JCL FOR EXECUTE LTDRV152  . . . . . . . .
024600
024700 EXPECTED TEST RESULTS                       . . . . . . . . . .
024800
024900 VS/COBOL II -- SAMPLE JCL FOR EXECUTE LTMGR152  . . . . . . . .
025000
025100 TEST BILL DATA RECORD FORMAT  . . . . . . . . . . . . . . . . .
025200
025300AYMENT CENSUS DIVISION COMPOSITION . . . . . . . . . . . . . . .
025400
025500 REGIONAL CONSORTIA COMPOSITION . . . . . . . . . . . . . . . . .
025600                              D
025700         FILE # 2 LTCH PPS PRICER INSTALLATION GUIDE DOCUMENT
025800
025900
026000NTRODUCTION
026100
026200
026300
026400
026500.  GENERAL
026600CER refers to a group of programs  which will calculate the paymen
026700 a Long-Term Care Hospital  PPS bill based on the data elements  p
026800 It will return the payment amount and other data used in pricing
026900ications   if   pricing  could not  be  properly  executed.   PRIC
027000ce  the most   current  fiscal five  (5) year period,  i.e., 2003
0271007.   There are  three levels of processing within PRICER, Flowchar
027200.
027300
027400  LTMGR152-This is  a test driver  module and  it should  be used
027500tallation and testing  phases of PRICER.  It calls the most curren
027600iod based on the discharge date, in exactly the same manner it doe
027700
027800  LTOPN152 -  For testing and for users not converting to CICS.  T
027900  program opens the provider, MSA, CBSA, and IPPS CBSA files.
028000
028100  LTDRV152 -  Assembles the  necessary  pricing variables,  and sc
028200  bill date  CALLing the appropriate  CALculation Module for each
028300
028400  LTCAL032, LTCAL042, LTCAL043, LTCAL058, LTCAL059, LTCAL063,
028500  LTCAL064, LTCAL072, LTCAL075, LTCAL080, LTCAL087, LTCAL091,
028600  LTCAL094, LTCAL095, lTCAL103, LTCAL105, LTCAL111, LTCAL123,
028700  LTCAL130, LTCAL141, ltcal152.
028800se are  the  semi-yearly modules where all of the edits and calcul
028900 performed.  Five  Fiscal  Years  of  CAL  Modules  are retained i
029000ease.  Every Fiscal Year  after the fifth year of operation(FY 200
029100liest CALC  module will  be  dropped  and the  new CAL module will
029200ed, maintaining a five year pricing period.
029300
029400  Files #36 through  File  #40 are  Provider  Specific  Regional f
029500uped  by  Regional  Consortium ---  The  Northeast  Consortium  in
029600ions one, two, and three.  The Southern Consortium includes region
029700 six.  The  Midwest Consortium  includes  regions five  and  seven
029800tern Consortium includes regions eight, nine, and ten.   See Figur
029900 the states in each Regional Consortium.   These files are only fo
030000, and FEHB's.  Intermediaries do not need these files.  The VA, HM
030100B's must add the necessary JCL to  unload and ---  use only the Re
030200sortium  file  that  pertains  to  them,  unload shown in FIGURE 2
030300URE 3.1.  Note: The Sourthern Consortium is now split.  Regions fo
030400 are now separate.
030500                                *
030600
030700
030800
030900
031000
031100
031200
031300
031400
031500
031600                              I-1
031700         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
031800
031900 purpose  of this manual is  to provide Intermediary technical  st
032000 information necessary  to understand, install, test,  debug, supp
032100 necessary,  modify  the Fiscal Year  (FY) 2015  Long-Term  Care
032200H PRICER  driver routine (LTDRV152).
032300
032400   Intermidiary   is   required   to   use   the    CALculation
032500CAL032,  LTCAL042,   LTCAL043, LTCAL058, LTCAL059, LTCAL063, LTCAL
032600CAL072,  LTCAL075,   LTCAL080, LTCAL087, LTCAL091, LTCAL094,  LTCA
032700CAL103, LTCAL105, LTCAL111, LTCAL123, LTCAL130, LTCAL141, ltcal152
032800    pricing        Long-Term       Care      Hospital  (LTCH)    P
032900  Payment  System (PPS) bills.  The  design  of  the  CALculation
033000ows    the    Intermediary   flexibility    in    the   manner  in
033100may be installed. The  CAL Modules are intended to execute as a su
033200LLed)  of  the PRICER  Driver  Program  (LTDRV152)  or  of an Inte
033300tten  inter-face program.   The  CALC modules  can execute  as sta
033400tines, if  they are  passed the necessary data.
033500
033600luded with this documentation  is a PRICER INSTALLATION TAPE  or N
033700h the exception  of the Provider Specific  File (which must be  cr
033800 Intermediary), the  TAPE/CARTRIDGE or  NDM file contains  all fil
033900uld be needed to execute PRICER. A test driver (LTMGR152- program,
034000vider file and a TEST BILL file are also included on the TAPE/CART
034100e.   These are useful  to assure  that the PRICER is executing pro
034200
034300
034400
034500
034600
034700preparing this manual, the following assumptions were made:
034800
034900  The reader is familiar with  IBM 370 Principals of Operation  as
035000COBOL II, VS/COBOL and OS JCL.
035100 The datasets  required by PRICER  will be copied  to disk and  ca
035200ording to your data center conventions.
035300 The  volume serial numbers  on the sample JCL  will be replaced
035400ume  serial  number  of  the  transfer  TAPE/CARTRIDGE  received
035500tallation.  This  number  will   be  indicated  on  the  outside
035600E/CARTRIDGE you receive.
035700 The GROUPER Versions 23.0, 24.0, 25.0, 26.0, 27.0 have been insta
035800 Intermediary data processing  site prior to installing and testin
0359005.
036000
036100
036200
036300
036400
036500
036600
036700
036800
036900
037000
037100
037200
037300
037400                              I-2
037500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
037600
037700
037800
037900.  SUMMARY FOR LTCH PRICER for discharges on or after October 1, 2
038000 1.  Pricer 2015 will process only the latest 5 years of bills sta
038100     with RY2007 thru RY2015.
038200     A.) Bills discharges on or after July 1, 2005.
038300                         FOR RY2006 THRU RY2015 ** Use PRICER 14.0
038400     **  Add grouper V27.0., New Regulations for 2010.
038500     **  Add new CBSA file, and IPPS CBSA file.
038600     **  Add new rates, federal payment rate, wage index, DRG weig
038700
038800==================================================================
038900               --------                  ------
039000              ! LTMGR  !-->       !<----! PSF  !
039100               --------   !       !      ------
039200                          !       !      ------
039300                       -------    !<----! CBSA !
039400                      ! LTOPN !<--!      ------
039500                       -------    !      ------
039600                          !       !<----!IPCBSA!
039700                       -------    !      ------
039800                      ! LTDRV !   !      ------
039900                       -------    !<----! MSAX !
040000                          !              ------
040100  -------------------------------------------------------------- -
040200 !      !     !       !      !      !      !      !      !      !
040300------  !  ---------  !  ---------  !  ---------  !  ---------  !
040400AL072 ! ! !LTCAL075 ! ! !LTCAL080 ! ! !LTCAL087 ! ! !LTCAL091 ! !
040500------  !  ---------  !  ---------  !  ---------  !  ---------  !
040600        !             !             !             !             !
040700    ---------     ---------     ---------     ---------     ------
040800   !LTCAL094 !   !LTCAL095 !   !LTCAL103 !   !LTCAL105 !   !LTCAL1
040900    ---------     ---------     ---------     ---------     ------
041000
041100
041200
041300 Figure 1.1: Flowchart of Long-Term Care Hospital Pricer System.
041400
041500==================================================================
041600
041700AM LTMGR     VERSION ==> XXX.X (LTMGR program being used)
041800AM LTOPN     VERSION ==> XXX.X (LTOPN program being used)
041900AM LTDRV     VERSION ==> XXX.X (LTDRV program being used)
042000AM LTCAL     VERSION ==> XXX.X (Each FY that was processed)
042100
042200R OF PROVIDERS    ====> 00157 (Number of provider records input)
042300R OF MSA RECORDS  ====> 01119 (Number of MSA records input)
042400R OF CBSA RECORDS ====> 02180 (Number of CBSA records input)
042500R OF IP CBSA RECORDS ====> 02775 (Number of IPCBSA records input)
042600
042700            Figure 1.2:  SYSOUR COUNTS FROM LTMGR PROGRAM.
042800
042900
043000
043100                              I-3
043200
043300         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
043400
043500
043600
043700
043800
043900
044000INSTALLING THE FY 2015, RY 2015 PROSPECTIVE PAYMENT SUBROUTINES (P
0441001.  GENERAL
044200 A.  Installing the PRICER Version 2015.0 consists of the followin
044300     1.  All Intermediaries -- copy files to disk.
044400     2.  All HMO's, VA and FEHB's  -- Copy all files to disk.
044500     3.  Compile and link  LTMGR152(optional), LTOPN152, LTDRV152
044600         the yearly calculation modules:
044700         LTCAL032, LTCAL042, LTCAL043, LTCAL058, LTCAL059, LTCAL06
044800         LTCAL064, LTCAL072, LTCAL075, LTCAL080, LTCAL087, LTCAL09
044900         LTCAL094, LTCAL095, LTCAL103, LTCAL105, LTCAL111, LTCAL12
045000         LTCAL130, LTCAL141, ltcal152.
045100     4.  Perform  assurance  testing.   LTMGR152 may  be used  to
045200         the PRICER (see Section V).
045300     5.  Install PRICER 2015 in production.
045400         LTMGR, LTOPN, LTDRV and all LTCAL modules  are written in
045500         VS-COBOL II  and  were  developed and  tested on  an  IBM
045600
045700TE:      Requires some  program modifications. Installing this sof
045800         equipment that is  not IBM compatible  will also require
045900         modifications.
046000
0461002.  COPYING THE PRICER FILES TO DISK
046200 A.  Pricer installation tape/cartridge process.
046300     1.  The  files contained  on the  PRICER Installation  Tape/C
046400         were  created with the  IBM IEBGENER utility.   The  file
046500         copied  to  disk using  any utility  capable  of copying
046600         length record data set.
046700     2.  The PRICER Installation  Tape/Cartridge contains the inst
046800         manual,  the  program source  code  and data  files  nece
046900         install PRICER.  The  tape/Cartridge is IBM Standard Labe
047000         BPI  and  contains   twenty-four  files.  The  files   an
047100         respective  location,  block  size,  logical  record  len
047200         description are shown in Figure 2.1.  Figure 2.2 shows sa
047300         for loading the files to disk.
047400 B.  Pricer installation NDM file process.
047500     1.  The  files contained  on the  PRICER Installation  NDM fi
047600         created with  the IBM IEBGENER utility.   The files may b
047700         to  disk  using any  utility capable  of  copying a  fixe
047800         record data set.
047900     2.  The PRICER NDM file contains the installation manual, the
048000         source code and data files necessary to  install PRICER.
048100         file is a  disk file  transmitted via the  NDM system  co
048200         twenty-four files. The files and their block size, logica
048300         length and description are shown in  Figure 2.1. Figure 3
048400         sample  JCL for    downloading  the NDM  files to disk  f
048500         processing.
048600
048700
048800TE:      (FIGURE 3.1  MUST BE RUN IN ORDER TO USE THESE FILES!!!)
048900
049000
049100                              II-1
049200         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
049300
049400
049500
0496003.  COMPILING AND LINKAGE OF LTMGR, LTOPN, LTDRV and LTCALs
049700
049800
049900
050000 A. All programs were developed  to use  VS/COBOL II.
050100 B.  The LTCALculation Modules are intended to be CALLed by a user
050200     interface  program  or  to  be  CALLed   by  LTDRV152.  They
050300     dynamically loaded  or the user  may INCLUDE the  LTCALculati
050400     linking to the user interface module.
050500 C.  LTMGR  "CALLs"  the latest LTOPN version which calls the late
050600ich calls LTCALculation Module. Link LTMGR, LTOPN, LTDRV versions
050700e appropriate years LTCAL modules.
050800 D.  Sample JCL for compiling and linking  LTMGR,LTOPN, LTDRV and
050900     modules is shown in Figures  3.2 and 3.3 for compile VS-COBOL
051000
051100     Figures 3.2 and 3.3 for linkedit VS-COBOL II.
051200
0513004.  PRICER ASSURANCE TESTING
051400 A.  It  is  the  user's  responsibility  to  assure that  the  PR
051500     executing properly at the user site.   The quickest way to te
051600     LTOPN, LTDRV, & LTCAL is to execute LTMGR using the Test Bill
051700     File  (see Sect. IV).
051800
051900
052000
052100
052200
052300
052400
052500
052600
052700
052800
052900
053000
053100
053200
053300
053400
053500
053600
053700
053800
053900
054000
054100
054200
054300
054400
054500
054600
054700
054800                               II-2
054900         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
055000
055100
055200
0553005.   PRICER INSTALLATION REQUIREMENTS
055400
055500CER 2015 must be installed prior to paying Long-Term Care Hospital
055600ls with  a discharge date of October 1, 2006 to present.
055700------------------------------------------------------------------
055800    !          !        !        !
055900E # ! FILE NAME!  LRECL ! BLKSIZE!  DESCRIPTION
056000====!==========! =======!========! ===============================
056100    ! FOREIGN. !        !        !
056200    ! &MEDIA.  !   80   ! 27920  !  LTCH PROSPECTIVE PAYMENT SYSTE
056300    ! PSF&DATE.!        !        !  FROM CMS FOR FY 2015, RY 2015
056400    ! LTC104   !        !        !  after october 1, 2011
056500----!----------!--------!--------!--------------------------------
056600    ! MANU152  !   80   ! 27920  !  LTCH PRICER MANUAL FOR FY 2015
056700----!----------!--------!--------!--------------------------------
056800    !          !        !        !
056900    ! LTMGR152 !   80   ! 27920  !  Test program source
057000    !          !        !        !  code (VS/COBOL II)
057100----!----------!--------!--------!--------------------------------
057200    !          !        !        !
057300    ! LTOPN152 !   80   ! 27920  !  LTCH PPS Open program source
057400    !          !        !        !  code (VS/COBOL II)
057500----!----------!--------!--------!--------------------------------
057600    !          !        !        !
057700    ! LTDRV152 !   80   ! 27920  !  LTCH PPS Driver program source
057800    !          !        !        !  code (CICS / VS/COBOL II)
057900----!----------!--------!--------!--------------------------------
058000    !          !        !        !
058100    ! LTCAL072 !   80   ! 27920  !  CALculation program source
058200    !          !        !        !  code for FY 2006 (Jul - Sept)
058300----!----------!--------!--------!--------------------------------
058400    !          !        !        !
058500    ! LTCAL075 !   80   ! 27920  !  CALculation program source
058600    !          !        !        !  code for FY 2007 (Oct - Jun)
058700----!----------!--------!--------!--------------------------------
058800tinues on next page)
058900
059000
059100
059200
059300
059400
059500
059600
059700                              II-3
059800         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
059900----!----------!--------!--------!--------------------------------
060000    !          !        !        !
060100    ! LTCAL080 !   80   ! 27920  !  CALculation program source
060200    !          !        !        !  code for FY 2007 (Jul - Sept)
060300----!----------!--------!--------!--------------------------------
060400    !          !        !        !
060500    ! LTCAL087 !   80   ! 27920  !  CALculation program source
060600    !          !        !        !  code for FY 2008 (Oct - Jun)
060700----!----------!--------!--------!--------------------------------
060800    !          !        !        !
0609000   ! LTCAL091 !   80   ! 27920  !  CALculation program source
061000    !          !        !        !  code for FY 2008 (Jul - Sept)
061100----!----------!--------!--------!--------------------------------
061200    !          !        !        !
0613001   ! LTCAL094 !   80   ! 27920  !  CALculation program source
061400    !          !        !        !  code for FY 2009 (Oct - Jun)
061500----!----------!--------!--------!--------------------------------
061600    !          !        !        !
0617002   ! LTCAL095 !   80   ! 27920  !  CALculation program source
061800    !          !        !        !  code for FY 2009 (Jun - Sept)
061900----!----------!--------!--------!--------------------------------
062000    !          !        !        !
0621003   ! LTCAL103 !   80   ! 27920  !  CALculation program source
062200    !          !        !        !  code for FY 2010 (Oct - Mar)
062300----!----------!--------!--------!--------------------------------
062400    !          !        !        !
0625004   ! LTCAL105 !   80   ! 27920  !  CALculation program source
062600    !          !        !        !  code for FY 2010 (Oct - Mar)
062700----!----------!--------!--------!--------------------------------
062800    !          !        !        !
0629005   ! LTCAL110 !   80   ! 27920  !  CALculation program source
063000    !          !        !        !  code for FY 2011 (Oct - Sept)
063100----!----------!--------!--------!--------------------------------
063200    !          !        !        !
0633006   ! LTCAL111 !   80   ! 27920  !  CALculation program source
063400    !          !        !        !  code for FY 2010 (Apr - Sept)
063500----!----------!--------!--------!--------------------------------
063600    !          !        !        !
0637007   ! LTCAL123 !   80   ! 27920  !  CALculation program source
063800    !          !        !        !  code for FY 2012 (Oct - Sept)
063900----!----------!--------!--------!--------------------------------
064000    !          !        !        !      (REF. ONLY) LTCH
0641007   ! LTDRG075 !   80   ! 27920  !  DRG parameters file - FY 2007
064200----!----------!--------!--------!--------------------------------
064300    !          !        !        !      (REF. ONLY) LTCH
0644008   ! LTDRG080 !   80   ! 27920  !  DRG parameters file - FY 2008
064500----!----------!--------!--------!--------------------------------
064600    !          !        !        !      (REF. ONLY) LTCH
0647009   ! LTDRG086 !   80   ! 27920  !  DRG parameters file - FY 2008
064800----!----------!--------!--------!--------------------------------
064900    !          !        !        !      (REF. ONLY) LTCH
0650000   ! LTDRG093 !   80   ! 27920  !  DRG parameters file - FY 2009
065100----!----------!--------!--------!--------------------------------
065200    !          !        !        !      (REF. ONLY) LTCH
0653001   ! LTDRG095 !   80   ! 27920  !  DRG parameters file - FY 2009
065400----!----------!--------!--------!--------------------------------
065500    !          !        !        !      (REF. ONLY) LTCH
0656002   ! LTDRG100 !   80   ! 27920  !  DRG parameters file - FY 2010
065700----!----------!--------!--------!--------------------------------
065800    !          !        !        !      (REF. ONLY) LTCH
0659003   ! LTDRG110 !   80   ! 27920  !  DRG parameters file - FY 2011
066000----!----------!--------!--------!--------------------------------
066100nued on next page)
066200
066300
066400
066500
066600                            II-4A
066700----!----------!--------!--------!--------------------------------
066800    !          !        !        !      (REF. ONLY) IPPS
0669004   ! IPDRG071 !   80   ! 27920  !  DRG parameters file - FY 2007
067000----!----------!--------!--------!--------------------------------
067100    !          !        !        !      (REF. ONLY) IPPS
0672005   ! IPDRG080 !   80   ! 27920  !  DRG parameters file - FY 2008
067300----!----------!--------!--------!--------------------------------
067400    !          !        !        !      (REF. ONLY) IPPS
0675006   ! IPDRG090 !   80   ! 27920  !  DRG parameters file - FY 2009
067600----!----------!--------!--------!--------------------------------
067700    !          !        !        !      (REF. ONLY) IPPS
0678007   ! IPDRG104 !   80   ! 27920  !  DRG parameters file - FY 2010
067900----!----------!--------!--------!--------------------------------
068000    !          !        !        !      (REF. ONLY) IPPS
0681008   ! IPDRG110 !   80   ! 27920  !  DRG parameters file - FY 2011
068200----!----------!--------!--------!--------------------------------
068300    !          !        !        !      (REF. ONLY) IPPS
0684009   ! IPDRG123 !   80   ! 27920  !  DRG parameters file - FY 2013
068500----!----------!--------!--------!--------------------------------
068600    !          !        !        !      (PRODUCTION FILE)
0687009   ! LTMSA123 !   80   ! 27920  !  MSA Urban/Rural Wage Index fil
068800----!----------!--------!--------!--------------------------------
068900    !          !        !        !      (PRODUCTION FILE) LTCH
0690000   ! LTWIX123 !   80   ! 27920  !  CBSA Urban/Rural Wage Index fi
069100----!----------!--------!--------!--------------------------------
069200    !          !        !        !      (PRODUCTION FILE) IPPS
0693001   ! IPWIX123 !   80   ! 27920  !  CBSA Urban/Rural Wage Index fi
069400----!----------!--------!--------!--------------------------------
069500    !          !        !        !      (PRODUCTION FILE) IPPS
0696002   ! IRFBN091 !   80   ! 27920  ! STATE SPECIFIC RFBNS - FY 2009
069700----!----------!--------!--------!--------------------------------
069800    !          !        !        !      (PRODUCTION FILE) IPPS
0699003   ! IRFBN102 !   80   ! 27920  ! STATE SPECIFIC RFBNS - FY 2010
070000----!----------!--------!--------!--------------------------------
070100    !          !        !        !      (PRODUCTION FILE) IPPS
0702004   ! IRFBN105 !   80   ! 27920  ! STATE SPECIFIC RFBNS - FY 2010
070300----!----------!--------!--------!--------------------------------
070400    !          !        !        !      (PRODUCTION FILE) IPPS
0705005   ! IRFBN110 !   80   ! 27920  ! STATE SPECIFIC RFBNS - FY 2011
070600----!----------!--------!--------!--------------------------------
070700    !          !        !        !        (TEST FILE)
0708006   ! TPROV121 !  240   !  2400  !  Provider Specific Test Data
070900    !          !        !        !  file (NEW FORMAT)
071000----!----------!--------!--------!--------------------------------
071100    !          !        !        !        (TEST FILE)
0712007   ! TBILL121 !   60   !   600  !  Bill Test Data file (NEW FORMA
071300----!----------!--------!--------!--------------------------------
0714008   ! OPER121  !  133   !  1330  !  Expected Test Results
071500---THESE FILES ARE ONLY FOR VA HMO AND FEHB-----------------------
0716009   ! PRVR123  !        !        !
071700ru  ! PRVR4    !   240  ! 27840  !  Provider Regions 1 thru 10
0718003   ! PRVR6    !   240  ! 27840  !  Provider Regions 1 thru 10
071900    ! PRVR57   !        !        !  (NEW FORMAT) grouped by Region
072000    ! PRVR8910 !        !        !  Consortium except for regions
072100------------------------------------------------------------------
072200NOTE:    IBM Standard Label: 1600 BPI
072300ure 2.1: Layout of PRICER INSTALLATION TAPE/CARTRIDGE and
072400         NETWORK DATA MOVER (NDM) FILE
072500
072600
072700
072800
072900
073000
073100
073200
073300
073400
073500
073600
073700
073800
073900
074000
074100
074200
074300
074400
074500
074600
074700
074800
074900
075000
075100
075200
075300
075400
075500
075600                               II-4B
075700         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
075800
075900D    PROC DSN=,FILE=,FB=FB,LRECL=80,BLK=27920,PREF=,MEDIA=,
076000     DATE=
076100Y    EXEC PGM=IEBGENER
076200PRINT DD SYSOUT=A
076300IN    DD DUMMY,DCB=BLKSIZE=80
076400UT1   DD DISP=OLD,DSN=&DSN,
076500LABEL=(&FILE,SL),
076600UNIT=TAPE,VOL=(,RETAIN,SER=XXXXXX),
076700DCB=(RECFM=&FB,LRECL=&LRECL,BLKSIZE=&BLK,DEN=3)
076800UT2   DD DSN=&PREF..LTCTEST.&DSN,
076900DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
077000SPACE=(&BLK,(1010),RLSE),
077100DCB=(RECFM=&FB,LRECL=&LRECL,BLKSIZE=&BLK)
077200D
077300    EXEC LOAD,PREF='XX.XXXX',FILE=1,
077400     DSN=FOREIGN.&MEDIA.PSF&DATE..LTC121
077500UAL EXEC LOAD,PREF='XX.XXXX',FILE=2,DSN=MANU123,
077600    LRECL=80,BLK=27920,FB=FBA
077700    EXEC LOAD,PREF='XX.XXXX',FILE=3,DSN=LTMGR152
077800Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
077900    EXEC LOAD,PREF='XX.XXXX',FILE=4,DSN=LTOPN152
078000Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
078100    EXEC LOAD,PREF='XX.XXXX',FILE=5,DSN=LTDRV152
078200Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
078300YR1A EXEC LOAD,PREF='XX.XXXX',FILE=6,DSN=LTCAL063
078400Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
078500YR1B EXEC LOAD,PREF='XX.XXXX',FILE=7,DSN=LTCAL064
078600Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
078700YR2A EXEC LOAD,PREF='XX.XXXX',FILE=8,DSN=LTCAL072
078800Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
078900YR2B EXEC LOAD,PREF='XX.XXXX',FILE=9,DSN=LTCAL075
079000Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
079100YR3A EXEC LOAD,PREF='XX.XXXX',FILE=10,DSN=LTCAL080
079200Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
079300YR3B EXEC LOAD,PREF='XX.XXXX',FILE=11,DSN=LTCAL087
079400Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
079500YR4A EXEC LOAD,PREF='XX.XXXX',FILE=12,DSN=LTCAL091
079600Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
079700YR4B EXEC LOAD,PREF='XX.XXXX',FILE=13,DSN=LTCAL094
079800Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
079900YR4C EXEC LOAD,PREF='XX.XXXX',FILE=14,DSN=LTCAL095
080000Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
080100YR5A EXEC LOAD,PREF='XX.XXXX',FILE=15,DSN=LTCAL103
080200Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
080300YR5b EXEC LOAD,PREF='XX.XXXX',FILE=16,DSN=LTCAL123
080400Y.SYSUT2 DD DSN=&PREF..LTCTEST.&DSN..COBOL
080500XYR1 EXEC LOAD,PREF='XX.XXXX',FILE=17,DSN=LTDRG057
080600XYR2 EXEC LOAD,PREF='XX.XXXX',FILE=18,DSN=LTDRG062
080700XYR3 EXEC LOAD,PREF='XX.XXXX',FILE=19,DSN=LTDRG075
080800XYR4 EXEC LOAD,PREF='XX.XXXX',FILE=20,DSN=LTDRG080
080900XYR5 EXEC LOAD,PREF='XX.XXXX',FILE=21,DSN=LTDRG086
081000XYR6 EXEC LOAD,PREF='XX.XXXX',FILE=22,DSN=LTDRG093
081100XYR7 EXEC LOAD,PREF='XX.XXXX',FILE=23,DSN=LTDRG095
081200XYR8 EXEC LOAD,PREF='XX.XXXX',FILE=24,DSN=LTDRG100
081300
081400nued on next page)
081500                           II-5A
081600RGY1 EXEC LOAD,PREF='XX.XXXX',FILE=25,DSN=IPDRG063
081700RGY2 EXEC LOAD,PREF='XX.XXXX',FILE=26,DSN=IPDRG071
081800RGY3 EXEC LOAD,PREF='XX.XXXX',FILE=27,DSN=IPDRG080
081900RGY4 EXEC LOAD,PREF='XX.XXXX',FILE=28,DSN=IPDRG090
082000RGY5 EXEC LOAD,PREF='XX.XXXX',FILE=29,DSN=IPDRG104
082100RGY6 EXEC LOAD,PREF='XX.XXXX',FILE=29,DSN=IPDRG123
082200X    EXEC LOAD,PREF='XX.XXXX',FILE=30,DSN=LTMSA123
082300A   EXEC LOAD,PREF='XX.XXXX',FILE=31,DSN=LTWIX123
082400BSA EXEC LOAD,PREF='XX.XXXX',FILE=32,DSN=IPWIX123
082500BN1 EXEC LOAD,PREF='XX.XXXX',FILE=33,DSN=IRFBN090
082600BN2 EXEC LOAD,PREF='XX.XXXX',FILE=34,DSN=IRFBN102
082700BN3 EXEC LOAD,PREF='XX.XXXX',FILE=35,DSN=IRFBN105
082800V   EXEC LOAD,PREF='XX.XXXX',FILE=36,DSN=TPROV121,LRECL=240,BLK=24
082900L   EXEC LOAD,PREF='XX.XXXX',FILE=37,DSN=TBILL121,LRECL=60,BLK=600
083000OPER EXEC LOAD,PREF='XX.XXXX',FILE=38,DSN=OPER121,LRECL=133,
083100     BLK=1330,FB=FBA
083200***** NOTE  ADDED JCL FOR HMO, VA AND FEHB  *******
083300123  EXEC LOAD,PREF='XX.XXXX',FILE=39,DSN=PRVR123,LRECL=240,BLK=27
0834004    EXEC LOAD,PREF='XX.XXXX',FILE=40,DSN=PRVR4,LRECL=240,BLK=278
0835006    EXEC LOAD,PREF='XX.XXXX',FILE=41,DSN=PRVR6,LRECL=240,BLK=278
08360057   EXEC LOAD,PREF='XX.XXXX',FILE=42,DSN=PRVR57,LRECL=240,BLK=278
0837008910 EXEC LOAD,PREF='XX.XXXX',FILE=43,DSN=PRVR8910,LRECL=240,BLK=2
083800OTE: Supply your own JOB card and apply your data center's standar
083900e 2.2:  Sample JCL - Tape to Disk load of the PRICER Installation
084000------------------------------------------------------------------
084100
084200
084300
084400
084500
084600
084700
084800
084900
085000
085100
085200
085300
085400
085500
085600
085700
085800
085900
086000
086100
086200
086300
086400
086500
086600
086700
086800
086900
087000
087100
087200
087300
087400
087500
087600
087700
087800
087900
088000                              II-5B
088100
088200
088300
088400         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
088500
088600
088700R COBOL LINK
088800
088900C     EXEC PGM=IEFBR14
089000PRINT DD SYSOUT=A
089100      DD DSN=XX.XXXX.LTCTEST.LOAD.XXXXXXXX,
089200SP=(NEW,CATLG,DELETE),UNIT=SYSDA,
089300ACE=(TRK,(15,3,3)),
089400B=(RECFM=U,BLKSIZE=3120,DSORG=PO)
089500
089600PLOAD EXEC COBCCL,
089700PEX='MLIST,MDMAP,XCOUNT,NOSOU,NOTRU,CSXREF',
089800SIN='XX.XXXX.LTCTEST.XXXXXXXX.COBOL',
089900PYLIB='SYS1.COBLIB',
090000BPGMS='SYS1.COBLIB',
090100SLMOD='XX.XXXX.LTCTEST.LOAD.XXXXXXXX',
090200SOUT='A'
090300P01.CAICSL DD DSN=&CSL1,UNIT=SYSDA,
090400ACE=(CYL,(1,1,1)),DISP=(NEW,PASS)
090500P02.SYSLIN DD
090600D *
090700 XXXXXXXX(R)
090800
090900OTE: Supply your own JOB card and apply your data center's
091000        standards. Run once for each cobol Program.
091100
091200OR MVS LINK
091300
091400G    EXEC IGYWCL,PARM=(DYNAM,NORENT)
091500OL.SYSIN DD DSN=XXX.XXXX.PROGRAM,DISP=SHR
091600D.SYSLMOD DD DSN=XXX.XXXX.LOAD,DISP=SHR
091700
091800
091900OTE: COMPILE OPTIONS
092000 IS SUGGESTED FOR CICS
092100IS SUGESTED FOR CICS & ALLOWS THE PROGRAM TO EXECUTE ABOVE 16MB
092200
092300e 2.3:  Sample JCL - Creates load modules for PPOPNs, PPDRVs and
092400PPCALs.
092500
092600
092700
092800
092900
093000
093100
093200
093300
093400
093500
093600
093700
093800
093900
094000                                II-6
094100         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
094200
094300
094400
094500C    EXEC PGM=IEFBR14
094600PRINT  DD SYSOUT=A
094700      DD DSN=XX.XXXX.LTCTEST.LOAD.LTMGR152,DISP=(,CATLG,DELETE),
094800IT=SYSDA,SPACE=(TRK,(15,3,3)),
094900B=(RECFM=U,BLKSIZE=13030,DSORG=PO)
095000GR   EXEC COBCCL,
095100PEX='MLIST,MDMAP,XCOUNT,NOSOU,NOTRU,CSXREF',
095200SIN='XX.XXXX.LTCTEST.LTMGR152.COBOL',
095300PYLIB='SYS1.COBLIB',
095400BPGMS='SYS1.COBLIB',
095500SLMOD='XX.XXXX.LTCTEST.LOAD.LTMGR152',
095600SOUT='A'
095700P01.CAICSL DD DSN=&CSL1,UNIT=SYSDA,
095800ACE=(CYL,(1,1,1)),DISP=(NEW,PASS)
095900P02.SYSLIN DD
096000DD *
096100 LTCTEST(R)
096200
096300OTE: Supply your own JOB card and apply your data center's standar
096400e 2.4:  Sample JCL - Linkedit.
096500
096600
096700
096800
096900
097000
097100
097200
097300
097400
097500
097600
097700
097800
097900
098000
098100
098200
098300
098400
098500
098600
098700
098800
098900
099000
099100
099200
099300
099400
099500
099600
099700                                 II-7
099800         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
099900
100000
100100
100200 USING THE FY12, RY12 LTCH PROSPECTIVE PAYMENT PRICER SUBROUTINE (
100300
100400-1.  GENERAL
100500
100600 purpose of the PPS PRICER subroutine (LTCAL) is to provide the  u
100700 proper payment amount for Long-Term Care Hospital PPS bills.  Eac
100800cesses  one  Fiscal Year and Rate Year combination's bills. PRICER
100900cessing the latest 5 year period.
101000
101100 driver program (LTDRV) which  CALLs the LTCALs and  passes the  n
101200a or  a user written interface  program calls LTCAL  supplying it
101300essary  data. LTCAL will calculate the payment amount for a Long-T
101400pital PPS bill based  on the data  elements passed to it.   It wil
101500 payment amount & other data used in  pricing or  error  codes  if
101600ld not be properly executed.  Since LTCAL expects fully edited and
101700a, it   performs only rudimentary data edits.  It is the responsib
101800 Intermediary to  assure the accuracy of the data that is submitte
101900AL subroutine.
102000
102100-2.  USING LTCAL123-
102200ng LTCAL for batch requires:
102300
102400 1.  Installing PRICER as specified in Section II.
102500
102600 2.  Execute LTDRV or  a user  written interface program  that pas
102700     proper data.
102800
102900ALulation modules  can execute independently  if a user  written i
103000gram  supplies the  necessary data  i.e.,  PSF and  wage index  fi
103100ION 1.
103200------------------------------------------------------------------
103300
103400
103500
103600
103700
103800
103900
104000
104100
104200
104300
104400
104500
104600
104700
104800
104900
105000
105100
105200
105300
105400                              III-1
105500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
105600D    PROC FB=FB,PREF='XX.XXXX',DSN=LTC121
105700Y    EXEC PGM=IEBGENER
105800PRINT DD SYSOUT=A
105900IN    DD DUMMY,DCB=BLKSIZE=80
106000   SYSUT1 => WILL BE THE NDM FILE FROM CMS    ***
106100UT1   DD DISP=OLD,DSN=&PREF..PRICER.&DSN(&MEMBER),
106200DCB=(RECFM=FB,LRECL=&LRECL,BLKSIZE=&BLK)
106300UT2   DD DSN=&PREF..PRICER.&MEMBER,
106400DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
106500SPACE=(&BLK,(2500),RLSE),
106600DCB=(RECFM=&FB,LRECL=&LRECL,BLKSIZE=&BLK)
106700D
106800C    EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTC121
106900NUAL EXEC LOAD,LRECL=80,BLK=27920,MEMBER=MANU123,FB=FBA
107000R    EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTMGR152
107100PY.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
107200    EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTOPN152
107300Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
107400    EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRV152
107500Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
107600YR2A EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL072
107700Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
107800YR2B EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL075
107900Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
108000YR3A EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL080
108100Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
108200YR3B EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL087
108300Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
108400YR4A EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL091
108500Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
108600YR4B EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL094
108700Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
108800YR4C EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL095
108900Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
109000YR5A EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL103
109100Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
109200YR5B EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL111
109300Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
109400YR6A EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTCAL123
109500Y.SYSUT2 DD DSN=&PREF..PRICER.&MEMBER..COBOL
109600XYR1 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG031
109700XYR2 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG041
109800XYR3 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG057
109900XYR4 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG062
110000XYR5 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG075
110100XYR6 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG080
110200XYR7 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG086
110300XYR8 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG093
110400XYR9 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG095
110500XYR0 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG100
110600XYRA EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG110
110700XYRB EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTDRG123
110800RGY1 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG063
110900RGY2 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG071
111000RGY3 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG080
111100RGY4 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG090
111200RGY5 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG104
111300RGY6 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPDRG123
111400X   EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTMSA123
111500A   EXEC LOAD,LRECL=80,BLK=27920,MEMBER=LTWIX123
111600BSA EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IPWIX123
111700BN1 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IRFBN090
111800BN2 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IRFBN102
111900BN3 EXEC LOAD,LRECL=80,BLK=27920,MEMBER=IRFBN105
112000OV   EXEC LOAD,LRECL=240,BLK=2400,MEMBER=PROV123
112100LL   EXEC LOAD,LRECL=60,BLK=600,MEMBER=BILL123
112200TOPER EXEC LOAD,LRECL=133,BLK=1330,MEMBER=OPER123,FB=FBA
112300**** NOTE  ADDED JCL FOR HMO, VA AND FEHB  *******
112400G123  EXEC LOAD,PREF='XX.XXXX',FILE=39,DSN=PRVR123,LRECL=240,BLK=2
112500G4    EXEC LOAD,PREF='XX.XXXX',FILE=40,DSN=PRVR4,LRECL=240,BLK=27
112600G6    EXEC LOAD,PREF='XX.XXXX',FILE=41,DSN=PRVR6,LRECL=240,BLK=27
112700G57   EXEC LOAD,PREF='XX.XXXX',FILE=42,DSN=PRVR57,LRECL=240,BLK=27
112800G8910 EXEC LOAD,PREF='XX.XXXX',FILE=43,DSN=PRVR8910,LRECL=240,BLK=
112900
113000e 3.1:  Sample JCL - NDM FILE disk download of the PRICER Installa
113100
113200                              III-2
113300         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
113400
113500
113600
113700C     EXEC PGM=IEFBR14
113800PRINT DD SYSOUT=A
113900      DD DSN=XX.XXXX.LTCTEST.LOAD.XXXXXXXX,
114000SP=(NEW,CATLG,DELETE),UNIT=SYSDA,
114100ACE=(TRK,(15,3,3)),
114200B=(RECFM=U,BLKSIZE=3120,DSORG=PO)
114300
114400PLOAD EXEC COB2UCL,
114500RM.COB2=(APOST,NODYNAM,LIB,RES,NONAME,AWO,OFF,TERM,
114600  X,'TRUNC(BIN)',NOADV,NOOPT,DUMP,OBJ,'DATA(24)')
114700RM.LKED=(LIST,NOADV,NOOPT,XREF,LET,MAP,'AMODE(24)')
1148002.SYSIN   DD DSN=XX.XXXX.LTCTEST.XXXXXXXX.COBOL,DISP=SHR
1149002.SYSTERM DD SYSOUT=A
115000D.SYSLMOD DD XX.XXXX.LTCTEST.LOAD.XXXXXXXX,DISP=SHR
115100D.SYSUT1  DD UNIT=SYSDA
115200
115300
115400OTE: Supply your own  JOB card and apply  your data center's stand
115500     Run once for each COBOL II Program.
115600
115700OTE:     Parm card information may vary a your data center.
115800
115900e 3.2:   CICS / VS-COBOL II Sample JCL -  Creates load modules for
116000         LTCALs, LTOPNs and LTDRVs.
116100
116200------------------------------------------------------------------
116300
116400C    EXEC PGM=IEFBR14
116500PRINT  DD SYSOUT=A
116600      DD DSN=XX.XXXX.LTCTEST.LOAD.LTMGR152,DISP=(,CATLG,DELETE),
116700IT=SYSDA,SPACE=(TRK,(15,3,3)),
116800B=(RECFM=U,BLKSIZE=13030,DSORG=PO)
116900
117000GR    EXEC COB2UCL,
117100RM.COB2=(APOST,NODYNAM,LIB,RES,NONAME,AWO,OFF,TERM,
117200   X,'TRUNC(BIN)',NOADV,NOOPT,DUMP,OBJ,'DATA(24)')
117300RM.LKED=(LIST,NOADV,NOOPT,XREF,LET,MAP,'AMODE(24)')
1174002.SYSIN   DD DSN=XX.XXXX.LTCTEST.LTMGR152.COBOL,DISP=SHR
1175002.SYSTERM DD SYSOUT=A
117600D.SYSLMOD DD XX.XXXX.LTCTEST.LOAD.LTMGR152,DISP=SHR
117700D.SYSIN DD *
117800 LTCTEST3(R)
117900
118000OTE: Supply your own JOB card and apply  your data center's standa
118100     Object modules for versions  V23.0,  V24.0,  V25.0, v26.0, v2
118200     of the Grouper software must be available.
118300
118400OTE: Parm card information may vary at your data center.
118500
118600e 3.3:  Sample JCL - Linkedit LTMGR.
118700
118800
118900                              III-3
119000         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
119100
119200
119300
119400Using The FY 2015, RY 2015 LTCH Prospective Payment Subroutine (LT
119500
1196003.   GENERAL
119700
119800RV is a batch driver program that performs the following:
119900
120000 CALLs the appropriate yearly LTCALculation Module.
120100 Passes the necessary data to price the bill.
120200 Passes the necessary data back to LTOPN, which in turn passes
120300 the necessary data back to LTMGR to print the Results.
120400
1205004.   USING LTDRV
120600
120700 user can execute LTDRV directly by supplying all the arguments ne
120800cing.
120900
121000NOTE:  MSAX is supplied by CMS on the LTCH PPS PRICER INSTALLATION
121100NOTE:  CBSA is supplied by CMS on the LTCH PPS PRICER INSTALLATION
121200NOTE:  IPCBSA is supplied by CMS on the LTCH PPS PRICER INSTALLATI
121300NOTE:  PROV (the  provider specific file) must  be created by the
121400       Intermediary.  The DRGX files are also on the installation
121500       It is now memory resident and the file is for reference onl
121600
121700
121800
121900
122000
122100
122200
122300
122400
122500
122600
122700
122800
122900
123000
123100
123200
123300
123400
123500
123600
123700
123800
123900
124000
124100
124200
124300
124400
124500
124600                              IV-1
124700         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
124800
124900
125000
125100ure  4.1  shows  the   argument  list  components  for  LTCAL   an
125200uirements for  argument inclusion  by OPTION.   Also,  Figure 4.1
125300ch subsequent figure shows the format of each argument.
125400-----------------------------------------------------------------
125500                                  ! REQ'D BY OPTION !            !
125600                                  !   1 !  2  !  3  !            !
125700L 'LTCAL'                         !-----------------!   FORMAT   !
125800  USING                           !     !  P  !  A  !            !
125900==================================!=====!=====!=====!============!
126000                                  !     !     !     !            !
126100ta elements from the bill         !  *  !  *  !  *  !  Fig. 4.2  !
126200----------------------------------!-----!-----!-----!------------!
126300                                  !     !     !     !            !
126400ta elements returned by LTCAL     !  *  !  *  !  *  !  Fig. 4.3  !
126500----------------------------------!-----!-----!-----!------------!
126600                                  !     !     !     !            !
126700SA returned by LTCAL              !  *  !  *  !  *  !  Fig. 4.4  !
126800----------------------------------!-----!-----!-----!------------!
126900                                  !     !     !     !            !
127000icer opt-vers switch              !  *  !  *  !  *  !  Fig. 4.5  !
127100----------------------------------!-----!-----!-----!------------!
127200                                  !     !     !     !            !
127300terface supplied provider record  !     !  *  !  *  !  Fig. 4.6  !
127400----------------------------------!-----!-----!-----!------------!
127500                                  !     !     !     !            !
127600terface supplied MSA record -or-  !     !     !  *  !  Fig. 4.7A !
127700terface supplied CBSA record      !     !     !     !  Fig. 4.7B !
127800----------------------------------!-----!-----!-----!------------!
127900                                  !     !     !     !            !
128000terface supplied IPPS CBSA file   !     !     !  *  !  Fig. 4.8  !
128100-----------------------------------------------------------------
128200
128300URE 4.1: LTCAL Call List Arguments
128400
128500
128600
128700
128800
128900
129000
129100
129200
129300
129400
129500
129600
129700
129800
129900
130000
130100
130200
130300                               IV-2
130400         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
130500
130600
130700------------------------------------------------------------------
130800                          !         !      !         COBOL
130900      FIELD               !   LOC   ! SIZE !----------------------
131000                          !         !      !   PICTURE  !   USAGE
131100==========================!=========!======!============!=========
131200                          !         !      !            !
131300ional Provider Identifier !  1- 10  !  10  ! X(10)      ! DISPLAY
131400--------------------------!---------!------!------------!---------
131500vider Number              !  11-16  !  6   ! X(06)      ! DISPLAY
131600--------------------------!---------!------!------------!---------
131700vider Status Code         !  17-18  !  2   ! 9(02)      ! DISPLAY
131800--------------------------!---------!------!------------!---------
131900 Number (from GROUPER)    !  19-21  !  3   ! 9(03)      ! DISPLAY
132000--------------------------!---------!------!------------!---------
132100gth of Stay               !  22-24  !  3   ! 9(03)      ! DISPLAY
132200--------------------------!---------!------!------------!---------
132300ered Days                 !  25-27  !  3   ! 9(03)      ! DISPLAY
132400--------------------------!---------!------!------------!---------
132500etime Reserved Days Used  !  28-29  !  2   ! 9(02)      ! DISPLAY
132600--------------------------!---------!------!------------!---------
132700charge Date               !  30-37  !      !            !
132800  Discharge Century       !         !  2   ! 9(02)      ! DISPLAY
132900  Discharge Year          !         !  2   ! 9(02)      ! DISPLAY
133000  Discharge Month         !         !  2   ! 9(02)      ! DISPLAY
133100  Discharge Day           !         !  2   ! 9(02)      ! DISPLAY
133200--------------------------!---------!------!------------!---------
133300ered Charges              !  38-46  !  9   ! 9(07)V9(02)! DISPLAY
133400--------------------------!---------!------!------------!---------
133500cial Payment Indicator    !    47   !  1   ! X(01)      ! DISPLAY
133600--------------------------!---------!------!------------!---------
133700LER                       !  48-60  !  13  ! X(13)      ! DISPLAY
133800--------------------------!---------!------!------------!---------
133900
134000URE 4.2: LTCAL Call List Argument # 1
134100         Bill Data Sent to LTCAL
134200
134300
134400
134500
134600
134700
134800
134900
135000
135100
135200
135300
135400
135500
135600
135700
135800
135900
136000                                IV-3
136100         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
136200
136300
136400
136500------------------------------------------------------------------
136600                          !          !     !       COBOL
136700        FIELD             !   LOC    !SIZE !------------!---------
136800                          !          !     !  PICTURE   !  USAGE
136900==========================!========= !=====!============!=========
137000                          !          !     !            !
137100AL Return Code            !   1-  2  !  2  ! 9(02)      ! DISPLAY
137200--------------------------!----------!-----!------------!---------
137300                          !          !     !            !
137400rge Threshold             !   3- 11  !  9  ! 9(07)V9(02)! DISPLAY
137500--------------------------!----------!-----!------------!---------
137600                          !          !     !            !
137700                          !  12- 15  !  4  ! X(04)      ! DISPLAY
137800--------------------------!----------!-----!------------!---------
137900                          !          !     !            !
138000e Index                   !  16- 21  !  6  ! 9(02)V9(04)! DISPLAY
138100--------------------------!----------!-----!------------!---------
138200                          !          !     !            !
138300 Average Length of Stay   !  22- 24  !  3  ! 9(02)V9(01)! DISPLAY
138400--------------------------!----------!-----!------------!---------
138500                          !          !     !            !
138600 Relative Weight          !  25- 29  !  5  ! 9(01)V9(04)! DISPLAY
138700--------------------------!----------!-----!------------!---------
138800                          !          !     !            !
138900lier Payment Amount       !  30- 38  !  9  ! 9(07)V9(02)! DISPLAY
139000--------------------------!----------!-----!------------!---------
139100                          !          !     !            !
139200gth of Stay               !  39- 41  !  3  ! 9(03)      ! DISPLAY
139300--------------------------!----------!-----!------------!---------
139400                          !          !     !            !
139500 Adjusted Payment Amount  !  42- 50  !  9  ! 9(07)V9(02)! DISPLAY
139600--------------------------!----------!-----!------------!---------
139700                          !          !     !            !
139800eral Payment Amount       !  51- 59  !  9  ! 9(07)V9(02)! DISPLAY
139900--------------------------!----------!-----!------------!---------
140000                          !          !     !            !
140100al Payment Amount         !  60- 68  !  9  ! 9(07)V9(02)! DISPLAY
140200--------------------------!----------!-----!------------!---------
140300                          !          !     !            !
140400ility Costs               !  69- 77  !  9  ! 9(07)V9(02)! DISPLAY
140500--------------------------!----------!-----!------------!---------
140600                          !          !     !            !
140700 Facility Specific Rate   !  78- 84  !  7  ! 9(05)V9(02)! DISPLAY
140800--------------------------!----------!-----!------------!---------
140900                          !          !     !            !
141000lier Threshold            !  85- 93  !  9  ! 9(07)V9(02)! DISPLAY
141100------------------------------------------------------------------
141200tinues on next page)
141300
141400
141500
141600
141700                              IV-4
141800         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
141900
142000
142100tinued from previous page)
142200
142300------------------------------------------------------------------
142400                          !          !     !       COBOL
142500        FIELD             !   LOC    !SIZE !------------!---------
142600                          !          !     !  PICTURE   !  USAGE
142700==========================!========= !=====!============!=========
142800                          !          !     !            !
142900mitted DRG Code           !  94- 96  !  3  ! X(03)      ! DISPLAY
143000--------------------------!----------!-----!------------!---------
143100                          !          !     !            !
143200AL Version Code           !  97-101  !  5  ! X(05)      ! DISPLAY
143300--------------------------!----------!-----!------------!---------
143400                          !          !     !            !
143500ular Days Used            ! 102-104  !  3  ! 9(03)      ! DISPLAY
143600--------------------------!----------!-----!------------!---------
143700                          !          !     !            !
143800etime Reserved Days Used  ! 105-107  !  3  ! 9(03)      ! DISPLAY
143900--------------------------!----------!-----!------------!---------
144000                          !          !     !            !
144100 Blend Year               !   108    !  1  ! 9(01)      ! DISPLAY
144200--------------------------!----------!-----!------------!---------
144300                          !          !     !            !
144400t of Living Adjustment    ! 109-112  !  4  ! 9(01)V9(03)! DISPLAY
144500--------------------------!----------!-----!------------!---------
144600                          !          !     !            !
144700LER                       ! 113-116  !  4  ! X(04)      ! DISPLAY
144800--------------------------!----------!-----!------------!---------
144900                          !          !     !            !
145000ional Labor Percent       ! 117-122  !  6  ! 9(01)V9(05)! DISPLAY
145100--------------------------!----------!-----!------------!---------
145200                          !          !     !            !
145300ional Non-Labor Percent   ! 123-128  !  6  ! 9(01)V9(05)! DISPLAY
145400--------------------------!----------!-----!------------!---------
145500                          !          !     !            !
145600ndard Federal Rate        ! 129-135  !  7  ! 9(05)V9(02)! DISPLAY
145700--------------------------!----------!-----!------------!---------
145800                          !          !     !            !
145900get Neutrality Rate       ! 136-139  !  4  ! 9(01)V9(03)! DISPLAY
146000--------------------------!----------!-----!------------!---------
146100                          !          !     !            !
146200LER                       ! 140-180  !  41 ! X(41)      ! DISPLAY
146300--------------------------!----------!-----!------------!---------
146400
146500RE 4.3:  LTCAL Call List Argument # 2 Data Returned by LTCAL
146600
146700
146800
146900
147000
147100
147200
147300
147400                               IV-5
147500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
147600
147700
147800
147900------------------------------------------------------------------
148000                          !         !      !          COBOL
148100      FIELD               !  LOC    !SIZE  !---------------------
148200                          !         !      !  PICTURE      USAGE
148300==========================!=========!======!============!=========
148400A                         !  1- 5   !  5   ! X(05)      !DISPLAY
148500--------------------------!---------!------!------------!---------
148600
148700RE 4.4:  LTCAL Call List Argument # 3 CBSA Returned by LTCAL
148800
148900
149000
149100
149200
149300
149400
149500
149600
149700
149800
149900
150000
150100
150200
150300
150400
150500
150600
150700
150800
150900
151000
151100
151200
151300
151400
151500
151600
151700
151800
151900
152000
152100
152200
152300
152400
152500
152600
152700
152800
152900
153000
153100                              IV-6
153200         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
153300
153400------------------------------------------------------------------
153500                          !         !      !          COBOL
153600      FIELD               !  LOC    !SIZE  !---------------------
153700                          !         !      !  PICTURE      USAGE
153800==========================!=========!======!============!=========
153900CER opt-vers switch **    !    1    !  1   !X(01)       !DISPLAY
154000--------------------------!---------!------!------------!---------
154100CER LTDRV version         !  2-  6  !  5   !X(05)       !DISPLAY
154200------------------------------------------------------------------
154300
154400URE 4.5:      LTCAL  Call List  Argument # 4 PRICER  opt-vers  swi
154500              Options 1, 2, 3
154600
154700ote:
154800 " " = OPTION 1: Return standard variables.
154900
155000 "A" = OPTION 2: Return standard variables,
155100                 Provider Record Supplied by Interface, &
155200                 MSAX & CBSA file supplied by Interface.
155300
155400 "P" = OPTION 3: Return standard Variables &
155500                 Provider Record Supplied by Interface.
155600
155700
155800
155900
156000
156100
156200
156300
156400
156500
156600
156700
156800
156900
157000
157100
157200
157300
157400
157500
157600
157700
157800
157900
158000
158100
158200
158300
158400
158500
158600
158700
158800                              IV-7
158900         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
159000
159100
159200rface Supplied Provider Specific Record for options 2 and 3
159300------------------------------------------------------------------
159400                          !          !     !      COBOL
159500        FIELD             !   LOC    !SIZE !-------------!--------
159600                          !          !     !  PICTURE    ! USAGE
159700==========================!========= !=====!============ !========
159800ional Provider Identifier !  1-10    !  10 ! X(10)       !DISPLAY
159900--------------------------!----------!-----!-------------!--------
160000vider Number              !  11-16   !     !             !
160100rovider State Code        !          !  2  ! 9(02)       !DISPLAY
160200rovider Number            !          !  4  ! X(04)       !DISPLAY
160300--------------------------!----------!-----!-------------!--------
160400vider Effective Date      !  17-24   !     !             !
160500ffective Century          !          !  2  ! 9(02)       !DISPLAY
160600ffective Year             !          !  2  ! 9(02)       !DISPLAY
160700ffective Month            !          !  2  ! 9(02)       !DISPLAY
160800ffective Day              !          !  2  ! 9(02)       !DISPLAY
160900--------------------------!----------!-----!-------------!--------
161000cal Year Begin Date       !  25-32   !     !             !
161100ffective Century          !          !  2  ! 9(02)       !DISPLAY
161200ffective Year             !          !  2  ! 9(02)       !DISPLAY
161300ffective Month            !          !  2  ! 9(02)       !DISPLAY
161400ffective Day              !          !  2  ! 9(02)       !DISPLAY
161500--------------------------!----------!-----!-------------!--------
161600ort Date                  !  33-40   !     !             !
161700ffective Century          !          !  2  ! 9(02)       !DISPLAY
161800ffective Year             !          !  2  ! 9(02)       !DISPLAY
161900ffective Month            !          !  2  ! 9(02)       !DISPLAY
162000ffective Day              !          !  2  ! 9(02)       !DISPLAY
162100--------------------------!----------!-----!-------------!--------
162200mination Date             !  41-48   !     !             !
162300ffective Century          !          !  2  ! 9(02)       !DISPLAY
162400ffective Year             !          !  2  ! 9(02)       !DISPLAY
162500ffective Month            !          !  2  ! 9(02)       !DISPLAY
162600ffective Day              !          !  2  ! 9(02)       !DISPLAY
162700--------------------------!----------!-----!-------------!--------
162800 Waiver Code              !  49      !  1  ! X(01)       !DISPLAY
162900--------------------------!----------!-----!-------------!--------
163000ermediary Number          !  50-54   !  5  ! 9(05)       !DISPLAY
163100--------------------------!----------!-----!-------------!--------
163200vider Type                !  55-56   !  2  ! X(02)       !DISPLAY
163300--------------------------!----------!-----!-------------!--------
163400rent Census Division      !  57      !  1  ! 9(01)       !DISPLAY
163500--------------------------!----------!-----!-------------!--------
163600 Code for Wage-index      !          !     !             !
163700lassification             !  58      !  1  ! X(01)       !DISPLAY
163800--------------------------!----------!-----!-------------!--------
163900ropolitan Statistical     !  59-62   !  4  ! X(04)       !DISPLAY
164000rea (MSA) Actual Geo Loc  !          !     !             !
164100--------------------------!----------!-----!-------------!--------
164200
164300tinues on next page)
164400
164500                              IV-8
164600         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
164700
164800
164900tinued from previous page)
165000
165100------------------------------------------------------------------
165200ropolitan Statistical     !  63-66   !  4  ! X(04)       !DISPLAY
165300rea (MSA) Wage-index Loc  !          !     !             !
165400g code for WI reclass = y)!          !     !             !
165500--------------------------!----------!-----!-------------!--------
165600ropolitan Statistical     !  67-70   !  4  ! X(04)       !DISPLAY
165700rea (MSA) Standardized Loc!          !     !             !
165800--------------------------!----------!-----!-------------!--------
165900e Community Hospital rate !  71-72   !  2  ! X(2)        !DISPLAY
166000--------------------------!--------  !-----!-------------!--------
166100nge Code for Lugar Reclass!  73      !  1  ! X           !DISPLAY
166200--------------------------!----------!-----!-------------!--------
166300porary Relief Indicator   !  74      !  1  ! X           !DISPLAY
166400--------------------------!----------!-----!-------------!--------
166500eral PPS Blend Indicator  !  75      !  1  ! X(01)       !DISPLAY
166600--------------------------!----------!-----!-------------!--------
166700ler                       !  76-80   !  5  ! X(05)       !
166800--------------------------!----------!-----!-------------!--------
166900ility Specific Rate       !  81-87   !  7  ! 9(05)V99    !DISPLAY
167000--------------------------!----------!-----!-------------!--------
167100t of Living Adjustment    !  88-91   !  4  ! 9(01)V999   !DISPLAY
167200--------------------------!----------!-----!-------------!--------
167300ern-to-Bed Ratio          !  92-96   !  5  ! 9(01)V9999  !DISPLAY
167400--------------------------!----------!-----!-------------!--------
167500
167600inues on next page)
167700
167800
167900
168000
168100
168200
168300
168400
168500
168600
168700
168800
168900
169000
169100
169200
169300
169400
169500
169600
169700
169800
169900
170000
170100
170200                              IV-09
170300         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
170400
170500
170600
170700inued from previous page)
170800
170900------------------------------------------------------------------
171000                          !          !     !         COBOL
171100       FIELD              !   LOC    !SIZE !----------------------
171200                          !          !     !   PICTURE     USAGE
171300==========================!==========!=====!=============!========
171400ber of Beds (Bed Size)    !  97-101  !  5  ! 9(05)       !DISPLAY
171500--------------------------!----------!-----!-------------!--------
171600t to charge ratio (CCR)   !  102-105 !  4  ! 9(01)V9(03) !DISPLAY
171700--------------------------!----------!-----!-------------!--------
171800e Mix Index               !  106-110 !  5  ! 9(01)V9999  !DISPLAY
171900--------------------------!----------!-----!-------------!--------
172000plemental Security Income !  111-114 !  4  ! V9(04)      !DISPLAY
172100io (used to derive DSH %) !          !     !             !
172200--------------------------!----------!-----!-------------!--------
172300icaid Ratio               !  115-118 !  4  ! V9(04)      !DISPLAY
172400sed to derive DSH %)      !          !     !             !
172500--------------------------!----------!-----!-------------!--------
172600 Blend Year Indicator     !  119     !  1  ! X(01)       !DISPLAY
172700--------------------------!----------!-----!-------------!--------
172800P Update Factor           !  120-125 !  6  ! 9(01)V9(05) !DISPLAY
172900--------------------------!----------!-----!-------------!--------
173000 Percent                  !  126-129 !  4  ! V9(04)      !DISPLAY
173100--------------------------!----------!-----!-------------!--------
173200 DATE   CCYYMMDD          !  130-137 !  8  ! 9(08)       !DISPLAY
173300--------------------------!----------!-----!-------------!--------
173400CIAL PAYMENT INDICATOR    !  138     !  1  ! X           !DISPLAY
173500--------------------------!----------!-----!-------------!--------
173600PITAL QUALITY INDICATOR   !  139     !  1  ! X           !DISPLAY
173700--------------------------!----------!-----!-------------!--------
173800A GEO LOCATION            !  140-144 !  5  ! X(05)       !DISPLAY
173900--------------------------!----------!-----!-------------!--------
174000A RECLASS LOCATON         !  145-149 !  5  ! X(05)       !DISPLAY
174100--------------------------!----------!-----!-------------!--------
174200A STAND LOCATION          !  15O-154 !  5  ! X(05)       !DISPLAY
174300--------------------------!----------!-----!-------------!--------
174400CIAL PAY WAGE INDEX       !  155-160 !  6  ! 9(02)V9(04) !DISPLAY
174500--------------------------!----------!-----!-------------!--------
174600ital Pass Thru Amount     !  161-166 !  6  ! 9(04)V9(2)  !DISPLAY
174700er Diem from Cost Report  !          !     !             !
174800--------------------------!----------!-----!-------------!--------
174900ect Medical Ed. Pass thru !  167-172 !  6  ! 9(04)V9(02) !DISPLAY
175000unt Per Diem/Cost Report  !          !     !             !
175100--------------------------!----------!-----!-------------!--------
175200an Acquisition  Pass Thru !  173-178 !  6  ! 9(04)V9(02) !DISPLAY
175300unt Per Deim/Cost Report  !          !     !             !
175400--------------------------!----------!-----!-------------!--------
175500
175600tinues on next page)
175700
175800
175900                              IV-10
176000         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
176100
176200
176300tinued from previous page)
176400
176500------------------------------------------------------------------
176600al Pass Thru Amount,      !  179-184 !  6  ! 9(04)V9(02) !DISPLAY
176700ncluding Miscellaneous    !          !     !             !
176800er Diem from Cost Report  !          !     !             !
176900--------------------------!----------!-----!-------------!--------
177000ital PPS Payment Code     !  185     !  1  !  X(01)      !DISPLAY
177100--------------------------!----------!-----!-------------!--------
177200ital Hosp. Specific Rate  !  186-191 !  6  ! 9(4)V99     !DISPLAY
177300--------------------------!----------!-----!-------------!--------
177400 Capital Harmless Rate    ! 192-197  !  6  ! 9(4)V99     !DISPLAY
177500--------------------------!----------!-----!-------------!--------
177600 Capital Harmless Ratio   ! 198-202  !  5  ! 9(1)V9999   !DISPLAY
177700--------------------------!----------!-----!-------------!--------
177800ital Cost to Charge Ratio ! 203-206  !  4  ! 9V999       !DISPLAY
177900--------------------------!----------!-----!-------------!--------
178000 Hospital                 ! 207      !  1  ! X           !DISPLAY
178100--------------------------!----------!-----!-------------!--------
178200ital IME                  ! 208-212  !  5  ! 9V9999      !DISPLAY
178300--------------------------!----------!-----!-------------!--------
178400ital Exceptions           ! 231-218  !  6  ! 9(4)V99     !DISPLAY
178500--------------------------!----------!-----!-------------!--------
178600ler                       ! 219-240  ! 22  ! X(22)       !DISPLAY
178700------------------------------------------------------------------
178800URE 4.6: LTCAL Call List Argument # 5
178900
179000
179100
179200
179300
179400
179500
179600
179700
179800
179900
180000
180100
180200
180300
180400
180500
180600
180700
180800
180900
181000
181100
181200
181300
181400
181500
181600                              IV-11
181700         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
181800
181900
182000 07/01/2005
182100
182200face Supplied MSA Record for option 3
182300------------------------------------------------------------------
182400                          !         !      !        COBOL
182500        FIELD             !   LOC   ! SIZE !--------- -----------
182600                          !         !      !  PICTURE      USAGE
182700==========================!=========!======!============!=========
182800 or Rural Area Code       !  1-4    !   4  ! X(04)      ! DISPLAY
182900--------------------------!---------!------!------------!---------
183000LER                       !   5     !   1  ! X(01)      ! DISPLAY
183100--------------------------!---------!------!------------!---------
183200ective Date               !  6-13   !   8  ! X(08)      ! DISPLAY
183300 (CCYYMMDD) format)       !         !      !            !
183400--------------------------!---------!------!------------!---------
183500LER                       !   14    !   1  ! X(01)      ! DISPLAY
183600--------------------------!---------!------!------------!---------
183700e Index 1                 !  15-20  !   6  ! 9(02)V9(04)! DISPLAY
183800--------------------------!---------!------!------------!---------
183900LER                       !   21    !   1  ! X(01)      ! DISPLAY
184000--------------------------!---------!------!------------!---------
184100e Index 2                 !  22-27  !   6  ! 9(02)V9(04)! DISPLAY
184200--------------------------!---------!------!------------!---------
184300LER                       !   28    !   1  ! X(01)      ! DISPLAY
184400--------------------------!---------!------!------------!---------
184500e Index 3                 !  29-34  !   6  ! 9(02)V9(04)! DISPLAY
184600--------------------------!---------!------!------------!---------
184700LER                       !   35    !   1  ! X(01)      ! DISPLAY
184800--------------------------!---------!------!------------!---------
184900A Name                    !  36-79  !  44  ! X(44)      ! DISPLAY
185000------------------------------------------------------------------
185100LER                       !   80    !   1  ! X(01)      ! DISPLAY
185200------------------------------------------------------------------
185300
185400Note:    Data loaded from the MSA table is shown in file # 29.  Th
185500         the format of the wage index file for each bill & Rural A
185600
185700URE 4.7A:LTCAL Call  List  Argument #  6  Interface Supplied MSA F
185800
185900         Required by Option 3.
186000
186100
186200
186300
186400
186500
186600
186700
186800
186900
187000
187100
187200
187300                                IV-12
187400
187500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
187600
187700
18780007/01/2005
187900
188000face Supplied CBSA Record for option 3
188100------------------------------------------------------------------
188200                          !         !      !        COBOL
188300        FIELD             !   LOC   ! SIZE !--------- -----------
188400                          !         !      !  PICTURE      USAGE
188500==========================!=========!======!============!=========
188600A or Rural Area Code      !  1-5    !   5  ! X(05)      ! DISPLAY
188700--------------------------!---------!------!------------!---------
188800LER                       !  6      !   1  ! X(01)      ! DISPLAY
188900--------------------------!---------!------!------------!---------
189000ective Date               !  7-14   !   8  ! X(08)      ! DISPLAY
189100 (CCYYMMDD) format)       !         !      !            !
189200--------------------------!---------!------!------------!---------
189300LER                       !  15     !   1  ! X(01)      ! DISPLAY
189400--------------------------!---------!------!------------!---------
189500e Index 1                 !  16-21  !   6  ! 9(02)V9(04)! DISPLAY
189600--------------------------!---------!------!------------!---------
189700LER                       !  22     !   1  ! X(01)      ! DISPLAY
189800--------------------------!---------!------!------------!---------
189900e Index 2                 !  23-28  !   6  ! 9(02)V9(04)! DISPLAY
190000--------------------------!---------!------!------------!---------
190100LER                       !  29     !   1  ! X(01)      ! DISPLAY
190200--------------------------!---------!------!------------!---------
190300e Index 3                 !  30-35  !   6  ! 9(02)V9(04)! DISPLAY
190400--------------------------!---------!------!------------!---------
190500LER                       !  36     !   1  ! X(01)      ! DISPLAY
190600--------------------------!---------!------!------------!---------
190700A Name                    !  37-75  !  39  ! X(39)      ! DISPLAY
190800--------------------------!---------!------!------------!---------
190900LER                       !  80     !   5  ! X(05)      ! DISPLAY
191000------------------------------------------------------------------
191100
191200Note:    Data loaded from the  CBSA table is shown in file #  30.
191300         the format of the wage index file for each bill & Rural A
191400
191500URE 4.7B:LTCAL Call  List  Argument #  6  Interface Supplied CBSA
191600
191700         Required by Option 3.
191800
191900
192000
192100
192200
192300
192400
192500
192600
192700
192800
192900
193000                                IV-13
193100         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
193200
193300
19340007/01/2006
193500
193600face Supplied IPPS CBSA Record for option 3
193700------------------------------------------------------------------
193800                          !         !      !        COBOL
193900        FIELD             !   LOC   ! SIZE !--------- -----------
194000                          !         !      !  PICTURE      USAGE
194100==========================!=========!======!============!=========
194200A or Rural Area Code      !  1-5    !   5  ! X(05)      ! DISPLAY
194300--------------------------!---------!------!------------!---------
194400A Size                    !  6      !   1  ! X(01)      ! DISPLAY
194500--------------------------!---------!------!------------!---------
194600ective Date               !  7-14   !   8  ! X(08)      ! DISPLAY
194700 (CCYYMMDD) format)       !         !      !            !
194800--------------------------!---------!------!------------!---------
194900LER                       !  15     !   1  ! X(01)      ! DISPLAY
195000--------------------------!---------!------!------------!---------
195100e Index                   !  16-21  !   6  ! 9(02)V9(04)! DISPLAY
195200--------------------------!---------!------!------------!---------
195300rto Rico Wage Index       !  22-27  !   6  ! 9(02)V9(04)! DISPLAY
195400-------------------------- --------- ------ ------------ ---------
195500
195600Note:   Data loaded from the IPPS CBSA table is shown in file #  3
195700        is the format of the wage index file for each bill & Rural
195800
195900URE 4.8: LTCAL Call  List  Argument #  7  Interface Supplied IP CB
196000
196100         Required by Option 3.
196200
196300
196400
196500
196600
196700
196800
196900
197000
197100
197200
197300
197400
197500
197600
197700
197800
197900
198000
198100
198200
198300
198400
198500
198600
198700                                IV-14
198800             FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
198900
199000
199100
199200 PRICER ASSURANCE TESTING USING LTMGR130
199300
199400.    GENERAL
199500
199600is  the responsibility  of the  user to  assure that  PRICER is  e
199700perly  at the  user's  site.  LTMGR130  is  provided  by  CMS in o
199800ilitate that testing.
199900
200000tructions for installing  LTMGR130 and loading the  Test Bill and
200100vider Files can be found in Section I.
200200
200300GR130 is a batch driver program that performs the following:
200400
200500 Reads the Test Bill File (the DRG is in the test bill).
200600
200700 CALLs "LTOPN130" using OPTION 3 to price a bill.
200800
200900 Prints the results.
201000
201100r test results can be compared to the Expected Test Results report
201200file #32. You can also build your own test data and submit it to L
201300
201400
201500.    USING LTMGR130
201600
201700 A.  VS/COBOL II AND VS/COBOL
201800     Using LTMGR130 for batch PRICER testing requires three steps:
201900
202000     1.  Install PRICER as specified in Section II
202100
202200     2.  VS/COBOL II  -- Execute LTMGR130 using the test
202300          files(see  Figure 5.3 of sample JCL).
202400                        (OR)
202500     3.  VS/COBOL     -- Execute LTMGR130 using the test
202600          files (see Figure 5.1 of sample JCL).
202700
202800     4.  Compare  the printed results to  the Expected Test Result
202900         #32)
203000
203100 If any discrepancies  occur, check  to assure that  the installat
203200 testing instructions were carefully followed.  If so, contact CMS
203300 as possible.
203400
203500
203600
203700
203800
203900
204000
204100
204200
204300
204400                               V-1
204500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
204600
204700
204800.    TESTING USER SUPPLIED DATA USING LTMGR130
204900
205000 The  Test Bill File may not  contain all probable billing situati
205100 an Intermediary  may encounter.  It is  a sound practice for  the
205200 build their own test data for inclusion in the LTMGR130 test.
205300
205400 The user will be required to build two test files:
205500
205600     1.  The Test Bill File (see Figure 5.4)
205700
205800     2.  The  Test  Provider File  (see  Sect.  IV, Fig.  4.6;  th
205900         Provider Specific File is the best source for this data)
206000
206100
206200
206300
206400
206500
206600
206700
206800
206900
207000
207100
207200
207300
207400
207500
207600
207700
207800
207900
208000
208100
208200
208300
208400
208500
208600
208700
208800
208900
209000
209100
209200
209300
209400
209500
209600
209700
209800
209900
210000
210100                                V-2
210200         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
210300
210400TEST PROC PREF=
210500T    EXEC PGM=LTCTEST
210600PLIB  DD DSN=&PREF..LTCTEST.LOAD.LTMGR130,DISP=SHR
210700 DSN=&PREF..LTCTEST.LOAD.LTDRV130,DISP=SHR
210800 DSN=&PREF..LTCTEST.LOAD.LTOPN130,DISP=SHR
210900 DSN=&PREF..LTCTEST.LOAD.LTMGR130,DISP=SHR
211000 DSN=&PREF..LTCTEST.LOAD.LTCAL123,DISP=SHR
211100 DSN=&PREF..LTCTEST.LOAD.LTCAL111,DISP=SHR
211200 DSN=&PREF..LTCTEST.LOAD.LTCAL105,DISP=SHR
211300 DSN=&PREF..LTCTEST.LOAD.LTCAL103,DISP=SHR
211400 DSN=&PREF..LTCTEST.LOAD.LTCAL095,DISP=SHR
211500 DSN=&PREF..LTCTEST.LOAD.LTCAL094,DISP=SHR
211600 DSN=&PREF..LTCTEST.LOAD.LTCAL091,DISP=SHR
211700 DSN=&PREF..LTCTEST.LOAD.LTCAL087,DISP=SHR
211800 DSN=&PREF..LTCTEST.LOAD.LTCAL080,DISP=SHR
211900 DSN=&PREF..LTCTEST.LOAD.LTCAL075,DISP=SHR
212000 DSN=&PREF..LTCTEST.LOAD.LTCAL072,DISP=SHR
212100 DSN=&PREF..LTCTEST.LOAD.LTCAL064,DISP=SHR
212200 DSN=&PREF..LTCTEST.LOAD.LTCAL063,DISP=SHR
212300 DSN=&PREF..LTCTEST.LOAD.LTCAL059,DISP=SHR
212400 DSN=&PREF..LTCTEST.LOAD.LTCAL058,DISP=SHR
212500 DSN=&PREF..LTCTEST.LOAD.LTCAL043,DISP=SHR
212600 DSN=&PREF..LTCTEST.LOAD.LTCAL042,DISP=SHR
212700 DSN=&PREF..LTCTEST.LOAD.LTCAL032,DISP=SHR
212800PRINT DD SYSOUT=A
212900OPER  DD SYSOUT=A
213000OUR   DD SYSOUT=A
213100OUT   DD SYSOUT=A
213200UDUMP DD SYSOUT=A
213300MSAX  DD DISP=SHR,DSN=&PREF..LTCTEST.LTMSA123
213400CBSAX DD DISP=SHR,DSN=&PREF..LTCTEST.LTWIX123
213500CBSAX DD DISP=SHR,DSN=&PREF..LTCTEST.IPWIX123
213600BN1X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN090
213700BN2X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN102
213800BN3X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN105
213900PROV  DD DISP=SHR,DSN=&PREF..LTCTEST.PROV123
214000UT1   DD DISP=OLD,DSN=&PREF..LTCTEST.BILL123
214100UT2   DD DSN=&PREF..LTCTEST.OUT,
214200SP=(,CATLG,DELETE),UNIT=SYSDA,
214300ACE=(TRK,(50,5),RLSE),
214400B=(RECFM=FB,LRECL=550,BLKSIZE=550)
214500ND
214600      EXEC LTCTEST,PREF='XX.XXXX'
214700
214800Note:    Supply your own job card and apply your data center's  st
214900
215000E 5.1 - Sample JCL to Execute LTMGR130 VS/COBOL
215100
215200
215300------------------------------------------------------------------
215400               PRINT IMAGE RESULTS FOR TEST REPORT
215500------------------------------------------------------------------
215600                          !         !      !         COBOL
215700           FIELD          !   LOC   ! SIZE !-----------!----------
215800                          !         !      !  PICTURE  !   USAGE
215900==========================!=========!======!===========! =========
216000INT IMAGE FORMAT          !  1-133  !      !  DISPLAY  !
216100------------------------------------------------------------------
216200
216300 FIGURE 5.2:  Expected Test Results Format
216400
216500
216600
216700
216800
216900                              V-3
217000         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
217100
217200
217300
217400
217500TEST2 PROC LIB=SYS1.COB2LIB,PREF=
217600OL2  EXEC PGM=LTCTEST2
217700PLIB  DD DSN=&PREF..LTCTEST.LOAD.LTMGR130,DISP=SHR
217800 DSN=&PREF..LTCTEST.LOAD.LTOPN130,DISP=SHR
217900 DSN=&PREF..LTCTEST.LOAD.LTDRV130,DISP=SHR
218000 DSN=&PREF..LTCTEST.LOAD.LTCAL123,DISP=SHR
218100 DSN=&PREF..LTCTEST.LOAD.LTCAL111,DISP=SHR
218200 DSN=&PREF..LTCTEST.LOAD.LTCAL105,DISP=SHR
218300 DSN=&PREF..LTCTEST.LOAD.LTCAL103,DISP=SHR
218400 DSN=&PREF..LTCTEST.LOAD.LTCAL095,DISP=SHR
218500 DSN=&PREF..LTCTEST.LOAD.LTCAL094,DISP=SHR
218600 DSN=&PREF..LTCTEST.LOAD.LTCAL091,DISP=SHR
218700 DSN=&PREF..LTCTEST.LOAD.LTCAL087,DISP=SHR
218800 DSN=&PREF..LTCTEST.LOAD.LTCAL080,DISP=SHR
218900 DSN=&PREF..LTCTEST.LOAD.LTCAL075,DISP=SHR
219000 DSN=&PREF..LTCTEST.LOAD.LTCAL072,DISP=SHR
219100 DSN=&LIB,DISP=SHR
219200PRINT DD SYSOUT=A
219300OPER  DD SYSOUT=A
219400OUR   DD SYSOUT=A
219500OUT   DD SYSOUT=A
219600UDUMP DD SYSOUT=A
219700MSAX  DD DISP=SHR,DSN=&PREF..LTCTEST.LTMSA123
219800CBSAX DD DISP=SHR,DSN=&PREF..LTCTEST.LTWIX123
219900CBSAX DD DISP=SHR,DSN=&PREF..LTCTEST.IPWIX123
220000BN1X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN090
220100BN2X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN102
220200BN3X  DD DISP=SHR,DSN=&PREF..LTCTEST.IRFBN105
220300PROV  DD DISP=SHR,DSN=&PREF..LTCTEST.PROV123
220400UT1   DD DISP=OLD,DSN=&PREF..LTCTEST.BILL123
220500UT2   DD DSN=&PREF..LTCTEST.OUT,
220600SP=(,CATLG,DELETE),UNIT=SYSDA,
220700ACE=(TRK,(50,5),RLSE),
220800B=(RECFM=FB,LRECL=550,BLKSIZE=550)
220900ND
221000      EXEC LTCTEST2,PREF='XX.XXXX'
221100
221200Note:    Supply your own job card and apply your data center's  st
221300
221400E 5.3 - Sample JCL to Execute LTMGR130 VS/COBOL II
221500
221600
221700
221800
221900
222000
222100
222200
222300
222400
222500
222600
222700
222800
222900
223000                               V-4
223100         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
223200
223300
223400------------------------------------------------------------------
223500                          !         !      !         COBOL
223600           FIELD          !   LOC   ! SIZE !------------!---------
223700                          !         !      !  PICTURE   !   USAGE
223800==========================!=========!======!============!=========
223900                          !         !      !            !
224000ional Provider Identifier !  1- 10  !  10  ! X(10)      ! DISPLAY
224100--------------------------!---------!------!------------!---------
224200vider Number              !  11-16  !  6   ! X(06)      ! DISPLAY
224300--------------------------!---------!------!------------!---------
224400vider Status Code         !  17-18  !  2   ! 9(02)      ! DISPLAY
224500--------------------------!---------!------!------------!---------
224600 Number (from GROUPER)    !  19-21  !  3   ! 9(03)      ! DISPLAY
224700--------------------------!---------!------!------------!---------
224800gth of Stay               !  22-24  !  3   ! 9(03)      ! DISPLAY
224900--------------------------!---------!------!------------!---------
225000ered Days                 !  25-27  !  3   ! 9(03)      ! DISPLAY
225100--------------------------!---------!------!------------!---------
225200etime Reserved Days Used  !  28-29  !  2   ! 9(02)      ! DISPLAY
225300--------------------------!---------!------!------------!---------
225400charge Date               !  30-37  !      !            !
225500  Discharge Century       !         !  2   ! 9(02)      ! DISPLAY
225600  Discharge Year          !         !  2   ! 9(02)      ! DISPLAY
225700  Discharge Month         !         !  2   ! 9(02)      ! DISPLAY
225800  Discharge Day           !         !  2   ! 9(02)      ! DISPLAY
225900--------------------------!---------!------!------------!---------
226000ered Charges              !  38-46  !  9   ! 9(07)V9(02)! DISPLAY
226100--------------------------!---------!------!------------!---------
226200cial Payment Indicator    !    47   !  1   ! X(01)      ! DISPLAY
226300--------------------------!---------!------!------------!---------
226400LER                       !  48-60  !  13  ! X(13)      ! DISPLAY
226500--------------------------!---------!------!------------!---------
226600
226700E 5.4: Test Bill Data Record Format
226800
226900
227000
227100
227200
227300
227400
227500
227600
227700
227800
227900
228000
228100
228200
228300
228400
228500
228600
228700                              V-5
228800         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
228900
229000
229100 Payment Census Division Composition:
229200
229300                                       6. West North Central
229400    1. New England
229500                                            16 Iowa
229600     07 Connecticut                      70,17 Kansas
229700     20 Maine                               24 Minnesota
229800     22 Massachusetts                       26 Missouri
229900     30 New Hampshire                       28 Nebraska
230000     41 Rhode Island                        35 North Dakota
230100     47 Vermont                             43 South Dakota
230200
230300
230400    2. Middle Atlantic                 7. West South Central
230500
230600  73,39 Pennsylvania                        04 Arkansas
230700     31 New Jersey                       71,19 Louisiana
230800     33 New York                            37 Oklahoma
230900     40 Puerto Rico                   67,74,45 Texas
231000
231100
231200    3.  South Atlantic                 8. Mountain
231300
231400     08 Delaware                            03 Arizona
231500     09 District of Columbia                06 Colorado
2316008,69,10 Florida                             13 Idaho
231700     11 Georgia                             27 Montana
231800  80,21 Maryland                            29 Nevada
231900     34 North Carolina                      32 New Mexico
232000     42 South Carolina                      46 Utah
232100     49 Virginia                            53 Wyoming
232200     51 West Virginia
232300
232400
232500    4. East North Central              9. Pacific
232600
232700     14 Illinois                            02 Alaska
232800     15 Indiana                          55,05 California
232900     23 Michigan                            12 Hawaii
233000  72,36 Ohio                                38 Oregon
233100     52 Wisconsin                           50 Washington
233200
233300
233400    5. East South Central           OUTSIDE US.
233500
233600     01 Alabama                             56 Canada
233700     18 Kentucky                            59 Mexico
233800     25 Mississippi                         64 American Samoa
233900     44 Tennessee                           65 Guam
234000                                            66 Commonwealth of the
234100                                                Northern Marianas
234200
234300
234400                               V-6
234500         FILE # 2 LTCH PRICER INSTALLATION GUIDE DOCUMENT
234600
234700
234800 Regional Consortia Composition:
234900
235000HEAST CONSORTIUM
235100------------------------------------------------------------------
235200ON 1:               REGION 2:               REGION 3:
235300------------------  ----------------------  ----------------------
235400onnecticut          31 New Jersey           08 Delaware
235500aine                33 New York             09 District of Columbi
235600assachusetts        40 Puerto Rico          21 Maryland
235700ew Hampshire        48 Virgin Islands       39 Pennsylvania
235800hode Island                                 49 Virginia
235900ermont                                      51 West Virginia
236000
236100
236200HERN CONSORTIUM
236300------------------------------------------------------------------
236400ON 4:               REGION 6:
236500------------------  ----------------------
236600labama              04 Arkansas
236700lorida              19 Louisiana
236800eorgia              32 New Mexico
236900entucky             37 Oklahoma
237000ississippi          45 Texas
237100orth Carolina
237200outh Carolina
237300ennessee
237400
237500
237600EST CONSORTIUM
237700------------------------------------------------------------------
237800ON 5:               REGION 7:
237900------------------  ----------------------
238000llinois             16 Iowa
238100ndiana              17 Kansas
238200ichigan             26 Missouri
238300innesota            28 Nebraska
238400hio
238500isconsin
238600
238700
238800ERN CONSORTIUM
238900------------------------------------------------------------------
239000ON 8:               REGION 9:               REGION 10:
239100------------------  ----------------------  ----------------------
239200olorado             03 Arizona              02 Alaska
239300ontana              05 California           13 Idaho
239400orth Dakota         12 Hawaii               38 Oregon
239500outh Dakota         29 Nevada               50 Washington
239600tah                 65 Guam
239700yoming
239800
239900: To see all state codes for a given state, see Figure 5.5.
240000
240100                              V-7
