SD53P743.m

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 ---SD53P743   1968     printed  Apr 09, 2024@21:40:28                                                                                                                                                                                                    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       ;