Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VIAB12PO

VIAB12PO.m

Go to the documentation of this file.
  1. VIAB12PO ;BIRM;LE - VIA RPCs ;04/05/2016
  1. ;;1.0;VISTA INTEGRATION ADAPTER;**12**;06-FEB-2014;Build 28
  1. ;
  1. N DIC,DIE,X,Y,DA,DR,VIAOPT,VIASEQ,VIARPC,VALUE
  1. D EN^DDIOL("Adding VIABPCE SAVE remote procedure to the VIAB WEB SERVICE OPTION.")
  1. ;get the IEN for the option
  1. S VALUE="VIAB WEB SERVICES OPTION" S VIAOPT=$$FIND1^DIC(19,,"X",.VALUE)
  1. I '$G(VIAOPT) D Q
  1. .D EN^DDIOL("Could not find the VIAB WEB SERVICE option to add the VIABPCE SAVE RPC.")
  1. ;
  1. ;add the VIABPCE SAVE RPC to the option
  1. K DIC,X,Y,DA
  1. S DA(1)=VIAOPT
  1. S DIC="^DIC(19,"_DA(1)_",""RPC"","
  1. S DIC(0)="XL",X="VIABPCE SAVE"
  1. D ^DIC
  1. Q
  1. ;