Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD53P743

SD53P743.m

Go to the documentation of this file.
  1. SD53P743 ;ALB/DRP - Post Install ; Feb 10,2020
  1. ;;5.3;Scheduling;**743**;Aug 13, 1993;Build 2
  1. ;
  1. ; The following ICR's grant access to Non-SD applications.
  1. ; IVA (VIA) is releasing this patch in concordance with the
  1. ; VSE Development team.
  1. ; SDEC APPSLOTS (ICR #7071)
  1. ; SDEC APPADD (ICR #7059)
  1. ; SDEC APPDEL (ICR #7065)
  1. ; SDEC CHECKIN (ICR #7067)
  1. ; SDEC CHECKOUT (ICR #7069)
  1. ; SDEC CANCKOUT (ICR #7073)
  1. ; SDEC NOSHOW (ICR #7075)
  1. ; SDEC CRSCHED (ICR #7077)
  1. ; SDEC FAPPTGET (ICR #7081)
  1. Q
  1. ;
  1. SETAPP ;Check RPC, Set App proxy allowed flag
  1. N SDRPC,SDERR,SDIEN
  1. K FDA
  1. D BMES^XPDUTL("SD*5.3*743 Post-Install starts...")
  1. F SDI=1:1 S SDRPC=$P($T(RPC+SDI),";;",2) Q:SDRPC="STOP" D
  1. . ;Return IEN if OK to run, 0 otherwise.
  1. . S SDIEN=$O(^XWB(8994,"B",SDRPC,0))
  1. . I +$G(SDIEN)'>0 D BMES^XPDUTL(" >> ... Unable to set APP PROXY ENABLED flag for "_SDRPC_" in Remote Procedure Not found")
  1. .S FDA(8994,SDIEN_",",.11)=1 ;S APPROXY ALLOWED TO YES
  1. .S DIC(0)="" ;Needed in call to XUA4A7
  1. .D FILE^DIE("I","FDA","IENS")
  1. .I $D(^TMP("DIERR",$J,1,"TEXT",1)) D
  1. ..S SDERR=^TMP("DIERR",$J,1,"TEXT",1)
  1. ..D MES^XPDUTL(" >> ... "_$G(SDERR("DIERR",1,"TEXT",1))_".")
  1. ..D MES^XPDUTL(" >> ... Please contact IVA(VIA) support for assistance...")
  1. ..K ^TMP("DIERR",$J)
  1. ..Q
  1. .Q
  1. D MES^XPDUTL("SD*5.3*743 Post-Install is complete."),MES^XPDUTL("")
  1. K %H,%I,DIC,X,Y
  1. Q
  1. ;
  1. RPC ;List of RPCs to update
  1. ;;SDEC APPSLOTS
  1. ;;SDEC APPADD
  1. ;;SDEC APPDEL
  1. ;;SDEC CHECKIN
  1. ;;SDEC CHECKOUT
  1. ;;SDEC CANCKOUT
  1. ;;SDEC NOSHOW
  1. ;;SDEC CRSCHED
  1. ;;SDEC FAPPTGET
  1. ;;STOP
  1. Q
  1. ;
  1. TEST ; Check flags for install test. Before and After.
  1. N SDRPC,SDI
  1. F SDI=1:1 D Q:SDRPC="STOP"
  1. . S SDRPC=$P("SDEC APPSLOTS^SDEC APPADD^SDEC APPDEL^SDEC CHECKIN^SDEC CHECKOUT^SDEC CANCKOUT^SDEC NOSHOW^SDEC CRSCHED^SDEC FAPPTGET^STOP","^",SDI)
  1. . W:SDRPC'="STOP" !,SDRPC,"=",$P($G(^XWB(8994,$O(^XWB(8994,"B",SDRPC,0)),0)),"^",11)
  1. .Q
  1. Q
  1. ;