DG53998 ;WILM/BDB - DG*5.3*998 PRE INSTALL INELIGIBLE, HUMANITARIAN AND VHAP UPDATES;03/02/19 9:18pm
;;5.3;Registration;**998**;Aug 13, 1993;Build 15
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; Integration Agreements:
; 10141 : BMES^XPDUTL
; : MES^XPDUTL
; 10104 : UP^XLFSTR
;
Q
; This pre-install routine will be used to perform the following task:
; Update the NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file.
;
PRE ; Entry point for pre-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 NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file.
D BMES^XPDUTL("Updating the NAME (#.01) field of the Health Benefit Plan (#25.11) File ")
D UPDATE
D BMES^XPDUTL("Update of the NAME field of the Health Benefit Plans has completed. ")
;
L -^DGHBP(25.11,0)
Q
;
UPDATE ;Change Name field of certain Health Benefit Plans
;
N DGN,DGTEXT,DGOLD,DGNEW,DGIEN,DGFND,DGHBPN
F DGN=1:1 S DGTEXT=$P($T(NAMES+DGN),";;",2) Q:DGTEXT="" D
.S DGOLD=$P(DGTEXT,";",1),DGNEW=$P(DGTEXT,";",2)
.S DGOLD=$$UP^XLFSTR(DGOLD),DGNEW=$$UP^XLFSTR(DGNEW)
.S DGIEN=0,DGFND=0 F S DGIEN=$O(^DGHBP(25.11,DGIEN)) Q:+DGIEN=0 D Q:DGFND=1
..S DGHBPN=$P(^DGHBP(25.11,DGIEN,0),U,1) Q:DGHBPN'=DGOLD
..S DGFND=1
..S DR=".01///"_DGNEW,DIE="^DGHBP(25.11,",DA=DGIEN D ^DIE K DIE,DR,DA
..D BMES^XPDUTL("PLAN NAME:")
..D MES^XPDUTL(DGOLD)
..D MES^XPDUTL("RENAMED TO:")
..D MES^XPDUTL(DGNEW)
Q
DGERR ;
D BMES^XPDUTL(" *** An Error occurred during the updating of ")
D MES^XPDUTL(" the NAME field for the Health Benefit Plans for this Plan:")
D MES^XPDUTL(" "_DGOLD)
D MES^XPDUTL(" The Plan was not located on file.")
D MES^XPDUTL(" Please log YOUR IT Services ticket. ***")
Q
NAMES ;format: ;;oldname;newname
;;VETERAN PLAN - CCP BASIC;VETERAN PLAN CCP BASIC
;;VETERAN PLAN - CCP STATE WITH NO FULL-SERVICE MEDICAL FACILITY;VETERAN PLAN CCP STATE WITH NO FULL SERVICE MEDICAL FACILITY
;;VETERAN PLAN - CCP URGENT CARE;VETERAN PLAN CCP URGENT CARE
;;VETERAN PLAN - CCP GRANDFATHER;VETERAN PLAN CCP GRANDFATHER
;;VETERAN PLAN - CCP HARDSHIP DETERMINATION;VETERAN PLAN CCP HARDSHIP DETERMINATION
;;COMPREHENSIVE EXTENDED CARE SERVICES COPAY EXEMPT;VA MANDATORY NURSING HOME ELIGIBLE COPAY EXEMPT
;;VETERAN EXTENDED CARE SERVICES COPAY EXEMPT;VA EXTENDED CARE SERVICES COPAY EXEMPT
;;VETERAN EXTENDED CARE SERVICES COPAY REQ;VA EXTENDED CARE SERVICES COPAY REQUIRED
;;EXTENDED CARE SERVICES HUMANITARIAN;VA EXTENDED CARE SERVICES INELIGIBLE
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53998 2704 printed Apr 09, 2024@22:00:12 Page 2
DG53998 ;WILM/BDB - DG*5.3*998 PRE INSTALL INELIGIBLE, HUMANITARIAN AND VHAP UPDATES;03/02/19 9:18pm
+1 ;;5.3;Registration;**998**;Aug 13, 1993;Build 15
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Integration Agreements:
+5 ; 10141 : BMES^XPDUTL
+6 ; : MES^XPDUTL
+7 ; 10104 : UP^XLFSTR
+8 ;
+9 QUIT
+10 ; This pre-install routine will be used to perform the following task:
+11 ; Update the NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file.
+12 ;
PRE ; Entry point for pre-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 NAME (#.01) field of the HEALTH BENEFIT PLAN (#25.11) file.
+5 DO BMES^XPDUTL("Updating the NAME (#.01) field of the Health Benefit Plan (#25.11) File ")
+6 DO UPDATE
+7 DO BMES^XPDUTL("Update of the NAME field of the Health Benefit Plans has completed. ")
+8 ;
+9 LOCK -^DGHBP(25.11,0)
+10 QUIT
+11 ;
UPDATE ;Change Name field of certain Health Benefit Plans
+1 ;
+2 NEW DGN,DGTEXT,DGOLD,DGNEW,DGIEN,DGFND,DGHBPN
+3 FOR DGN=1:1
SET DGTEXT=$PIECE($TEXT(NAMES+DGN),";;",2)
if DGTEXT=""
QUIT
Begin DoDot:1
+4 SET DGOLD=$PIECE(DGTEXT,";",1)
SET DGNEW=$PIECE(DGTEXT,";",2)
+5 SET DGOLD=$$UP^XLFSTR(DGOLD)
SET DGNEW=$$UP^XLFSTR(DGNEW)
+6 SET DGIEN=0
SET DGFND=0
FOR
SET DGIEN=$ORDER(^DGHBP(25.11,DGIEN))
if +DGIEN=0
QUIT
Begin DoDot:2
+7 SET DGHBPN=$PIECE(^DGHBP(25.11,DGIEN,0),U,1)
if DGHBPN'=DGOLD
QUIT
+8 SET DGFND=1
+9 SET DR=".01///"_DGNEW
SET DIE="^DGHBP(25.11,"
SET DA=DGIEN
DO ^DIE
KILL DIE,DR,DA
+10 DO BMES^XPDUTL("PLAN NAME:")
+11 DO MES^XPDUTL(DGOLD)
+12 DO MES^XPDUTL("RENAMED TO:")
+13 DO MES^XPDUTL(DGNEW)
End DoDot:2
if DGFND=1
QUIT
End DoDot:1
+14 QUIT
DGERR ;
+1 DO BMES^XPDUTL(" *** An Error occurred during the updating of ")
+2 DO MES^XPDUTL(" the NAME field for the Health Benefit Plans for this Plan:")
+3 DO MES^XPDUTL(" "_DGOLD)
+4 DO MES^XPDUTL(" The Plan was not located on file.")
+5 DO MES^XPDUTL(" Please log YOUR IT Services ticket. ***")
+6 QUIT
NAMES ;format: ;;oldname;newname
+1 ;;VETERAN PLAN - CCP BASIC;VETERAN PLAN CCP BASIC
+2 ;;VETERAN PLAN - CCP STATE WITH NO FULL-SERVICE MEDICAL FACILITY;VETERAN PLAN CCP STATE WITH NO FULL SERVICE MEDICAL FACILITY
+3 ;;VETERAN PLAN - CCP URGENT CARE;VETERAN PLAN CCP URGENT CARE
+4 ;;VETERAN PLAN - CCP GRANDFATHER;VETERAN PLAN CCP GRANDFATHER
+5 ;;VETERAN PLAN - CCP HARDSHIP DETERMINATION;VETERAN PLAN CCP HARDSHIP DETERMINATION
+6 ;;COMPREHENSIVE EXTENDED CARE SERVICES COPAY EXEMPT;VA MANDATORY NURSING HOME ELIGIBLE COPAY EXEMPT
+7 ;;VETERAN EXTENDED CARE SERVICES COPAY EXEMPT;VA EXTENDED CARE SERVICES COPAY EXEMPT
+8 ;;VETERAN EXTENDED CARE SERVICES COPAY REQ;VA EXTENDED CARE SERVICES COPAY REQUIRED
+9 ;;EXTENDED CARE SERVICES HUMANITARIAN;VA EXTENDED CARE SERVICES INELIGIBLE
+10 ;;
