- VIABRPC5 ;BAY/PIJ - Create Application Proxy user for VIA team ;06-FEB-14 3:36pm
- ;;1.0;VISTA INTEGRATION ADAPTER;**1**;06-FEB-14;Build 25
- ;
- ; ICR #4677 = $$CREATE^XUSAP (API for Application Proxy)
- ; ICR #10141 = BMES^XPDUTL & MES^XPDUTL
- ;
- ; Application Proxy name = "VIABAPPLICATIONPROXY,VIAB"
- ; Secondary Menu Option name = "VIAB WEB SERVICES OPTION"
- ;
- RUNALL ; Entry point in the (Patch - VIAB*1.0*1 v2) to run ALL 2 steps
- D BMSG("Starting Post-Init")
- D PROXY
- D MSG("Post-Init Complete")
- Q
- ;
- PROXY ; Create an Application Proxy for VIAB application
- N X
- S X=$$CREATE^XUSAP("VIABAPPLICATIONPROXY,VIAB","","VIAB WEB SERVICES OPTION")
- ;
- I +X=0 D Q
- . D BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
- . D MSG(" already exists in the NEW PERSON file (#200)"),MSG("")
- ;
- I +X=-1 D Q
- . D BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
- . D MSG(" Unsuccessful; could not create Application Proxy User")
- . D MSG(" OR error in call to UPDATE^DIE)"),MSG("")
- ;
- D BMSG(" ********************************************************************")
- D MSG(" ** Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB' = created **")
- D MSG(" ** Secondary Menu Option - 'VIAB WEB SERVICES OPTION' = linked **")
- D MSG(" ** to the Application Proxy. **")
- D MSG(" ********************************************************************")
- D MSG("")
- Q
- ;
- ; A message is also recorded in INSTALL file
- ; (#9.7) entry for the installation.
- ;
- ; Output a message.
- MSG(MSG) ; Integration Agreement #10141
- D MES^XPDUTL(MSG)
- Q
- ;
- ; Output a message with a blank line added.
- BMSG(MSG) ; Integration Agreement #10141
- D BMES^XPDUTL(MSG)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVIABRPC5 1773 printed Jan 18, 2025@03:46:32 Page 2
- 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
- +2 ;
- +3 ; ICR #4677 = $$CREATE^XUSAP (API for Application Proxy)
- +4 ; ICR #10141 = BMES^XPDUTL & MES^XPDUTL
- +5 ;
- +6 ; Application Proxy name = "VIABAPPLICATIONPROXY,VIAB"
- +7 ; Secondary Menu Option name = "VIAB WEB SERVICES OPTION"
- +8 ;
- RUNALL ; Entry point in the (Patch - VIAB*1.0*1 v2) to run ALL 2 steps
- +1 DO BMSG("Starting Post-Init")
- +2 DO PROXY
- +3 DO MSG("Post-Init Complete")
- +4 QUIT
- +5 ;
- PROXY ; Create an Application Proxy for VIAB application
- +1 NEW X
- +2 SET X=$$CREATE^XUSAP("VIABAPPLICATIONPROXY,VIAB","","VIAB WEB SERVICES OPTION")
- +3 ;
- +4 IF +X=0
- Begin DoDot:1
- +5 DO BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
- +6 DO MSG(" already exists in the NEW PERSON file (#200)")
- DO MSG("")
- End DoDot:1
- QUIT
- +7 ;
- +8 IF +X=-1
- Begin DoDot:1
- +9 DO BMSG(" Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB'")
- +10 DO MSG(" Unsuccessful; could not create Application Proxy User")
- +11 DO MSG(" OR error in call to UPDATE^DIE)")
- DO MSG("")
- End DoDot:1
- QUIT
- +12 ;
- +13 DO BMSG(" ********************************************************************")
- +14 DO MSG(" ** Application Proxy User - 'VIABAPPLICATIONPROXY,VIAB' = created **")
- +15 DO MSG(" ** Secondary Menu Option - 'VIAB WEB SERVICES OPTION' = linked **")
- +16 DO MSG(" ** to the Application Proxy. **")
- +17 DO MSG(" ********************************************************************")
- +18 DO MSG("")
- +19 QUIT
- +20 ;
- +21 ; A message is also recorded in INSTALL file
- +22 ; (#9.7) entry for the installation.
- +23 ;
- +24 ; Output a message.
- MSG(MSG) ; Integration Agreement #10141
- +1 DO MES^XPDUTL(MSG)
- +2 QUIT
- +3 ;
- +4 ; Output a message with a blank line added.
- BMSG(MSG) ; Integration Agreement #10141
- +1 DO BMES^XPDUTL(MSG)
- +2 QUIT