DG531095P ;ALB/CC - ADD COMPACT TO DGEEWEBSVC CLASS ; Mar 22, 2023@14:22:39
Source file <DG531095P.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*1095 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 SERVICE
|
|
| 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
|
|
| ROU | ; WSDL routines compiled
|
|
| TYPEMAP | ; Map the system type to the SERVER endpoint, Password and Port values
|
| Name | Field # of Occurrence |
|---|---|
| $$DEFDIR^%ZISH | GETPATH+31 |
| $$LIST^%ZISH | GETPATH+16, GETPATH+24, GETPATH+28, GETPATH+32 |
| $$FIND1^DIC | SERVER+12, DISABLE+2 |
| FILE^DIE | SERVER+37, DISABLE+6 |
| UPDATE^DIE | SERVER+38, SERVER+51 |
| DT^DILF | PRE+17 |
| $$GET1^DIQ | SERVER+46 |
| $$GENPORT^XOBWLIB | SERVICE+7 |
| BMES^XPDUTL | PRE+12, PRE+25, PRE+28, CHK+2, GETPATH+18, GETPATH+34, POST+11, POST+14, POST1+2, SERVICE+8 , SERVER+40, SERVER+41, SERVER+53, DISABLE+7, POST2+1 |
| MES^XPDUTL | PRE+26, PRE+27, CHK+6, GETPATH+19, GETPATH+20, GETPATH+35, GETPATH+36, SERVER+7, SERVER+52 |
| $$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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("DEL" | POST2+5, POST2+8 |
| ^XOB(18.12 - [#18.12] | SERVER+45 |
| ^XTMP("DG531095" | PRE+16!, PRE+18*, PRE+19*, PRE+20*, GETPATH+6, GETPATH+7 |
| >> | 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+9* |
| DGBPATH | CHK+1~, CHK+3*, CHK+5, CHK+6, GETPATH+2~, GETPATH+14, GETPATH+15*, GETPATH+16, GETPATH+19, GETPATH+21* , GETPATH+23*, GETPATH+24, GETPATH+27*, GETPATH+28, GETPATH+31*, GETPATH+32, GETPATH+35, GETPATH+37*, GETPATH+38, SERVICE+1~ , SERVICE+2*, SERVICE+3 |
| DGBSTAT | GETPATH+2~, GETPATH+16*, GETPATH+17, GETPATH+24*, GETPATH+25, GETPATH+28*, GETPATH+29, GETPATH+32*, GETPATH+33 |
| DGBWSDL | GETPATH~, GETPATH+9, GETPATH+18, GETPATH+19, GETPATH+34, GETPATH+35 |
| 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 |
| DGDATEB | PRE+15~, PRE+17, PRE+18 |
| DGDATEE | PRE+15~, PRE+17, PRE+18 |
| DGEPT | SERVER+1~, SERVER+11*, SERVER+20 |
| 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 |
| 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 | GETPATH+2~, GETPATH+11*, GETPATH+14, SERVER+1~, SERVER+4*, SERVER+6*, SERVER+7, SERVER+11, SERVER+23 |
| U | PRE+18 |
| X | POST2+2~, POST2+5*, POST2+8* |
| >> XPDABORT | PRE+24, CHK+5* |
| >> XPDQUES("POS1" | GETPATH+6*, GETPATH+11, SERVER+4 |
| >> XPDQUES("POS2" | GETPATH+7*, GETPATH+15 |
| >> XPDQUES("PRE1" | PRE+19 |
| >> XPDQUES("PRE2" | PRE+20 |
