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: DG53985E

Package: Registration

Routine: DG53985E


Information

DG53985E ;ALB/ARF - ENVIRONMENT CHECK FOR PATCH DG*5.3*985 ; 08-OCT-2019

Source Information

Source file <DG53985E.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; This routine contains environmental checks which get executed
; before the DG*5.3*985 installation. It will check for entries in
; PREFERRED NAME(#.2405) in the PATIENT file (#2) that exceed 25
; characters. If these entries exist the install will be aborted.
CHK ; Check for PREFERRED NAME entries greater than 25 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> Beginning the Environment Checker"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,">>> DG*5.3*985 Aborted in Environment Checker",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,">>> Environment Checker Successful",!,">>> No PREFERRED NAME > 25 characters found",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!?5,"Checking for PREFERRED NAME field (#.2405) in PATIENT file(#2)",!
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: ?5,"for entries greater than 25 characters....",!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: DGDFN,?25,$$GETICN^MPIF001(DGDFN),!
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: !!,DGCNT_" record(s) found in the PATIENT (#2) file with a PREFERRED NAME(#.2405)"
  • Line Location: CHK+15
Function Call: WRITE
  • Prompt: !,"field value exceeding 25 characters, installation aborted."
  • Line Location: CHK+16
Info |  Source |  Entry Points |  Interaction Calls