SDPST746.m

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 ---SDPST746   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