Cobol Manuals
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 4 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000001 IDENTIFICATION DIVISION. CROSSREF
000002 PROGRAM-ID. YAAPMMD. CROSSREF
000003 AUTHOR. DON RITTER. CROSSREF
000004 DATE-WRITTEN. APR 2004. CROSSREF
000005 DATE-COMPILED. 03/15/05. CROSSREF
000006 CROSSREF
000007 ENVIRONMENT DIVISION. CROSSREF
000008 CONFIGURATION SECTION. CROSSREF
000009 SOURCE-COMPUTER. IBM-3090. CROSSREF
000010 OBJECT-COMPUTER. IBM-3090. CROSSREF
000011 SPECIAL-NAMES. CROSSREF
000012 C01 IS TOP-OF-PAGE. CROSSREF
000013 CROSSREF
000014 INPUT-OUTPUT SECTION. CROSSREF
000015 FILE-CONTROL. CROSSREF
000016 CROSSREF
000017 DATA DIVISION. CROSSREF
000018 CROSSREF
000019 FILE SECTION. CROSSREF
000020 CROSSREF
000021 WORKING-STORAGE SECTION. CROSSREF
000022
BLW=0 000 000023 01 WORK-VARIABLES. WORK-VARIABLES 38
BLW=0 000 000024 02 XVAR PIC X(30). 1 30 30
BLW=0 01E 000025 02 NVAR PIC 9(08). 31 38 8
000026
BLW=0 028 000027 01 YAAPVMD-RECORD. YAAPVMD-RECORD 2560
000028 COPY YAAPVRC.
000029C *****************************************************************
000030C * COPYBOOK ID: YAAPVRC - PATIENT VISIT DATA *
000031C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000032C * *
000033C *****************************************************************
000034C * S O F T W A R E M A I N T E N A N C E *
000035C *****************************************************************
000036C * SCN PGR DESCRIPTION RELEASE *
000037C * *
000038C * HEALTHQUEST RELEASE 3.0 01-31-94 *
000039C * 3.04101 KMB AUTO-DEPART/AUTO-CLOSE 3.9 *
000040C * 3.06487 RFS MSPQ ADDITIONS 3.9 *
000041C * 3.07322 KMB ADD MSPQ CONDITION CODES 6.0 *
000042C * 3.07346 LY APM FILE EXPANSION (RE-RELEASE) 6.0 *
000043C * 3.07619 JSB MULTI DX AND PROC (PAR 902) 7.0 *
000044C * 3.0???? ___ _______________________________ N.N.N *
000045C *****************************************************************
000046C *****************************************************************
000047C * U OF M S O F T W A R E M A I N T E N A N C E *
000048C *****************************************************************
000049C * TASK# (OR) ASR PGM DESCRIPTION EFF DATE*
000050C * M001 UMH H934 ADD BIRTH WEIGHT IN GRAMS 01/01/96*
000051C * M001 UMH H934 CONVERT TO P.M. 3.0 - APPLY 2.0 MODS: *
000052C * CHG LENGTH OF APV-REFER-HOSP-ID *
000053C * CHG LENGTH OF APV-PRIOR-INST-ID (1) *
000054C * CHG LENGTH OF APV-PRIOR-INST-ID (2) *
000055C * CHG LENGTH OF APV-REF-ID *
000056C * CHG LENGTH OF APV-FAM-ID *
000057C * ADD APV-REF-SEQ-NBR *
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 5 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000058C * ADD APV-FAM-SEQ-NBR 01/02/96*
000059C * M001 UMH H910 ADD REDEFINES OF KEY FOR HPA 05/07/97*
000060C * -------------- ---- ---------------------------- --/--/--*
000061C *****************************************************************
BLW=0 028 000062C 03 APV-KEY. 1 19 19
BLW=0 028 000063C 05 APV-HOSP PIC X. 1 1 1
BLW=0 029 000064C 05 APV-ACCT-NBR. 2 15 14
BLW=0 029 000065C 07 APV-CPI-NBR PIC X(10). 2 11 10
BLW=0 033 000066C 07 APV-VISIT PIC X(04). 12 15 4
000067C * M001 UMH-BEG- H910 ADD REDEFINES OF KEY FOR HPA 05/07/97*
BLW=0 029 000068C 05 APV-ACCT-NBR-HPA REDEFINES APV-ACCT-NBR. 2 15 14 R
BLW=0 029 000069C 07 APV-CPI-NBR-PREFIX-HPA PIC X(01). 2 2 1
BLW=0 02A 000070C 07 APV-CPI-NBR-HPA PIC 9(09). 3 11 9
BLW=0 033 000071C 07 APV-VISIT-HPA PIC 9(04). 12 15 4
000072C * M001 UMH-END- H910 ADD REDEFINES OF KEY FOR HPA 05/07/97*
BLW=0 037 000073C 05 APV-REC-TYPE PIC X. 16 16 1
000074C 88 PATIENT-DATA VALUE 'A'.
BLW=0 038 000075C 05 APV-REC-SEQ PIC X(03). 17 19 3
000076C 88 APV-REC VALUE '001'.
BLW=0 03B 000077C 03 APV-INTERVENING-UPDATE PIC X. 20 20 1
BLW=0 03C 000078C 03 APV-LAST-UPDATE. 21 53 33
BLW=0 03C 000079C 05 APV-UPDT-ID PIC X(10). 21 30 10
BLW=0 046 000080C 05 APV-UPDT-INITIALS PIC X(03). 31 33 3
BLW=0 049 000081C 05 APV-UPDT-DATE PIC X(08). 34 41 8
BLW=0 051 000082C 05 APV-UPDT-TIME PIC X(04). 42 45 4
BLW=0 055 000083C 05 APV-UPDT-TRAN PIC X(04). 46 49 4
BLW=0 059 000084C 05 APV-UPDT-TERM PIC X(04). 50 53 4
BLW=0 05D 000085C 03 APV-INCOMPLETE-ADM-REG PIC X. 54 54 1
BLW=0 05E 000086C 03 APV-PERSON. 55 85 31
BLW=0 05E 000087C 05 APV-NAME PIC X(25). 55 79 25
BLW=0 077 000088C 05 APV-NAME-TITLE PIC X(03). 80 82 3
BLW=0 07A 000089C 05 APV-NAME-SUFFIX PIC X(03). 83 85 3
BLW=0 07D 000090C 03 APV-SS-NBR PIC X(10). 86 95 10
BLW=0 087 000091C 03 APV-MR-NBR PIC X(10). 96 105 10
BLW=0 091 000092C 03 APV-SEX PIC X. 106 106 1
BLW=0 092 000093C 03 APV-RACE PIC X. 107 107 1
BLW=0 093 000094C 03 APV-DOB PIC X(08). 108 115 8
BLW=0 09B 000095C 03 APV-CONFIDENTIAL-LEVEL PIC X(02). 116 117 2
BLW=0 09D 000096C 03 APV-VIP-CODE PIC X(02). 118 119 2
BLW=0 09F 000097C 03 APV-VIP-TYPE PIC X. 120 120 1
BLW=0 0A0 000098C 03 APV-SMOKER PIC X. 121 121 1
BLW=0 0A1 000099C 03 APV-GUARANTOR. 122 133 12
BLW=0 0A1 000100C 05 APV-GUAR-CPI-NBR PIC X(10). 122 131 10
BLW=0 0AB 000101C 05 APV-GUAR-REL-TO-PAT PIC X(02). 132 133 2
BLW=0 0AD 000102C 03 APV-NEAREST-RELATIVE. 134 477 344
BLW=0 0AD 000103C 05 APV-NR-REL-TO-PAT PIC X(02). 134 135 2
BLW=0 0AF 000104C 05 APV-NR-NAME PIC X(25). 136 160 25
BLW=0 0C8 000105C 05 APV-NR-ADDR1 PIC X(25). 161 185 25
BLW=0 0E1 000106C 05 APV-NR-ADDR2 PIC X(25). 186 210 25
BLW=0 0FA 000107C 05 APV-NR-CITY PIC X(18). 211 228 18
BLW=0 10C 000108C 05 APV-NR-STATE PIC X(02). 229 230 2
BLW=0 10E 000109C 05 APV-NR-ZIP PIC X(09). 231 239 9
BLW=0 117 000110C 05 APV-NR-COUNTY PIC X(05). 240 244 5
BLW=0 11C 000111C 05 APV-NR-COUNTRY PIC X(03). 245 247 3
BLW=0 11F 000112C 05 APV-NR-TELE PIC X(10). 248 257 10
BLW=0 129 000113C 05 APV-NR-TELE-EXT PIC X(06). 258 263 6
BLW=0 12F 000114C 05 APV-NR-SS-NBR PIC X(10). 264 273 10
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 6 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 139 000115C 05 APV-NR-DOB PIC X(08). 274 281 8
BLW=0 141 000116C 05 APV-NR-EMP-CODE PIC X(06). 282 287 6
BLW=0 147 000117C 05 APV-NR-EMP-NAME PIC X(25). 288 312 25
BLW=0 160 000118C 05 APV-NR-EMP-ADDR1 PIC X(25). 313 337 25
BLW=0 179 000119C 05 APV-NR-EMP-ADDR2 PIC X(25). 338 362 25
BLW=0 192 000120C 05 APV-NR-EMP-CITY PIC X(18). 363 380 18
BLW=0 1A4 000121C 05 APV-NR-EMP-STATE PIC X(02). 381 382 2
BLW=0 1A6 000122C 05 APV-NR-EMP-ZIP PIC X(09). 383 391 9
BLW=0 1AF 000123C 05 APV-NR-EMP-COUNTRY PIC X(03). 392 394 3
BLW=0 1B2 000124C 05 APV-NR-WORK-STATUS PIC X. 395 395 1
BLW=0 1B3 000125C 05 APV-NR-WORK-OCCUPAT PIC X(25). 396 420 25
BLW=0 1CC 000126C 05 APV-NR-WORK-ID PIC X(15). 421 435 15
BLW=0 1DB 000127C 05 APV-NR-WORK-DEPT PIC X(10). 436 445 10
BLW=0 1E5 000128C 05 APV-NR-WORK-TELE PIC X(10). 446 455 10
BLW=0 1EF 000129C 05 APV-NR-WORK-TELE-EXT PIC X(06). 456 461 6
BLW=0 1F5 000130C 05 APV-NR-WORK-FROM-DATE PIC X(08). 462 469 8
BLW=0 1FD 000131C 05 APV-NR-WORK-THRU-DATE PIC X(08). 470 477 8
BLW=0 205 000132C 03 APV-NEWBORN. 478 543 66
BLW=0 205 000133C 05 APV-MOMS-NAME-KEPT PIC X. 478 478 1
BLW=0 206 000134C 05 APV-MOTHER-ACCT. 479 492 14
BLW=0 206 000135C 07 APV-MOTHER-CPI-NBR PIC X(10). 479 488 10
BLW=0 210 000136C 07 APV-MOTHER-VISIT PIC X(04). 489 492 4
BLW=0 214 000137C 05 APV-FATHERS-NAME PIC X(25). 493 517 25
BLW=0 22D 000138C 05 APV-BIRTHPLACE PIC X(25). 518 542 25
BLW=0 246 000139C 05 APV-BOARDER PIC X. 543 543 1
BLW=0 247 000140C 03 APV-EMERGENCY-CONTACT. 544 596 53
BLW=0 247 000141C 05 APV-EMER-REL-TO-PAT PIC X(02). 544 545 2
BLW=0 249 000142C 05 APV-EMER-NAME PIC X(25). 546 570 25
BLW=0 262 000143C 05 APV-EMER-HOME-TELE PIC X(10). 571 580 10
BLW=0 26C 000144C 05 APV-EMER-WORK-TELE PIC X(10). 581 590 10
BLW=0 276 000145C 05 APV-EMER-WORK-TELE-EXT PIC X(06). 591 596 6
BLW=0 27C 000146C 03 APV-ACCIDENT-INFO. 597 710 114
BLW=0 27C 000147C 05 APV-ACC-DATE PIC X(08). 597 604 8
BLW=0 284 000148C 05 APV-ACC-TIME PIC X(04). 605 608 4
BLW=0 288 000149C 05 APV-ACC-TYPE PIC X(02). 609 610 2
BLW=0 28A 000150C 05 APV-ACC-PLACE PIC X(25). 611 635 25
BLW=0 2A3 000151C 05 APV-ACC-NATURE PIC X(25). 636 660 25
BLW=0 2BC 000152C 05 APV-ACC-POLICE-NTFY PIC X(25). 661 685 25
BLW=0 2D5 000153C 05 APV-ACC-BRT-IN-BY PIC X(25). 686 710 25
BLW=0 2EE 000154C 03 APV-REFER-HOSP. 711 752 42
BLW=0 2EE 000155C 05 APV-REFER-TYPE PIC X(02). 711 712 2
000156C **M001 UMH H934 BEGIN CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
000157C * 05 APV-REFER-HOSP-ID PIC X(15).
BLW=0 2F0 000158C 05 APV-REFER-HOSP-ID PIC X(05). 713 717 5
BLW=0 2F5 000159C 05 FILLER PIC X(10). 718 727 10
000160C **M001 UMH H934 END CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
BLW=0 2FF 000161C 05 APV-REFER-HOSP-NAME PIC X(25). 728 752 25
BLW=0 318 000162C 03 APV-PRIOR-ADMIT. 753 926 174
BLW=0 318 000163C 05 FILLER OCCURS 2 TIMES. 753 926 87 O
BLW=0 318 000164C 07 APV-PRIOR-INST-TYPE PIC X(02). 753 754 2
000165C **M001 UMH H934 BEGIN CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
000166C * 07 APV-PRIOR-INST-ID PIC X(15).
BLW=0 31A 000167C 07 APV-PRIOR-INST-ID PIC X(05). 755 759 5
BLW=0 31F 000168C 07 FILLER PIC X(10). 760 769 10
000169C **M001 UMH H934 END CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
BLW=0 329 000170C 07 APV-PRIOR-INST-NAME PIC X(25). 770 794 25
BLW=0 342 000171C 07 APV-PRIOR-ADM-DATE PIC X(08). 795 802 8
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 7 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 34A 000172C 07 APV-PRIOR-DSCH-DATE PIC X(08). 803 810 8
BLW=0 352 000173C 07 APV-PRIOR-CITY PIC X(18). 811 828 18
BLW=0 364 000174C 07 APV-PRIOR-STATE PIC X(02). 829 830 2
BLW=0 366 000175C 07 APV-PRIOR-ZIP PIC X(09). 831 839 9
BLW=0 3C6 000176C 03 APV-STUDENT. 927 928 2
BLW=0 3C6 000177C 05 APV-STUDENT-STATUS PIC X. 927 927 1
BLW=0 3C7 000178C 05 APV-STUDENT-CLASS PIC X. 928 928 1
BLW=0 3C8 000179C 03 APV-CHURCH-NTFY PIC X. 929 929 1
BLW=0 3C9 000180C 03 APV-COMMUNION PIC X. 930 930 1
BLW=0 3CA 000181C 03 APV-CHAPLAIN-NOTIFY PIC X. 931 931 1
BLW=0 3CB 000182C 03 FILLER OCCURS 5 TIMES. 932 941 2 O
BLW=0 3CB 000183C 05 APV-COND-CODE PIC X(02). 932 933 2
BLW=0 3D5 000184C 03 FILLER OCCURS 5 TIMES. 942 991 10 O
BLW=0 3D5 000185C 05 APV-OCC-CODE PIC X(02). 942 943 2
BLW=0 3D7 000186C 05 APV-OCC-DATE PIC X(08). 944 951 8
BLW=0 407 000187C 03 FILLER OCCURS 3 TIMES. 992 1045 18 O
BLW=0 407 000188C 05 APV-SPAN-CODE PIC X(02). 992 993 2
BLW=0 409 000189C 05 APV-SPAN-FROM-DATE PIC X(08). 994 1001 8
BLW=0 411 000190C 05 APV-SPAN-THRU-DATE PIC X(08). 1002 1009 8
BLW=0 43D 000191C 03 FILLER OCCURS 2 TIMES. 1046 1049 2 O
BLW=0 43D 000192C 05 APV-VALUE-CODE PIC X(02). 1046 1047 2
BLW=0 441 000193C 03 APV-ADMITTING. 1050 1060 11
BLW=0 441 000194C 05 APV-ADM-NBR PIC X(06). 1050 1055 6
BLW=0 447 000195C 05 APV-ADM-GROUP PIC X(05). 1056 1060 5
BLW=0 44C 000196C 03 APV-ATTENDING. 1061 1071 11
BLW=0 44C 000197C 05 APV-ATT-NBR PIC X(06). 1061 1066 6
BLW=0 452 000198C 05 APV-ATT-GROUP PIC X(05). 1067 1071 5
BLW=0 457 000199C 03 APV-RESIDENT-1. 1072 1082 11
BLW=0 457 000200C 05 APV-RES1-NBR PIC X(06). 1072 1077 6
BLW=0 45D 000201C 05 APV-RES1-GROUP PIC X(05). 1078 1082 5
BLW=0 462 000202C 03 APV-RESIDENT-2. 1083 1093 11
BLW=0 462 000203C 05 APV-RES2-NBR PIC X(06). 1083 1088 6
BLW=0 468 000204C 05 APV-RES2-GROUP PIC X(05). 1089 1093 5
BLW=0 46D 000205C 03 APV-SURGEON. 1094 1104 11
BLW=0 46D 000206C 05 APV-SURG-NBR PIC X(06). 1094 1099 6
BLW=0 473 000207C 05 APV-SURG-GROUP PIC X(05). 1100 1104 5
BLW=0 478 000208C 03 APV-REFERRING. 1105 1238 134
000209C **M001 UMH H934 BEGIN CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
000210C * 05 APV-REF-ID PIC X(15).
BLW=0 478 000211C 05 APV-REF-ID PIC X(06). 1105 1110 6
BLW=0 47E 000212C 05 APV-REF-SEQ-NBR PIC X(01). 1111 1111 1
BLW=0 47F 000213C 05 APV-REF-ID-FILLER PIC X(08). 1112 1119 8
000214C **M001 UMH H934 END CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
BLW=0 487 000215C 05 APV-REF-NAME PIC X(25). 1120 1144 25
BLW=0 4A0 000216C 05 APV-REF-GROUP PIC X(05). 1145 1149 5
BLW=0 4A5 000217C 05 APV-REF-TELE PIC X(10). 1150 1159 10
BLW=0 4AF 000218C 05 APV-REF-ADDR1 PIC X(25). 1160 1184 25
BLW=0 4C8 000219C 05 APV-REF-ADDR2 PIC X(25). 1185 1209 25
BLW=0 4E1 000220C 05 APV-REF-CITY PIC X(18). 1210 1227 18
BLW=0 4F3 000221C 05 APV-REF-STATE PIC X(02). 1228 1229 2
BLW=0 4F5 000222C 05 APV-REF-ZIP PIC X(09). 1230 1238 9
BLW=0 4FE 000223C 03 APV-FAMILY. 1239 1293 55
000224C **M001 UMH H934 BEGIN CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
000225C * 05 APV-FAM-ID PIC X(15).
BLW=0 4FE 000226C 05 APV-FAM-ID PIC X(06). 1239 1244 6
BLW=0 504 000227C 05 APV-FAM-SEQ-NBR PIC X(01). 1245 1245 1
BLW=0 505 000228C 05 APV-FAM-ID-FILLER PIC X(08). 1246 1253 8
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 8 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000229C **M001 UMH H934 END CONVERT TO PM 3.0 APPLY 2.0 MODS 02/01/96
BLW=0 50D 000230C 05 APV-FAM-NAME PIC X(25). 1254 1278 25
BLW=0 526 000231C 05 APV-FAM-GROUP PIC X(05). 1279 1283 5
BLW=0 52B 000232C 05 APV-FAM-TELE PIC X(10). 1284 1293 10
BLW=0 535 000233C 03 APV-CONSULTANT-1. 1294 1348 55
BLW=0 535 000234C 05 APV-CON1-ID PIC X(15). 1294 1308 15
BLW=0 544 000235C 05 APV-CON1-NAME PIC X(25). 1309 1333 25
BLW=0 55D 000236C 05 APV-CON1-GROUP PIC X(05). 1334 1338 5
BLW=0 562 000237C 05 APV-CON1-TELE PIC X(10). 1339 1348 10
BLW=0 56C 000238C 03 APV-CONSULTANT-2. 1349 1403 55
BLW=0 56C 000239C 05 APV-CON2-ID PIC X(15). 1349 1363 15
BLW=0 57B 000240C 05 APV-CON2-NAME PIC X(25). 1364 1388 25
BLW=0 594 000241C 05 APV-CON2-GROUP PIC X(05). 1389 1393 5
BLW=0 599 000242C 05 APV-CON2-TELE PIC X(10). 1394 1403 10
BLW=0 5A3 000243C 03 APV-CHIEF-COMPLNT PIC X(55). 1404 1458 55
BLW=0 5DA 000244C 03 APV-ONSET-DATE PIC X(08). 1459 1466 8
BLW=0 5E2 000245C 03 APV-ONSET-TIME PIC X(04). 1467 1470 4
BLW=0 5E6 000246C 03 APV-MEDICAL-CONDITION PIC X. 1471 1471 1
BLW=0 5E7 000247C 03 APV-ACUITY-TYPE PIC X(02). 1472 1473 2
BLW=0 5E9 000248C 03 APV-ACUITY-POINTS PIC X(06). 1474 1479 6
BLW=0 5EF 000249C 03 APV-ISOLATION PIC X(02). 1480 1481 2
BLW=0 5F1 000250C 03 APV-LMP-DATE PIC X(08). 1482 1489 8
BLW=0 5F9 000251C 03 APV-EXP-DELIVERY-DATE PIC X(08). 1490 1497 8
BLW=0 601 000252C 03 APV-INITIAL-ENTRY. 1498 1513 16
BLW=0 601 000253C 05 APV-INIT-PAT-TYPE PIC X(02). 1498 1499 2
BLW=0 603 000254C 05 APV-INIT-PAT-PRCS-TYPE PIC X. 1500 1500 1
BLW=0 604 000255C 05 APV-INIT-REG-PAVILION PIC X. 1501 1501 1
BLW=0 605 000256C 05 APV-INIT-REG-DATE PIC X(08). 1502 1509 8
BLW=0 60D 000257C 05 APV-INIT-REG-TIME PIC X(04). 1510 1513 4
BLW=0 611 000258C 03 APV-FIN-CLASS PIC X(02). 1514 1515 2
BLW=0 613 000259C 03 APV-FIN-CLASS-EFF-DATE PIC X(08). 1516 1523 8
BLW=0 61B 000260C 03 APV-PATIENT-PRCS-TYPE PIC X. 1524 1524 1
BLW=0 61C 000261C 03 APV-PATIENT-TYPE PIC X(02). 1525 1526 2
BLW=0 61E 000262C 03 APV-ADM-REG-PAVILION PIC X. 1527 1527 1
BLW=0 61F 000263C 03 APV-PRE-ADMIT-TESTING. 1528 1544 17
BLW=0 61F 000264C 05 APV-PAT-INDICATOR PIC X. 1528 1528 1
BLW=0 620 000265C 05 APV-PAT-FROM-DATE PIC X(08). 1529 1536 8
BLW=0 628 000266C 05 APV-PAT-THRU-DATE PIC X(08). 1537 1544 8
BLW=0 630 000267C 03 APV-SCHEDULED-DATE PIC X(08). 1545 1552 8
BLW=0 638 000268C 03 APV-SCHEDULED-TIME PIC X(04). 1553 1556 4
BLW=0 63C 000269C 03 APV-ADM-REG-DATE PIC X(08). 1557 1564 8
BLW=0 644 000270C 03 APV-ADM-REG-TIME PIC X(04). 1565 1568 4
BLW=0 648 000271C 03 APV-MODE-OF-ARRIVAL PIC X. 1569 1569 1
BLW=0 649 000272C 03 APV-ADM-REG-TYPE PIC X. 1570 1570 1
BLW=0 64A 000273C 03 APV-ADM-REG-SOURCE PIC X. 1571 1571 1
BLW=0 64B 000274C 03 APV-HOSP-SERVICE PIC X(03). 1572 1574 3
BLW=0 64E 000275C 03 APV-EMER-TRAUMA-NBR PIC X(10). 1575 1584 10
BLW=0 658 000276C 03 APV-INFO-RELEASE PIC X. 1585 1585 1
BLW=0 659 000277C 03 APV-DIET-CODE PIC X(03). 1586 1588 3
BLW=0 65C 000278C 03 APV-PATIENT-CLASS PIC X(02). 1589 1590 2
BLW=0 65E 000279C 03 APV-DISC-PERCENTAGE PIC X(03). 1591 1593 3
BLW=0 661 000280C 03 APV-DEPOSIT-AMOUNT PIC X(06). 1594 1599 6
BLW=0 667 000281C 03 APV-MEDICATION PIC X(08). 1600 1607 8
BLW=0 66F 000282C 03 APV-VALUABLES PIC X(08). 1608 1615 8
BLW=0 677 000283C 03 APV-PATIENT-NOTE PIC X(25). 1616 1640 25
BLW=0 690 000284C 03 APV-COURTESY-DISMISSAL PIC X(02). 1641 1642 2
BLW=0 692 000285C 03 APV-DSCH-APPROVED PIC X. 1643 1643 1
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 9 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 693 000286C 03 APV-CHARGES. 1644 1655 12
BLW=0 693 000287C 05 FILLER OCCURS 3 TIMES. 1644 1649 2 O
BLW=0 693 000288C 07 APV-DAILY-CHARGES PIC X(02). 1644 1645 2
BLW=0 699 000289C 05 FILLER OCCURS 3 TIMES. 1650 1655 2 O
BLW=0 699 000290C 07 APV-ONE-TIME-CHARGES PIC X(02). 1650 1651 2
BLW=0 69F 000291C 03 APV-CONSENTS. 1656 1658 3
BLW=0 69F 000292C 05 APV-SURG-CONSENT PIC X. 1656 1656 1
BLW=0 6A0 000293C 05 APV-MED-CONSENT PIC X. 1657 1657 1
BLW=0 6A1 000294C 05 APV-DONOR-CONSENT PIC X. 1658 1658 1
BLW=0 6A2 000295C 03 APV-LOA-INDICATOR PIC X. 1659 1659 1
BLW=0 6A3 000296C 03 APV-LOA-TYPE PIC X(02). 1660 1661 2
BLW=0 6A5 000297C 03 APV-LOA-DAYS PIC X(03). 1662 1664 3
BLW=0 6A8 000298C 03 APV-LOA-EFF-DATE PIC X(08). 1665 1672 8
BLW=0 6B0 000299C 03 APV-RSV-ISOLATION PIC X(02). 1673 1674 2
BLW=0 6B2 000300C 03 APV-RSV-ROOM-BED. 1675 1680 6
BLW=0 6B2 000301C 05 APV-RSV-ROOM PIC X(04). 1675 1678 4
BLW=0 6B6 000302C 05 APV-RSV-BED PIC X(02). 1679 1680 2
BLW=0 6B8 000303C 03 APV-ENTITY-CODE PIC X(02). 1681 1682 2
BLW=0 6BA 000304C 03 APV-REQUESTED-ACCOM PIC X(02). 1683 1684 2
BLW=0 6BC 000305C 03 APV-REASON-PRIVATE PIC X(02). 1685 1686 2
BLW=0 6BE 000306C 03 APV-VISITOR-STATUS PIC X(02). 1687 1688 2
BLW=0 6C0 000307C 03 APV-CURRENT. 1689 1705 17
BLW=0 6C0 000308C 05 APV-CUR-PAVILION PIC X. 1689 1689 1
BLW=0 6C1 000309C 05 APV-CUR-LOCATION PIC X(04). 1690 1693 4
BLW=0 6C5 000310C 05 APV-CUR-ROOM-BED. 1694 1703 10
BLW=0 6C5 000311C 07 APV-CUR-ROOM PIC X(04). 1694 1697 4
BLW=0 6C9 000312C 07 APV-CUR-BED PIC X(02). 1698 1699 2
BLW=0 6CB 000313C 07 APV-CUR-SUFFIX PIC X(04). 1700 1703 4
BLW=0 6CF 000314C 05 APV-CUR-ACCOM PIC X(02). 1704 1705 2
BLW=0 6D1 000315C 03 APV-ALTERNATE. 1706 1723 18
BLW=0 6D1 000316C 05 APV-ALT-LOC-TYPE PIC X. 1706 1706 1
BLW=0 6D2 000317C 05 APV-ALT-PAVILION PIC X. 1707 1707 1
BLW=0 6D3 000318C 05 APV-ALT-LOCATION PIC X(04). 1708 1711 4
BLW=0 6D7 000319C 05 APV-ALT-ROOM-BED. 1712 1721 10
BLW=0 6D7 000320C 07 APV-ALT-ROOM PIC X(04). 1712 1715 4
BLW=0 6DB 000321C 07 APV-ALT-BED PIC X(02). 1716 1717 2
BLW=0 6DD 000322C 07 APV-ALT-SUFFIX PIC X(04). 1718 1721 4
BLW=0 6E1 000323C 05 APV-ALT-ACCOM PIC X(02). 1722 1723 2
BLW=0 6E3 000324C 03 APV-REREGISTRATION-DATE PIC X(08). 1724 1731 8
BLW=0 6EB 000325C 03 APV-REGISTRATION-DATE PIC X(08). 1732 1739 8
BLW=0 6F3 000326C 03 APV-REGISTRATION-TIME PIC X(04). 1740 1743 4
BLW=0 6F7 000327C 03 APV-DSCH-DEPART-DATE PIC X(08). 1744 1751 8
BLW=0 6FF 000328C 03 APV-DSCH-DEPART-TIME PIC X(04). 1752 1755 4
BLW=0 703 000329C 03 APV-DSCH-DEPART-DISP PIC X(02). 1756 1757 2
BLW=0 705 000330C 03 APV-DSCH-DEPART-REASON PIC X(02). 1758 1759 2
BLW=0 707 000331C 03 APV-DSCH-DEPART-STATUS PIC X(02). 1760 1761 2
BLW=0 709 000332C 03 APV-DISCHARGED-TO-INST-TYPE PIC X(02). 1762 1763 2
BLW=0 70B 000333C 03 APV-DISCHARGED-TO-INST-ID PIC X(15). 1764 1778 15
BLW=0 71A 000334C 03 APV-DISCHARGED-TO-INST-NAME PIC X(25). 1779 1803 25
BLW=0 733 000335C 03 APV-CLOSED-IND PIC X. 1804 1804 1
BLW=0 734 000336C 03 APV-TIME-MED-ATTENTION PIC X(04). 1805 1808 4
BLW=0 738 000337C 03 APV-PREADMIT-INITIALS PIC X(03). 1809 1811 3
BLW=0 73B 000338C 03 APV-REG-INITIALS PIC X(03). 1812 1814 3
BLW=0 73E 000339C 03 APV-ADMIT-INITIALS PIC X(03). 1815 1817 3
BLW=0 741 000340C 03 APV-ADM-REG-INFO-SOURCE PIC X(25). 1818 1842 25
BLW=0 75A 000341C 03 APV-PAM-ARCHIVE-IND PIC X. 1843 1843 1
BLW=0 75B 000342C 03 APV-CLINICAL. 1844 1881 38
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 10 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 75B 000343C 05 APV-HEIGHT PIC X(03). 1844 1846 3
BLW=0 75E 000344C 05 APV-WEIGHT PIC X(05). 1847 1851 5
BLW=0 763 000345C 05 APV-TEMP PIC X(04). 1852 1855 4
BLW=0 767 000346C 05 APV-PULSE PIC X(03). 1856 1858 3
BLW=0 76A 000347C 05 APV-RESP PIC X(02). 1859 1860 2
BLW=0 76C 000348C 05 APV-BLOOD-PRES. 1861 1866 6
BLW=0 76C 000349C 07 APV-SYSTOLIC PIC X(03). 1861 1863 3
BLW=0 76F 000350C 07 APV-DIASTOLIC PIC X(03). 1864 1866 3
BLW=0 772 000351C 05 APV-WHITE-BLOOD PIC X(05). 1867 1871 5
BLW=0 777 000352C 05 APV-RED-BLOOD PIC X(02). 1872 1873 2
BLW=0 779 000353C 05 APV-HEMOGLOBIN PIC X(03). 1874 1876 3
BLW=0 77C 000354C 05 APV-HEMATOCRIT PIC X(02). 1877 1878 2
BLW=0 77E 000355C 05 APV-BLOOD-SUGAR PIC X(03). 1879 1881 3
BLW=0 781 000356C 03 APV-USER-DEFINED OCCURS 5 TIMES. 1882 1891 2 O
BLW=0 781 000357C 05 APV-USER-CODE PIC X(02). 1882 1883 2
BLW=0 78B 000358C 03 APV-MSPQ-COND-CODES. 1892 1901 10
BLW=0 78B 000359C 07 FILLER OCCURS 5 TIMES. 1892 1901 2 O
BLW=0 78B 000360C 09 APV-MSPQ-COND-CODE PIC X(02). 1892 1893 2
BLW=0 795 000361C 03 APV-MSPQ-INFO. 1902 1938 37
BLW=0 795 000362C 05 APV-MSPQ-COB PIC X. 1902 1902 1
BLW=0 796 000363C 05 APV-MSPQ-ANSWERS. 1903 1938 36
BLW=0 796 000364C 07 FILLER OCCURS 36 TIMES. 1903 1938 1 O
BLW=0 796 000365C 09 APV-MSPQ-ANS PIC X. 1903 1903 1
BLW=0 7BA 000366C 03 APV-EPSDT-IND PIC X. 1939 1939 1
BLW=0 7BB 000367C 03 APV-DIAGNOSIS. 1940 2068 129
BLW=0 7BB 000368C 05 APV-DX-EXP-LOS PIC X(03). 1940 1942 3
000369C * 3.07619 BEGIN ************************************************
BLW=0 7BE 000370C 05 APV-DIAGNOSIS-TABLE OCCURS 6 TIMES. 1943 2068 21 O
BLW=0 7BE 000371C 07 APV-DX-CODE PIC X(07). 1943 1949 7
BLW=0 7C5 000372C 07 APV-DX-PHYS PIC X(06). 1950 1955 6
BLW=0 7CB 000373C 07 APV-DX-DATE PIC X(08). 1956 1963 8
000374C ****** 05 APV-DIAGNOSIS-TABLE OCCURS 6 TIMES.
000375C * 05 APV-DX-CODE PIC X(07).
000376C * 05 APV-DIAGNOS-FILLER PIC X(119).
000377C * 3.07619 END **************************************************
000378C * IMPORTANT* FILLER ABOVE WILL BE USED FUTURE ENHANCEMENT.
000379C * POSITIONALLY THIS MUST STAY IN TACT. DO NOT USE.
000380C * THE FILLER IS 35-BYTES DIAGNOSIS, 36-BYTES DOCTOR,
000381C * 48-BYTES DATE.
BLW=0 83C 000382C 03 APV-SCHEDULED-PROCEDURE. 2069 2279 211
BLW=0 83C 000383C 05 APV-PROC-TEXT PIC X(55). 2069 2123 55
000384C * 3.07619 BEGIN ************************************************
BLW=0 873 000385C 05 APV-SCHEDULED-PROCEDURE-TABLE OCCURS 6 TIMES. 2124 2279 26 O
BLW=0 873 000386C 07 APV-PROC-TYPE PIC X(01). 2124 2124 1
BLW=0 874 000387C 07 APV-PROC-CODE PIC X(07). 2125 2131 7
BLW=0 87B 000388C 07 APV-PROC-MOD1 PIC X(02). 2132 2133 2
BLW=0 87D 000389C 07 APV-PROC-MOD2 PIC X(02). 2134 2135 2
BLW=0 87F 000390C 07 APV-PROC-DATE PIC X(08). 2136 2143 8
BLW=0 887 000391C 07 APV-PROC-PHYS PIC X(06). 2144 2149 6
000392C ****** 05 APV-SCHEDULED-PROCEDURE-TABLE OCCURS 6 TIMES.
000393C * 05 APV-PROC-TYPE PIC X(01).
000394C * 05 APV-PROC-CODE PIC X(07).
000395C * 05 APV-PROC-MOD1 PIC X(02).
000396C * 05 APV-PROC-MOD2 PIC X(02).
000397C * 05 APV-PROC-DATE PIC X(08).
000398C * 05 APV-PROC-PHYS PIC X(06).
000399C * 05 APV-DX-DESCRIPTION PIC X(24).
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 11 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000400C * 05 APV-PROC-DESCRIPTION PIC X(24).
000401C * 05 APV-PROC-FILLER PIC X(82).
000402C * 3.07619 END **************************************************
000403C * IMPORTANT* FILLER ABOVE WILL BE USED FOR FUTURE ENHANCEMENT.
000404C * POSITIONALLY THIS MUST STAY IN TACT. DO NOT USE.
000405C * THE DX-DESCRIPTION, PROC-DESCRIPTION AND PROC-FILLER
000406C * WILL BECOME THE LAST 5 OCCURRENCES IN THE PROC-TABLE.
000407C ***** M001 UMH BEGIN H934 ADD BIRTH WEIGHT IN GRAMS 01/01/96
000408C * 03 APV-USER-FILLER PIC X(45).
000409C * 03 APV-USER-FILLER PIC X(145).
BLW=0 90F 000410C 03 APV-WEIGHT-GRAMS PIC X(05). 2280 2284 5
BLW=0 914 000411C 03 APV-USER-FILLER PIC X(140). 2285 2424 140
000412C ***** M001 UMH END H934 ADD BIRTH WEIGHT IN GRAMS 01/01/96
BLW=0 9A0 000413C 03 APV-VARIABLE-FILLER PIC X(136). 2425 2560 136
000414C *****************************************************************
000415C * END OF Y A A P V R C *
000416C *****************************************************************
000417
BLW=0 028 000418 01 YAAPIMD-RECORD REDEFINES YAAPVMD-RECORD. YAAPIMD-RECORD 1500 R
000419 COPY YAAPIRC.
000420C *****************************************************************
000421C * COPYBOOK ID: YAAPIRC - VISIT INSURANCE BENEFITS DATA *
000422C * COPYRIGHT 1994 HBO & COMPANY ATLANTA, GEORGIA *
000423C * *
000424C *****************************************************************
000425C * S O F T W A R E M A I N T E N A N C E *
000426C *****************************************************************
000427C * SCN PGR DESCRIPTION RELEASE *
000428C * *
000429C * ___________ ___ HEALTHQUEST RELEASE 3.0 01-31-94 *
000430C * 3.07346 LY API FILE EXPANSION 6.0 *
000431C * 3.0???? ___ _______________________________ N.N.N *
000432C *****************************************************************
000433C *****************************************************************
000434C * U M H M A I N T E N A N C E *
000435C *****************************************************************
000436C * SCN PGR DESCRIPTION RELEASE *
000437C * *
000438C * UMH001-BEG- H910 MOVE INS. ELIG FIELDS TO USER AREA. 10/01*
000439C * UMH.002 H308 ADD PPO CODE FIELD 01/22/04 *
000440C *****************************************************************
000441C * 3.07346 NOTE: *
000442C * BE CAREFUL MOVING USER FILLER AND VARIABLE FILLER TO FIELDS*
000443C * THAT ARE THE SAME SIZE. COBOL WILL FILL THESE FIELDS WITH *
000444C * SPACES INSTEAD OF LOW-VALUES. SPACES WILL REMAIN AND WILL *
000445C * IMPACT THE COMPRESSION UTILITY AND COULD INCREASE RECORD *
000446C * SIZES UNNECESSARILY. *
000447C *****************************************************************
000448C * MBP S O F T W A R E M A I N T E N A N C E *
000449C *****************************************************************
000450C * SCN/RELEASE PGR DESCRIPTION EFF DATE *
000451C * *
000452C * MBP.940801 JMK MICHIGAN 3.0 INITIAL RELEASE 09-30-94 *
000453C * ___________ ___ _______________________________ XX-XX-XX *
000454C * ___________ ___ _______________________________ XX-XX-XX *
000455C *****************************************************************
BLW=0 028 000456C 03 API-KEY. 1 19 19
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 12 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 028 000457C 05 API-HOSP PIC X. 1 1 1
BLW=0 029 000458C 05 API-ACCT-NBR. 2 15 14
BLW=0 029 000459C 07 API-CPI-NBR PIC X(10). 2 11 10
BLW=0 033 000460C 07 API-VISIT PIC X(04). 12 15 4
BLW=0 037 000461C 05 API-REC-TYPE PIC X. 16 16 1
000462C 88 INSURANCE-DATA VALUE 'I'.
BLW=0 038 000463C 05 API-COMPANY-CODE PIC X(03). 17 19 3
BLW=0 03B 000464C 03 API-INTERVENING-UPDATE PIC X. 20 20 1
BLW=0 03C 000465C 03 API-LAST-UPDATE. 21 53 33
BLW=0 03C 000466C 05 API-UPDT-ID PIC X(10). 21 30 10
BLW=0 046 000467C 05 API-UPDT-INITIALS PIC X(03). 31 33 3
BLW=0 049 000468C 05 API-UPDT-DATE PIC X(08). 34 41 8
BLW=0 051 000469C 05 API-UPDT-TIME PIC X(04). 42 45 4
BLW=0 055 000470C 05 API-UPDT-TRAN PIC X(04). 46 49 4
BLW=0 059 000471C 05 API-UPDT-TERM PIC X(04). 50 53 4
000472C *
BLW=0 05D 000473C 03 API-REL-TO-PAT PIC X(02). 54 55 2
BLW=0 05F 000474C 03 API-EFF-FROM-DATE PIC X(08). 56 63 8
BLW=0 067 000475C 03 API-EFF-THRU-DATE PIC X(08). 64 71 8
000476C *
000477C *** CERTIFICATION
000478C *
000479C * 3.07346 BEGIN **********************************************
000480C * 03 API-OTHER-CERT-NBR PIC X(15).
BLW=0 06F 000481C 03 API-OTHER-CERT-NBR PIC X(25). 72 96 25
000482C * 3.07346 END **********************************************
BLW=0 088 000483C 03 API-SPECIAL-COVERAGE. 97 141 45
BLW=0 088 000484C 05 API-SPL-APPR-BY-NAME PIC X(25). 97 121 25
BLW=0 0A1 000485C 05 API-SPL-APPR-BY-TITLE PIC X(20). 122 141 20
BLW=0 0B5 000486C 03 API-2ND-OPINION. 142 191 50
BLW=0 0B5 000487C 05 API-2ND-DATE PIC X(08). 142 149 8
BLW=0 0BD 000488C 05 API-2ND-APPR PIC X. 150 150 1
BLW=0 0BE 000489C 05 API-2ND-DOC-RCVD PIC X. 151 151 1
BLW=0 0BF 000490C 05 API-2ND-PHYS-ID PIC X(15). 152 166 15
BLW=0 0CE 000491C 05 API-2ND-PHYS-NAME PIC X(25). 167 191 25
BLW=0 0E7 000492C 03 API-REVIEW-AGENCY. 192 345 154
BLW=0 0E7 000493C 05 API-RA-ID PIC X(05). 192 196 5
BLW=0 0EC 000494C 05 API-RA-NAME PIC X(25). 197 221 25
BLW=0 105 000495C 05 API-RA-CONTACT-NAME PIC X(25). 222 246 25
BLW=0 11E 000496C 05 API-RA-TELE PIC X(10). 247 256 10
BLW=0 128 000497C 05 API-RA-TELE-EXT PIC X(06). 257 262 6
000498C * 3.07346 BEGIN **********************************************
000499C * 05 API-RA-CERT-NBR PIC X(15).
BLW=0 12E 000500C 05 API-RA-CERT-NBR PIC X(25). 263 287 25
000501C * 3.07346 END **********************************************
BLW=0 147 000502C 05 API-RA-CERT-DAYS PIC X(03). 288 290 3
BLW=0 14A 000503C 05 API-RA-PHYS-LIM PIC X(06). 291 296 6
BLW=0 150 000504C 05 API-RA-DATE PIC X(08). 297 304 8
BLW=0 158 000505C 05 API-RA-APPROVAL. 305 345 41
BLW=0 158 000506C 07 API-RA-APPR-BY-NAME PIC X(25). 305 329 25
BLW=0 171 000507C 07 API-RA-APPR-TELE PIC X(10). 330 339 10
BLW=0 17B 000508C 07 API-RA-APPR-TELE-EXT PIC X(06). 340 345 6
BLW=0 181 000509C 03 FILLER OCCURS 2 TIMES. 346 465 60 O
BLW=0 181 000510C 05 API-COMMENTS PIC X(60). 346 405 60
BLW=0 1F9 000511C 03 FILLER OCCURS 4 TIMES. 466 625 40 O
BLW=0 1F9 000512C 05 API-PROCEDURE-CERT-DATE PIC X(08). 466 473 8
BLW=0 201 000513C 05 API-PROCEDURE-CERT-CODE PIC X(07). 474 480 7
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 13 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
000514C * 3.07346 BEGIN **********************************************
000515C * 05 API-PROCEDURE-CERT-NUMBER PIC X(15).
BLW=0 208 000516C 05 API-PROCEDURE-CERT-NUMBER PIC X(25). 481 505 25
000517C * 3.07346 END **********************************************
000518C M0994 ******** BEGIN MBP.940801 **************************************
000519C*M0994 * 03 API-VARIABLE-FILLER PIC X(07).
BLW=0 299 000520C*M0994 03 API-BC-MED-EMER PIC X(02). 626 627 2
BLW=0 29B 000521C*M0994 03 API-VARIABLE-FILLER PIC X(05). 628 632 5
000522C*M0994 ******** END MBP.940801 **************************************
000523C *
000524C *** VERIFICATION / BENEFITS
000525C *
BLW=0 2A0 000526C 03 API-COB-PRI PIC X. 633 633 1
BLW=0 2A1 000527C 03 API-ASSIGN-IND PIC X. 634 634 1
000528C 88 ASSIGNMENT VALUE 'Y'.
000529C 88 NO-ASSIGNMENT VALUES 'N' ' '.
BLW=0 2A2 000530C 03 API-VERIFY-IND PIC X. 635 635 1
000531C 88 VERIFIED VALUE 'Y'.
000532C 88 NOT-VERIFIED VALUES 'N' ' '.
000533C 88 BENE-DENIED VALUES 'D'.
BLW=0 2A3 000534C 03 API-VERFD-BY PIC X(03). 636 638 3
BLW=0 2A6 000535C 03 API-VERFD-DATE PIC X(08). 639 646 8
BLW=0 2AE 000536C 03 API-VERFD-TIME PIC X(04). 647 650 4
BLW=0 2B2 000537C 03 FILLER OCCURS 2 TIMES. 651 770 60 O
BLW=0 2B2 000538C 05 API-VERFD-COMMENT PIC X(60). 651 710 60
BLW=0 32A 000539C 03 API-BENEFITS. 771 916 146
BLW=0 32A 000540C 05 API-RM-DAYS PIC S9(5) COMP-3. 771 773 3
BLW=0 32D 000541C 05 API-RM-DAYS-ALPHA PIC X. 774 774 1
BLW=0 32E 000542C 05 API-RMS-RATE PIC S9(5)V99 COMP-3. 775 778 4
BLW=0 332 000543C 05 API-RMS-RATE-ALPHA PIC X. 779 779 1
BLW=0 333 000544C 05 API-RMS-PCTG PIC S9V99 COMP-3. 780 781 2
BLW=0 335 000545C 05 API-RMS-RTE2 PIC S9(5)V99 COMP-3. 782 785 4
BLW=0 339 000546C 05 API-RMS-RTE2-ALPHA PIC X. 786 786 1
BLW=0 33A 000547C 05 API-RMS-LIMIT PIC S9(5)V99 COMP-3. 787 790 4
BLW=0 33E 000548C 05 API-RMS-LIMIT-ALPHA PIC X. 791 791 1
BLW=0 33F 000549C 05 API-RMS-DIFF-TO PIC X. 792 792 1
BLW=0 340 000550C 05 API-RMP-RATE PIC S9(5)V99 COMP-3. 793 796 4
BLW=0 344 000551C 05 API-RMP-RATE-ALPHA PIC X. 797 797 1
BLW=0 345 000552C 05 API-RMP-PCTG PIC S9V99 COMP-3. 798 799 2
BLW=0 347 000553C 05 API-RMP-RTE2 PIC S9(5)V99 COMP-3. 800 803 4
BLW=0 34B 000554C 05 API-RMP-RTE2-ALPHA PIC X. 804 804 1
BLW=0 34C 000555C 05 API-RMP-LIMIT PIC S9(5)V99 COMP-3. 805 808 4
BLW=0 350 000556C 05 API-RMP-LIMIT-ALPHA PIC X. 809 809 1
BLW=0 351 000557C 05 API-RMP-DIFF-TO PIC X. 810 810 1
BLW=0 352 000558C 05 API-RMI-DAYS PIC S9(5) COMP-3. 811 813 3
BLW=0 355 000559C 05 API-RMI-DAYS-ALPHA PIC X. 814 814 1
BLW=0 356 000560C 05 API-RMI-RATE PIC S9(5)V99 COMP-3. 815 818 4
BLW=0 35A 000561C 05 API-RMI-RATE-ALPHA PIC X. 819 819 1
BLW=0 35B 000562C 05 API-RMI-PCTG PIC S9V99 COMP-3. 820 821 2
BLW=0 35D 000563C 05 API-RMI-RTE2 PIC S9(5)V99 COMP-3. 822 825 4
BLW=0 361 000564C 05 API-RMI-RTE2-ALPHA PIC X. 826 826 1
BLW=0 362 000565C 05 API-RMI-LIMIT PIC S9(5)V99 COMP-3. 827 830 4
BLW=0 366 000566C 05 API-RMI-LIMIT-ALPHA PIC X. 831 831 1
BLW=0 367 000567C 05 API-RMI-DIFF-TO PIC X. 832 832 1
BLW=0 368 000568C 05 API-PSY-DAYS PIC S9(3) COMP-3. 833 834 2
BLW=0 36A 000569C 05 API-ANC-DED-TYPE PIC X. 835 835 1
BLW=0 36B 000570C 05 API-ANC-DED PIC S9(5)V99 COMP-3. 836 839 4
BASE DISPL STMT SEQ. COBOL PROCESSOR YAAPMMD 12:39:34 15-MAR-05 PAGE 14 IDENT. FROM THRU LENGTH *
----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8
BLW=0 36F 000571C 05 API-ANC-PCTG PIC S9V99 COMP-3. 840 841 2
BLW=0 371 000572C 05 API-ANC-LIMIT PIC S9(7)V99 COMP-3. 842 846 5
BLW=0 376 000573C 05 API-ANC-LIMIT-ALPHA PIC X. 847 847 1
BLW=0 377 000574C 05 API-ANC-RMBD PIC X. 848 848 1
BLW=0 378 000575C 05 API-ANC2-DED PIC S9(5)V99 COMP-3. 849 852 4
BLW=0 37C 000576C 05 API-ANC2-PCTG PIC S9V99 COMP-3. 853 854 2
BLW=0 37E 000577C 05 API-ANC2-LIMIT PIC S9(7)V99 COMP-3. 855 859 5
BLW=0 383 000578C 05 API-ANC2-LIMIT-ALPHA PIC X. 860 860 1
BLW=0 384 000579C 05 API-MMD1-DED PIC S9(5)V99 COMP-3. 861 864 4
BLW=0 388 000580C 05 API-MMD1-PCTG PIC S9V99 COMP-3. 865 866 2
BLW=0 38A 000581C 05 API-MMD1-LIMIT PIC S9(7)V99 COMP-3. 867 871 5
BLW=0 38F 000582C 05 API-MMD1-LIMIT-ALPHA PIC X. 872 872 1
BLW=0 390 000583C 05 API-MMD-TYPE PIC X. 873 873 1
BLW=0 391 000584C 05 API-MMD2-DED PIC S9(5)V99 COMP-3. 874 877 4
BLW=0 395 000585C 05 API-MMD2-PCTG PIC S9V99 COMP-3. 878 879 2
BLW=0 397 000586C 05 API-MMD2-LIMIT PIC S9(7)V99 COMP-3. 880 884 5
BLW=0 39C 000587C 05 API-MMD2-LIMIT-ALPHA PIC X. 885 885 1
BLW=0 39D 000588C 05 API-MMD3-DED PIC S9(5)V99 COMP-3. 886 889 4
BLW=0 3A1 000589C 05 API-MMD3-PCTG PIC S9V99 COMP-3. 890 891 2
BLW=0 3A3 000590C 05 API-MMD3-LIMIT PIC S9(7)V99 COMP-3. 892 896 5
BLW=0 3A8 000591C 05 API-MMD3-LIMIT-ALPHA PIC X. 897 897 1
BLW=0 3A9 000592C 05 API-BABY-COV PIC X. 898 898 1
BLW=0 3AA 000593C 05 API-COMB-BILL PIC X. 899 899 1
BLW=0 3AB 000594C 05 API-BLOOD-DED PIC 9. 900 900 1
BLW=0 3AC 000595C 05 API-DLY-DED-ST-DAYS PIC S9(3) COMP-3. 901 902 2
BLW=0 3AE 000596C 05 API-DLY-DED-NO-DAYS PIC S9(3) COMP-3. 903 904 2
BLW=0 3B0 000597C 05 API-DLY-DED-AMT PIC S9(5)V99 COMP-3. 905 908 4
BLW=0 3B4 000598C 05 API-DLY-DED2-ST-DAYS PIC S9(3) COMP-3. 909 910 2
BLW=0 3B6 000599C 05 API-DLY-DED2-NO-DAYS PIC S9(3) COMP-3. 911 912 2
BLW=0 3B8 000600C 05 API-DLY-DED2-AMT PIC S9(5)V99 COMP-3. 913 916 4
000601C * 3.07346 BEGIN **********************************************
000602C * 03 API-USER-FILLER PIC X(20).
000603C * UMH001-BEG- H910 MOVE INS. ELIG FIELDS TO USER AREA. 10/01*
000604C * 03 API-USER-FILLER PIC X(120).
BLW=0 3BC 000605C 03 API-ELIGIBILITY. 917 978 62
BLW=0 3BC 000606C 05 API-ELIG-FLAG PIC X(01). 917 917 1
BLW=0 3BD 000607C 05 API-ELIG-DATE PIC X(08). 918 925 8
BLW=0 3C5 000608C 05 API-ELIG-TIME PIC X(04). 926 929 4
BLW=0 3C9 000609C 05 API-ELIG-BY PIC X(04). 930 933 4
BLW=0 3CD 000610C 05 API-ELIG-COMMENT PIC X(45). 934 978 45
000611C * * BEGIN UMH.002 *
000612C * 03 API-USER-FILLER PIC X(58).
BLW=0 3FA 000613C 03 API-PPO-CODE PIC X(05). 979 983 5
BLW=0 3FF 000614C 03 API-USER-FILLER PIC X(53). 984 1036 53
000615C * * END UMH.002 *