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