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

VIABRPC5.m

Go to the documentation of this file.
  1. VIABRPC5 ;BAY/PIJ - Create Application Proxy user for VIA team ;06-FEB-14 3:36pm
  1. ;;1.0;VISTA INTEGRATION ADAPTER;**1**;06-FEB-14;Build 25
  1. ;
  1. ; ICR #4677 = $$CREATE^XUSAP (API for Application Proxy)
  1. ; ICR #10141 = BMES^XPDUTL & MES^XPDUTL
  1. ;
  1. ; Application Proxy name = "VIABAPPLICATIONPROXY,VIAB"
  1. ; Secondary Menu Option name = "VIAB WEB SERVICES OPTION"
  1. ;
  1. RUNALL ; Entry point in the (Patch - VIAB*1.0*1 v2) to run ALL 2 steps
  1. D BMSG("Starting Post-Init")
  1. D PROXY
  1. D MSG("Post-Init Complete")
  1. Q
  1. ;
  1. PROXY ; Create an Application Proxy for VIAB application
  1. N X
  1. S X=$$CREATE^XUSAP("VIABAPPLICATIONPROXY,VIAB","","VIAB WEB SERVICES OPTION")
  1. ;
  1. I +X=0 D Q
  1. . D BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
  1. . D MSG(" already exists in the NEW PERSON file (#200)"),MSG("")
  1. ;
  1. I +X=-1 D Q
  1. . D BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
  1. . D MSG(" Unsuccessful; could not create Application Proxy User")
  1. . D MSG(" OR error in call to UPDATE^DIE)"),MSG("")
  1. ;
  1. D BMSG(" ********************************************************************")
  1. D MSG(" ** Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB' = created **")
  1. D MSG(" ** Secondary Menu Option - 'VIAB WEB SERVICES OPTION' = linked **")
  1. D MSG(" ** to the Application Proxy. **")
  1. D MSG(" ********************************************************************")
  1. D MSG("")
  1. Q
  1. ;
  1. ; A message is also recorded in INSTALL file
  1. ; (#9.7) entry for the installation.
  1. ;
  1. ; Output a message.
  1. MSG(MSG) ; Integration Agreement #10141
  1. D MES^XPDUTL(MSG)
  1. Q
  1. ;
  1. ; Output a message with a blank line added.
  1. BMSG(MSG) ; Integration Agreement #10141
  1. D BMES^XPDUTL(MSG)
  1. Q