DG531027P ;ALB/MCF - DG*5.3*1027 PRE AND POST-INSTALL ROUTINE TO SET UP HWSC ENTRIES FOR E&E WEB SERVICE;9 September 2020 9:00 AM
Source file <DG531027P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HELP | ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)
|
|
| PRE | ; PRE INSTALL Main entry point
; This routine contains the pre-install check which gets executed ; before patch DG*5.3*1027 is allowed to install. ; - Check that the wsdl file is accessible |
|
| CHK | ; Check for existence of WSDL file.
|
|
| GETPATH(DGBWSDL) | ; - Get the location of the DGBWSDL file
; Return the path of the file. If not found, give error message and return NULL |
|
| POST | ; POST INSTALL Main entry point
; ICRs: ; 10141 : BMES^XPDUTL ; : MES^XPDUTL ; 5421 : GENPORT^XOBWLIB ; 7190 : R/W access to file 18.02 ; 7191 : R/W access to file 18.12 ; 2240 : $$ENCRYP^XUSRB1 ; 10096 : ^%ZSOF("DEL") ; 3352 : DIEZ^DIKCUTL3 |
|
| POST1 | ; Setup DG EE SUMMARY SERVER and SEVICE
|
|
| SERVICE | ; from wsdl, create/compile classes and set up service
|
|
| SERVER | ; set up web server
|
|
| DISABLE | ; Disable DG EE SUMMARY server if it exists - update of server will set it back to enabled (except for Pre-prod)
|
|
| POST2 | ; Cleanup of routines generated by WSDL compilation
|
|
| POST3 | ; Recompile all input templates for fields that were modified
|
|
| ROU | ; WSDL routines compiled
|
|
| TYPEMAP | ; Map the system type to the SERVER endpoint, Password and Port values
|
| Name | Field # of Occurrence |
|---|---|
| $$DEFDIR^%ZISH | GETPATH+13 |
| $$LIST^%ZISH | GETPATH+6, GETPATH+10, GETPATH+14 |
| $$FIND1^DIC | SERVER+12, DISABLE+2 |
| FILE^DIE | SERVER+37, DISABLE+6 |
| UPDATE^DIE | SERVER+38, SERVER+51 |
| DIEZ^DIKCUTL3 | POST3+18 |
| $$GET1^DIQ | SERVER+46 |
| $$GENPORT^XOBWLIB | SERVICE+7 |
| BMES^XPDUTL | PRE+12, PRE+17, PRE+20, CHK+2, GETPATH+16, POST+11, POST+15, POST1+2, SERVICE+8, SERVER+40 , SERVER+41, SERVER+53, DISABLE+7, POST2+1, POST3+3 |
| MES^XPDUTL | PRE+18, PRE+19, CHK+6, GETPATH+17, GETPATH+18, SERVER+7, SERVER+52, POST3+4, POST3+5, POST3+6 , POST3+7, POST3+8 |
| $$ENCRYP^XUSRB1 | SERVER+35 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^XOB(18.02 - [#18.02] | GET1^DIQ |
| ^XOB(18.12 - [#18.12] | FIND1^DIC |
| ^DGEN(27.11 - [#27.11] | DIEZ^DIKCUTL3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("DEL" | POST2+5, POST2+8 |
| ^XOB(18.12 - [#18.12] | SERVER+45 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGARR | SERVICE+1~, SERVICE+7 |
| DGARR("CACHE | PACKAGE NAME" , SERVICE+4* |
| DGARR("WEB SE | RVICE NAME" , SERVICE+5* |
| DGARR("WSDL F | ILE" , SERVICE+3* |
| DGBFILE | GETPATH+2~ |
| DGBFILE( | GETPATH+5* |
| DGBPATH | CHK+1~, CHK+3*, CHK+5, CHK+6, GETPATH+2~, GETPATH+4*, GETPATH+6, GETPATH+9*, GETPATH+10, GETPATH+13* , GETPATH+14, GETPATH+17, GETPATH+19*, GETPATH+20, SERVICE+1~, SERVICE+2*, SERVICE+3 |
| DGBSTAT | GETPATH+2~, GETPATH+6*, GETPATH+7, GETPATH+10*, GETPATH+11, GETPATH+14*, GETPATH+15 |
| DGBWSDL | GETPATH~, GETPATH+5, GETPATH+16, GETPATH+17 |
| DGCOUNT | SERVER+1~, SERVER+10*, POST2+2~, POST2+3* |
| DGDATA | SERVER+1~, SERVER+10*, SERVER+11, POST2+2~, POST2+3*, POST2+5, POST2+7, POST2+8 |
| DGEPT | SERVER+1~, SERVER+11*, SERVER+20 |
| DGERR | SERVER+2~ |
| DGERR02 | SERVER+2~ |
| DGERR02("DIERR" | SERVER+52, SERVER+53 |
| DGERR12 | SERVER+2~, DISABLE+1~ |
| DGERR12("DIERR" | SERVER+40, SERVER+41 |
| DGEXIT | SERVER+1~, SERVER+8*, SERVER+10, SERVER+11* |
| DGFDAI | SERVER+2~, SERVER+39, SERVER+48! |
| DGFDAI(1 | SERVER+39 |
| DGFLD | POST3+2~, POST3+18 |
| DGFLD( | POST3+14*, POST3+15*, POST3+16*, POST3+17* |
| DGIEN | SERVER+2~, DISABLE+1~ |
| DGIEN("SRV" | SERVER+12*, SERVER+13, SERVER+37, SERVER+38, SERVER+39*, SERVER+45, DISABLE+2*, DISABLE+3, DISABLE+5 |
| DGIENS | SERVER+2~ |
| DGIENS("SRC" | SERVER+43*, SERVER+46*, SERVER+47, SERVER+49, SERVER+50 |
| DGIENS("SRV" | SERVER+13*, SERVER+14*, SERVER+16, SERVER+18, SERVER+20, SERVER+23, SERVER+25, SERVER+27, SERVER+29, SERVER+31 , SERVER+33, SERVER+35, SERVER+39*, SERVER+49, SERVER+50 |
| DGPORT | SERVER+1~, SERVER+11*, SERVER+18, SERVER+31 |
| DGPW | SERVER+1~, SERVER+11*, SERVER+35 |
| DGSERVER | SERVER+2~, DISABLE+1~ |
| DGSERVER( | SERVER+16*, SERVER+18*, SERVER+20*, SERVER+23*, SERVER+25*, SERVER+27*, SERVER+29*, SERVER+31*, SERVER+33*, SERVER+35* , DISABLE+5* |
| DGSERVICE | SERVER+2~, SERVER+48! |
| DGSERVICE( | SERVER+49*, SERVER+50* |
| DGSRVC | POST1+1~, POST1+4*, SERVICE+5, SERVER+46, SERVER+49, SERVER+53 |
| DGSRVIEN | SERVER+2~, SERVER+44*, SERVER+45*, SERVER+46 |
| DGSRVR | POST1+1~, POST1+3*, SERVER+12, SERVER+16, SERVER+40, SERVER+41, DISABLE+2, DISABLE+7 |
| DGSTAT | SERVICE+1~, SERVICE+7*, SERVICE+8 |
| DGTYPE | SERVER+1~, SERVER+4*, SERVER+6*, SERVER+7, SERVER+11, SERVER+23 |
| X | POST2+2~, POST2+5*, POST2+8* |
| >> XPDABORT | PRE+16, CHK+5* |
| >> XPDQUES("POS1" | SERVER+4 |
