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 ---[H[J[2J[HLHSPST1 631 printed Nov 22, 2024@17:19:57 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