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

Package: Uncategorized

Routine: VDI1P1


Information

VDI1P1 ;BP/CMF/GJW - Patch 1 Post-Init ; 3/23/2023

Source Information

Source file <VDI1P1.m>

Entry Points

Name Comments DBIA/ICR reference
ENV ;do environment check
PROGCHK(XPDABORT) ; checks for necessary programmer variables
RQIDCHK(XPDABORT) ; checks for additional required identifiers beyond .01 field
; loop through required identifier fields, if a field outside of our filing list, abort, alert user with message
HELP ; Help for ?? on Installation Question POS1 (use direct writes in env check routine)
POST ; Post-init for VDI*1*1
IZG(VDIENV) ; Create Non Person Entity (NPE) user
; look for type of VistA instance
; create NPE for type of instance
MHV(VDIENV) ; Create NPE user
; create NPE for type of instance
ADD(VDIFIRST,VDILAST,VDISECID,VDIEMAIL,VDIMSG) ;create new non-person user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter 1 if patch is being installed in a Pre-Production system."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter 2 if patch is being installed in a Software Quality Assurance system."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Enter 3 if patch is being installed in a Test system."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"Enter 4 if patch is being installed in a Development system."
  • Line Location: HELP+4
Info |  Source |  Entry Points |  Interaction Calls