IB20P567 ;ALB/RRA UPDATE PAYER FILE- ;06/07/2016
;;2.0;INTEGRATED BILLING;**567**;21-MAR-94;Build 5
;;Per VA Directive 6402, this routine should not be modified.
;
; Compare local PAYER file with national and
; update missing entries
Q
;
;
EN ;
N IBLINE,IBN,IB1,DA,DIE,DR,IBA,IBNAME,IBCNT,IBERRM,IBACT,IBIIV
N IBAUTO,IBID,IBNID,IBNEW,IBNOAP
S IBCNT=0,IBNOAP=0
D BMES^XPDUTL(">>>Evaluating PAYER file...")
F IBLINE=1:1 S IBN=$T(PAYER+IBLINE) S IB1=$P(IBN,";;",2) Q:IB1="EXIT" D UPDATE
I 'IBNOAP D
.F IBLINE=1:1 S IBN=$T(PAYER+IBLINE^IB2P567A) S IB1=$P(IBN,";;",2) Q:IB1="EXIT" D UPDATE
D BMES^XPDUTL(" ")
D BMES^XPDUTL("TOTAL OF "_IBCNT_" ADDED TO THE PAYER FILE")
D BMES^XPDUTL(" ")
D BMES^XPDUTL(">>>PAYER file update complete!!...")
Q
UPDATE ;CHECK AND ADD MISSING RECORDS
Q:IBNOAP
S IBNID=$P(IB1,U,2)
;QUIT IF AN ENTRY ALREADY EXIST FOR THAT NATIONAL ID
Q:+$O(^IBE(365.12,"C",IBNID,""))
S IBACT=$S($P(IB1,U,5)="Y":1,1:0)
S IBAUTO=$S($P(IB1,U,9)="Y":1,1:0)
S IBID=$S($P(IB1,U,6)="Y":1,1:0)
S IBIIV=$O(^IBE(365.13,"B","IIV",0))
I 'IBIIV D
.N DIC,X,Y
.S DIC="^IBE(365.13,",X="IIV",DIC(0)=""
.K DD,DO
.D FILE^DICN
.K DO
.S IBIIV=+Y
I 'IBIIV D Q
.S IBNOAP=1
.D BMES^XPDUTL("Unable to add IIV to the PAYER APPLICATION file!")
S IBA(365.12,"+1,",.01)=$P(IB1,U)
S IBA(365.12,"+1,",.02)=IBNID
S IBA(365.12,"+1,",.05)=$P(IB1,U,3)
S IBA(365.12,"+1,",.06)=$P(IB1,U,4)
S IBA(365.121,"+2,+1,",.01)=IBIIV
S IBA(365.121,"+2,+1,",.02)=IBACT
S IBA(365.121,"+2,+1,",.08)=IBID
S IBA(365.121,"+2,+1,",.1)=0
S IBA(365.121,"+2,+1,",.13)=$$NOW^XLFDT()
S IBA(365.121,"+2,+1,",.14)=$P(IB1,U,7)
S IBA(365.121,"+2,+1,",.15)=$P(IB1,U,8)
S IBA(365.121,"+2,+1,",.07)=IBAUTO
D UPDATE^DIE("","IBA","","IBERRM") ; file new PAYER entry
I $D(IBERRM) D Q
. D BMES^XPDUTL("******Unable to add PAYER : "_$P(IB1,U))
S IBCNT=IBCNT+1
D BMES^XPDUTL("PAYER "_$P(IB1,U)_" ADDED WITH A NATIONAL ID OF: "_IBNID)
Q
;
PAYER ;PAYER NAME^VA NAT ID^EDI ID NUM-PROF^EDI ID NUM-INST^NAT ACTIVE^IDENT REQ SUB ID^FUT SERV DAYS^PAST SERV DAYS^AUTO-ACCEPT
;;AARP HEALTH PLAN^VA764^36273^36273^Y^Y^0^0^Y
;;ACS BENEFIT SERVICES^VA2642^72467^72467^Y^Y^0^0^N
;;ADVANTRA (TX, NM, AZ)^VA825^25152^25152^Y^N^90^545^N
;;AETNA^VA1^60054^60054^Y^Y^0^730^Y
;;AETNA SENIOR SUPPLEMENTAL^VA1964^62118^62118^Y^N^9999^9999^Y
;;AFLAC - DENTAL^VA524^^^Y^Y^9999^9999^Y
;;AFLAC MEDICARE SUPPLEMENTAL^VA2456^^^Y^N^0^0^N
;;AFTRA HEALTH FUND^VA90^13346^13346^Y^Y^9999^9999^Y
;;ALLEGIANCE BENEFITS PLAN MANAGEMENT^VA1864^81040^81040^Y^Y^31^365^N
;;ALLIANT HEALTH PLANS^VA2560^58234^58234^Y^N^0^0^N
;;ALLIED BENEFIT SYSTEMS^VA1644^37308^37308^Y^N^9999^9999^Y
;;ALLSAVERS INSURANCE COMPANY^VA2703^81400^81400^Y^Y^0^0^N
;;ALTIUS HEALTH PLANS^VA182^25149^25149^Y^N^90^545^Y
;;AMERICAN FAMILY^VA1664^56071^56071^Y^N^9999^9999^Y
;;AMERICAN NATIONAL INSURANCE^VA1364^74048^74048^Y^N^9999^9999^Y
;;AMERICAN POSTAL WRKRS UNION (APWU)^VA129^44444^44444^Y^N^9999^365^Y
;;AMERICAN REPUBLIC INS CO (ARIC)^VA74^42011^42011^Y^N^0^0^Y
;;AMERICHOICE OF NJ (COMMERCIAL)^VA2^^^Y^Y^365^365^N
;;AMERIGROUP CORPORATION^VA264^2751N^2751N^Y^Y^9999^9999^Y
;;AMERIHEALTH ADMINISTRATORS^VA1046^^54763^Y^Y^9999^9999^Y
;;AMERITAS - STANDARD INSURANCE (DENTAL)^VA2723^47009^47009^Y^Y^0^0^N
;;AMERITAS LIFE INS CO^VA156^47009^47009^Y^Y^9999^9999^N
;;ASSOC DE MAESTROS PUERTO RICO^VA1825^^^Y^Y^9999^9999^N
;;ASURIS NORTHWEST HEALTH^VA1284^SX179^SX179^Y^Y^42^730^Y
;;AULTCARE^VA2666^^^Y^N^0^9999^N
;;AUXIANT^VA2620^26202^26202^Y^N^0^0^N
;;AVERA HEALTH PLANS^VA2356^46045^46045^Y^N^0^365^N
;;AVMED^VA123^59274^^Y^Y^31^365^Y
;;BANKERS LIFE AND CASUALTY^VA2046^36066^36066^Y^Y^30^365^Y
;;BCBS HAWAII - LOCAL^VA1304^SB971^12B62^Y^N^9999^9999^Y
;;BCBS OF ALABAMA^VA65^SB510^12B54^Y^Y^31^365^Y
;;BCBS OF ALASKA (PREMERA)^VA564^SB930^12B47^Y^Y^31^365^Y
;;BCBS OF ARIZONA^VA6^SB530^12B02^Y^Y^31^9999^Y
;;BCBS OF ARKANSAS^VA284^SB520^12021^Y^Y^9999^9999^Y
;;BCBS OF CENTRAL NEW YORK^VA1024^SB805^12B37^Y^Y^9999^9999^N
;;BCBS OF COLORADO^VA162^SB550^12B03^Y^Y^31^545^Y
;;BCBS OF CONNECTICUT^VA344^SB560^12B04^Y^Y^31^1095^Y
;;BCBS OF DELAWARE^VA704^SB570^12B76^Y^Y^31^365^Y
;;BCBS OF DIST OF COLUMBIA (CAREFIRST)^VA706^SB580^12000^Y^Y^0^0^Y
;;BCBS OF FLORIDA^VA66^SB590^12B34^Y^Y^9999^9999^Y
;;BCBS OF GEORGIA^VA168^SB600^12015^Y^Y^9999^9999^Y
;;BCBS OF HAWAII^VA1004^SB971^12B62^Y^Y^9999^9999^Y
;;BCBS OF ILLINOIS^VA167^SB621^12B08^Y^Y^31^730^Y
;;BCBS OF INDIANA^VA444^SB630^12B09^Y^Y^31^1095^Y
;;BCBS OF IOWA^VA469^SB640^12B10^Y^Y^365^365^Y
;;BCBS OF KANSAS^VA385^SB650^57325^Y^Y^31^730^Y
;;BCBS OF KANSAS CITY^VA884^^12B66^Y^Y^31^730^Y
;;BCBS OF KENTUCKY^VA445^SB660^12B11^Y^Y^31^1095^Y
;;BCBS OF LOUISIANA^VA3^23738^12B12^Y^Y^9999^9999^Y
;;BCBS OF MAINE^VA345^SB680^12B13^Y^Y^31^1095^Y
;;BCBS OF MARYLAND (CAREFIRST)^VA707^SB690^12011^Y^Y^0^0^Y
;;BCBS OF MASSACHUSETTS^VA7^SB700^12B14^Y^Y^9999^9999^Y
;;BCBS OF MICHIGAN^VA346^SB710^12B18^Y^Y^31^365^Y
;;BCBS OF MINNESOTA^VA67^SB720^12B16^Y^Y^9999^9999^Y
;;BCBS OF MISSISSIPPI^VA8^SB730^12B17^Y^Y^9999^9999^Y
;;BCBS OF MISSOURI^VA446^SB741^12B66^Y^Y^31^1095^Y
;;BCBS OF MONTANA^VA984^SB751^12B77^Y^Y^31^365^Y
;;BCBS OF NEBRASKA^VA468^SB760^12B19^Y^Y^31^730^Y
;;BCBS OF NEVADA^VA684^SB765^12B20^Y^Y^31^545^Y
;;BCBS OF NEW HAMPSHIRE^VA447^SB770^12B21^Y^Y^31^1095^Y
;;BCBS OF NEW JERSEY (HORIZON)^VA4^22099^22099^Y^Y^0^730^Y
;;BCBS OF NEW MEXICO^VA68^SB790^12B22^Y^Y^0^0^Y
;;BCBS OF NEW YORK (EMPIRE)^VA5^SB803^55093^Y^Y^9999^9999^Y
;;BCBS OF NEW YORK (EXCELLUS)^VA969^SB805^12B71^Y^Y^31^365^Y
;;BCBS OF NEW YORK HEALTHNOW/WESTERN^VA970^SB801^12B39^Y^Y^31^365^Y
;;BCBS OF NORTH CAROLINA^VA685^SB810^12B23^Y^Y^9999^1095^Y
;;BCBS OF NORTH DAKOTA^VA924^SB820^12B78^Y^Y^31^365^Y
;;BCBS OF OHIO^VA364^SB338^12B24^Y^Y^31^1095^Y
;;BCBS OF OKLAHOMA^VA1005^SB840^12B59^Y^Y^9999^9999^Y
;;BCBS OF OREGON (REGENCE)^VA204^SB850^12B41^Y^Y^180^730^Y
;;BCBS OF PENNSYLVANIA (HIGHMARK)^VA304^SB865^12B60^Y^Y^182^365^Y
;;BCBS OF RHODE ISLAND^VA425^SB871^^Y^Y^31^365^Y
;;BCBS OF ROCHESTER AREA (NY)^VA1025^SB804^12B40^Y^Y^9999^9999^Y
;;BCBS OF SOUTH CAROLINA^VA185^SB880^12B55^Y^Y^365^1095^Y
;;BCBS OF SOUTH DAKOTA^VA470^SB889^12B33^Y^Y^31^365^Y
;;BCBS OF TENNESSEE^VA744^SB890^12B45^Y^Y^30^365^Y
;;BCBS OF TEXAS^VA69^SB900^12B31^Y^Y^9999^730^Y
;;BCBS OF UTICA-WATERTOWN (NY)^VA1026^SB806^12B38^Y^Y^9999^9999^Y
;;BCBS OF VERMONT^VA1027^SB915^12B32^Y^Y^9999^9999^Y
;;BCBS OF VIRGINIA^VA347^SB923^12002^Y^Y^31^1095^Y
;;BCBS OF WEST VIRGINIA^VA1007^SB941^12B28^Y^Y^182^730^Y
;;BCBS OF WISCONSIN^VA448^SB950^12B29^Y^Y^31^1095^Y
;;BCBS OF WYOMING^VA925^SB960^12B30^Y^Y^31^365^Y
;;BEST LIFE & HEALTH^VA91^95604^95604^Y^Y^9999^9999^N
;;BLUE CROSS OF CALIFORNIA^VA9^47198^47198^Y^Y^9999^9999^Y
;;BLUE CROSS OF IDAHO^VA384^SB612^12B07^Y^Y^9999^9999^Y
;;BLUE CROSS OF PENNSYLVANIA (CAPITAL)^VA467^23045^23045^Y^Y^182^365^Y
;;BLUE CROSS OF PENNSYLVANIA (INDEPENDENCE)^VA424^SX083^12X26^Y^Y^31^730^Y
;;BLUE CROSS OF PENNSYLVANIA (NORTHEASTERN)^VA430^^^Y^Y^547^730^Y
;;BLUE CROSS OF UTAH (REGENCE)^VA1006^SB801^12B39^Y^Y^9999^9999^Y
;;BLUE CROSS OF WASHINGTON (PREMERA)^VA565^SB930^12B27^Y^Y^31^365^Y
;;BLUE SHIELD OF CALIFORNIA^VA126^94036^94036^Y^Y^31^365^Y
;;BLUE SHIELD OF IDAHO^VA1028^SB611^12B88^Y^Y^9999^9999^Y
;;BLUE SHIELD OF NEW YORK (NORTHEASTERN)^VA1029^SB800^12B68^Y^Y^9999^9999^Y
;;BLUE SHIELD OF WASHINGTON (REGENCE)^VA205^SB931^^Y^Y^9999^9999^Y
;;BLUEGRASS FAMILY HEALTH^VA784^61124^61124^Y^Y^9999^9999^Y
;;BOON-CHAPMAN BENEFIT ADMIN^VA1047^74238^74238^Y^Y^9999^9999^Y
;;C AND O EMP HOSP ASSOC^VA2271^23708^23708^Y^N^9999^9999^N
;;CAPITAL DISTRICT PHYSICIANS-CDPHP^VA966^SX065^12X03^Y^Y^9999^9999^Y
;;CAPITOL ADMINISTRATORS^VA2253^68011^68011^Y^N^0^365^N
;;CARE IMPROVEMENT PLUS^VA2396^77082^77082^Y^N^30^730^N
;;CENTENE - ABSOLUTE TOTAL CARE^VA2314^68069^68069^Y^Y^0^0^N
;;CENTRAL STATES FUND^VA1065^36215^36215^Y^N^9999^9999^Y
;;CENTRAL STATES INDEMNITY^VA2026^36215^36215^Y^Y^0^0^N
;;CHAMPVA-SPINA BIFIDA- HAC^VA116^84146^84146^Y^N^0^0^Y
;;CHC OF FLORIDA^VA1724^25133^25133^Y^N^90^545^Y
;;CHC OF ILLINOIS^VA181^25146^25146^Y^N^90^545^Y
;;CHC OF KANSAS^VA37^25133^25133^Y^N^90^545^Y
;;CIGNA^VA10^62308^62308^Y^Y^31^9999^Y
;;CIGNA BEHAVIORAL HEALTH^VA2540^SX071^^Y^N^9999^730^Y
;;CMS^VA2086^SMTX1^12M61^Y^Y^120^820^Y
;;COLONIAL PENN LIFE^VA2166^36066^36066^Y^Y^30^365^Y
;;COLORADO ACCESS^VA169^84129^^Y^Y^9999^9999^N
;;COMMUNITY CARE OF OKLAHOMA^VA324^73143^73143^Y^Y^9999^9999^Y
;;CONNECTICARE^VA945^6105^6105^Y^Y^9999^9999^Y
;;CONSOLIDATED ASSOCIATES RAILROAD (CARE)^VA2478^75284^75284^Y^N^0^0^N
;;COOPERATIVE BENEFIT ADMIN (CBA)^VA75^52132^52132^Y^N^9999^9999^Y
;;CORESOURCE (FMH)^VA428^48117^48117^Y^Y^9999^9999^Y
;;CORESOURCE (LITTLE ROCK)^VA77^75136^75136^Y^Y^9999^9999^Y
;;CORESOURCE (MD PA IL NC IN)^VA78^35182^35182^Y^Y^9999^9999^Y
;;CORESOURCE (OH)^VA80^35183^35183^Y^Y^9999^9999^Y
;;COUNTRY LIFE INSURANCE CO^VA1904^62553^62553^Y^N^0^0^Y
;;COVENTRY GROUP HEALTH PLAN (GHP)^VA31^25141^25141^Y^N^90^545^Y
;;COVENTRY HEALTH AMERICA/HAPA^VA32^25126^25126^Y^N^90^545^Y
;;COVENTRY HEALTH AND LIFE (OKLAHOMA)^VA584^25133^25133^Y^N^90^545^Y
;;COVENTRY HEALTH AND LIFE (TENN)^VA585^25141^25141^Y^N^90^545^N
;;COVENTRY HEALTH AND LIFE-NEVADA^VA826^25149^25149^Y^N^90^545^N
;;COVENTRY HEALTH CARE CARELINK^VA33^25139^25139^Y^N^90^545^Y
;;COVENTRY HEALTH CARE FEDERAL^VA905^62413^62413^Y^N^90^545^Y
;;COVENTRY HEALTH CARE OF DELAWARE^VA39^25130^25130^Y^N^90^545^Y
;;COVENTRY HEALTH CARE OF GEORGIA^VA40^25127^25127^Y^N^90^545^Y
;;COVENTRY HEALTH CARE OF IOWA^VA41^25132^25132^Y^N^90^545^Y
;;COVENTRY HEALTH CARE OF LOUISIANA^VA42^25135^25135^Y^N^90^545^Y
;;COVENTRY HEALTH CARE OF NEBRASKA^VA43^25136^25136^Y^N^90^545^Y
;;COVENTRY HEALTHCARE NATIONAL NETWK^VA85^25133^25133^Y^N^9999^9999^Y
;;COVENTRY MISSOURI^VA828^25133^25133^Y^N^90^545^Y
;;COVENTRY OF THE CAROLINAS -WELLPATH^VA61^25129^25129^Y^N^90^545^Y
;;COVENTRY SOUTHERN HEALTH SVCS (SHS)^VA62^25128^25128^Y^N^90^545^Y
;;COVENTRYONE^VA804^87043^87043^Y^N^90^545^Y
;;DAKOTA CARE^VA1404^^^Y^N^9999^9999^Y
;;DEAN HEALTH PLAN^VA1849^39113^39113^Y^Y^31^9999^N
;;DENVER HEALTH MEDICAL PLAN^VA2518^84135^84135^Y^N^0^365^N
;;DESERET MUTUAL^VA1624^SX105^12X35^Y^Y^9999^9999^N
;;EBMS^VA2126^SX182^12X44^Y^N^9999^9999^N
;;EMBLEMHEALTH^VA604^^^Y^Y^0^0^Y
;;ESSENCE HEALTHCARE^VA2316^20818^20818^Y^N^9999^9999^Y
;;EVERENCE FINANCIAL^VA2418^35605^35605^Y^N^0^0^N
;;EVERGREEN HEALTH CO-OP^VA2580^45319^45319^Y^Y^9999^9999^N
;;FCE BENEFIT ADMINISTRATORS INC.^VA1745^33033^33033^Y^Y^9999^9999^Y
;;FEDERATED INSURANCE COMPANY^VA84^41041^41041^Y^Y^9999^9999^Y
;;FIRST AMERITAS OF NEW YORK^VA157^72630^72630^Y^Y^9999^9999^N
;;FIRST RELIANCE STANDARD LIFE INS CO^VA159^13317^13317^Y^Y^9999^9999^N
;;FIRST UNITED AMERICAN INSURANCE CO^VA2479^55821^55821^Y^N^0^0^N
;;FIRSTCARE^VA2146^TH003^12T03^Y^N^0^365^N
;;FLORIDA HEALTH CARE PLANS^VA2251^59322^59322^Y^N^365^730^N
;;FLORIDA HOSPITAL HEALTHCARE SYSTEM^VA1049^59321^59321^Y^Y^0^365^N
;;GEISINGER HEALTH PLAN^VA1504^75273^75273^Y^Y^31^365^Y
;;GLOBE LIFE AND ACCIDENT INSURANCE CO^VA2641^55001^55001^Y^N^0^0^N
;;GMP EMPLOYER RETIREE TRUST^VA2683^11794^11794^Y^N^9999^9999^N
;;GOLDEN RULE INSURANCE^VA1850^37602^37602^Y^N^31^540^Y
;;GOVT EMPLOYEES HSPTL ASSOC (GEHA)^VA429^44054^44054^Y^Y^0^0^Y
;;GREAT WEST HEALTHCARE^VA132^80705^80705^Y^Y^9999^540^Y
;;GROUP & PENSION ADMINISTRATORS^VA173^48143^48143^Y^Y^9999^9999^Y
;;GROUP HEALTH COOPERATIVE^VA1524^91051^91051^Y^Y^9999^9999^Y
;;HARVARD PILGRIM HEALTH CARE^VA405^4271^4271^Y^N^31^1095^Y
;;HEALTH ALLIANCE MEDICAL PLANS (HAP-MI)^VA426^38224^38224^Y^N^9999^9999^Y
;;HEALTH ALLIANCE MEDICAL PLANS (IL)^VA2376^5977^5977^Y^N^0^730^Y
;;HEALTH FIRST OF NEW JERSEY^VA1066^80141^80141^Y^Y^9999^9999^N
;;HEALTH NET (AZ, CA, OR, NORTHEAST)^VA464^38309^38309^Y^Y^31^365^Y
;;HEALTH NEW ENGLAND^VA1604^^^Y^N^9999^9999^N
;;HEALTH PARTNERS OF PHILADELPHIA^VA170^80142^80142^Y^Y^31^9999^Y
;;HEALTH PLAN OF UPPER OHIO VALLEY^VA2643^34150^34150^Y^Y^9999^9999^N
;;HEALTHCARE SOLUTIONS GROUP^VA1050^73147^73147^Y^N^0^0^N
;;HEALTHCOMP ADMINISTRATORS^VA2274^85729^85729^Y^N^9999^9999^N
;;HEALTHFIRST OF NEW YORK^VA94^80141^80141^Y^Y^9999^9999^Y
;;HEALTHGRAM^VA2250^56144^56144^Y^N^0^0^N
;;HEALTHPARTNERS (MN)^VA1125^SX009^12X51^Y^N^60^365^Y
;;HEALTHPLANS INC^VA1986^44273^44273^Y^N^0^1095^N
;;HEALTHPLUS OF MICHIGAN^VA427^38216^38216^Y^N^9999^9999^Y
;;HEALTHSCOPE^VA1564^71063^71063^Y^Y^9999^9999^N
;;HEALTHSPRING^VA1051^63092^63092^Y^Y^9999^9999^Y
;;HOMETOWN HEALTH PLAN^VA971^88023^88023^Y^N^60^365^Y
;;HUMANA^VA163^61101^61101^Y^Y^365^365^Y
;;IDEAL LIFE INSURANCE^VA2029^75300^75300^Y^Y^0^0^N
;;INDEPENDENT HEALTH^VA1544^SX073^12X01^Y^N^31^365^Y
;;INTERNATIONAL MEDICAL CARD INC^VA2293^66053^66053^Y^Y^9999^9999^Y
;;JOHN ALDEN LIFE INS CO (JALIC)^VA89^41099^41099^Y^Y^9999^9999^Y
;;JOHN HOPKINS HEALTH PLAN^VA1052^52189^52189^Y^Y^9999^9999^N
;;KAISER FDN HEALTHPLAN- COLORADO^VA109^^^Y^Y^9999^9999^Y
;;KAISER FDN HEALTHPLAN- HAWAII^VA131^^^Y^Y^9999^9999^Y
;;KAISER FDN HEALTHPLAN- NORTHWEST^VA112^^^Y^Y^9999^9999^Y
;;KAISER PERMANENTE OF GEORGIA^VA110^21313^21313^Y^Y^9999^9999^Y
;;KAISER PERMANENTE OF N CALIFORNIA^VA114^^^Y^N^9999^9999^Y
;;KAISER PERMANENTE OF S CALIFORNIA^VA115^94134^94134^Y^N^9999^9999^Y
;;KITSAP PHYSICIAN SERVICES^VA964^KPS01^KPS01^Y^Y^90^365^Y
;;KSKJ LIFE^VA2030^75300^75300^Y^Y^0^0^N
;;LIFETIME BENEFIT SERVICES (RMSCO)^VA2246^16117^16117^Y^Y^9999^9999^N
;;LINCOLN HERITAGE^VA2031^75300^75300^Y^Y^0^0^N
;;LOOMIS COMPANY^VA1985^23223^23223^Y^Y^9999^9999^N
;;LOYAL AMERICAN MEDICARE SUPP^VA1645^13193^13193^Y^N^9999^9999^Y
;;EXIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P567 13910 printed Oct 16, 2024@18:04:30 Page 2
IB20P567 ;ALB/RRA UPDATE PAYER FILE- ;06/07/2016
+1 ;;2.0;INTEGRATED BILLING;**567**;21-MAR-94;Build 5
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Compare local PAYER file with national and
+5 ; update missing entries
+6 QUIT
+7 ;
+8 ;
EN ;
+1 NEW IBLINE,IBN,IB1,DA,DIE,DR,IBA,IBNAME,IBCNT,IBERRM,IBACT,IBIIV
+2 NEW IBAUTO,IBID,IBNID,IBNEW,IBNOAP
+3 SET IBCNT=0
SET IBNOAP=0
+4 DO BMES^XPDUTL(">>>Evaluating PAYER file...")
+5 FOR IBLINE=1:1
SET IBN=$TEXT(PAYER+IBLINE)
SET IB1=$PIECE(IBN,";;",2)
if IB1="EXIT"
QUIT
DO UPDATE
+6 IF 'IBNOAP
Begin DoDot:1
+7 FOR IBLINE=1:1
SET IBN=$TEXT(PAYER+IBLINE^IB2P567A)
SET IB1=$PIECE(IBN,";;",2)
if IB1="EXIT"
QUIT
DO UPDATE
End DoDot:1
+8 DO BMES^XPDUTL(" ")
+9 DO BMES^XPDUTL("TOTAL OF "_IBCNT_" ADDED TO THE PAYER FILE")
+10 DO BMES^XPDUTL(" ")
+11 DO BMES^XPDUTL(">>>PAYER file update complete!!...")
+12 QUIT
UPDATE ;CHECK AND ADD MISSING RECORDS
+1 if IBNOAP
QUIT
+2 SET IBNID=$PIECE(IB1,U,2)
+3 ;QUIT IF AN ENTRY ALREADY EXIST FOR THAT NATIONAL ID
+4 if +$ORDER(^IBE(365.12,"C",IBNID,""))
QUIT
+5 SET IBACT=$SELECT($PIECE(IB1,U,5)="Y":1,1:0)
+6 SET IBAUTO=$SELECT($PIECE(IB1,U,9)="Y":1,1:0)
+7 SET IBID=$SELECT($PIECE(IB1,U,6)="Y":1,1:0)
+8 SET IBIIV=$ORDER(^IBE(365.13,"B","IIV",0))
+9 IF 'IBIIV
Begin DoDot:1
+10 NEW DIC,X,Y
+11 SET DIC="^IBE(365.13,"
SET X="IIV"
SET DIC(0)=""
+12 KILL DD,DO
+13 DO FILE^DICN
+14 KILL DO
+15 SET IBIIV=+Y
End DoDot:1
+16 IF 'IBIIV
Begin DoDot:1
+17 SET IBNOAP=1
+18 DO BMES^XPDUTL("Unable to add IIV to the PAYER APPLICATION file!")
End DoDot:1
QUIT
+19 SET IBA(365.12,"+1,",.01)=$PIECE(IB1,U)
+20 SET IBA(365.12,"+1,",.02)=IBNID
+21 SET IBA(365.12,"+1,",.05)=$PIECE(IB1,U,3)
+22 SET IBA(365.12,"+1,",.06)=$PIECE(IB1,U,4)
+23 SET IBA(365.121,"+2,+1,",.01)=IBIIV
+24 SET IBA(365.121,"+2,+1,",.02)=IBACT
+25 SET IBA(365.121,"+2,+1,",.08)=IBID
+26 SET IBA(365.121,"+2,+1,",.1)=0
+27 SET IBA(365.121,"+2,+1,",.13)=$$NOW^XLFDT()
+28 SET IBA(365.121,"+2,+1,",.14)=$PIECE(IB1,U,7)
+29 SET IBA(365.121,"+2,+1,",.15)=$PIECE(IB1,U,8)
+30 SET IBA(365.121,"+2,+1,",.07)=IBAUTO
+31 ; file new PAYER entry
DO UPDATE^DIE("","IBA","","IBERRM")
+32 IF $DATA(IBERRM)
Begin DoDot:1
+33 DO BMES^XPDUTL("******Unable to add PAYER : "_$PIECE(IB1,U))
End DoDot:1
QUIT
+34 SET IBCNT=IBCNT+1
+35 DO BMES^XPDUTL("PAYER "_$PIECE(IB1,U)_" ADDED WITH A NATIONAL ID OF: "_IBNID)
+36 QUIT
+37 ;
PAYER ;PAYER NAME^VA NAT ID^EDI ID NUM-PROF^EDI ID NUM-INST^NAT ACTIVE^IDENT REQ SUB ID^FUT SERV DAYS^PAST SERV DAYS^AUTO-ACCEPT
+1 ;;AARP HEALTH PLAN^VA764^36273^36273^Y^Y^0^0^Y
+2 ;;ACS BENEFIT SERVICES^VA2642^72467^72467^Y^Y^0^0^N
+3 ;;ADVANTRA (TX, NM, AZ)^VA825^25152^25152^Y^N^90^545^N
+4 ;;AETNA^VA1^60054^60054^Y^Y^0^730^Y
+5 ;;AETNA SENIOR SUPPLEMENTAL^VA1964^62118^62118^Y^N^9999^9999^Y
+6 ;;AFLAC - DENTAL^VA524^^^Y^Y^9999^9999^Y
+7 ;;AFLAC MEDICARE SUPPLEMENTAL^VA2456^^^Y^N^0^0^N
+8 ;;AFTRA HEALTH FUND^VA90^13346^13346^Y^Y^9999^9999^Y
+9 ;;ALLEGIANCE BENEFITS PLAN MANAGEMENT^VA1864^81040^81040^Y^Y^31^365^N
+10 ;;ALLIANT HEALTH PLANS^VA2560^58234^58234^Y^N^0^0^N
+11 ;;ALLIED BENEFIT SYSTEMS^VA1644^37308^37308^Y^N^9999^9999^Y
+12 ;;ALLSAVERS INSURANCE COMPANY^VA2703^81400^81400^Y^Y^0^0^N
+13 ;;ALTIUS HEALTH PLANS^VA182^25149^25149^Y^N^90^545^Y
+14 ;;AMERICAN FAMILY^VA1664^56071^56071^Y^N^9999^9999^Y
+15 ;;AMERICAN NATIONAL INSURANCE^VA1364^74048^74048^Y^N^9999^9999^Y
+16 ;;AMERICAN POSTAL WRKRS UNION (APWU)^VA129^44444^44444^Y^N^9999^365^Y
+17 ;;AMERICAN REPUBLIC INS CO (ARIC)^VA74^42011^42011^Y^N^0^0^Y
+18 ;;AMERICHOICE OF NJ (COMMERCIAL)^VA2^^^Y^Y^365^365^N
+19 ;;AMERIGROUP CORPORATION^VA264^2751N^2751N^Y^Y^9999^9999^Y
+20 ;;AMERIHEALTH ADMINISTRATORS^VA1046^^54763^Y^Y^9999^9999^Y
+21 ;;AMERITAS - STANDARD INSURANCE (DENTAL)^VA2723^47009^47009^Y^Y^0^0^N
+22 ;;AMERITAS LIFE INS CO^VA156^47009^47009^Y^Y^9999^9999^N
+23 ;;ASSOC DE MAESTROS PUERTO RICO^VA1825^^^Y^Y^9999^9999^N
+24 ;;ASURIS NORTHWEST HEALTH^VA1284^SX179^SX179^Y^Y^42^730^Y
+25 ;;AULTCARE^VA2666^^^Y^N^0^9999^N
+26 ;;AUXIANT^VA2620^26202^26202^Y^N^0^0^N
+27 ;;AVERA HEALTH PLANS^VA2356^46045^46045^Y^N^0^365^N
+28 ;;AVMED^VA123^59274^^Y^Y^31^365^Y
+29 ;;BANKERS LIFE AND CASUALTY^VA2046^36066^36066^Y^Y^30^365^Y
+30 ;;BCBS HAWAII - LOCAL^VA1304^SB971^12B62^Y^N^9999^9999^Y
+31 ;;BCBS OF ALABAMA^VA65^SB510^12B54^Y^Y^31^365^Y
+32 ;;BCBS OF ALASKA (PREMERA)^VA564^SB930^12B47^Y^Y^31^365^Y
+33 ;;BCBS OF ARIZONA^VA6^SB530^12B02^Y^Y^31^9999^Y
+34 ;;BCBS OF ARKANSAS^VA284^SB520^12021^Y^Y^9999^9999^Y
+35 ;;BCBS OF CENTRAL NEW YORK^VA1024^SB805^12B37^Y^Y^9999^9999^N
+36 ;;BCBS OF COLORADO^VA162^SB550^12B03^Y^Y^31^545^Y
+37 ;;BCBS OF CONNECTICUT^VA344^SB560^12B04^Y^Y^31^1095^Y
+38 ;;BCBS OF DELAWARE^VA704^SB570^12B76^Y^Y^31^365^Y
+39 ;;BCBS OF DIST OF COLUMBIA (CAREFIRST)^VA706^SB580^12000^Y^Y^0^0^Y
+40 ;;BCBS OF FLORIDA^VA66^SB590^12B34^Y^Y^9999^9999^Y
+41 ;;BCBS OF GEORGIA^VA168^SB600^12015^Y^Y^9999^9999^Y
+42 ;;BCBS OF HAWAII^VA1004^SB971^12B62^Y^Y^9999^9999^Y
+43 ;;BCBS OF ILLINOIS^VA167^SB621^12B08^Y^Y^31^730^Y
+44 ;;BCBS OF INDIANA^VA444^SB630^12B09^Y^Y^31^1095^Y
+45 ;;BCBS OF IOWA^VA469^SB640^12B10^Y^Y^365^365^Y
+46 ;;BCBS OF KANSAS^VA385^SB650^57325^Y^Y^31^730^Y
+47 ;;BCBS OF KANSAS CITY^VA884^^12B66^Y^Y^31^730^Y
+48 ;;BCBS OF KENTUCKY^VA445^SB660^12B11^Y^Y^31^1095^Y
+49 ;;BCBS OF LOUISIANA^VA3^23738^12B12^Y^Y^9999^9999^Y
+50 ;;BCBS OF MAINE^VA345^SB680^12B13^Y^Y^31^1095^Y
+51 ;;BCBS OF MARYLAND (CAREFIRST)^VA707^SB690^12011^Y^Y^0^0^Y
+52 ;;BCBS OF MASSACHUSETTS^VA7^SB700^12B14^Y^Y^9999^9999^Y
+53 ;;BCBS OF MICHIGAN^VA346^SB710^12B18^Y^Y^31^365^Y
+54 ;;BCBS OF MINNESOTA^VA67^SB720^12B16^Y^Y^9999^9999^Y
+55 ;;BCBS OF MISSISSIPPI^VA8^SB730^12B17^Y^Y^9999^9999^Y
+56 ;;BCBS OF MISSOURI^VA446^SB741^12B66^Y^Y^31^1095^Y
+57 ;;BCBS OF MONTANA^VA984^SB751^12B77^Y^Y^31^365^Y
+58 ;;BCBS OF NEBRASKA^VA468^SB760^12B19^Y^Y^31^730^Y
+59 ;;BCBS OF NEVADA^VA684^SB765^12B20^Y^Y^31^545^Y
+60 ;;BCBS OF NEW HAMPSHIRE^VA447^SB770^12B21^Y^Y^31^1095^Y
+61 ;;BCBS OF NEW JERSEY (HORIZON)^VA4^22099^22099^Y^Y^0^730^Y
+62 ;;BCBS OF NEW MEXICO^VA68^SB790^12B22^Y^Y^0^0^Y
+63 ;;BCBS OF NEW YORK (EMPIRE)^VA5^SB803^55093^Y^Y^9999^9999^Y
+64 ;;BCBS OF NEW YORK (EXCELLUS)^VA969^SB805^12B71^Y^Y^31^365^Y
+65 ;;BCBS OF NEW YORK HEALTHNOW/WESTERN^VA970^SB801^12B39^Y^Y^31^365^Y
+66 ;;BCBS OF NORTH CAROLINA^VA685^SB810^12B23^Y^Y^9999^1095^Y
+67 ;;BCBS OF NORTH DAKOTA^VA924^SB820^12B78^Y^Y^31^365^Y
+68 ;;BCBS OF OHIO^VA364^SB338^12B24^Y^Y^31^1095^Y
+69 ;;BCBS OF OKLAHOMA^VA1005^SB840^12B59^Y^Y^9999^9999^Y
+70 ;;BCBS OF OREGON (REGENCE)^VA204^SB850^12B41^Y^Y^180^730^Y
+71 ;;BCBS OF PENNSYLVANIA (HIGHMARK)^VA304^SB865^12B60^Y^Y^182^365^Y
+72 ;;BCBS OF RHODE ISLAND^VA425^SB871^^Y^Y^31^365^Y
+73 ;;BCBS OF ROCHESTER AREA (NY)^VA1025^SB804^12B40^Y^Y^9999^9999^Y
+74 ;;BCBS OF SOUTH CAROLINA^VA185^SB880^12B55^Y^Y^365^1095^Y
+75 ;;BCBS OF SOUTH DAKOTA^VA470^SB889^12B33^Y^Y^31^365^Y
+76 ;;BCBS OF TENNESSEE^VA744^SB890^12B45^Y^Y^30^365^Y
+77 ;;BCBS OF TEXAS^VA69^SB900^12B31^Y^Y^9999^730^Y
+78 ;;BCBS OF UTICA-WATERTOWN (NY)^VA1026^SB806^12B38^Y^Y^9999^9999^Y
+79 ;;BCBS OF VERMONT^VA1027^SB915^12B32^Y^Y^9999^9999^Y
+80 ;;BCBS OF VIRGINIA^VA347^SB923^12002^Y^Y^31^1095^Y
+81 ;;BCBS OF WEST VIRGINIA^VA1007^SB941^12B28^Y^Y^182^730^Y
+82 ;;BCBS OF WISCONSIN^VA448^SB950^12B29^Y^Y^31^1095^Y
+83 ;;BCBS OF WYOMING^VA925^SB960^12B30^Y^Y^31^365^Y
+84 ;;BEST LIFE & HEALTH^VA91^95604^95604^Y^Y^9999^9999^N
+85 ;;BLUE CROSS OF CALIFORNIA^VA9^47198^47198^Y^Y^9999^9999^Y
+86 ;;BLUE CROSS OF IDAHO^VA384^SB612^12B07^Y^Y^9999^9999^Y
+87 ;;BLUE CROSS OF PENNSYLVANIA (CAPITAL)^VA467^23045^23045^Y^Y^182^365^Y
+88 ;;BLUE CROSS OF PENNSYLVANIA (INDEPENDENCE)^VA424^SX083^12X26^Y^Y^31^730^Y
+89 ;;BLUE CROSS OF PENNSYLVANIA (NORTHEASTERN)^VA430^^^Y^Y^547^730^Y
+90 ;;BLUE CROSS OF UTAH (REGENCE)^VA1006^SB801^12B39^Y^Y^9999^9999^Y
+91 ;;BLUE CROSS OF WASHINGTON (PREMERA)^VA565^SB930^12B27^Y^Y^31^365^Y
+92 ;;BLUE SHIELD OF CALIFORNIA^VA126^94036^94036^Y^Y^31^365^Y
+93 ;;BLUE SHIELD OF IDAHO^VA1028^SB611^12B88^Y^Y^9999^9999^Y
+94 ;;BLUE SHIELD OF NEW YORK (NORTHEASTERN)^VA1029^SB800^12B68^Y^Y^9999^9999^Y
+95 ;;BLUE SHIELD OF WASHINGTON (REGENCE)^VA205^SB931^^Y^Y^9999^9999^Y
+96 ;;BLUEGRASS FAMILY HEALTH^VA784^61124^61124^Y^Y^9999^9999^Y
+97 ;;BOON-CHAPMAN BENEFIT ADMIN^VA1047^74238^74238^Y^Y^9999^9999^Y
+98 ;;C AND O EMP HOSP ASSOC^VA2271^23708^23708^Y^N^9999^9999^N
+99 ;;CAPITAL DISTRICT PHYSICIANS-CDPHP^VA966^SX065^12X03^Y^Y^9999^9999^Y
+100 ;;CAPITOL ADMINISTRATORS^VA2253^68011^68011^Y^N^0^365^N
+101 ;;CARE IMPROVEMENT PLUS^VA2396^77082^77082^Y^N^30^730^N
+102 ;;CENTENE - ABSOLUTE TOTAL CARE^VA2314^68069^68069^Y^Y^0^0^N
+103 ;;CENTRAL STATES FUND^VA1065^36215^36215^Y^N^9999^9999^Y
+104 ;;CENTRAL STATES INDEMNITY^VA2026^36215^36215^Y^Y^0^0^N
+105 ;;CHAMPVA-SPINA BIFIDA- HAC^VA116^84146^84146^Y^N^0^0^Y
+106 ;;CHC OF FLORIDA^VA1724^25133^25133^Y^N^90^545^Y
+107 ;;CHC OF ILLINOIS^VA181^25146^25146^Y^N^90^545^Y
+108 ;;CHC OF KANSAS^VA37^25133^25133^Y^N^90^545^Y
+109 ;;CIGNA^VA10^62308^62308^Y^Y^31^9999^Y
+110 ;;CIGNA BEHAVIORAL HEALTH^VA2540^SX071^^Y^N^9999^730^Y
+111 ;;CMS^VA2086^SMTX1^12M61^Y^Y^120^820^Y
+112 ;;COLONIAL PENN LIFE^VA2166^36066^36066^Y^Y^30^365^Y
+113 ;;COLORADO ACCESS^VA169^84129^^Y^Y^9999^9999^N
+114 ;;COMMUNITY CARE OF OKLAHOMA^VA324^73143^73143^Y^Y^9999^9999^Y
+115 ;;CONNECTICARE^VA945^6105^6105^Y^Y^9999^9999^Y
+116 ;;CONSOLIDATED ASSOCIATES RAILROAD (CARE)^VA2478^75284^75284^Y^N^0^0^N
+117 ;;COOPERATIVE BENEFIT ADMIN (CBA)^VA75^52132^52132^Y^N^9999^9999^Y
+118 ;;CORESOURCE (FMH)^VA428^48117^48117^Y^Y^9999^9999^Y
+119 ;;CORESOURCE (LITTLE ROCK)^VA77^75136^75136^Y^Y^9999^9999^Y
+120 ;;CORESOURCE (MD PA IL NC IN)^VA78^35182^35182^Y^Y^9999^9999^Y
+121 ;;CORESOURCE (OH)^VA80^35183^35183^Y^Y^9999^9999^Y
+122 ;;COUNTRY LIFE INSURANCE CO^VA1904^62553^62553^Y^N^0^0^Y
+123 ;;COVENTRY GROUP HEALTH PLAN (GHP)^VA31^25141^25141^Y^N^90^545^Y
+124 ;;COVENTRY HEALTH AMERICA/HAPA^VA32^25126^25126^Y^N^90^545^Y
+125 ;;COVENTRY HEALTH AND LIFE (OKLAHOMA)^VA584^25133^25133^Y^N^90^545^Y
+126 ;;COVENTRY HEALTH AND LIFE (TENN)^VA585^25141^25141^Y^N^90^545^N
+127 ;;COVENTRY HEALTH AND LIFE-NEVADA^VA826^25149^25149^Y^N^90^545^N
+128 ;;COVENTRY HEALTH CARE CARELINK^VA33^25139^25139^Y^N^90^545^Y
+129 ;;COVENTRY HEALTH CARE FEDERAL^VA905^62413^62413^Y^N^90^545^Y
+130 ;;COVENTRY HEALTH CARE OF DELAWARE^VA39^25130^25130^Y^N^90^545^Y
+131 ;;COVENTRY HEALTH CARE OF GEORGIA^VA40^25127^25127^Y^N^90^545^Y
+132 ;;COVENTRY HEALTH CARE OF IOWA^VA41^25132^25132^Y^N^90^545^Y
+133 ;;COVENTRY HEALTH CARE OF LOUISIANA^VA42^25135^25135^Y^N^90^545^Y
+134 ;;COVENTRY HEALTH CARE OF NEBRASKA^VA43^25136^25136^Y^N^90^545^Y
+135 ;;COVENTRY HEALTHCARE NATIONAL NETWK^VA85^25133^25133^Y^N^9999^9999^Y
+136 ;;COVENTRY MISSOURI^VA828^25133^25133^Y^N^90^545^Y
+137 ;;COVENTRY OF THE CAROLINAS -WELLPATH^VA61^25129^25129^Y^N^90^545^Y
+138 ;;COVENTRY SOUTHERN HEALTH SVCS (SHS)^VA62^25128^25128^Y^N^90^545^Y
+139 ;;COVENTRYONE^VA804^87043^87043^Y^N^90^545^Y
+140 ;;DAKOTA CARE^VA1404^^^Y^N^9999^9999^Y
+141 ;;DEAN HEALTH PLAN^VA1849^39113^39113^Y^Y^31^9999^N
+142 ;;DENVER HEALTH MEDICAL PLAN^VA2518^84135^84135^Y^N^0^365^N
+143 ;;DESERET MUTUAL^VA1624^SX105^12X35^Y^Y^9999^9999^N
+144 ;;EBMS^VA2126^SX182^12X44^Y^N^9999^9999^N
+145 ;;EMBLEMHEALTH^VA604^^^Y^Y^0^0^Y
+146 ;;ESSENCE HEALTHCARE^VA2316^20818^20818^Y^N^9999^9999^Y
+147 ;;EVERENCE FINANCIAL^VA2418^35605^35605^Y^N^0^0^N
+148 ;;EVERGREEN HEALTH CO-OP^VA2580^45319^45319^Y^Y^9999^9999^N
+149 ;;FCE BENEFIT ADMINISTRATORS INC.^VA1745^33033^33033^Y^Y^9999^9999^Y
+150 ;;FEDERATED INSURANCE COMPANY^VA84^41041^41041^Y^Y^9999^9999^Y
+151 ;;FIRST AMERITAS OF NEW YORK^VA157^72630^72630^Y^Y^9999^9999^N
+152 ;;FIRST RELIANCE STANDARD LIFE INS CO^VA159^13317^13317^Y^Y^9999^9999^N
+153 ;;FIRST UNITED AMERICAN INSURANCE CO^VA2479^55821^55821^Y^N^0^0^N
+154 ;;FIRSTCARE^VA2146^TH003^12T03^Y^N^0^365^N
+155 ;;FLORIDA HEALTH CARE PLANS^VA2251^59322^59322^Y^N^365^730^N
+156 ;;FLORIDA HOSPITAL HEALTHCARE SYSTEM^VA1049^59321^59321^Y^Y^0^365^N
+157 ;;GEISINGER HEALTH PLAN^VA1504^75273^75273^Y^Y^31^365^Y
+158 ;;GLOBE LIFE AND ACCIDENT INSURANCE CO^VA2641^55001^55001^Y^N^0^0^N
+159 ;;GMP EMPLOYER RETIREE TRUST^VA2683^11794^11794^Y^N^9999^9999^N
+160 ;;GOLDEN RULE INSURANCE^VA1850^37602^37602^Y^N^31^540^Y
+161 ;;GOVT EMPLOYEES HSPTL ASSOC (GEHA)^VA429^44054^44054^Y^Y^0^0^Y
+162 ;;GREAT WEST HEALTHCARE^VA132^80705^80705^Y^Y^9999^540^Y
+163 ;;GROUP & PENSION ADMINISTRATORS^VA173^48143^48143^Y^Y^9999^9999^Y
+164 ;;GROUP HEALTH COOPERATIVE^VA1524^91051^91051^Y^Y^9999^9999^Y
+165 ;;HARVARD PILGRIM HEALTH CARE^VA405^4271^4271^Y^N^31^1095^Y
+166 ;;HEALTH ALLIANCE MEDICAL PLANS (HAP-MI)^VA426^38224^38224^Y^N^9999^9999^Y
+167 ;;HEALTH ALLIANCE MEDICAL PLANS (IL)^VA2376^5977^5977^Y^N^0^730^Y
+168 ;;HEALTH FIRST OF NEW JERSEY^VA1066^80141^80141^Y^Y^9999^9999^N
+169 ;;HEALTH NET (AZ, CA, OR, NORTHEAST)^VA464^38309^38309^Y^Y^31^365^Y
+170 ;;HEALTH NEW ENGLAND^VA1604^^^Y^N^9999^9999^N
+171 ;;HEALTH PARTNERS OF PHILADELPHIA^VA170^80142^80142^Y^Y^31^9999^Y
+172 ;;HEALTH PLAN OF UPPER OHIO VALLEY^VA2643^34150^34150^Y^Y^9999^9999^N
+173 ;;HEALTHCARE SOLUTIONS GROUP^VA1050^73147^73147^Y^N^0^0^N
+174 ;;HEALTHCOMP ADMINISTRATORS^VA2274^85729^85729^Y^N^9999^9999^N
+175 ;;HEALTHFIRST OF NEW YORK^VA94^80141^80141^Y^Y^9999^9999^Y
+176 ;;HEALTHGRAM^VA2250^56144^56144^Y^N^0^0^N
+177 ;;HEALTHPARTNERS (MN)^VA1125^SX009^12X51^Y^N^60^365^Y
+178 ;;HEALTHPLANS INC^VA1986^44273^44273^Y^N^0^1095^N
+179 ;;HEALTHPLUS OF MICHIGAN^VA427^38216^38216^Y^N^9999^9999^Y
+180 ;;HEALTHSCOPE^VA1564^71063^71063^Y^Y^9999^9999^N
+181 ;;HEALTHSPRING^VA1051^63092^63092^Y^Y^9999^9999^Y
+182 ;;HOMETOWN HEALTH PLAN^VA971^88023^88023^Y^N^60^365^Y
+183 ;;HUMANA^VA163^61101^61101^Y^Y^365^365^Y
+184 ;;IDEAL LIFE INSURANCE^VA2029^75300^75300^Y^Y^0^0^N
+185 ;;INDEPENDENT HEALTH^VA1544^SX073^12X01^Y^N^31^365^Y
+186 ;;INTERNATIONAL MEDICAL CARD INC^VA2293^66053^66053^Y^Y^9999^9999^Y
+187 ;;JOHN ALDEN LIFE INS CO (JALIC)^VA89^41099^41099^Y^Y^9999^9999^Y
+188 ;;JOHN HOPKINS HEALTH PLAN^VA1052^52189^52189^Y^Y^9999^9999^N
+189 ;;KAISER FDN HEALTHPLAN- COLORADO^VA109^^^Y^Y^9999^9999^Y
+190 ;;KAISER FDN HEALTHPLAN- HAWAII^VA131^^^Y^Y^9999^9999^Y
+191 ;;KAISER FDN HEALTHPLAN- NORTHWEST^VA112^^^Y^Y^9999^9999^Y
+192 ;;KAISER PERMANENTE OF GEORGIA^VA110^21313^21313^Y^Y^9999^9999^Y
+193 ;;KAISER PERMANENTE OF N CALIFORNIA^VA114^^^Y^N^9999^9999^Y
+194 ;;KAISER PERMANENTE OF S CALIFORNIA^VA115^94134^94134^Y^N^9999^9999^Y
+195 ;;KITSAP PHYSICIAN SERVICES^VA964^KPS01^KPS01^Y^Y^90^365^Y
+196 ;;KSKJ LIFE^VA2030^75300^75300^Y^Y^0^0^N
+197 ;;LIFETIME BENEFIT SERVICES (RMSCO)^VA2246^16117^16117^Y^Y^9999^9999^N
+198 ;;LINCOLN HERITAGE^VA2031^75300^75300^Y^Y^0^0^N
+199 ;;LOOMIS COMPANY^VA1985^23223^23223^Y^Y^9999^9999^N
+200 ;;LOYAL AMERICAN MEDICARE SUPP^VA1645^13193^13193^Y^N^9999^9999^Y
+201 ;;EXIT