VIABRPC5.m

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 ---VIABRPC5   1773     printed  Apr 09, 2024@21:47:22                                                                                                                                                                                                    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