VIAB1P22.m

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 ---VIAB1P22   748     printed  Apr 09, 2024@21:47:28                                                                                                                                                                                                     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      ;