Routine: DG531143P

Information

DG531143P ;ALB/JAM - PATCH DG*5.3*1143 POST-INSTALL ROUTINE ;05 May 2025 10:00 AM

Name	Comments	DBIA/ICR reference
HELP	; Help for ?? on Installation Question POS (use direct writes in env check routine)
ENV	;Main entry point for Environment check
PRE	;Main entry point for Pre-Install items
POST	;Main entry point for Post-Install items
POST1	; Set MAS PARAMETER for Real-time Address Update
POST2(DGTYPE)	; Setup DG RTAU CONTACTINFO SERVICE AND DG RTAU SERVER ; DGTYPE will be a value of 1-4 (MIRROR/PRE-PROD, SQA, DEVELOPMENT PRODUCTION)
SERVICE	; Set up service - use REGREST^XOBWLIB
SERVER(DGTYPE)	; set up web server ; DGTYPE will be a value of 1-4 (MIRROR/PRE-PROD, SQA, DEVELOPMENT, PRODUCTION)
DISABLE	; Disable DG RTAU SERVER server if it exists - update of server will set it back to enabled (except for Mirror)
POST3(DGTYPE)	; Set the API Key for the site into the parameter DG RTAU API KEY ; DGTYPE will be a value of 1-4 (MIRROR/PRE-PROD, SQA, DEVELOPMENT PRODUCTION)
POST4	; Set the DG RTAU API KEY parameter PROHIBIT EDITING (#.06) to 1 (YES)
POST5	; Recompile templates ; Build array of file and field numbers for top-level file and fields being exported ; Array format: DGFLD(file#,field)="" ; Recompile all compiled input templates that contain the fields in the DGLFD array passed by reference ; PATIENT file #2
TYPEMAP	; Map the system type to the SERVER endpoint and Port values

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter 1 if patch is being installed in a Preprod/Mirror system." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter 2 if patch is being installed in a Software Quality Assurance system." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Enter 3 if patch is being installed in a Development system." Line Location: HELP+3