Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53985P

DG53985P.m

Go to the documentation of this file.
  1. DG53985P ;ALB/HM - DG*5.3*985 POST INSTALL TO UPDATE HEALTH BENEFIT PLAN ;10/09/19 9:18pm
  1. ;;5.3;Registration;**985**;Aug 13, 1993;Build 15
  1. ;
  1. Q
  1. ;A post-install routine will be used to perform the following tasks:
  1. ; Update the LONG DESCRIPTION (#.04) field of the "Veteran - Full Medical Benefits Treatment & Rx Copay Exempt" record in the HEALTH BENEFIT PLAN (#25.11) file.
  1. ;
  1. POST ; Entry point for post-install
  1. ;
  1. 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
  1. ;
  1. ; Update hte LONG DESCRIPTION (#.04) field of the "Veteran - Full Medical Benefits Treatment & Rx Copay Exempt" record in the HEALTH BENEFIT PLAN (#25.11) file.
  1. D BMES^XPDUTL("Updating the LONG DESCRIPTION (#.04) of the Veteran - Full Medical ")
  1. D BMES^XPDUTL("Benefits Treatment & Rx Copay Exempt plan.")
  1. D FIXPLN
  1. D BMES^XPDUTL("Finished updating the LONG DESCRIPTION (#.04) of the Veteran - Full Medical ")
  1. D BMES^XPDUTL("Benefits Treatment & Rx Copay Exempt plan.")
  1. ;
  1. L -^DGHBP(25.11,0)
  1. Q
  1. ;
  1. FIXPLN ;Change Long description of Health Benefit Plan Veteran - Full Medical Benefits Treatment & Rx Copay Exempt
  1. ;
  1. N DGIEN,DGNAME,DGLD,DGFIELDS,DGPFMS1,DGERR
  1. S DGNAME="VETERAN - FULL MEDICAL BENEFITS TREATMENT & RX COPAY EXEMPT"
  1. S DGIEN=""
  1. S DGERR=""
  1. S DGIEN=$O(^DGHBP(25.11,"B",DGNAME,0))
  1. I 'DGIEN D BMES^XPDUTL(" "_DGIEN_" entry is not found to fix Long Description field. ") Q
  1. S DGFIELDS("LD",1)="All enrolled Veterans have a comprehensive medical benefits package, which VA "
  1. S DGFIELDS("LD",2)="administers through an annual patient enrollment system. Veterans who meet "
  1. S DGFIELDS("LD",3)="Veteran status for VA healthcare benefits and are not subject to copayment"
  1. S DGFIELDS("LD",4)="for their inpatient, outpatient services nor medications."
  1. S DGFIELDS("LD",5)=""
  1. S DGFIELDS("LD",6)="Veterans are exempt from copayments for inpatient, outpatient services and "
  1. S DGFIELDS("LD",7)="medications related to their Service Connected (SC) related disability and "
  1. S DGFIELDS("LD",8)="special authority factor(s) - Agent Orange Exposure (AO), Southwest Asia "
  1. S DGFIELDS("LD",9)="Conditions (SWA), Ionizing Radiation (IR), Nose Throat Radium (NTR), Shipboard "
  1. S DGFIELDS("LD",10)="Hazard and Defense (SHAD), Combat Veteran (CV), Camp Lejeune (CL), Military "
  1. S DGFIELDS("LD",11)="Sexual Treatment (MST)."
  1. S DGFIELDS("LD",12)=""
  1. S DGFIELDS("LD",13)="Veterans assigned this VMBP meet one of the following conditions:"
  1. S DGFIELDS("LD",14)=""
  1. S DGFIELDS("LD",15)="o Determined to be 50% or greater SC"
  1. S DGFIELDS("LD",16)="o Determined to be 10% to 40% Compensable SC*"
  1. S DGFIELDS("LD",17)="o Received a Medal of Honor (MOH)"
  1. S DGFIELDS("LD",18)="o Received a Purple Heart (PH)**"
  1. S DGFIELDS("LD",19)="o Has been a Prisoner of War (POW)"
  1. S DGFIELDS("LD",20)="o Determined to be Catastrophically Disabled (CD)"
  1. S DGFIELDS("LD",21)="o Determined to be Unemployable due to SC conditions"
  1. S DGFIELDS("LD",22)="o In receipt of Aid & Attendance (A&A)"
  1. S DGFIELDS("LD",23)="o In receipt of Housebound (HB)"
  1. S DGFIELDS("LD",24)="o In receipt of a VA Pension"
  1. S DGFIELDS("LD",25)="o Discharge Due to Disability**"
  1. S DGFIELDS("LD",26)="o Military Disability Retirement**"
  1. S DGFIELDS("LD",27)="o Receive Medicaid**"
  1. S DGFIELDS("LD",28)="o Non-Service Connected (NSC)***"
  1. S DGFIELDS("LD",29)="o 0% SC non-compensable ****"
  1. S DGFIELDS("LD",30)=""
  1. S DGFIELDS("LD",31)="*They are exempt from copayment for medications related to their SC rated "
  1. S DGFIELDS("LD",32)="condition, but they must complete a Pharmacy Copay Exemption Test and "
  1. S DGFIELDS("LD",33)="the outcome is Rx Copay Exempt to be exempt from NSC medication copays."
  1. S DGFIELDS("LD",34)="**They must complete a Pharmacy Copay Exemption Test and the outcome "
  1. S DGFIELDS("LD",35)="is Rx Copay Exempt to be exempt from NSC medication copays."
  1. S DGFIELDS("LD",36)="***NSC Veterans who are subject to Means Testing; the outcome of the "
  1. S DGFIELDS("LD",37)="Means Test is MT Copay Exempt and Rx Exemption status is Exempt."
  1. S DGFIELDS("LD",38)="****SC Non-Compensable Veterans who are subject to Means Testing; the"
  1. S DGFIELDS("LD",39)="outcome of the Means Test is MT Copay Exempt and Rx Exemption status is "
  1. S DGFIELDS("LD",40)="Exempt."
  1. M DGLD=DGFIELDS("LD")
  1. D WP^DIE(25.11,DGIEN_",",.04,"","DGLD","DGPFMS1") ; LONG DESCRIPTION
  1. I $D(DGPFMS1) S DGERR=$G(DGPFMS1("DIERR",1,"TEXT",1))
  1. I DGERR'="" D
  1. . D BMES^XPDUTL(" *** An Error occurred during updating long description of ")
  1. . D MES^XPDUTL(" Veteran - Full Medical Benefits Treatment & Rx Copay Exempt")
  1. . D MES^XPDUTL(" *** "_DGERR_" ***")
  1. . D MES^XPDUTL(" Please log YOUR IT Services ticket.")
  1. I DGERR="" D
  1. . D BMES^XPDUTL(" LONG DESCRIPTION (#.04) field of plan Veteran - Full ")
  1. . D MES^XPDUTL(" Medical Benefits Treatment & Rx Copay Exempt updated.")
  1. Q
  1. ;