EMERGENCY Released DG*5.3*987 SEQ #860 Extracted from mail message **KIDS**:DG*5.3*987^ **INSTALL NAME** DG*5.3*987 "BLD",10925,0) DG*5.3*987^REGISTRATION^0^3191004^y "BLD",10925,1,0) ^^2^2^3190829^^^^ "BLD",10925,1,1,0) Please see the DG*5.3*987 patch description for detailed information "BLD",10925,1,2,0) regarding this patch. "BLD",10925,4,0) ^9.64PA^25.11^1 "BLD",10925,4,25.11,0) 25.11 "BLD",10925,4,25.11,222) y^n^f^^n^^y^o^n "BLD",10925,4,"B",25.11,25.11) "BLD",10925,6.3) 22 "BLD",10925,"ABPKG") n "BLD",10925,"INI") PRE^DG53987P "BLD",10925,"INID") ^n^y "BLD",10925,"INIT") "BLD",10925,"KRN",0) ^9.67PA^779.2^20 "BLD",10925,"KRN",.4,0) .4 "BLD",10925,"KRN",.4,"NM",0) ^9.68A^^ "BLD",10925,"KRN",.401,0) .401 "BLD",10925,"KRN",.402,0) .402 "BLD",10925,"KRN",.402,"NM",0) ^9.68A^^ "BLD",10925,"KRN",.403,0) .403 "BLD",10925,"KRN",.5,0) .5 "BLD",10925,"KRN",.84,0) .84 "BLD",10925,"KRN",3.6,0) 3.6 "BLD",10925,"KRN",3.8,0) 3.8 "BLD",10925,"KRN",9.2,0) 9.2 "BLD",10925,"KRN",9.8,0) 9.8 "BLD",10925,"KRN",9.8,"NM",0) ^9.68A^10^7 "BLD",10925,"KRN",9.8,"NM",3,0) DGRPD^^0^B110727160 "BLD",10925,"KRN",9.8,"NM",4,0) DGRP11^^0^B13288054 "BLD",10925,"KRN",9.8,"NM",5,0) DGHBPUTL^^0^B38465896 "BLD",10925,"KRN",9.8,"NM",7,0) DGR111^^0^B9243867 "BLD",10925,"KRN",9.8,"NM",8,0) DGR113^^0^B7068957 "BLD",10925,"KRN",9.8,"NM",9,0) DGR1131^^0^B5332919 "BLD",10925,"KRN",9.8,"NM",10,0) DGR114^^0^B6048898 "BLD",10925,"KRN",9.8,"NM","B","DGHBPUTL",5) "BLD",10925,"KRN",9.8,"NM","B","DGR111",7) "BLD",10925,"KRN",9.8,"NM","B","DGR113",8) "BLD",10925,"KRN",9.8,"NM","B","DGR1131",9) "BLD",10925,"KRN",9.8,"NM","B","DGR114",10) "BLD",10925,"KRN",9.8,"NM","B","DGRP11",4) "BLD",10925,"KRN",9.8,"NM","B","DGRPD",3) "BLD",10925,"KRN",19,0) 19 "BLD",10925,"KRN",19,"NM",0) ^9.68A^^ "BLD",10925,"KRN",19.1,0) 19.1 "BLD",10925,"KRN",101,0) 101 "BLD",10925,"KRN",101,"NM",0) ^9.68A^1^1 "BLD",10925,"KRN",101,"NM",1,0) DGEN HBP DETAIL^^0 "BLD",10925,"KRN",101,"NM","B","DGEN HBP DETAIL",1) "BLD",10925,"KRN",409.61,0) 409.61 "BLD",10925,"KRN",409.61,"NM",0) ^9.68A^7^4 "BLD",10925,"KRN",409.61,"NM",1,0) DGEN HBP PATIENT^^0 "BLD",10925,"KRN",409.61,"NM",4,0) DGEN HBP VIEW^^0 "BLD",10925,"KRN",409.61,"NM",5,0) DGEN HBP DETAIL^^0 "BLD",10925,"KRN",409.61,"NM",7,0) DGEN HBP VIEWEXP^^0 "BLD",10925,"KRN",409.61,"NM","B","DGEN HBP DETAIL",5) "BLD",10925,"KRN",409.61,"NM","B","DGEN HBP PATIENT",1) "BLD",10925,"KRN",409.61,"NM","B","DGEN HBP VIEW",4) "BLD",10925,"KRN",409.61,"NM","B","DGEN HBP VIEWEXP",7) "BLD",10925,"KRN",771,0) 771 "BLD",10925,"KRN",771,"NM",0) ^9.68A^^ "BLD",10925,"KRN",779.2,0) 779.2 "BLD",10925,"KRN",870,0) 870 "BLD",10925,"KRN",8989.51,0) 8989.51 "BLD",10925,"KRN",8989.52,0) 8989.52 "BLD",10925,"KRN",8994,0) 8994 "BLD",10925,"KRN",8994,"NM",0) ^9.68A^^ "BLD",10925,"KRN","B",.4,.4) "BLD",10925,"KRN","B",.401,.401) "BLD",10925,"KRN","B",.402,.402) "BLD",10925,"KRN","B",.403,.403) "BLD",10925,"KRN","B",.5,.5) "BLD",10925,"KRN","B",.84,.84) "BLD",10925,"KRN","B",3.6,3.6) "BLD",10925,"KRN","B",3.8,3.8) "BLD",10925,"KRN","B",9.2,9.2) "BLD",10925,"KRN","B",9.8,9.8) "BLD",10925,"KRN","B",19,19) "BLD",10925,"KRN","B",19.1,19.1) "BLD",10925,"KRN","B",101,101) "BLD",10925,"KRN","B",409.61,409.61) "BLD",10925,"KRN","B",771,771) "BLD",10925,"KRN","B",779.2,779.2) "BLD",10925,"KRN","B",870,870) "BLD",10925,"KRN","B",8989.51,8989.51) "BLD",10925,"KRN","B",8989.52,8989.52) "BLD",10925,"KRN","B",8994,8994) "BLD",10925,"QDEF") ^^^^NO^^^^NO^^YES "BLD",10925,"QUES",0) ^9.62^^ "BLD",10925,"REQB",0) ^9.611^3^2 "BLD",10925,"REQB",2,0) DG*5.3*941^1 "BLD",10925,"REQB",3,0) DG*5.3*871^1 "BLD",10925,"REQB","B","DG*5.3*871",3) "BLD",10925,"REQB","B","DG*5.3*941",2) "DATA",25.11,2,0) VETERAN BENEFICIARY PLAN - NEWBORN^102 "DATA",25.11,2,2,0) ^^11^11^3130308^ "DATA",25.11,2,2,1,0) Newborn Plan provides health care services to a newborn child of a woman "DATA",25.11,2,2,2,0) veteran who is receiving maternity care furnished by the Department for "DATA",25.11,2,2,3,0) not more than seven days after the birth of the child if the veteran "DATA",25.11,2,2,4,0) delivered the child in-(1) a facility of the Department; or (2) another "DATA",25.11,2,2,5,0) facility pursuant to a Department contract for services relating to such "DATA",25.11,2,2,6,0) delivery. "DATA",25.11,2,2,7,0) COVERED HEALTH CARE SERVICES are all post-delivery care services, "DATA",25.11,2,2,8,0) including routine care services, that a newborn child requires.(38 USC § "DATA",25.11,2,2,9,0) 1786 - Care for newborn children of women veterans receiving maternity "DATA",25.11,2,2,10,0) care ) (Added Public Law 111-163, title II, 206(a), May 5, 2010, 124 "DATA",25.11,2,2,11,0) Stat.1145) "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) VETERAN BENEFICIARY PLAN - CHAMPVA^108 "DATA",25.11,8,2,0) ^^12^12^3130307^ "DATA",25.11,8,2,1,0) CHAMPVA plan provides health care to dependents who may qualify for VA's "DATA",25.11,8,2,2,0) Civilian Health and Medical Program of the Department of Veteran Affairs "DATA",25.11,8,2,3,0) (CHAMPVA). They must not have eligibility under TRICARE and must be "DATA",25.11,8,2,4,0) dependents of a: "DATA",25.11,8,2,5,0) - Veteran who is rated Permanently and Totally disabled due to a "DATA",25.11,8,2,6,0) Service-connected condition. "DATA",25.11,8,2,7,0) - Veteran who died from VA rated Service-connected condition, or who, at "DATA",25.11,8,2,8,0) the time of death, was rated Permanently and Totally disabled. "DATA",25.11,8,2,9,0) - Veteran who died on active duty and in the line of duty (not due to "DATA",25.11,8,2,10,0) misconduct). "DATA",25.11,8,2,11,0) For more information, call 1-800-733-8387 or go to "DATA",25.11,8,2,12,0) http://www4.domain.ext/hac/forbeneficiaries/champva/champva.asp. "DATA",25.11,9,0) VETERAN BENEFICIARY PLAN - SPINA BIFIDA (SB)^109 "DATA",25.11,9,2,0) ^^8^8^3130308^ "DATA",25.11,9,2,1,0) Spina Bifida (SB) Plan provides monetary allowances, vocational training "DATA",25.11,9,2,2,0) and rehabilitation, and VA-financed health care benefits to certain "DATA",25.11,9,2,3,0) Korean and Vietnam Veterans' birth children who have been diagnosed with "DATA",25.11,9,2,4,0) spina bifida. For the purpose of the program, spina bifida is defined as "DATA",25.11,9,2,5,0) all forms or manifestations of spina bifida (except spina bifida "DATA",25.11,9,2,6,0) occulta). For more information, call 1-888-820-1756 or go to "DATA",25.11,9,2,7,0) http://www4.domain.ext/hac/forbeneficiaries/spina/spina.asp. (38 USC "DATA",25.11,9,2,8,0) 1802-1806, 1821) "DATA",25.11,10,0) VETERAN BENEFICIARY PLAN - CHILDREN OF WOMEN VIETNAM VETERANS (CWVV)^110 "DATA",25.11,10,2,0) ^^4^4^3130307^ "DATA",25.11,10,2,1,0) Children of Women Vietnam Veterans (CWVV) Plan provides "NEEDED CARE" "DATA",25.11,10,2,2,0) to an eligible child such health care as the Secretary determines is "DATA",25.11,10,2,3,0) needed by the child for that child's covered birth defects or any "DATA",25.11,10,2,4,0) disability that is associated with those birth defects. (38 USC 1811-1816) "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 PLAN - FOREIGN MEDICAL PROGRAM^122 "DATA",25.11,21,2,0) ^^12^12^3130307^ "DATA",25.11,21,2,1,0) Foreign Medical Program Plan provides pay for medical services for "DATA",25.11,21,2,2,0) treating your service-connected disabilities, or any disability that is "DATA",25.11,21,2,3,0) associated with and aggravates a service-connected disability if you live "DATA",25.11,21,2,4,0) or travel outside the United States. This program will also reimburse "DATA",25.11,21,2,5,0) you for certain treatment of medical services while you are outside the "DATA",25.11,21,2,6,0) United States, if needed as part of your VA-approved vocational "DATA",25.11,21,2,7,0) rehabilitation program. "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) 303-331-7590. For information, visit: "DATA",25.11,21,2,12,0) http://www.domain.ext/hac/forbeneficiaries/fmp/fmp.asp. "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) VETERAN BENEFICIARY PLAN - CAREGIVER (PRIMARY FAMILY CAREGIVER)^101 "DATA",25.11,37,2,0) ^25.14^16^16^3140514^^^^ "DATA",25.11,37,2,1,0) Primary Family Caregiver Plan provides support and assistance to Primary "DATA",25.11,37,2,2,0) Family Caregivers of eligible post 9/11 Veterans and Service Members "DATA",25.11,37,2,3,0) undergoing medical discharge, who incurred or aggravated a serious injury "DATA",25.11,37,2,4,0) in the line of duty on or after September 11, 2001 under the Program of "DATA",25.11,37,2,5,0) Comprehensive Assistance for Family Caregivers. "DATA",25.11,37,2,6,0) "DATA",25.11,37,2,7,0) Eligible Primary Family Caregivers may receive a stipend, education and "DATA",25.11,37,2,8,0) training, mental health services, respite care services, travel, lodging "DATA",25.11,37,2,9,0) and subsistence when receiving initial training and during the Veterans' "DATA",25.11,37,2,10,0) medical appointments, as well as access to VA's Civilian Health and Medical "DATA",25.11,37,2,11,0) Program (CHAMPVA) if not already entitled to care or services under "DATA",25.11,37,2,12,0) another health plan contract including TRICARE. More information can be "DATA",25.11,37,2,13,0) obtained from a Caregiver Support Coordinator at the nearest VA medical "DATA",25.11,37,2,14,0) center, by visiting http://www.caregiver.domain.ext, or by calling "DATA",25.11,37,2,15,0) 1-877-222-VETS (8387). The VA's Caregiver Support Line is also available "DATA",25.11,37,2,16,0) for Caregiver related information and support at 1-855-260-3274. "DATA",25.11,38,0) VETERAN BENEFICIARY PLAN - CAREGIVER (SECONDARY FAMILY CAREGIVER)^137 "DATA",25.11,38,2,0) ^25.14^16^16^3140529^^ "DATA",25.11,38,2,1,0) Secondary Family Caregiver Plan provides support and assistance to "DATA",25.11,38,2,2,0) Secondary Family Caregivers of post 9/11 Veterans and Service Members "DATA",25.11,38,2,3,0) undergoing medical discharge, who incurred or aggravated a serious "DATA",25.11,38,2,4,0) injury in the line of duty on or after September 11, 2001 under the "DATA",25.11,38,2,5,0) Program of Comprehensive Assistance for Family Caregivers. Secondary "DATA",25.11,38,2,6,0) Family Caregivers serve primarily in support of or in place of "DATA",25.11,38,2,7,0) the Primary Family Caregiver as a back-up. An eligible Veteran may "DATA",25.11,38,2,8,0) appoint up to 2 Secondary Caregivers at any one time. Eligible Secondary "DATA",25.11,38,2,9,0) Family Caregivers may receive education and training, travel, lodging "DATA",25.11,38,2,10,0) and subsistence when receiving initial training and during the Veteran's "DATA",25.11,38,2,11,0) medical appointments, respite care services, and ongoing technical "DATA",25.11,38,2,12,0) support and counseling. More information can be obtained from a "DATA",25.11,38,2,13,0) Caregiver Support Coordinator at the nearest VA medical center, by "DATA",25.11,38,2,14,0) visiting http://www.caregiver.domain.ext, or by calling 1-877-222-VETS (8387). "DATA",25.11,38,2,15,0) The VA Caregivers Support line is also available for Caregiver related "DATA",25.11,38,2,16,0) information and support at 1-855-260-3274. "DATA",25.11,39,0) VETERAN BENEFICIARY PLAN - CAREGIVERS (GENERAL CAREGIVER)^138 "DATA",25.11,39,2,0) ^25.14^9^9^3140513^^^ "DATA",25.11,39,2,1,0) General Caregiver Plan provides support to General Caregivers caring for "DATA",25.11,39,2,2,0) veterans of all eras under the Program of General Caregiver Support "DATA",25.11,39,2,3,0) Services. Eligible General Caregivers may receive education and "DATA",25.11,39,2,4,0) training on caring for an enrolled Veteran; respite care as well as "DATA",25.11,39,2,5,0) counseling and other services. More information can be obtained from "DATA",25.11,39,2,6,0) a Caregiver Support Coordinator at the nearest VA medical center, by "DATA",25.11,39,2,7,0) visiting http://www.caregiver.domain.ext, or by calling 1-855-222-VETS (8387). "DATA",25.11,39,2,8,0) The VA's Caregiver Support Line is also available for Caregiver related "DATA",25.11,39,2,9,0) information and support at 1-855-260-3274. "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^3190531 "DATA",25.11,48,1,1,0) Veteran Plan - CCP Grandfather "DATA",25.11,48,2,0) ^^9^9^3190531 "DATA",25.11,48,2,1,0) Grandfathered Veterans have their eligibility extended from Veterans Choice "DATA",25.11,48,2,2,0) Program to the new Community Care Program established under the MISSION Act. "DATA",25.11,48,2,3,0) There are two groups of Grandfathered Veterans: "DATA",25.11,48,2,4,0) '5 Lowest Population Density States' "DATA",25.11,48,2,5,0) or 'Received Title 38 Care'. "DATA",25.11,48,2,6,0) Both groups require that the enrolled Veteran "DATA",25.11,48,2,7,0) (1) was distance-eligible on the day before the MISSION Act was signed (June 5, 2018), and "DATA",25.11,48,2,8,0) (2) live in a place that is still distance-eligible under Veterans Choice "DATA",25.11,48,2,9,0) rules as of the start of the MISSION Act on 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^3190531 "DATA",25.11,49,1,1,0) Veteran Plan - CCP State with no Full-Service Medical Facility "DATA",25.11,49,2,0) ^^3^3^3190531 "DATA",25.11,49,2,1,0) Enrolled Veterans who reside in a state with no full-service "DATA",25.11,49,2,2,0) VA health care facility. "DATA",25.11,49,2,3,0) This eligibility will be determined and assigned with the start of the MISSION Act on June 6, 2019. "DATA",25.11,50,0) VETERAN PLAN - CCP URGENT CARE^210^CC01003 "DATA",25.11,50,1,0) ^^1^1^3190531 "DATA",25.11,50,1,1,0) Veteran Plan - CCP Urgent Care "DATA",25.11,50,2,0) ^^2^2^3190531 "DATA",25.11,50,2,1,0) Enrolled Veterans who have received Title 38 care within the past two years who meet the administrative eligibility for non-VA Urgent Care for services. "DATA",25.11,50,2,2,0) This eligibility will be determined and assigned with the start of the MISSION Act on June 6, 2019. "DATA",25.11,51,0) VETERAN PLAN - CCP BASIC^208^CC01006 "DATA",25.11,51,1,0) ^^1^1^3190531 "DATA",25.11,51,1,1,0) Veteran Plan - CCP Basic "DATA",25.11,51,2,0) ^^3^3^3190531 "DATA",25.11,51,2,1,0) The Veteran must be enrolled in the VA healthcare system. "DATA",25.11,51,2,2,0) Veteran is eligible for the Community Care Program but does not meet "DATA",25.11,51,2,3,0) the criteria for Community Care services. "DATA",25.11,52,0) VETERAN PLAN - CCP HARDSHIP DETERMINATION^212^CC01007 "DATA",25.11,52,1,0) ^^1^1^3190531 "DATA",25.11,52,1,1,0) Veteran Plan - CCP Hardship Determination "DATA",25.11,52,2,0) ^25.14^13^13^3190829^ "DATA",25.11,52,2,1,0) The Veteran must be enrolled in the VA health care system. The Veteran who may "DATA",25.11,52,2,2,0) meet new MISSION Act access standards (wait time and drive time) may still face "DATA",25.11,52,2,3,0) an unusual or excessive burden in accessing care at the VA based on: "DATA",25.11,52,2,4,0) . Geographical challenges "DATA",25.11,52,2,5,0) . Environmental factors such as: "DATA",25.11,52,2,6,0) o Roads that are not accessible to the general public, such as a road through a military base or restricted area "DATA",25.11,52,2,7,0) o Traffic, or "DATA",25.11,52,2,8,0) o Hazardous weather conditions "DATA",25.11,52,2,9,0) . A medical condition that impacts the ability to travel "DATA",25.11,52,2,10,0) . Meets MISSION Act access standard, but, must travel by air, boat, or ferry "DATA",25.11,52,2,11,0) And "DATA",25.11,52,2,12,0) . Veteran has received a "COMMUNITY CARE-HARDSHIP DETERMINATION" consult and "DATA",25.11,52,2,13,0) the consult has not expired then the Veteran will be eligible for Hardship. "DATA",25.11,53,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT & RX COPAY EXEMPT^213^FB01001 "DATA",25.11,53,1,0) ^25.13^1^1^3190829^^^ "DATA",25.11,53,1,1,0) FM "DATA",25.11,53,2,0) ^^40^40^3190829^ "DATA",25.11,53,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,53,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,53,2,3,0) Veteran status for VA healthcare benefits and are not subject to copayment "DATA",25.11,53,2,4,0) for their inpatient, outpatient services nor medications. "DATA",25.11,53,2,5,0) "DATA",25.11,53,2,6,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,53,2,7,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,53,2,8,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,53,2,9,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), Shipboard "DATA",25.11,53,2,10,0) Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), Military "DATA",25.11,53,2,11,0) Sexual Treatment (MST). "DATA",25.11,53,2,12,0) "DATA",25.11,53,2,13,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,53,2,14,0) "DATA",25.11,53,2,15,0) o Determined to be 50% or greater SC "DATA",25.11,53,2,16,0) o Determined to be 10% to 40% Compensable SC* "DATA",25.11,53,2,17,0) o Received a Medal of Honor (MOH) "DATA",25.11,53,2,18,0) o Received a Purple Heart (PH)** "DATA",25.11,53,2,19,0) o Has been a Prisoner of War (POW) "DATA",25.11,53,2,20,0) o Determined to be Catastrophically Disabled (CD) "DATA",25.11,53,2,21,0) o Determined to be Unemployable due to SC conditions "DATA",25.11,53,2,22,0) o In receipt of Aid & Attendance (A&A) "DATA",25.11,53,2,23,0) o In receipt of Housebound (HB)** "DATA",25.11,53,2,24,0) o In receipt of a VA Pension "DATA",25.11,53,2,25,0) o Discharge Due to Disability** "DATA",25.11,53,2,26,0) o Military Disability Retirement** "DATA",25.11,53,2,27,0) o Receive Medicaid** "DATA",25.11,53,2,28,0) o Non-Service Connected (NSC)*** "DATA",25.11,53,2,29,0) o 0% SC non-compensable **** "DATA",25.11,53,2,30,0) "DATA",25.11,53,2,31,0) *They are exempt from copayment for medications related to their SC rated "DATA",25.11,53,2,32,0) condition, but they must complete a Pharmacy Copay Exemption Test and "DATA",25.11,53,2,33,0) the outcome is Rx Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,53,2,34,0) **They must complete a Pharmacy Copay Exemption Test and the outcome "DATA",25.11,53,2,35,0) is Rx Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,53,2,36,0) ***NSC Veterans who are subject to Means Testing; the outcome of the "DATA",25.11,53,2,37,0) Means Test is MT Copay Exempt and Rx Exemption status is Exempt. "DATA",25.11,53,2,38,0) ****SC Non-Compensable Veterans who are subject to Means Testing; the "DATA",25.11,53,2,39,0) outcome of the Means Test is MT Copay Exempt and Rx Exemption status is "DATA",25.11,53,2,40,0) Exempt. "DATA",25.11,54,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT COPAY EXEMPT & RX COPAY REQUIRED^214^FB01002 "DATA",25.11,54,1,0) ^25.13^1^1^3190926^^^^ "DATA",25.11,54,1,1,0) FM RxCo "DATA",25.11,54,2,0) ^^38^38^3190926^ "DATA",25.11,54,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,54,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,54,2,3,0) Veteran status for VA healthcare benefits and are not subject to copayment "DATA",25.11,54,2,4,0) for their inpatient, outpatient services but are subject to copayment for "DATA",25.11,54,2,5,0) their medications. "DATA",25.11,54,2,6,0) "DATA",25.11,54,2,7,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,54,2,8,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,54,2,9,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,54,2,10,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), "DATA",25.11,54,2,11,0) Shipboard Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), "DATA",25.11,54,2,12,0) Military Sexual Treatment (MST). "DATA",25.11,54,2,13,0) "DATA",25.11,54,2,14,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,54,2,15,0) "DATA",25.11,54,2,16,0) o Determined to be 10% to 40% Compensable SC* "DATA",25.11,54,2,17,0) o Received a Purple Heart (PH)** "DATA",25.11,54,2,18,0) o Discharge Due to Disability** "DATA",25.11,54,2,19,0) o Military Disability Retirement** "DATA",25.11,54,2,20,0) o Granted a Financial Hardship based on the evidence provided*** "DATA",25.11,54,2,21,0) o Receive Medicaid** "DATA",25.11,54,2,22,0) o Non-Service Connected (NSC)*** "DATA",25.11,54,2,23,0) o 0% SC non-compensable **** "DATA",25.11,54,2,24,0) "DATA",25.11,54,2,25,0) *They are exempt from copayment for medications related to their SC rated "DATA",25.11,54,2,26,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,54,2,27,0) outcome is Non-Exempt. They must pay copayment for their NSC medication "DATA",25.11,54,2,28,0) copays. "DATA",25.11,54,2,29,0) **They must complete a Pharmacy Copay Exemption Test and the outcome is "DATA",25.11,54,2,30,0) Non-Exempt. They must pay copayment for their NSC medication. "DATA",25.11,54,2,31,0) ***The Hardship assigns Means Test (MT) Status outcome of MT Copay Exempt "DATA",25.11,54,2,32,0) for Medical Benefits Treatments. The Hardship does not affect Pharmacy "DATA",25.11,54,2,33,0) Copay Exemption Test outcome. If the Pharmacy Copay Exemption Test outcome "DATA",25.11,54,2,34,0) is Non-Exempt, they are subject to NSC medication copays. "DATA",25.11,54,2,35,0) ***NSC Veterans who are subject to Means Testing; the outcome of the Means "DATA",25.11,54,2,36,0) Test is MT Copay Exempt and Rx Exemption status is Non-Exempt. "DATA",25.11,54,2,37,0) ****SC Non-Compensable Veterans who are subject to Means Testing; the outcome "DATA",25.11,54,2,38,0) of the Means Test is MT Copay Exempt and Rx Exemption status is Non-Exempt. "DATA",25.11,55,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT COPAY REQUIRED & RX COPAY EXEMPT (A)^215^FB01003 "DATA",25.11,55,1,0) ^25.13^1^1^3190816^ "DATA",25.11,55,1,1,0) FM TxCo 6 "DATA",25.11,55,2,0) ^^24^24^3190829^ "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) They are subject to copayments for their inpatient, outpatient services "DATA",25.11,55,2,7,0) but not subject to copayment for their medications. "DATA",25.11,55,2,8,0) "DATA",25.11,55,2,9,0) Veterans are exempt from copayment for inpatient, outpatient services and "DATA",25.11,55,2,10,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,55,2,11,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,55,2,12,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), Shipboard "DATA",25.11,55,2,13,0) Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), Military "DATA",25.11,55,2,14,0) Sexual Treatment (MST). "DATA",25.11,55,2,15,0) "DATA",25.11,55,2,16,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,55,2,17,0) "DATA",25.11,55,2,18,0) o 0% SC, non-compensable* "DATA",25.11,55,2,19,0) o Non-Service Connected (NSC) "DATA",25.11,55,2,20,0) o MT Status in a Pending Adjudication or MT Copay Required "DATA",25.11,55,2,21,0) o Priority Group 6 (i.e., AO, SWA, IR, EC, SHAD, CV, CL) "DATA",25.11,55,2,22,0) "DATA",25.11,55,2,23,0) *They are subject to copays for their inpatient, outpatient services and are "DATA",25.11,55,2,24,0) exempt from copayment for their medications. "DATA",25.11,56,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT COPAY REQUIRED & RX COPAY EXEMPT (B)^216^FB01007 "DATA",25.11,56,1,0) ^25.13^1^1^3190816^^ "DATA",25.11,56,1,1,0) FM TxCo 7 "DATA",25.11,56,2,0) ^^15^15^3190829^ "DATA",25.11,56,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, "DATA",25.11,56,2,2,0) which VA administers through an annual patient enrollment system. Veterans "DATA",25.11,56,2,3,0) who meet Veteran status for VA healthcare benefits and current Means Test "DATA",25.11,56,2,4,0) is based on Net Worth Adjudication. Their income plus net worth is above "DATA",25.11,56,2,5,0) the National Threshold but income alone is below the VA Pension Threshold. "DATA",25.11,56,2,6,0) They are subject to copayment for their inpatient, outpatient services but "DATA",25.11,56,2,7,0) not subject to copayment for their medications. "DATA",25.11,56,2,8,0) "DATA",25.11,56,2,9,0) Veteran authorized to receive medical benefits with: "DATA",25.11,56,2,10,0) - Copayment charges for Treatment "DATA",25.11,56,2,11,0) - No Copayment charges for Medication "DATA",25.11,56,2,12,0) "DATA",25.11,56,2,13,0) Must be in: "DATA",25.11,56,2,14,0) o MT Status in a Pending Adjudication "DATA",25.11,56,2,15,0) o Priority Group 7 "DATA",25.11,57,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT COPAY REQUIRED & RX COPAY EXEMPT (C)^217^FB01008 "DATA",25.11,57,1,0) ^25.13^1^1^3190816^ "DATA",25.11,57,1,1,0) FM TxCo 8 "DATA",25.11,57,2,0) ^^12^12^3190829^ "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) o MT Status in a Pending Adjudication or MT Copay Required "DATA",25.11,57,2,12,0) o Priority Group 8a/b/c/d (i.e., SC 0% and NSC) "DATA",25.11,58,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT & RX COPAY REQUIRED (A)^218^FB01004 "DATA",25.11,58,1,0) ^25.13^1^1^3190829^^ "DATA",25.11,58,1,1,0) FM TxCo RxCo 6 "DATA",25.11,58,2,0) ^^12^12^3190829^ "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 copayment for their inpatient, outpatient services and their "DATA",25.11,58,2,4,0) 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) - Copayment charges for Treatment "DATA",25.11,58,2,8,0) - Copayment 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) o 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 MEDICAL BENEFITS TREATMENT & RX COPAY REQUIRED (B)^219^FB01009 "DATA",25.11,59,1,0) ^25.13^1^1^3190816^^ "DATA",25.11,59,1,1,0) FM TxCo RxCo 8 "DATA",25.11,59,2,0) ^^27^27^3190829^ "DATA",25.11,59,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,59,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,59,2,3,0) Veteran status for VA healthcare benefits and must complete a Means Test (MT) "DATA",25.11,59,2,4,0) to determine their copay status for their Medical Treatment and Medication. "DATA",25.11,59,2,5,0) Veterans receiving inpatient, outpatient services for Non-Service Connected "DATA",25.11,59,2,6,0) (NSC) conditions and whose income exceeds the applicable National Income "DATA",25.11,59,2,7,0) Threshold are subject to copayment for inpatient, outpatient services and "DATA",25.11,59,2,8,0) their medications. "DATA",25.11,59,2,9,0) "DATA",25.11,59,2,10,0) Veterans are exempt from copayment 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 (CL), "DATA",25.11,59,2,15,0) Military Sexual Treatment (MST). "DATA",25.11,59,2,16,0) "DATA",25.11,59,2,17,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,59,2,18,0) "DATA",25.11,59,2,19,0) o 0% SC, non-compensable* "DATA",25.11,59,2,20,0) o NSC "DATA",25.11,59,2,21,0) o Priority Group 8a/b/c/d (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,59,2,22,0) "DATA",25.11,59,2,23,0) *They are exempt from copayment for medications related to their SC "DATA",25.11,59,2,24,0) condition, but they must complete a Means Test to determine their copay "DATA",25.11,59,2,25,0) status for NSC inpatient, outpatient services and medications. The outcome "DATA",25.11,59,2,26,0) of Means Test was MT Copay Required for their inpatient, outpatient "DATA",25.11,59,2,27,0) services and Non-Exempt for their Pharmacy Copay Exemption. "DATA",25.11,60,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT GMT COPAY REQUIRED & RX COPAY EXEMPT^220^FB01005 "DATA",25.11,60,1,0) ^25.13^1^1^3190816^^^^ "DATA",25.11,60,1,1,0) FM TxCoG "DATA",25.11,60,2,0) ^^25^25^3190829^ "DATA",25.11,60,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,60,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,60,2,3,0) Veteran status for VA healthcare benefits and must complete a Financial "DATA",25.11,60,2,4,0) Assessment to determine their copay status for their inpatient, outpatient "DATA",25.11,60,2,5,0) 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 income "DATA",25.11,60,2,8,0) limits for their resident location and who agreed to pay copays. The Means "DATA",25.11,60,2,9,0) Test outcome of GMT Copay Required and outcome of their Rx Exemption status is "DATA",25.11,60,2,10,0) Exempt. These Veterans are subject to copays for their inpatient services "DATA",25.11,60,2,11,0) at a reduced rate, copayment for their outpatient services at the full "DATA",25.11,60,2,12,0) 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 (CL), "DATA",25.11,60,2,19,0) Military Sexual Treatment (MST). "DATA",25.11,60,2,20,0) "DATA",25.11,60,2,21,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,60,2,22,0) "DATA",25.11,60,2,23,0) o 0% SC, non-compensable "DATA",25.11,60,2,24,0) o Non-Service Connected "DATA",25.11,60,2,25,0) o Priority Group 7 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,61,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT GMT COPAY REQUIRED & RX COPAY REQUIRED^221^FB01006 "DATA",25.11,61,1,0) ^25.13^1^1^3190816^^^^ "DATA",25.11,61,1,1,0) FM TxCoG RxCo "DATA",25.11,61,2,0) ^25.14^25^25^3190829^^ "DATA",25.11,61,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,61,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,61,2,3,0) Veteran status for VA healthcare benefits and must complete a Means Test to "DATA",25.11,61,2,4,0) determine their copay status for their inpatient, outpatient services and "DATA",25.11,61,2,5,0) 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 agreed to pay copays. "DATA",25.11,61,2,9,0) The Means Test outcome of GMT Copay Required and outcome of their Rx "DATA",25.11,61,2,10,0) Exemption status is Non-Exempt. These Veterans are subject to copays for "DATA",25.11,61,2,11,0) inpatient services at a reduced rate, copayment for their outpatient "DATA",25.11,61,2,12,0) services at the full copay rate, and copayment for medications. "DATA",25.11,61,2,13,0) "DATA",25.11,61,2,14,0) Veterans are exempt from copayment 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 (CL), "DATA",25.11,61,2,19,0) Military Sexual Treatment (MST). "DATA",25.11,61,2,20,0) "DATA",25.11,61,2,21,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,61,2,22,0) "DATA",25.11,61,2,23,0) o 0% SC, non-compensable "DATA",25.11,61,2,24,0) o Non-Service Connected "DATA",25.11,61,2,25,0) o Priority Group 7 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,62,0) VETERAN - RESTRICTED MEDICAL BENEFITS^222^RM01001 "DATA",25.11,62,1,0) ^25.13^1^1^3190816^^ "DATA",25.11,62,1,1,0) RM "DATA",25.11,62,2,0) ^^9^9^3190829^ "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 VMBP meet one of the following conditions: "DATA",25.11,62,2,5,0) "DATA",25.11,62,2,6,0) o Cancel/Decline - Receive medical benefits for SC conditions only "DATA",25.11,62,2,7,0) o Rejected - Receive medical benefits for SC conditions only "DATA",25.11,62,2,8,0) o Ineligible and SC 0% - Receive medical benefits for SC conditions only "DATA",25.11,62,2,9,0) o Ineligible and MST - Receive medical benefits for MST conditions only "DATA",25.11,63,0) NON-VETERAN - OTHER RESTRICTED MEDICAL BENEFITS^223^OR01001 "DATA",25.11,63,1,0) ^^1^1^3190814 "DATA",25.11,63,1,1,0) ORM "DATA",25.11,63,2,0) ^^9^9^3190829^ "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) "DATA",25.11,63,2,6,0) o MST - Non Veteran (Active Duty) "DATA",25.11,63,2,7,0) o Presumptive (38 USC 1702- 38 CFR 17.109) "DATA",25.11,63,2,8,0) o Former Servicemembers with Other Than Honorable (OTH) discharges who "DATA",25.11,63,2,9,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) ^25.13^1^1^3190829^^ "DATA",25.11,65,1,1,0) HM "DATA",25.11,65,2,0) ^^18^18^3190829^ "DATA",25.11,65,2,1,0) Non-Service Connected Veterans who applied for VA healthcare services, but are "DATA",25.11,65,2,2,0) not enrolled due to an enrollment decision, or after a one year period the "DATA",25.11,65,2,3,0) application is administratively closed due to no receipt of information needed "DATA",25.11,65,2,4,0) to verify Veteran status and/or financial information used to determine "DATA",25.11,65,2,5,0) enrollment status. "DATA",25.11,65,2,6,0) "DATA",25.11,65,2,7,0) Or persons who seek care under emergent or urgent conditions and if none of "DATA",25.11,65,2,8,0) the other benefit plans apply. "DATA",25.11,65,2,9,0) "DATA",25.11,65,2,10,0) Or Veterans who are eligible based on income but refuse to agree to pay "DATA",25.11,65,2,11,0) copayment. "DATA",25.11,65,2,12,0) "DATA",25.11,65,2,13,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,65,2,14,0) o Rejected, Below Enrollment Group Threshold (EGT) "DATA",25.11,65,2,15,0) o Closed Application "DATA",25.11,65,2,16,0) o Enrollment Status is Not Eligible; Ineligible Date "DATA",25.11,65,2,17,0) o Enrollment Status is Not Eligible; Refuse to pay copay "DATA",25.11,65,2,18,0) o Not Applicable "DATA",25.11,66,0) APPLICANT IN PROCESS^226^AN01001 "DATA",25.11,66,1,0) ^25.13^1^1^3190814^ "DATA",25.11,66,1,1,0) INC "DATA",25.11,66,2,0) ^25.14^14^14^3190829^^ "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 record determination could not be made. "DATA",25.11,66,2,3,0) "DATA",25.11,66,2,4,0) o Pending; Means Test Required - Veterans whose Veterans Status has been "DATA",25.11,66,2,5,0) verified and who have not provided initial Means Test to determine enrollment. "DATA",25.11,66,2,6,0) o Pending; Purple Heart Unconfirmed - A temporary eligibility for 14 days. "DATA",25.11,66,2,7,0) o Pending; Other - Enrollment System cannot determine enrollment status. "DATA",25.11,66,2,8,0) o Pending; No Eligibility Code - Enrollment System cannot determine "DATA",25.11,66,2,9,0) enrollment status. "DATA",25.11,66,2,10,0) o Pending - Enrollment System cannot determine enrollment status. "DATA",25.11,66,2,11,0) o Unverified - Enrollment System cannot determine enrollment status. "DATA",25.11,66,2,12,0) o Pending; Eligibility Unverified - Veterans who do not have a prior period "DATA",25.11,66,2,13,0) of enrollment and still within the 365 period who have provided evidence of "DATA",25.11,66,2,14,0) Veteran status. "DATA",25.11,67,0) ALLIED BENEFICIARIES^227^AL01001 "DATA",25.11,67,1,0) ^25.13^1^1^3190816^ "DATA",25.11,67,1,1,0) AB "DATA",25.11,67,2,0) ^^2^2^3190829^ "DATA",25.11,67,2,1,0) Allied Veteran receiving care for Service Connected conditions as "DATA",25.11,67,2,2,0) indicated by the allied country. "DATA",25.11,68,0) OTHER FEDERAL AGENCY^228^OF01001 "DATA",25.11,68,1,0) ^^1^1^3190814 "DATA",25.11,68,1,1,0) OFA "DATA",25.11,68,2,0) ^25.14^9^9^3190829^^ "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 Employee's "DATA",25.11,68,2,3,0) Comp., Peace Corps, Veterans Administration) and any other agency that get "DATA",25.11,68,2,4,0) injured and comes to VA). "DATA",25.11,68,2,5,0) "DATA",25.11,68,2,6,0) o Sharing Agreement "DATA",25.11,68,2,7,0) o Other Federal Agency "DATA",25.11,68,2,8,0) o Veteran/Employee "DATA",25.11,68,2,9,0) o Employee Only "DATA",25.11,69,0) ACTIVE DUTY & SHARING AGREEMENTS^229^AC01001 "DATA",25.11,69,1,0) ^^1^1^3190814 "DATA",25.11,69,1,1,0) ADSA "DATA",25.11,69,2,0) ^25.14^1^1^3190829^ "DATA",25.11,69,2,1,0) Persons receiving care under Sharing Agreement with the Department of Defense. "DATA",25.11,70,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT GMT COPAY REQUIRED & RX COPAY EXEMPT (A)^239^FB01012 "DATA",25.11,70,1,0) ^25.13^1^1^3190816^^^^ "DATA",25.11,70,1,1,0) FM TxCoG 6 "DATA",25.11,70,2,0) ^^22^22^3190829^ "DATA",25.11,70,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,70,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,70,2,3,0) Veteran status for VA healthcare benefits and must complete a Means Test "DATA",25.11,70,2,4,0) to determine their copay status for their inpatient, outpatient services "DATA",25.11,70,2,5,0) 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. "DATA",25.11,70,2,9,0) The Means Test outcome of GMT Copay Required and outcome of their Rx "DATA",25.11,70,2,10,0) Exemption status is Exempt. These Veterans are subject to copays for their "DATA",25.11,70,2,11,0) inpatient services at a reduced rate, copayment for their outpatient "DATA",25.11,70,2,12,0) services at the full copay rate, but no copayment for medications. "DATA",25.11,70,2,13,0) Veterans are exempt from copayments for inpatient, outpatient services and "DATA",25.11,70,2,14,0) medications related to their Service Connected (SC) related disability and "DATA",25.11,70,2,15,0) special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "DATA",25.11,70,2,16,0) Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), Shipboard "DATA",25.11,70,2,17,0) Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), Military "DATA",25.11,70,2,18,0) Sexual Treatment (MST). "DATA",25.11,70,2,19,0) "DATA",25.11,70,2,20,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,70,2,21,0) "DATA",25.11,70,2,22,0) o Priority Group 6 (i.e., SC 0% Non-Compensable or NSC) "DATA",25.11,71,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT GMT COPAY REQUIRED & RX COPAY REQUIRED (A)^240^FB01013 "DATA",25.11,71,1,0) ^25.13^1^1^3190816^^^^ "DATA",25.11,71,1,1,0) FM TxCoG RxCo 6 "DATA",25.11,71,2,0) ^^24^24^3190829^ "DATA",25.11,71,2,1,0) All enrolled Veterans have a comprehensive medical benefits package, which VA "DATA",25.11,71,2,2,0) administers through an annual patient enrollment system. Veterans who meet "DATA",25.11,71,2,3,0) Veteran status for VA healthcare benefits and must complete a Financial "DATA",25.11,71,2,4,0) Assessment 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 copayment. "DATA",25.11,71,2,9,0) The Means Test outcome of GMT Copay Required and outcome of their Rx "DATA",25.11,71,2,10,0) Exemption status is Non-Exempt. These Veterans are subject to copayment "DATA",25.11,71,2,11,0) for inpatient services at a reduced rate, copayment for outpatient "DATA",25.11,71,2,12,0) services at the full copay rate, and copays for medications. "DATA",25.11,71,2,13,0) "DATA",25.11,71,2,14,0) Veterans are exempt from copayment 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), Shipboard "DATA",25.11,71,2,18,0) Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), Military "DATA",25.11,71,2,19,0) Sexual Treatment (MST). "DATA",25.11,71,2,20,0) "DATA",25.11,71,2,21,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,71,2,22,0) "DATA",25.11,71,2,23,0) o Priority Group 6 (i.e., SC 0% Non-Compensable or NSC) and MT outcome is "DATA",25.11,71,2,24,0) GMT and Rx Exemption status is Non-Exempt "DATA",25.11,72,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT & RX COPAY EXEMPT (X)^241^FB01010 "DATA",25.11,72,1,0) ^25.13^1^1^3190829^^ "DATA",25.11,72,1,1,0) FM 6 "DATA",25.11,72,2,0) ^^19^19^3190829^ "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 "DATA",25.11,72,2,4,0) copay 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 Treatment (MST). "DATA",25.11,72,2,12,0) "DATA",25.11,72,2,13,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,72,2,14,0) "DATA",25.11,72,2,15,0) o Determined to be 0% Compensable SC* "DATA",25.11,72,2,16,0) "DATA",25.11,72,2,17,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,72,2,18,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,72,2,19,0) outcome is Rx Copay Exempt to be exempt from NSC medication copays. "DATA",25.11,73,0) VETERAN - FULL MEDICAL BENEFITS TREATMENT COPAY EXEMPT & RX COPAY REQUIRED (Y)^242^FB01011 "DATA",25.11,73,1,0) ^25.13^1^1^3190829^^ "DATA",25.11,73,1,1,0) FM RxCo 6 "DATA",25.11,73,2,0) ^^21^21^3190829^ "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 "DATA",25.11,73,2,4,0) copay for their inpatient, outpatient services but are subject to copay "DATA",25.11,73,2,5,0) for their 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 Treatment (MST). "DATA",25.11,73,2,13,0) "DATA",25.11,73,2,14,0) Veterans assigned this VMBP meet one of the following conditions: "DATA",25.11,73,2,15,0) "DATA",25.11,73,2,16,0) o Determined to be 0% Compensable SC* "DATA",25.11,73,2,17,0) "DATA",25.11,73,2,18,0) *They are exempt from copay for medications related to their SC rated "DATA",25.11,73,2,19,0) condition, but they must complete a Pharmacy Copay Exemption Test and the "DATA",25.11,73,2,20,0) outcome is Non-Exempt. They must pay copay for their NSC medication "DATA",25.11,73,2,21,0) copays. "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) y^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^DG53987P "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) "KRN",101,4563,-1) 0^1 "KRN",101,4563,0) DGEN HBP DETAIL^View All VMBP Detail^^A^^^^^^^^ "KRN",101,4563,1,0) ^^3^3^3190926^ "KRN",101,4563,1,1,0) This protocol action allows the user to view the detailed description of "KRN",101,4563,1,2,0) the Veteran Medical Benefit Plan(s) available for assigning to a patient's "KRN",101,4563,1,3,0) profile. "KRN",101,4563,20) D ACT^DGR111("VD") "KRN",101,4563,99) 65159,59410 "KRN",409.61,727,-1) 0^1 "KRN",409.61,727,0) DGEN HBP PATIENT^1^^240^5^15^1^1^^DGEN HBP 11.1 MENU^VMBP <11.1>^1^^1 "KRN",409.61,727,1) ^VALM HIDDEN ACTIONS "KRN",409.61,727,"COL",0) ^409.621^1^1 "KRN",409.61,727,"COL",1,0) 1^4^30^Current VMBP "KRN",409.61,727,"COL","B",1,1) "KRN",409.61,727,"FNL") D EXIT^DGR111 "KRN",409.61,727,"HDR") D HDR^DGR111 "KRN",409.61,727,"HLP") D HELP^DGR111 "KRN",409.61,727,"INIT") D INIT^DGR111 "KRN",409.61,728,-1) 0^4 "KRN",409.61,728,0) DGEN HBP VIEW^2^^240^5^20^1^1^Plan^^VMBP <11.3>^1^^1 "KRN",409.61,728,1) ^VALM HIDDEN ACTIONS "KRN",409.61,728,"COL",0) ^409.621^4^4 "KRN",409.61,728,"COL",1,0) PLAN NAME^28^80^Plan Name "KRN",409.61,728,"COL",2,0) ACTION^5^9^ Action "KRN",409.61,728,"COL",3,0) DATE/TIME^15^11^Date "KRN",409.61,728,"COL",4,0) NO^1^4 "KRN",409.61,728,"COL","B","ACTION",2) "KRN",409.61,728,"COL","B","DATE/TIME",3) "KRN",409.61,728,"COL","B","NO",4) "KRN",409.61,728,"COL","B","PLAN NAME",1) "KRN",409.61,728,"EXP") D EXPND^DGR113 "KRN",409.61,728,"FNL") D EXIT^DGR113 "KRN",409.61,728,"HDR") D HDR^DGR113 "KRN",409.61,728,"HLP") D HELP^DGR113 "KRN",409.61,728,"INIT") D INIT^DGR113 "KRN",409.61,730,-1) 0^5 "KRN",409.61,730,0) DGEN HBP DETAIL^2^^240^5^20^1^1^^^VMBP <11.4>^1^^1 "KRN",409.61,730,1) ^VALM HIDDEN ACTIONS "KRN",409.61,730,"COL",0) ^409.621^1^1 "KRN",409.61,730,"COL",1,0) 1^4^35^VMBP View All Detail "KRN",409.61,730,"COL","B",1,1) "KRN",409.61,730,"EXP") D EXPND^DGR114 "KRN",409.61,730,"FNL") D EXIT^DGR114 "KRN",409.61,730,"HDR") D HDR^DGR114 "KRN",409.61,730,"HLP") D HELP^DGR114 "KRN",409.61,730,"INIT") D INIT^DGR114 "KRN",409.61,817,-1) 0^7 "KRN",409.61,817,0) DGEN HBP VIEWEXP^2^^^9^20^1^1^^^VMBP <11.3.1>^1^^1 "KRN",409.61,817,1) ^VALM HIDDEN ACTIONS "KRN",409.61,817,"COL",0) ^409.621^1^1 "KRN",409.61,817,"COL",1,0) 1^1^80^ Description^^0 "KRN",409.61,817,"COL","AIDENT",0,1) "KRN",409.61,817,"COL","B",1,1) "KRN",409.61,817,"FNL") D EXIT^DGR1131 "KRN",409.61,817,"HDR") D HDR^DGR1131 "KRN",409.61,817,"HLP") D HELP^DGR1131 "KRN",409.61,817,"INIT") D INIT^DGR1131 "MBREQ") 0 "ORD",15,101) 101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA "ORD",15,101,0) PROTOCOL "ORD",17,409.61) 409.61;17;1;;;;LME1^XPDIA1;;;LMDEL^XPDIA1 "ORD",17,409.61,0) LIST TEMPLATE "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) 987^3191004 "PKG",47,22,1,"PAH",1,1,0) ^^2^2^3191004 "PKG",47,22,1,"PAH",1,1,1,0) Please see the DG*5.3*987 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") 8 "RTN","DG53987P") 0^^B6052298^n/a "RTN","DG53987P",1,0) DG53987P ;ALB/JAM - DG*5.3*987 PRE INSTALL TO UPDATE HEALTH BENEFIT PLANS ;05/10/19 9:18pm "RTN","DG53987P",2,0) ;;5.3;Registration;**987**;Aug 13, 1993;Build 22 "RTN","DG53987P",3,0) ; "RTN","DG53987P",4,0) ; Integration Agreements: "RTN","DG53987P",5,0) ; 10141 : BMES^XPDUTL "RTN","DG53987P",6,0) ; : MES^XPDUTL "RTN","DG53987P",7,0) ; 10018 : UPDATE^DIE "RTN","DG53987P",8,0) Q "RTN","DG53987P",9,0) ;Pre-install routine to perform the following tasks: "RTN","DG53987P",10,0) ; Update the NAME (.01) field values for all HBP's in the HEALTH BENEFIT PLAN (#25.11) file to UPPERCASE. "RTN","DG53987P",11,0) ; "RTN","DG53987P",12,0) PRE ; Entry point for pre-install "RTN","DG53987P",13,0) ; "RTN","DG53987P",14,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","DG53987P",15,0) ; "RTN","DG53987P",16,0) ; Convert the NAME (.01) field values for all HBP's in the HEALTH BENEFIT PLAN (#25.11) file to UPPERCASE. "RTN","DG53987P",17,0) D BMES^XPDUTL("NAME (#.01) field conversion Health Benefit Plan (#25.11) file is started.") "RTN","DG53987P",18,0) D UPDPLN "RTN","DG53987P",19,0) D BMES^XPDUTL("NAME (#.01) field conversion in Health Benefit Plan (#25.11) file is completed.") "RTN","DG53987P",20,0) ; "RTN","DG53987P",21,0) L -^DGHBP(25.11,0) "RTN","DG53987P",22,0) Q "RTN","DG53987P",23,0) ; "RTN","DG53987P",24,0) UPDPLN ; Update existing plan names to UPPERCASE "RTN","DG53987P",25,0) ; "RTN","DG53987P",26,0) N DGIEN,DGPLAN,DGFIELDS,DGERR,DGPNAME,DGUNAME "RTN","DG53987P",27,0) S DGERR="",DGIEN=0 "RTN","DG53987P",28,0) F S DGIEN=$O(^DGHBP(25.11,DGIEN)) Q:'DGIEN D "RTN","DG53987P",29,0) . S DGPLAN=^DGHBP(25.11,DGIEN,0) "RTN","DG53987P",30,0) . S DGPNAME=$P(DGPLAN,"^",1) "RTN","DG53987P",31,0) . ; convert to UPPERCASE "RTN","DG53987P",32,0) . S DGUNAME=$TR(DGPNAME,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") "RTN","DG53987P",33,0) . S DGFIELDS("NAME")=DGUNAME "RTN","DG53987P",34,0) . D UPDPLN1(DGIEN,.DGFIELDS,.DGERR) "RTN","DG53987P",35,0) . I DGERR'="" D "RTN","DG53987P",36,0) . . D BMES^XPDUTL(" *** An Error occurred during converting ") "RTN","DG53987P",37,0) . . D MES^XPDUTL(" "_DGPNAME) "RTN","DG53987P",38,0) . . D MES^XPDUTL(" *** "_DGERR_" ***") "RTN","DG53987P",39,0) . . D MES^XPDUTL(" Please log YOUR IT Services ticket.") "RTN","DG53987P",40,0) Q "RTN","DG53987P",41,0) ; "RTN","DG53987P",42,0) UPDPLN1(DGIEN,DGFIELDS,DGERR) ; Update entries in the HEALTH BENEFIT PLAN File (25.11) "RTN","DG53987P",43,0) ; "RTN","DG53987P",44,0) ; Input: DGIEN - IEN of Plan, "RTN","DG53987P",45,0) ; DGFIELDS - Array of Field Values "RTN","DG53987P",46,0) ; "RTN","DG53987P",47,0) ; Output: DGERR - Error Text "RTN","DG53987P",48,0) ; "RTN","DG53987P",49,0) N DGNAME,DGFDA "RTN","DG53987P",50,0) K DGERR "RTN","DG53987P",51,0) S DGERR="" "RTN","DG53987P",52,0) S DGNAME=$G(DGFIELDS("NAME")) "RTN","DG53987P",53,0) I DGNAME="" S DGERR="Missing Health Benefit Plan Name" Q "RTN","DG53987P",54,0) I 'DGIEN S DGERR="IEN is not found" Q "RTN","DG53987P",55,0) S DGIEN=DGIEN_"," "RTN","DG53987P",56,0) S DGFDA(25.11,DGIEN,.01)=DGNAME "RTN","DG53987P",57,0) D UPDATE^DIE("E","DGFDA","","DGERR") "RTN","DG53987P",58,0) I $D(DGERR("DIERR")) S DGERR=$G(DGERR("DIERR",1,"TEXT",1)) Q "RTN","DG53987P",59,0) Q "RTN","DG53987P",60,0) ; "RTN","DGHBPUTL") 0^5^B38465896^B37209374 "RTN","DGHBPUTL",1,0) DGHBPUTL ;ALB/PWC,JAM - Health Benefit Plan Utility Routine ;5/22/13 11:50am "RTN","DGHBPUTL",2,0) ;;5.3;Registration;**871,987**;08/13/93;Build 22 "RTN","DGHBPUTL",3,0) ; "RTN","DGHBPUTL",4,0) ; "RTN","DGHBPUTL",5,0) GETHBP(DFN) ;Return all records in HBP sub-file #25.01 in HBP array "RTN","DGHBPUTL",6,0) ; returns current information in HBP("CUR",PLAN NAME)=ENTIRE DATA FROM 25.01 DA "RTN","DGHBPUTL",7,0) ; returns current information in HBP("CUR",PLAN NAME,"IEN")=PLAN CODE "RTN","DGHBPUTL",8,0) ; returns history information in HBP("HIS",DA,DTTM)=PLAN NAME^ENTIRE DATA FROM 25.02 DA "RTN","DGHBPUTL",9,0) I '$G(DFN) Q "RTN","DGHBPUTL",10,0) N SDT,HBDATA,HBCODE,HBNAME K HBP("CUR"),HBP("HIS") "RTN","DGHBPUTL",11,0) S SDT=0,(HBDATA,HBCODE)="" "RTN","DGHBPUTL",12,0) F S SDT=$O(^DPT(DFN,"HBP",SDT)) Q:SDT<1 D "RTN","DGHBPUTL",13,0) . S HBDATA=$G(^DPT(DFN,"HBP",SDT,0)),HBCODE=$P(HBDATA,"^",1) "RTN","DGHBPUTL",14,0) . S HBNAME=$P($G(^DGHBP(25.11,HBCODE,0)),"^",1) Q:HBNAME="" "RTN","DGHBPUTL",15,0) . S HBP("CUR",HBNAME)=HBDATA "RTN","DGHBPUTL",16,0) . S HBP("CUR",HBNAME,"IEN")=HBCODE "RTN","DGHBPUTL",17,0) HBP1 S SDT=0,(HBDATA,HBCODE)="" "RTN","DGHBPUTL",18,0) F S SDT=$O(^DPT(DFN,"HBP1",SDT)) Q:SDT<1 D "RTN","DGHBPUTL",19,0) . S HBDATA=$G(^DPT(DFN,"HBP1",SDT,0)),HBCODE=$P(HBDATA,"^",2) "RTN","DGHBPUTL",20,0) . S HBNAME=$P($G(^DGHBP(25.11,HBCODE,0)),"^",1) Q:HBNAME="" "RTN","DGHBPUTL",21,0) . S HBP("HIS",SDT,$P(HBDATA,"^",1))=HBNAME_"^"_$P(HBDATA,"^",2,99) "RTN","DGHBPUTL",22,0) Q "RTN","DGHBPUTL",23,0) ; "RTN","DGHBPUTL",24,0) GETDETL(HBPNUM) ;Return detail for each HBP in an array for display purposes "RTN","DGHBPUTL",25,0) I $G(HBPNUM)="" Q "RTN","DGHBPUTL",26,0) N DATA,CNT,LAST K HBP("DETAIL") "RTN","DGHBPUTL",27,0) S HBP("DETAIL",0)=$G(^DGHBP(25.11,HBPNUM,2,0)) "RTN","DGHBPUTL",28,0) I HBP("DETAIL",0)="" S HBP("DETAIL",0)="0^No Detail Available." Q "RTN","DGHBPUTL",29,0) S LAST=$P(HBP("DETAIL",0),"^",4) "RTN","DGHBPUTL",30,0) M DATA=^DGHBP(25.11,HBPNUM,2) "RTN","DGHBPUTL",31,0) F CNT=1:1:LAST S HBP("DETAIL",HBPNUM,CNT)=DATA(CNT,0) "RTN","DGHBPUTL",32,0) Q "RTN","DGHBPUTL",33,0) ; "RTN","DGHBPUTL",34,0) GETPLAN ; Return all Health Benefit Plans from file #25.11 in array "RTN","DGHBPUTL",35,0) N HBPLAN,HBIEN,PLAN S HBPLAN="" K HBP("PLAN") "RTN","DGHBPUTL",36,0) F S HBPLAN=$O(^DGHBP(25.11,"B",HBPLAN)) Q:HBPLAN="" D "RTN","DGHBPUTL",37,0) . ; DG*5.3*987; jam; Fix for DGHBP array - "B" xref can have multiple IENs under a plan name "RTN","DGHBPUTL",38,0) . S HBIEN="" "RTN","DGHBPUTL",39,0) . F S HBIEN=$O(^DGHBP(25.11,"B",HBPLAN,HBIEN)) Q:HBIEN="" D "RTN","DGHBPUTL",40,0) . . S PLAN=$P(^DGHBP(25.11,HBIEN,0),"^",1) "RTN","DGHBPUTL",41,0) . . S HBP("PLAN",PLAN)=HBIEN "RTN","DGHBPUTL",42,0) Q "RTN","DGHBPUTL",43,0) ; "RTN","DGHBPUTL",44,0) SETPLAN(DFN,PLAN,SITE) ;Set Health Benefit Plan and History into file 25.01 and 25.02 for input DFN "RTN","DGHBPUTL",45,0) ; Current data plans will also be filed into the history so that history will contain all "RTN","DGHBPUTL",46,0) ; additions and deletions for the patient "RTN","DGHBPUTL",47,0) ; "RTN","DGHBPUTL",48,0) N DATETIME,DGENDA,DATA,SUCCESS "RTN","DGHBPUTL",49,0) ; Gather and save DATETIME for both files "RTN","DGHBPUTL",50,0) D NOW^%DTC S DATETIME=% "RTN","DGHBPUTL",51,0) S DGENDA(1)=DFN "RTN","DGHBPUTL",52,0) S DATA(.01)=PLAN ;Current HBP Code "RTN","DGHBPUTL",53,0) S DATA(1)=DATETIME ;Assigned Date/Time "RTN","DGHBPUTL",54,0) S DATA(2)=DUZ ;Assigned Entered By "RTN","DGHBPUTL",55,0) S DATA(3)=$S($G(SITE)="":$P($$SITE^VASITE(),"^",1),1:SITE) ;Assigned Entered Site "RTN","DGHBPUTL",56,0) S DATA(4)=$S($G(SITE)="":"V",1:"E") ;Current Source "RTN","DGHBPUTL",57,0) ; Update Current Health Benefit Plan into DB "RTN","DGHBPUTL",58,0) S SUCCESS=$$ADD^DGENDBS(2.2511,.DGENDA,.DATA) ;DG*5.3*871 modified 25.01 to 2.511 "RTN","DGHBPUTL",59,0) I SUCCESS D EVENT^IVMPLOG(DFN) ;trigger for HL7 "RTN","DGHBPUTL",60,0) ; "RTN","DGHBPUTL",61,0) ; Reset Data for History - DGENDA remains unchanged "RTN","DGHBPUTL",62,0) N DGENDA,DATA,SUCCESS "RTN","DGHBPUTL",63,0) S DGENDA(1)=DFN "RTN","DGHBPUTL",64,0) S DATA(.01)=DATETIME ;History HBP Date/Time "RTN","DGHBPUTL",65,0) S DATA(1)=PLAN ;History HBP Code "RTN","DGHBPUTL",66,0) S DATA(2)=DUZ ;Assigned Entered By "RTN","DGHBPUTL",67,0) S DATA(3)=$S($G(SITE)="":$P($$SITE^VASITE(),"^",1),1:SITE) ;Assigned Entered Site "RTN","DGHBPUTL",68,0) S DATA(4)="A" ;History Assignment "RTN","DGHBPUTL",69,0) S DATA(5)=$S($G(SITE)="":"V",1:"E") ;History Source "RTN","DGHBPUTL",70,0) ; Update History into DB "RTN","DGHBPUTL",71,0) S SUCCESS=$$ADD^DGENDBS(2.2512,.DGENDA,.DATA) ;DG*5.3*871 modified 25.02 to 2.512 "RTN","DGHBPUTL",72,0) Q "RTN","DGHBPUTL",73,0) ; "RTN","DGHBPUTL",74,0) DELPLAN(DFN,PLAN,SITE) ;Delete Health Benefit Plan and set History into file 25.01 and 25.02 for input DFN "RTN","DGHBPUTL",75,0) N DATETIME,DGENDA,DA,DIK,DATA,SUCCESS "RTN","DGHBPUTL",76,0) ; Gather and save DATETIME for both files "RTN","DGHBPUTL",77,0) D NOW^%DTC S DATETIME=% "RTN","DGHBPUTL",78,0) S (DGENDA(1),DA(1))=DFN "RTN","DGHBPUTL",79,0) S DA=$O(^DPT(DA(1),"HBP","B",PLAN,"")) "RTN","DGHBPUTL",80,0) ; Delete Health Benefit Plan from DB "RTN","DGHBPUTL",81,0) S DIK="^DPT("_DA(1)_","_"""HBP"""_"," "RTN","DGHBPUTL",82,0) D ^DIK K DIK "RTN","DGHBPUTL",83,0) ; "RTN","DGHBPUTL",84,0) ; Reset Data for History - DGENDA remains unchanged "RTN","DGHBPUTL",85,0) S DATA(.01)=DATETIME ;History HBP Date/Time "RTN","DGHBPUTL",86,0) S DATA(1)=PLAN ;History HBP Code "RTN","DGHBPUTL",87,0) S DATA(2)=DUZ ;History Entered By "RTN","DGHBPUTL",88,0) S DATA(3)=$S($G(SITE)="":$P($$SITE^VASITE(),"^",1),1:SITE) ;History Entered Site "RTN","DGHBPUTL",89,0) S DATA(4)="U" ;History Assignment - CCR 13614 - Change D to U "RTN","DGHBPUTL",90,0) S DATA(5)=$S($G(SITE)="":"V",1:"E") ;History Source "RTN","DGHBPUTL",91,0) ; Update History into DB "RTN","DGHBPUTL",92,0) ; DG*5.3*871 "RTN","DGHBPUTL",93,0) S SUCCESS=$$ADD^DGENDBS(2.2512,.DGENDA,.DATA) ;DG*5.3*871 modified 25.02 to 2.512 "RTN","DGHBPUTL",94,0) Q "RTN","DGHBPUTL",95,0) ; "RTN","DGHBPUTL",96,0) HL7UPD(DFN,DGHBP,MSHDATE) ; Store HL7 Health Benefit Plan (HBP) data in PATIENT file (#2) "RTN","DGHBPUTL",97,0) N OCC,HBPNOD,HL7DATA,ADDHBP "RTN","DGHBPUTL",98,0) ; "RTN","DGHBPUTL",99,0) ; Build an array of HBP codes to be added or retained in VistA - saving the date/time for storage "RTN","DGHBPUTL",100,0) S OCC=0 F S OCC=$O(DGHBP(OCC)) Q:OCC="" S ADDHBP($P(DGHBP(OCC),U,1))="" "RTN","DGHBPUTL",101,0) ; "RTN","DGHBPUTL",102,0) S OCC=0 F S OCC=$O(^DPT(DFN,"HBP",OCC)) Q:OCC<1 D "RTN","DGHBPUTL",103,0) . S HBPNOD=$G(^DPT(DFN,"HBP",OCC,0)) "RTN","DGHBPUTL",104,0) . ; If HBP code exists on Z11 and VistA, Source to "E", and do not delete or store history "RTN","DGHBPUTL",105,0) . I $D(ADDHBP($P(HBPNOD,U,1))) S $P(^DPT(DFN,"HBP",OCC,0),U,5)="E" Q "RTN","DGHBPUTL",106,0) . ; Change Date/Time for deletion History to MSHDATE "RTN","DGHBPUTL",107,0) . I $G(MSHDATE)'="" S $P(HBPNOD,U,2)=$$FMDATE^HLFNC(MSHDATE) "RTN","DGHBPUTL",108,0) . D STORHIS(DFN,HBPNOD,"U") ;CCR 13614 - Change D to U (delete to unassigned) "RTN","DGHBPUTL",109,0) . D DELCUR(DFN,$P(HBPNOD,U)) "RTN","DGHBPUTL",110,0) ; "RTN","DGHBPUTL",111,0) ; Add Z11 HBP data to PATIENT file (#2) "RTN","DGHBPUTL",112,0) I $D(DGHBP) D "RTN","DGHBPUTL",113,0) . S OCC=0 F S OCC=$O(DGHBP(OCC)) Q:OCC="" D "RTN","DGHBPUTL",114,0) . . S HL7DATA=DGHBP(OCC) "RTN","DGHBPUTL",115,0) . . ; Quit if the HBP Code is already set for patient (would have been set by loop above) "RTN","DGHBPUTL",116,0) . . I $D(^DPT(DFN,"HBP","B",$P(HL7DATA,U,1))) Q "RTN","DGHBPUTL",117,0) . . D STORCUR(DFN,HL7DATA) "RTN","DGHBPUTL",118,0) . . D STORHIS(DFN,HL7DATA,"A") "RTN","DGHBPUTL",119,0) Q "RTN","DGHBPUTL",120,0) ; "RTN","DGHBPUTL",121,0) STORCUR(DFN,STORDATA) ; Store Current data "RTN","DGHBPUTL",122,0) N DGENDA,DATA,SUCCESS "RTN","DGHBPUTL",123,0) S DGENDA(1)=DFN ;Patient DFN "RTN","DGHBPUTL",124,0) S DATA(.01)=$P(STORDATA,U) ;Current HBP Code "RTN","DGHBPUTL",125,0) S DATA(1)=$P(STORDATA,U,2) ;Assigned Date/Time "RTN","DGHBPUTL",126,0) S DATA(2)=$P(STORDATA,U,3) ;Assigned Entered By "RTN","DGHBPUTL",127,0) S DATA(3)=$P(STORDATA,U,4) ;Assigned Entered Site "RTN","DGHBPUTL",128,0) S DATA(4)=$P(STORDATA,U,5) ;Current Source "RTN","DGHBPUTL",129,0) S SUCCESS=$$ADD^DGENDBS(2.2511,.DGENDA,.DATA) ;DG*5.3*871 modified 25.01 to 2.511 "RTN","DGHBPUTL",130,0) Q "RTN","DGHBPUTL",131,0) ; "RTN","DGHBPUTL",132,0) STORHIS(DFN,STORDATA,ACTION) ; Store History data "RTN","DGHBPUTL",133,0) N DGENDA,DATA,SUCCESS "RTN","DGHBPUTL",134,0) S DGENDA(1)=DFN ;Patient DFN "RTN","DGHBPUTL",135,0) S DATA(.01)=$P(STORDATA,U,2) ;History HBP Date/Time "RTN","DGHBPUTL",136,0) S DATA(1)=$P(STORDATA,U) ;History HBP Code "RTN","DGHBPUTL",137,0) S DATA(2)=$P(STORDATA,U,3) ;History Entered By "RTN","DGHBPUTL",138,0) S DATA(3)=$P(STORDATA,U,4) ;History Entered Site "RTN","DGHBPUTL",139,0) S DATA(4)=$G(ACTION) ;History Assignment "RTN","DGHBPUTL",140,0) S DATA(5)=$P(STORDATA,U,5) ;History Source "RTN","DGHBPUTL",141,0) S SUCCESS=$$ADD^DGENDBS(2.2512,.DGENDA,.DATA) ;DG*5.3*871 modified 25.02 to 2.512 "RTN","DGHBPUTL",142,0) Q "RTN","DGHBPUTL",143,0) ; "RTN","DGHBPUTL",144,0) DELCUR(DFN,HBPCODE) ; Delete entry from Current data "RTN","DGHBPUTL",145,0) N DGENDA,DA,DIK "RTN","DGHBPUTL",146,0) S (DGENDA(1),DA(1))=DFN "RTN","DGHBPUTL",147,0) S DA=$O(^DPT(DA(1),"HBP","B",HBPCODE,"")) "RTN","DGHBPUTL",148,0) S DIK="^DPT("_DA(1)_","_"""HBP"""_"," "RTN","DGHBPUTL",149,0) D ^DIK K DIK "RTN","DGHBPUTL",150,0) Q "RTN","DGR111") 0^7^B9243867^B7250700 "RTN","DGR111",1,0) DGR111 ;ALB/TGH,LMD,JAM - Health Benefit Plan Main Menu - List Manager Screen ;4/11/13 10:56am "RTN","DGR111",2,0) ;;5.3;Registration;**871,987**;Aug 13, 1993;Build 22 "RTN","DGR111",3,0) ; "RTN","DGR111",4,0) EN(DFN) ;Main entry point to invoke the DGEN HBP PATIENT list "RTN","DGR111",5,0) ; Input -- DFN Patient IEN "RTN","DGR111",6,0) ; "RTN","DGR111",7,0) ; Set up to use two ListMan Menus dependent upon HBP source "RTN","DGR111",8,0) N HBP,DGHBP,HBPSRC,MENU "RTN","DGR111",9,0) D GETHBP^DGHBPUTL(DFN) "RTN","DGR111",10,0) S MENU="DGEN HBP PATIENT" "RTN","DGR111",11,0) D WAIT^DICD "RTN","DGR111",12,0) D EN^VALM(MENU) "RTN","DGR111",13,0) Q "RTN","DGR111",14,0) ; "RTN","DGR111",15,0) HDR ;Header code "RTN","DGR111",16,0) N X "RTN","DGR111",17,0) D PID^VADPT "RTN","DGR111",18,0) S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30) "RTN","DGR111",19,0) S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")" "RTN","DGR111",20,0) S X="PATIENT TYPE UNKNOWN" "RTN","DGR111",21,0) I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^(0),U,1) "RTN","DGR111",22,0) S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80) "RTN","DGR111",23,0) ; DG*5.3*987; JAM; check for at least 1 plan and modify the message text "RTN","DGR111",24,0) I '$D(^DPT(DFN,"HBP",1)) S VALMHDR(2)="No Currently Stored VMBP Data" "RTN","DGR111",25,0) Q "RTN","DGR111",26,0) ; "RTN","DGR111",27,0) INIT ;Build patient HBP current screen "RTN","DGR111",28,0) D CLEAN^VALM10 "RTN","DGR111",29,0) D CLEAR^VALM1 "RTN","DGR111",30,0) D GETHBP(DFN) "RTN","DGR111",31,0) Q "RTN","DGR111",32,0) ; "RTN","DGR111",33,0) GETHBP(DFN) ;Load HBPs from HBP array into TMP(VALMAR global for display "RTN","DGR111",34,0) ; INPUT: DFN = Patient IEN "RTN","DGR111",35,0) N DGHBP,DGSEL,DGDATA,Z,HBPSRC,BRACKET,DGHBIEN,DGPNAME "RTN","DGR111",36,0) S VALMCNT=0,(DGDATA,HBPSRC)="" "RTN","DGR111",37,0) D GETHBP^DGHBPUTL(DFN) "RTN","DGR111",38,0) S DGHBP="" "RTN","DGR111",39,0) F S DGHBP=$O(HBP("CUR",DGHBP)) Q:DGHBP="" D "RTN","DGR111",40,0) . S HBPSRC=$S(HBPSRC="E":"E",1:$P(HBP("CUR",DGHBP),"^",5)) "RTN","DGR111",41,0) S BRACKET=$S(HBPSRC="E":"<>",1:"[]") "RTN","DGR111",42,0) F S DGHBP=$O(HBP("CUR",DGHBP)) Q:DGHBP="" D "RTN","DGR111",43,0) . S DGDATA=HBP("CUR",DGHBP) "RTN","DGR111",44,0) . ; DG*5.3*987; jam; Place "zz" before the plan name for inactive plans "RTN","DGR111",45,0) . S DGHBIEN=+DGDATA "RTN","DGR111",46,0) . I $P($G(^DGHBP(25.11,DGHBIEN,0)),"^",4)="Y" S DGPNAME="zz "_DGHBP "RTN","DGR111",47,0) . E S DGPNAME=DGHBP "RTN","DGR111",48,0) . S VALMCNT=VALMCNT+1 "RTN","DGR111",49,0) . S Z=$E(BRACKET)_VALMCNT_$E(BRACKET,2)_" "_DGPNAME "RTN","DGR111",50,0) . S DGSEL(VALMCNT)=DGPNAME "RTN","DGR111",51,0) . D SET^VALM10(VALMCNT,Z,VALMCNT) "RTN","DGR111",52,0) Q "RTN","DGR111",53,0) ; "RTN","DGR111",54,0) HELP ;Help code "RTN","DGR111",55,0) S X="?" D DISP^XQORM1 W !! "RTN","DGR111",56,0) ; DG*53*987; jam; Add this to the help screen. "RTN","DGR111",57,0) W "Plan name preceded by 'zz' indicates the plan is inactive.",! "RTN","DGR111",58,0) Q "RTN","DGR111",59,0) ; "RTN","DGR111",60,0) EXIT ;Exit code "RTN","DGR111",61,0) D CLEAN^VALM10 "RTN","DGR111",62,0) D CLEAR^VALM1 "RTN","DGR111",63,0) ;K ^TMP("DGRP111",$J) "RTN","DGR111",64,0) Q "RTN","DGR111",65,0) ; "RTN","DGR111",66,0) PEXIT ;DGEN MSDS MENU protocol exit code "RTN","DGR111",67,0) S VALMSG="+ Next Screen - Prev Screen ?? More Actions" "RTN","DGR111",68,0) Q "RTN","DGR111",69,0) ; "RTN","DGR111",70,0) ACT(DGACT) ; Entry point for menu action selection "RTN","DGR111",71,0) ; = "VH" - View History - DGEN HBP View History protocol "RTN","DGR111",72,0) ; = "VD" - View Detail of HBP "RTN","DGR111",73,0) N DGACTU,DA,DIE,DIC,DIK,DIPA,DR,X,Y,DGHBP,HPSRC,HBP "RTN","DGR111",74,0) I $G(DGACT)="" G ACTQ "RTN","DGR111",75,0) I $G(DGACT)="Q" Q "RTN","DGR111",76,0) ; Determine if any HBPs were processed by ESR "RTN","DGR111",77,0) S (DGDATA,HBPSRC)="" "RTN","DGR111",78,0) D GETHBP^DGHBPUTL(DFN) "RTN","DGR111",79,0) S DGHBP="" "RTN","DGR111",80,0) F S DGHBP=$O(HBP("CUR",DGHBP)) Q:DGHBP="" D "RTN","DGR111",81,0) . S HBPSRC=$S(HBPSRC="E":"E",1:$P(HBP("CUR",DGHBP),"^",5)) "RTN","DGR111",82,0) ; "RTN","DGR111",83,0) D FULL^VALM1 "RTN","DGR111",84,0) ; If action is a VH then View History display screen (DGR113) then return to main screen "RTN","DGR111",85,0) I DGACT="VH" D EN^DGR113(DFN) G ACTQ "RTN","DGR111",86,0) ; If action is a VD then View Detail display screen (DGR114) then return to main screen "RTN","DGR111",87,0) I DGACT="VD" D EN^DGR114(DFN) G ACTQ "RTN","DGR111",88,0) ; If user does not choose VH or VD return to main screen "RTN","DGR111",89,0) W !,"Health Benefit Plan Profiles can only be edited/modified by an ESC user," "RTN","DGR111",90,0) W !,"please contact HEC to request changes/edits." "RTN","DGR111",91,0) D PAUSE^VALM1 "RTN","DGR111",92,0) ; "RTN","DGR111",93,0) ACTQ D INIT S VALMBCK="R" Q "RTN","DGR111",94,0) ; "RTN","DGR111",95,0) EXPND ; -- expand code "RTN","DGR111",96,0) Q "RTN","DGR111",97,0) ; "RTN","DGR113") 0^8^B7068957^B3780049 "RTN","DGR113",1,0) DGR113 ;ALB/TGH,HM,KUM - Health Benefit Plan View History - List Manager Screen ;5/21/19 10:56am "RTN","DGR113",2,0) ;;5.3;Registration;**871,987**;Aug 13, 1993;Build 22 "RTN","DGR113",3,0) ; "RTN","DGR113",4,0) EN(DFN) ;Main entry point to invoke the DGEN HBP VIEW list "RTN","DGR113",5,0) ; Input -- DFN Patient IEN "RTN","DGR113",6,0) ; "RTN","DGR113",7,0) D WAIT^DICD "RTN","DGR113",8,0) D EN^VALM("DGEN HBP VIEW") "RTN","DGR113",9,0) Q "RTN","DGR113",10,0) ; "RTN","DGR113",11,0) HDR ;Header code "RTN","DGR113",12,0) N X "RTN","DGR113",13,0) D PID^VADPT "RTN","DGR113",14,0) S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30) "RTN","DGR113",15,0) S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")" "RTN","DGR113",16,0) S X="PATIENT TYPE UNKNOWN" "RTN","DGR113",17,0) I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^(0),U,1) "RTN","DGR113",18,0) S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80) "RTN","DGR113",19,0) Q "RTN","DGR113",20,0) ; "RTN","DGR113",21,0) INIT ;Build patient HBP View History screen "RTN","DGR113",22,0) N DGPLAN "RTN","DGR113",23,0) D CLEAN^VALM10 "RTN","DGR113",24,0) D CLEAR^VALM1 "RTN","DGR113",25,0) D GETPLAN "RTN","DGR113",26,0) Q "RTN","DGR113",27,0) ; "RTN","DGR113",28,0) GETPLAN ;Load History from HBP array into TMP(VALMAR global for display "RTN","DGR113",29,0) N DTTIME,CNT,LINEVAR "RTN","DGR113",30,0) S VALMCNT=0 "RTN","DGR113",31,0) S LINEVAR="HISTORY" "RTN","DGR113",32,0) D GETHBP^DGHBPUTL "RTN","DGR113",33,0) ; Go thru History and set individual values into Global for display "RTN","DGR113",34,0) S CNT=0 "RTN","DGR113",35,0) F S CNT=$O(HBP("HIS",CNT)) Q:CNT="" D "RTN","DGR113",36,0) . S DTTIME="" "RTN","DGR113",37,0) . F S DTTIME=$O(HBP("HIS",CNT,DTTIME)) Q:DTTIME="" D "RTN","DGR113",38,0) . . N DATA,Y "RTN","DGR113",39,0) . . S DATA=HBP("HIS",CNT,DTTIME) "RTN","DGR113",40,0) . . S Y=DTTIME X ^DD("DD") "RTN","DGR113",41,0) . . S VALMCNT=VALMCNT+1 "RTN","DGR113",42,0) . . S LINEVAR=$$SETFLD^VALM1("["_VALMCNT_"]",LINEVAR,"NO") ; DG*5.3*987 KUM "RTN","DGR113",43,0) . . S LINEVAR=$$SETFLD^VALM1($S($P(DATA,"^",5)="A":" ASSIGN",1:" UNASSIGN"),LINEVAR,"ACTION") ; DG*5.3*987 HM "RTN","DGR113",44,0) . . S LINEVAR=$$SETFLD^VALM1($P($TR(Y,"@"," ")," ",1,2),LINEVAR,"DATE/TIME") "RTN","DGR113",45,0) . . ; DG*5.3*987 KUM "RTN","DGR113",46,0) . . S LINEVAR=$$SETSTR^VALM1($P(DATA,"^",1),LINEVAR,28,139) "RTN","DGR113",47,0) . . D SET^VALM10(VALMCNT,LINEVAR,VALMCNT) "RTN","DGR113",48,0) Q "RTN","DGR113",49,0) ; "RTN","DGR113",50,0) HELP ;Help code "RTN","DGR113",51,0) S X="?" D DISP^XQORM1 W !! "RTN","DGR113",52,0) Q "RTN","DGR113",53,0) ; "RTN","DGR113",54,0) EXIT ;Exit code "RTN","DGR113",55,0) D CLEAN^VALM10 "RTN","DGR113",56,0) D CLEAR^VALM1 "RTN","DGR113",57,0) Q "RTN","DGR113",58,0) ; "RTN","DGR113",59,0) ACTION ; Get users entered data and process entry to add HBP "RTN","DGR113",60,0) ; DG*5.3*987 - KUM "RTN","DGR113",61,0) N I,VALMY,VALMNOD "RTN","DGR113",62,0) D FULL^VALM1 "RTN","DGR113",63,0) S VALMNOD="3^4450^Select HBP^1-36" "RTN","DGR113",64,0) D EN^VALM2(VALMNOD,"S") "RTN","DGR113",65,0) S I="" "RTN","DGR113",66,0) F S I=$O(VALMY(I)) Q:I="" D "RTN","DGR113",67,0) . S ACT=$O(@VALMAR@("IDX",I,"")) "RTN","DGR113",68,0) . S DGNAME=@VALMAR@(ACT,0) "RTN","DGR113",69,0) . S DGACT=$$FIND1^DIC(25.11,,"XQ",$$TRIM^XLFSTR($E(DGNAME,28,999))) "RTN","DGR113",70,0) . D ACT(DGACT) "RTN","DGR113",71,0) Q "RTN","DGR113",72,0) ; "RTN","DGR113",73,0) ACT(DGACT) ; Entry point for menu action selection "RTN","DGR113",74,0) ; INPUT: DGACT = Plan number to be assigned "RTN","DGR113",75,0) I $G(DGACT)="" Q "RTN","DGR113",76,0) ; Gather data and send to print in EXPND "RTN","DGR113",77,0) D GETDETL^DGHBPUTL(DGACT) "RTN","DGR113",78,0) Q "RTN","DGR113",79,0) ; "RTN","DGR113",80,0) EXPND ; -- expand code "RTN","DGR113",81,0) ; DG*5.3*987 - KUM - For Expand Functionality "RTN","DGR113",82,0) N CNT,LST,ACT,DGNAME,DGACT "RTN","DGR113",83,0) D ACTION "RTN","DGR113",84,0) S VALMBCK="R" "RTN","DGR113",85,0) I $G(DGACT)="" Q "RTN","DGR113",86,0) D FULL^VALM1 "RTN","DGR113",87,0) D EN^DGR1131(DFN,DGNAME,.HBP) "RTN","DGR113",88,0) S VALMBCK="R" "RTN","DGR113",89,0) Q "RTN","DGR113",90,0) ; "RTN","DGR113",91,0) PEXIT ; MENU protocol exit code "RTN","DGR113",92,0) S VALMSG="+ Next Screen - Prev Screen ?? More Actions" "RTN","DGR113",93,0) Q "RTN","DGR113",94,0) ; "RTN","DGR1131") 0^9^B5332919^n/a "RTN","DGR1131",1,0) DGR1131 ;ALB/KUM - Health Benefit Plan View History Expanded - List Manager Screen for screen 11.3.1 ;5/30/19 10:56am "RTN","DGR1131",2,0) ;;5.3;Registration;**987**;Aug 13, 1993;Build 22 "RTN","DGR1131",3,0) ; "RTN","DGR1131",4,0) EN(DFN,DGNAME,HBP) ;Main entry point to invoke the DGEN HBP VIEWEXP list "RTN","DGR1131",5,0) ; Input -- DFN Patient ID "RTN","DGR1131",6,0) ; DGNAME Text for plan selected from the list in screen 11.3 "RTN","DGR1131",7,0) ; HBP Patient Plan Details array "RTN","DGR1131",8,0) ; "RTN","DGR1131",9,0) D WAIT^DICD "RTN","DGR1131",10,0) D EN^VALM("DGEN HBP VIEWEXP") "RTN","DGR1131",11,0) Q "RTN","DGR1131",12,0) ; "RTN","DGR1131",13,0) HDR ;Header code "RTN","DGR1131",14,0) N X,DGSTR,DGWD,DGSPC,DGPLAN "RTN","DGR1131",15,0) D PID^VADPT "RTN","DGR1131",16,0) S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30) "RTN","DGR1131",17,0) S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")" "RTN","DGR1131",18,0) S X="PATIENT TYPE UNKNOWN" "RTN","DGR1131",19,0) I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^DG(391,+^DPT(DFN,"TYPE"),0),U,1) "RTN","DGR1131",20,0) S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80) "RTN","DGR1131",21,0) S VALMHDR(2)=" " "RTN","DGR1131",22,0) S VALMHDR(3)="Action Date Plan Name" "RTN","DGR1131",23,0) S VALMHDR(4)="------ ---- ---------" "RTN","DGR1131",24,0) S DGSTR=$$TRIM^XLFSTR($E(DGNAME,6,999)),DGWD=80,DGSPC=" " "RTN","DGR1131",25,0) D FSTRING(DGSTR,DGWD,.DGPLAN) "RTN","DGR1131",26,0) S VALMHDR(5)=DGPLAN(1,0) "RTN","DGR1131",27,0) I DGPLAN=2 D "RTN","DGR1131",28,0) .S VALMHDR(6)=DGSPC_DGPLAN(2,0) "RTN","DGR1131",29,0) S VALMHDR(7)=" " "RTN","DGR1131",30,0) S VALMSG="+ Next Screen - Prev Screen ?? More Actions" "RTN","DGR1131",31,0) Q "RTN","DGR1131",32,0) ; "RTN","DGR1131",33,0) INIT ; -- init variables and list array "RTN","DGR1131",34,0) N DGACT,LST,CNT "RTN","DGR1131",35,0) D CLEAN^VALM10 "RTN","DGR1131",36,0) D CLEAR^VALM1 "RTN","DGR1131",37,0) S LST=$P(HBP("DETAIL",0),"^",4) "RTN","DGR1131",38,0) I LST="" W !,"No detail description is available for this Veteran Medical Benefit Plan" "RTN","DGR1131",39,0) S DGACT=$$FIND1^DIC(25.11,,"XQ",$$TRIM^XLFSTR($E(DGNAME,28,999))) "RTN","DGR1131",40,0) F CNT=1:1:LST D SET^VALM10(CNT," "_HBP("DETAIL",DGACT,CNT)) "RTN","DGR1131",41,0) S VALMCNT=CNT "RTN","DGR1131",42,0) S VALMBCK="R" "RTN","DGR1131",43,0) Q "RTN","DGR1131",44,0) ; "RTN","DGR1131",45,0) HELP ; -- help code "RTN","DGR1131",46,0) S X="?" D DISP^XQORM1 W !! "RTN","DGR1131",47,0) Q "RTN","DGR1131",48,0) ; "RTN","DGR1131",49,0) EXIT ; -- exit code "RTN","DGR1131",50,0) Q "RTN","DGR1131",51,0) ; "RTN","DGR1131",52,0) EXPND ; -- expand code "RTN","DGR1131",53,0) Q "RTN","DGR1131",54,0) ; "RTN","DGR1131",55,0) PEXIT ; MENU protocol exit code "RTN","DGR1131",56,0) S VALMSG="+ Next Screen - Prev Screen ?? More Actions" "RTN","DGR1131",57,0) Q "RTN","DGR1131",58,0) ; "RTN","DGR1131",59,0) FSTRING(DGSTR,DGWD,DGARRAY) ;Parse text string into lines of length DGWD "RTN","DGR1131",60,0) ; Input: "RTN","DGR1131",61,0) ; DGSTR - (required) Text string to be parsed "RTN","DGR1131",62,0) ; DGWD - Length of parsed lines (default =80) "RTN","DGR1131",63,0) ; "RTN","DGR1131",64,0) ; Output: "RTN","DGR1131",65,0) ; DGARRAY - (required) Result array of formatted output text, passed by reference "RTN","DGR1131",66,0) ; "RTN","DGR1131",67,0) N X,DGI,DIWL,DIWR,DIWF "RTN","DGR1131",68,0) K DGARRAY,^UTILITY($J,"W") "RTN","DGR1131",69,0) S X=$G(DGSTR) "RTN","DGR1131",70,0) I X'="" S DIWL=1,DIWR=$G(DGWD,80),DIWF="" D ^DIWP "RTN","DGR1131",71,0) I $D(^UTILITY($J,"W")) M DGARRAY=^UTILITY($J,"W",1) "RTN","DGR1131",72,0) K ^UTILITY($J,"W") "RTN","DGR1131",73,0) Q "RTN","DGR114") 0^10^B6048898^B5179815 "RTN","DGR114",1,0) DGR114 ;ALB/TGH,JAM - Health Benefit Plan View Detail - List Manager Screen ;7/8/19 10:56am "RTN","DGR114",2,0) ;;5.3;Registration;**871,987**;Aug 13, 1993;Build 22 "RTN","DGR114",3,0) ; "RTN","DGR114",4,0) EN(DFN) ;Main entry point to invoke the DGEN HBP DETAIL list "RTN","DGR114",5,0) ; Input -- DFN Patient IEN "RTN","DGR114",6,0) ; "RTN","DGR114",7,0) D WAIT^DICD "RTN","DGR114",8,0) D EN^VALM("DGEN HBP DETAIL") "RTN","DGR114",9,0) Q "RTN","DGR114",10,0) ; "RTN","DGR114",11,0) HDR ;Header code "RTN","DGR114",12,0) N X "RTN","DGR114",13,0) D PID^VADPT "RTN","DGR114",14,0) S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30) "RTN","DGR114",15,0) S VALMHDR(1)=VALMHDR(1)_" ("_VA("BID")_")" "RTN","DGR114",16,0) S X="PATIENT TYPE UNKNOWN" "RTN","DGR114",17,0) I $D(^DPT(DFN,"TYPE")),$D(^DG(391,+^("TYPE"),0)) S X=$P(^(0),U,1) "RTN","DGR114",18,0) S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80) "RTN","DGR114",19,0) Q "RTN","DGR114",20,0) ; "RTN","DGR114",21,0) INIT ;Build patient HBP current screen "RTN","DGR114",22,0) D CLEAN^VALM10 "RTN","DGR114",23,0) D CLEAR^VALM1 "RTN","DGR114",24,0) D GETPLAN "RTN","DGR114",25,0) Q "RTN","DGR114",26,0) ; "RTN","DGR114",27,0) GETPLAN ;Load Plans from HBP array into TMP(VALMAR global for display "RTN","DGR114",28,0) N DGPLAN,Z,DGHBIEN "RTN","DGR114",29,0) D GETPLAN^DGHBPUTL "RTN","DGR114",30,0) S DGPLAN="",VALMCNT=0 "RTN","DGR114",31,0) F S DGPLAN=$O(HBP("PLAN",DGPLAN)) Q:DGPLAN="" D "RTN","DGR114",32,0) . ;DG*5.3*987 - JAM - Filter out Inactive Plans "RTN","DGR114",33,0) . S DGHBIEN=HBP("PLAN",DGPLAN) "RTN","DGR114",34,0) . I $P($G(^DGHBP(25.11,DGHBIEN,0)),"^",4)="Y" Q "RTN","DGR114",35,0) .; "RTN","DGR114",36,0) . S VALMCNT=VALMCNT+1 "RTN","DGR114",37,0) . S Z="["_VALMCNT_"]"_" "_DGPLAN "RTN","DGR114",38,0) . D SET^VALM10(VALMCNT,Z,VALMCNT) "RTN","DGR114",39,0) Q "RTN","DGR114",40,0) ; "RTN","DGR114",41,0) HELP ;Help code "RTN","DGR114",42,0) S X="?" D DISP^XQORM1 W !! "RTN","DGR114",43,0) Q "RTN","DGR114",44,0) ; "RTN","DGR114",45,0) ACTION ; Get users entered data and process entry to add HBP "RTN","DGR114",46,0) N I,VALMY,VALMNOD "RTN","DGR114",47,0) D FULL^VALM1 "RTN","DGR114",48,0) S VALMNOD="3^4450^Select HBP^1-36" "RTN","DGR114",49,0) D EN^VALM2(VALMNOD,"S") "RTN","DGR114",50,0) S I="" "RTN","DGR114",51,0) F S I=$O(VALMY(I)) Q:I="" D "RTN","DGR114",52,0) . S ACT=$O(@VALMAR@("IDX",I,"")) "RTN","DGR114",53,0) . S DGNAME=$P(@VALMAR@(ACT,0)," ",3,99) "RTN","DGR114",54,0) . S DGACT=HBP("PLAN",DGNAME) "RTN","DGR114",55,0) . D ACT(DGACT) "RTN","DGR114",56,0) Q "RTN","DGR114",57,0) ; "RTN","DGR114",58,0) ACT(DGACT) ; Entry point for menu action selection "RTN","DGR114",59,0) ; INPUT: DGACT = Plan number to be assigned "RTN","DGR114",60,0) I $G(DGACT)="" Q "RTN","DGR114",61,0) ; Gather data and send to print in EXPND "RTN","DGR114",62,0) D GETDETL^DGHBPUTL(DGACT) "RTN","DGR114",63,0) Q "RTN","DGR114",64,0) ; "RTN","DGR114",65,0) EXIT ;Exit code "RTN","DGR114",66,0) D CLEAN^VALM10 "RTN","DGR114",67,0) D CLEAR^VALM1 "RTN","DGR114",68,0) Q "RTN","DGR114",69,0) ; "RTN","DGR114",70,0) PEXIT ; MENU protocol exit code "RTN","DGR114",71,0) S VALMSG="+ Next Screen - Prev Screen ?? More Actions" "RTN","DGR114",72,0) Q "RTN","DGR114",73,0) ; "RTN","DGR114",74,0) EXPND ; -- expand code "RTN","DGR114",75,0) N CNT,LST,ACT,DGNAME,DGACT "RTN","DGR114",76,0) D ACTION "RTN","DGR114",77,0) S VALMBCK="R" "RTN","DGR114",78,0) I $G(DGACT)="" Q "RTN","DGR114",79,0) S LST=$P(HBP("DETAIL",0),"^",4) "RTN","DGR114",80,0) I LST="" W !,"No detail description is available for this Veteran Medical Benefit Plan" ;DG*5.3*987 HM "RTN","DGR114",81,0) F CNT=1:1:LST W !,HBP("DETAIL",DGACT,CNT) "RTN","DGR114",82,0) S VALMBCK="R" "RTN","DGR114",83,0) D PAUSE^VALM1 "RTN","DGR114",84,0) Q "RTN","DGR114",85,0) ; "RTN","DGRP11") 0^4^B13288054^B13083153 "RTN","DGRP11",1,0) DGRP11 ;ALB/MRL,RTK,PHH,PWC,HM - REGISTRATION SCREEN 11/VERIFICATION INFORMATION ;3/23/06 8:10am "RTN","DGRP11",2,0) ;;5.3;Registration;**327,631,709,871,987**;Aug 13, 1993;Build 22 "RTN","DGRP11",3,0) ; "RTN","DGRP11",4,0) S DGRPS=11 D H^DGRPU F I=.3,.32,.36,.361,"TYPE","VET" S DGRP(I)=$S($D(^DPT(DFN,I)):^(I),1:"") "RTN","DGRP11",5,0) S (DGRPW,Z)=1 D WW^DGRPV W " Eligibility Status: " S DGRPX=DGRP(.361),X=$P(DGRPX,"^",1),Z=$S(X']"":"NOT VERIFIED",X="V":"VERIFIED",X="R":"PENDING RE-VERIFICATION",1:"PENDING VERIFICATION"),Z1=28 D WW1^DGRPV S DGRPVR=$S(X]"":1,1:0) "RTN","DGRP11",6,0) W "Status Date: " S Y=$P(DGRPX,"^",2) X:Y]"" ^DD("DD") W $S(Y]"":Y,DGRPVR:DGRPU,1:DGRPNA),!?5,"Status Entered By: ",$S($D(^VA(200,+$P(DGRPX,"^",6),0)):$P(^(0),"^",1)_" (#"_+$P(DGRPX,"^",6)_")",DGRPVR:DGRPU,1:DGRPNA) "RTN","DGRP11",7,0) W !?6,"Interim Response: " S Y=$P(DGRPX,"^",4) X:Y]"" ^DD("DD") W $S(Y]"":Y,1:DGRPU_" (NOT REQUIRED)"),!?9,"Verif. Method: ",$S($P(DGRPX,"^",5)]"":$P(DGRPX,"^",5),DGRPVR:DGRPU,1:DGRPNA) "RTN","DGRP11",8,0) ;Added display of ELIGIBILITY VERIF. SOURCE for Ineligible Project: "RTN","DGRP11",9,0) W !?9,"Verif. Source: ",$S($P(DGRPX,"^",3)="H":"HEC",$P(DGRPX,"^",3)="V":"VISTA",1:"NOT AVAILABLE") "RTN","DGRP11",10,0) S Z=2 D WW^DGRPV W " Money Verified: " S Y=$P(DGRP(.3),"^",6) X:Y]"" ^DD("DD") W $S(Y]"":Y,1:"NOT VERIFIED") S Z=3 D WW^DGRPV W " Service Verified: " S Y=$P(DGRP(.32),"^",2) X:Y]"" ^DD("DD") W $S(Y]"":Y,1:"NOT VERIFIED") "RTN","DGRP11",11,0) S Z=4 D WW^DGRPV W " Rated Disabilities: " I $P(DGRP("VET"),"^",1)'="Y",$S('$D(^DG(391,+DGRP("TYPE"),0)):1,$P(^(0),"^",2):0,1:1) W DGRPNA," - NOT A VETERAN" G HBP "RTN","DGRP11",12,0) N DGEC,DGEFF "RTN","DGRP11",13,0) S DGEC=$P($G(DGRP(.36)),U) "RTN","DGRP11",14,0) I $G(DGEC) I $D(^DIC(8,DGEC)) S DGEC=$P(^DIC(8,DGEC,0),U) "RTN","DGRP11",15,0) W " SC%: ",$S($G(DGEC)="NSC":"",$P($G(DGRP(.3)),U,2)="":"",1:$P($G(DGRP(.3)),U,2)) "RTN","DGRP11",16,0) S DGEFF=$P($G(DGRP(.3)),U,14) "RTN","DGRP11",17,0) I $G(DGEFF)]"" S Y=DGEFF X ^DD("DD") S DGEFF=Y "RTN","DGRP11",18,0) W " EFF. DATE OF COMBINED SC%: "_$G(DGEFF),! "RTN","DGRP11",19,0) N DGQUIT "RTN","DGRP11",20,0) W ?55,"Orig",?70,"Curr" "RTN","DGRP11",21,0) W !?3,"Rated Disability",?46,"Extr",?55,"Eff Dt",?70,"Eff Dt" "RTN","DGRP11",22,0) S I3=0 "RTN","DGRP11",23,0) I '$$RDIS^DGRPDB(DFN,.DGARR) W !,"NONE STATED" G HBP "RTN","DGRP11",24,0) F DGC=0:0 S DGC=$O(DGARR(DGC)) Q:'DGC D "RTN","DGRP11",25,0) . S I3=I3+1 "RTN","DGRP11",26,0) . N DGCURR,DGORIG,DG0,DG1,DG2,DG4,DG5 "RTN","DGRP11",27,0) . I $G(DGARR(DGC))']"" Q "RTN","DGRP11",28,0) . S DGZERO=+DGARR(DGC) "RTN","DGRP11",29,0) . I '$D(^DIC(31,DGZERO,0)) Q "RTN","DGRP11",30,0) . S DG0=$P(^DIC(31,DGZERO,0),U,3) "RTN","DGRP11",31,0) . S DG1=$P(^DIC(31,DGZERO,0),U) "RTN","DGRP11",32,0) . S DG2="("_$S($P(DGARR(DGC),U,3)=1:$P(DGARR(DGC),U,2)_"% SC",$P(DGARR(DGC),U,3)]"":$P(DGARR(DGC),U,2)_"% NSC",1:"unspec")_")" "RTN","DGRP11",33,0) . S DG4=$P(DGARR(DGC),U,4),DG5=$P(DGARR(DGC),U,5),DG6=$P(DGARR(DGC),U,6) "RTN","DGRP11",34,0) . I DG5]"" S Y=DG5 X ^DD("DD") S DGORIG=Y "RTN","DGRP11",35,0) . I DG6]"" S Y=DG6 X ^DD("DD") S DGCURR=Y "RTN","DGRP11",36,0) . I $Y>(IOSL-3) D PAUSE^DGRPDB I $G(DGQUIT)=0 W @IOF "RTN","DGRP11",37,0) . I $G(DGQUIT)=1 Q "RTN","DGRP11",38,0) . W !,$G(DG0)_"-",DG1,DG2,?47,$G(DG4),?50," - ",?53,$G(DGORIG),?64," - ",?68,$G(DGCURR) "RTN","DGRP11",39,0) W:'I3 !,"NONE STATED" "RTN","DGRP11",40,0) HBP ; LINE FOR HEALTH BENEFIT PLAN (DG*53*871) "RTN","DGRP11",41,0) W ! S Z=5 "RTN","DGRP11",42,0) W:DGRPW ! S Z="["_Z_"]" "RTN","DGRP11",43,0) I DGRPCM!($E(Z)="[") W @DGVI,Z,@DGVO "RTN","DGRP11",44,0) I 'DGRPCM&($E(Z)'="[") W Z "RTN","DGRP11",45,0) ; D WW^DGRPV Removed to always have #5 selectable then sub screens of 11 will control edit and view capabilities "RTN","DGRP11",46,0) W " Veteran Medical Benefit Plan (VMBP): " N CNT,PLN D ;DG*5.3*987 HM "RTN","DGRP11",47,0) . S (CNT,PLN)=0 F S PLN=$O(^DPT(DFN,"HBP",PLN)) Q:PLN<1 S CNT=CNT+1 "RTN","DGRP11",48,0) W $S(CNT>0:" ("_CNT_" Plan"_$S(CNT=1:"",1:"s")_" on file)",1:" (None Specified)") "RTN","DGRP11",49,0) Q G ^DGRPP "RTN","DGRPD") 0^3^B110727160^B102167809 "RTN","DGRPD",1,0) DGRPD ;ALB/MRL,MLR,JAN,LBD,EG,BRM,JRC,BAJ,JAM,HM -PATIENT INQUIRY (NEW) ;July 09, 2014 12:16pm "RTN","DGRPD",2,0) ;;5.3;Registration;**109,124,121,57,161,149,286,358,436,445,489,498,506,513,518,550,545,568,585,677,703,688,887,907,925,936,940,941,987**;Aug 13, 1993;Build 22 "RTN","DGRPD",3,0) ; *286* Newing variables X,Y in OKLINE subroutine "RTN","DGRPD",4,0) ; *358* If a patient is on a domiciliary ward, don't display MEANS "RTN","DGRPD",5,0) ; TEST required/Medication Copayment Exemption messages "RTN","DGRPD",6,0) ; *436* If an inpatient is not on a domiciliary ward, don't display "RTN","DGRPD",7,0) ; Medication Copayment Exemption message "RTN","DGRPD",8,0) ; *545* Add death information near the remarks field "RTN","DGRPD",9,0) ; *677* Added Emergency Response "RTN","DGRPD",10,0) ; *688* Modified to display Country and Foreign Address "RTN","DGRPD",11,0) ; *936* Modified to display Health Benefit Plans "RTN","DGRPD",12,0) ; *940* #879316,#879318 - Display Permanent & Total Disabled Status "RTN","DGRPD",13,0) ; *941* #887088 - Redesign of Inquiry Screen layout for displaying the addresses "RTN","DGRPD",14,0) ; "RTN","DGRPD",15,0) ; Integration Agreements: "RTN","DGRPD",16,0) ; 6138 - DGHBPUTL API "RTN","DGRPD",17,0) ; "RTN","DGRPD",18,0) SEL K DFN,DGRPOUT W ! S DIC="^DPT(",DIC(0)="AEQMZ" D ^DIC G Q:Y'>0 S DFN=+Y N Y W ! S DIR(0)="E" D ^DIR G SEL:$D(DTOUT)!($D(DUOUT)) D EN G SEL "RTN","DGRPD",19,0) EN ;call to display patient inquiry - input DFN "RTN","DGRPD",20,0) ;MPI/PD CHANGE "RTN","DGRPD",21,0) S DGCMOR="UNSPECIFIED",DGMPI=$G(^DPT(+DFN,"MPI")) "RTN","DGRPD",22,0) K DGRPOUT,DGHOW S DGABBRV=$S($D(^DG(43,1,0)):+$P(^(0),"^",38),1:0),DGRPU="UNSPECIFIED" D DEM^VADPT,HDR^DGRPD1 "RTN","DGRPD",23,0) ;JAM begin changes Patch DG*5.3*941 add .115 and new address fields layout "RTN","DGRPD",24,0) F I=0,.11,.13,.121,.122,.31,.32,.36,.361,.141,.3,.115 S DGRP(I)=$S($D(^DPT(DFN,I)):^(I),1:"") "RTN","DGRPD",25,0) ;jam DG*5.3*925 RM#788099 change labels to "Permanent Mailing Address" and "Temporary Mailing Address" "RTN","DGRPD",26,0) ; "RTN","DGRPD",27,0) W " Residential Address: " "RTN","DGRPD",28,0) W ?40,"Permanent Mailing Address: " "RTN","DGRPD",29,0) S DGAD=.115,(DGA1,DGA2)=1 D AL^DGRPU(35) S DGAD=.11,DGA1=1,DGA2=2 D AL^DGRPU(35) "RTN","DGRPD",30,0) W !?5 "RTN","DGRPD",31,0) N Z,Z1 "RTN","DGRPD",32,0) S Z1=39,Z=$S($D(DGA(1)):DGA(1),1:"NONE ON FILE") D WW1^DGRPV W $S($D(DGA(2)):DGA(2),1:"NO PERMANENT MAILING ADDRESS") "RTN","DGRPD",33,0) ; loop through DGA array beginning with DGA(2) and print data at ?5 (odds) and ?44 (evens) "RTN","DGRPD",34,0) S I=2 F I1=0:0 S I=$O(DGA(I)) Q:I="" W:(I#2)!($X>40) !?5 W:'(I#2) ?44 W DGA(I) "RTN","DGRPD",35,0) N DGCC "RTN","DGRPD",36,0) S DGCC=$$COUNTY^DGRPCADD(.DGRP,.115) ; print County if applicable "RTN","DGRPD",37,0) W !?5,"County: "_DGCC "RTN","DGRPD",38,0) S DGCC=$$COUNTY^DGRPCADD(.DGRP,.11) ; print County if applicable "RTN","DGRPD",39,0) W ?44,"County: "_DGCC "RTN","DGRPD",40,0) W !?6,"Phone: ",$S($P(DGRP(.13),U,1)]"":$P(DGRP(.13),U,1),1:DGRPU) "RTN","DGRPD",41,0) W ?42,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16)) "RTN","DGRPD",42,0) W !?5,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU) "RTN","DGRPD",43,0) W ?46,"Cell: ",$S($P(DGRP(.13),U,4)]"":$P(DGRP(.13),U,4),1:DGRPU) "RTN","DGRPD",44,0) W !?44,"E-mail: ",$S($P(DGRP(.13),U,3)]"":$P(DGRP(.13),U,3),1:DGRPU) "RTN","DGRPD",45,0) W !! "RTN","DGRPD",46,0) K DGA,DGA1,DGA2 "RTN","DGRPD",47,0) I $P(DGRP(.121),"^",9)="Y" S DGAD=.121,(DGA1,DGA2)=1 D AL^DGRPU(30) "RTN","DGRPD",48,0) N CONACT "RTN","DGRPD",49,0) ; set Confidential Active Flag "RTN","DGRPD",50,0) S CONACT=$P(DGRP(.141),"^",9) "RTN","DGRPD",51,0) I CONACT="Y" D "RTN","DGRPD",52,0) .; check the begin/end dates, set active flag to NO and do not display if outside the date range "RTN","DGRPD",53,0) .N DGCABEG,DGCAEND,DGI "RTN","DGRPD",54,0) .S DGCABEG=$P(DGRP(.141),U,7),DGCAEND=$P(DGRP(.141),U,8) "RTN","DGRPD",55,0) .I 'DGCABEG!(DGCABEG>DT)!(DGCAEND&(DGCAEND40) !?5 W:'(I#2) ?44 W DGA(I) "RTN","DGRPD",63,0) W ! "RTN","DGRPD",64,0) I $D(DGA(1)) D "RTN","DGRPD",65,0) .S DGCC=$$COUNTY^DGRPCADD(.DGRP,.121) ; print County if applicable "RTN","DGRPD",66,0) .W ?5,"County: "_DGCC "RTN","DGRPD",67,0) I $D(DGA(2)) D "RTN","DGRPD",68,0) .S DGCC=$$COUNTY^DGRPCADD(.DGRP,.141) ; print County if applicable "RTN","DGRPD",69,0) .W ?44,"County: "_DGCC "RTN","DGRPD",70,0) ;W !?2,"CASS Cert: "_$S($P(DGRP(.121),U,15)="Y":"Certified",$P(DGRP(.121),U,15)="F":"Failed",1:"NC") "RTN","DGRPD",71,0) ;W ?41,"CASS Cert: "_$S($P(DGRP(.141),U,17)="Y":"Certified",$P(DGRP(.141),U,17)="F":"Failed",1:"NC") "RTN","DGRPD",72,0) W !?6,"Phone: ",$S($P(DGRP(.121),U,9)'="Y":"NOT APPLICABLE",$P(DGRP(.121),U,10)]"":$P(DGRP(.121),U,10),1:DGRPU) "RTN","DGRPD",73,0) W ?45,"Phone: ",$S($P(DGRP(.141),U,9)'="Y":"NOT APPLICABLE",CONACT'="Y":"NOT APPLICABLE",$P(DGRP(.13),U,15)]"":$P(DGRP(.13),U,15),1:DGRPU) "RTN","DGRPD",74,0) S X="NOT APPLICABLE" "RTN","DGRPD",75,0) I $P(DGRP(.121),U,9)="Y" D "RTN","DGRPD",76,0) .S Y=$P(DGRP(.121),U,7) X:Y]"" ^DD("DD") "RTN","DGRPD",77,0) .S X=$S(Y]"":Y,1:DGRPU)_"-",Y=$P(DGRP(.121),U,8) X:Y]"" ^DD("DD") "RTN","DGRPD",78,0) .S X=X_$S(Y]"":Y,1:DGRPU) "RTN","DGRPD",79,0) N DGACT,DGTYP,DGCAN,DGBEG,DGEND,DGZ,DGXX,DGX,DGTYPNAM,DGCAT "RTN","DGRPD",80,0) W !?2,"From/To: ",X "RTN","DGRPD",81,0) S DGX="NOT APPLICABLE" "RTN","DGRPD",82,0) I CONACT="Y" D "RTN","DGRPD",83,0) .S (DGZ,DGX)="" F DGI=7,8 S DGZ=$P(DGRP(.141),"^",DGI),Y=DGZ D "RTN","DGRPD",84,0) ..I DGI=7 X:Y]"" ^DD("DD") S DGBEG=Y,DGX=Y "RTN","DGRPD",85,0) ..I DGI=8 X:Y]"" ^DD("DD") S DGEND=Y,DGX=DGX_"-"_$S(Y]"":Y,1:"UNANSWERED") "RTN","DGRPD",86,0) W ?43,"From/To: "_DGX "RTN","DGRPD",87,0) W !?41,"Confidential Address Categories: " I $D(^DPT(DFN,.14)) D "RTN","DGRPD",88,0) .; If not active, do not display categories "RTN","DGRPD",89,0) .I CONACT'="Y" Q "RTN","DGRPD",90,0) .S DGCAT=$$GET1^DID(2.141,.01,"","POINTER","","DGERR") "RTN","DGRPD",91,0) .S DGX="",DGCAN="" F S DGCAN=$O(^DPT(DFN,.14,DGCAN)) Q:DGCAN="" D "RTN","DGRPD",92,0) ..Q:'$D(^DPT(DFN,.14,DGCAN,0)) "RTN","DGRPD",93,0) ..S DGTYP=$P(^DPT(DFN,.14,DGCAN,0),"^",1),DGACT=$P(^DPT(DFN,.14,DGCAN,0),"^",2) "RTN","DGRPD",94,0) ..S DGACT=$S(DGACT="Y":"Active",DGACT="N":"Inactive",1:"Unanswered") "RTN","DGRPD",95,0) ..S DGTYPNAM="" F DGI=1:1 S DGTYPNAM=$P(DGCAT,";",DGI) Q:DGTYPNAM="" D "RTN","DGRPD",96,0) ...I DGTYPNAM[DGTYP S DGTYPNAM=$P(DGTYPNAM,":",2),DGX=DGTYPNAM_"("_DGACT_")"_","_DGX "RTN","DGRPD",97,0) S DGXX="" F DGI=1:1 S DGXX=$P(DGX,",",DGI) Q:DGXX="" D "RTN","DGRPD",98,0) .W !?42,DGXX "RTN","DGRPD",99,0) ; "RTN","DGRPD",100,0) I '$$OKLINE^DGRPD1(16) G Q "RTN","DGRPD",101,0) N DGEMER S DGEMER=$$EXTERNAL^DILFD(2,.181,"",$P($G(^DPT(DFN,.18)),"^")) "RTN","DGRPD",102,0) W:DGEMER]"" !?32,"Emergency Response: ",DGEMER "RTN","DGRPD",103,0) I 'DGABBRV W !!?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"UNSPECIFIED") "RTN","DGRPD",104,0) I 'DGABBRV W !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46,"Birth Sex: ",$S($P(VADM(5),"^",2)]"":$P(VADM(5),"^",2),1:"UNSPECIFIED") ; DG*5.3*907 "RTN","DGRPD",105,0) I 'DGABBRV W ! D "RTN","DGRPD",106,0) .N RACE,ETHNIC,PTR,VAL,X,DIWL,DIWR,DIWF "RTN","DGRPD",107,0) .K ^UTILITY($J,"W") "RTN","DGRPD",108,0) .S PTR=0 F S PTR=+$O(^DPT(DFN,.02,PTR)) Q:'PTR D "RTN","DGRPD",109,0) ..S VAL=+$G(^DPT(DFN,.02,PTR,0)) "RTN","DGRPD",110,0) ..Q:$$INACTIVE^DGUTL4(VAL,1) "RTN","DGRPD",111,0) ..S VAL=$$PTR2TEXT^DGUTL4(VAL,1) S:+$O(^DPT(DFN,.02,PTR)) VAL=VAL_", " "RTN","DGRPD",112,0) ..S X=VAL,DIWL=0,DIWR=30,DIWF="" D ^DIWP "RTN","DGRPD",113,0) .M RACE=^UTILITY($J,"W",0) S:$G(RACE(1,0))="" RACE(1,0)="UNANSWERED" "RTN","DGRPD",114,0) .K ^UTILITY($J,"W") "RTN","DGRPD",115,0) .S PTR=0 F S PTR=+$O(^DPT(DFN,.06,PTR)) Q:'PTR D "RTN","DGRPD",116,0) ..S VAL=+$G(^DPT(DFN,.06,PTR,0)) "RTN","DGRPD",117,0) ..Q:$$INACTIVE^DGUTL4(VAL,2) "RTN","DGRPD",118,0) ..S VAL=$$PTR2TEXT^DGUTL4(VAL,2) S:+$O(^DPT(DFN,.06,PTR)) VAL=VAL_", " "RTN","DGRPD",119,0) ..S X=VAL,DIWL=0,DIWR=30,DIWF="" D ^DIWP "RTN","DGRPD",120,0) .M ETHNIC=^UTILITY($J,"W",0) S:$G(ETHNIC(1,0))="" ETHNIC(1,0)="UNANSWERED" "RTN","DGRPD",121,0) .K ^UTILITY($J,"W") "RTN","DGRPD",122,0) .W ?3,"Race: ",RACE(1,0),?40,"Ethnicity: ",ETHNIC(1,0) "RTN","DGRPD",123,0) .F X=2:1 Q:'$D(RACE(X,0))&'$D(ETHNIC(X,0)) W !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0)) "RTN","DGRPD",124,0) I '$$OKLINE^DGRPD1(16) G Q "RTN","DGRPD",125,0) D LANGUAGE "RTN","DGRPD",126,0) I '$$OKLINE^DGRPD1(10) G Q "RTN","DGRPD",127,0) ;display cv status #4156 "RTN","DGRPD",128,0) N DGCV S DGCV=$$CVEDT^DGCV(+DFN) "RTN","DGRPD",129,0) W !!,?2,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)="":"NOT ELIGIBLE",1:"EXPIRED") I DGCV>0 W ?45,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ") "RTN","DGRPD",130,0) ;display primary eligibility "RTN","DGRPD",131,0) S X1=DGRP(.36),X=$P(DGRP(.361),"^",1) W !,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU) "RTN","DGRPD",132,0) W !,"Other Eligibilities: " F I=0:0 S I=$O(^DIC(8,I)) Q:'I I $D(^DIC(8,I,0)),I'=+X1 S X=$P(^(0),"^",1)_", " I $D(^DPT("AEL",DFN,I)) W:$X+$L(X)>79 !?21 W X "RTN","DGRPD",133,0) I '$$OKLINE^DGRPD1(16) G Q "RTN","DGRPD",134,0) ;employability status "RTN","DGRPD",135,0) W !?6,"Unemployable: ",$S($P(DGRP(.3),U,5)="Y":"YES",1:"NO") "RTN","DGRPD",136,0) I '$$OKLINE^DGRPD1(19) G Q "RTN","DGRPD",137,0) ; KUM DG*5.3*940 RM #879316,#879318 - Display Permanent & Total Disabled status "RTN","DGRPD",138,0) W !?6,"Permanent & Total Disabled: ",$S($P(DGRP(.3),U,4)="Y":"YES",1:"NO") "RTN","DGRPD",139,0) I '$$OKLINE^DGRPD1(19) G Q "RTN","DGRPD",140,0) ;display the catastrophic disability review date if there is one "RTN","DGRPD",141,0) D CATDIS^DGRPD1 "RTN","DGRPD",142,0) I $G(DGPRFLG)=1 G Q:'$$OKLINE^DGRPD1(19) D "RTN","DGRPD",143,0) . N DGPDT,DGPTM "RTN","DGRPD",144,0) . W !,$$REPEAT^XLFSTR("-",78) "RTN","DGRPD",145,0) . S DGPDT="",DGPDT=$O(^DGS(41.41,"ADC",DFN,DGPDT),-1) "RTN","DGRPD",146,0) . W !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE") "RTN","DGRPD",147,0) . S DGPTM=$$PCTEAM^DGSDUTL(DFN) "RTN","DGRPD",148,0) . I $P(DGPTM,U,2)]"" W !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2) "RTN","DGRPD",149,0) . W !,$$REPEAT^XLFSTR("-",78) "RTN","DGRPD",150,0) ; Check if patient is an inpatient and on a DOM ward "RTN","DGRPD",151,0) ; If inpatient is on a DOM ward, don't display MT or CP messages "RTN","DGRPD",152,0) ; If inpatient is NOT on a DOM ward, don't display CP message "RTN","DGRPD",153,0) N DGDOM,DGDOM1,VAHOW,VAROOT,VAINDT,VAIP,VAERR "RTN","DGRPD",154,0) G Q:'$$OKLINE^DGRPD1(16) "RTN","DGRPD",155,0) D DOM^DGMTR "RTN","DGRPD",156,0) I '$G(DGDOM) D "RTN","DGRPD",157,0) .D DIS^DGMTU(DFN) "RTN","DGRPD",158,0) .D IN5^VADPT "RTN","DGRPD",159,0) .I $G(VAIP(1))="" D DISP^IBARXEU(DFN,DT,3,1) "RTN","DGRPD",160,0) ;I 'DGABBRV,$E(IOST,1,2)="C-" F I=$Y:1:20 W ! "RTN","DGRPD",161,0) D DIS^EASECU(DFN) ;Added for LTC III (DG*5.3*518) "RTN","DGRPD",162,0) S VAIP("L")="" "RTN","DGRPD",163,0) I $$OKLINE^DGRPD1(14) D INP "RTN","DGRPD",164,0) I '$G(DGRPOUT),($$OKLINE^DGRPD1(10)) D SA ;*KNR* "RTN","DGRPD",165,0) ;MPI/PD CHANGE "RTN","DGRPD",166,0) Q D KVA^VADPT K %DT,D0,D1,DGA,DGA1,DGA2,DGABBRV,DGAD,DGCC,DGCMOR,DGDOM,DGLOCATN,DGMPI,DGRP,DGRPU,DGS,DGST,DGXFR0,DIC,DIR,DTOUT,DUOUT,DIRUT,DIROUT,I,I1,L,LDM,POP,SDCT,VA,X,X1,Y Q "RTN","DGRPD",167,0) ; "RTN","DGRPD",168,0) INP S VAIP("D")="L" D INP^DGPMV10 "RTN","DGRPD",169,0) S DGPMT=0 "RTN","DGRPD",170,0) D CS^DGPMV10 K DGPMT,DGPMIFN K:'$D(DGSWITCH) DGPMVI,DGPMDCD Q "RTN","DGRPD",171,0) SA F I=0:0 S I=$O(^DGS(41.1,"B",DFN,I)) G CL:'I S X=^DGS(41.1,I,0) I $P(X,"^",2)>(DT-1),$P(X,"^",13)']"",'$P(X,"^",17) S L=$P(X,"^",2) D:$$OKLINE^DGRPD1(17) SAA Q:$G(DGRPOUT) "RTN","DGRPD",172,0) Q "RTN","DGRPD",173,0) SAA ;Scheduled Admit Data "RTN","DGRPD",174,0) W !!?14,"Scheduled Admit" "RTN","DGRPD",175,0) W:$D(^DIC(42,+$P(X,U,8),0)) " on ward "_$P(^(0),U) "RTN","DGRPD",176,0) W:$D(^DIC(45.7,+$P(X,U,9),0)) " for treating specialty "_$P(^(0),U) "RTN","DGRPD",177,0) W " on "_$$FMTE^XLFDT(L,"5DZ") "RTN","DGRPD",178,0) Q ;SAA "RTN","DGRPD",179,0) ; "RTN","DGRPD",180,0) CL G FA:$O(^DPT(DFN,"DE",0))="" S SDCT=0 F I=0:0 S I=$O(^DPT(DFN,"DE",I)) Q:'I I $D(^(I,0)),$P(^(0),"^",2)'="I",$O(^(0)) S SDCT=SDCT+1 W:SDCT=1 !!,"Currently enrolled in " W:$X>50 !?22 W $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"") "RTN","DGRPD",181,0) ; "RTN","DGRPD",182,0) FA ; "RTN","DGRPD",183,0) N DGARRAY,SDCNT "RTN","DGRPD",184,0) S DGARRAY("FLDS")="1;2;3;18",DGARRAY(4)=DFN,DGARRAY(1)=DT,DGARRAY("SORT")="P" "RTN","DGRPD",185,0) S SDCNT=$$SDAPI^SDAMA301(.DGARRAY),CT=0 W !!,"Future Appointments: " "RTN","DGRPD",186,0) ;if there is lower subscripts hanging from the 101 node, "RTN","DGRPD",187,0) ;then it is a valid appointment, otherwise it is "RTN","DGRPD",188,0) ;an error eg 01/20/2005 "RTN","DGRPD",189,0) ;G:'$$OKLINE^DGRPD1(13) RMK ;*///* "RTN","DGRPD",190,0) I $D(^TMP($J,"SDAMA301",101))=1 W "Appointment Database is Unavailable" G RMK "RTN","DGRPD",191,0) I $O(^TMP($J,"SDAMA301",DFN,DT))'>0 W "NONE" G RMK "RTN","DGRPD",192,0) ; "RTN","DGRPD",193,0) W ?22,"Date",?33,"Time",?39,"Clinic",!?22 F I=22:1:75 W "=" "RTN","DGRPD",194,0) F FA=DT:0 S FA=$O(^TMP($J,"SDAMA301",DFN,FA)) G RMK:'FA D Q:CT>5 "RTN","DGRPD",195,0) .N STAT S STAT=$P($P(^TMP($J,"SDAMA301",DFN,FA),U,3),";") "RTN","DGRPD",196,0) .S C=+$P(^TMP($J,"SDAMA301",DFN,FA),U,2) I STAT'["C" D "RTN","DGRPD",197,0) ..D COV "RTN","DGRPD",198,0) ..N DGAPPT S DGAPPT=$$FMTE^XLFDT($E(FA,1,12),"5Z") "RTN","DGRPD",199,0) ..W !?22,$P(DGAPPT,"@"),?33,$P(DGAPPT,"@",2) "RTN","DGRPD",200,0) ..W ?39,$P($P(^TMP($J,"SDAMA301",DFN,FA),U,2),";",2)," ",COV "RTN","DGRPD",201,0) ..Q "RTN","DGRPD",202,0) I $O(^TMP($J,"SDAMA301",DFN,FA))>0 W !,"See Scheduling options for additional appointments." "RTN","DGRPD",203,0) RMK I '$G(DGRPOUT),($$OKLINE^DGRPD1(15)) W !!,"Remarks: ",$P(^DPT(DFN,0),"^",10) ;*///* "RTN","DGRPD",204,0) D GETS^DIQ(2,DFN_",",".351;.353;.354;.355","E","PDTHINFO") "RTN","DGRPD",205,0) W !! "RTN","DGRPD",206,0) W "Date of Death Information" "RTN","DGRPD",207,0) W !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E")) "RTN","DGRPD",208,0) W !,?5,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E")) "RTN","DGRPD",209,0) W !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E")) "RTN","DGRPD",210,0) W !,?5,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),! "RTN","DGRPD",211,0) I $$OKLINE^DGRPD1(14) D EC^DGRPD1 "RTN","DGRPD",212,0) ; KUM DG*5.3*936 Call tag to display Health Benefit Plans assigned to Veteran "RTN","DGRPD",213,0) D HBP "RTN","DGRPD",214,0) K DGARRAY,SDCNT,^TMP($J,"SDAMA301"),ADM,L,TRN,DIS,SSN,FA,C,COV,NOW,CT,DGD,DGD1,I ;Y killed after dghinqky "RTN","DGRPD",215,0) Q "RTN","DGRPD",216,0) ; KUM DG*5.3*936 Display Health Benefit Plans assigned to Veteran "RTN","DGRPD",217,0) HBP W !!,"Veteran Medical Benefit Plan Currently Assigned to Veteran:" ;DG*5.3*987 HM "RTN","DGRPD",218,0) N DGHBP,HBP,DGCOUNT,DGHBIEN,DGPNAME,X,DGCNT,DGLN,DGLINE "RTN","DGRPD",219,0) S DGCOUNT=0 "RTN","DGRPD",220,0) D GETHBP^DGHBPUTL(DFN) "RTN","DGRPD",221,0) S DGHBP="" F S DGHBP=$O(HBP("CUR",DGHBP)) Q:DGHBP="" D "RTN","DGRPD",222,0) .; DG*5.3*987; jam; Place "zz" before the plan name for inactive plans "RTN","DGRPD",223,0) .S DGHBIEN=+HBP("CUR",DGHBP) "RTN","DGRPD",224,0) .I $P($G(^DGHBP(25.11,DGHBIEN,0)),"^",4)="Y" S DGPNAME="zz "_DGHBP "RTN","DGRPD",225,0) .E S DGPNAME=DGHBP "RTN","DGRPD",226,0) .; DG*5.3*987; arf; Add word wrapping for plan names "RTN","DGRPD",227,0) .S X=DGPNAME "RTN","DGRPD",228,0) .K ^UTILITY($J,"W") S DIWL=0,DIWR=70,DIWF="" D ^DIWP "RTN","DGRPD",229,0) .S DGCNT=^UTILITY($J,"W",0) "RTN","DGRPD",230,0) .F DGLN=1:1:DGCNT S DGLINE=^UTILITY($J,"W",0,DGLN,0) W !,?3,DGLINE "RTN","DGRPD",231,0) .K ^UTILITY($J,"W") "RTN","DGRPD",232,0) .S DGCOUNT=DGCOUNT+1 "RTN","DGRPD",233,0) I DGCOUNT=0 W !,?3,"None" "RTN","DGRPD",234,0) Q "RTN","DGRPD",235,0) ; "RTN","DGRPD",236,0) COV S COV=$S(+$P(^TMP($J,"SDAMA301",DFN,FA),U,18)=7:" (Collateral) ",1:"") "RTN","DGRPD",237,0) S COV=COV_$S(STAT["NT":" * NO ACTION TAKEN *",STAT["N":" * NO-SHOW *",1:""),CT=CT+1 Q "RTN","DGRPD",238,0) Q "RTN","DGRPD",239,0) ; "RTN","DGRPD",240,0) OREN S XQORQUIT=1 Q:'$D(ORVP) S DFN=+ORVP D EN R !!,"Press RETURN to CONTINUE: ",X:DTIME "RTN","DGRPD",241,0) Q "RTN","DGRPD",242,0) LANGUAGE ; Get language data *///* "RTN","DGRPD",243,0) S DGLANGDT=9999999,(DGPRFLAN,DGLANG0)="" "RTN","DGRPD",244,0) S DGLANGDT=$O(^DPT(DFN,.207,"B",DGLANGDT),-1) "RTN","DGRPD",245,0) I DGLANGDT="" G L1 "RTN","DGRPD",246,0) S DGLANGDA=$O(^DPT(DFN,.207,"B",DGLANGDT,0)) "RTN","DGRPD",247,0) S DGLANG0=$G(^DPT(DFN,.207,DGLANGDA,0)),Y=$P(DGLANG0,U),DGPRFLAN=$P(DGLANG0,U,2) "RTN","DGRPD",248,0) S Y=DGLANGDT X ^DD("DD") S DGLANGDT=Y "RTN","DGRPD",249,0) L1 W !!,"Language Date/Time: ",$S(DGLANGDT="":"UNANSWERED",1:DGLANGDT),! "RTN","DGRPD",250,0) W ?1,"Preferred Language: ",$S(DGPRFLAN="":"UNANSWERED",1:DGPRFLAN) "RTN","DGRPD",251,0) K DGLANGDT,DGPRFLAN,DGLANG0,DGLANGDA "RTN","DGRPD",252,0) Q "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) "BLD",10925,6) ^860 **END** **END**