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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PREAPO3

Package: Advanced Medication Platform

Routine: PREAPO3


Information

PREAPO3 ;BIR/RTR - Identify AMPL users for patch PREA*1*3; OCT 16, 2020

Source Information

Source file <PREAPO3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Identify AMPL Users - called from the PREA AMPL GUI ACCESS option
RUN ;Run job
TASK ;Task Job
CLEAN ;Kill TMP Globals
ASK ;User prompts
TEST ;Test account
MAIL ;Send mail message
SETTMP ;Set TMP global data
USER ;Find users to get AMPL access
ADD(PREAUSE1) ;User gets access, add to TMP global
ACTIVE(PREAINAC) ;Check if user is inactive
PER(PREAUSE2) ;Person Class check
MAILF ;Send final mail message
DATE() ;Returns Date/Time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"Nothing run, exiting option.",!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"Job not tasked to run.",!
  • Line Location: TASK+7
Function Call: WRITE
  • Prompt: !!,"Job tasked to run.",!
  • Line Location: TASK+8
Function Call: WRITE
  • Prompt: !!,"This option generates the initial list of users that will be submitted for"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Person Class. Individual access can subsequently be granted or taken away by"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"following the procedures outlined in Appendix A of the PREA Technical Manual.",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,"Since this is a production account, you can elect to:"
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !," 1. Only send this list to your Outlook and VistA emails, the"
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !," list will not be submitted to grant AMPL access."
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !," 2. At the request of the Implementation Manager, send the list to"
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !," yourself and the people who will submit AMPL access requests for"
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !," all users on the list. If you elect to send the list to the team"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !," who submits AMPL access requests, the option will then be disabled."
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !!," ********************NOTE********************"
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: !," Option 2 should only be done when requested by the Implementation"
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !," Manager, AMPL will be a phased rollout.",!
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+28
Function Call: WRITE
  • Prompt: !,"Since this is a test account, the list will only be sent to you at your Outlook"
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,"and VistA emails and will not be submitted to grant AMPL access. Submitting"
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !,"for AMPL access can only happen when running this option in production.",!
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call