LHSPST1.m

LHSPST1 ;ALB/BNT - LIGHTHOUSE INITIAL DEPLOYMENT POST INSTALL ;23-FEB-2020

 ;;1.0;LIGHTHOUSE;****;23-FEB-2020;Build 9

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 ;

POST ; Add the Lighthouse Proxy Account

 N IEN200

 D MES^XPDUTL("Adding entry 'LHS,APPLICATION PROXY' to the New Person file (#200)")

 S IEN200=$$CREATE^XUSAP("LHS,APPLICATION PROXY","","LHS RPC CONTEXT")

 I +IEN200=0 D MES^XPDUTL("........'LHS,APPLICATION PROXY' already exists.")

 I +IEN200>0 D MES^XPDUTL("........'LHS,APPLICATION PROXY' added.")

 I IEN200<0 D MES^XPDUTL("........'ERROR: LHS,APPLICATION PROXY' NOT added.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LHSPST1   631     printed  Mar 13, 2025@21:14:45                                                                                                                                                                                                      Page 2

LHSPST1   ;ALB/BNT - LIGHTHOUSE INITIAL DEPLOYMENT POST INSTALL ;23-FEB-2020

 +1       ;;1.0;LIGHTHOUSE;****;23-FEB-2020;Build 9

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ;

POST      ; Add the Lighthouse Proxy Account

 +1        NEW IEN200

 +2        DO MES^XPDUTL("Adding entry 'LHS,APPLICATION PROXY' to the New Person file (#200)")

 +3        SET IEN200=$$CREATE^XUSAP("LHS,APPLICATION PROXY","","LHS RPC CONTEXT")

 +4        IF +IEN200=0

               DO MES^XPDUTL("........'LHS,APPLICATION PROXY' already exists.")

 +5        IF +IEN200>0

               DO MES^XPDUTL("........'LHS,APPLICATION PROXY' added.")

 +6        IF IEN200<0

               DO MES^XPDUTL("........'ERROR: LHS,APPLICATION PROXY' NOT added.")

 +7        QUIT