XU8P779 ;ISF/CLG - Post-Install for 779 ;10/25/22 12:20
;;8.0;KERNEL;**779**;Jul 10, 1995;Build 5
;Per VA Directive 6402, this routine should not be modified.
; Post Installation Routine for patch XU*8.0*779
;
; Removes entries from the REMOTE APPLICATION file (#8994.5)
;
;
; EXTERNAL REFERENCES
; $$FIND1^DIC (ICR# 2051)
; CLEAN^DILF (ICR# 2054)
; ^DIK (ICR# 10013)
; DELIX^DDMOD (ICR# 2916)
; CREIXN^DDMOD (ICR# 2916)
; BMES^XPDUTL (ICR# 10141)
; MES^XPDUTL (ICR# 10141)
;
MAIN ; Control subroutine
D BMES^XPDUTL(" Starting X-Ref Update on File #8994.5...")
D XREF
D BMES^XPDUTL(" Starting Removal of File #8994.5 entries added by XU*8.0*780...")
D REMAPP
Q
XREF ;Remove old Traditional Style "ACODE" X-Ref and create New Style "ACODE" X-Ref on #8994.5
;Fixes bug where original X-Ref was limited to 30 characters, which truncated X-Ref for some entries
D MES^XPDUTL(" Removing ""ACODE"" Traditional Style Index in File #8994.5...")
D DELIX^DDMOD(8994.5,.03,1,"K")
S XU779MSG=$S('+$D(^XWB(8994.5,"ACODE")):" Index Removed Successfully!",1:" Index Removal Failed!")
D MES^XPDUTL(XU779MSG)
S XU779X("FILE")=8994.5
S XU779X("NAME")="ACODE"
S XU779X("USE")="S"
S XU779X("TYPE")="R"
S XU779X("SHORT DESCR")="Hashed value for an application's security phrase."
S XU779X("DESCR",1)="This is the hashed value for an application's security phrase, which is"
S XU779X("DESCR",2)="the application's entry into the REMOTE APPLICATION file (#8994.5) for"
S XU779X("DESCR",3)="accessing the information necessary to permit the application to enroll"
S XU779X("DESCR",4)="a remote user."
S XU779X("VAL",1)=.03
S XU779X("VAL",1,"SUBSCRIPT")=1
D BMES^XPDUTL(" Creating ""ACODE"" New Style Index in File #8994.5...")
D CREIXN^DDMOD(.XU779X,"S",.XU779RES)
S XU779MSG=$S(+XU779RES>0:" Index Created Successfully!",1:" Index Creation Failed!")
D MES^XPDUTL(XU779MSG)
K XU779X,XU779MSG,XU779RES
Q
REMAPP ; Remote Application removal of temporary entries added by XU*8.0*780
N XU8ERRX,XU8DATA
;
; "NUMI VDIF" created with Patch XU*8.0*780, being removed with XU*8.0*779
K XU8DATA
S XU8DATA(1)="NUMI VDIF" ; Name
S XU8ERRX=$$CLNUP(.XU8DATA) ; Remove REMOTE APPLICATION
D MES^XPDUTL(XU8ERRX) ; XU8ERRX is "Removal success message" or "Blank if no entry exists"
;
; "BMS VDIF" created with Patch XU*8.0*780, being removed with XU*8.0*779
K XU8DATA
S XU8DATA(1)="BMS VDIF" ; Name
S XU8ERRX=$$CLNUP(.XU8DATA) ; Remove REMOTE APPLICATION
D MES^XPDUTL(XU8ERRX) ; XU8ERRX is "Removal success message" or "Blank if no entry exists"
;
Q
;
CLNUP(XU8DATA) ; Clean up REMOTE APPLICATION entries from Patch XU*8.0*780 (if they exist)
N XU8ERR,XU8IEN,DA,DIK
S XU8ERR=" REMOTE APPLICATION not found: "_XU8DATA(1)
S XU8IEN=$$FIND1^DIC(8994.5,"","X",XU8DATA(1),"B")
I $G(XU8IEN)>0 D
. S DIK="^XWB(8994.5,",DA=XU8IEN
. D ^DIK
. S XU8ERR=" REMOTE APPLICATION entry removed: "_XU8DATA(1)
. K XU8IEN
D CLEAN^DILF
Q XU8ERR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P779 3094 printed Nov 22, 2024@17:18:55 Page 2
XU8P779 ;ISF/CLG - Post-Install for 779 ;10/25/22 12:20
+1 ;;8.0;KERNEL;**779**;Jul 10, 1995;Build 5
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ; Post Installation Routine for patch XU*8.0*779
+4 ;
+5 ; Removes entries from the REMOTE APPLICATION file (#8994.5)
+6 ;
+7 ;
+8 ; EXTERNAL REFERENCES
+9 ; $$FIND1^DIC (ICR# 2051)
+10 ; CLEAN^DILF (ICR# 2054)
+11 ; ^DIK (ICR# 10013)
+12 ; DELIX^DDMOD (ICR# 2916)
+13 ; CREIXN^DDMOD (ICR# 2916)
+14 ; BMES^XPDUTL (ICR# 10141)
+15 ; MES^XPDUTL (ICR# 10141)
+16 ;
MAIN ; Control subroutine
+1 DO BMES^XPDUTL(" Starting X-Ref Update on File #8994.5...")
+2 DO XREF
+3 DO BMES^XPDUTL(" Starting Removal of File #8994.5 entries added by XU*8.0*780...")
+4 DO REMAPP
+5 QUIT
XREF ;Remove old Traditional Style "ACODE" X-Ref and create New Style "ACODE" X-Ref on #8994.5
+1 ;Fixes bug where original X-Ref was limited to 30 characters, which truncated X-Ref for some entries
+2 DO MES^XPDUTL(" Removing ""ACODE"" Traditional Style Index in File #8994.5...")
+3 DO DELIX^DDMOD(8994.5,.03,1,"K")
+4 SET XU779MSG=$SELECT('+$DATA(^XWB(8994.5,"ACODE")):" Index Removed Successfully!",1:" Index Removal Failed!")
+5 DO MES^XPDUTL(XU779MSG)
+6 SET XU779X("FILE")=8994.5
+7 SET XU779X("NAME")="ACODE"
+8 SET XU779X("USE")="S"
+9 SET XU779X("TYPE")="R"
+10 SET XU779X("SHORT DESCR")="Hashed value for an application's security phrase."
+11 SET XU779X("DESCR",1)="This is the hashed value for an application's security phrase, which is"
+12 SET XU779X("DESCR",2)="the application's entry into the REMOTE APPLICATION file (#8994.5) for"
+13 SET XU779X("DESCR",3)="accessing the information necessary to permit the application to enroll"
+14 SET XU779X("DESCR",4)="a remote user."
+15 SET XU779X("VAL",1)=.03
+16 SET XU779X("VAL",1,"SUBSCRIPT")=1
+17 DO BMES^XPDUTL(" Creating ""ACODE"" New Style Index in File #8994.5...")
+18 DO CREIXN^DDMOD(.XU779X,"S",.XU779RES)
+19 SET XU779MSG=$SELECT(+XU779RES>0:" Index Created Successfully!",1:" Index Creation Failed!")
+20 DO MES^XPDUTL(XU779MSG)
+21 KILL XU779X,XU779MSG,XU779RES
+22 QUIT
REMAPP ; Remote Application removal of temporary entries added by XU*8.0*780
+1 NEW XU8ERRX,XU8DATA
+2 ;
+3 ; "NUMI VDIF" created with Patch XU*8.0*780, being removed with XU*8.0*779
+4 KILL XU8DATA
+5 ; Name
SET XU8DATA(1)="NUMI VDIF"
+6 ; Remove REMOTE APPLICATION
SET XU8ERRX=$$CLNUP(.XU8DATA)
+7 ; XU8ERRX is "Removal success message" or "Blank if no entry exists"
DO MES^XPDUTL(XU8ERRX)
+8 ;
+9 ; "BMS VDIF" created with Patch XU*8.0*780, being removed with XU*8.0*779
+10 KILL XU8DATA
+11 ; Name
SET XU8DATA(1)="BMS VDIF"
+12 ; Remove REMOTE APPLICATION
SET XU8ERRX=$$CLNUP(.XU8DATA)
+13 ; XU8ERRX is "Removal success message" or "Blank if no entry exists"
DO MES^XPDUTL(XU8ERRX)
+14 ;
+15 QUIT
+16 ;
CLNUP(XU8DATA) ; Clean up REMOTE APPLICATION entries from Patch XU*8.0*780 (if they exist)
+1 NEW XU8ERR,XU8IEN,DA,DIK
+2 SET XU8ERR=" REMOTE APPLICATION not found: "_XU8DATA(1)
+3 SET XU8IEN=$$FIND1^DIC(8994.5,"","X",XU8DATA(1),"B")
+4 IF $GET(XU8IEN)>0
Begin DoDot:1
+5 SET DIK="^XWB(8994.5,"
SET DA=XU8IEN
+6 DO ^DIK
+7 SET XU8ERR=" REMOTE APPLICATION entry removed: "_XU8DATA(1)
+8 KILL XU8IEN
End DoDot:1
+9 DO CLEAN^DILF
+10 QUIT XU8ERR
