Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DG531143P

Package: Registration

Routine: DG531143P


Information

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

Source Information

Source file <DG531143P.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 $$FIND1^DIC  (FILE,UPDATE)^DIE  DIEZ^DIKCUTL3  $$GET1^DIQ  
Kernel 1 (BMES,MES)^XPDUTL  
Toolkit 1 ($$GET,EN)^XPAR  
Web Services Client 1 REGREST^XOBWLIB  

Entry Points

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

External References

Name Field # of Occurrence
$$FIND1^DIC SERVER+9, DISABLE+2, POST4+3
FILE^DIE POST1+5, SERVER+30, DISABLE+6, POST4+9
UPDATE^DIE SERVER+31, SERVER+44
DIEZ^DIKCUTL3 POST5+133
$$GET1^DIQ POST1+6, SERVER+39
REGREST^XOBWLIB SERVICE+4
$$GET^XPAR POST3+5
EN^XPAR POST3+11
BMES^XPDUTL POST+2, POST+12, POST1+2, POST1+8, POST2+3, SERVICE+2, SERVER+33, SERVER+34, SERVER+46, DISABLE+7
, POST3+10, POST3+14, POST4+5, POST4+11, POST5+6
MES^XPDUTL POST1+3, POST1+6, POST1+9, SERVER+4, SERVER+45, POST3+12, POST3+15, POST4+6, POST4+12, POST5+7
, POST5+8, POST5+9, POST5+10, POST5+11, POST5+12, POST5+13

Interaction Calls

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
Routine Call
  • DIC
  • Line Location:
    • SERVER+9
    • DISABLE+2
    • POST4+3
Routine Call
  • DIE
  • Line Location:
    • POST1+5
    • SERVER+30
    • DISABLE+6
    • POST4+9
Routine Call
  • DIE
  • Line Location:
    • SERVER+31
    • SERVER+44

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XOB(18.02 - [#18.02] GET1^DIQ
^XOB(18.12 - [#18.12] FIND1^DIC
^DPT - [#2] DIEZ^DIKCUTL3
^DG(43 - [#43] GET1^DIQ
^XTV(8989.51 - [#8989.51] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XOB(18.12 - [#18.12] SERVER+38

Label References

Name Line Occurrences
DISABLE POST2+8
POST1 POST+7
POST2 POST+8
POST3 POST+9
POST4 POST+10
POST5 POST+11
SERVER POST2+10
SERVICE POST2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGCNTXTRT SERVICE+1~, SERVICE+3*, SERVICE+4
DGCOUNT SERVER+2~, SERVER+7*
DGDATA SERVER+2~, SERVER+7*, SERVER+8
DGEPT SERVER+2~, SERVER+8*, SERVER+17
DGERR POST1+1~, POST1+6, POST1+7, SERVER+3~, POST3+2~, POST3+11, POST3+12, POST3+13, POST3+14, POST4+1~
, POST4+10, POST4+11
DGERR("DIERR" POST1+8
DGERR02 SERVER+3~
DGERR02("DIERR" SERVER+45, SERVER+46
DGERR12 SERVER+3~, DISABLE+1~
DGERR12("DIERR" SERVER+33, SERVER+34
DGEXIT SERVER+2~, SERVER+5*, SERVER+7, SERVER+8*
DGFDA POST1+1~, POST3+2~
DGFDA(43 POST1+5*
DGFDAI SERVER+3~, SERVER+32, SERVER+41!
DGFDAI(1 SERVER+32
DGFLD POST5+5~, POST5+133
DGFLD(2 POST5+17*, POST5+19*, POST5+21*, POST5+23*, POST5+25*, POST5+27*, POST5+29*, POST5+31*, POST5+33*, POST5+35*
, POST5+37*, POST5+39*, POST5+42*, POST5+44*, POST5+46*, POST5+48*, POST5+50*, POST5+52*, POST5+54*, POST5+56*
, POST5+58*, POST5+60*, POST5+62*, POST5+64*, POST5+67*, POST5+69*, POST5+71*, POST5+73*, POST5+75*, POST5+77*
, POST5+79*, POST5+81*, POST5+83*, POST5+85*, POST5+87*, POST5+89*, POST5+91*, POST5+93*, POST5+95*, POST5+98*
, POST5+100*, POST5+102*, POST5+104*, POST5+106*, POST5+108*, POST5+110*, POST5+112*, POST5+114*, POST5+116*, POST5+118*
, POST5+120*, POST5+122*, POST5+124*, POST5+126*, POST5+129*, POST5+131*
DGI SERVICE+1~
DGIEN SERVER+3~, DISABLE+1~
DGIEN("SRV" SERVER+9*, SERVER+10, SERVER+30, SERVER+31, SERVER+32*, SERVER+38, DISABLE+2*, DISABLE+3, DISABLE+5
DGIENS SERVER+3~
DGIENS("SRC" SERVER+36*, SERVER+39*, SERVER+40, SERVER+42, SERVER+43
DGIENS("SRV" SERVER+10*, SERVER+11*, SERVER+13, SERVER+15, SERVER+17, SERVER+22, SERVER+24, SERVER+26, SERVER+28, SERVER+32*
, SERVER+42, SERVER+43
DGILOWCASE SERVICE+1~
DGKEY POST3+2~, POST3+5*, POST3+6, POST3+9*, POST3+11
DGPARAM POST4+1~, POST4+3*, POST4+4, POST4+8
DGPORT SERVER+2~, SERVER+8*, SERVER+15, SERVER+28
DGPW SERVER+2~
DGRTAKEY POST4+1~
DGRTAKEY( POST4+8*
DGSERVER SERVER+3~, DISABLE+1~
DGSERVER( SERVER+13*, SERVER+15*, SERVER+17*, SERVER+22*, SERVER+24*, SERVER+26*, SERVER+28*, DISABLE+5*
DGSERVICE SERVER+3~, SERVER+41!
DGSERVICE( SERVER+42*, SERVER+43*
DGSRVC POST2+2~, POST2+5*, SERVICE+4, SERVER+39, SERVER+42, SERVER+46
DGSRVIEN SERVER+3~, SERVER+37*, SERVER+38*, SERVER+39
DGSRVR POST2+2~, POST2+4*, SERVER+9, SERVER+13, SERVER+33, SERVER+34, DISABLE+2, DISABLE+7
DGTYPE POST+4*, POST+6*, POST+8, POST+9, POST2~, POST2+10, SERVER~, SERVER+4, SERVER+8, POST3~
, POST3+9
X POST1+1~
>> XPDQUES("POS1" POST+4
Y POST1+1~

Marked Items

Name Field # of Occurrence
$T(TYPEMAP+DGCOUNT SERVER+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All