Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls