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

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Master Patient Index VistA 1 $$GETICN^MPIF001  

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

External References

Name Field # of Occurrence
$$GETICN^MPIF001 CHK+11

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHK+9

Label References

Name Line Occurrences
CHK EN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGCNT CHK+2~, CHK+3*, CHK+12*, CHK+15
DGDFN CHK+2~, CHK+8*, CHK+9*, CHK+11
DGHDR CHK+2~, CHK+3*, CHK+10*
DGX CHK+2~, CHK+4*, CHK+10
U CHK+9
>> XPDABORT EN+13, CHK+10*, CHK+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All