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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XU8P662

Package: Kernel

Routine: XU8P662


Information

XU8P662 ;SLC/JAS - Post Install for 662 ;July 21, 2022@12:08:00

Source Information

Source file <XU8P662.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$DT,$$FMADD,$$HTE)^XLFDT  (BMES,MES)^XPDUTL  
VA FileMan 2 ENALL^DIK  ^DIR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
ENV ; ensure that user understands what is about to happen with creation
; of New Style cross reference.
POST ; Post-Install for XU*8.0*662
; This will assist with PAR cross reference creation along with
; Creation of new PAR Indices
RERUN ; if post install didn't complete this tag will allow manual rerun
SETXREF ; Set new PAR New Style cross reference for old data
XRFLOOP
FIN
ERRMSG ;
; Send Mail to CPRS Dev Team to notify of errors...need to rerun

External References

Name Field # of Occurrence
^%ZTLOAD POST+29
ENALL^DIK SETXREF+21
^DIR ENV+15
$$SITE^VASITE ERRMSG+2
$$DT^XLFDT SETXREF+6, ERRMSG+4
$$FMADD^XLFDT SETXREF+6, ERRMSG+4
$$HTE^XLFDT POST+22, POST+25, POST+30, SETXREF+10, SETXREF+28
^XMD FIN+1, ERRMSG+15
BMES^XPDUTL POST+20
MES^XPDUTL POST+22, POST+23, POST+25, POST+26, POST+30, POST+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"****** Creation of New Style 'PAR' Cross Reference ******",!
  • Line Location: ENV+5
Function Call: WRITE
  • Prompt: !,"This will loop through the RECIPIENT Multiple of the entire ALERT"
  • Line Location: ENV+6
Function Call: WRITE
  • Prompt: !,"TRACKING File (#8992.1) and create the 'PAR' New Style Cross"
  • Line Location: ENV+7
Function Call: WRITE
  • Prompt: !,"Reference based on the PROCESSED ALERT & RECIPIENT sub-fields.",!
  • Line Location: ENV+8
Function Call: WRITE
  • Prompt: !,"WARNING: Once you agree to create this, you should let it run until"
  • Line Location: ENV+9
Function Call: WRITE
  • Prompt: !,"it has finished completely !!",!
  • Line Location: ENV+10
Function Call: WRITE
  • Prompt: !!,"Ok, I am stopping the install."
  • Line Location: ENV+16
Function Call: WRITE
  • Prompt: !,"Ok, let's continue!",!
  • Line Location: ENV+17
Routine Call
  • DIR
  • Line Location:
    • ENV+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(8992.11 SETXREF+19, SETXREF+20
^TMP($J XRFLOOP+1*, FIN+1!, ERRMSG+15!
^VA(200 - [#200] ERRMSG+6
^XTMP("XU8P662" POST+21, POST+22, POST+24, POST+25, POST+27, RERUN+1!, SETXREF+5!, SETXREF+6*, SETXREF+7*, SETXREF+10
, SETXREF+11*, SETXREF+12*, SETXREF+24*, SETXREF+25*, SETXREF+26*, SETXREF+28, SETXREF+29*, SETXREF+31*, SETXREF+32*, SETXREF+33*
, XRFLOOP, XRFLOOP+1
^XTMP("XU8P662ERR" RERUN+1!
^XTMP($J ERRMSG+4*, ERRMSG+5*, ERRMSG+6*, ERRMSG+7*
^XTV(8992.1 - [#8992.1] SETXREF+13!, SETXREF+15

Label References

Name Line Occurrences
ERRMSG SETXREF+35
FIN XRFLOOP
POST RERUN+2
XRFLOOP XRFLOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SETXREF+1~
DA(1 SETXREF+21*
DIK SETXREF+1~, SETXREF+21*
DIK(1 SETXREF+21*
DIR ENV+3~
DIR("A" ENV+11*, ENV+12*
DIR("B" ENV+13*
DIR(0 ENV+14*
DIRUT ENV+3~, ENV+16
DTOUT ENV+3~, ENV+16
DUOUT ENV+3~, ENV+16
DUZ FIN+1, ERRMSG+6
ERRDD SETXREF+1~, SETXREF+4*, SETXREF+20*, SETXREF+23, SETXREF+30, SETXREF+35, ERRMSG+5
ERRDD("HANGS" SETXREF+4*, SETXREF+19*
ORIEN SETXREF+1~
SITE ERRMSG+2~*, ERRMSG+6, ERRMSG+8
U ERRMSG+2
XMDUZ SETXREF+38*, FIN+2!, ERRMSG+9*, ERRMSG+16!
XMSUB SETXREF+37*, FIN+2!, ERRMSG+8*, ERRMSG+16!
XMTEXT FIN*, FIN+2!, ERRMSG+3*, ERRMSG+16!
XMY FIN+2!, ERRMSG+16!
XMY( FIN+1*
XMY("AUGUSTINIAK.MARK@DOMAIN.EXT" ERRMSG+10*
XMY("CRUMLEY.JAMIE@DOMAIN.EXT" ERRMSG+12*
XMY("LEVI.TEITELBAUM@DOMAIN.EXT" ERRMSG+13*
XMY("PHELPS.TY@DOMAIN.EXT" ERRMSG+11*
XMY("THOMPSON.WILLIAM_ANTHONY@DOMAIN.EXT" ERRMSG+14*
XPDABORT ENV+4*, ENV+16*, ENV+18!
XTMPCNT SETXREF+1~, SETXREF+8*, SETXREF+11, SETXREF+12*, SETXREF+24*, SETXREF+25*, SETXREF+29*, SETXREF+31*, SETXREF+32*, SETXREF+33*
, SETXREF+39*, XRFLOOP*, XRFLOOP+1
XTMPMSG SETXREF+1~, SETXREF+9*, SETXREF+10*, SETXREF+11, SETXREF+22*, SETXREF+23*, SETXREF+24, SETXREF+27*, SETXREF+28*, SETXREF+29
XUIEN SETXREF+1~, SETXREF+14*, SETXREF+15*, SETXREF+21
XUMSG POST+3~, POST+20
XUMSG(1 POST+4*
XUMSG(10 POST+13*
XUMSG(11 POST+14*
XUMSG(12 POST+15*
XUMSG(13 POST+16*
XUMSG(14 POST+17*
XUMSG(15 POST+18*
XUMSG(16 POST+19*
XUMSG(2 POST+5*
XUMSG(3 POST+6*
XUMSG(4 POST+7*
XUMSG(5 POST+8*
XUMSG(6 POST+9*
XUMSG(7 POST+10*
XUMSG(8 POST+11*
XUMSG(9 POST+12*
Y ENV+3~, ENV+16
ZTDESC POST+29*, POST+32!
ZTDTH POST+28*, POST+32!
ZTIO POST+28*, POST+32!
ZTREQ SETXREF+1~, FIN+1*, ERRMSG+15*
ZTRTN POST+28*, POST+32!
ZTSK POST+30, POST+32!
ZTSK("D" POST+30
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All