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 Dec 13, 2024@02:39:27 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 ;
