VIAB12PO.m

VIAB12PO ;BIRM;LE - VIA RPCs ;04/05/2016

 ;;1.0;VISTA INTEGRATION ADAPTER;**12**;06-FEB-2014;Build 28

 ;

 N DIC,DIE,X,Y,DA,DR,VIAOPT,VIASEQ,VIARPC,VALUE

 D EN^DDIOL("Adding VIABPCE SAVE 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 VIABPCE SAVE RPC.")

 ;

 ;add the VIABPCE SAVE 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="VIABPCE SAVE"

 D ^DIC

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VIAB12PO   621     printed  Apr 09, 2024@21:47:30                                                                                                                                                                                                     Page 2

VIAB12PO  ;BIRM;LE - VIA RPCs ;04/05/2016

 +1       ;;1.0;VISTA INTEGRATION ADAPTER;**12**;06-FEB-2014;Build 28

 +2       ;

 +3        NEW DIC,DIE,X,Y,DA,DR,VIAOPT,VIASEQ,VIARPC,VALUE

 +4        DO EN^DDIOL("Adding VIABPCE SAVE remote procedure to the VIAB WEB SERVICE OPTION.")

 +5       ;get the IEN for the option

 +6        SET VALUE="VIAB WEB SERVICES OPTION"

           SET VIAOPT=$$FIND1^DIC(19,,"X",.VALUE)

 +7        IF '$GET(VIAOPT)

               Begin DoDot:1

 +8                DO EN^DDIOL("Could not find the VIAB WEB SERVICE option to add the VIABPCE SAVE RPC.")

               End DoDot:1

               QUIT 

 +9       ;

 +10      ;add the VIABPCE SAVE RPC to the option

 +11       KILL DIC,X,Y,DA

 +12       SET DA(1)=VIAOPT

 +13       SET DIC="^DIC(19,"_DA(1)_",""RPC"","

 +14       SET DIC(0)="XL"

           SET X="VIABPCE SAVE"

 +15       DO ^DIC

 +16       QUIT 

 +17      ;