- 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 Jan 18, 2025@03:47:45 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 ;