SDPST746 ;;MS/PB - CCRA PRE INSTALL;MARCH 26, 2020
;;5.3;Scheduling;**746**;MARCH 26, 2020;Build 85
;;Per VA directive 6402, this routine should not be modified.
;Set up routine for patch SD*5.3*746.
;Adds the TELE HEALTH MANAGEMENT entry to the VistA REMOTE APPLICATION File.
Q
REMAPP ; update the Remote Application file
N VAL,LIEN,SDERR1,OPTIEN
S OPTIEN=$$FIND1^DIC(19,,"B","SDECRPC")
I $G(OPTIEN)'>0 D MES^XPDUTL("The SDECRPC Option is not in the OPTION FILE.") G EXIT
S VAL="TELE HEALTH MANAGEMENT"
S LIEN=$$FIND1^DIC(8994.5,,"B",.VAL)
I +$G(LIEN)>0 D
.S FDA(8994.5,LIEN_",",.01)="TELE HEALTH MANAGEMENT"
.S FDA(8994.5,LIEN_",",.02)=$G(OPTIEN)
.S FDA(8994.5,LIEN_",",.03)="zxDT60uA8f3XQwarbmFS8YIrGUUblZ66RIui0LK+sis="
.D UPDATE^DIE(,"FDA",$G(LIEN)_",","SDERR") K FDA
G:$G(LIEN)>0 EXIT
I $G(LIEN)'>0 D
.K DIC,DIC(0),X,Y,DLAYGO
.S DIC="^XWB(8994.5,",DLAYGO=8994.5,DIC(0)="L",X="TELE HEALTH MANAGEMENT" D FILE^DICN
.I +$G(Y)'>0 D MES^XPDUTL("Unable to create the new Remote Application File entry.") G EXIT
.S:+$G(Y)>0 LIEN=+Y
.S FDA(8994.5,LIEN_",",.01)="TELE HEALTH MANAGEMENT"
.S FDA(8994.5,LIEN_",",.02)=$G(OPTIEN)
.S FDA(8994.5,LIEN_",",.03)="zxDT60uA8f3XQwarbmFS8YIrGUUblZ66RIui0LK+sis="
.D UPDATE^DIE(,"FDA","SDERR1")
I $D(SDERR1) D Q ; something went wrong
.D MES^XPDUTL("FileMan error when adding the TELE HEALTH MANAGEMENT app to the Remote Application File.")
D MES^XPDUTL("TELE HEALTH MANAGEMENT has been added as an app in the REMOTE APPLICATION FILE.")
EXIT ;
K FDA,LIEN,Y,X,DIC,DIC(0),DLAYGO,VAL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDPST746 1581 printed Sep 02, 2024@19:44:47 Page 2
SDPST746 ;;MS/PB - CCRA PRE INSTALL;MARCH 26, 2020
+1 ;;5.3;Scheduling;**746**;MARCH 26, 2020;Build 85
+2 ;;Per VA directive 6402, this routine should not be modified.
+3 ;Set up routine for patch SD*5.3*746.
+4 ;Adds the TELE HEALTH MANAGEMENT entry to the VistA REMOTE APPLICATION File.
+5 QUIT
REMAPP ; update the Remote Application file
+1 NEW VAL,LIEN,SDERR1,OPTIEN
+2 SET OPTIEN=$$FIND1^DIC(19,,"B","SDECRPC")
+3 IF $GET(OPTIEN)'>0
DO MES^XPDUTL("The SDECRPC Option is not in the OPTION FILE.")
GOTO EXIT
+4 SET VAL="TELE HEALTH MANAGEMENT"
+5 SET LIEN=$$FIND1^DIC(8994.5,,"B",.VAL)
+6 IF +$GET(LIEN)>0
Begin DoDot:1
+7 SET FDA(8994.5,LIEN_",",.01)="TELE HEALTH MANAGEMENT"
+8 SET FDA(8994.5,LIEN_",",.02)=$GET(OPTIEN)
+9 SET FDA(8994.5,LIEN_",",.03)="zxDT60uA8f3XQwarbmFS8YIrGUUblZ66RIui0LK+sis="
+10 DO UPDATE^DIE(,"FDA",$GET(LIEN)_",","SDERR")
KILL FDA
End DoDot:1
+11 if $GET(LIEN)>0
GOTO EXIT
+12 IF $GET(LIEN)'>0
Begin DoDot:1
+13 KILL DIC,DIC(0),X,Y,DLAYGO
+14 SET DIC="^XWB(8994.5,"
SET DLAYGO=8994.5
SET DIC(0)="L"
SET X="TELE HEALTH MANAGEMENT"
DO FILE^DICN
+15 IF +$GET(Y)'>0
DO MES^XPDUTL("Unable to create the new Remote Application File entry.")
GOTO EXIT
+16 if +$GET(Y)>0
SET LIEN=+Y
+17 SET FDA(8994.5,LIEN_",",.01)="TELE HEALTH MANAGEMENT"
+18 SET FDA(8994.5,LIEN_",",.02)=$GET(OPTIEN)
+19 SET FDA(8994.5,LIEN_",",.03)="zxDT60uA8f3XQwarbmFS8YIrGUUblZ66RIui0LK+sis="
+20 DO UPDATE^DIE(,"FDA","SDERR1")
End DoDot:1
+21 ; something went wrong
IF $DATA(SDERR1)
Begin DoDot:1
+22 DO MES^XPDUTL("FileMan error when adding the TELE HEALTH MANAGEMENT app to the Remote Application File.")
End DoDot:1
QUIT
+23 DO MES^XPDUTL("TELE HEALTH MANAGEMENT has been added as an app in the REMOTE APPLICATION FILE.")
EXIT ;
+1 KILL FDA,LIEN,Y,X,DIC,DIC(0),DLAYGO,VAL
+2 QUIT