KIDS Distribution saved on Mar 23, 2020@13:15:34 ESM 5.12 - DG*5.3*998, IVM*2.0*192 - Z05 IGNORE FOREIGN ADDRESS/VHAP UPDATES V4 **KIDS**:DG*5.3*998^IVM*2.0*192^ **INSTALL NAME** DG*5.3*998 "BLD",5180,0) DG*5.3*998^REGISTRATION^0^3200323^y "BLD",5180,1,0) ^^2^2^3200312^^^ "BLD",5180,1,1,0) Please see the DG*5.3*998 patch description for detailed information "BLD",5180,1,2,0) regarding this patch. "BLD",5180,4,0) ^9.64PA^25.11^1 "BLD",5180,4,25.11,0) 25.11 "BLD",5180,4,25.11,222) n^n^f^^n^^y^o^n "BLD",5180,4,"B",25.11,25.11) "BLD",5180,6) 1^ "BLD",5180,6.3) 15 "BLD",5180,"ABPKG") n "BLD",5180,"INI") PRE^DG53998 "BLD",5180,"INID") ^^y "BLD",5180,"KRN",0) ^9.67PA^8989.52^19 "BLD",5180,"KRN",.4,0) .4 "BLD",5180,"KRN",.401,0) .401 "BLD",5180,"KRN",.402,0) .402 "BLD",5180,"KRN",.402,"NM",0) ^9.68A^^0 "BLD",5180,"KRN",.403,0) .403 "BLD",5180,"KRN",.5,0) .5 "BLD",5180,"KRN",.84,0) .84 "BLD",5180,"KRN",3.6,0) 3.6 "BLD",5180,"KRN",3.8,0) 3.8 "BLD",5180,"KRN",9.2,0) 9.2 "BLD",5180,"KRN",9.8,0) 9.8 "BLD",5180,"KRN",9.8,"NM",0) ^9.68A^^0 "BLD",5180,"KRN",19,0) 19 "BLD",5180,"KRN",19.1,0) 19.1 "BLD",5180,"KRN",101,0) 101 "BLD",5180,"KRN",409.61,0) 409.61 "BLD",5180,"KRN",771,0) 771 "BLD",5180,"KRN",870,0) 870 "BLD",5180,"KRN",8989.51,0) 8989.51 "BLD",5180,"KRN",8989.52,0) 8989.52 "BLD",5180,"KRN",8994,0) 8994 "BLD",5180,"KRN","B",.4,.4) "BLD",5180,"KRN","B",.401,.401) "BLD",5180,"KRN","B",.402,.402) "BLD",5180,"KRN","B",.403,.403) "BLD",5180,"KRN","B",.5,.5) "BLD",5180,"KRN","B",.84,.84) "BLD",5180,"KRN","B",3.6,3.6) "BLD",5180,"KRN","B",3.8,3.8) "BLD",5180,"KRN","B",9.2,9.2) "BLD",5180,"KRN","B",9.8,9.8) "BLD",5180,"KRN","B",19,19) "BLD",5180,"KRN","B",19.1,19.1) "BLD",5180,"KRN","B",101,101) "BLD",5180,"KRN","B",409.61,409.61) "BLD",5180,"KRN","B",771,771) "BLD",5180,"KRN","B",870,870) "BLD",5180,"KRN","B",8989.51,8989.51) "BLD",5180,"KRN","B",8989.52,8989.52) "BLD",5180,"KRN","B",8994,8994) "BLD",5180,"QDEF") ^^^^NO^^^^NO^^YES "BLD",5180,"QUES",0) ^9.62^^ "BLD",5180,"REQB",0) ^9.611^1^1 "BLD",5180,"REQB",1,0) DG*5.3*1006^1 "BLD",5180,"REQB","B","DG*5.3*1006",1) "DATA",25.11,2,0) BENEFICIARY NEWBORN^102^NB01001 "DATA",25.11,2,1,0) ^^1^1^3200320 "DATA",25.11,2,1,1,0) NB "DATA",25.11,2,2,0) ^^15^15^3200320 "DATA",25.11,2,2,1,0) Newborn care and post-delivery care for a newborn child for the date of "DATA",25.11,2,2,2,0) birth plus seven calendar days after the birth of the child when the birth "DATA",25.11,2,2,3,0) mother is a woman Veteran enrolled in VA health care and receiving "DATA",25.11,2,2,4,0) maternity care furnished by VA or under authorization from VA and the child "DATA",25.11,2,2,5,0) is delivered either in a VA facility, or in another facility pursuant to a "DATA",25.11,2,2,6,0) VA authorization for maternity care at VA expense. "DATA",25.11,2,2,7,0) "DATA",25.11,2,2,8,0) Newborn: "DATA",25.11,2,2,9,0) . Born to a woman Veteran receiving maternity services through the VA "DATA",25.11,2,2,10,0) or VA preauthorized maternity care from a non-VA provider "DATA",25.11,2,2,11,0) . Authorized Community Provider or a non-VA facility (under a Non-VA "DATA",25.11,2,2,12,0) Medical Care authorization) "DATA",25.11,2,2,13,0) . Newborn Eligible from the DATE OF BIRTH + 7 DAYS "DATA",25.11,2,2,14,0) o Newborn begins eligibility on its date of birth "DATA",25.11,2,2,15,0) o Eligibility continues for 7 consecutive calendar days "DATA",25.11,3,0) VETERAN PLAN - STATE HOME VETERAN PLANS^103 "DATA",25.11,3,2,0) ^25.14^5^5^3130312^^^^ "DATA",25.11,3,2,1,0) State Home Plan provides Nursing home care and medications for veterans "DATA",25.11,3,2,2,0) with service-connected disabilities. "DATA",25.11,3,2,3,0) The Secretary shall pay each State home for nursing home care at the rate "DATA",25.11,3,2,4,0) determined under paragraph (2), in any case in which such care is provided "DATA",25.11,3,2,5,0) to any veteran. (Public Law 109-461) (38 USC 1745) "DATA",25.11,4,0) VETERAN PLAN - MEDICAL BENEFITS PACKAGE (BASIC PLAN COVERAGE FOR SC, NSC, ETC.)^104 "DATA",25.11,4,2,0) ^^7^7^3130307^ "DATA",25.11,4,2,1,0) Medical Benefits Package Plan provides a full spectrum of medically "DATA",25.11,4,2,2,0) necessary services, based on the judgment of your VA primary care "DATA",25.11,4,2,3,0) provider and in accordance with generally accepted standards of clinical "DATA",25.11,4,2,4,0) practice. These services include: Primary Care, Health Promotion, Disease "DATA",25.11,4,2,5,0) Prevention, Diagnosis, Palliative Care, Surgery, Prescriptions for "DATA",25.11,4,2,6,0) Medications, Prosthetics, Critical Care, Mental Health Care, Women's "DATA",25.11,4,2,7,0) Health Care, Orthopedics, Radiology, Physical Therapy, Rehabilitation. "DATA",25.11,5,0) VETERAN PLAN - CO-PAY RESPONSIBILITIES (SPECIAL MEDICAL COVERAGE BASED ON 'QUALIFYING FACTORS' SUCH AS CV,AO,SWAC,SHAD,CAMP LEJEUNE,ETC.)^105 "DATA",25.11,5,2,0) ^25.14^7^7^3130308^^^ "DATA",25.11,5,2,1,0) Co-Pay Responsibilities Plan provides Veterans qualify for free "DATA",25.11,5,2,2,0) healthcare services based on a VA compensable service-connected condition "DATA",25.11,5,2,3,0) or other qualifying factor, most Veterans are asked to complete an annual "DATA",25.11,5,2,4,0) financial assessment, to determine if they qualify for free services. "DATA",25.11,5,2,5,0) Veterans whose income exceed the established VA Income Thresholds as well "DATA",25.11,5,2,6,0) as those who choose not to complete the financial assessment must agree "DATA",25.11,5,2,7,0) to pay required copays to become eligible for VA healthcare services. "DATA",25.11,6,0) VETERAN PLAN - BENEFICIARY TRAVEL^106 "DATA",25.11,6,2,0) ^^4^4^3130307^ "DATA",25.11,6,2,1,0) Beneficiary Travel Plan provides a mechanism under 38 U.S.C. 111 for the "DATA",25.11,6,2,2,0) Veterans Health Administration (VHA) to make payments for travel expense "DATA",25.11,6,2,3,0) incurred in the United States to help veterans and other persons obtain "DATA",25.11,6,2,4,0) care or services from VHA. "DATA",25.11,7,0) VETERAN PLAN - DENTAL^107 "DATA",25.11,7,2,0) ^^8^8^3130308^ "DATA",25.11,7,2,1,0) Dental Plan provides: Outpatient dental services and treatment, and "DATA",25.11,7,2,2,0) related dental appliances, shall be furnished under this section only for "DATA",25.11,7,2,3,0) a dental condition or disability. Inpatient dental services that are "DATA",25.11,7,2,4,0) professionally determined by a VA dentist, in consultation with the "DATA",25.11,7,2,5,0) referring physician, to be essential to the management of the patient's "DATA",25.11,7,2,6,0) medical condition under active treatment while receiving hospital, "DATA",25.11,7,2,7,0) nursing home or domiciliary care. "DATA",25.11,7,2,8,0) (38 USC 1712) "DATA",25.11,8,0) BENEFICIARY CHAMPVA^108^CV01001 "DATA",25.11,8,1,0) ^^1^1^3200320 "DATA",25.11,8,1,1,0) CHAMP "DATA",25.11,8,2,0) ^^91^91^3200323^ "DATA",25.11,8,2,1,0) To be eligible for CHAMPVA, the beneficiary cannot be eligible for TRICARE. "DATA",25.11,8,2,2,0) CHAMPVA provides coverage to the spouse or widow(er) and to the children of "DATA",25.11,8,2,3,0) a Veteran who: "DATA",25.11,8,2,4,0) . is permanently and totally disabled (P&T) because of an adjudicated "DATA",25.11,8,2,5,0) service-connected disability, or "DATA",25.11,8,2,6,0) . died as a result of an adjudicated service-connected disability or "DATA",25.11,8,2,7,0) who at the time of death was rated P&T due to service-connected "DATA",25.11,8,2,8,0) conditions, or "DATA",25.11,8,2,9,0) . died while in an active duty status and in the line of duty, not due "DATA",25.11,8,2,10,0) to misconduct. The term "active duty" may include periods of "DATA",25.11,8,2,11,0) inactive duty for training. "DATA",25.11,8,2,12,0) "DATA",25.11,8,2,13,0) . Effective October 1, 2001, CHAMPVA benefits were extended to "DATA",25.11,8,2,14,0) beneficiaries age 65 and older. To be eligible, you must also meet "DATA",25.11,8,2,15,0) the following conditions: "DATA",25.11,8,2,16,0) . If the beneficiary was 65 or older prior to June 5, 2001, and was "DATA",25.11,8,2,17,0) otherwise eligible for CHAMPVA, and was entitled to Medicare Part A "DATA",25.11,8,2,18,0) coverage, then the beneficiary will be eligible for CHAMPVA without "DATA",25.11,8,2,19,0) the need for Medicare Part B coverage. "DATA",25.11,8,2,20,0) . If the beneficiary turned 65 before June 5, 2001, and had Medicare "DATA",25.11,8,2,21,0) Parts A and B, the beneficiary must keep both Medicare Parts A and B "DATA",25.11,8,2,22,0) to be eligible. "DATA",25.11,8,2,23,0) . If the beneficiary turned age 65 on or after June 5, 2001, the "DATA",25.11,8,2,24,0) beneficiary must be enrolled in Medicare Parts A and B to be "DATA",25.11,8,2,25,0) eligible. "DATA",25.11,8,2,26,0) . If the beneficiary is entitled to Medicare Part A, the beneficiary "DATA",25.11,8,2,27,0) must carry Part B to be eligible. Some of the rules that impact "DATA",25.11,8,2,28,0) CHAMPVA eligibility: "DATA",25.11,8,2,29,0) o Ending Date for a Child's Eligibility. Eligibility for CHAMPVA "DATA",25.11,8,2,30,0) ends when "DATA",25.11,8,2,31,0) - a child turns 18, unless enrolled in an accredited school "DATA",25.11,8,2,32,0) as a full-time student, or "DATA",25.11,8,2,33,0) - a child, who has been a full-time student, turns 23, or "DATA",25.11,8,2,34,0) - a child marries (as of midnight on the date of marriage), "DATA",25.11,8,2,35,0) or "DATA",25.11,8,2,36,0) - a stepchild no longer lives in the household of the "DATA",25.11,8,2,37,0) sponsor "DATA",25.11,8,2,38,0) . Impact of Divorce or Remarriage of Spouse on Child's Eligibility. The "DATA",25.11,8,2,39,0) eligibility of a child is not affected by the divorce or remarriage "DATA",25.11,8,2,40,0) of the spouse, except in the case of a stepchild. When a stepchild "DATA",25.11,8,2,41,0) leaves the sponsor's household, the child is no longer eligible for "DATA",25.11,8,2,42,0) CHAMPVA. "DATA",25.11,8,2,43,0) . Helpless Child. A child who, before the age of 18, became permanently "DATA",25.11,8,2,44,0) incapable of self-support and was rated as a helpless child by a VA "DATA",25.11,8,2,45,0) Regional Office, is eligible for CHAMPVA with no age limitation. "DATA",25.11,8,2,46,0) . Spouse. Eligibility for CHAMPVA ends with termination of the marriage "DATA",25.11,8,2,47,0) to the qualifying sponsor by annulment or divorce. CHAMPVA "DATA",25.11,8,2,48,0) eligibility terminates as of midnight on the effective date of the "DATA",25.11,8,2,49,0) dissolution of the marriage, as stated in the annulment or divorce "DATA",25.11,8,2,50,0) decree. "DATA",25.11,8,2,51,0) . Widow(er) Remarriage Before Age 55. Eligibility for CHAMPVA ends if "DATA",25.11,8,2,52,0) the widow(er) remarries prior to age 55. CHAMPVA eligibility "DATA",25.11,8,2,53,0) terminates at midnight on the date of the remarriage. "DATA",25.11,8,2,54,0) . Widow(er) Remarriage After Age 55. Effective February 4, 2003, Public "DATA",25.11,8,2,55,0) Law 107-330, authorized the VA to allow benefits to a CHAMPVA- "DATA",25.11,8,2,56,0) qualifying surviving spouse who remarried after age 55. A widow(er) "DATA",25.11,8,2,57,0) who met the criteria for a CHAMPVA beneficiary, who remarried before "DATA",25.11,8,2,58,0) the enactment of this legislation, and was 55 years old when they "DATA",25.11,8,2,59,0) remarried, had until December 31, 2004, to apply for CHAMPVA "DATA",25.11,8,2,60,0) benefits. For additional information, refer to Fact Sheet 01-16: "DATA",25.11,8,2,61,0) CHAMPVA Eligibility and Remarriage After Age 55 which can be found on "DATA",25.11,8,2,62,0) the VHA CC website. "DATA",25.11,8,2,63,0) . Termination of Remarriage. A widow(er) of a qualifying sponsor who "DATA",25.11,8,2,64,0) remarries, and the remarriage is later terminated by death, divorce "DATA",25.11,8,2,65,0) or annulment may establish CHAMPVA eligibility. The beginning date of "DATA",25.11,8,2,66,0) eligibility is the first day of the month after termination of the "DATA",25.11,8,2,67,0) remarriage or December 1, 1999, whichever date is later. To establish "DATA",25.11,8,2,68,0) CHAMPVA eligibility, copies of the marriage certificate and death, "DATA",25.11,8,2,69,0) divorce or annulment documents (as appropriate) must be provided. "DATA",25.11,8,2,70,0) . What if I am under the age of 65 and entitled to Medicare? You must "DATA",25.11,8,2,71,0) be enrolled in both Medicare Part A and Medicare Part B to be "DATA",25.11,8,2,72,0) eligible for CHAMPVA. CHAMPVA will pay after Medicare, Medicare "DATA",25.11,8,2,73,0) supplemental plans, Medicare HMO plans, and any other health "DATA",25.11,8,2,74,0) insurance coverage for health care services and supplies. If you are "DATA",25.11,8,2,75,0) entitled to premium-free Medicare Part A and are not enrolled in "DATA",25.11,8,2,76,0) Medicare Part B, you are not eligible for CHAMPVA. If you later "DATA",25.11,8,2,77,0) enroll in Medicare Part B, you may apply for CHAMPVA at that time. In "DATA",25.11,8,2,78,0) that case, CHAMPVA eligibility will begin on the effective date of "DATA",25.11,8,2,79,0) your Medicare Part B coverage. To be eligible for the CITI program: "DATA",25.11,8,2,80,0) o You must be eligible for the CHAMPVA program, "DATA",25.11,8,2,81,0) o You must not be entitled to Medicare, or "DATA",25.11,8,2,82,0) o Enrolled in an HMO. "DATA",25.11,8,2,83,0) "DATA",25.11,8,2,84,0) CHAMPVA pays secondary to any other health insurance (OHI) you "DATA",25.11,8,2,85,0) may have. You MUST use your primary OHI before CHAMPVA and "DATA",25.11,8,2,86,0) follow their rules. If your OHI does not include VA medical "DATA",25.11,8,2,87,0) centers in their network of providers, the CITI program would "DATA",25.11,8,2,88,0) not be available to you. The decision to participate in the "DATA",25.11,8,2,89,0) CITI program rests with individual VA medical center directors. "DATA",25.11,8,2,90,0) There is no cost share or deductible for covered services "DATA",25.11,8,2,91,0) received at a participating CITI. "DATA",25.11,9,0) BENEFICIARY SPINA BIFIDA^109^SB01001 "DATA",25.11,9,1,0) ^^1^1^3200107 "DATA",25.11,9,1,1,0) SB "DATA",25.11,9,2,0) ^^15^15^3200107 "DATA",25.11,9,2,1,0) The Department of Veterans Affairs (VA) provides monetary allowances, "DATA",25.11,9,2,2,0) vocational training and rehabilitation and VA financed health care benefits "DATA",25.11,9,2,3,0) to certain Korea and Vietnam Veterans' birth children who have been "DATA",25.11,9,2,4,0) diagnosed with spina bifida (SB). If you are the birth child of a Vietnam "DATA",25.11,9,2,5,0) Veteran and you have been diagnosed with spina bifida, you may already be "DATA",25.11,9,2,6,0) receiving monetary allowances, vocational training or rehabilitation due "DATA",25.11,9,2,7,0) to your condition. For the purpose of the VA SB Health Care Benefits Program, "DATA",25.11,9,2,8,0) spina bifida is defined as all forms or manifestations of spina bifida "DATA",25.11,9,2,9,0) (except spina bifida occulta). "DATA",25.11,9,2,10,0) "DATA",25.11,9,2,11,0) The Veterans Health Administration Office of Community Care (VHA OCC) in "DATA",25.11,9,2,12,0) Denver, CO, manages the SB Health Care Benefits Program, including "DATA",25.11,9,2,13,0) authorization of benefits and the subsequent processing and payment of "DATA",25.11,9,2,14,0) health care claims after a determination of eligibility has been made by "DATA",25.11,9,2,15,0) the Denver VA Regional Office (VARO). "DATA",25.11,10,0) BENEFICIARY CHILDREN OF WOMEN OF VIETNAM VETERANS^110^CW01001 "DATA",25.11,10,1,0) ^^1^1^3200320 "DATA",25.11,10,1,1,0) CWVV "DATA",25.11,10,2,0) ^^27^27^3200320 "DATA",25.11,10,2,1,0) The Department of Veterans Affairs (VA) provides VA-financed health care "DATA",25.11,10,2,2,0) benefits to women Vietnam Veterans' birth children who the Veterans "DATA",25.11,10,2,3,0) Benefits Administration (VBA) has determined to have a covered birth "DATA",25.11,10,2,4,0) defect. The Children of Women Vietnam Veterans (CWVV) Health Care Benefits "DATA",25.11,10,2,5,0) Program is not a comprehensive health care plan and only covers those "DATA",25.11,10,2,6,0) services necessary for the treatment of a covered birth defect and "DATA",25.11,10,2,7,0) associated medical conditions. It does not cover care that is unrelated to "DATA",25.11,10,2,8,0) a covered birth defect. The VHA Office of Community Care (VHA OCC) in "DATA",25.11,10,2,9,0) Denver, Colorado, manages the CWVV Health Care Benefits Program, including "DATA",25.11,10,2,10,0) the authorization of medical benefits and the subsequent processing and "DATA",25.11,10,2,11,0) payment of claims. "DATA",25.11,10,2,12,0) "DATA",25.11,10,2,13,0) Eligibility: Children whose biological mother is a Vietnam Veteran and who "DATA",25.11,10,2,14,0) were conceived after the date the Veteran entered the Republic of Vietnam "DATA",25.11,10,2,15,0) (period beginning Feb. 28, 1961, and ending May 7, 1975), and who have one "DATA",25.11,10,2,16,0) of the covered birth defects as determined by the VBA are eligible for the "DATA",25.11,10,2,17,0) program. "DATA",25.11,10,2,18,0) "DATA",25.11,10,2,19,0) To enroll in the CWVV Health Care Benefits Program: Eligibility must first "DATA",25.11,10,2,20,0) be established for a monetary award under the Veterans Benefits "DATA",25.11,10,2,21,0) Administration (VBA). The Denver VA Regional Office makes the determination "DATA",25.11,10,2,22,0) regarding that entitlement. You must mail a completed 'Application for "DATA",25.11,10,2,23,0) Benefits For Certain Children of Vietnam Veterans With Disabilities', VA "DATA",25.11,10,2,24,0) Form 21-0304, along with medical evidence to the VA Regional Office, "DATA",25.11,10,2,25,0) Veterans Service Center, listed on the form. Once eligibility is "DATA",25.11,10,2,26,0) determined, the VA will notify the Office of Community Care and enrollment "DATA",25.11,10,2,27,0) in the CWVV Health Care Benefits Program is automatic. "DATA",25.11,11,0) VETERAN PLAN - WOMEN'S PROGRAMS^111 "DATA",25.11,11,2,0) ^^18^18^3130307^ "DATA",25.11,11,2,1,0) Women's Programs Plan provides a variety of services, including: "DATA",25.11,11,2,2,0) - Women's gender-specific health care (menopause evaluation and symptom "DATA",25.11,11,2,3,0) management, osteoporosis, incontinence, birth control, breast and "DATA",25.11,11,2,4,0) gynecological care, maternity and limited infertility services). "DATA",25.11,11,2,5,0) - Screening and disease prevention programs (for example, mammograms, "DATA",25.11,11,2,6,0) bone density screening, and cervical cancer screening) "DATA",25.11,11,2,7,0) Routine gynecologic services are available at VA facilities and include: "DATA",25.11,11,2,8,0) - Human Papilloma Virus (HPV) vaccinations "DATA",25.11,11,2,9,0) - Pelvic exams, ultrasounds "DATA",25.11,11,2,10,0) - Birth control counseling and management (medical and surgical) "DATA",25.11,11,2,11,0) - Pre-pregnancy care "DATA",25.11,11,2,12,0) - Treatment and prevention of sexually transmitted infections "DATA",25.11,11,2,13,0) A provider can assist with routine exams, diagnosis, and management of: "DATA",25.11,11,2,14,0) - Pelvic/abdominal pain; Abnormal vaginal bleeding; Vaginal symptoms "DATA",25.11,11,2,15,0) (dryness/infections); Breast and other women's cancers; Abnormal cervical "DATA",25.11,11,2,16,0) screening results; Infertility evaluation, including intrauterine "DATA",25.11,11,2,17,0) insemination (IUI). VA is not authorized to provide or cover the cost of "DATA",25.11,11,2,18,0) in-vitro fertilization (IVF).; Sexual dysfunction "DATA",25.11,12,0) VETERAN PLAN - NURSING HOME/COMMUNITY LIVING CENTERS (CLC)^113 "DATA",25.11,12,2,0) ^^23^23^3140602^ "DATA",25.11,12,2,1,0) Nursing Home/Community Living Centers Plan provides placement in nursing "DATA",25.11,12,2,2,0) homes, when clinically indicated, may be available either through VA's "DATA",25.11,12,2,3,0) Community Living Centers (CLC) or contract nursing homes. The mission of "DATA",25.11,12,2,4,0) the VA Community Living Centers (VACLC) program (formerly known as VA "DATA",25.11,12,2,5,0) Nursing Home Care Units) is to provide compassionate care to Veterans "DATA",25.11,12,2,6,0) with chronic stable conditions - those who suffer from dementia, who "DATA",25.11,12,2,7,0) require rehabilitation or short-term specialized services (such as "DATA",25.11,12,2,8,0) respite or intravenous therapy), or who need comfort and care at the end "DATA",25.11,12,2,9,0) of life. A Veteran is eligible for VA nursing home care if he or she is: "DATA",25.11,12,2,10,0) - Have a Service-connected disability rating of 70 percent or more; "DATA",25.11,12,2,11,0) - Are unemployable or have an official rating of "permanent and total "DATA",25.11,12,2,12,0) disabled;" "DATA",25.11,12,2,13,0) - Have a service-connected disability that is clinically determined to "DATA",25.11,12,2,14,0) require nursing home care; "DATA",25.11,12,2,15,0) - Are a Nonservice-connected veteran or a ""zero percent, noncompensable, "DATA",25.11,12,2,16,0) Service-connected"" veteran who requires nursing home care for any "DATA",25.11,12,2,17,0) Nonservice-connected disability and who meets income and asset criteria; "DATA",25.11,12,2,18,0) or "DATA",25.11,12,2,19,0) - Need care, if space and resources are available. Other Veterans are "DATA",25.11,12,2,20,0) evaluated on a case-by-case basis, with priority given to "DATA",25.11,12,2,21,0) Service-connected veterans and those who need care for post-acute "DATA",25.11,12,2,22,0) rehabilitation, respite, hospice, geriatric evaluation and management, or "DATA",25.11,12,2,23,0) spinal cord injury. "DATA",25.11,13,0) VETERAN PLAN - HOME HEALTH^114 "DATA",25.11,13,2,0) ^^13^13^3130307^ "DATA",25.11,13,2,1,0) Home Health Plan provides home health services VA's Skilled Home Health "DATA",25.11,13,2,2,0) Care Services (SHHC) and Homemaker and Home Health Aid Services "DATA",25.11,13,2,3,0) (H/HHA). "DATA",25.11,13,2,4,0) Skilled Home Health Care (SHHC) Services "DATA",25.11,13,2,5,0) SHHC services are in-home services provided by specially trained "DATA",25.11,13,2,6,0) personnel, including nurses, physical therapists, occupational therapists, "DATA",25.11,13,2,7,0) speech therapists, and social workers. Care includes clinical assessment, "DATA",25.11,13,2,8,0) treatment planning, treatment provision, health status monitoring, patient "DATA",25.11,13,2,9,0) and family education, reassessment, referral, and follow-up. "DATA",25.11,13,2,10,0) Homemaker/Home Health Aide (H/HHA) Services "DATA",25.11,13,2,11,0) H/HHA services are personal care and related support services that enable "DATA",25.11,13,2,12,0) frail or disabled Veterans to live at home. "DATA",25.11,13,2,13,0) (38 USC § 1717) "DATA",25.11,14,0) VETERAN PLAN - EYE GLASSES^115 "DATA",25.11,14,2,0) ^^10^10^3130307^ "DATA",25.11,14,2,1,0) Eye Glasses Plan provides service-connected Veterans receiving "DATA",25.11,14,2,2,0) compensation, former Prisoners of War, Purple Heart Recipients, or "DATA",25.11,14,2,3,0) Veterans in receipt of VA's Aid and Attendance or Housebound benefits and "DATA",25.11,14,2,4,0) receiving VA care or services, are provided eyeglasses based on clinical "DATA",25.11,14,2,5,0) need. "DATA",25.11,14,2,6,0) Otherwise, VA provides eyeglasses only in special circumstances. However, "DATA",25.11,14,2,7,0) Veterans otherwise receiving VA care or services may be eligible because "DATA",25.11,14,2,8,0) of medically compelling reasons, as determined by a VA eye care "DATA",25.11,14,2,9,0) practitioner. "DATA",25.11,14,2,10,0) (38 CFR §17.149) "DATA",25.11,15,0) VETERAN PLAN - CLOTHING ALLOWANCE^116 "DATA",25.11,15,2,0) ^^4^4^3130307^ "DATA",25.11,15,2,1,0) Clothing Allowance Plan provides service-connected Veterans who must wear "DATA",25.11,15,2,2,0) a prescribed device that causes their clothing to wear or tear, or if "DATA",25.11,15,2,3,0) clothing is damaged due to use of a topical ointment, may receive an "DATA",25.11,15,2,4,0) annual Clothing Allowance payment. (38 USC § 1162) "DATA",25.11,16,0) VETERAN PLAN - HEARING AID^117 "DATA",25.11,16,2,0) ^^9^9^3130307^ "DATA",25.11,16,2,1,0) Hearing Aid Plan provides service-connected Veterans receiving "DATA",25.11,16,2,2,0) compensation, former Prisoners of War, Purple Heart Recipients, or "DATA",25.11,16,2,3,0) Veterans in receipt of VA's Aid and Attendance or Housebound benefits and "DATA",25.11,16,2,4,0) receiving VA care or services, are provided hearing aids based on "DATA",25.11,16,2,5,0) clinical need. "DATA",25.11,16,2,6,0) Otherwise, VA provides hearing aids only in special circumstances. "DATA",25.11,16,2,7,0) However, Veterans otherwise receiving VA care or services may be eligible "DATA",25.11,16,2,8,0) because of medically compelling reasons, as determined by a VA "DATA",25.11,16,2,9,0) audiologist. (38 CFR §17.149) "DATA",25.11,17,0) VETERAN PLAN - NON VA EMERGENCY CARE^118 "DATA",25.11,17,2,0) ^^4^4^3130307^ "DATA",25.11,17,2,1,0) In case of emergencies, Veterans should always call 911. VA does not "DATA",25.11,17,2,2,0) have to be contacted in advance. Veterans should always go to the nearest "DATA",25.11,17,2,3,0) emergency room whether it's a VA or private facility. If transported by "DATA",25.11,17,2,4,0) ambulance, the paramedics generally will go to the closest emergency room. "DATA",25.11,18,0) VETERAN PLAN - MEDICATION AND SUPPLIES^119 "DATA",25.11,18,2,0) ^^3^3^3130307^ "DATA",25.11,18,2,1,0) Medication and Supplies Plan provides safe, effective, and medically "DATA",25.11,18,2,2,0) necessary medications to ensure the highest quality care for our nation's "DATA",25.11,18,2,3,0) Veterans. "DATA",25.11,19,0) VETERAN PLAN - HOME IMPROVEMENTS^120 "DATA",25.11,19,2,0) ^^3^3^3130307^ "DATA",25.11,19,2,1,0) Home Improvement Plan provides a Home Improvement and Structural "DATA",25.11,19,2,2,0) Alteration Grant may be awarded for improvements or structural "DATA",25.11,19,2,3,0) alterations needed to access home or essential bathroom facilities. "DATA",25.11,20,0) VETERAN PLAN - AUTOMOBILE ADAPTIVE EQUIPMENT^121 "DATA",25.11,20,2,0) ^^7^7^3130307^ "DATA",25.11,20,2,1,0) VA's Automobile Adaptive Equipment program Plan provides equipment and "DATA",25.11,20,2,2,0) training to enter, exit, or operate a motor vehicle for Service-connected "DATA",25.11,20,2,3,0) Veterans whose Primary Care Provider decides that it is necessary to "DATA",25.11,20,2,4,0) drive safely and comply with State licensing laws. Please note that only "DATA",25.11,20,2,5,0) certain Service-connected conditions qualify. Veterans may also be "DATA",25.11,20,2,6,0) eligible for financial assistance, in the form of a grant, to purchase a "DATA",25.11,20,2,7,0) new or used automobile (or other conveyance). "DATA",25.11,21,0) VETERAN FOREIGN MEDICAL PROGRAM^122^FM01001^Y "DATA",25.11,21,1,0) ^^1^1^3200320 "DATA",25.11,21,1,1,0) FMP "DATA",25.11,21,2,0) ^25.14^30^30^3200214^ "DATA",25.11,21,2,1,0) VA will pay for medical services for treating your service-connected "DATA",25.11,21,2,2,0) disabilities, or any disability that is associated with and aggravating "DATA",25.11,21,2,3,0) a service-connected disability if you live or travel outside the United "DATA",25.11,21,2,4,0) States. This program will also reimburse you for certain treatment of "DATA",25.11,21,2,5,0) medical services while you are outside the United States, if needed as "DATA",25.11,21,2,6,0) part of your VA-approved vocational rehabilitation program. "DATA",25.11,21,2,7,0) "DATA",25.11,21,2,8,0) If you are living or planning to travel outside the U.S. (other than in "DATA",25.11,21,2,9,0) the Philippines), you need to register with VA's Foreign Medical Program "DATA",25.11,21,2,10,0) Office, P.O. Box 469061, Denver, CO 80246-9061, USA: telephone "DATA",25.11,21,2,11,0) 1-877-345-8179. For information, visit: "DATA",25.11,21,2,12,0) http://www.domain/hac/forbeneficiaries/fmp/fmp.asp. "DATA",25.11,21,2,13,0) "DATA",25.11,21,2,14,0) Veterans living in the Philippines should register with the U.S. Veterans "DATA",25.11,21,2,15,0) Affairs office in Pasay City. Fax: 011-632-838-4566. "DATA",25.11,21,2,16,0) "DATA",25.11,21,2,17,0) If you are traveling or living overseas in one of the following countries, "DATA",25.11,21,2,18,0) you can telephone the Foreign Medical Program toll free: "DATA",25.11,21,2,19,0) "DATA",25.11,21,2,20,0) Germany 0800-1800-011; "DATA",25.11,21,2,21,0) Australia 1-800-354-965; "DATA",25.11,21,2,22,0) Italy 1-800-782-655; "DATA",25.11,21,2,23,0) United Kingdom (England and Scotland) 0800-032-7425; "DATA",25.11,21,2,24,0) Mexico 001-877-345-8179; "DATA",25.11,21,2,25,0) Japan 00531-13-0871; "DATA",25.11,21,2,26,0) Costa Rica 0800-013-0759; "DATA",25.11,21,2,27,0) Spain 900-981-776. "DATA",25.11,21,2,28,0) "DATA",25.11,21,2,29,0) (Note: Veterans in Mexico or Costa Rica must first dial the United States "DATA",25.11,21,2,30,0) country code.) "DATA",25.11,22,0) VETERAN PLAN - NON-VET PLANS^123 "DATA",25.11,23,0) VA/DOD PLAN - TRICARE^124 "DATA",25.11,23,2,0) ^^6^6^3130307^ "DATA",25.11,23,2,1,0) TRICARE Plan is a regionally managed health care program for active duty "DATA",25.11,23,2,2,0) and retired members of the uniformed services, their families and "DATA",25.11,23,2,3,0) survivors. VA bills TRICARE for Nonservice-connected medical treatment. "DATA",25.11,23,2,4,0) There are four options for health care: TRICARE Prime, TRICARE Extra, "DATA",25.11,23,2,5,0) TRICARE Standard and TRICARE for Life. Each of these options has specific "DATA",25.11,23,2,6,0) benefits, exclusions, copayment and deductible requirements. "DATA",25.11,24,0) VA/DOD PLAN - RETIREE^125 "DATA",25.11,25,0) VA/DOD PLAN - ACTIVE DUTY SPONSOR^126 "DATA",25.11,26,0) VA/DOD PLAN - ACTIVE DUTY DEPENDENT^127 "DATA",25.11,27,0) VA/DOD PLAN - FORMER NON-REMARRIED SPOUSE^128 "DATA",25.11,28,0) VA/DOD PLAN - RETIREE SPONSOR^129 "DATA",25.11,29,0) VA/DOD PLAN - RETIREE DEPENDENT^130 "DATA",25.11,30,0) VA/DOD PLAN - RESERVIST SPONSOR^131 "DATA",25.11,31,0) VA/DOD PLAN - RECRUIT SPONSOR^132 "DATA",25.11,32,0) VA/DOD PLAN - TEMPORARY DISABILITY RETIREMENT LIST (TDRL) SPONSOR^133 "DATA",25.11,33,0) VA/DOD PLAN - TRICARE FOR LIFE (TFL)^134 "DATA",25.11,34,0) VETERAN PLAN - LONG TERM CARE ^112 "DATA",25.11,35,0) PRESUMPTIVE (38 USC 1702-38 CFR 17.109)^135 "DATA",25.11,35,2,0) ^^43^43^3140515^ "DATA",25.11,35,2,1,0) Presumptive (38 USC 1702- 38 CFR 17.109) Plan provides certain Veterans who "DATA",25.11,35,2,2,0) experience psychosis within a specified time-frame are to have their psychosis "DATA",25.11,35,2,3,0) presumed to be service-connected for purposes of Department of Veterans "DATA",25.11,35,2,4,0) Affairs (VA) medical benefits. In addition, VA will presume that Persian "DATA",25.11,35,2,5,0) Gulf War Veterans are service-connected for purposes of VA medical "DATA",25.11,35,2,6,0) benefits if such Veterans develop mental illness other than psychosis "DATA",25.11,35,2,7,0) within two years after discharge or release from service and before the "DATA",25.11,35,2,8,0) end of the 2-year period beginning on the last day of the Persian Gulf War "DATA",25.11,35,2,9,0) (end date not yet determined). (Public Law 110-181; 38 United States Code "DATA",25.11,35,2,10,0) (U.S.C.) 1702 and the implementing regulation, 38 CFR 17.109) "DATA",25.11,35,2,11,0) "DATA",25.11,35,2,12,0) 1. Psychosis. Eligibility for benefits under title 38 Code of Federal "DATA",25.11,35,2,13,0) Regulations (CFR) 17.109(a) is established for treatment of psychosis, and "DATA",25.11,35,2,14,0) such condition is exempted from copayments under 38 CFR 17.108, 17.110, and "DATA",25.11,35,2,15,0) 17.111 for any Veteran who served in the United States active duty military, "DATA",25.11,35,2,16,0) naval, or air service and developed such psychosis within 2 years after "DATA",25.11,35,2,17,0) discharge or release from the active duty military, naval or air service; and "DATA",25.11,35,2,18,0) before the following date associated with the war or conflict in which the "DATA",25.11,35,2,19,0) Veteran served: "DATA",25.11,35,2,20,0) "DATA",25.11,35,2,21,0) ============================================================================== "DATA",25.11,35,2,22,0) | Veteran Served During | Date: | "DATA",25.11,35,2,23,0) ============================================================================== "DATA",25.11,35,2,24,0) | World War II | July 26, 1949 | "DATA",25.11,35,2,25,0) ------------------------------------------------------------------------------ "DATA",25.11,35,2,26,0) | Korean Conflict | February 1, 1957 | "DATA",25.11,35,2,27,0) ------------------------------------------------------------------------------ "DATA",25.11,35,2,28,0) | Vietnam Era | May 8, 1977 | "DATA",25.11,35,2,29,0) ------------------------------------------------------------------------------ "DATA",25.11,35,2,30,0) | Persian Gulf War | End of the 2-year period beginning on | "DATA",25.11,35,2,31,0) | | the last day of the Persian Gulf War | "DATA",25.11,35,2,32,0) | | (end date not yet determined) | "DATA",25.11,35,2,33,0) ============================================================================== "DATA",25.11,35,2,34,0) "DATA",25.11,35,2,35,0) 2. Mental Illness (other than Psychosis). Eligibility for benefits under 38 "DATA",25.11,35,2,36,0) CFR 17.109(b) is established for treatment of an active mental illness (other "DATA",25.11,35,2,37,0) than psychosis), and such condition is exempted from copayments under 38 CFR "DATA",25.11,35,2,38,0) 17.108, 17.110, and 17.111 for any Veteran of the Persian Gulf War who "DATA",25.11,35,2,39,0) developed such mental illness: "DATA",25.11,35,2,40,0) a. Within 2 years after discharge or release from the active duty military, "DATA",25.11,35,2,41,0) naval, or air service; and "DATA",25.11,35,2,42,0) b. Before the end of the 2-year period beginning on the last day of the "DATA",25.11,35,2,43,0) Persian Gulf War (end date not yet determined). "DATA",25.11,36,0) VOCATIONAL REHABILITATION (CHAPTER 31)^136 "DATA",25.11,36,2,0) ^^20^20^3130312^ "DATA",25.11,36,2,1,0) The Vocational Rehabilitation and Employment (VR&E) Program is "DATA",25.11,36,2,2,0) authorized by Congress under Title 38, USC, Chapter 31 and Code of "DATA",25.11,36,2,3,0) Federal Regulations, Part 21. It is sometimes referred to as the Chapter "DATA",25.11,36,2,4,0) 31 program. This program assists Veterans with service-connected "DATA",25.11,36,2,5,0) disabilities to prepare for, find, and keep suitable jobs. Services that "DATA",25.11,36,2,6,0) may be provided by the VR&E Program include: Comprehensive "DATA",25.11,36,2,7,0) rehabilitation evaluation to determine abilities, skills, and interests "DATA",25.11,36,2,8,0) for employment Vocational counseling and rehabilitation planning for "DATA",25.11,36,2,9,0) employment services Employment services such as job-training, "DATA",25.11,36,2,10,0) job-seeking skills, resume development, and other work readiness "DATA",25.11,36,2,11,0) assistance Assistance eligible Veterans with finding and keeping a job, "DATA",25.11,36,2,12,0) including the use of special employer incentives and job accommodations "DATA",25.11,36,2,13,0) On the Job Training (OJT), apprenticeships, and non-paid work "DATA",25.11,36,2,14,0) experiences Post-secondary training at a college, vocational, technical "DATA",25.11,36,2,15,0) or business school Supportive rehabilitation services including case "DATA",25.11,36,2,16,0) management, counseling, and medical referrals Independent living "DATA",25.11,36,2,17,0) services for Veterans unable to work due to the severity of their "DATA",25.11,36,2,18,0) disabilities For Veterans with service-connected disabilities so severe "DATA",25.11,36,2,19,0) that they cannot immediately consider work, this program offers services "DATA",25.11,36,2,20,0) to improve their ability to live as independently as possible.+C21 "DATA",25.11,37,0) CAREGIVER PRIMARY FAMILY^101^CP01001 "DATA",25.11,37,1,0) ^^1^1^3200320 "DATA",25.11,37,1,1,0) CG Pri "DATA",25.11,37,2,0) ^^5^5^3200320 "DATA",25.11,37,2,1,0) Caregiver Primary Family is an individual designated as a "primary "DATA",25.11,37,2,2,0) provider of personal care services" for the eligible Veteran under 38 "DATA",25.11,37,2,3,0) U.S.C. 1720G(a)(7)(A) who the Veteran specifies on the joint application "DATA",25.11,37,2,4,0) and is approved by VA as the primary provider of personal care services for "DATA",25.11,37,2,5,0) the Veteran. "DATA",25.11,38,0) CAREGIVER SECONDARY FAMILY^137^CS01001 "DATA",25.11,38,1,0) ^^1^1^3200320 "DATA",25.11,38,1,1,0) CG Sec "DATA",25.11,38,2,0) ^^4^4^3200320 "DATA",25.11,38,2,1,0) Caregiver Secondary Family is an individual approved as a "provider of "DATA",25.11,38,2,2,0) personal care services for the eligible Veteran under 38 U.S.C. "DATA",25.11,38,2,3,0) 1720G(a)(6)(B), and generally serves as a backup to the Primary Family "DATA",25.11,38,2,4,0) Caregiver. "DATA",25.11,39,0) CAREGIVER GENERAL^138^CG01001 "DATA",25.11,39,1,0) ^^1^1^3200320 "DATA",25.11,39,1,1,0) CG Gen "DATA",25.11,39,2,0) ^^4^4^3200320 "DATA",25.11,39,2,1,0) Caregiver General are "caregivers of covered Veterans" under the program "DATA",25.11,39,2,2,0) in 38 U.S.C. 1720G(b), and provide personal care services to covered "DATA",25.11,39,2,3,0) Veterans, but do not meet the criteria for designation or approval as a "DATA",25.11,39,2,4,0) Primary or Secondary Family Caregiver. "DATA",25.11,40,0) VETERAN BENEFICIARY PLAN - CAMP LEJEUNE FAMILY^139 "DATA",25.11,41,0) VETERAN PLAN - AIRBORNE HAZARD AND OPEN BURN PIT^140 "DATA",25.11,42,0) VETERAN PLAN - VETERANS CHOICE BASIC^200^VC01001^Y "DATA",25.11,42,1,0) ^^2^2^3180108 "DATA",25.11,42,1,1,0) The Veteran must be enrolled in the VA health care system and does not "DATA",25.11,42,1,2,0) qualify for the Services at this time. "DATA",25.11,42,2,0) ^25.14^2^2^3190123^ "DATA",25.11,42,2,1,0) The Veteran must be enrolled in the VA health care system and does not "DATA",25.11,42,2,2,0) qualify for the Services at this time. "DATA",25.11,43,0) VETERAN PLAN - VETERANS CHOICE MILEAGE^201^VC01002^Y "DATA",25.11,43,1,0) ^^6^6^3180108 "DATA",25.11,43,1,1,0) The Veteran must be enrolled in the VA health care system. The Veteran meets "DATA",25.11,43,1,2,0) mileage criteria as described by legislation. This is calculated from the "DATA",25.11,43,1,3,0) VA medical facility that is closest to the residence of the Veteran, defined "DATA",25.11,43,1,4,0) as a VA hospital, community-based outpatient clinic, or VA health care center "DATA",25.11,43,1,5,0) with at least one full-time primary care physician. The distance is calculated "DATA",25.11,43,1,6,0) using driving distance. "DATA",25.11,43,2,0) ^^6^6^3180108 "DATA",25.11,43,2,1,0) The Veteran must be enrolled in the VA health care system. The Veteran meets "DATA",25.11,43,2,2,0) mileage criteria as described by legislation. This is calculated from the "DATA",25.11,43,2,3,0) VA medical facility that is closest to the residence of the Veteran, defined "DATA",25.11,43,2,4,0) as a VA hospital, community-based outpatient clinic, or VA health care center "DATA",25.11,43,2,5,0) with at least one full-time primary care physician. The distance is calculated "DATA",25.11,43,2,6,0) using driving distance. "DATA",25.11,44,0) VETERAN PLAN - VETERANS CHOICE WAIT-TIME^202^VC01003^Y "DATA",25.11,44,1,0) ^^5^5^3180108 "DATA",25.11,44,1,1,0) The Veteran must be enrolled in the VA health care system. Veteran is told "DATA",25.11,44,1,2,0) by his/her local VA medical facility that he/she will need to wait more than "DATA",25.11,44,1,3,0) 30 days for an appointment from the date clinically determined by his/her "DATA",25.11,44,1,4,0) VA health care provider or the date they wish to be seen if there is no "DATA",25.11,44,1,5,0) clinically determined date. "DATA",25.11,44,2,0) ^^5^5^3180108 "DATA",25.11,44,2,1,0) The Veteran must be enrolled in the VA health care system. Veteran is told "DATA",25.11,44,2,2,0) by his/her local VA medical facility that he/she will need to wait more than "DATA",25.11,44,2,3,0) 30 days for an appointment from the date clinically determined by his/her "DATA",25.11,44,2,4,0) VA health care provider or the date they wish to be seen if there is no "DATA",25.11,44,2,5,0) clinically determined date. "DATA",25.11,45,0) VETERAN PLAN - VC UNUSUAL OR EXCESSIVE BURDEN^203^VC01004^Y "DATA",25.11,45,1,0) ^25.13^11^11^3190826^^ "DATA",25.11,45,1,1,0) The Veteran must be enrolled in the VA health care system. The Veteran who "DATA",25.11,45,1,2,0) resides 40 miles or less from the nearest VA medical facility may face an "DATA",25.11,45,1,3,0) unusual or excessive burden in accessing such a facility based on: "DATA",25.11,45,1,4,0) . Geographical challenges "DATA",25.11,45,1,5,0) . Environmental factors such as: "DATA",25.11,45,1,6,0) o Roads that are not accessible to the general public, such as a road through "DATA",25.11,45,1,7,0) a military base or restricted area "DATA",25.11,45,1,8,0) o Traffic, or "DATA",25.11,45,1,9,0) o Hazardous weather conditions "DATA",25.11,45,1,10,0) . A medical condition that impacts the ability to travel "DATA",25.11,45,1,11,0) . Other factors (as determined by the Secretary of VA) "DATA",25.11,45,2,0) ^25.14^11^11^3190826^^^ "DATA",25.11,45,2,1,0) The Veteran must be enrolled in the VA health care system. The Veteran who "DATA",25.11,45,2,2,0) resides 40 miles or less from the nearest VA medical facility may face an "DATA",25.11,45,2,3,0) unusual or excessive burden in accessing such a facility based on: "DATA",25.11,45,2,4,0) . Geographical challenges "DATA",25.11,45,2,5,0) . Environmental factors such as: "DATA",25.11,45,2,6,0) o Roads that are not accessible to the general public, such as a road through "DATA",25.11,45,2,7,0) a military base or restricted area "DATA",25.11,45,2,8,0) o Traffic, or "DATA",25.11,45,2,9,0) o Hazardous weather conditions "DATA",25.11,45,2,10,0) . A medical condition that impacts the ability to travel "DATA",25.11,45,2,11,0) . Other factors (as determined by the Secretary of VA) "DATA",25.11,46,0) VETERAN PLAN - VETERANS CHOICE AIR, BOAT, OR FERRY^204^VC01005^Y "DATA",25.11,46,1,0) ^^3^3^3180108 "DATA",25.11,46,1,1,0) The Veteran must be enrolled in the VA health care system. The Veteran who "DATA",25.11,46,1,2,0) resides 40 miles or less from the nearest VA medical facility and must travel "DATA",25.11,46,1,3,0) by air, boat, or ferry to reach such a facility. "DATA",25.11,46,2,0) ^25.14^3^3^3190123^ "DATA",25.11,46,2,1,0) The Veteran must be enrolled in the VA health care system. The Veteran who "DATA",25.11,46,2,2,0) resides 40 miles or less from the nearest VA medical facility and must travel "DATA",25.11,46,2,3,0) by air, boat, or ferry to reach such a facility. "DATA",25.11,47,0) VETERAN PLAN - MILITARY SEXUAL TRAUMA^205^MS01001 "DATA",25.11,47,1,0) ^^1^1^3180108 "DATA",25.11,47,1,1,0) "DATA",25.11,47,2,0) ^^1^1^3180108 "DATA",25.11,47,2,1,0) "DATA",25.11,48,0) VETERAN PLAN CCP GRANDFATHER^211^CC01001 "DATA",25.11,48,1,0) ^^1^1^3200320 "DATA",25.11,48,1,1,0) CCP G "DATA",25.11,48,2,0) ^^9^9^3200320 "DATA",25.11,48,2,1,0) Enrolled Veterans who have their eligibility extended from Veterans Choice "DATA",25.11,48,2,2,0) to the new Community Care Program. There are two groups of Grandfathered "DATA",25.11,48,2,3,0) Veterans: "DATA",25.11,48,2,4,0) . Five Populated Density States "DATA",25.11,48,2,5,0) . Received care through VA from either VA or community provider "DATA",25.11,48,2,6,0) Both groups require that the Veteran (1) be distance-eligible on the day "DATA",25.11,48,2,7,0) before the MISSION Act was signed (June 5, 2018), and (2) is distance- "DATA",25.11,48,2,8,0) eligible under Veterans Choice rules as of the start of the MISSION Act on "DATA",25.11,48,2,9,0) June 6, 2019. "DATA",25.11,49,0) VETERAN PLAN CCP STATE WITH NO FULL SERVICE MEDICAL FACILITY^209^CC01002 "DATA",25.11,49,1,0) ^^1^1^3200320 "DATA",25.11,49,1,1,0) CCP N "DATA",25.11,49,2,0) ^^2^2^3200320 "DATA",25.11,49,2,1,0) Enrolled Veterans who reside in a state with no full-service VA medical "DATA",25.11,49,2,2,0) facility. "DATA",25.11,50,0) VETERAN PLAN CCP URGENT CARE^210^CC01003 "DATA",25.11,50,1,0) ^^1^1^3200320 "DATA",25.11,50,1,1,0) CCP U "DATA",25.11,50,2,0) ^25.14^6^6^3200323^ "DATA",25.11,50,2,1,0) Enrolled Veterans who have received care through VA from either a VA or "DATA",25.11,50,2,2,0) community provider within the past 24 months. "DATA",25.11,50,2,3,0) Veteran will be charged copays based on their VA eligibility and number of "DATA",25.11,50,2,4,0) visits to Urgent Care per calendar year. "DATA",25.11,50,2,5,0) Must receive care within the appropriate community care network of "DATA",25.11,50,2,6,0) providers. "DATA",25.11,51,0) VETERAN PLAN CCP BASIC^208^CC01006 "DATA",25.11,51,1,0) ^^1^1^3200320 "DATA",25.11,51,1,1,0) CCP B "DATA",25.11,51,2,0) ^^6^6^3200320 "DATA",25.11,51,2,1,0) Veterans enrolled in the Veterans Affairs (VA) health care system meet the "DATA",25.11,51,2,2,0) primary criteria for the new Community Care Program. These Veterans do not "DATA",25.11,51,2,3,0) qualify for other static eligibilities for example: Grandfathered, Hardship "DATA",25.11,51,2,4,0) (General Best Medical Interest), State No Full-Service VA, or Urgent Care. "DATA",25.11,51,2,5,0) These Veterans however can qualify for Service Not Available, Access "DATA",25.11,51,2,6,0) Standards, or Best Medical Interest (Episodic). "DATA",25.11,52,0) VETERAN PLAN CCP HARDSHIP DETERMINATION^212^CC01007 "DATA",25.11,52,1,0) ^^1^1^3200320 "DATA",25.11,52,1,1,0) CCP H "DATA",25.11,52,2,0) ^^32^32^3200320 "DATA",25.11,52,2,1,0) Enrolled Veterans who are granted Hardship eligibility. Hardship (General) "DATA",25.11,52,2,2,0) fall under the pathway of Best Medical Interest (BMI). "DATA",25.11,52,2,3,0) Example General BMI (Hardship): A veteran was just diagnosed with a "DATA",25.11,52,2,4,0) malignancy. The treatment plan includes surgery, chemotherapy and radiation "DATA",25.11,52,2,5,0) therapy which makes the veteran ill and weak. The duration of this "DATA",25.11,52,2,6,0) treatment plan will possibly be 9-12 months. The Veteran lives near a major "DATA",25.11,52,2,7,0) university Medical Center that offers not only comprehensive oncologic care "DATA",25.11,52,2,8,0) but also general and specialty care. The veteran has no other community "DATA",25.11,52,2,9,0) care eligibilities identified (Drive time or fixed eligibilities like "DATA",25.11,52,2,10,0) grandfathered in). If the VA provider and the Veteran agree that there is a "DATA",25.11,52,2,11,0) hardship determination, the Veteran would be eligible to receive community "DATA",25.11,52,2,12,0) care for one year. "DATA",25.11,52,2,13,0) . Potential reasons for general best medical interest (hardship) "DATA",25.11,52,2,14,0) include geographical challenges, environmental factors, a medical "DATA",25.11,52,2,15,0) condition that impacts the ability to travel, or if a Veteran needs "DATA",25.11,52,2,16,0) to travel to their nearest VA medical facility by air, boat, or "DATA",25.11,52,2,17,0) ferry. "DATA",25.11,52,2,18,0) Examples include the presence of a body of water (including moving "DATA",25.11,52,2,19,0) water and still water), a geologic formation that cannot be crossed "DATA",25.11,52,2,20,0) by road, roads that are not accessible to the general public (such as "DATA",25.11,52,2,21,0) a road through a military base or restricted area), traffic, or "DATA",25.11,52,2,22,0) hazardous weather. "DATA",25.11,52,2,23,0) . In the future, VA providers will select a consult duration of either "DATA",25.11,52,2,24,0) 6 months or 1 year from the consult duration drop-down menu. In June "DATA",25.11,52,2,25,0) 2019, all hardship consults will have a one-year duration. "DATA",25.11,52,2,26,0) . Primary Role: VA providers determine and manage General Best Medical "DATA",25.11,52,2,27,0) Interest (Hardship) eligibility unless otherwise noted. "DATA",25.11,52,2,28,0) . Secondary Roles: Chief of Staff, Facility community care office "DATA",25.11,52,2,29,0) . A hardship determination means that the Veteran is eligible to "DATA",25.11,52,2,30,0) receive community care, but a review for clinical appropriateness is "DATA",25.11,52,2,31,0) still required by the designated Delegation of Authority. "DATA",25.11,52,2,32,0) Source: OCC Transition Guidebook, Chapter 2, Section 2.9 "DATA",25.11,53,0) VETERAN FULL MED BENEFITS TX AND RX COPAY EXMT^213^FB01001 "DATA",25.11,53,1,0) ^^1^1^3200320 "DATA",25.11,53,1,1,0) FM "DATA",25.11,53,2,0) ^^35^35^3200323^ "DATA",25.11,53,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,53,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,53,2,3,0) meet Veteran status for VA healthcare benefits and are not subject to copay "DATA",25.11,53,2,4,0) for their inpatient, outpatient services nor medications. "DATA",25.11,53,2,5,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,53,2,6,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,53,2,7,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,53,2,8,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,53,2,9,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,53,2,10,0) (CL), Military Sexual Trauma (MST). Veterans assigned this VHAP meet one "DATA",25.11,53,2,11,0) of the following conditions: "DATA",25.11,53,2,12,0) . Determined to be 50% or greater SC "DATA",25.11,53,2,13,0) . Determined to be 10% to 40% Compensable SC* "DATA",25.11,53,2,14,0) . Received a Medal of Honor (MOH) "DATA",25.11,53,2,15,0) . Received a Purple Heart (PH)** "DATA",25.11,53,2,16,0) . Has been a Prisoner of War (POW) "DATA",25.11,53,2,17,0) . Determined to be Catastrophically Disabled (CD) "DATA",25.11,53,2,18,0) . Determined to be Unemployable due to SC conditions "DATA",25.11,53,2,19,0) . In receipt of Aid & Attendance (A&A) "DATA",25.11,53,2,20,0) . In receipt of Housebound (HB) "DATA",25.11,53,2,21,0) . In receipt of a VA Pension "DATA",25.11,53,2,22,0) . Discharge Due to Disability** "DATA",25.11,53,2,23,0) . Military Disability Retirement** "DATA",25.11,53,2,24,0) . Receive Medicaid** "DATA",25.11,53,2,25,0) . Non-Service Connected (NSC)*** "DATA",25.11,53,2,26,0) "DATA",25.11,53,2,27,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,53,2,28,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,53,2,29,0) outcome is Rx Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,53,2,30,0) "DATA",25.11,53,2,31,0) **They must complete a Pharmacy Copay Exemption Test and the outcome is Rx "DATA",25.11,53,2,32,0) Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,53,2,33,0) "DATA",25.11,53,2,34,0) ***NSC Veterans who are subject to Means Testing; the outcome of the Means "DATA",25.11,53,2,35,0) Test is MT Copay Exempt and Rx Exemption status is Exempt. "DATA",25.11,54,0) VETERAN FULL MED BENEFITS TX COPAY EXMT AND RX COPAY REQ^214^FB01002 "DATA",25.11,54,1,0) ^^1^1^3200320 "DATA",25.11,54,1,1,0) FM RxCo "DATA",25.11,54,2,0) ^^30^30^3200323^ "DATA",25.11,54,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,54,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,54,2,3,0) meet Veteran status for VA healthcare benefits and are not subject to copay "DATA",25.11,54,2,4,0) for their inpatient, outpatient services but are subject to copay for their "DATA",25.11,54,2,5,0) medications. "DATA",25.11,54,2,6,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,54,2,7,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,54,2,8,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,54,2,9,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,54,2,10,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,54,2,11,0) (CL), Military Sexual Trauma (MST). Veterans assigned this VHAP meet one "DATA",25.11,54,2,12,0) of the following conditions: "DATA",25.11,54,2,13,0) . Determined to be 10% to 40% Compensable SC* "DATA",25.11,54,2,14,0) . Received a Purple Heart (PH)** "DATA",25.11,54,2,15,0) . Discharge Due to Disability** "DATA",25.11,54,2,16,0) . Military Disability Retirement ** "DATA",25.11,54,2,17,0) . Granted a Financial Hardship based on the evidence provided*** "DATA",25.11,54,2,18,0) . Receive Medicaid** "DATA",25.11,54,2,19,0) . Non-Service Connected (NSC)**** "DATA",25.11,54,2,20,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,54,2,21,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,54,2,22,0) outcome is Non-Exempt. They must pay copay for their NSC medication copays. "DATA",25.11,54,2,23,0) **They must complete a Pharmacy Copay Exemption Test and the outcome is "DATA",25.11,54,2,24,0) Non-Exempt. They must pay copay for their NSC medication. "DATA",25.11,54,2,25,0) ***The Hardship assigns Means Test (MT) Status outcome of MT Copay Required "DATA",25.11,54,2,26,0) for Medical Benefits Treatments. The Hardship does not affect Pharmacy "DATA",25.11,54,2,27,0) Copay Exemption Test outcome. If the Pharmacy Copay Exemption Test outcome "DATA",25.11,54,2,28,0) is Non-Exempt, they are subject to NSC medication copays. "DATA",25.11,54,2,29,0) ****NSC Veterans who are subject to Means Testing; the outcome of the Means "DATA",25.11,54,2,30,0) Test is MT Copay Exempt and Rx Exemption status is Non-Exempt. "DATA",25.11,55,0) VETERAN FULL MED BENEFITS TX COPAY REQ AND RX COPAY EXMT 6^215^FB01003 "DATA",25.11,55,1,0) ^^1^1^3200320 "DATA",25.11,55,1,1,0) FM TxCo 6 "DATA",25.11,55,2,0) ^^23^23^3200323^ "DATA",25.11,55,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,55,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,55,2,3,0) meet Veteran status for VA healthcare benefits and current Means Test is "DATA",25.11,55,2,4,0) based on Net Worth Adjudication. Their income plus net worth is above the "DATA",25.11,55,2,5,0) National Threshold, but income alone is below the VA Pension Threshold. "DATA",25.11,55,2,6,0) "DATA",25.11,55,2,7,0) They are subject to copays for their inpatient, outpatient services and "DATA",25.11,55,2,8,0) not subject to copay for their medications. "DATA",25.11,55,2,9,0) "DATA",25.11,55,2,10,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,55,2,11,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,55,2,12,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,55,2,13,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,55,2,14,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,55,2,15,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,55,2,16,0) "DATA",25.11,55,2,17,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,55,2,18,0) . 0% SC, non-compensable * "DATA",25.11,55,2,19,0) . Non-Service Connected (NSC) "DATA",25.11,55,2,20,0) . MT Status in a Pending Adjudication or MT Copay Required "DATA",25.11,55,2,21,0) . Priority Group 6 (i.e., AO, SWA, IR, EC, SHAD, CV, CL) "DATA",25.11,55,2,22,0) * They are subject to copays for their inpatient, outpatient services and "DATA",25.11,55,2,23,0) are exempt from copay for their medications. "DATA",25.11,56,0) VETERAN FULL MED BENEFITS TX COPAY REQ AND RX COPAY EXMT 7^216^FB01007 "DATA",25.11,56,1,0) ^^1^1^3200320 "DATA",25.11,56,1,1,0) FM TxCo 7 "DATA",25.11,56,2,0) ^^16^16^3200320 "DATA",25.11,56,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,56,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,56,2,3,0) meet Veteran status for VA healthcare benefits and current Means Test is "DATA",25.11,56,2,4,0) based on Net Worth Adjudication. Their income plus net worth is above the "DATA",25.11,56,2,5,0) National Threshold, but income alone is below the VA Pension Threshold. "DATA",25.11,56,2,6,0) "DATA",25.11,56,2,7,0) They are subject to copays for their inpatient, outpatient services but not "DATA",25.11,56,2,8,0) subject to copay for their medications. "DATA",25.11,56,2,9,0) "DATA",25.11,56,2,10,0) Veteran authorized to receive medical benefits with: "DATA",25.11,56,2,11,0) . Copay charges for Treatment "DATA",25.11,56,2,12,0) . No Copay charges for Medication "DATA",25.11,56,2,13,0) "DATA",25.11,56,2,14,0) Must be in: "DATA",25.11,56,2,15,0) . MT Status in a Pending Adjudication "DATA",25.11,56,2,16,0) . Priority Group 7 "DATA",25.11,57,0) VETERAN FULL MED BENEFITS TX COPAY REQ AND RX COPAY EXMT 8^217^FB01008 "DATA",25.11,57,1,0) ^^1^1^3200320 "DATA",25.11,57,1,1,0) FM TxCo 8 "DATA",25.11,57,2,0) ^^12^12^3200320 "DATA",25.11,57,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,57,2,2,0) VA administers through an annual patient enrollment system. They are "DATA",25.11,57,2,3,0) subject to copayment for their inpatient, outpatient services but not "DATA",25.11,57,2,4,0) subject to copayment for their medications. "DATA",25.11,57,2,5,0) "DATA",25.11,57,2,6,0) Veteran authorized to receive medical benefits with: "DATA",25.11,57,2,7,0) . Copayment charges for Treatment "DATA",25.11,57,2,8,0) . No Copayment charges for Medication "DATA",25.11,57,2,9,0) "DATA",25.11,57,2,10,0) Must be in: "DATA",25.11,57,2,11,0) . MT Status in a Pending Adjudication or MT Copay Required "DATA",25.11,57,2,12,0) . Priority Group 8a/b/c/d (i.e., SC 0% and NSC) "DATA",25.11,58,0) VETERAN FULL MED BENEFITS TX AND RX COPAY REQ 6^218^FB01004 "DATA",25.11,58,1,0) ^^1^1^3200320 "DATA",25.11,58,1,1,0) FM TxCo RxCo 6 "DATA",25.11,58,2,0) ^^12^12^3200320 "DATA",25.11,58,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,58,2,2,0) VA administers through an annual patient enrollment system. They are "DATA",25.11,58,2,3,0) subject to copays for their inpatient, outpatient services and subject to "DATA",25.11,58,2,4,0) copay for their medications. "DATA",25.11,58,2,5,0) "DATA",25.11,58,2,6,0) Veteran authorized to receive medical benefits with: "DATA",25.11,58,2,7,0) . Copay charges for Treatment "DATA",25.11,58,2,8,0) . Copay charges for Medication "DATA",25.11,58,2,9,0) "DATA",25.11,58,2,10,0) Must be in: "DATA",25.11,58,2,11,0) . Priority Group 6 (i.e., AO, SWA, IR, SHAD, CV, CL) "DATA",25.11,58,2,12,0) . Treatment or Medications for SA conditions are Copay Exempt "DATA",25.11,59,0) VETERAN FULL MED BENEFITS TX AND RX COPAY REQ 8^219^FB01009 "DATA",25.11,59,1,0) ^^1^1^3200320 "DATA",25.11,59,1,1,0) FM TxCo RxCo 8 "DATA",25.11,59,2,0) ^^25^25^3200323^ "DATA",25.11,59,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,59,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,59,2,3,0) meet Veteran status for VA healthcare benefits and must complete a Means "DATA",25.11,59,2,4,0) Test (MT) to determine their copay status for their Medical Treatment and "DATA",25.11,59,2,5,0) Medication. Veterans receiving inpatient, outpatient services for Non- "DATA",25.11,59,2,6,0) Service Connected (NSC) conditions and whose income exceeds the applicable "DATA",25.11,59,2,7,0) National Income Threshold are subject to copayments for inpatient, "DATA",25.11,59,2,8,0) outpatient services and medications. "DATA",25.11,59,2,9,0) "DATA",25.11,59,2,10,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,59,2,11,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,59,2,12,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,59,2,13,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,59,2,14,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,59,2,15,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,59,2,16,0) "DATA",25.11,59,2,17,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,59,2,18,0) . 0% SC, Non-Compensable * "DATA",25.11,59,2,19,0) . NSC "DATA",25.11,59,2,20,0) . Priority Group 8a/b/c/d (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,59,2,21,0) *They are exempt from copay for medications related to their SC condition, "DATA",25.11,59,2,22,0) but they must complete a Means Test to determine their copay status for NSC "DATA",25.11,59,2,23,0) inpatient, outpatient services and medications. The outcome of Means Test "DATA",25.11,59,2,24,0) was MT Copay Required for their inpatient, outpatient services and Non- "DATA",25.11,59,2,25,0) Exempt for their Pharmacy Copay Exemption Test. "DATA",25.11,60,0) VETERAN FULL MED BENEFITS TX GMT COPAY REQ AND RX COPAY EXMT^220^FB01005 "DATA",25.11,60,1,0) ^^1^1^3200320 "DATA",25.11,60,1,1,0) FM TxCoG "DATA",25.11,60,2,0) ^^24^24^3200323^ "DATA",25.11,60,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,60,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,60,2,3,0) meet Veteran status for VA healthcare benefits and must complete a "DATA",25.11,60,2,4,0) Financial Assessment to determine their copay status for their inpatient, "DATA",25.11,60,2,5,0) outpatient services and medications. "DATA",25.11,60,2,6,0) "DATA",25.11,60,2,7,0) Veterans with gross household income below the geographically adjusted "DATA",25.11,60,2,8,0) income limits for their resident location and who agreed to pay copays. The "DATA",25.11,60,2,9,0) Means Test outcome of GMT Copay Required and outcome of their Rx Exemption "DATA",25.11,60,2,10,0) status is Exempt. These Veterans are subject to copays for their inpatient "DATA",25.11,60,2,11,0) services at a reduced rate, copayment for their outpatient services at the "DATA",25.11,60,2,12,0) full copay rate, but no copayment for their medications. "DATA",25.11,60,2,13,0) "DATA",25.11,60,2,14,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,60,2,15,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,60,2,16,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,60,2,17,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,60,2,18,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,60,2,19,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,60,2,20,0) "DATA",25.11,60,2,21,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,60,2,22,0) . 0% SC, non-compensable "DATA",25.11,60,2,23,0) . Non-Service Connected "DATA",25.11,60,2,24,0) . Priority Group 7 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,61,0) VETERAN FULL MED BENEFITS TX GMT COPAY REQ AND RX COPAY REQ^221^FB01006 "DATA",25.11,61,1,0) ^^1^1^3200320 "DATA",25.11,61,1,1,0) FM TxCoG RxCo "DATA",25.11,61,2,0) ^^24^24^3200323^ "DATA",25.11,61,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,61,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,61,2,3,0) meet Veteran status for VA healthcare benefits and must complete a Means "DATA",25.11,61,2,4,0) Test to determine their copay status for their inpatient, outpatient "DATA",25.11,61,2,5,0) services and medications. "DATA",25.11,61,2,6,0) "DATA",25.11,61,2,7,0) Veterans with gross household income below the geographically adjusted "DATA",25.11,61,2,8,0) income limits for their resident location and who agree to pay copays. The "DATA",25.11,61,2,9,0) Means Test outcome of GMT Copay Required and outcome of their Rx Exemption "DATA",25.11,61,2,10,0) status is Non-Exempt. These Veterans are subject to copays for inpatient "DATA",25.11,61,2,11,0) services at a reduced rate, copays for outpatient services at the full "DATA",25.11,61,2,12,0) copay rate, and copays for medications. "DATA",25.11,61,2,13,0) "DATA",25.11,61,2,14,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,61,2,15,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,61,2,16,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,61,2,17,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,61,2,18,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,61,2,19,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,61,2,20,0) "DATA",25.11,61,2,21,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,61,2,22,0) . 0% SC, Non-Compensable "DATA",25.11,61,2,23,0) . Non-Service Connected "DATA",25.11,61,2,24,0) . Priority Group 7 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,62,0) VETERAN RESTRICTED MED BENEFITS^222^RM01001 "DATA",25.11,62,1,0) ^^1^1^3200320 "DATA",25.11,62,1,1,0) RM "DATA",25.11,62,2,0) ^^9^9^3200320 "DATA",25.11,62,2,1,0) Veterans who are not enrolled but can be seen for their Service Connected "DATA",25.11,62,2,2,0) (SC) conditions only (and/or MST if MST is indicated). "DATA",25.11,62,2,3,0) "DATA",25.11,62,2,4,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,62,2,5,0) . Cancel/Decline - Receive medical benefits for SC conditions only "DATA",25.11,62,2,6,0) . Rejected - Receive medical benefits for SC conditions only "DATA",25.11,62,2,7,0) . Ineligible and SC 0% - Receive medical benefits for SC conditions "DATA",25.11,62,2,8,0) only "DATA",25.11,62,2,9,0) . Ineligible and MST - Receive medical benefits for MST conditions only "DATA",25.11,63,0) NON VETERAN OTHER RESTRICTED MED BENEFITS^223^OR01001 "DATA",25.11,63,1,0) ^^1^1^3200320 "DATA",25.11,63,1,1,0) ORM "DATA",25.11,63,2,0) ^^8^8^3200323^ "DATA",25.11,63,2,1,0) Non-Veterans authorized to receive medical benefits limited to a very "DATA",25.11,63,2,2,0) specific situation "DATA",25.11,63,2,3,0) "DATA",25.11,63,2,4,0) Includes any of the following: "DATA",25.11,63,2,5,0) . MST - Non-Veteran (Active Duty) "DATA",25.11,63,2,6,0) . Presumptive (38 USC 1702- 38 CFR 17.109) "DATA",25.11,63,2,7,0) . Former Servicemembers with Other Than Honorable (OTH) discharges who "DATA",25.11,63,2,8,0) present for certain services. "DATA",25.11,64,0) RESTRICTED EXAMINATION ONLY^224^EX01001 "DATA",25.11,64,1,0) ^25.13^1^1^3190816^^^^ "DATA",25.11,64,1,1,0) REO "DATA",25.11,64,2,0) ^^8^8^3190829^ "DATA",25.11,64,2,1,0) Veterans being registered for a Registry exam (i.e., Burn Pit, Agent "DATA",25.11,64,2,2,0) Orange, etc.) or Compensation and Pension (C&P) exam as requested by the "DATA",25.11,64,2,3,0) Veterans Benefits Administration (VBA). The Veterans are not subject to "DATA",25.11,64,2,4,0) Copayment Requirements for exam. "DATA",25.11,64,2,5,0) "DATA",25.11,64,2,6,0) Includes any of the following: "DATA",25.11,64,2,7,0) "DATA",25.11,64,2,8,0) o Veterans being registered for a Registry Exam or C&P exam "DATA",25.11,65,0) HUMANITARIAN^225^HM01001 "DATA",25.11,65,1,0) ^^1^1^3200320 "DATA",25.11,65,1,1,0) HM "DATA",25.11,65,2,0) ^^2^2^3200320 "DATA",25.11,65,2,1,0) Civilians presenting to VA for care with no VA eligibility "DATA",25.11,65,2,2,0) qualifications. "DATA",25.11,66,0) APPLICANT IN PROCESS^226^AN01001 "DATA",25.11,66,1,0) ^^1^1^3200320 "DATA",25.11,66,1,1,0) INC "DATA",25.11,66,2,0) ^^16^16^3200323^ "DATA",25.11,66,2,1,0) Veterans who applied for VA healthcare benefits, but eligibility has not "DATA",25.11,66,2,2,0) been verified or a final enrollment determination could not be made. "DATA",25.11,66,2,3,0) . Pending; Means Test Required - Veterans whose Veterans Status has "DATA",25.11,66,2,4,0) been verified and who have not provided initial Means Test to "DATA",25.11,66,2,5,0) determine enrollment. "DATA",25.11,66,2,6,0) . Pending; Purple Heart Unconfirmed - A temporary eligibility for 14 "DATA",25.11,66,2,7,0) days. "DATA",25.11,66,2,8,0) . Pending; Other - Enrollment System cannot determine enrollment "DATA",25.11,66,2,9,0) status. "DATA",25.11,66,2,10,0) . Pending; No Eligibility Code - Enrollment System cannot determine "DATA",25.11,66,2,11,0) enrollment status. "DATA",25.11,66,2,12,0) . Pending - Enrollment System cannot determine enrollment status. "DATA",25.11,66,2,13,0) . Unverified - Enrollment System cannot determine enrollment status. "DATA",25.11,66,2,14,0) . Pending; Eligibility Unverified - Veterans who do not have a prior "DATA",25.11,66,2,15,0) period of enrollment and still within the 365 day period who have "DATA",25.11,66,2,16,0) provided evidence of Veteran status. "DATA",25.11,67,0) ALLIED BENEFICIARIES^227^AL01001 "DATA",25.11,67,1,0) ^^1^1^3200320 "DATA",25.11,67,1,1,0) AB "DATA",25.11,67,2,0) ^^7^7^3200320 "DATA",25.11,67,2,1,0) Allied Beneficiaries are former members of the armed forces of nations "DATA",25.11,67,2,2,0) allied with the United States (U.S.) in World War I (except any nation "DATA",25.11,67,2,3,0) which was an enemy of the United States during World War II) or in World "DATA",25.11,67,2,4,0) War II. "DATA",25.11,67,2,5,0) "DATA",25.11,67,2,6,0) Allied Beneficiaries must have a letter from the Service Personnel Veterans "DATA",25.11,67,2,7,0) Agency (SPVA) stating their approved disabilities (War Pension Letter). "DATA",25.11,68,0) OTHER FEDERAL AGENCY^228^OF01001 "DATA",25.11,68,1,0) ^^1^1^3200320 "DATA",25.11,68,1,1,0) OFA "DATA",25.11,68,2,0) ^^8^8^3200323^ "DATA",25.11,68,2,1,0) Other Federal Agencies (Civil Service Commission, Department of Commerce, "DATA",25.11,68,2,2,0) Federal Aviation Admin., Office of Economic Opportunity, Office of "DATA",25.11,68,2,3,0) Employee's Comp., Peace Corps, Veterans Administration and any other agency "DATA",25.11,68,2,4,0) that gets injured and comes to VA). "DATA",25.11,68,2,5,0) . Sharing Agreement (excludes DOD) "DATA",25.11,68,2,6,0) . Other Federal Agency "DATA",25.11,68,2,7,0) "DATA",25.11,68,2,8,0) **If approved OWCP case** "DATA",25.11,69,0) ACTIVE DUTY AND SHARING AGREEMENTS^229^AC01001 "DATA",25.11,69,1,0) ^^1^1^3200320 "DATA",25.11,69,1,1,0) ADSA "DATA",25.11,69,2,0) ^^6^6^3200320 "DATA",25.11,69,2,1,0) Persons receiving care under Sharing Agreement and/or Active Duty with the "DATA",25.11,69,2,2,0) Department of Defense. "DATA",25.11,69,2,3,0) . Tricare Authorization Required "DATA",25.11,69,2,4,0) . This is NOT dual eligible "DATA",25.11,69,2,5,0) . If patient also has a Veteran status of Active Duty, then all Active "DATA",25.11,69,2,6,0) Duty rules apply. "DATA",25.11,70,0) VETERAN FULL MED BENEFITS TX GMT COPAY REQ AND COPAY EXMT 6^239^FB01012 "DATA",25.11,70,1,0) ^^1^1^3200320 "DATA",25.11,70,1,1,0) FM TxCoG 6 "DATA",25.11,70,2,0) ^25.14^22^22^3200323^^ "DATA",25.11,70,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,70,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,70,2,3,0) meet Veteran status for VA healthcare benefits and must complete a "DATA",25.11,70,2,4,0) Financial Assessment to determine their copay status for their inpatient, "DATA",25.11,70,2,5,0) outpatient services and medications. "DATA",25.11,70,2,6,0) "DATA",25.11,70,2,7,0) Veterans with gross household income below the geographically adjusted "DATA",25.11,70,2,8,0) income limits for their resident location and who agreed to pay copays. The "DATA",25.11,70,2,9,0) Means Test outcome of GMT Copay Required and outcome of their Rx Exemption "DATA",25.11,70,2,10,0) status is Exempt. These Veterans are subject to copays for inpatient "DATA",25.11,70,2,11,0) services at a reduced rate, copays for outpatient services at the full "DATA",25.11,70,2,12,0) copay rate, and no copays for medications. "DATA",25.11,70,2,13,0) "DATA",25.11,70,2,14,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,70,2,15,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,70,2,16,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,70,2,17,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,70,2,18,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,70,2,19,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,70,2,20,0) "DATA",25.11,70,2,21,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,70,2,22,0) . Priority Group 6 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,71,0) VETERAN FULL MED BENEFITS TX GMT AND RX COPAY REQ 6^240^FB01013 "DATA",25.11,71,1,0) ^^1^1^3200320 "DATA",25.11,71,1,1,0) FM TxCoG RxCo 6 "DATA",25.11,71,2,0) ^^23^23^3200323^ "DATA",25.11,71,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,71,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,71,2,3,0) meet Veteran status for VA healthcare benefits and must complete a Means "DATA",25.11,71,2,4,0) Test to determine their copay status for their inpatient, outpatient "DATA",25.11,71,2,5,0) services and medications "DATA",25.11,71,2,6,0) "DATA",25.11,71,2,7,0) Veterans with gross household income below the geographically adjusted "DATA",25.11,71,2,8,0) income limits for their resident location and who agreed to pay copays. The "DATA",25.11,71,2,9,0) Means Test outcome of GMT Copay Required and outcome of their Rx Exemption "DATA",25.11,71,2,10,0) status is Non-Exempt. These Veterans are subject to copays for inpatient "DATA",25.11,71,2,11,0) services at a reduced rate, copays for outpatient services at the full "DATA",25.11,71,2,12,0) copay rate, and copays for medications "DATA",25.11,71,2,13,0) "DATA",25.11,71,2,14,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,71,2,15,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,71,2,16,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,71,2,17,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,71,2,18,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,71,2,19,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,71,2,20,0) "DATA",25.11,71,2,21,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,71,2,22,0) . Priority Group 6 (i.e., SC 0% Non-Compensable or NSC) and MT outcome "DATA",25.11,71,2,23,0) is GMT and Rx Exemption status is Non-Exempt "DATA",25.11,72,0) VETERAN FULL MED BENEFITS TX AND RX COPAY EXMT 6^241^FB01010 "DATA",25.11,72,1,0) ^^1^1^3200320 "DATA",25.11,72,1,1,0) FM 6 "DATA",25.11,72,2,0) ^^17^17^3200323^ "DATA",25.11,72,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,72,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,72,2,3,0) meet Veteran status for VA healthcare benefits and are not subject to copay "DATA",25.11,72,2,4,0) for their inpatient, outpatient services nor medications. "DATA",25.11,72,2,5,0) "DATA",25.11,72,2,6,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,72,2,7,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,72,2,8,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,72,2,9,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,72,2,10,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,72,2,11,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,72,2,12,0) "DATA",25.11,72,2,13,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,72,2,14,0) . Determined to be 0% Compensable SC* "DATA",25.11,72,2,15,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,72,2,16,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,72,2,17,0) outcome is Rx Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,73,0) VETERAN FULL MED BENEFITS TX COPAY EXMT AND RX COPAY REQ 6^242^FB01011 "DATA",25.11,73,1,0) ^^1^1^3200320 "DATA",25.11,73,1,1,0) FM RxCo 6 "DATA",25.11,73,2,0) ^^19^19^3200323^ "DATA",25.11,73,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which "DATA",25.11,73,2,2,0) VA administers through an annual patient enrollment system. Veterans who "DATA",25.11,73,2,3,0) meet Veteran status for VA healthcare benefits and are not subject to copay "DATA",25.11,73,2,4,0) for their inpatient, outpatient services but are subject to copay for their "DATA",25.11,73,2,5,0) medications. "DATA",25.11,73,2,6,0) "DATA",25.11,73,2,7,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,73,2,8,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,73,2,9,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,73,2,10,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,73,2,11,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune "DATA",25.11,73,2,12,0) (CL), Military Sexual Trauma (MST). "DATA",25.11,73,2,13,0) "DATA",25.11,73,2,14,0) Veterans assigned this VHAP meet one of the following conditions: "DATA",25.11,73,2,15,0) . Determined to be 0% Compensable SC* "DATA",25.11,73,2,16,0) "DATA",25.11,73,2,17,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,73,2,18,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,73,2,19,0) outcome is Non-Exempt. They must pay copay for their NSC medication copays. "DATA",25.11,74,0) EMPLOYEE ONLY^283^EM01001 "DATA",25.11,74,1,0) ^^1^1^3200320 "DATA",25.11,74,1,1,0) Emp O "DATA",25.11,74,2,0) ^^4^4^3200320^ "DATA",25.11,74,2,1,0) Employees (contract, volunteer, or Full-time Equivalent) who are not "DATA",25.11,74,2,2,0) Veterans. Records assigned this carve out will not be shared via Health "DATA",25.11,74,2,3,0) Information Exchange. These records will also be assigned Humanitarian as "DATA",25.11,74,2,4,0) the Core plan for any non-Employee activities. "DATA",25.11,75,0) VA MANDATORY NURSING HOME ELIGIBLE COPAY EXEMPT^284^EC01001 "DATA",25.11,75,1,0) ^^1^1^3200320 "DATA",25.11,75,1,1,0) Full ECS Ex "DATA",25.11,75,2,0) ^^16^16^3200320 "DATA",25.11,75,2,1,0) Veterans enrolled in VA Health Care System and have one of the following: "DATA",25.11,75,2,2,0) Mandatory Eligibility for necessary nursing home care, when clinically "DATA",25.11,75,2,3,0) indicated: "DATA",25.11,75,2,4,0) i. Any Veteran in need of nursing home care for a service-connected (SC) "DATA",25.11,75,2,5,0) disability. "DATA",25.11,75,2,6,0) ii. Any Veteran in need of nursing home care who has a single or combined "DATA",25.11,75,2,7,0) SC disability rating of 70 percent or greater. This includes a Veteran with "DATA",25.11,75,2,8,0) a single disability rated 60 percent but who has a total disability rating "DATA",25.11,75,2,9,0) based on individual unemployability. "DATA",25.11,75,2,10,0) "DATA",25.11,75,2,11,0) From VHA Directive 1601A.02: Veterans are eligible to receive care in VA "DATA",25.11,75,2,12,0) CLCs if they meet the nursing home eligibility criteria and if VA "DATA",25.11,75,2,13,0) determines there is a need for a specific level of care and services "DATA",25.11,75,2,14,0) available in a particular VA CLC. Certain Veterans have mandatory "DATA",25.11,75,2,15,0) eligibility for nursing home care while other Veterans may be provided "DATA",25.11,75,2,16,0) nursing home care on a space and resource available basis. "DATA",25.11,76,0) VA EXTENDED CARE SERVICES COPAY EXEMPT^285^EC01002 "DATA",25.11,76,1,0) ^^1^1^3200320 "DATA",25.11,76,1,1,0) Ref ECS Ex "DATA",25.11,76,2,0) ^^32^32^3200320^ "DATA",25.11,76,2,1,0) Veterans Enrolled in VA Health Care System are exempt from extended care "DATA",25.11,76,2,2,0) copayments if they have one of the following: "DATA",25.11,76,2,3,0) . A Veteran with a compensable service-connected disability. "DATA",25.11,76,2,4,0) . A Veteran whose annual income (determined under 38 U.S.C. 1503) is "DATA",25.11,76,2,5,0) less than the amount in effect under 38 U.S.C. 1521(b). "DATA",25.11,76,2,6,0) . Care for a Veteran's non-compensable zero percent service-connected "DATA",25.11,76,2,7,0) disability. "DATA",25.11,76,2,8,0) . An episode of extended care services that began on or before November "DATA",25.11,76,2,9,0) 30, 1999. "DATA",25.11,76,2,10,0) . Care authorized under 38 U.S.C. 1710(e) for Vietnam-era herbicide- "DATA",25.11,76,2,11,0) exposed Veterans, radiation-exposed Veterans, Persian Gulf War "DATA",25.11,76,2,12,0) Veterans, post-Persian Gulf War combat-exposed Veterans, or Camp "DATA",25.11,76,2,13,0) Lejeune Veterans pursuant to Section 17.400. "DATA",25.11,76,2,14,0) . Care for treatment of sexual trauma as authorized under 38 U.S.C. "DATA",25.11,76,2,15,0) 1720D. "DATA",25.11,76,2,16,0) . Care or services authorized under 38 U.S.C. 1720E for certain "DATA",25.11,76,2,17,0) Veterans regarding cancer of the head or neck. "DATA",25.11,76,2,18,0) . A Veteran who VA determines to be catastrophically disabled, as "DATA",25.11,76,2,19,0) defined in 38 CFR 17.36(e), is exempt from copayments for adult day "DATA",25.11,76,2,20,0) health care, non-institutional respite care, and non-institutional "DATA",25.11,76,2,21,0) geriatric care. "DATA",25.11,76,2,22,0) . A Veteran receiving care for psychosis or a mental illness other than "DATA",25.11,76,2,23,0) psychosis pursuant to Section 17.109. "DATA",25.11,76,2,24,0) . A Veteran who was awarded the Medal of Honor. "DATA",25.11,76,2,25,0) . Receiving hospice care as part of extended care services "DATA",25.11,76,2,26,0) "DATA",25.11,76,2,27,0) These Veterans do not have mandatory eligibility for nursing home care and "DATA",25.11,76,2,28,0) may be provided needed nursing home care on a space and resources available "DATA",25.11,76,2,29,0) basis. "DATA",25.11,76,2,30,0) "DATA",25.11,76,2,31,0) These Veterans do not pay copayments for extended care services provided by "DATA",25.11,76,2,32,0) VA (directly or paid for by VA), and do not complete VA Form 10-10EC. "DATA",25.11,77,0) VA EXTENDED CARE SERVICES COPAY REQUIRED^286^EC01003 "DATA",25.11,77,1,0) ^^1^1^3200320 "DATA",25.11,77,1,1,0) Ref ECS Copay "DATA",25.11,77,2,0) ^25.14^46^46^3200320^^ "DATA",25.11,77,2,1,0) Veterans enrolled in VA Health Care System may have an extended care copay "DATA",25.11,77,2,2,0) if they DO NOT have one of the following: "DATA",25.11,77,2,3,0) . A Veteran with a compensable service-connected disability. "DATA",25.11,77,2,4,0) . A Veteran whose annual income (determined under 38 U.S.C. 1503) is "DATA",25.11,77,2,5,0) less than the amount in effect under 38 U.S.C. 1521(b). "DATA",25.11,77,2,6,0) . Care for a Veteran's non-compensable zero percent service-connected "DATA",25.11,77,2,7,0) disability. "DATA",25.11,77,2,8,0) . An episode of extended care services that began on or before November "DATA",25.11,77,2,9,0) 30, 1999. "DATA",25.11,77,2,10,0) . Care authorized under 38 U.S.C. 1710(e) for Vietnam-era herbicide- "DATA",25.11,77,2,11,0) exposed Veterans, radiation-exposed Veterans, Persian Gulf War "DATA",25.11,77,2,12,0) Veterans, post-Persian Gulf War combat-exposed Veterans, or Camp "DATA",25.11,77,2,13,0) Lejeune Veterans pursuant to Section 17.400. "DATA",25.11,77,2,14,0) . Care for treatment of sexual trauma as authorized under 38 U.S.C. "DATA",25.11,77,2,15,0) 1720D. "DATA",25.11,77,2,16,0) . Care or services authorized under 38 U.S.C. 1720E for certain "DATA",25.11,77,2,17,0) Veterans regarding cancer of the head or neck. "DATA",25.11,77,2,18,0) . A Veteran who VA determines to be catastrophically disabled, as "DATA",25.11,77,2,19,0) defined in 38 CFR 17.36(e), is exempt from copayments for adult day "DATA",25.11,77,2,20,0) health care, non-institutional respite care, and non-institutional "DATA",25.11,77,2,21,0) geriatric care. "DATA",25.11,77,2,22,0) . A Veteran receiving care for psychosis or a mental illness other than "DATA",25.11,77,2,23,0) psychosis pursuant to Section 17.109. "DATA",25.11,77,2,24,0) . A Veteran who was awarded the Medal of Honor. "DATA",25.11,77,2,25,0) . Receiving hospice care as part of extended care services "DATA",25.11,77,2,26,0) "DATA",25.11,77,2,27,0) These Veterans do not have mandatory eligibility for nursing home "DATA",25.11,77,2,28,0) care and may be provided needed nursing home care on a space and "DATA",25.11,77,2,29,0) resources available basis. "DATA",25.11,77,2,30,0) "DATA",25.11,77,2,31,0) These Veterans may have copayments for extended care services provided by "DATA",25.11,77,2,32,0) VA (directly or paid for by VA), and are required to complete VA Form 10- "DATA",25.11,77,2,33,0) 10EC. The monthly copayment amount is calculated based on VA Form 10-10EC "DATA",25.11,77,2,34,0) information. "DATA",25.11,77,2,35,0) "DATA",25.11,77,2,36,0) Includes Veterans who may have to pay copayments for extended care services "DATA",25.11,77,2,37,0) provided by VA (directly or paid for by VA), because they refuse to provide "DATA",25.11,77,2,38,0) financial information but agree to pay VA the applicable copayment amount "DATA",25.11,77,2,39,0) (documented on VA Form 10-10EC). "DATA",25.11,77,2,40,0) "DATA",25.11,77,2,41,0) For extended care services furnished through the Veterans Community Care "DATA",25.11,77,2,42,0) Program under Section 17.4000 through 17.4040, the copayment amount at the "DATA",25.11,77,2,43,0) time of furnishing such care or services by a non-VA entity or provider is "DATA",25.11,77,2,44,0) $0. VA will determine and assess the Veteran's copayment amount at the end "DATA",25.11,77,2,45,0) of the billing process, but at no time will a Veteran's copayment be more "DATA",25.11,77,2,46,0) than the amount identified in paragraph 38 CFR 17.111(b)(1) or (2). "DATA",25.11,78,0) VA EXTENDED CARE SERVICES INELIGIBLE^287^EC01004 "DATA",25.11,78,1,0) ^^1^1^3200320 "DATA",25.11,78,1,1,0) Inel ECS "DATA",25.11,78,2,0) ^^7^7^3200320 "DATA",25.11,78,2,1,0) Individuals who may receive extended care services on a Humanitarian basis "DATA",25.11,78,2,2,0) include: "DATA",25.11,78,2,3,0) . Veterans who are not enrolled in VA Health Care System, non-Veterans, "DATA",25.11,78,2,4,0) and other patients who have no eligibility for Extended Care. "DATA",25.11,78,2,5,0) . Veterans who refuse to provide financial information and do not agree "DATA",25.11,78,2,6,0) to pay VA the applicable copayment amount (documented on VA Form 10- "DATA",25.11,78,2,7,0) 10EC) or refuse to pay the required copayments. "DATA",25.11,79,0) ASSISTED REPRODUCTIVE TECHNOLOGY^288^AR01001 "DATA",25.11,79,1,0) ^^1^1^3200107 "DATA",25.11,79,1,1,0) FMP "DATA",25.11,79,2,0) ^^13^13^3200107 "DATA",25.11,79,2,1,0) ART - Assisted reproductive technologies (ART) are all treatments or "DATA",25.11,79,2,2,0) procedures that include the in vitro handling of both human oocytes and "DATA",25.11,79,2,3,0) sperm, or of embryos, for the purpose of establishing a pregnancy. This "DATA",25.11,79,2,4,0) includes, but is not limited to, in vitro fertilization; embryo transfer; "DATA",25.11,79,2,5,0) gamete intrafallopian transfer; zygote intrafallopian transfer; tubal embryo "DATA",25.11,79,2,6,0) transfer; gamete and embryo cryopreservation; oocyte and embryo donation; "DATA",25.11,79,2,7,0) and, gestational surrogacy. ART- Assisted reproductive technologies (ART) "DATA",25.11,79,2,8,0) are all treatments or procedures that include the in vitro handling of both "DATA",25.11,79,2,9,0) human oocytes and sperm, or of embryos, for the purpose of establishing a "DATA",25.11,79,2,10,0) pregnancy. This includes, but is not limited to, in vitro fertilization; "DATA",25.11,79,2,11,0) embryo transfer; gamete intrafallopian transfer; zygote intrafallopian "DATA",25.11,79,2,12,0) transfer; tubal embryo transfer; gamete and embryo cryopreservation; "DATA",25.11,79,2,13,0) oocyte and embryo donation; and, gestational surrogacy. "DATA",25.11,80,0) HIGH RISK VETERAN^289^HR01001^Y "DATA",25.11,80,1,0) ^^1^1^3200320 "DATA",25.11,80,1,1,0) HRV "DATA",25.11,80,2,0) ^^1^1^3200107 "DATA",25.11,80,2,1,0) High Risk Veteran "DATA",25.11,81,0) DENTAL COMPREHENSIVE CARE^292^DE01001 "DATA",25.11,81,1,0) ^^1^1^3200320 "DATA",25.11,81,1,1,0) Den Comp "DATA",25.11,81,2,0) ^^8^8^3200320 "DATA",25.11,81,2,1,0) Veterans receive any dental treatment that is reasonably necessary "DATA",25.11,81,2,2,0) and clinically determined by the treating dentist to meet the "DATA",25.11,81,2,3,0) Veteran's dental needs. A recall program must be established for "DATA",25.11,81,2,4,0) those Veterans who are eligible for comprehensive and repeat dental "DATA",25.11,81,2,5,0) care. The goal of care is to attain and sustain oral health and "DATA",25.11,81,2,6,0) function including prosthetic rehabilitation as indicated. "DATA",25.11,81,2,7,0) "DATA",25.11,81,2,8,0) Derived from the VHA Handbook 1130.01 dated February 11, 2013 "DATA",25.11,82,0) DENTAL FOCUSED EMERGENT CARE^293^DE01002 "DATA",25.11,82,1,0) ^^1^1^3200320 "DATA",25.11,82,1,1,0) Den Emer "DATA",25.11,82,2,0) ^^124^124^3200323^ "DATA",25.11,82,2,1,0) Dental Focused Emergent Care is: "DATA",25.11,82,2,2,0) . Treatment of an oral condition complicating the management of "DATA",25.11,82,2,3,0) the medical condition for which the Veteran was admitted. "DATA",25.11,82,2,4,0) . Treatment of an oral condition complicating the management of "DATA",25.11,82,2,5,0) the medical condition for which the patient was admitted that "DATA",25.11,82,2,6,0) was initiated but not completed while the Veteran was an "DATA",25.11,82,2,7,0) inpatient. "DATA",25.11,82,2,8,0) . Treatment provided to inpatients that are completed after "DATA",25.11,82,2,9,0) hospital discharge. "DATA",25.11,82,2,10,0) . Treatment provided to active duty military, military "DATA",25.11,82,2,11,0) retirees, CHAMPVA inpatients that are completed after "DATA",25.11,82,2,12,0) hospital discharge. "DATA",25.11,82,2,13,0) . Treatment of an emergent/urgent oral condition involving "DATA",25.11,82,2,14,0) acute pain, infection, trauma and/or hemorrhage; or suspicion "DATA",25.11,82,2,15,0) of an oral malignancy. "DATA",25.11,82,2,16,0) . Inpatients in a non-acute care unit. "DATA",25.11,82,2,17,0) . Residents in VA Community Living Centers. "DATA",25.11,82,2,18,0) . Residents in VA Domiciliary Centers. "DATA",25.11,82,2,19,0) **Inpatients specified under sharing agreements and employees or "DATA",25.11,82,2,20,0) patients officially authorized treatment for work related oral- "DATA",25.11,82,2,21,0) dental injuries.** "DATA",25.11,82,2,22,0) a. A Veteran who is actively engaged in a Chapter 31 vocational "DATA",25.11,82,2,23,0) rehabilitation program may receive dental care to the extent "DATA",25.11,82,2,24,0) needed to meet any of the following goals: "DATA",25.11,82,2,25,0) 1. Make possible the Veteran's entrance into a "DATA",25.11,82,2,26,0) rehabilitation program; "DATA",25.11,82,2,27,0) 2. Achieve the goals of the Veteran's vocational "DATA",25.11,82,2,28,0) rehabilitation program; "DATA",25.11,82,2,29,0) 3. Prevent interruption of a rehabilitation program; "DATA",25.11,82,2,30,0) 4. Hasten the return to a rehabilitation program of a "DATA",25.11,82,2,31,0) Veteran in interrupted or leave status; "DATA",25.11,82,2,32,0) 5. Hasten the return to a rehabilitation program of a "DATA",25.11,82,2,33,0) Veteran placed in discontinued status because of "DATA",25.11,82,2,34,0) illness, injury or dental condition; "DATA",25.11,82,2,35,0) 6. Secure and adjust to employment during the period of "DATA",25.11,82,2,36,0) employment assistance; or "DATA",25.11,82,2,37,0) 7. Enable the Veteran to achieve maximum independence in "DATA",25.11,82,2,38,0) daily living. "DATA",25.11,82,2,39,0) b. Requests for Class V dental care must be forwarded to the "DATA",25.11,82,2,40,0) Dental Service by the Chapter 31 Vocational Rehabilitation "DATA",25.11,82,2,41,0) Program on VA Form 28-8861. This form needs to be provided "DATA",25.11,82,2,42,0) for each episode of care requested. Dental care must not be "DATA",25.11,82,2,43,0) provided beyond the anticipated rehabilitation date as "DATA",25.11,82,2,44,0) specified on the form. "DATA",25.11,82,2,45,0) Any Veteran scheduled for admission or who is receiving care under "DATA",25.11,82,2,46,0) Chapter 17 of title 38, U.S.C., may receive outpatient dental care "DATA",25.11,82,2,47,0) if the dental condition is clinically determined to be complicating "DATA",25.11,82,2,48,0) the medical condition currently under VA treatment. Eligibility for "DATA",25.11,82,2,49,0) each episode of dental care will be predicated on referral and "DATA",25.11,82,2,50,0) consultation, followed by a decision based upon clinical judgment. "DATA",25.11,82,2,51,0) The goal is to provide focused care to treat only the oral "DATA",25.11,82,2,52,0) conditions that are complicating impact to the clinical management "DATA",25.11,82,2,53,0) of the medical condition currently under treatment. This "DATA",25.11,82,2,54,0) classification includes medically necessary dental care for "DATA",25.11,82,2,55,0) Veterans receiving care for Military Sexual Trauma under Title 38 "DATA",25.11,82,2,56,0) U.S.C. 1720D. "DATA",25.11,82,2,57,0) "DATA",25.11,82,2,58,0) Limitations of Treatment Provided Under Class II. "DATA",25.11,82,2,59,0) 1. Dental Prostheses and Implants Provided by VA. Class II "DATA",25.11,82,2,60,0) dental beneficiaries are not eligible to receive "DATA",25.11,82,2,61,0) ongoing maintenance. Once adjustments are satisfactory, "DATA",25.11,82,2,62,0) the episode of prosthetic care is considered to be "DATA",25.11,82,2,63,0) complete and subsequent treatment is the responsibility "DATA",25.11,82,2,64,0) of the Veteran. "DATA",25.11,82,2,65,0) 2. Periodontal Conditions. Specific treatment authorized "DATA",25.11,82,2,66,0) for periodontal conditions of Class II beneficiaries is "DATA",25.11,82,2,67,0) expected to provide maximum benefit by the time that "DATA",25.11,82,2,68,0) episode of overall care is completed. When that "DATA",25.11,82,2,69,0) treatment is satisfactorily completed as authorized, "DATA",25.11,82,2,70,0) further treatment or follow-up for the periodontal "DATA",25.11,82,2,71,0) condition is not authorized. "DATA",25.11,82,2,72,0) 3. Impacted Teeth. Impacted teeth are a developmental "DATA",25.11,82,2,73,0) abnormality. Consideration for surgical extraction must "DATA",25.11,82,2,74,0) be based on sound professional judgment to resolve "DATA",25.11,82,2,75,0) existing disease or symptoms. "DATA",25.11,82,2,76,0) 4. Malposed Teeth. Malposed teeth are considered a "DATA",25.11,82,2,77,0) developmental abnormality and a pre-existing condition "DATA",25.11,82,2,78,0) relative to the start of military service. Orthodontic "DATA",25.11,82,2,79,0) care in this circumstance is not authorized. "DATA",25.11,82,2,80,0) For cases in which trauma incurred in the line of duty "DATA",25.11,82,2,81,0) resulted in malalignment of the teeth or when "DATA",25.11,82,2,82,0) restorative procedures for which the Veteran is "DATA",25.11,82,2,83,0) eligible require orthodontic intervention, orthodontic "DATA",25.11,82,2,84,0) care may be provided. "DATA",25.11,82,2,85,0) 5. Veterans with Orthodontic Appliances. When Veterans "DATA",25.11,82,2,86,0) present at VA facilities with orthodontic appliances "DATA",25.11,82,2,87,0) for the purpose of correcting developmental "DATA",25.11,82,2,88,0) malocclusion and have not had their treatment completed "DATA",25.11,82,2,89,0) by the military prior to discharge, they must be "DATA",25.11,82,2,90,0) informed that VA does not assume the responsibility for "DATA",25.11,82,2,91,0) any phase of the orthodontic care unless directly "DATA",25.11,82,2,92,0) related to rehabilitation of combat trauma to the "DATA",25.11,82,2,93,0) maxillofacial region. "DATA",25.11,82,2,94,0) 6. Service Connection of Dental Conditions for Treatment "DATA",25.11,82,2,95,0) Purposes. VBA may, upon request, provide documentation "DATA",25.11,82,2,96,0) to the Dental Service defining service connection of "DATA",25.11,82,2,97,0) specific teeth for dental treatment purposes. (see "DATA",25.11,82,2,98,0) Title 38 CFR 3.381). The regulation provides for "DATA",25.11,82,2,99,0) identification of teeth treated during military service "DATA",25.11,82,2,100,0) and applies only to Class II beneficiaries who have met "DATA",25.11,82,2,101,0) the criteria as specified in Paragraph 7c1(a)-(f) and "DATA",25.11,82,2,102,0) 7c2(a) and (b) of this Handbook. The Chief or designee "DATA",25.11,82,2,103,0) can use the document to assist in development of "DATA",25.11,82,2,104,0) appropriate treatment recommendations. "DATA",25.11,82,2,105,0) 7. United States Department of Defense (DoD) "DATA",25.11,82,2,106,0) responsibilities. Under 38 U.S.C. 1712(a)(2), DoD must "DATA",25.11,82,2,107,0) notify the Veteran at the time of discharge or release "DATA",25.11,82,2,108,0) of the VA Class II- dental benefit available to newly "DATA",25.11,82,2,109,0) discharged Veterans, including notice of the applicable "DATA",25.11,82,2,110,0) time- limit for these benefits (i.e., including the "DATA",25.11,82,2,111,0) need to apply for this benefit within 180 days of their "DATA",25.11,82,2,112,0) discharge or release). If a Veteran requests dental "DATA",25.11,82,2,113,0) treatment after that 180 day period and states the "DATA",25.11,82,2,114,0) required notification was not provided to the Veteran "DATA",25.11,82,2,115,0) upon discharge or release, the Chief Business Office "DATA",25.11,82,2,116,0) should send a VA Form 10-7131 Exchange of Beneficiary "DATA",25.11,82,2,117,0) Information to VBA to investigate. If no indication of "DATA",25.11,82,2,118,0) notification was documented by DoD, or the DD-214 "DATA",25.11,82,2,119,0) indicates dental treatment was not completed within 90 "DATA",25.11,82,2,120,0) days of discharge and no Class II treatment has been "DATA",25.11,82,2,121,0) provided, then Veteran may be provided a one-time "DATA",25.11,82,2,122,0) course of dental care. "DATA",25.11,82,2,123,0) "DATA",25.11,82,2,124,0) Derived from the VHA Handbook 1130.01 dated February 11, 2013 "DATA",25.11,83,0) DENTAL HUMANITARIAN^294^DE01003 "DATA",25.11,83,1,0) ^^1^1^3200320 "DATA",25.11,83,1,1,0) Den Hum "DATA",25.11,83,2,0) ^^4^4^3200320 "DATA",25.11,83,2,1,0) Treatment of an emergent oral condition such as acute pain, "DATA",25.11,83,2,2,0) infection, trauma and/or hemorrhage. "DATA",25.11,83,2,3,0) "DATA",25.11,83,2,4,0) Derived from the VHA Handbook 1130.01 dated February 11, 2013 "DATA",25.11,84,0) INELIGIBLE^290^IN01001 "DATA",25.11,84,1,0) ^^1^1^3200320 "DATA",25.11,84,1,1,0) Inel "DATA",25.11,84,2,0) ^^14^14^3200320 "DATA",25.11,84,2,1,0) Non-Veterans and Non-Service connected Veterans who applied for VA "DATA",25.11,84,2,2,0) healthcare services, but are not enrolled due to an enrollment "DATA",25.11,84,2,3,0) decision, or after a one year period the application is "DATA",25.11,84,2,4,0) administratively closed due to no receipt of information needed to "DATA",25.11,84,2,5,0) verify Veteran status and/or financial information used to "DATA",25.11,84,2,6,0) determine enrollment status. Also, Veterans who are eligible based "DATA",25.11,84,2,7,0) on income but refuse to agree to pay copayment. "DATA",25.11,84,2,8,0) Non-Veterans and Veterans assigned this VHAP meet one of the "DATA",25.11,84,2,9,0) following conditions: "DATA",25.11,84,2,10,0) . Enrollment Status is Rejected, Below Enrollment Group "DATA",25.11,84,2,11,0) . Threshold (EGT) "DATA",25.11,84,2,12,0) . Enrollment Status is Closed Application "DATA",25.11,84,2,13,0) . Enrollment Status is Not Eligible; Ineligible Date "DATA",25.11,84,2,14,0) . Enrollment Status is Not Eligible; Refuse to pay copay "DATA",25.11,85,0) CAREGIVER IN PROCESS^291^CI01001 "DATA",25.11,85,1,0) ^^1^1^3200320 "DATA",25.11,85,1,1,0) CG Inp "DATA",25.11,85,2,0) ^^4^4^3200320 "DATA",25.11,85,2,1,0) Caregiver In Process - Is an individual who is undergoing "DATA",25.11,85,2,2,0) evaluation for enrollment in Program of Comprehensive Assistance "DATA",25.11,85,2,3,0) for Family Caregivers or Program of General Caregiver Support "DATA",25.11,85,2,4,0) Services. "FIA",25.11) HEALTH BENEFIT PLAN "FIA",25.11,0) ^DGHBP(25.11, "FIA",25.11,0,0) 25.11I "FIA",25.11,0,1) n^n^f^^n^^y^o^n "FIA",25.11,0,10) "FIA",25.11,0,11) "FIA",25.11,0,"RLRO") "FIA",25.11,0,"VR") 5.3^DG "FIA",25.11,25.11) 0 "FIA",25.11,25.13) 0 "FIA",25.11,25.14) 0 "INI") PRE^DG53998 "IX",25.11,25.11,"B",0) 25.11^B^Contains all the Health Benefit Plans in alphabetical order.^R^^F^IR^I^25.11^^^^^LS "IX",25.11,25.11,"B",1) S ^DGHBP(25.11,"B",$E(X,1,64),DA)="" "IX",25.11,25.11,"B",2) K ^DGHBP(25.11,"B",$E(X,1,64),DA) "IX",25.11,25.11,"B",2.5) K ^DGHBP(25.11,"B") "IX",25.11,25.11,"B",11.1,0) ^.114IA^1^1 "IX",25.11,25.11,"B",11.1,1,0) 1^F^25.11^.01^64^1^F "IX",25.11,25.11,"B",11.1,1,3) "MBREQ") 0 "PKG",47,-1) 1^1 "PKG",47,0) REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "PKG",47,22,0) ^9.49I^1^1 "PKG",47,22,1,0) 5.3^2930813^2960613 "PKG",47,22,1,"PAH",1,0) 998^3200323^123457066 "PKG",47,22,1,"PAH",1,1,0) ^^2^2^3200323 "PKG",47,22,1,"PAH",1,1,1,0) Please see the DG*5.3*998 patch description for detailed information "PKG",47,22,1,"PAH",1,1,2,0) regarding this patch. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","DG53998") 0^^B10797474 "RTN","DG53998",1,0) DG53998 ;WILM/BDB - DG*5.3*998 PRE INSTALL INELIGIBLE, HUMANITARIAN AND VHAP UPDATES;03/02/19 9:18pm "RTN","DG53998",2,0) ;;5.3;Registration;**998**;Aug 13, 1993;Build 15 "RTN","DG53998",3,0) ;;Per VHA Directive 2004-038, this routine should not be modified. "RTN","DG53998",4,0) ; "RTN","DG53998",5,0) ; Integration Agreements: "RTN","DG53998",6,0) ; 10141 : BMES^XPDUTL "RTN","DG53998",7,0) ; : MES^XPDUTL "RTN","DG53998",8,0) ; 10104 : UP^XLFSTR "RTN","DG53998",9,0) ; "RTN","DG53998",10,0) Q "RTN","DG53998",11,0) ; This pre-install routine will be used to perform the following task: "RTN","DG53998",12,0) ; Update the NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file. "RTN","DG53998",13,0) ; "RTN","DG53998",14,0) PRE ; Entry point for pre-install "RTN","DG53998",15,0) ; "RTN","DG53998",16,0) L +^DGHBP(25.11,0):10 I '$T D BMES^XPDUTL("Health Benefit Plan (#25.11) File is locked by another user. Please log YOUR IT Services ticket.") Q "RTN","DG53998",17,0) ; "RTN","DG53998",18,0) ; Update NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file. "RTN","DG53998",19,0) D BMES^XPDUTL("Updating the NAME (#.01) field of the Health Benefit Plan (#25.11) File ") "RTN","DG53998",20,0) D UPDATE "RTN","DG53998",21,0) D BMES^XPDUTL("Update of the NAME field of the Health Benefit Plans has completed. ") "RTN","DG53998",22,0) ; "RTN","DG53998",23,0) L -^DGHBP(25.11,0) "RTN","DG53998",24,0) Q "RTN","DG53998",25,0) ; "RTN","DG53998",26,0) UPDATE ;Change Name field of certain Health Benefit Plans "RTN","DG53998",27,0) ; "RTN","DG53998",28,0) N DGN,DGTEXT,DGOLD,DGNEW,DGIEN,DGFND,DGHBPN "RTN","DG53998",29,0) F DGN=1:1 S DGTEXT=$P($T(NAMES+DGN),";;",2) Q:DGTEXT="" D "RTN","DG53998",30,0) .S DGOLD=$P(DGTEXT,";",1),DGNEW=$P(DGTEXT,";",2) "RTN","DG53998",31,0) .S DGOLD=$$UP^XLFSTR(DGOLD),DGNEW=$$UP^XLFSTR(DGNEW) "RTN","DG53998",32,0) .S DGIEN=0,DGFND=0 F S DGIEN=$O(^DGHBP(25.11,DGIEN)) Q:+DGIEN=0 D Q:DGFND=1 "RTN","DG53998",33,0) ..S DGHBPN=$P(^DGHBP(25.11,DGIEN,0),U,1) Q:DGHBPN'=DGOLD "RTN","DG53998",34,0) ..S DGFND=1 "RTN","DG53998",35,0) ..S DR=".01///"_DGNEW,DIE="^DGHBP(25.11,",DA=DGIEN D ^DIE K DIE,DR,DA "RTN","DG53998",36,0) ..D BMES^XPDUTL("PLAN NAME:") "RTN","DG53998",37,0) ..D MES^XPDUTL(DGOLD) "RTN","DG53998",38,0) ..D MES^XPDUTL("RENAMED TO:") "RTN","DG53998",39,0) ..D MES^XPDUTL(DGNEW) "RTN","DG53998",40,0) Q "RTN","DG53998",41,0) DGERR ; "RTN","DG53998",42,0) D BMES^XPDUTL(" *** An Error occurred during the updating of ") "RTN","DG53998",43,0) D MES^XPDUTL(" the NAME field for the Health Benefit Plans for this Plan:") "RTN","DG53998",44,0) D MES^XPDUTL(" "_DGOLD) "RTN","DG53998",45,0) D MES^XPDUTL(" The Plan was not located on file.") "RTN","DG53998",46,0) D MES^XPDUTL(" Please log YOUR IT Services ticket. ***") "RTN","DG53998",47,0) Q "RTN","DG53998",48,0) NAMES ;format: ;;oldname;newname "RTN","DG53998",49,0) ;;VETERAN PLAN - CCP BASIC;VETERAN PLAN CCP BASIC "RTN","DG53998",50,0) ;;VETERAN PLAN - CCP STATE WITH NO FULL-SERVICE MEDICAL FACILITY;VETERAN PLAN CCP STATE WITH NO FULL SERVICE MEDICAL FACILITY "RTN","DG53998",51,0) ;;VETERAN PLAN - CCP URGENT CARE;VETERAN PLAN CCP URGENT CARE "RTN","DG53998",52,0) ;;VETERAN PLAN - CCP GRANDFATHER;VETERAN PLAN CCP GRANDFATHER "RTN","DG53998",53,0) ;;VETERAN PLAN - CCP HARDSHIP DETERMINATION;VETERAN PLAN CCP HARDSHIP DETERMINATION "RTN","DG53998",54,0) ;;COMPREHENSIVE EXTENDED CARE SERVICES COPAY EXEMPT;VA MANDATORY NURSING HOME ELIGIBLE COPAY EXEMPT "RTN","DG53998",55,0) ;;VETERAN EXTENDED CARE SERVICES COPAY EXEMPT;VA EXTENDED CARE SERVICES COPAY EXEMPT "RTN","DG53998",56,0) ;;VETERAN EXTENDED CARE SERVICES COPAY REQ;VA EXTENDED CARE SERVICES COPAY REQUIRED "RTN","DG53998",57,0) ;;EXTENDED CARE SERVICES HUMANITARIAN;VA EXTENDED CARE SERVICES INELIGIBLE "RTN","DG53998",58,0) ;; "VER") 8.0^22.2 "^DD",25.11,25.11,0) FIELD^NL^.06^6 "^DD",25.11,25.11,0,"DDA") N "^DD",25.11,25.11,0,"DT") 3190528 "^DD",25.11,25.11,0,"IX","C",25.11,.02) "^DD",25.11,25.11,0,"NM","HEALTH BENEFIT PLAN") "^DD",25.11,25.11,0,"PT",2.2511,.01) "^DD",25.11,25.11,0,"PT",2.2512,1) "^DD",25.11,25.11,0,"VRPK") DG "^DD",25.11,25.11,.01,0) NAME ^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X "^DD",25.11,25.11,.01,1,0) ^.1^^0 "^DD",25.11,25.11,.01,3) Answer must be 3-200 characters in length. "^DD",25.11,25.11,.01,21,0) ^.001^1^1^3130306^^^^ "^DD",25.11,25.11,.01,21,1,0) This field contains the Health Benefit Plan name. "^DD",25.11,25.11,.01,"DT") 3130326 "^DD",25.11,25.11,.02,0) PLAN CODE^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<100)!(X?.E1"."1N.N) X "^DD",25.11,25.11,.02,1,0) ^.1 "^DD",25.11,25.11,.02,1,1,0) 25.11^C "^DD",25.11,25.11,.02,1,1,1) S ^DGHBP(25.11,"C",$E(X,1,30),DA)="" "^DD",25.11,25.11,.02,1,1,2) K ^DGHBP(25.11,"C",$E(X,1,30),DA) "^DD",25.11,25.11,.02,1,1,"%D",0) ^^2^2^3130307^ "^DD",25.11,25.11,.02,1,1,"%D",1,0) This will contain the cross-reference plan code to its corresponding "^DD",25.11,25.11,.02,1,1,"%D",2,0) Health Benefit Plan. "^DD",25.11,25.11,.02,1,1,"DT") 3130307 "^DD",25.11,25.11,.02,3) Type a number between 100 and 999, 0 decimal digits. "^DD",25.11,25.11,.02,21,0) ^.001^1^1^3130307^^ "^DD",25.11,25.11,.02,21,1,0) This field contains the Plan Code associated with the Health Benefit Plan. "^DD",25.11,25.11,.02,"DT") 3130307 "^DD",25.11,25.11,.03,0) SHORT DESCRIPTION^25.13^^1;0 "^DD",25.11,25.11,.03,21,0) ^^2^2^3130307^ "^DD",25.11,25.11,.03,21,1,0) This field contains the short description associated with the Health "^DD",25.11,25.11,.03,21,2,0) Benefit Plan. "^DD",25.11,25.11,.04,0) LONG DESCRIPTION^25.14^^2;0 "^DD",25.11,25.11,.04,21,0) ^^2^2^3130307^ "^DD",25.11,25.11,.04,21,1,0) This field contains the detailed long description associated with the "^DD",25.11,25.11,.04,21,2,0) Health Benefit Plan. "^DD",25.11,25.11,.05,0) COVERAGE CODE^F^^0;3^K:$L(X)>30!($L(X)<1) X "^DD",25.11,25.11,.05,3) Answer must be 1-30 characters in length. "^DD",25.11,25.11,.05,21,0) ^^1^1^3170117^ "^DD",25.11,25.11,.05,21,1,0) This field contains the Coverage Code associated with the Health Benefit Plan. "^DD",25.11,25.11,.05,"DT") 3170117 "^DD",25.11,25.11,.06,0) INACTIVE^S^Y:YES;N:NO;^0;4^Q "^DD",25.11,25.11,.06,3) Enter YES or NO to set benefit plan inactive status. "^DD",25.11,25.11,.06,21,0) ^^1^1^3190528^ "^DD",25.11,25.11,.06,21,1,0) Determine if Health Benefit Plan is inactive. "^DD",25.11,25.11,.06,"DT") 3190528 "^DD",25.11,25.13,0) SHORT DESCRIPTION SUB-FIELD^^.01^1 "^DD",25.11,25.13,0,"DT") 3130307 "^DD",25.11,25.13,0,"NM","SHORT DESCRIPTION") "^DD",25.11,25.13,0,"UP") 25.11 "^DD",25.11,25.13,.01,0) SHORT DESCRIPTION^Wx^^0;1^Q "^DD",25.11,25.13,.01,3) Enter the short description for the Health Benefit Plan. "^DD",25.11,25.13,.01,21,0) ^.001^2^2^3130307^^ "^DD",25.11,25.13,.01,21,1,0) This field contains the short description associated with the Health "^DD",25.11,25.13,.01,21,2,0) Benefit Plan. "^DD",25.11,25.13,.01,"DT") 3130307 "^DD",25.11,25.14,0) LONG DESCRIPTION SUB-FIELD^^.01^1 "^DD",25.11,25.14,0,"DT") 3130307 "^DD",25.11,25.14,0,"NM","LONG DESCRIPTION") "^DD",25.11,25.14,0,"UP") 25.11 "^DD",25.11,25.14,.01,0) LONG DESCRIPTION^Wx^^0;1^Q "^DD",25.11,25.14,.01,3) Enter the detailed description for the Health Benefit Plan. "^DD",25.11,25.14,.01,21,0) ^.001^2^2^3130307^^ "^DD",25.11,25.14,.01,21,1,0) This field contains the detailed long description associated with the "^DD",25.11,25.14,.01,21,2,0) Health Benefit Plan. "^DD",25.11,25.14,.01,"DT") 3130307 "^DIC",25.11,25.11,0) HEALTH BENEFIT PLAN^25.11 "^DIC",25.11,25.11,0,"GL") ^DGHBP(25.11, "^DIC",25.11,25.11,"%",0) ^1.005^^0 "^DIC",25.11,25.11,"%D",0) ^1.001^2^2^3150209^^^^ "^DIC",25.11,25.11,"%D",1,0) This file contains the Health Benefit Plan names and their short and long "^DIC",25.11,25.11,"%D",2,0) descriptions. "^DIC",25.11,"B","HEALTH BENEFIT PLAN",25.11) **INSTALL NAME** IVM*2.0*192 "BLD",11344,0) IVM*2.0*192^INCOME VERIFICATION MATCH^0^3200323^y "BLD",11344,1,0) ^^2^2^3200311^^^ "BLD",11344,1,1,0) Please see the IVM*2*192 patch description for detailed information "BLD",11344,1,2,0) regarding this patch. "BLD",11344,4,0) ^9.64PA^^0 "BLD",11344,6.3) 14 "BLD",11344,"ABPKG") n "BLD",11344,"INID") ^ "BLD",11344,"INIT") "BLD",11344,"KRN",0) ^9.67PA^1.5^25 "BLD",11344,"KRN",.4,0) .4 "BLD",11344,"KRN",.401,0) .401 "BLD",11344,"KRN",.402,0) .402 "BLD",11344,"KRN",.403,0) .403 "BLD",11344,"KRN",.5,0) .5 "BLD",11344,"KRN",.84,0) .84 "BLD",11344,"KRN",1.5,0) 1.5 "BLD",11344,"KRN",1.6,0) 1.6 "BLD",11344,"KRN",1.61,0) 1.61 "BLD",11344,"KRN",1.62,0) 1.62 "BLD",11344,"KRN",3.6,0) 3.6 "BLD",11344,"KRN",3.8,0) 3.8 "BLD",11344,"KRN",9.2,0) 9.2 "BLD",11344,"KRN",9.8,0) 9.8 "BLD",11344,"KRN",9.8,"NM",0) ^9.68A^4^2 "BLD",11344,"KRN",9.8,"NM",1,0) IVMPREC6^^0^B200375572 "BLD",11344,"KRN",9.8,"NM",4,0) IVMPREC9^^0^B106557497 "BLD",11344,"KRN",9.8,"NM","B","IVMPREC6",1) "BLD",11344,"KRN",9.8,"NM","B","IVMPREC9",4) "BLD",11344,"KRN",19,0) 19 "BLD",11344,"KRN",19.1,0) 19.1 "BLD",11344,"KRN",101,0) 101 "BLD",11344,"KRN",409.61,0) 409.61 "BLD",11344,"KRN",771,0) 771 "BLD",11344,"KRN",779.2,0) 779.2 "BLD",11344,"KRN",870,0) 870 "BLD",11344,"KRN",8989.51,0) 8989.51 "BLD",11344,"KRN",8989.52,0) 8989.52 "BLD",11344,"KRN",8993,0) 8993 "BLD",11344,"KRN",8994,0) 8994 "BLD",11344,"KRN","B",.4,.4) "BLD",11344,"KRN","B",.401,.401) "BLD",11344,"KRN","B",.402,.402) "BLD",11344,"KRN","B",.403,.403) "BLD",11344,"KRN","B",.5,.5) "BLD",11344,"KRN","B",.84,.84) "BLD",11344,"KRN","B",1.5,1.5) "BLD",11344,"KRN","B",1.6,1.6) "BLD",11344,"KRN","B",1.61,1.61) "BLD",11344,"KRN","B",1.62,1.62) "BLD",11344,"KRN","B",3.6,3.6) "BLD",11344,"KRN","B",3.8,3.8) "BLD",11344,"KRN","B",9.2,9.2) "BLD",11344,"KRN","B",9.8,9.8) "BLD",11344,"KRN","B",19,19) "BLD",11344,"KRN","B",19.1,19.1) "BLD",11344,"KRN","B",101,101) "BLD",11344,"KRN","B",409.61,409.61) "BLD",11344,"KRN","B",771,771) "BLD",11344,"KRN","B",779.2,779.2) "BLD",11344,"KRN","B",870,870) "BLD",11344,"KRN","B",8989.51,8989.51) "BLD",11344,"KRN","B",8989.52,8989.52) "BLD",11344,"KRN","B",8993,8993) "BLD",11344,"KRN","B",8994,8994) "BLD",11344,"QDEF") ^^^^NO^^^^NO^^YES "BLD",11344,"QUES",0) ^9.62^^ "BLD",11344,"REQB",0) ^9.611^1^1 "BLD",11344,"REQB",1,0) IVM*2.0*188^1 "BLD",11344,"REQB","B","IVM*2.0*188",1) "MBREQ") 0 "PKG",120,-1) 1^1 "PKG",120,0) INCOME VERIFICATION MATCH^IVM^IVM Software for interface with the IVM Center "PKG",120,22,0) ^9.49I^1^1 "PKG",120,22,1,0) 2.0^2941021^2960823 "PKG",120,22,1,"PAH",1,0) 192^3200323^123457066 "PKG",120,22,1,"PAH",1,1,0) ^^2^2^3200323 "PKG",120,22,1,"PAH",1,1,1,0) Please see the IVM*2*192 patch description for detailed information "PKG",120,22,1,"PAH",1,1,2,0) regarding this patch. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 2 "RTN","IVMPREC6") 0^1^B200375572 "RTN","IVMPREC6",1,0) IVMPREC6 ;ALB/KCL,BRM,CKN,TDM,PWC,LBD,KUM,JAM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES ;09-02-2019 8:06AM "RTN","IVMPREC6",2,0) ;;2.0;INCOME VERIFICATION MATCH;**3,4,12,17,34,58,79,102,115,140,144,121,151,152,165,167,171,164,188,192**;21-OCT-94;Build 14 "RTN","IVMPREC6",3,0) ;Per VA Directive 6402, this routine should not be modified. "RTN","IVMPREC6",4,0) ; "RTN","IVMPREC6",5,0) ; This routine will process batch ORU demographic (event type Z05) HL7 "RTN","IVMPREC6",6,0) ; messages received from the IVM center. Format of HL7 batch message: "RTN","IVMPREC6",7,0) ; "RTN","IVMPREC6",8,0) ; BHS "RTN","IVMPREC6",9,0) ; {MSH "RTN","IVMPREC6",10,0) ; PID "RTN","IVMPREC6",11,0) ; ZPD "RTN","IVMPREC6",12,0) ; ZTA "RTN","IVMPREC6",13,0) ; ZAV "RTN","IVMPREC6",14,0) ; ZGD "RTN","IVMPREC6",15,0) ; ZCT (1 episode required, multiple possible) "RTN","IVMPREC6",16,0) ; ZEM (Veteran) "RTN","IVMPREC6",17,0) ; ZEM (Spouse - Optional) "RTN","IVMPREC6",18,0) ; RF1 (optional, multiple possible) "RTN","IVMPREC6",19,0) ; } "RTN","IVMPREC6",20,0) ; BTS "RTN","IVMPREC6",21,0) ; "RTN","IVMPREC6",22,0) ; "RTN","IVMPREC6",23,0) EN ; - entry point to process HL7 patient demographic message "RTN","IVMPREC6",24,0) ; "RTN","IVMPREC6",25,0) N DGENUPLD,VAFCA08,DGRUGA08,COMP,DODSEG,GUARSEG,IVMCSDT,IVMCEDT,IVMCAFG,IVMCAVL,IVMPMAST,IVMCMAST "RTN","IVMPREC6",26,0) ;N MULTDONE,XREP "RTN","IVMPREC6",27,0) N XIVMA,IVMALADT,MULTIDONE "RTN","IVMPREC6",28,0) N IVMPHDFG S IVMPHDFG=0 ; IVM*2*171 - add new variable IVMPHDFG to check for PHH deletion "RTN","IVMPREC6",29,0) S IVMPMAST="" "RTN","IVMPREC6",30,0) ; "RTN","IVMPREC6",31,0) ; Setup array to hold all the Allowed Address Types "RTN","IVMPREC6",32,0) ;F XIVMA="N","P","VAB1","VAB2","VAB3","VAB4" S IVMALADT(XIVMA)="" "RTN","IVMPREC6",33,0) ; IVM*2.0*164 - Allow Residential and Confidential Addresses "RTN","IVMPREC6",34,0) F XIVMA="P","R","CA","VAB1","VAB2","VAB3","VAB4" S IVMALADT(XIVMA)="" "RTN","IVMPREC6",35,0) ; Define the Confidential Address Categories "RTN","IVMPREC6",36,0) ; IVM*2.0*164 - Uncomment below five lines to enable all confidential address categories "RTN","IVMPREC6",37,0) S IVMALADT("VACAE")="CA^1" ; ELIGIBILITY/ENROLLMENT "RTN","IVMPREC6",38,0) S IVMALADT("VACAA")="CA^2" ; APPOINTMENT/SCHEDULING "RTN","IVMPREC6",39,0) S IVMALADT("VACAC")="CA^3" ; COPAYMENTS/VETERAN BILLING "RTN","IVMPREC6",40,0) S IVMALADT("VACAM")="CA^4" ; MEDICAL RECORDS "RTN","IVMPREC6",41,0) S IVMALADT("VACAO")="CA^5" ; ALL OTHERS "RTN","IVMPREC6",42,0) ; prevent a return Z07 when uploading a Z05 (Patient file triggers) "RTN","IVMPREC6",43,0) S DGENUPLD="ENROLLMENT/ELIGIBILITY UPLOAD IN PROGRESS" "RTN","IVMPREC6",44,0) ; "RTN","IVMPREC6",45,0) ; prevent MPI A08 message when uploading Z05 (Patient file triggers) "RTN","IVMPREC6",46,0) S VAFCA08=1 ;MPI/CIRN A08 suppression flag "RTN","IVMPREC6",47,0) ; "RTN","IVMPREC6",48,0) S IVMFLG=0,IVMADFLG=0 "RTN","IVMPREC6",49,0) ; - get incoming HL7 message from HL7 Transmission (#772) file "RTN","IVMPREC6",50,0) F IVMDA=0:0 S IVMDA=$O(^TMP($J,IVMRTN,IVMDA)) Q:'IVMDA S IVMSEG=$G(^(IVMDA,0)) I $E(IVMSEG,1,3)="MSH" D "RTN","IVMPREC6",51,0) .K HLERR,ZEMADRUP "RTN","IVMPREC6",52,0) .S IVMTSTPT="" ;Initialize Temp Addr County "RTN","IVMPREC6",53,0) .; "RTN","IVMPREC6",54,0) .; - message control id from MSH segment "RTN","IVMPREC6",55,0) .S MSGID=$P(IVMSEG,HLFS,10),HLMID=MSGID "RTN","IVMPREC6",56,0) .; "RTN","IVMPREC6",57,0) .; - perform demographics message consistency check "RTN","IVMPREC6",58,0) .D EN^IVMPRECA Q:$D(HLERR) "RTN","IVMPREC6",59,0) .; "RTN","IVMPREC6",60,0) .;Set array of Email, Cell, Pager fields "RTN","IVMPREC6",61,0) .D EPCFLDS(.EPCFARY,.EPCDEL) "RTN","IVMPREC6",62,0) .D AUPBLD(.AUPFARY,.UPDAUPG) "RTN","IVMPREC6",63,0) .; - get next msg segment "RTN","IVMPREC6",64,0) .D NEXT I $E(IVMSEG,1,3)'="PID" D Q "RTN","IVMPREC6",65,0) ..S HLERR="Missing PID segment" D ACK^IVMPREC "RTN","IVMPREC6",66,0) .; "RTN","IVMPREC6",67,0) .F I=1:1 D NEXT Q:$E(IVMSEG,1,4)="ZPD^" ;Go through all PID "RTN","IVMPREC6",68,0) .; - patient IEN (DFN) from PID segment "RTN","IVMPREC6",69,0) .;Use IVMPID array created in IVMPRECA while performing consistency "RTN","IVMPREC6",70,0) .;to process PID segment "RTN","IVMPREC6",71,0) .; "RTN","IVMPREC6",72,0) .;I '$G(IVMDFN) S HLERR="Invalid DFN" D ACK^IVMPREC Q "RTN","IVMPREC6",73,0) .S DFN=$G(IVMDFN) "RTN","IVMPREC6",74,0) .;I ('DFN!(DFN'=+DFN)!('$D(^DPT(+DFN,0)))) D Q "RTN","IVMPREC6",75,0) .;.S HLERR="Invalid DFN" D ACK^IVMPREC "RTN","IVMPREC6",76,0) .;I IVMPID(19)'=$P(^DPT(DFN,0),"^",9) D Q "RTN","IVMPREC6",77,0) .;.S HLERR="Couldn't match HEC SSN with DHCP SSN" D ACK^IVMPREC "RTN","IVMPREC6",78,0) .; "RTN","IVMPREC6",79,0) .; - check for entry in IVM PATIENT file, otherwise create stub entry "RTN","IVMPREC6",80,0) .S IVM3015=$O(^IVM(301.5,"B",DFN,0)) "RTN","IVMPREC6",81,0) .I 'IVM3015 S DGENUPLD="",IVM3015=$$LOG^IVMPLOG(DFN,DT),DGENUPLD="ENROLLMENT/ELIGIBILITY UPLOAD IN PROGRESS" ;IVM*2.0*165 "RTN","IVMPREC6",82,0) .I 'IVM3015 D Q "RTN","IVMPREC6",83,0) ..S HLERR="Failed to create entry in IVM PATIENT file" "RTN","IVMPREC6",84,0) ..D ACK^IVMPREC "RTN","IVMPREC6",85,0) .; "RTN","IVMPREC6",86,0) .; - compare PID segment fields with DHCP fields "RTN","IVMPREC6",87,0) .S IVMSEG="PID" ;Setting IVMSEG to PID before it calls COMPARE "RTN","IVMPREC6",88,0) .I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) Q:$D(HLERR) "RTN","IVMPREC6",89,0) .; "RTN","IVMPREC6",90,0) .; - get next msg segment -decrement the counter so it can pickup ZPD "RTN","IVMPREC6",91,0) .S IVMDA=IVMDA-1 D NEXT I $E(IVMSEG,1,3)'="ZPD" D Q "RTN","IVMPREC6",92,0) ..S HLERR="Missing ZPD segment" D ACK^IVMPREC "RTN","IVMPREC6",93,0) .;Convert "" to null in ZPD segment except seq. 8,9, 31 and 32 "RTN","IVMPREC6",94,0) .S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS,",9,10,32,33,") "RTN","IVMPREC6",95,0) .; "RTN","IVMPREC6",96,0) .; - compare ZPD segment fields with DHCP fields "RTN","IVMPREC6",97,0) .D COMPARE(IVMSEG) "RTN","IVMPREC6",98,0) .; "RTN","IVMPREC6",99,0) .; - get next msg segment "RTN","IVMPREC6",100,0) .D NEXT I $E(IVMSEG,1,3)="ZEL" D Q "RTN","IVMPREC6",101,0) ..S HLERR="ZEL segment should not be sent in Z05 message" D ACK^IVMPREC "RTN","IVMPREC6",102,0) .; "RTN","IVMPREC6",103,0) .I $E(IVMSEG,1,3)'="ZTA" D Q "RTN","IVMPREC6",104,0) ..S HLERR="Missing ZTA segment" D ACK^IVMPREC "RTN","IVMPREC6",105,0) .;Convert "" to null in ZTA segment seq. 7 "RTN","IVMPREC6",106,0) .I $P(IVMSEG,HLFS,8)=HLQ S $P(IVMSEG,HLFS,8)="" "RTN","IVMPREC6",107,0) .; "RTN","IVMPREC6",108,0) .; - compare ZTA segment fields with DHCP fields "RTN","IVMPREC6",109,0) .I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) "RTN","IVMPREC6",110,0) .; "RTN","IVMPREC6",111,0) .; - get next msg segment "RTN","IVMPREC6",112,0) .; KUM - ZAV Segment Processing (CASS field) "RTN","IVMPREC6",113,0) .D NEXT "RTN","IVMPREC6",114,0) .I $E(IVMSEG,1,3)'="ZAV" D Q "RTN","IVMPREC6",115,0) ..S HLERR="Missing ZAV segment" D ACK^IVMPREC "RTN","IVMPREC6",116,0) .S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS) "RTN","IVMPREC6",117,0) .I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) ;Process 1st ZAV "RTN","IVMPREC6",118,0) .S MULTDONE=0 F XREP=1:1 D Q:MULTDONE ;Handle possible mult ZAVs "RTN","IVMPREC6",119,0) ..D NEXT I $E(IVMSEG,1,3)'="ZAV" S MULTDONE=1 Q "RTN","IVMPREC6",120,0) ..S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS) "RTN","IVMPREC6",121,0) ..I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) "RTN","IVMPREC6",122,0) .;D NEXT "RTN","IVMPREC6",123,0) .; "RTN","IVMPREC6",124,0) .; - get next msg segment "RTN","IVMPREC6",125,0) .I $E(IVMSEG,1,3)'="ZGD" D Q "RTN","IVMPREC6",126,0) ..S HLERR="Missing ZGD segment" D ACK^IVMPREC "RTN","IVMPREC6",127,0) .; "RTN","IVMPREC6",128,0) .; - compare ZGD segment fields with DHCP fields "RTN","IVMPREC6",129,0) .; convert "" to null for ZGD segment "RTN","IVMPREC6",130,0) .S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS,",7,") ;ignore seq. 6 "RTN","IVMPREC6",131,0) .; convert seq. 6 separately "RTN","IVMPREC6",132,0) .S $P(IVMSEG,HLFS,7)=$$CLEARF^IVMPRECA($P(IVMSEG,HLFS,7),$E(HLECH)) "RTN","IVMPREC6",133,0) .D COMPARE(IVMSEG) "RTN","IVMPREC6",134,0) .;S IVMFLG=0 "RTN","IVMPREC6",135,0) .; "RTN","IVMPREC6",136,0) .;S MULTDONE=0 F XREP=1:1 D Q:MULTDONE ;Skip ZCT & ZEM -coming later "RTN","IVMPREC6",137,0) .;.D NEXT "RTN","IVMPREC6",138,0) .;.I ($E(IVMSEG,1,3)'="ZCT")&($E(IVMSEG,1,3)'="ZEM") S MULTDONE=1 Q "RTN","IVMPREC6",139,0) .;S IVMDA=IVMDA-1 "RTN","IVMPREC6",140,0) .; "RTN","IVMPREC6",141,0) .; - get next msg segment "RTN","IVMPREC6",142,0) .D NEXT "RTN","IVMPREC6",143,0) .I $E(IVMSEG,1,3)'="ZCT" D Q "RTN","IVMPREC6",144,0) ..S HLERR="Missing ZCT segment" D ACK^IVMPREC "RTN","IVMPREC6",145,0) .;KUM - Donot convert "" to null in ZCT segment "RTN","IVMPREC6",146,0) .;IVM*2.0*188 - Comment below line. Allow double quotes to stay in ZCT segment, otherwise double quotes will be replaced with null "RTN","IVMPREC6",147,0) .;S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS) "RTN","IVMPREC6",148,0) .I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) ;Process 1st ZCT "RTN","IVMPREC6",149,0) .S MULTDONE=0 F XREP=1:1 D Q:MULTDONE ;Handle possible mult ZCTs "RTN","IVMPREC6",150,0) ..D NEXT I $E(IVMSEG,1,3)'="ZCT" S MULTDONE=1 Q "RTN","IVMPREC6",151,0) ..;KUM - Donot convert "" to null in ZCT segment "RTN","IVMPREC6",152,0) ..;IVM*2.0*188 - Comment below line. Allow double quotes to stay in ZCT segment, otherwise double quotes will be replaced with null "RTN","IVMPREC6",153,0) ..;S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS) "RTN","IVMPREC6",154,0) ..I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) "RTN","IVMPREC6",155,0) .; "RTN","IVMPREC6",156,0) .S IVMDA=IVMDA-1 D NEXT "RTN","IVMPREC6",157,0) .I $E(IVMSEG,1,3)'="ZEM" D Q "RTN","IVMPREC6",158,0) ..S HLERR="Missing ZEM segment" D ACK^IVMPREC "RTN","IVMPREC6",159,0) .I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) ;Process 1st ZEM "RTN","IVMPREC6",160,0) .S MULTDONE=0 F XREP=1:1 D Q:MULTDONE ;Handle possible mult ZEMs "RTN","IVMPREC6",161,0) ..D NEXT I $E(IVMSEG,1,3)'="ZEM" S MULTDONE=1 Q "RTN","IVMPREC6",162,0) ..I 'DODSEG,'GUARSEG D COMPARE(IVMSEG) "RTN","IVMPREC6",163,0) .S IVMDA=IVMDA-1 "RTN","IVMPREC6",164,0) .; "RTN","IVMPREC6",165,0) .; - check for RF1 segment and get segment if it exists "RTN","IVMPREC6",166,0) .; This process will automatically update patient address data "RTN","IVMPREC6",167,0) .; in the Patient (#2) file if the incoming address is more "RTN","IVMPREC6",168,0) .; recent than the existing one. "RTN","IVMPREC6",169,0) .;Modified code to handle multiple RF1 segment - IVM*2*115 "RTN","IVMPREC6",170,0) .S (UPDEPC("SAD"),UPDEPC("CPH"),UPDEPC("PNO"),UPDEPC("EAD"),UPDEPC("PHH"))=0 "RTN","IVMPREC6",171,0) .S QFLG=0 I $$RF1CHK(IVMRTN,IVMDA) F I=1:1 D Q:QFLG "RTN","IVMPREC6",172,0) ..D NEXT "RTN","IVMPREC6",173,0) ..S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS,",7,") ;ignore seq. 6 "RTN","IVMPREC6",174,0) ..S $P(IVMSEG,HLFS,7)=$$CLEARF^IVMPRECA($P(IVMSEG,HLFS,7),$E(HLECH)) "RTN","IVMPREC6",175,0) ..I $P(IVMSEG,HLFS,4)="" S QFLG=1 Q ;Quit if RF1 is blank "RTN","IVMPREC6",176,0) ..D COMPARE(IVMSEG) "RTN","IVMPREC6",177,0) ..I '$$RF1CHK(IVMRTN,IVMDA) S QFLG=1 "RTN","IVMPREC6",178,0) .; KUM - IVM*2.0*164 - Set Confidential Active flag "RTN","IVMPREC6",179,0) .S IVMCSDT="",IVMCEDT="",IVMCAFG=.14105,IVMCAVL="Y" "RTN","IVMPREC6",180,0) .S IVMCSDT=$P($P($G(ADDRESS("CA")),"~",12),"&",1) "RTN","IVMPREC6",181,0) .S IVMCSDT=$$FMDATE^HLFNC(IVMCSDT) "RTN","IVMPREC6",182,0) .S IVMCEDT=$P($P($G(ADDRESS("CA")),"~",12),"&",2) "RTN","IVMPREC6",183,0) .S IVMCEDT=$$FMDATE^HLFNC(IVMCEDT) "RTN","IVMPREC6",184,0) .I IVMCSDT="" D "RTN","IVMPREC6",185,0) ..;I $G(UPDAUPG("CA"))'=1 Q "RTN","IVMPREC6",186,0) ..S IVMCAVL="N" "RTN","IVMPREC6",187,0) .D AUTOAUP^IVMPREC9(DFN,.UPDAUP,.UPDAUPG) "RTN","IVMPREC6",188,0) .S IVMFLG=0 "RTN","IVMPREC6",189,0) ; - send mail message if necessary "RTN","IVMPREC6",190,0) ; This bulletin has been disabled. IVM*2*140 "RTN","IVMPREC6",191,0) ;I IVMCNTR D MAIL^IVMUFNC() "RTN","IVMPREC6",192,0) ; Cleanup variables if no msg necessary "RTN","IVMPREC6",193,0) I 'IVMCNTR K IVMTEXT,XMSUB "RTN","IVMPREC6",194,0) ; "RTN","IVMPREC6",195,0) ENQ ; - cleanup variables "RTN","IVMPREC6",196,0) K DA,DR,DFN,IVMADDR,IVMADFLG,IVMDA,IVMDHCP,IVMFLAG,IVMFLD,IVMPHDFG,IVMPIECE,IVMSEG,IVMSTART,IVMXREF,DGENUPLD,IVMPID,PIDSTR,ADDRESS,TELECOM,UPDEPC,EPCFARY,IVMDFN,DODSEG,EPCDEL,GUARSEG,UPDAUP,IVMRACE,IVMTSTPT,IVMPMAST "RTN","IVMPREC6",197,0) Q "RTN","IVMPREC6",198,0) ; "RTN","IVMPREC6",199,0) ; "RTN","IVMPREC6",200,0) NEXT ; - get the next HL7 segment in the message from HL7 Transmission (#772) file "RTN","IVMPREC6",201,0) ; "RTN","IVMPREC6",202,0) S IVMDA=$O(^TMP($J,IVMRTN,IVMDA)),IVMSEG=$G(^(+IVMDA,0)) "RTN","IVMPREC6",203,0) Q "RTN","IVMPREC6",204,0) ; "RTN","IVMPREC6",205,0) ; "RTN","IVMPREC6",206,0) COMPARE(IVMSEG) ; - compare incoming HL7 segment/fields with DHCP fields "RTN","IVMPREC6",207,0) ; "RTN","IVMPREC6",208,0) ; Input: IVMSEG -- as the text of the incoming HL7 message "RTN","IVMPREC6",209,0) ; "RTN","IVMPREC6",210,0) ; Output: None "RTN","IVMPREC6",211,0) ; "RTN","IVMPREC6",212,0) ; - get 3 letter HL7 segment name "RTN","IVMPREC6",213,0) S IVMXREF=$P(IVMSEG,HLFS,1),IVMSTART=IVMXREF "RTN","IVMPREC6",214,0) ; "RTN","IVMPREC6",215,0) ; - strip off HL7 segment name "RTN","IVMPREC6",216,0) S IVMSEG=$P(IVMSEG,HLFS,2,99) "RTN","IVMPREC6",217,0) ; "RTN","IVMPREC6",218,0) ; - roll through "C" x-ref in IVM Demographic Upload Fields (#301.92) file "RTN","IVMPREC6",219,0) F S IVMXREF=$O(^IVM(301.92,"C",IVMXREF)) Q:IVMXREF']"" D "RTN","IVMPREC6",220,0) .S IVMDEMDA=$O(^IVM(301.92,"C",IVMXREF,"")) Q:IVMDEMDA']"" "RTN","IVMPREC6",221,0) .I $$INACTIVE(IVMDEMDA) Q "RTN","IVMPREC6",222,0) .; "RTN","IVMPREC6",223,0) .; - compare incoming HL7 segment fields with DHCP fields "RTN","IVMPREC6",224,0) .I IVMXREF["PID",(IVMSTART["PID") D PID^IVMPREC8 "RTN","IVMPREC6",225,0) .I IVMXREF["ZPD",(IVMSTART["ZPD") D ZPD^IVMPREC8 "RTN","IVMPREC6",226,0) .I IVMXREF["ZTA",(IVMSTART["ZTA") D ZTA^IVMPREC8 "RTN","IVMPREC6",227,0) .; KUM IVM*2.0*164 - ZAV Segment Processing "RTN","IVMPREC6",228,0) .I IVMXREF["ZAV",(IVMSTART["ZAV") D ZAV^IVMPREC8 "RTN","IVMPREC6",229,0) .; "RTN","IVMPREC6",230,0) .I IVMXREF["ZGD",(IVMSTART["ZGD") D ZGD^IVMPREC8 "RTN","IVMPREC6",231,0) .; IVM*2.0*192; JAM; Tag ZCT moved to IVMPREC9 "RTN","IVMPREC6",232,0) .I IVMXREF["ZCT",(IVMSTART["ZCT") D ZCT^IVMPREC9 "RTN","IVMPREC6",233,0) .I IVMXREF["ZEM",(IVMSTART["ZEM") D ZEM^IVMPREC8 "RTN","IVMPREC6",234,0) .I IVMXREF["RF1",(IVMSTART["RF1") D RF1^IVMPREC8 "RTN","IVMPREC6",235,0) Q "RTN","IVMPREC6",236,0) ; "RTN","IVMPREC6",237,0) ; "RTN","IVMPREC6",238,0) DEMBULL ; - build mail message for transmission to IVM mail group notifying "RTN","IVMPREC6",239,0) ; them that patients with updated demographic data has been received "RTN","IVMPREC6",240,0) ; from the IVM Center and may now be uploaded into DHCP. "RTN","IVMPREC6",241,0) ; "RTN","IVMPREC6",242,0) ; If record is auto uploaded, don't add veteran to bulletin "RTN","IVMPREC6",243,0) I $$CKAUTO Q "RTN","IVMPREC6",244,0) ; "RTN","IVMPREC6",245,0) S IVMPTID=$$PT^IVMUFNC4(DFN) "RTN","IVMPREC6",246,0) S XMSUB="IVM - DEMOGRAPHIC UPLOAD for "_$P($P(IVMPTID,"^"),",")_" ("_$P(IVMPTID,"^",3)_")" "RTN","IVMPREC6",247,0) S IVMTEXT(1)="Updated demographic information has been received from the" "RTN","IVMPREC6",248,0) S IVMTEXT(2)="Health Eligibilty Center. Please select the 'Demographic Upload'" "RTN","IVMPREC6",249,0) S IVMTEXT(3)="option from the IVM Upload Menu in order to take action on this" "RTN","IVMPREC6",250,0) S IVMTEXT(4)="demographic information. If you have any questions concerning the" "RTN","IVMPREC6",251,0) S IVMTEXT(5)="information received, please contact the Health Eligibility Center." "RTN","IVMPREC6",252,0) S IVMTEXT(7)="" "RTN","IVMPREC6",253,0) S IVMTEXT(8)="The Health Eligibilty Center has identified the following" "RTN","IVMPREC6",254,0) S IVMTEXT(9)="patients as having updated demographic information:" "RTN","IVMPREC6",255,0) S IVMTEXT(10)="" "RTN","IVMPREC6",256,0) S IVMCNTR=IVMCNTR+1 "RTN","IVMPREC6",257,0) S IVMTEXT(IVMCNTR+10)=$J(IVMCNTR_")",5)_" "_$P(IVMPTID,"^")_" ("_$P(IVMPTID,"^",3)_")" "RTN","IVMPREC6",258,0) Q "RTN","IVMPREC6",259,0) ; "RTN","IVMPREC6",260,0) INACTIVE(IVMDEMDA) ;Check if field is inactive in Demographic Upload "RTN","IVMPREC6",261,0) ; Input -- IVMDEMDA IVM Demographic Upload Fields IEN "RTN","IVMPREC6",262,0) ; Output -- 1=Yes and 0=No "RTN","IVMPREC6",263,0) Q +$P($G(^IVM(301.92,IVMDEMDA,0)),U,9) "RTN","IVMPREC6",264,0) ; "RTN","IVMPREC6",265,0) RF1CHK(IVMRTN,IVMDA) ;does an RF1 segment exist in this message? "RTN","IVMPREC6",266,0) N RF1 "RTN","IVMPREC6",267,0) S RF1=$O(^TMP($J,IVMRTN,IVMDA)) "RTN","IVMPREC6",268,0) I $E($G(^(+RF1,0)),1,3)'="RF1" Q 0 "RTN","IVMPREC6",269,0) Q 1 "RTN","IVMPREC6",270,0) ; "RTN","IVMPREC6",271,0) CKAUTO() ; "RTN","IVMPREC6",272,0) ; Chect if message qualifies for an auto upload. "RTN","IVMPREC6",273,0) N AUTO,IVMI,DOD "RTN","IVMPREC6",274,0) S AUTO=0,IVMI=$O(^IVM(301.92,"C","ZPD09","")) "RTN","IVMPREC6",275,0) I IVMI=IVMDEMDA D "RTN","IVMPREC6",276,0) .I +IVMFLD'>0 S AUTO=1 Q "RTN","IVMPREC6",277,0) .S DOD=$P($G(^DPT(DFN,.35)),U) "RTN","IVMPREC6",278,0) .I DOD=IVMFLD S AUTO=1 Q "RTN","IVMPREC6",279,0) ; "RTN","IVMPREC6",280,0) Q AUTO "RTN","IVMPREC6",281,0) BLDPID(PIDTMP,IVMPID) ;Build IVMPID subscripted by sequence number "RTN","IVMPREC6",282,0) N STR,X1,X2,N,TEXT,C,L "RTN","IVMPREC6",283,0) S STR="",X1=1,(N,X2)=0 "RTN","IVMPREC6",284,0) F S N=$O(PIDTMP(N)) Q:N="" S TEXT=PIDTMP(N) F L=1:1:$L(TEXT) S C=$E(TEXT,L) D "RTN","IVMPREC6",285,0) . I C="^" D Q "RTN","IVMPREC6",286,0) . . I X2 S X2=X2+1,IVMPID(X1,X2)=STR "RTN","IVMPREC6",287,0) . . E S IVMPID(X1)=STR "RTN","IVMPREC6",288,0) . . S STR="",X1=X1+1,X2=0 "RTN","IVMPREC6",289,0) . I C="|" D Q "RTN","IVMPREC6",290,0) . . S X2=X2+1,IVMPID(X1,X2)=STR,STR="" "RTN","IVMPREC6",291,0) . S STR=STR_C "RTN","IVMPREC6",292,0) I $G(C)'="",$G(C)'="^",$G(C)'="|" D "RTN","IVMPREC6",293,0) . I X2 S X2=X2+1,IVMPID(X1,X2)=STR Q "RTN","IVMPREC6",294,0) . S IVMPID(X1)=STR "RTN","IVMPREC6",295,0) Q "RTN","IVMPREC6",296,0) ADDRCHNG(DFN) ;Store Address Change Date/time, Source and site if necessary "RTN","IVMPREC6",297,0) ;Store Residence Number Change Date/Time, Source and Site (IVM*2*152) "RTN","IVMPREC6",298,0) N IVMVALUE,IVMFIELD "RTN","IVMPREC6",299,0) I '$D(^TMP($J,"CHANGE UPDATE")) Q "RTN","IVMPREC6",300,0) S IVMFIELD=0 F S IVMFIELD=$O(^TMP($J,"CHANGE UPDATE",IVMFIELD)) Q:IVMFIELD="" D "RTN","IVMPREC6",301,0) . S IVMVALUE=$G(^TMP($J,"CHANGE UPDATE",IVMFIELD)) "RTN","IVMPREC6",302,0) . S DIE="^DPT(",DA=DFN,DR=IVMFIELD_"////^S X=IVMVALUE" "RTN","IVMPREC6",303,0) . D ^DIE K DA,DIE,DR "RTN","IVMPREC6",304,0) .; - delete inaccurate Addr Change Site data if Source is not VAMC "RTN","IVMPREC6",305,0) . I IVMFIELD=.119,IVMVALUE'="VAMC" S FDA(2,+DFN_",",.12)="@" D UPDATE^DIE("E","FDA") "RTN","IVMPREC6",306,0) .; - delete inaccurate Residence Number Change Site data if Source "RTN","IVMPREC6",307,0) .; is not VAMC (IVM*2*152) "RTN","IVMPREC6",308,0) . I IVMFIELD=.1322,IVMVALUE'="VAMC" S FDA(2,+DFN_",",.1323)="@" D UPDATE^DIE("E","FDA") "RTN","IVMPREC6",309,0) K ^TMP($J,"CHANGE UPDATE") "RTN","IVMPREC6",310,0) Q "RTN","IVMPREC6",311,0) EPCFLDS(EPCFARY,EPCDEL) ; "RTN","IVMPREC6",312,0) ;EPCFARY - Contains IENs of Pager, email, Cell phone and Home phone records in 301.92 File - Passed by reference "RTN","IVMPREC6",313,0) ;EPCDEL - Contains field # of Pager, Email, Cell phone and Home phone fields in Patient(#2) file. - Passed by reference "RTN","IVMPREC6",314,0) I (DODSEG)!(GUARSEG) Q "RTN","IVMPREC6",315,0) S EPCFARY("PNO")=$O(^IVM(301.92,"B","PAGER NUMBER",0))_"^"_$O(^IVM(301.92,"B","PAGER CHANGE DT/TM",0))_"^"_$O(^IVM(301.92,"B","PAGER CHANGE SITE",0))_"^"_$O(^IVM(301.92,"B","PAGER CHANGE SOURCE",0)) "RTN","IVMPREC6",316,0) S EPCFARY("CPH")=$O(^IVM(301.92,"B","CELLULAR NUMBER",0))_"^"_$O(^IVM(301.92,"B","CELL PHONE CHANGE DT/TM",0))_"^"_$O(^IVM(301.92,"B","CELL PHONE CHANGE SITE",0))_"^"_$O(^IVM(301.92,"B","CELL PHONE CHANGE SOURCE",0)) "RTN","IVMPREC6",317,0) S EPCFARY("EAD")=$O(^IVM(301.92,"B","EMAIL ADDRESS",0))_"^"_$O(^IVM(301.92,"B","EMAIL CHANGE DT/TM",0))_"^"_$O(^IVM(301.92,"B","EMAIL CHANGE SITE",0))_"^"_$O(^IVM(301.92,"B","EMAIL CHANGE SOURCE",0)) "RTN","IVMPREC6",318,0) ; IVM*2.0*167 - Make Home phone records auto-upload to Patient File "RTN","IVMPREC6",319,0) S EPCFARY("PHH")=$O(^IVM(301.92,"B","PHONE NUMBER [RESIDENCE]",0))_"^"_$O(^IVM(301.92,"B","RESIDENCE NUMBER CHANGE DT/TM",0))_"^"_$O(^IVM(301.92,"B","RESIDENCE NUMBER CHANGE SITE",0))_"^"_$O(^IVM(301.92,"B","RESIDENCE NUMBER CHANGE SOURCE",0)) "RTN","IVMPREC6",320,0) S EPCDEL("PNO")=".135^.1312^.1313^.1314" "RTN","IVMPREC6",321,0) S EPCDEL("CPH")=".134^.139^.1311^.13111" "RTN","IVMPREC6",322,0) S EPCDEL("EAD")=".133^.136^.137^.138" "RTN","IVMPREC6",323,0) ; IVM*2.0*167 - Make Home phone records auto-upload to Patient File "RTN","IVMPREC6",324,0) ; IVM*2.0*171 - Comment out line to fix the home phone deletion issue "RTN","IVMPREC6",325,0) ;S EPCDEL("PHH")=".131^.1321^.1322^.1323" "RTN","IVMPREC6",326,0) Q "RTN","IVMPREC6",327,0) ; "RTN","IVMPREC6",328,0) AUPBLD(AUPFARY,UPDAUPG) ; Set up array containing fields for auto upload. "RTN","IVMPREC6",329,0) ;AUPFARY - Contains fields in 301.92 File-Passed by reference "RTN","IVMPREC6",330,0) ;UPDAUPG - Contains all groups initialized to '0' "RTN","IVMPREC6",331,0) N AUPSTR,AUPGRP,AUPFLST,AUPPCE,AUPSGSQ,AUPDA "RTN","IVMPREC6",332,0) F I=3:1 S AUPSTR=$P($T(AUPLST+I),";;",2,3) Q:$P(AUPSTR,";")="QUIT" D "RTN","IVMPREC6",333,0) .S AUPGRP=$P(AUPSTR,";"),AUPFLST=$P(AUPSTR,";",2) "RTN","IVMPREC6",334,0) .F AUPPCE=1:1:$L(AUPFLST,"^") D "RTN","IVMPREC6",335,0) ..S AUPSGSQ=$P(AUPFLST,"^",AUPPCE) Q:AUPSGSQ="" "RTN","IVMPREC6",336,0) ..S AUPDA=$O(^IVM(301.92,"C",AUPSGSQ,0)) Q:AUPDA="" "RTN","IVMPREC6",337,0) ..S AUPFARY(AUPDA)=AUPGRP "RTN","IVMPREC6",338,0) ..S:AUPGRP'="" UPDAUPG(AUPGRP)=0 ; Default group update flags to '0' "RTN","IVMPREC6",339,0) Q "RTN","IVMPREC6",340,0) ; "RTN","IVMPREC6",341,0) ; IVM*2.0*164 - ZAV01,ZAV02 AND ZAV04 are added for Auto Upload. "RTN","IVMPREC6",342,0) ; Residential Address (RA) group is added "RTN","IVMPREC6",343,0) ; Confidential Address (CA) group is uncommented "RTN","IVMPREC6",344,0) AUPLST ; P1;P2 "RTN","IVMPREC6",345,0) ; P1 = Group Name (treat all entries as this group if present) "RTN","IVMPREC6",346,0) ; P2 = .01 field(s) from 301.92 seperated by '^' "RTN","IVMPREC6",347,0) ;;D1;ZCT03D1^ZCT04D1^ZCT051D1^ZCT052D1^ZCT053D1^ZCT054D1^ZCT055D1^ZCT06D1^ZCT07D1^ZCT10D1 "RTN","IVMPREC6",348,0) ;;E1;ZCT03E1^ZCT04E1^ZCT051E1^ZCT052E1^ZCT053E1^ZCT054E1^ZCT055E1^ZCT06E1^ZCT07E1^ZCT10E1 "RTN","IVMPREC6",349,0) ;;E2;ZCT03E2^ZCT04E2^ZCT051E2^ZCT052E2^ZCT053E2^ZCT054E2^ZCT055E2^ZCT06E2^ZCT07E2^ZCT10E2 "RTN","IVMPREC6",350,0) ;;K1;ZCT03K1^ZCT04K1^ZCT051K1^ZCT052K1^ZCT053K1^ZCT054K1^ZCT055K1^ZCT06K1^ZCT07K1^ZCT10K1 "RTN","IVMPREC6",351,0) ;;K2;ZCT03K2^ZCT04K2^ZCT051K2^ZCT052K2^ZCT053K2^ZCT054K2^ZCT055K2^ZCT06K2^ZCT07K2^ZCT10K2 "RTN","IVMPREC6",352,0) ;;TA;ZTA02^ZTA03^ZTA04^ZTA051^ZTA052^ZTA053^ZTA054^ZTA055^ZTA056^ZTA058^ZTA059^ZTA07^ZTA08^ZTA09^ZTA054F^ZTA055F^ZAV04 "RTN","IVMPREC6",353,0) ;;CA;PID111C^PID112C^PID113C^PID114C^PID114CF^PID115C^PID115CF^PID116C^PID117C^PID118C^PID119C^PID1110C^PID1112C^PID1113C^PID13CA^RF161CA^RF171CA^ZAV02 "RTN","IVMPREC6",354,0) ;;RA;PID111R^PID112R^PID113R^PID114R^PID114RF^PID115R^PID115RF^PID116R^PID117R^PID118R^PID119R^PID1110R^PID1112R^PID1113R^PID13RA^RF161RA^RF162RA^RF171RA^ZAV01 "RTN","IVMPREC6",355,0) ;;;ZEM03^ZEM04^ZEM05^ZEM061^ZEM062^ZEM063^ZEM064^ZEM065^ZEM068^ZEM07^ZEM09 "RTN","IVMPREC6",356,0) ;;;ZEM03S^ZEM04S^ZEM05S^ZEM061S^ZEM062S^ZEM063S^ZEM064S^ZEM065S^ZEM068S^ZEM07S^ZEM09S "RTN","IVMPREC6",357,0) ;;;PID06^PID10^PID16^PID17^PID22^ZPD30^ZPD06^ZPD07 "RTN","IVMPREC6",358,0) ;;QUIT "RTN","IVMPREC6",359,0) ;; "RTN","IVMPREC6",360,0) ;;The following have been disabled until further notice "RTN","IVMPREC6",361,0) ;;;PID113N^PID114N^PID24^PID13W "RTN","IVMPREC6",362,0) ;;CA;PID111C^PID112C^PID113C^PID114C^PID114CF^PID115C^PID115CF^PID116C^PID117C^PID118C^PID119C^PID1112C1^PID1112C2^PID13CA^RF161CA^RF171CA "RTN","IVMPREC9") 0^4^B106557497 "RTN","IVMPREC9",1,0) IVMPREC9 ;ALB/KCL,BRM,CKN,TDM,KUM,JAM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES (CON'T) ;09-05-2017 10:03am "RTN","IVMPREC9",2,0) ;;2.0;INCOME VERIFICATION MATCH;**34,58,115,121,151,159,167,192**;21-OCT-94;Build 14 "RTN","IVMPREC9",3,0) ;Per VA Directive 6402, this routine should not be modified. "RTN","IVMPREC9",4,0) ; "RTN","IVMPREC9",5,0) ZCT ; - compare ZCT with DHCP ; IVM*2.0*192;JAM ; Tag ZCT moved from IVMPREC8 "RTN","IVMPREC9",6,0) N ZCTTYP,IVMADDR,IVMPIECE,IVMADFLG,IVMFLD,IVMDHCP "RTN","IVMPREC9",7,0) S IVMADFLG=0 "RTN","IVMPREC9",8,0) ; IVM*2.0*192;JAM; flag for Foreign address "RTN","IVMPREC9",9,0) N IVMFORAD "RTN","IVMPREC9",10,0) S IVMPIECE=$E(IVMXREF,4,8) "RTN","IVMPREC9",11,0) ;IVM*2.0*188-COMMENT BELOW TO ALLOW QUOTES "RTN","IVMPREC9",12,0) ;S IVMSEG=$$CLEARF^IVMPRECA(IVMSEG,HLFS) "RTN","IVMPREC9",13,0) S ZCTTYP=$E(IVMPIECE,$L(IVMPIECE)-1,$L(IVMPIECE)) "RTN","IVMPREC9",14,0) Q:$P(IVMSEG,HLFS,2)'=$S(ZCTTYP="K1":1,ZCTTYP="K2":2,ZCTTYP="E1":3,ZCTTYP="E2":4,ZCTTYP="D1":5,1:"") "RTN","IVMPREC9",15,0) I $P(IVMSEG,HLFS,$E(IVMPIECE,1,2))]"" D "RTN","IVMPREC9",16,0) .; "RTN","IVMPREC9",17,0) .; -set var IVMFLD to incoming HL7 field "RTN","IVMPREC9",18,0) .I 'IVMADFLG S IVMFLD=$P(IVMSEG,HLFS,$E(IVMPIECE,1,2)) "RTN","IVMPREC9",19,0) .;IVM*2.0*188-convert "" to @ "RTN","IVMPREC9",20,0) .I IVMFLD="""""" S IVMFLD="@" "RTN","IVMPREC9",21,0) .; "RTN","IVMPREC9",22,0) .; - if HL7 name format convert to FM "RTN","IVMPREC9",23,0) .I IVMXREF["ZCT03" S IVMFLD=$$FMNAME^HLFNC(IVMFLD) "RTN","IVMPREC9",24,0) .; "RTN","IVMPREC9",25,0) .I IVMFLD="@," S IVMFLD="@" ;IVM*2.0*188 "RTN","IVMPREC9",26,0) .; - ZCT05 as the ZCT address field is 5 pieces seperated by HLECH (~) "RTN","IVMPREC9",27,0) .I IVMXREF["ZCT05" D "RTN","IVMPREC9",28,0) ..S IVMADDR=$P(IVMSEG,HLFS,$E(IVMPIECE,1,2)),IVMPIECE=$E(IVMPIECE,3) "RTN","IVMPREC9",29,0) ..; IVM*2.0*192; jam; 6th piece added in z05 - Country - default to USA "RTN","IVMPREC9",30,0) ..; - Set flag and quit if not USA "RTN","IVMPREC9",31,0) ..I $S($P(IVMADDR,$E(HLECH),6)'="":$P(IVMADDR,$E(HLECH),6),1:"USA")'="USA" S IVMFORAD=1 Q "RTN","IVMPREC9",32,0) ..; "RTN","IVMPREC9",33,0) ..S IVMFLD=$P(IVMADDR,$E(HLECH),IVMPIECE),IVMADFLG=1 "RTN","IVMPREC9",34,0) ..;IVM*2.0*188-convert "" to @ "RTN","IVMPREC9",35,0) ..I IVMFLD="""""" S IVMFLD="@" Q "RTN","IVMPREC9",36,0) ..I IVMFLD]"",IVMPIECE=4 S IVMFLD=$O(^DIC(5,"C",IVMFLD,0)) "RTN","IVMPREC9",37,0) ..I IVMFLD]"",IVMPIECE=5 S X=IVMFLD D ZIPIN^VAFADDR S IVMFLD=$G(X) "RTN","IVMPREC9",38,0) .; "RTN","IVMPREC9",39,0) .; IVM*2.0*192;jam; Prevent storing of foreign address "RTN","IVMPREC9",40,0) .I $G(IVMFORAD) Q "RTN","IVMPREC9",41,0) .; "RTN","IVMPREC9",42,0) .I IVMADFLG D STORE Q "RTN","IVMPREC9",43,0) .; - if HL7 date convert to FM date "RTN","IVMPREC9",44,0) .I IVMXREF["ZCT10" S IVMFLD=$$FMDATE^HLFNC(IVMFLD) "RTN","IVMPREC9",45,0) .; "RTN","IVMPREC9",46,0) .; - execute code on the 1 node and get DHCP field "RTN","IVMPREC9",47,0) .S IVMDHCP="" X:$D(^IVM(301.92,+IVMDEMDA,1)) ^(1) S IVMDHCP=Y "RTN","IVMPREC9",48,0) .; "RTN","IVMPREC9",49,0) .;IVM*2.0*188-convert "" to @ "RTN","IVMPREC9",50,0) .I IVMFLD="""""" S IVMFLD="@" "RTN","IVMPREC9",51,0) .; "RTN","IVMPREC9",52,0) .; if field from IVM does not equal DHCP-store for upload "RTN","IVMPREC9",53,0) .I IVMFLD]"",(IVMFLD'=IVMDHCP) D STORE "RTN","IVMPREC9",54,0) .; "RTN","IVMPREC9",55,0) .I IVMXREF["ZCT10" D "RTN","IVMPREC9",56,0) ..I IVMFLD]"",(IVMFLD>IVMDHCP) S UPDAUPG(ZCTTYP)=1 "RTN","IVMPREC9",57,0) Q "RTN","IVMPREC9",58,0) ; "RTN","IVMPREC9",59,0) STORE ; - store HL7 fields that have a different value than DHCP fields in "RTN","IVMPREC9",60,0) ; the IVM Patient (#301.5) file (#301.511) multiple for uploading "RTN","IVMPREC9",61,0) ; "RTN","IVMPREC9",62,0) S:$D(AUPFARY(IVMDEMDA)) UPDAUP(IVMDEMDA)="" "RTN","IVMPREC9",63,0) G:IVMFLG STORE2 "RTN","IVMPREC9",64,0) S X=$$IEN^IVMUFNC4("PID") "RTN","IVMPREC9",65,0) ; "RTN","IVMPREC9",66,0) K DIC("DR") "RTN","IVMPREC9",67,0) S DA(1)=IVM3015 "RTN","IVMPREC9",68,0) I $G(^IVM(301.5,DA(1),"IN",0))']"" S ^(0)="^301.501PA^^" "RTN","IVMPREC9",69,0) S DIC="^IVM(301.5,"_DA(1)_",""IN"",",DIC(0)="L",DLAYGO=301.501 "RTN","IVMPREC9",70,0) K DD,DO D FILE^DICN "RTN","IVMPREC9",71,0) K DIC,DLAYGO,X,Y "RTN","IVMPREC9",72,0) ; "RTN","IVMPREC9",73,0) ; - build mail message if SUPRESS DEMOGRAPHIC NOTIFICATION field is "RTN","IVMPREC9",74,0) ; not set in the IVM Site Parameter (#301.9) file "RTN","IVMPREC9",75,0) ; "RTN","IVMPREC9",76,0) I '$P($G(^IVM(301.9,1,0)),"^",5),'IVMADFLG D DEMBULL^IVMPREC6 "RTN","IVMPREC9",77,0) ; "RTN","IVMPREC9",78,0) ; - set flag in order to not repeat STORE tag for one msg "RTN","IVMPREC9",79,0) S IVMFLG=1 "RTN","IVMPREC9",80,0) ; "RTN","IVMPREC9",81,0) S DA(2)=DA(1) "RTN","IVMPREC9",82,0) S DA(1)=$P(^IVM(301.5,DA(1),"IN",0),"^",3) "RTN","IVMPREC9",83,0) ; "RTN","IVMPREC9",84,0) STORE2 ; "RTN","IVMPREC9",85,0) ; - X as the record in the IVM Demo Upload Fields (#301.92) file "RTN","IVMPREC9",86,0) S X=+IVMDEMDA "RTN","IVMPREC9",87,0) I $G(^IVM(301.5,DA(2),"IN",DA(1),"DEM",0))']"" S ^(0)="^301.511PA^^" "RTN","IVMPREC9",88,0) S DIC="^IVM(301.5,"_DA(2)_",""IN"",DA(1),""DEM"",",DIC(0)="L" "RTN","IVMPREC9",89,0) S DIC("DR")=".02////^S X=IVMFLD",DLAYGO=301.511 "RTN","IVMPREC9",90,0) K DD,DO D FILE^DICN "RTN","IVMPREC9",91,0) K DIC,DLAYGO,X,Y "RTN","IVMPREC9",92,0) ; "RTN","IVMPREC9",93,0) Q "RTN","IVMPREC9",94,0) ; "RTN","IVMPREC9",95,0) ; "RTN","IVMPREC9",96,0) LOOK ; Find the current DHCP field value. "RTN","IVMPREC9",97,0) ; Input: DR -- Field number of the field in file #2 "RTN","IVMPREC9",98,0) ; DFN -- Pointer to the patient in file #2 "RTN","IVMPREC9",99,0) ; Output: Y -- Internal value of field "RTN","IVMPREC9",100,0) ; "RTN","IVMPREC9",101,0) N IVMOUTTY,I "RTN","IVMPREC9",102,0) ;S DIC="^DPT(",DA=DFN,DIQ="IVM",DIQ(0)="I" D EN^DIQ1 "RTN","IVMPREC9",103,0) S DIQ(0)=$S($G(DIQ(0))="":"I",$G(DIQ(0))="E":"E",1:"I") "RTN","IVMPREC9",104,0) S IVMOUTTY=DIQ(0) "RTN","IVMPREC9",105,0) S DIC="^DPT(",DA=DFN,DIQ="IVM" D EN^DIQ1 "RTN","IVMPREC9",106,0) ;S Y=$G(IVM(2,DFN,DR,"I")) "RTN","IVMPREC9",107,0) S Y=$G(IVM(2,DFN,DR,IVMOUTTY)) "RTN","IVMPREC9",108,0) K DIC,DIQ,DR,IVM "RTN","IVMPREC9",109,0) Q "RTN","IVMPREC9",110,0) AUTOEPC(DFN,UPDEPC) ; "RTN","IVMPREC9",111,0) ; this functionality is copied from IVMLDEM6 and modified to allow "RTN","IVMPREC9",112,0) ; an automated upload of patient communications information "RTN","IVMPREC9",113,0) ; Input: DFN - as patient IEN "RTN","IVMPREC9",114,0) ; UPDEPC - array contains flag for update/noupdate for all "RTN","IVMPREC9",115,0) ; communication types. "RTN","IVMPREC9",116,0) ; Output: IVMFLAG - 1 if communications fields updated "RTN","IVMPREC9",117,0) ; 0 if communications fields not updated "RTN","IVMPREC9",118,0) ; "RTN","IVMPREC9",119,0) N IVMFLAG,IVMI,IVMJ,IVMNODE,IVMPTR,Y,UPDT,IVMCVAL,IVMCFLD,SITEFLD,DFLG,CTYP,UPDT "RTN","IVMPREC9",120,0) S IVMFLAG=0 ;initialize flags "RTN","IVMPREC9",121,0) ; - check for required parameters "RTN","IVMPREC9",122,0) Q:'$G(DFN) IVMFLAG "RTN","IVMPREC9",123,0) S IVMDA2=$G(IVM3015) "RTN","IVMPREC9",124,0) Q:'$G(IVMDA2) IVMFLAG "RTN","IVMPREC9",125,0) S IVMDA1=$O(^HL(771.3,"B","PID","")) "RTN","IVMPREC9",126,0) S IVMDA1=$O(^IVM(301.5,IVMDA2,"IN","B",IVMDA1,""),-1) "RTN","IVMPREC9",127,0) Q:'IVMDA1 IVMFLAG "RTN","IVMPREC9",128,0) ; "RTN","IVMPREC9",129,0) S IVMI=0 F S IVMI=$O(^IVM(301.92,"AD",IVMI)) Q:IVMI']"" D "RTN","IVMPREC9",130,0) .S IVMJ=0 F S IVMJ=$O(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM","B",IVMI,IVMJ)) Q:IVMJ']"" D "RTN","IVMPREC9",131,0) ..S (UPDT,DFLG)=0 "RTN","IVMPREC9",132,0) ..; - check for data node in (#301.511) sub-file "RTN","IVMPREC9",133,0) ..S IVMNODE=$G(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM",IVMJ,0)) "RTN","IVMPREC9",134,0) ..I ('+IVMNODE)!($P(IVMNODE,"^",2)']"") Q "RTN","IVMPREC9",135,0) ..;Check if fields needs to be updated for particular comm. Type. "RTN","IVMPREC9",136,0) ..S CTYP=0 F S CTYP=$O(UPDEPC(CTYP)) Q:CTYP=""!UPDT D "RTN","IVMPREC9",137,0) ...I ("^"_$G(UPDEPC(CTYP))_"^")[("^"_+IVMNODE_"^") S UPDT=1 "RTN","IVMPREC9",138,0) ..S IVMCFLD=$P($G(^IVM(301.92,+IVMNODE,0)),"^",5),IVMCVAL=$P(IVMNODE,"^",2) "RTN","IVMPREC9",139,0) ..; - load communications fields rec'd from IVM into DHCP (#2) file "RTN","IVMPREC9",140,0) ..I UPDT D UPLOAD^IVMLDEM6(+DFN,IVMCFLD,IVMCVAL) S IVMFLAG=1 "RTN","IVMPREC9",141,0) ..; delete inaccurate Addr Change Site data if Source is not VAMC "RTN","IVMPREC9",142,0) ..; IVM*2.0*167 - Make Home phone records auto-upload to Patient File "RTN","IVMPREC9",143,0) ..;I UPDT,((IVMCFLD=.1311)!(IVMCFLD=.1313)!(IVMCFLD=.137)) D "RTN","IVMPREC9",144,0) ..I UPDT,((IVMCFLD=.1311)!(IVMCFLD=.1313)!(IVMCFLD=.137)!(IVMCFLD=.1322)) D "RTN","IVMPREC9",145,0) ...I IVMCVAL="VAMC" Q "RTN","IVMPREC9",146,0) ...; IVM*2.0*167 - Make Home phone records auto-upload to Patient File "RTN","IVMPREC9",147,0) ...; S SITEFLD=$S(IVMCFLD=.1311:.13111,IVMCFLD=.1313:.1314,IVMCFLD=.137:.138) "RTN","IVMPREC9",148,0) ...S SITEFLD=$S(IVMCFLD=.1311:.13111,IVMCFLD=.1313:.1314,IVMCFLD=.137:.138,IVMCFLD=.1322:.1323) "RTN","IVMPREC9",149,0) ...S FDA(2,+DFN_",",SITEFLD)="@" D UPDATE^DIE("E","FDA") "RTN","IVMPREC9",150,0) ..; - remove entry only for Email, Cell, Home phone and Pager from (#301.511) sub-file "RTN","IVMPREC9",151,0) ..S CTYP=0 F S CTYP=$O(EPCFARY(CTYP)) Q:CTYP=""!DFLG D "RTN","IVMPREC9",152,0) ...I ("^"_$G(EPCFARY(CTYP))_"^")[("^"_+IVMNODE_"^") S DFLG=1 "RTN","IVMPREC9",153,0) ..I DFLG D DELENT^IVMLDEMU(IVMDA2,IVMDA1,IVMJ) "RTN","IVMPREC9",154,0) ;Delete all communication data (Email, Cell phone, Pager, Home phone) if they are not received in Z05. "RTN","IVMPREC9",155,0) I $D(EPCDEL) D "RTN","IVMPREC9",156,0) . N CTYPE,DIE,DR,DA,CNTR,VAL "RTN","IVMPREC9",157,0) . S DR="",CNTR=0,VAL="@" "RTN","IVMPREC9",158,0) . S CTYPE="" F S CTYPE=$O(EPCDEL(CTYPE)) Q:CTYPE="" D "RTN","IVMPREC9",159,0) . . F I=1:1:$L(EPCDEL(CTYPE),"^") S CNTR=CNTR+1,$P(DR,";",CNTR)=$P(EPCDEL(CTYPE),"^",I)_"////^S X=VAL" "RTN","IVMPREC9",160,0) . S DIE="^DPT(",DA=DFN "RTN","IVMPREC9",161,0) . D ^DIE K DIE,DA,DR "RTN","IVMPREC9",162,0) Q IVMFLAG "RTN","IVMPREC9",163,0) ; "RTN","IVMPREC9",164,0) AUTORINC(DFN) ; "RTN","IVMPREC9",165,0) ; application to automatically upload Rated Incompetent data "RTN","IVMPREC9",166,0) ; Input: DFN - Patient IEN "RTN","IVMPREC9",167,0) N IVMI,IVMJ,IVMDA1,IVMDA2,IVMNODE,IVMFLAG,IVMRIVAL,IVMRIFLD "RTN","IVMPREC9",168,0) S IVMFLAG=0 "RTN","IVMPREC9",169,0) S IVMDA2=$G(IVM3015) "RTN","IVMPREC9",170,0) I 'IVMDA2 Q IVMFLAG "RTN","IVMPREC9",171,0) S IVMDA1=$O(^HL(771.3,"B","PID","")) "RTN","IVMPREC9",172,0) S IVMDA1=$O(^IVM(301.5,IVMDA2,"IN","B",IVMDA1,""),-1) "RTN","IVMPREC9",173,0) S IVMI=$O(^IVM(301.92,"C","ZPD08","")) I IVMI="" Q IVMFLAG "RTN","IVMPREC9",174,0) S IVMJ=$O(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM","B",IVMI,"")) "RTN","IVMPREC9",175,0) I IVMJ']"" Q IVMFLAG "RTN","IVMPREC9",176,0) ; - check for data node in (#301.511) sub-file "RTN","IVMPREC9",177,0) S IVMNODE=$G(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM",IVMJ,0)) "RTN","IVMPREC9",178,0) I '(+IVMNODE)!($P(IVMNODE,"^",2)']"") Q IVMFLAG "RTN","IVMPREC9",179,0) S IVMRIFLD=$P($G(^IVM(301.92,+IVMNODE,0)),"^",5),IVMRIVAL=$P(IVMNODE,"^",2) "RTN","IVMPREC9",180,0) I IVMRIVAL="""""" S IVMRIVAL="@" "RTN","IVMPREC9",181,0) D UPLOAD^IVMLDEM6(DFN,IVMRIFLD,IVMRIVAL) S IVMFLAG=1 "RTN","IVMPREC9",182,0) ; - remove entry from (#301.511) sub-file "RTN","IVMPREC9",183,0) D DELENT^IVMLDEMU(IVMDA2,IVMDA1,IVMJ) "RTN","IVMPREC9",184,0) Q IVMFLAG "RTN","IVMPREC9",185,0) PHONE ; - ask user to delete phone # [Residence] from Patient (#2) file "RTN","IVMPREC9",186,0) ; This tag is moved here from IVMLDEM6 due to routine size limit "RTN","IVMPREC9",187,0) D FULL^VALM1 "RTN","IVMPREC9",188,0) W ! S DIR("A")="Is it okay to delete the patient's Phone Number [Residence]" "RTN","IVMPREC9",189,0) W ! S DIR("A",1)="The patient's address has been updated and the phonenumber" "RTN","IVMPREC9",190,0) S DIR("A",2)="remains on file." "RTN","IVMPREC9",191,0) S DIR("A",3)=" " "RTN","IVMPREC9",192,0) S DIR("A",4)="Patient Name: "_$P($$PT^IVMUFNC4(+DFN),"^")_" ("_$P($$PT^IVMUFNC4(+DFN),"^",3)_")" "RTN","IVMPREC9",193,0) S DIR("A",5)="Phone Number [Residence]: "_$P($G(^DPT(+DFN,.13)),"^") "RTN","IVMPREC9",194,0) S DIR("A",6)=" " "RTN","IVMPREC9",195,0) S DIR("?",1)="Enter 'YES' to delete the patient's Phone Number [Residence] that is" "RTN","IVMPREC9",196,0) S DIR("?",2)="currently on file. Enter 'NO' to quit without deleting the patient's" "RTN","IVMPREC9",197,0) S DIR("?")="Phone Number [Residence]." "RTN","IVMPREC9",198,0) S DIR(0)="Y",DIR("B")="NO" "RTN","IVMPREC9",199,0) D ^DIR K DIR "RTN","IVMPREC9",200,0) S:Y $P(^DPT(DFN,.13),"^")="" W !!,"Patient's Phone Number [Residence] has ",$S(Y:"",1:"not "),"been deleted." "RTN","IVMPREC9",201,0) Q "RTN","IVMPREC9",202,0) ; "RTN","IVMPREC9",203,0) AUTOAUP(DFN,UPDAUP,UPDAUPG) ; "RTN","IVMPREC9",204,0) ; automated upload of misc information "RTN","IVMPREC9",205,0) ; Input: DFN - patient IEN "RTN","IVMPREC9",206,0) ; UPDAUP - array contains fields for auto-upload "RTN","IVMPREC9",207,0) ; UPDAUPG - array contains field group flag for auto-upload "RTN","IVMPREC9",208,0) ; "RTN","IVMPREC9",209,0) N IVMDA2,IVMDA1,IVMI,MULTFLG,IVMXREF,UFLG,IVMJ,IVMNODE,IVMCFLD,IVMCVAL,Y,IVM30192,MULFIL "RTN","IVMPREC9",210,0) Q:'$G(DFN) "RTN","IVMPREC9",211,0) S IVMDA2=$G(IVM3015) Q:'IVMDA2 "RTN","IVMPREC9",212,0) S IVMDA1=$O(^HL(771.3,"B","PID","")) "RTN","IVMPREC9",213,0) S IVMDA1=$O(^IVM(301.5,IVMDA2,"IN","B",IVMDA1,""),-1) Q:'IVMDA1 "RTN","IVMPREC9",214,0) ; "RTN","IVMPREC9",215,0) S IVMI="" F S IVMI=$O(UPDAUP(IVMI)) Q:IVMI="" D "RTN","IVMPREC9",216,0) .; "RTN","IVMPREC9",217,0) .;If DHCP field is a multiple set multiple flag for special filing "RTN","IVMPREC9",218,0) .S MULTFLG=0 "RTN","IVMPREC9",219,0) .S IVM30192=$G(^IVM(301.92,IVMI,0)),IVMXREF=$P(IVM30192,"^",2) "RTN","IVMPREC9",220,0) .I IVMXREF="PID10" S MULTFLG=1 ;Race "RTN","IVMPREC9",221,0) .I IVMXREF="PID117C" S MULTFLG=1 ;Conf Addr Category "RTN","IVMPREC9",222,0) .I IVMXREF="PID22" S MULTFLG=1 ;Ethnicity "RTN","IVMPREC9",223,0) .; "RTN","IVMPREC9",224,0) .;Don't file if part of a group & group update flag not set "RTN","IVMPREC9",225,0) .S UFLG=1 I AUPFARY(IVMI)'="",'UPDAUPG(AUPFARY(IVMI)) S UFLG=0 "RTN","IVMPREC9",226,0) .; "RTN","IVMPREC9",227,0) .S IVMJ=0 F S IVMJ=$O(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM","B",IVMI,IVMJ)) Q:IVMJ']"" D "RTN","IVMPREC9",228,0) ..S IVMNODE=$G(^IVM(301.5,IVMDA2,"IN",IVMDA1,"DEM",IVMJ,0)) "RTN","IVMPREC9",229,0) ..I $G(AUPFARY(+$P(IVMNODE,"^")))'="",(($P(IVMNODE,"^",2)="")!($P(IVMNODE,"^",2)="""""")) S $P(IVMNODE,"^",2)="@" "RTN","IVMPREC9",230,0) ..I +$G(ZEMADRUP(IVMXREF)),$P(IVMNODE,"^",2)="" S $P(IVMNODE,"^",2)="@" "RTN","IVMPREC9",231,0) ..I ('+IVMNODE)!($P(IVMNODE,"^",2)']"") Q "RTN","IVMPREC9",232,0) ..S IVMCFLD=$P($G(^IVM(301.92,+IVMNODE,0)),"^",5) "RTN","IVMPREC9",233,0) ..S IVMCVAL=$P(IVMNODE,"^",2) "RTN","IVMPREC9",234,0) ..; "RTN","IVMPREC9",235,0) ..I UFLG D "RTN","IVMPREC9",236,0) ...I MULTFLG D AUTOAUPM(+DFN,IVM30192,IVMCVAL) ;file mult fld "RTN","IVMPREC9",237,0) ...I 'MULTFLG D UPLOAD^IVMLDEM6(+DFN,IVMCFLD,IVMCVAL) ;file non-mult "RTN","IVMPREC9",238,0) ..D DELENT^IVMLDEMU(IVMDA2,IVMDA1,IVMJ) ;remove from 301.511 "RTN","IVMPREC9",239,0) ..; - if no display or uploadable fields left, delete the PID segment "RTN","IVMPREC9",240,0) ..I '$$DEMO^IVMLDEM5(IVMDA2,IVMDA1,0),'$$DEMO^IVMLDEM5(IVMDA2,IVMDA1,1) D "RTN","IVMPREC9",241,0) ...D DELETE^IVMLDEM5(IVMDA2,IVMDA1," ") ; Dummy up name parameter "RTN","IVMPREC9",242,0) Q "RTN","IVMPREC9",243,0) ; "RTN","IVMPREC9",244,0) AUTOAUPM(DFN,IVM30192,IVMVALUE) ; "RTN","IVMPREC9",245,0) ; Input: DFN - as patient IEN "RTN","IVMPREC9",246,0) ; IVM30192 - as '0' node of the 301.92 entry "RTN","IVMPREC9",247,0) ; IVMVALUE - as the value of the field "RTN","IVMPREC9",248,0) ; "RTN","IVMPREC9",249,0) ; Output: None "RTN","IVMPREC9",250,0) ; "RTN","IVMPREC9",251,0) N MFIL,MFLD,DDINFO,DDMNOD,DDMFLD,DA,DIK,DGENDA,MULFIL,DATA,SUB "RTN","IVMPREC9",252,0) S MFIL=$P(IVM30192,"^",4),MFLD=$P(IVM30192,"^",5) "RTN","IVMPREC9",253,0) S DDINFO=$G(^DD(MFIL,MFLD,0)) "RTN","IVMPREC9",254,0) S DDMNOD=$P($P(DDINFO,"^",4),";"),DDMFLD=+$P(DDINFO,"^",2) "RTN","IVMPREC9",255,0) ; "RTN","IVMPREC9",256,0) ; - delete values currently in the multiple field "RTN","IVMPREC9",257,0) S DA(1)=DFN,DIK="^DPT("_DFN_","""_DDMNOD_"""," "RTN","IVMPREC9",258,0) S DA=0 F S DA=$O(^DPT(DFN,DDMNOD,DA)) Q:'DA D ^DIK "RTN","IVMPREC9",259,0) ; "RTN","IVMPREC9",260,0) ; - add new values to multiple field "RTN","IVMPREC9",261,0) S DGENDA(1)=DFN "RTN","IVMPREC9",262,0) ; "RTN","IVMPREC9",263,0) I DDMFLD=2.02 D "RTN","IVMPREC9",264,0) .S DATA(.02)=$$FIND1^DIC(10.3,,,"SELF IDENTIFICATION") "RTN","IVMPREC9",265,0) .S SUB="" F S SUB=$O(IVMRACE(2,SUB)) Q:SUB="" D "RTN","IVMPREC9",266,0) ..S DATA(.01)=SUB "RTN","IVMPREC9",267,0) ..; Changed FileMan call for processing of DINUM recs IVM*2.0*159 "RTN","IVMPREC9",268,0) ..;I $$ADD^DGENDBS(DDMFLD,.DGENDA,.DATA) "RTN","IVMPREC9",269,0) ..S (X,DINUM)=DATA(.01),DIC="^DPT(DFN,.02,",DA(1)=DFN,DIC(0)="L" "RTN","IVMPREC9",270,0) ..K DO D FILE^DICN K DIC,X,DINUM,DA "RTN","IVMPREC9",271,0) ; "RTN","IVMPREC9",272,0) I DDMFLD=2.06 D "RTN","IVMPREC9",273,0) .S DATA(.01)=IVMVALUE "RTN","IVMPREC9",274,0) .S DATA(.02)=$$FIND1^DIC(10.3,,,"SELF IDENTIFICATION") "RTN","IVMPREC9",275,0) .;Changed Fileman call for processing of Dinum recs IVM*2.0*159-BG "RTN","IVMPREC9",276,0) .;I $$ADD^DGENDBS(DDMFLD,.DGENDA,.DATA) "RTN","IVMPREC9",277,0) .S (X,DINUM)=DATA(.01),DIC="^DPT(DFN,.06,",DA(1)=DFN,DIC(0)="L" "RTN","IVMPREC9",278,0) .K DO D FILE^DICN K DIC,X,DINUM,DA "RTN","IVMPREC9",279,0) ; "RTN","IVMPREC9",280,0) I DDMFLD=2.141 D "RTN","IVMPREC9",281,0) .S DATA(1)="Y" "RTN","IVMPREC9",282,0) .S SUB="" F S SUB=$O(CONFADCT(SUB)) Q:SUB="" D "RTN","IVMPREC9",283,0) ..S DATA(.01)=SUB "RTN","IVMPREC9",284,0) ..I $$ADD^DGENDBS(DDMFLD,.DGENDA,.DATA) "RTN","IVMPREC9",285,0) Q "VER") 8.0^22.2 **END** **END**