Cobol Manuals
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 4 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. TSI150P
000003 ******************************************************************
000004 *AUTHOR. WOOD
000005 *DATE-WRITTEN. DEC 1995
000006 *REMARKS.
000007 * CREATE PLM EXTRACT RECORD FROM HEALTHQUEST DATA IN NEW
000008 * INTERFACE FORMAT.
000009 ****************************************************************
000010 * UNIVERSITY OF MICHIGAN M O D I F I C A T I O N S *
000011 * *
000012 * DATE PRGMR DESCRIPTION *
000013 ******************************************************************
000014 *
000015 * 3/03/97 H239 - 1. CONVERSION TO HQ 3.0 & COBOL II.
000016 *
000017 * 6/26/96 H296 - 1. ADD CODE IN 0520- TO CHECK DISCHARGE DATE,
000018 * IF 0 USE WS-SERIAL-TODAY, TO CALC POST OPDAYS.
000019 * 2. ADD CODE FOR MOM/BABY COMBINE FLAG.
000020 * 3. IF OBSERV USE DEPARTURE-DATE FOR DISCHARGE.
000021 * 4. ADD CODE FOR ADMIT-DAY OF WEEK.
000022 * 1/20/1999 H296 ** ADD CODE FOR NUMERIC CHECK OF
000023 * MRA-SERV-LEFT-DATE & MRA-SERV-DAYS.
000024 * 2/09/1999 H296 ** ADD NEW FIN CLASS 'L' TO CODE IN
000025 * 0310-BUILD-RECORD.
000026 * 4/28/1999 H296 ** CHANGED PMV-DIS-DEP-DT AND PMV-REG-PREAD-DT
000027 * FROM PRE FY98 TO PRE FY99 - SERIAL 35610 TO 35975
000028 * 3/14/2000 H296 ** BIRHTWEIGHT MODS.
000029 * MR ALL INPATIENTS, MR NEW OUTPATIENTS,
000030 * MRU UPDATE OUTPATIENTS.
000031 * 5/25/2000 HB20 ** ADDED PATIENT REFUND (PMV-TOT-PAT-REFUNDS)
000032 * TO PMV-TOT-PMTS TO OBTAIN PATIENT PAYMENTS.
000033 * THIS CORRECTED A PROBLEM WITH HOSPTIAL
000034 * CHARGES NOT TOTALLY INS PAY + INS ADJ +
000035 * PAT PAY + PAT ADJ.
000036 * 6/02/2000 H296 ** CODE TO BYPAS A BAD READ ON PEI FOR DOC #.
000037 * 10/23/2000 H296** CHANGE EDIT DATE TO 7-1-1999 BEGIN FY2000.
000038 * ** PMV-DIS-DEP-DT AND PMV-REG-PREAD-DT
000039 * ** GREATER THAN 36340.
000040 * 01/24/2001 H296 ** ADD NEW FINANCIAL CLASS X-SELF PAY THIS VISIT
000041 * 03/20/2001 H296** CHANGE EDIT DATE TO 7-1-2000 BEGIN FY2001.
000042 * ** PMV-DIS-DEP-DT AND PMV-REG-PREAD-DT
000043 * ** GREATER THAN 36706.
000044 * 04/20/2001 H296** WRITE EXCEPTION REPORT TO A FILE W/O
000045 * ** HEADER LINES, ETC.
000046 * 04/23/2001 HB20** ADDED 24 OCCURRENCES OF SECONDARY DIAGNOSIS
000047 * ** AND PROCEDURES AND 20 OCCURRENCES OF SERVICE
000048 * ** CODES. ALSO ADDING THE BLUE CROSS WEIGHT
000049 * ** FIELD. ADDED CHANGE TO CREATE MR RECORD
000050 * ** TYPE FOR OUTPATIENTS THAT HAVE THEIR INS
000051 * ** PLAN CODE DELETED WHICH CHANGES IT TO
000052 * ** SPACES.
000053 * 09/06/2001 HB20** MODIFIED 0460 PARAGRAPH TO DEAL WITH
000054 * ** HEALTH QUEST ENCOUNTERS WHERE THE NUMBER
000055 * ** OF PROCEDURES FIELD EXCEEDS THE MAXIMUM
000056 * ** ALLOWED. MRA-NO-OF-PROC SHOULD NOT EXCEED
000057 * ** 25.
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 5 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000058 * 2/12/2002 H296** GETS RID OF PRE FY01 DISCHARGED ACCOUNTS
000059 * ** CHANGED FROM PRE FY01 TO PRE FY02
000060 * 1/14/2002 H06H** ADDED 2 NEW FIELDS TO THE PLM-EXTRACT
000061 * ** LOS-HOURS & REFERRING-HOSPITAL-NAME
000062 H296 *03/26/2002 H296 **COMMENTS NEW CODE...LOS HOURS AND REF HOSP NAME
000063**H296 *03/26/2002 H296 **COMMENT CODE. CODE IN TSI156P.
000064**H296 * **ADMIT/DISCHARGE SERVICE SHOULD
000065**H296 * **BE UPDATED FROM CHARGE DATA.
000066**H296 *4/24/2002 H296 **CODE FOR RECURRING 'T',OUTPATIENTS 'O'
000067**H296 * **ADMIT AND DISCHARGE DATES.
000068**H296 *04/24/2002 H296 **MODS FOR HQ SCN 7.0
000069**H296 * SCN70 **ADD SUBSCRIPT TO APV-DX-CODE.
000070**H296 *8/27/2002 H296 **REMOVE CODE FOR RECURRING 'T',OUTPATIENTS 'O'
000071**H296 * **ADMIT AND DISCHARGE DATES. SEE 4/24/ABOVE.
000072**H296 *10/16/2002 H296 **ADD NEW FIELDS: APC CODE, APC MODIFIER,
000073**H296 * **APC UNITS, ADMIT ROOM NUMBER, CPT4 CODE,
000074**H296 * **REFERRING PHYSICIAN NAME, FAMILY PHYSICIAN
000075**H296 * **NAME, REHAB HIPPS, SERIES ENCOUNTER NUMBER,
000076**H296 * **PRINCIPAL ANESTHERIOLOGIST.
000077**H296 *01/09/2003 H296 THIS CHECK FILTERS DISCHARGED ENCOUNTERS PRE FY03
000078**H296 * CHANGED FROM PRE FY02 TO PRE FY03
000079**H296 * OUTPATIENT ENCOUNTERS PRE FY03
000080**H296 * CHANGED FROM PRE FY01 TO PRE FY03
000081**H296 *01/28/2003 H296 CHG CPT4 CODE FROM 20 TO 75 CODES.
000082**H296 * PLM-ATTEND-DOCTOR-SPECIALTY FROM 3 TO 5.
000083 H462 *09/25/2003 H462 ADD CODE FOR DISCHARGE SERVICE AND OUTPATIENT
000084**H462 * LOCATION.
000085**H462 *10/09/2003 H462 ALL MODIFICATIONS TO CORRECTLY CALCULATE ICU
000086**H462 * DAYS WHEN THE ACCOUNTS HAVE BEEN COMBINED.
000087**H462 *05/25/2004 H462 ADD FINANCIAL CLASS OF Z
000088**H462 *06/08/2004 H462 ADD PPO CODE
000089**H296 *07/28/2004 H296 FILTERS DISCHARGED ENCOUNTERS PREVIOUS FY'S
000090**H296 * CHANGED FROM 37436 (7/1/2002) TO 37801 (7/1/2003)
000091**H296 *07/29/2004 H296 CHECK AGE-YEARS BEFORE GRABBING BIRTHWEIGHT-GRAMS
000092**H296 *07/29/2004 H296 ADD START MRA 0250-
000093**H296 *01/18/2005 H296 FILTERS DISCHARGED ENCOUNTERS PREVIOUS FY'S
000094**H296 * CHANGED FROM 37801 (7/1/2003) TO 38167 (7/1/2004)
000095 H462 *01/20/2005 H462 ADD CODE TO CORRECT LOS DAYS - HOSPITAL SERVICE
000096**H462 * DAYS NOT MATCHING LOS DAYS.
000097**H462 *02/8/2005 H462 ADD CHECK TO BYPASS TEST ACCOUNTS BEING WITH 06
000098**H296 *02/17/2005 H296 CSR$456226 - NEED TO READ THE
000099**H296 ** EFFECTIVE FROM AND THRU DATES TO GET THE
000100**H296 ** CORRECT INSURANCE CONTRACT AND GROUP NUMBER.
000101 ******************************************************************
000102 ENVIRONMENT DIVISION.
000103 CONFIGURATION SECTION.
000104 SOURCE-COMPUTER.
000105 IBM-370.
000106 OBJECT-COMPUTER.
000107 IBM-370.
000108 INPUT-OUTPUT SECTION.
000109 FILE-CONTROL.
000110 *
000111 SELECT KPPMVMD-IN
000112 * ASSIGN TO KPPMVMT
000113 ASSIGN TO KPPMVMD
000114 ORGANIZATION IS INDEXED
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 6 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000115 ACCESS MODE IS DYNAMIC
000116 RECORD KEY IS PMV-KEY
000117 FILE STATUS IS WS-KPPMVMD-STATUS.
000118
000119 SELECT KPPMCMD-IN
000120 ASSIGN TO KPPMCMD
000121 ORGANIZATION IS INDEXED
000122 ACCESS MODE IS RANDOM
000123 RECORD KEY IS PMC-KEY
000124 FILE STATUS IS WS-KPPMCMD-STATUS.
000125 *
000126 SELECT KPIARMD-IN
000127 ASSIGN TO KPIARMD
000128 ORGANIZATION IS INDEXED
000129 ACCESS MODE IS SEQUENTIAL
000130 RECORD KEY IS IAR-REC-KEY
000131 FILE STATUS IS WS-KPIARMD-STATUS.
000132 *
000133 SELECT KPCHGMD-IN
000134 ASSIGN TO KPCHGMD
000135 ORGANIZATION IS INDEXED
000136 ACCESS MODE IS SEQUENTIAL
000137 RECORD KEY IS CHG-REC-KEY
000138 FILE STATUS IS WS-KPCHGMD-STATUS.
000139 *
000140 SELECT MEDICAL-RECORDS-MASTER
000141 ASSIGN TO KMMRMMD
000142 ORGANIZATION IS INDEXED
000143 ACCESS MODE IS DYNAMIC
000144 RECORD KEY IS MRA-REC-KEY
000145 FILE STATUS IS MRM-MASTER-STATUS.
000146 *
000147 SELECT DRG-MASTER-FILE
000148 ASSIGN TO KMDRGMD
000149 ORGANIZATION IS INDEXED
000150 ACCESS MODE IS DYNAMIC
000151 RECORD KEY IS DRG-KEY
000152 FILE STATUS IS DRG-MASTER-STATUS.
000153 *
000154 SELECT SERVICE-DESC-FILE
000155 ASSIGN TO KWSRVMD
000156 ORGANIZATION IS INDEXED
000157 ACCESS MODE IS DYNAMIC
000158 RECORD KEY IS SERV-KEY
000159 FILE STATUS IS SERVICE-STATUS.
000160 *
000161 SELECT TSI-STATUS-FILE
000162 ASSIGN TO KWTSIMD
000163 ORGANIZATION IS INDEXED
000164 ACCESS MODE IS DYNAMIC
000165 RECORD KEY IS TSI-KEY
000166 FILE STATUS IS TSI-MASTER-STATUS.
000167 *
000168 SELECT CPT4-APC-TABLE-FILE
000169 ASSIGN TO CPT4APC
000170 ORGANIZATION IS INDEXED
000171 ACCESS MODE IS DYNAMIC
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 7 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000172 RECORD KEY IS CPT4-APC-TBL-KEY
000173 FILE STATUS IS CPT4-APC-TBL-STATUS.
000174 *
000175 SELECT PLM-EXTRACT-FILE
000176 ASSIGN TO KWPLMWD.
000177 *
000178 SELECT PRINT-FILE
000179 ASSIGN TO PRINTER.
000180 *
000181 SELECT CHARGE-DESCRIPTION-MASTER
000182 ASSIGN TO KPCDMMD
000183 ORGANIZATION IS INDEXED
000184 ACCESS MODE IS RANDOM
000185 FILE STATUS IS KPCDMMD-STATUS
000186 RECORD KEY IS CDM-KEY.
000187 *
000188 SELECT CPT4-REPORT-FILE
000189 ASSIGN TO CPT4RPT.
000190 *
000191 H462 SELECT OUTPAT-LOCATION-DESC
000192**H462 ASSIGN TO OPLOC
000193**H462 ORGANIZATION IS INDEXED
000194**H462 ACCESS MODE IS DYNAMIC
000195**H462 FILE STATUS IS OUTPAT-LOCATION-STATUS
000196**H462 RECORD KEY IS OPLOC-KEY.
000197
000198 ***************************************************************
000199
000200
000201 DATA DIVISION.
000202 FILE SECTION.
VSAM FILE 000203 FD KPPMVMD-IN. ** VARIABLE LENGTH RECORDS **
000204 COPY KPPMVRC REPLACING == :PMV: == BY == PMV ==.
000205C *****************************************************************
000206C * COPYBOOK ID: KPPMVRC - PATIENT ACCOUNT VISIT FILE *
000207C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000208C * *
000209C * PATIENT DEMOGRAPHICS AND ACTIVE AGING *
000210C * *
000211C * NOTE: IF THIS RECORD LAYOUT CHANGES THEN THE CORRESPONDING *
000212C * COPYBOOK MUST ALSO BE CHANGED: KPTSVCC *
000213C * *
000214C *****************************************************************
000215C * S O F T W A R E M A I N T E N A N C E *
000216C *****************************************************************
000217C * SCN PGR DESCRIPTION RELEASE *
000218C * *
000219C * ___________ ___ HEALTHQUEST RELEASE 3.0 01-31-94 *
000220C * 3.06303 RXM STOP POSTING - PAR 862 3.9 *
000221C * 3.07203 BR CHARGE RELOCATION CHECK 6.0 *
000222C * ___________ ___ ____________________________ N.N.N *
000223C *****************************************************************
000224C
BLF=0 000 000225C 01 PMV-KPPMVRC-SYNC. PMV-KPPMVRC-SYNC 40
BLF=0 000 000226C 03 FILLER PIC X(08). 1 8 8
BLF=0 008 000227C 03 PMV-SYNC-KEY. 9 21 13
BLF=0 008 000228C 05 PMV-SYNC-KEY-REC-TYPE PIC X(01). 9 9 1
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 8 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000229C 88 PMV-SYNC-REC VALUE 'A'.
BLF=0 009 000230C 05 PMV-SYNC-KEY-FILLER PIC X(12). 10 21 12
BLF=0 015 000231C 03 PMV-SYNC-DATA. 22 40 19
BLF=0 015 000232C 05 FILLER PIC X(3). 22 24 3
BLF=0 018 000233C 05 PMV-SYNC-DT PIC S9(05) COMP-3. 25 27 3
BLF=0 01B 000234C 05 PMV-SYNC-VERSION PIC S9(05) COMP-3. 28 30 3
BLF=0 01E 000235C 05 PMV-SYNC-STATUS-IND PIC X(01). 31 31 1
000236C 88 PMV-SYNC-ONLINE-RUNNING VALUE 'O'.
000237C 88 PMV-SYNC-ONLINE-DOWN VALUE 'D'.
000238C 88 PMV-SYNC-POSTING-DONE VALUE 'P'.
000239C 88 PMV-SYNC-BILLING-DONE VALUE 'B'.
BLF=0 01F 000240C 05 FILLER PIC X(09). 32 40 9
BLF=0 000 000241C 01 PMV-KPPMVRC. PMV-KPPMVRC 2633OG
BLF=0 000 000242C 03 PMV-GUM-KEY. 1 21 21
BLF=0 000 000243C 05 PMV-GUM-ENT-CD PIC X(02). 1 2 2
BLF=0 002 000244C 05 PMV-GUM-CPI-NBR-PREFIX PIC X(01). 3 3 1
BLF=0 003 000245C 05 PMV-GUM-CPI-NBR PIC S9(09) COMP-3. 4 8 5
BLF=0 008 000246C 05 PMV-KEY. 9 21 13
BLF=0 008 000247C 10 PMV-REC-TYPE PIC X(01). 9 9 1
000248C 88 PMV-DATA-REC VALUE 'D'.
BLF=0 009 000249C 10 PMV-INST-CD PIC X(01). 10 10 1
BLF=0 00A 000250C 10 PMV-CPI-NBR-PREFIX PIC X(01). 11 11 1
BLF=0 00B 000251C 10 PMV-CPI-NBR PIC S9(09) COMP-3. 12 16 5
BLF=0 010 000252C 10 PMV-VISIT-NBR PIC S9(04) COMP-3. 17 19 3
BLF=0 013 000253C 10 PMV-ENT-CD PIC X(02). 20 21 2
BLF=0 015 000254C 03 PMV-LAST-UPDATE. 22 48 27
BLF=0 015 000255C 05 PMV-UPDT-ID PIC X(10). 22 31 10
BLF=0 01F 000256C 05 PMV-UPDT-INITIALS PIC X(03). 32 34 3
BLF=0 022 000257C 05 PMV-UPDT-DT PIC S9(05) COMP-3. 35 37 3
BLF=0 025 000258C 05 PMV-UPDT-TM PIC S9(04) COMP-3. 38 40 3
BLF=0 028 000259C 05 PMV-UPDT-TRAN PIC X(04). 41 44 4
BLF=0 02C 000260C 05 PMV-UPDT-TERM PIC X(04). 45 48 4
BLF=0 030 000261C 03 PMV-PERSONAL-INFO. 49 120 72
BLF=0 030 000262C 05 PMV-NAME PIC X(25). 49 73 25
BLF=0 049 000263C 05 PMV-NAME-TTL PIC X(03). 74 76 3
BLF=0 04C 000264C 05 PMV-NAME-SFX PIC X(03). 77 79 3
BLF=0 04F 000265C 05 PMV-VIP-CD PIC X(02). 80 81 2
BLF=0 051 000266C 05 PMV-VIP-TYPE PIC X(01). 82 82 1
BLF=0 052 000267C 05 PMV-EXPIRATION-IND PIC X(01). 83 83 1
BLF=0 053 000268C 05 PMV-EXPIRATION-DT PIC S9(05) COMP-3. 84 86 3
BLF=0 056 000269C 05 PMV-GUAR-REL-TO-PAT PIC X(02). 87 88 2
BLF=0 058 000270C 05 PMV-STATE PIC X(02). 89 90 2
BLF=0 05A 000271C 05 PMV-ZIP PIC X(09). 91 99 9
BLF=0 063 000272C 05 PMV-COUNTY PIC X(05). 100 104 5
BLF=0 068 000273C 05 PMV-COUNTRY PIC X(03). 105 107 3
BLF=0 06B 000274C 05 PMV-LNG PIC X(03). 108 110 3
BLF=0 06E 000275C 05 PMV-CENSUS-TRACT PIC X(06). 111 116 6
BLF=0 074 000276C 05 PMV-PLAN-DISTRICT PIC X(04). 117 120 4
BLF=0 078 000277C 03 PMV-VISIT-INFO. 121 148 28
BLF=0 078 000278C 05 PMV-REG-PREAD-DT PIC S9(05) COMP-3. 121 123 3
BLF=0 07B 000279C 05 PMV-ADM-REG-DT PIC S9(05) COMP-3. 124 126 3
BLF=0 07E 000280C 05 PMV-DIS-DEP-DT PIC S9(05) COMP-3. 127 129 3
BLF=0 081 000281C 05 PMV-HSP-SRV PIC X(03). 130 132 3
BLF=0 084 000282C 05 PMV-PRCS-TYPE PIC X(01). 133 133 1
BLF=0 085 000283C 05 PMV-PAT-TYPE PIC X(02). 134 135 2
BLF=0 087 000284C 05 PMV-COURTESY-CD PIC X(02). 136 137 2
BLF=0 089 000285C 05 PMV-PAT-CLS PIC X(02). 138 139 2
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 9 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=0 08B 000286C 05 PMV-DISC-PCT PIC S9(03) COMP-3. 140 141 2
BLF=0 08D 000287C 05 PMV-PAV-CD PIC X(01). 142 142 1
BLF=0 08E 000288C 05 PMV-FIN-CLS PIC X(02). 143 144 2
BLF=0 090 000289C 05 PMV-ACS-CD PIC X(02). 145 146 2
BLF=0 092 000290C 05 PMV-COS-CD PIC X(02). 147 148 2
BLF=0 094 000291C 03 PMV-FINAL-DX-DT-RECVD PIC S9(05) COMP-3. 149 151 3
BLF=0 097 000292C 03 PMV-PHYS-NBRS. 152 163 12
BLF=0 097 000293C 05 PMV-ADM-PHYS-NBR PIC X(06). 152 157 6
BLF=0 09D 000294C 05 PMV-ATT-PHYS-NBR PIC X(06). 158 163 6
BLF=0 0A3 000295C 03 PMV-INDICATORS-CODES. 164 167 4
BLF=0 0A3 000296C 05 PMV-ROUTING-CD PIC X(03). 164 166 3
BLF=0 0A6 000297C 05 PMV-GUAR-CHANGE-IND PIC X(01). 167 167 1
BLF=0 0A7 000298C 03 PMV-PREBILL-EDIT-DATA. 168 171 4
BLF=0 0A7 000299C 05 PMV-PREBILL-HOLD-IND PIC X(01). 168 168 1
000300C 88 PMV-PREBILL-HOLD-CRITICAL VALUE 'C'.
000301C 88 PMV-PREBILL-HOLD-WARNING VALUE 'W'.
BLF=0 0A8 000302C 05 PMV-PREBILL-HOLD-DT PIC S9(05) COMP-3. 169 171 3
BLF=0 0AB 000303C 03 PMV-ACROSS-PROVIDER-TOTALS. 172 291 120
BLF=0 0AB 000304C 05 PMV-TOT-CHGS PIC S9(09)V99 COMP-3. 172 177 6
BLF=0 0B1 000305C 05 PMV-TOT-PMTS PIC S9(09)V99 COMP-3. 178 183 6
BLF=0 0B7 000306C 05 PMV-TOT-ADJ PIC S9(09)V99 COMP-3. 184 189 6
BLF=0 0BD 000307C 05 PMV-TOT-DISCOUNTS PIC S9(09)V99 COMP-3. 190 195 6
BLF=0 0C3 000308C 05 PMV-TOT-ACCT-BAL PIC S9(09)V99 COMP-3. 196 201 6
BLF=0 0C9 000309C 05 PMV-TOT-UNBILLED PIC S9(09)V99 COMP-3. 202 207 6
BLF=0 0CF 000310C 05 PMV-TOT-UNALLOC-CASH PIC S9(09)V99 COMP-3. 208 213 6
BLF=0 0D5 000311C 05 PMV-TOT-AGE-AMT PIC S9(09)V99 COMP-3. 214 219 6
BLF=0 0DB 000312C 05 PMV-TOT-OFC-BAL PIC S9(09)V99 COMP-3. 220 225 6
BLF=0 0E1 000313C 05 PMV-TOT-OFC-PLACED PIC S9(09)V99 COMP-3. 226 231 6
BLF=0 0E7 000314C 05 PMV-TOT-OFC-RECOV PIC S9(09)V99 COMP-3. 232 237 6
BLF=0 0ED 000315C 05 PMV-TOT-OFC-ADJ PIC S9(09)V99 COMP-3. 238 243 6
BLF=0 0F3 000316C 05 PMV-TOT-INS-PMTS PIC S9(09)V99 COMP-3. 244 249 6
BLF=0 0F9 000317C 05 PMV-TOT-INS-ADJ PIC S9(09)V99 COMP-3. 250 255 6
BLF=0 0FF 000318C 05 PMV-TOT-PAT-REFUNDS PIC S9(09)V99 COMP-3. 256 261 6
BLF=0 105 000319C 05 PMV-CONTESTED-AMT PIC S9(09)V99 COMP-3. 262 267 6
BLF=0 10B 000320C 05 PMV-LST-STMT-BAL PIC S9(09)V99 COMP-3. 268 273 6
BLF=0 111 000321C 05 PMV-PMTS-SINCE-LST-STMT PIC S9(09)V99 COMP-3. 274 279 6
BLF=0 117 000322C 05 PMV-LST-PAT-PMT-AMT PIC S9(09)V99 COMP-3. 280 285 6
BLF=0 11D 000323C 05 PMV-LST-OFC-PMT-AMT PIC S9(09)V99 COMP-3. 286 291 6
BLF=0 123 000324C 03 PMV-BILL-MARKERS. 292 309 18
BLF=0 123 000325C 05 PMV-INS-BILL-CHG-REC-NBR PIC S9(05) COMP-3. 292 294 3
BLF=0 126 000326C 05 PMV-INS-BILL-ARX-REC-NBR PIC S9(05) COMP-3. 295 297 3
BLF=0 129 000327C 05 PMV-INS-BILL-MEMO-REC-NBR PIC S9(05) COMP-3. 298 300 3
BLF=0 12C 000328C 05 PMV-PAT-BILL-CHG-REC-NBR PIC S9(05) COMP-3. 301 303 3
BLF=0 12F 000329C 05 PMV-PAT-BILL-ARX-REC-NBR PIC S9(05) COMP-3. 304 306 3
BLF=0 132 000330C 05 PMV-PAT-BILL-MEMO-REC-NBR PIC S9(05) COMP-3. 307 309 3
BLF=0 135 000331C 03 PMV-FILE-MARKERS. 310 321 12
BLF=0 135 000332C 05 PMV-LST-CHG-REC-NBR PIC S9(05) COMP-3. 310 312 3
BLF=0 138 000333C 05 PMV-LST-ARX-REC-NBR PIC S9(05) COMP-3. 313 315 3
BLF=0 13B 000334C 05 PMV-LST-MEMO-REC-NBR PIC S9(05) COMP-3. 316 318 3
BLF=0 13E 000335C 05 PMV-LST-IAR-REC-NBR PIC S9(05) COMP-3. 319 321 3
BLF=0 141 000336C 03 PMV-OFC-DATA. 322 325 4
BLF=0 141 000337C 05 PMV-OFC-SWITCH PIC X(01). 322 322 1
BLF=0 142 000338C 05 PMV-OFC-AGCY PIC X(03). 323 325 3
BLF=0 145 000339C 03 PMV-OFC-PREVIOUS-DATA. 326 348 23
BLF=0 145 000340C 05 PMV-OFC-AGCY-PREV PIC X(03). 326 328 3
BLF=0 148 000341C 05 PMV-TOT-OFC-PLACED-PREV PIC S9(09)V99 COMP-3. 329 334 6
BLF=0 14E 000342C 05 PMV-TOT-OFC-RECOV-PREV PIC S9(09)V99 COMP-3. 335 340 6
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 10 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=0 154 000343C 05 PMV-TOT-OFC-ADJ-PREV PIC S9(09)V99 COMP-3. 341 346 6
BLF=0 15A 000344C 05 PMV-OLDEST-AGE-IND-PREV PIC 9(02). 347 348 2
BLF=0 15C 000345C 03 PMV-OFC-HISTORY-DATA. 349 366 18
BLF=0 15C 000346C 05 PMV-TOT-OFC-PLACED-HIST PIC S9(09)V99 COMP-3. 349 354 6
BLF=0 162 000347C 05 PMV-TOT-OFC-RECOV-HIST PIC S9(09)V99 COMP-3. 355 360 6
BLF=0 168 000348C 05 PMV-TOT-OFC-ADJ-HIST PIC S9(09)V99 COMP-3. 361 366 6
BLF=0 16E 000349C 03 PMV-DATES. 367 396 30
BLF=0 16E 000350C 05 PMV-1ST-ACTIVITY-DT PIC S9(05) COMP-3. 367 369 3
BLF=0 171 000351C 05 PMV-LST-ACTIVITY-DT PIC S9(05) COMP-3. 370 372 3
BLF=0 174 000352C 05 PMV-LST-INS-BILL-DT PIC S9(05) COMP-3. 373 375 3
BLF=0 177 000353C 05 PMV-ITEMIZED-BILL-DT PIC S9(05) COMP-3. 376 378 3
BLF=0 17A 000354C 05 PMV-LATE-BILL-DT PIC S9(05) COMP-3. 379 381 3
BLF=0 17D 000355C 05 PMV-LST-CHG-POST-DT PIC S9(05) COMP-3. 382 384 3
BLF=0 180 000356C 05 PMV-LST-MEMO-PURGE-DT PIC S9(05) COMP-3. 385 387 3
BLF=0 183 000357C 05 PMV-LST-PAT-PMT-DT PIC S9(05) COMP-3. 388 390 3
BLF=0 186 000358C 05 PMV-LST-OFC-PMT-DT PIC S9(05) COMP-3. 391 393 3
BLF=0 189 000359C 05 PMV-LST-AGE-DT PIC S9(05) COMP-3. 394 396 3
BLF=0 18C 000360C 03 PMV-MOM-BABY-CHAIN. 397 410 14
BLF=0 18C 000361C 05 PMV-MOM-CPI-NBR-PREFIX PIC X(01). 397 397 1
BLF=0 18D 000362C 05 PMV-MOM-CPI-NBR PIC S9(09) COMP-3. 398 402 5
BLF=0 192 000363C 05 PMV-MOM-VISIT-NBR PIC S9(04) COMP-3. 403 405 3
BLF=0 195 000364C 05 PMV-MOM-DIS-DEP-DT PIC S9(05) COMP-3. 406 408 3
BLF=0 198 000365C 05 PMV-MOM-ACCT-TYPE PIC X(01). 409 409 1
000366C 88 PMV-MOM-ACCT-MOM VALUE 'M'.
000367C 88 PMV-MOM-ACCT-BABY VALUE 'B'.
000368C 88 PMV-MOM-ACCT-BABY-BILLED VALUE 'F'.
000369C 88 PMV-MOM-ACCT-MOM-BILLED VALUE 'T'.
BLF=0 199 000370C 05 PMV-MOM-STOP-POST-IND PIC X(01). 410 410 1
000371C 88 PMV-MOM-STOP-POST VALUE 'Y'.
000372C 88 PMV-MOM-ALLOW-POST VALUE 'N' ' '.
BLF=0 19A 000373C 03 PMV-CHG-XFER-COMBINE-DATA. 411 425 15
BLF=0 19A 000374C 05 PMV-CHG-TO-CPI-NBR-PREFIX PIC X(01). 411 411 1
BLF=0 19B 000375C 05 PMV-CHG-TO-CPI-NBR PIC S9(09) COMP-3. 412 416 5
BLF=0 1A0 000376C 05 PMV-CHG-TO-VISIT-NBR PIC S9(04) COMP-3. 417 419 3
BLF=0 1A3 000377C 05 PMV-CHG-TO-ENT-CD PIC X(02). 420 421 2
BLF=0 1A5 000378C 05 PMV-CHG-TO-ADM-REG-DT PIC S9(05) COMP-3. 422 424 3
BLF=0 1A8 000379C 05 PMV-CHG-TO-STOP-POST-IND PIC X(01). 425 425 1
000380C 88 PMV-CHG-TO-STOP-POST VALUE 'Y'.
000381C 88 PMV-CHG-TO-ALLOW-POST VALUE 'N' ' '.
BLF=0 1A9 000382C 03 PMV-MISC. 426 428 3
BLF=0 1A9 000383C 05 PMV-PREV-ITEMIZED-BILL-DT PIC S9(05) COMP-3. 426 428 3
000384C * 3.06303 BEGIN **************************************************
000385C * 03 :PMV:-RESERVED-FILLER PIC X(42).
BLF=0 1AC 000386C 03 PMV-STOP-POSTING-DATA. 429 433 5
BLF=0 1AC 000387C 05 PMV-PAT-MGMT-CLOSED-IND PIC X(01). 429 429 1
BLF=0 1AD 000388C 05 PMV-RECUR-STOP-POST-IND PIC X(01). 430 430 1
BLF=0 1AE 000389C 05 PMV-RECUR-STOP-POST-DATE PIC S9(05) COMP-3. 431 433 3
000390C * 3.07203 BEGIN **************************************************
000391C * 03 :PMV:-RESERVED-FILLER PIC X(37).
BLF=0 1B1 000392C 03 PMV-CHRG-RELOCATION-IND PIC X(01). 434 434 1
BLF=0 1B2 000393C 03 PMV-RESERVED-FILLER PIC X(36). 435 470 36
000394C * 3.07203 END ****************************************************
000395C * 3.06303 END ****************************************************
BLF=0 1D6 000396C 03 PMV-USER-AREA. 471 515 45
BLF=0 1D6 000397C 05 PMV-USER-FILLER PIC X(45). 471 515 45
BLF=0 203 000398C 03 PMV-INSTALLMENT-INFO. 516 551 36
BLF=0 203 000399C 05 PMV-INSTL-EST-CAN-IND PIC X(01). 516 516 1
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 11 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=0 204 000400C 05 PMV-INSTL-ESTABLISH-DT PIC S9(05) COMP-3. 517 519 3
BLF=0 207 000401C 05 PMV-INSTL-ORIG-AMT PIC S9(09)V99 COMP-3. 520 525 6
BLF=0 20D 000402C 05 PMV-INSTL-1ST-AMT PIC S9(09)V99 COMP-3. 526 531 6
BLF=0 213 000403C 05 PMV-INSTL-SUBSEQ-AMT PIC S9(09)V99 COMP-3. 532 537 6
BLF=0 219 000404C 05 PMV-INSTL-1ST-STMT-DT PIC S9(05) COMP-3. 538 540 3
BLF=0 21C 000405C 05 PMV-INSTL-LST-STMT-DT PIC S9(05) COMP-3. 541 543 3
BLF=0 21F 000406C 05 PMV-INSTL-OLDEST-AGE-IND PIC 9(02). 544 545 2
BLF=0 221 000407C 05 PMV-INSTL-REMAIN-BAL PIC S9(09)V99 COMP-3. 546 551 6
BLF=0 227 000408C 03 PMV-PROVIDER-DATA-FIXED. 552 553 2OG
BLF=0 227 000409C 05 PMV-NBR-PROV PIC S9(03) COMP-3. 552 553 2 D
BLF=0 229 000410C 03 PMV-PROV-INFO OCCURS 0 TO 26 TIMES 554 2633 80 O
000411C DEPENDING ON PMV-NBR-PROV.
BLF=0 229 000412C 05 PMV-PROV-NBR PIC S9(05) COMP-3. 554 556 3
BLF=0 22C 000413C 05 PMV-PROV-RESERVED-FILLER PIC X(02). 557 558 2
BLF=0 22E 000414C 05 PMV-PROV-USER-FILLER PIC X(03). 559 561 3
BLF=0 231 000415C 05 PMV-PROV-RECEIVABLES. 562 633 72
BLF=0 231 000416C 10 PMV-PROV-ACCT-BAL PIC S9(09)V99 COMP-3. 562 567 6
BLF=0 237 000417C 10 PMV-PROV-UNBILLED PIC S9(09)V99 COMP-3. 568 573 6
BLF=0 23D 000418C 10 PMV-PROV-AGING-INFO. 574 633 60
BLF=0 23D 000419C 15 PMV-AGE-AMT PIC S9(09)V99 COMP-3 574 633 6 O
000420C OCCURS 10 TIMES.
000421 *
000422
VSAM FILE 000423 FD KPPMCMD-IN. ** VARIABLE LENGTH RECORDS **
000424 COPY KPPMCRC REPLACING == :PMC: == BY == PMC ==.
000425C * REMARKS. LAST COPYBOOK UPDATE 01-31-94 LAST DOC UPDATE 01-31-94
000426C *****************************************************************
000427C * COPYBOOK ID: KPPMCRC - INSURANCE COLLECTION FILE *
000428C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000429C * *
000430C * FOLLOW-UP CONTROL DATA FOR INSURANCE CLAIMS. *
000431C *****************************************************************
000432C * S O F T W A R E M A I N T E N A N C E *
000433C *****************************************************************
000434C * SCN/RELEASE PGR DESCRIPTION EFF DATE *
000435C * *
000436C * ___________ ___ HEALTHQUEST RELEASE 3.0 01-31-94 *
000437C * ___________ ___ ____________________________ XX-XX-XX *
000438C * ___________ ___ ____________________________ XX-XX-XX *
000439C *****************************************************************
BLF=1 000 000441C 01 PMC-KPPMCRC-SYNC. PMC-KPPMCRC-SYNC 32
BLF=1 000 000442C 03 PMC-SYNC-KEY. 1 13 13
BLF=1 000 000443C 05 PMC-SYNC-KEY-REC-TYPE PIC X(01). 1 1 1
000444C 88 PMC-SYNC-REC VALUE 'A'.
BLF=1 001 000445C 05 PMC-SYNC-KEY-FILLER PIC X(12). 2 13 12
BLF=1 00D 000446C 03 PMC-SYNC-DATA. 14 32 19
BLF=1 00D 000447C 05 FILLER PIC X(3). 14 16 3
BLF=1 010 000448C 05 PMC-SYNC-DT PIC S9(05) COMP-3. 17 19 3
BLF=1 013 000449C 05 PMC-SYNC-VERSION PIC S9(05) COMP-3. 20 22 3
BLF=1 016 000450C 05 PMC-SYNC-STATUS-IND PIC X(01). 23 23 1
000451C 88 PMC-SYNC-ONLINE-RUNNING VALUE 'O'.
000452C 88 PMC-SYNC-ONLINE-DOWN VALUE 'D'.
000453C 88 PMC-SYNC-POSTING-DONE VALUE 'P'.
000454C 88 PMC-SYNC-BILLING-DONE VALUE 'B'.
BLF=1 017 000455C 05 FILLER PIC X(09). 24 32 9
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 12 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=1 000 000457C 01 PMC-KPPMCRC. PMC-KPPMCRC 2232OG
BLF=1 000 000458C 03 PMC-KEY. 1 13 13
BLF=1 000 000459C 05 PMC-REC-TYPE PIC X(01). 1 1 1
000460C 88 PMC-DATA-REC VALUE 'D'.
BLF=1 001 000461C 05 PMC-INST-CD PIC X(01). 2 2 1
BLF=1 002 000462C 05 PMC-CPI-NBR-PREFIX PIC X(01). 3 3 1
BLF=1 003 000463C 05 PMC-CPI-NBR PIC S9(09) COMP-3. 4 8 5
BLF=1 008 000464C 05 PMC-VISIT-NBR PIC S9(05) COMP-3. 9 11 3
BLF=1 00B 000465C 05 PMC-ENT-CD PIC X(02). 12 13 2
BLF=1 00D 000466C 03 PMC-LAST-UPDATE. 14 40 27
BLF=1 00D 000467C 05 PMC-UPDT-ID PIC X(10). 14 23 10
BLF=1 017 000468C 05 PMC-UPDT-INITIALS PIC X(03). 24 26 3
BLF=1 01A 000469C 05 PMC-UPDT-DT PIC S9(05) COMP-3. 27 29 3
BLF=1 01D 000470C 05 PMC-UPDT-TM PIC S9(05) COMP-3. 30 32 3
BLF=1 020 000471C 05 PMC-UPDT-TRAN PIC X(04). 33 36 4
BLF=1 024 000472C 05 PMC-UPDT-TERM PIC X(04). 37 40 4
BLF=1 028 000474C 03 PMC-INSURANCE-INFO. 41 2232 2192OG
BLF=1 028 000475C 05 PMC-NBR-COMPANIES PIC S9(03) COMP-3. 41 42 2 D
BLF=1 02A 000476C 05 PMC-FIXED-RESERVED-FILLER PIC X(20). 43 62 20
BLF=1 03E 000477C 05 PMC-FIXED-USER-FILLER PIC X(20). 63 82 20
BLF=1 052 000478C 05 PMC-ICO-INFO OCCURS 0 TO 10 TIMES 83 2232 215 O
000479C DEPENDING ON
000480C PMC-NBR-COMPANIES.
BLF=1 052 000481C 10 PMC-ICO-CD PIC X(03). 83 85 3
BLF=1 055 000482C 10 PMC-ICO-COB-SEQ PIC X(01). 86 86 1
BLF=1 056 000483C 10 PMC-ICO-VERIFY-IND PIC X(01). 87 87 1
BLF=1 057 000484C 10 PMC-ICO-INS-TYPE PIC X(01). 88 88 1
BLF=1 058 000485C 10 PMC-ICO-COL-ID PIC X(03). 89 91 3
BLF=1 05B 000486C 10 PMC-ICO-NXT-FU-DT PIC S9(05) COMP-3. 92 94 3
BLF=1 05E 000487C 10 PMC-ICO-PARENT-ICO-CD PIC X(03). 95 97 3
BLF=1 061 000488C 10 PMC-ICO-RESERVED-FILLER PIC X(01). 98 98 1
BLF=1 062 000489C 10 PMC-ICO-USER-FILLER PIC X(06). 99 104 6
BLF=1 068 000490C 10 PMC-ICO-LST-QUAL-DT PIC S9(05) COMP-3. 105 107 3
BLF=1 06B 000491C 10 PMC-ICO-LAST-CONTACT-INFO. 108 297 190
BLF=1 06B 000492C 15 PMC-ICO-LC-NAME PIC X(25). 108 132 25
BLF=1 084 000493C 15 PMC-ICO-LC-AREA-CD PIC S9(03) COMP-3. 133 134 2
BLF=1 086 000494C 15 PMC-ICO-LC-PHONE-NBR PIC S9(07) COMP-3. 135 138 4
BLF=1 08A 000495C 15 PMC-ICO-LC-PHONE-EXT PIC X(06). 139 144 6
BLF=1 090 000496C 15 PMC-ICO-LC-LNG PIC X(03). 145 147 3
BLF=1 093 000497C 15 PMC-ICO-LC-FU-DT PIC S9(05) COMP-3. 148 150 3
BLF=1 096 000498C 15 PMC-ICO-LC-FU-TM PIC S9(04) COMP-3. 151 153 3
BLF=1 099 000499C 15 PMC-RESULT OCCURS 06 TIMES. 154 297 24 O
BLF=1 099 000500C 20 PMC-ENTRY-KEY. 154 159 6
BLF=1 099 000501C 25 PMC-ICO-ENTRY-DT PIC S9(05) COMP-3. 154 156 3
BLF=1 09C 000502C 25 PMC-ICO-ENTRY-TM PIC S9(04) COMP-3. 157 159 3
BLF=1 09F 000503C 20 PMC-ICO-RSLT-CD PIC X(02). 160 161 2
BLF=1 0A1 000504C 20 PMC-ICO-CTG-ID PIC X(03). 162 164 3
BLF=1 0A4 000505C 20 PMC-ICO-LTR-CD PIC X(02). 165 166 2
BLF=1 0A6 000506C 20 PMC-ICO-MEMO-CD PIC X(02). 167 168 2
BLF=1 0A8 000507C 20 PMC-ICO-PROMISED-DT PIC S9(05) COMP-3. 169 171 3
BLF=1 0AB 000508C 20 PMC-ICO-PROMISED-AMT PIC S9(09)V99 COMP-3. 172 177 6
000509 *
000510
VSAM FILE 000511 FD KPIARMD-IN. ** VARIABLE LENGTH RECORDS **
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 13 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000512 COPY KPIARRC REPLACING == :IAR: == BY == IAR ==.
000513C *****************************************************************
000514C * COPYBOOK ID: KPIARRC - PATIENT ACCOUNT IAR FILE *
000515C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000516C * *
000517C * CONTAINS INSURANCE CLAIMS DATA. *
000518C *****************************************************************
000519C * S O F T W A R E M A I N T E N A N C E *
000520C *****************************************************************
000521C * SCN PGR DESCRIPTION RELEASE *
000522C * *
000523C * SGH HEALTHQUEST RELEASE 3.0 01-31-94 *
000524C * 3.05301 ZXW UPDATE CLAIM MAILED DATE 97.06 *
000525C * 3.07014 HEW PATIENT ACCOUNTING ENH. 6.0 *
000526C * 3.07317 PRD APC FEDERAL REGULATION 6.1 *
000527C * 3.07646 PRD APC REBILL FIX 6.5 *
000528C * 3.0???? ___ _____________________________ N.N.N *
000529C *****************************************************************
000530C ******** UMH MODIFICATIONS **************************************
000531C * UMH.3.3.3.15 DAL ADD FIELDS FOR INS CROSSOVER 08-15-97 *
000532C *****************************************************************
000533C
BLF=2 000 000534C 01 IAR-KPIARRC-SYNC. IAR-KPIARRC-SYNC 32
BLF=2 000 000535C 03 IAR-SYNC-KEY. 1 16 16
BLF=2 000 000536C 05 IAR-SYNC-KEY-REC-TYPE PIC X(01). 1 1 1
000537C 88 IAR-SYNC-REC VALUE 'A'.
BLF=2 001 000538C 05 IAR-SYNC-KEY-FILLER PIC X(15). 2 16 15
BLF=2 010 000539C 03 IAR-SYNC-DATA. 17 32 16
BLF=2 010 000540C 05 IAR-SYNC-DT PIC S9(05) COMP-3. 17 19 3
BLF=2 013 000541C 05 IAR-SYNC-VERSION PIC S9(05) COMP-3. 20 22 3
BLF=2 016 000542C 05 IAR-SYNC-STATUS-IND PIC X(01). 23 23 1
000543C 88 IAR-SYNC-ONLINE-RUNNING VALUE 'O'.
000544C 88 IAR-SYNC-ONLINE-DOWN VALUE 'D'.
000545C 88 IAR-SYNC-POSTING-DONE VALUE 'P'.
000546C 88 IAR-SYNC-BILLING-DONE VALUE 'B'.
BLF=2 017 000547C 05 FILLER PIC X(9). 24 32 9
000548C
BLF=2 000 000549C 01 IAR-KPIARRC. IAR-KPIARRC 3212OG
BLF=2 000 000550C 05 IAR-REC-KEY. 1 16 16
BLF=2 000 000551C 10 IAR-REC-TYPE PIC X(01). 1 1 1
000552C 88 IAR-DATA-REC VALUE 'D'.
BLF=2 001 000553C 10 IAR-INST-CD PIC X(01). 2 2 1
BLF=2 002 000554C 10 IAR-CPI-NBR-PREFIX PIC X(01). 3 3 1
BLF=2 003 000555C 10 IAR-CPI-NBR PIC S9(09) COMP-3. 4 8 5
BLF=2 008 000556C 10 IAR-VISIT-NBR PIC S9(04) COMP-3. 9 11 3
BLF=2 00B 000557C 10 IAR-ENT-CD PIC X(02). 12 13 2
BLF=2 00D 000558C 10 IAR-REC-NBR PIC S9(05) COMP-3. 14 16 3
BLF=2 010 000559C 05 IAR-LAST-UPDATE. 17 43 27
BLF=2 010 000560C 10 IAR-UPDT-ID PIC X(10). 17 26 10
BLF=2 01A 000561C 10 IAR-UPDT-INITIALS PIC X(03). 27 29 3
BLF=2 01D 000562C 10 IAR-UPDT-DT PIC S9(05) COMP-3. 30 32 3
BLF=2 020 000563C 10 IAR-UPDT-TM PIC S9(04) COMP-3. 33 35 3
BLF=2 023 000564C 10 IAR-UPDT-TRAN PIC X(04). 36 39 4
BLF=2 027 000565C 10 IAR-UPDT-TERM PIC X(04). 40 43 4
BLF=2 02B 000566C 05 IAR-IAR-INFO. 44 363 320OG
BLF=2 02B 000567C 10 IAR-PROV-NBR PIC S9(05) COMP-3. 44 46 3
BLF=2 02E 000568C 10 IAR-SRV-DT PIC S9(05) COMP-3. 47 49 3
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 14 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=2 031 000569C 10 IAR-ICO-CD PIC X(03). 50 52 3
BLF=2 034 000570C 10 IAR-SEQ-NBR PIC X(02). 53 54 2
BLF=2 036 000571C 10 IAR-INS-TYPE PIC X(01). 55 55 1
BLF=2 037 000572C 10 IAR-COB-SEQ PIC X(01). 56 56 1
000573C * 3.07014 BEGIN *************************************************
000574C * 10 :IAR:-CLAIM-NBR PIC S9(07) COMP-3.
BLF=2 038 000575C 10 IAR-CLAIM-NBR PIC S9(08) COMP-3. 57 61 5
000576C * 3.07014 END ***************************************************
BLF=2 03D 000577C 10 IAR-POST-FROM-DT PIC S9(05) COMP-3. 62 64 3
BLF=2 040 000578C 10 IAR-POST-THRU-DT PIC S9(05) COMP-3. 65 67 3
BLF=2 043 000579C 10 IAR-BILLED-DT PIC S9(05) COMP-3. 68 70 3
BLF=2 046 000580C 10 IAR-MAILED-DT PIC S9(05) COMP-3. 71 73 3
BLF=2 049 000581C 10 IAR-EMPLOYER-ID PIC X(06). 74 79 6
BLF=2 04F 000582C 10 IAR-INSURED-NM PIC X(25). 80 104 25
BLF=2 068 000583C 10 IAR-GRP-NBR PIC X(20). 105 124 20
BLF=2 07C 000584C 10 IAR-INSURED-ID PIC X(20). 125 144 20
BLF=2 090 000585C 10 IAR-INSURED-REL-TO-PAT PIC X(02). 145 146 2
BLF=2 092 000586C 10 IAR-INVERT-FROM-DATE PIC X(08). 147 154 8
BLF=2 09A 000587C 10 IAR-BENEFIT-DYS PIC S9(03) COMP-3. 155 156 2
BLF=2 09C 000588C 10 IAR-TOTAL-CHGS PIC S9(09)V99 COMP-3. 157 162 6
BLF=2 0A2 000589C 10 IAR-COVD-CHGS PIC S9(09)V99 COMP-3. 163 168 6
BLF=2 0A8 000590C 10 IAR-DEDUCT-AMT PIC S9(09)V99 COMP-3. 169 174 6
BLF=2 0AE 000591C 10 IAR-COINS-AMT PIC S9(09)V99 COMP-3. 175 180 6
BLF=2 0B4 000592C 10 IAR-COB-EST-AMT PIC S9(09)V99 COMP-3. 181 186 6
BLF=2 0BA 000593C 10 IAR-PAID-AMT PIC S9(09)V99 COMP-3. 187 192 6
BLF=2 0C0 000594C 10 IAR-APPRV-AMT PIC S9(09)V99 COMP-3. 193 198 6
BLF=2 0C6 000595C 10 IAR-CONTRACT-ADJ-BILL PIC S9(09)V99 COMP-3. 199 204 6
BLF=2 0CC 000596C 10 IAR-CONTRACT-ADJ-POST PIC S9(09)V99 COMP-3. 205 210 6
BLF=2 0D2 000597C 10 IAR-DRG PIC X(03). 211 213 3
BLF=2 0D5 000598C 10 IAR-OUTLIER-CD PIC X(01). 214 214 1
BLF=2 0D6 000599C 10 IAR-PROF-COMP-IND PIC X(01). 215 215 1
BLF=2 0D7 000600C 10 IAR-CLAIM-FROM-DT PIC S9(05) COMP-3. 216 218 3
BLF=2 0DA 000601C 10 IAR-CLAIM-THRU-DT PIC S9(05) COMP-3. 219 221 3
BLF=2 0DD 000602C 10 IAR-CLAIM-SUSP-IND PIC X(01). 222 222 1
BLF=2 0DE 000603C 10 IAR-DELAY-BILL-IND PIC X(01). 223 223 1
BLF=2 0DF 000604C 10 IAR-DELAY-ADJ-AMT PIC S9(09)V99 COMP-3. 224 229 6
BLF=2 0E5 000605C 10 IAR-LST-ACTION-DT PIC S9(05) COMP-3. 230 232 3
BLF=2 0E8 000606C 10 IAR-STATUS-CD PIC X(01). 233 233 1
BLF=2 0E9 000607C 10 IAR-SPLIT-DATA. 234 243 10
BLF=2 0E9 000608C 15 IAR-SPLIT-SEQ PIC S9(03) COMP-3. 234 235 2
BLF=2 0EB 000609C 15 IAR-SPLIT-TYPE PIC X(01). 236 236 1
BLF=2 0EC 000610C 15 IAR-SPLIT-FIELD PIC X(07). 237 243 7
BLF=2 0F3 000611C 10 IAR-PREV-STATUS-CD PIC X(01). 244 244 1
BLF=2 0F4 000612C 10 IAR-ICN-DCN PIC X(23). 245 267 23
BLF=2 10B 000613C 10 IAR-CLAIM-ELEC-IND PIC X(01). 268 268 1
000614C * 3.07014 BEGIN *************************************************
000615C * 10 :IAR:-RESERVED-FILLER PIC X(39).
BLF=2 10C 000616C 10 IAR-PLI-NBR-DATA-ENTRIES PIC S9(01). 269 269 1 D
BLF=2 10D 000617C 10 IAR-CRM-NBR-ACCT-ENTRIES PIC S9(03) COMP-3. 270 271 2 D
BLF=2 10F 000618C 10 IAR-CRM-NBR-CHG-ENTRIES PIC S9(03) COMP-3. 272 273 2 D
BLF=2 111 000619C 10 IAR-ACTION-CD PIC X(01). 274 274 1
BLF=2 112 000620C 10 IAR-REMIT-ADV-CD PIC X(09). 275 283 9
BLF=2 11B 000621C 10 IAR-CLAIM-TYPE PIC X(01). 284 284 1
000622C 88 IAR-UB92 VALUE 'U'.
000623C 88 IAR-1500 VALUE 'H'.
BLF=2 11C 000624C 10 IAR-REPRINT-IND PIC X(01). 285 285 1
BLF=2 11D 000625C 10 IAR-REPRINT-REQ-DT PIC S9(05) COMP-3. 286 288 3
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 15 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=2 120 000626C 10 IAR-RWS-LST-LETTER-CD PIC X(02). 289 290 2
BLF=2 122 000627C 10 IAR-RWS-LST-LETTER-DT PIC S9(05) COMP-3. 291 293 3
000628C * 3.07317 BEGIN *************************************************
000629C * 10 :IAR:-RESERVED-FILLER PIC X(30).
000630C * 3.07014 END ***************************************************
BLF=2 125 000631C 10 IAR-APC-PRICER-TYPE PIC X(01). 294 294 1
000632C 88 IAR-APC-ASC-PRICER VALUE 'A'.
000633C 88 IAR-APC-HOPDS-PRICER VALUE 'H'.
000634C * 3.07646 BEGIN *************************************************
000635C * 10 :IAR:-RESERVED-FILLER PIC X(29).
000636C * 3.07317 END ***************************************************
BLF=2 126 000637C 10 IAR-APC-REB-REJECT-FLAG PIC X(1). 295 295 1
000638C 88 IAR-APC-REB-REJECT VALUE 'R'.
BLF=2 127 000639C 10 IAR-RESERVED-FILLER PIC X(28). 296 323 28
000640C * 3.07646 END ***************************************************
000641C * UMH.3.3.3.15 DAL ADD FIELDS FOR INS CROSSOVER 08-15-97 *
000642C * 10 :IAR:-USER-FILLER PIC X(40).
BLF=2 143 000643C 10 IAR-USER-FILLER PIC X(31). 324 354 31
BLF=2 162 000644C 10 IAR-XOVER-CCR PIC S9(8) COMP-3. 355 359 5
BLF=2 167 000645C 10 IAR-XOVER-TYPE PIC X(3). 360 362 3
BLF=2 16A 000646C 10 IAR-XOVER-FLAG PIC X(1). 363 363 1
000647C * UMH.3.3.3.15 DAL ADD FIELDS FOR INS CROSSOVER 08-15-97 *
BLF=2 16B 000648C 05 IAR-CRM-DATA. 364 425 62
BLF=2 16B 000649C 10 IAR-CRM-CREATION-DT PIC S9(05) COMP-3. 364 366 3
BLF=2 16E 000650C 10 IAR-CRM-PROV-NBR PIC X(05). 367 371 5
BLF=2 173 000651C 10 IAR-CRM-ICO-CD PIC X(03). 372 374 3
BLF=2 176 000652C 10 IAR-CRM-EMPLOYER-ID PIC X(06). 375 380 6
BLF=2 17C 000653C 10 IAR-CRM-PRCS-TYPE PIC X(01). 381 381 1
BLF=2 17D 000654C 10 IAR-CRM-PAT-TYPE PIC X(02). 382 383 2
BLF=2 17F 000655C 10 IAR-CRM-PAT-CLS PIC X(02). 384 385 2
BLF=2 181 000656C 10 IAR-CRM-FIN-CLS PIC X(02). 386 387 2
BLF=2 183 000657C 10 IAR-CRM-PRIMARY-IND PIC X(01). 388 388 1
000658C 88 IAR-CRM-PRI-PAYOR VALUE 'Y'.
000659C 88 IAR-CRM-NON-PRI-PAYOR VALUE 'N'.
BLF=2 184 000660C 10 IAR-CRM-EFFECT-DT PIC S9(05) COMP-3. 389 391 3
BLF=2 187 000661C 10 IAR-CRM-EFFECT-BASIS PIC X(01). 392 392 1
000662C 88 IAR-CRM-EFFECT-ADM-D VALUE 'A'.
000663C 88 IAR-CRM-EFFECT-DIS-DT VALUE 'D'.
000664C 88 IAR-CRM-EFFECT-SRV-DT VALUE 'S'.
000665C 88 IAR-CRM-EFFECT-BILL-DT VALUE 'B'.
BLF=2 188 000666C 10 IAR-CRM-REIMB-METHOD PIC X(01). 393 393 1
000667C 88 IAR-TYPE-ACCT VALUE 'A'.
000668C 88 IAR-TYPE-CHARGE VALUE 'C'.
BLF=2 189 000669C 10 IAR-CRM-REPT-GROUP-ID PIC X(06). 394 399 6
BLF=2 18F 000670C 10 IAR-CRM-CLAIM-STMT-IND PIC X(01). 400 400 1
000671C 88 IAR-CRM-BEFORE-DISC VALUE 'B'.
000672C 88 IAR-CRM-DISCOUNT VALUE 'D' ' '.
BLF=2 190 000673C 10 IAR-CRM-CHG-TYPE PIC X(01). 401 401 1
000674C 88 IAR-CRM-CHG-BY-DEPT VALUE 'D'.
000675C 88 IAR-CRM-CHG-BY-UB82 VALUE 'U'.
000676C 88 IAR-CRM-CHG-BY-ICC VALUE 'C'.
000677C * 3.07014 BEGIN *************************************************
000678C * 10 :IAR:-CRM-RESERVED-FILLER PIC X(10).
000679C * 10 :IAR:-CRM-USER-FILLER PIC X(10).
000680C * 10 :IAR:-CRM-NBR-ACCT-ENTRIES PIC S9(03) COMP-3.
000681C * 10 :IAR:-CRM-NBR-CHG-ENTRIES PIC S9(03) COMP-3.
BLF=2 191 000682C 10 IAR-CRM-RESERVED-FILLER PIC X(14). 402 415 14
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 16 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLF=2 19F 000683C 10 IAR-CRM-USER-FILLER PIC X(10). 416 425 10
BLF=2 16B 000684C 05 IAR-PLI-DATA REDEFINES IAR-CRM-DATA. 364 425 62 R
BLF=2 16B 000685C 10 IAR-PLI-INS-TYP PIC X(01). 364 364 1
BLF=2 16C 000686C 10 IAR-PLI-ICO-CD PIC X(03). 365 367 3
BLF=2 16F 000687C 10 IAR-PLI-PRCS-TYPE PIC X(01). 368 368 1
BLF=2 170 000688C 10 IAR-PLI-PAT-TYPE PIC X(02). 369 370 2
BLF=2 172 000689C 10 IAR-PLI-EMPLOYER-ID PIC X(06). 371 376 6
BLF=2 178 000690C 10 IAR-PLI-PAT-CLS PIC X(02). 377 378 2
BLF=2 17A 000691C 10 IAR-PLI-BENEFIT-CD PIC X(15). 379 393 15
BLF=2 189 000692C 10 IAR-PLI-GROUP-NBR PIC X(20). 394 413 20
BLF=2 19D 000693C 10 IAR-PLI-EFFECT-DT PIC S9(05) COMP-3. 414 416 3
BLF=2 1A0 000694C 10 IAR-PLI-PROC-CD PIC X(05). 417 421 5
BLF=2 1A5 000695C 10 IAR-PLI-PL-SRV PIC X(02). 422 423 2
BLF=2 1A7 000696C 10 IAR-PLI-TYPE-SRV PIC X(02). 424 425 2
000697C * 3.07014 END ***************************************************
BLF=2 1A9 000698C 05 IAR-CRM-ACCT-TBL OCCURS 0 TO 10 TIMES DEPENDING 426 945 52 O
000699C ON IAR-CRM-NBR-ACCT-ENTRIES.
BLF=2 1A9 000700C 10 IAR-CRM-ENTRY OCCURS 3 TIMES. 426 449 8 O
BLF=2 1A9 000701C 15 IAR-CRM-BASIS-TYPE PIC X(01). 426 426 1
000702C 88 IAR-CRM-CPT4 VALUE 'C'.
000703C 88 IAR-CRM-DX VALUE 'D'.
000704C 88 IAR-CRM-DX-ER VALUE 'E'.
000705C 88 IAR-CRM-DRG VALUE 'G'.
000706C 88 IAR-CRM-CLAIM-CLS VALUE 'L'.
000707C 88 IAR-CRM-PROC VALUE 'P'.
000708C 88 IAR-CRM-SRV-TYPE VALUE 'S'.
000709C 88 IAR-CRM-AGE-BY-MONTHS VALUE 'M'.
000710C 88 IAR-CRM-AGE-BY-DAYS VALUE 'A'.
000711C 88 IAR-CRM-AGE-BY-YEARS VALUE 'Y'.
BLF=2 1AA 000712C 15 IAR-CRM-BASIS-VALUE PIC X(07). 427 433 7
BLF=2 1AA 000713C 15 FILLER REDEFINES IAR-CRM-BASIS-VALUE. 427 433 7 R
BLF=2 1AA 000714C 20 IAR-BASIS-FIRST-3 PIC X(03). 427 429 3
BLF=2 1AD 000715C 20 IAR-BASIS-FILLER PIC X(04). 430 433 4
BLF=2 1AA 000716C 15 FILLER REDEFINES IAR-CRM-BASIS-VALUE. 427 433 7 R
BLF=2 1AA 000717C 20 IAR-BASIS-AGE-AT PIC X(01). 427 427 1
BLF=2 1AB 000718C 20 IAR-BASIS-AGE PIC 9(03). 428 430 3
BLF=2 1AE 000719C 20 IAR-BASIS-FILLER1 PIC X(03). 431 433 3
BLF=2 1C1 000720C 10 IAR-CRM-REIMBURSEMENT. 450 477 28
BLF=2 1C1 000721C 15 IAR-CRM-METHOD-TYPE PIC X(01). 450 450 1
000722C 88 IAR-CRM-COST-OUTLIER VALUE 'C'.
000723C 88 IAR-CRM-DYS-OUTLIER VALUE 'D'.
000724C 88 IAR-CRM-FLAT-PLUS-PCT VALUE 'E'.
000725C 88 IAR-CRM-FLAT-RATE VALUE 'F'.
000726C 88 IAR-CRM-DRG-NON-OUTLIER VALUE 'G'.
000727C 88 IAR-CRM-FLAT-RATE-MONTH VALUE 'M'.
000728C 88 IAR-CRM-PER-DIEM VALUE 'P'.
000729C 88 IAR-CRM-FLAT-RATE-PER-DIEM VALUE 'R'.
000730C 88 IAR-CRM-PCT-COVD-CHGS VALUE 'T'.
000731C 88 IAR-CRM-COVD-DYS-PER-DIEM VALUE 'V'.
000732C 88 IAR-CRM-EXCLUSIONS VALUE 'X'.
BLF=2 1C2 000733C 15 IAR-CRM-CAP-LIMIT PIC X(01). 451 451 1
000734C 88 IAR-CRM-CAP-COVD-CHGS VALUE 'C'.
000735C 88 IAR-CRM-CAP-COVD-DAYS VALUE 'D'.
BLF=2 1C3 000736C 15 IAR-CRM-STOP-LOSS-IND PIC X(01). 452 452 1
000737C 88 IAR-CRM-STOP-LOSS-A VALUE 'A'.
000738C 88 IAR-CRM-STOP-LOSS-B VALUE 'B'.
000739C 88 IAR-CRM-STOP-LOSS-C VALUE 'C'.
BASE DISPL STMT SEQ. COBOL PROCESSOR TSI150P 14:59:09 16-MAR-05 PAGE 17 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000740C 88 IAR-CRM-STOP-LOSS-D VALUE 'D'.
000741C 88 IAR-CRM-STOP-LOSS-E VALUE 'E'.
000742C 88 IAR-CRM-STOP-LOSS-F VALUE 'F'.
000743C 88 IAR-CRM-STOP-LOSS-G VALUE 'G'.
000744C 88 IAR-CRM-STOP-LOSS-H VALUE 'H'.
BLF=2 1C4 000745C 15 IAR-CRM-DYS PIC S9(05) COMP-3. 453 455 3
BLF=2 1C7 000746C 15 IAR-CRM-DYS-THIS-BILL PIC S9(05) COMP-3. 456 458 3
BLF=2 1CA 000747C 15 IAR-CRM-RATE PIC S9(09)V9(04) COMP-3. 459 465 7
BLF=2 1D1 000748C 15 IAR-CRM-ENTRY-AMT PIC S9(09)V99 COMP-3. 466 471 6
BLF=2 1D7 000749C 15 IAR-CRM-ENTRY-AMT-THIS-BILL 472 477 6
000750C PIC S9(09)V99 COMP-3.
BLV=0 000 000751C 05 IAR-CRM-CHG-SMRY-TBL OCCURS 0 TO 100 TIMES DEPENDING 946 3145 22 O
000752C ON IAR-CRM-NBR-CHG-ENTRIES.
BLV=0 000 000753C 10 IAR-CRM-CHG-SMRY-CD PIC X(04). 946 949 4
BLV=0 004 000754C 10 IAR-CRM-CHG-SMRY-ORIG PIC S9(09)V99 COMP-3. 950 955 6
BLV=0 00A 000755C 10 IAR-CRM-CHG-SMRY-DISC PIC S9(09)V99 COMP-3. 956 961 6
BLV=0 010 000756C 10 IAR-CRM-CHG-SMRY-COVD PIC S9(09)V99 COMP-3. 962 967 6
000757C * 3.07014 BEGIN *************************************************
BLV=1 000 000758C 05 IAR-PLI-DATA-TBL OCCURS 0 TO 1 TIMES DEPENDING 3146 3212 67 O
000759C ON IAR-PLI-NBR-DATA-ENTRIES.
BLV=1 000 000760C 10 IAR-PLI-BASIS-IND PIC X(01). 3146 3146 1
000761C 88 IAR-PLI-COV-BASIS VALUE 'C'.
000762C 88 IAR-PLI-NON-COV-BASIS VALUE 'X'.
BLV=1 001 000763C 10 IAR-PLI-BASIS-TYPE PIC X(01). 3147 3147 1
BLV=1 002 000764C 10 IAR-PLI-BASIS-CODE PIC X(09). 3148 3156 9
BLV=1 00B 000765C 10 IAR-PLI-REPORT-GRP PIC X(06). 3157 3162 6
BLV=1 011 000766C 10 IAR-PLI-COPAY-TYPE PIC X(01). 3163 3163 1
BLV=1 012 000767C 10 IAR-PLI-COPAY-AMT PIC S9(09)V99 COMP-3. 3164 3169 6
BLV=1 018 000768C 10 IAR-PLI-COINS-AMT PIC S9(03)V99 COMP-3. 3170 3172 3
BLV=1 01B 000769C 10 IAR-PLI-QTY PIC S9(05) COMP-3. 3173 3175 3
BLV=1 01E 000770C 10 IAR-PLI-CHG-REC-NBR PIC S9(05) COMP-3. 3176 3178 3
BLV=1 021 000771C 10 IAR-PLI-MOD-TBL OCCURS 8 TIMES. 3179 3194 2 O
BLV=1 021 000772C 15 IAR-PLI-MOD-CD PIC X(02). 3179 3180 2
BLV=1 031 000773C 10 IAR-PLI-RESERVED-FILLER PIC X(08). 3195 3202 8
BLV=1 039 000774C 10 IAR-PLI-USER-FILLER PIC X(10). 3203 3212 10
000775C * 3.07014 END ***************************************************
000776 *
000777
VSAM FILE 000778 FD KPCHGMD-IN. ** VARIABLE LENGTH RECORDS **
000779 COPY KPCHGRC REPLACING == :CHG: == BY == CHG ==.
000780C *****************************************************************
000781C * COPYBOOK ID: KPCHGRC - PATIENT ACCOUNT CHARGE FILE *
000782C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000783C * *
000784C * CONTIANS PATIENT ACCOUNT CHARGE INFORMATION, PROFESSIONAL *
000785C * COMPONENT DATA, ROOM AND BED DATA AND PHYSICIAN CHARGE DATA. *
000786C *****************************************************************
000787C * S O F T W A R E M A I N T E N A N C E *
000788C *****************************************************************
000789C * SCN PGR DESCRIPTION RELEASE *