- 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 ---[H[J[2J[HVIAB12PO 621 printed Feb 19, 2025@00:11:41 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 ;