SD53P743 ;ALB/DRP - Post Install ; Feb 10,2020
;;5.3;Scheduling;**743**;Aug 13, 1993;Build 2
;
; The following ICR's grant access to Non-SD applications.
; IVA (VIA) is releasing this patch in concordance with the
; VSE Development team.
; SDEC APPSLOTS (ICR #7071)
; SDEC APPADD (ICR #7059)
; SDEC APPDEL (ICR #7065)
; SDEC CHECKIN (ICR #7067)
; SDEC CHECKOUT (ICR #7069)
; SDEC CANCKOUT (ICR #7073)
; SDEC NOSHOW (ICR #7075)
; SDEC CRSCHED (ICR #7077)
; SDEC FAPPTGET (ICR #7081)
Q
;
SETAPP ;Check RPC, Set App proxy allowed flag
N SDRPC,SDERR,SDIEN
K FDA
D BMES^XPDUTL("SD*5.3*743 Post-Install starts...")
F SDI=1:1 S SDRPC=$P($T(RPC+SDI),";;",2) Q:SDRPC="STOP" D
. ;Return IEN if OK to run, 0 otherwise.
. S SDIEN=$O(^XWB(8994,"B",SDRPC,0))
. I +$G(SDIEN)'>0 D BMES^XPDUTL(" >> ... Unable to set APP PROXY ENABLED flag for "_SDRPC_" in Remote Procedure Not found")
.S FDA(8994,SDIEN_",",.11)=1 ;S APPROXY ALLOWED TO YES
.S DIC(0)="" ;Needed in call to XUA4A7
.D FILE^DIE("I","FDA","IENS")
.I $D(^TMP("DIERR",$J,1,"TEXT",1)) D
..S SDERR=^TMP("DIERR",$J,1,"TEXT",1)
..D MES^XPDUTL(" >> ... "_$G(SDERR("DIERR",1,"TEXT",1))_".")
..D MES^XPDUTL(" >> ... Please contact IVA(VIA) support for assistance...")
..K ^TMP("DIERR",$J)
..Q
.Q
D MES^XPDUTL("SD*5.3*743 Post-Install is complete."),MES^XPDUTL("")
K %H,%I,DIC,X,Y
Q
;
RPC ;List of RPCs to update
;;SDEC APPSLOTS
;;SDEC APPADD
;;SDEC APPDEL
;;SDEC CHECKIN
;;SDEC CHECKOUT
;;SDEC CANCKOUT
;;SDEC NOSHOW
;;SDEC CRSCHED
;;SDEC FAPPTGET
;;STOP
Q
;
TEST ; Check flags for install test. Before and After.
N SDRPC,SDI
F SDI=1:1 D Q:SDRPC="STOP"
. S SDRPC=$P("SDEC APPSLOTS^SDEC APPADD^SDEC APPDEL^SDEC CHECKIN^SDEC CHECKOUT^SDEC CANCKOUT^SDEC NOSHOW^SDEC CRSCHED^SDEC FAPPTGET^STOP","^",SDI)
. W:SDRPC'="STOP" !,SDRPC,"=",$P($G(^XWB(8994,$O(^XWB(8994,"B",SDRPC,0)),0)),"^",11)
.Q
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P743 1968 printed Dec 13, 2024@02:46:37 Page 2
SD53P743 ;ALB/DRP - Post Install ; Feb 10,2020
+1 ;;5.3;Scheduling;**743**;Aug 13, 1993;Build 2
+2 ;
+3 ; The following ICR's grant access to Non-SD applications.
+4 ; IVA (VIA) is releasing this patch in concordance with the
+5 ; VSE Development team.
+6 ; SDEC APPSLOTS (ICR #7071)
+7 ; SDEC APPADD (ICR #7059)
+8 ; SDEC APPDEL (ICR #7065)
+9 ; SDEC CHECKIN (ICR #7067)
+10 ; SDEC CHECKOUT (ICR #7069)
+11 ; SDEC CANCKOUT (ICR #7073)
+12 ; SDEC NOSHOW (ICR #7075)
+13 ; SDEC CRSCHED (ICR #7077)
+14 ; SDEC FAPPTGET (ICR #7081)
+15 QUIT
+16 ;
SETAPP ;Check RPC, Set App proxy allowed flag
+1 NEW SDRPC,SDERR,SDIEN
+2 KILL FDA
+3 DO BMES^XPDUTL("SD*5.3*743 Post-Install starts...")
+4 FOR SDI=1:1
SET SDRPC=$PIECE($TEXT(RPC+SDI),";;",2)
if SDRPC="STOP"
QUIT
Begin DoDot:1
+5 ;Return IEN if OK to run, 0 otherwise.
+6 SET SDIEN=$ORDER(^XWB(8994,"B",SDRPC,0))
+7 IF +$GET(SDIEN)'>0
DO BMES^XPDUTL(" >> ... Unable to set APP PROXY ENABLED flag for "_SDRPC_" in Remote Procedure Not found")
+8 ;S APPROXY ALLOWED TO YES
SET FDA(8994,SDIEN_",",.11)=1
+9 ;Needed in call to XUA4A7
SET DIC(0)=""
+10 DO FILE^DIE("I","FDA","IENS")
+11 IF $DATA(^TMP("DIERR",$JOB,1,"TEXT",1))
Begin DoDot:2
+12 SET SDERR=^TMP("DIERR",$JOB,1,"TEXT",1)
+13 DO MES^XPDUTL(" >> ... "_$GET(SDERR("DIERR",1,"TEXT",1))_".")
+14 DO MES^XPDUTL(" >> ... Please contact IVA(VIA) support for assistance...")
+15 KILL ^TMP("DIERR",$JOB)
+16 QUIT
End DoDot:2
+17 QUIT
End DoDot:1
+18 DO MES^XPDUTL("SD*5.3*743 Post-Install is complete.")
DO MES^XPDUTL("")
+19 KILL %H,%I,DIC,X,Y
+20 QUIT
+21 ;
RPC ;List of RPCs to update
+1 ;;SDEC APPSLOTS
+2 ;;SDEC APPADD
+3 ;;SDEC APPDEL
+4 ;;SDEC CHECKIN
+5 ;;SDEC CHECKOUT
+6 ;;SDEC CANCKOUT
+7 ;;SDEC NOSHOW
+8 ;;SDEC CRSCHED
+9 ;;SDEC FAPPTGET
+10 ;;STOP
+11 QUIT
+12 ;
TEST ; Check flags for install test. Before and After.
+1 NEW SDRPC,SDI
+2 FOR SDI=1:1
Begin DoDot:1
+3 SET SDRPC=$PIECE("SDEC APPSLOTS^SDEC APPADD^SDEC APPDEL^SDEC CHECKIN^SDEC CHECKOUT^SDEC CANCKOUT^SDEC NOSHOW^SDEC CRSCHED^SDEC FAPPTGET^STOP","^",SDI)
+4 if SDRPC'="STOP"
WRITE !,SDRPC,"=",$PIECE($GET(^XWB(8994,$ORDER(^XWB(8994,"B",SDRPC,0)),0)),"^",11)
+5 QUIT
End DoDot:1
if SDRPC="STOP"
QUIT
+6 QUIT
+7 ;
