VIAB1P22 ;ALB;DRP - VIA RPCs ;04/05/2016
;;1.0;VISTA INTEGRATION ADAPTER;**22**;02-SEP-2020;Build 2
;Per VA Directive 6402, this routine should not be modified.
;
Q
EN ; Post install to add new RPC to VIAB WEB Services option
N DIC,DIE,X,Y,DA,DR,VIAOPT,VIASEQ,VIARPC,VALUE
S VIARPC="VIAB PATCH"
D EN^DDIOL("Adding "_VIARPC_" remote procedure to the VIAB WEB SERVICE OPTION.")
;get the IEN for the option
S VALUE="VIAB WEB SERVICES OPTION" S VIAOPT=$$FIND1^DIC(19,,"X",.VALUE)
I '$G(VIAOPT) D Q
.D EN^DDIOL("Could not find the VIAB WEB SERVICE option to add the "_VIARPC_" RPC.")
;
;add the RPC to the option
K DIC,X,Y,DA
S DA(1)=VIAOPT
S DIC="^DIC(19,"_DA(1)_",""RPC"","
S DIC(0)="XL",X=VIARPC
D ^DIC
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIAB1P22 748 printed Dec 13, 2024@02:45:11 Page 2
VIAB1P22 ;ALB;DRP - VIA RPCs ;04/05/2016
+1 ;;1.0;VISTA INTEGRATION ADAPTER;**22**;02-SEP-2020;Build 2
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
EN ; Post install to add new RPC to VIAB WEB Services option
+1 NEW DIC,DIE,X,Y,DA,DR,VIAOPT,VIASEQ,VIARPC,VALUE
+2 SET VIARPC="VIAB PATCH"
+3 DO EN^DDIOL("Adding "_VIARPC_" remote procedure to the VIAB WEB SERVICE OPTION.")
+4 ;get the IEN for the option
+5 SET VALUE="VIAB WEB SERVICES OPTION"
SET VIAOPT=$$FIND1^DIC(19,,"X",.VALUE)
+6 IF '$GET(VIAOPT)
Begin DoDot:1
+7 DO EN^DDIOL("Could not find the VIAB WEB SERVICE option to add the "_VIARPC_" RPC.")
End DoDot:1
QUIT
+8 ;
+9 ;add the RPC to the option
+10 KILL DIC,X,Y,DA
+11 SET DA(1)=VIAOPT
+12 SET DIC="^DIC(19,"_DA(1)_",""RPC"","
+13 SET DIC(0)="XL"
SET X=VIARPC
+14 DO ^DIC
+15 QUIT
+16 ;
