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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 8 HOME^%ZIS  ^%ZTLOAD  $$DT^XLFDT  $$UP^XLFSTR  OUT^XPDMENU  $$GET^XUA4A72  $$PROD^XUPROD  $$ACTIVE^XUSER  
VA FileMan 3 (C,NOW,YX)^%DTC  GETS^DIQ  ^DIR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Advanced Medication Platform 1 PREA AMPL GUI ACCESS  

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

External References

Name Field # of Occurrence
C^%DTC EN+17
NOW^%DTC DATE+2
YX^%DTC DATE+3
HOME^%ZIS TASK+9
^%ZTLOAD TASK+6
GETS^DIQ EN+4, EN+10, ADD+2
^DIR EN+8, EN+14, ASK+22, ASK+28, TEST+6
$$SITE^VASITE RUN+4
$$DT^XLFDT EN+16
$$UP^XLFSTR PER+3
^XMD MAIL+9, MAILF+11
OUT^XPDMENU RUN+1
$$GET^XUA4A72 PER+2
$$PROD^XUPROD EN+20
$$ACTIVE^XUSER ACTIVE+1

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
Routine Call
  • DIR
  • Line Location:
    • EN+8
    • EN+14
    • ASK+22
    • ASK+28
    • TEST+6
Routine Call
  • %ZIS
  • Line Location:
    • TASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J CLEAN+1!, MAIL+2!, MAIL+10!, SETTMP+3, SETTMP+4, SETTMP+5*, SETTMP+7*, SETTMP+8*, SETTMP+10, SETTMP+11
, SETTMP+12*, SETTMP+13*, SETTMP+15*, SETTMP+16*, SETTMP+18*, USER+7, USER+8*, USER+12, ADD+5*, ADD+6*
, ADD+7*, MAILF+2!, MAILF+5, MAILF+6*, MAILF+7*, MAILF+12!
^VA(200 - [#200] USER+11
^XTMP("PREAUSID" EN+2, EN+3, EN+18*, EN+19*, CLEAN+1!
^XUSEC( USER+6

Label References

Name Line Occurrences
$$ACTIVE USER+9, USER+13
$$DATE RUN+3, SETTMP+17
$$PER USER+13
ADD USER+9, USER+13
ASK EN+21
CLEAN EN+15, EN+22, RUN+6, TASK+7
MAIL RUN+5
MAILF RUN+5
SETTMP MAIL+5
TASK EN+23
TEST ASK+7
USER RUN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DATE+1~
%H DATE+1~
%I DATE+1~
DIFROM MAIL+9~, MAILF+11~
DIR EN+1~, ASK+1~, ASK+19!, ASK+22!, ASK+25!, ASK+28!, TEST+4!, TEST+6!
DIR("?" ASK+20*, ASK+21*, ASK+22*, ASK+26*, ASK+27*, ASK+28*, TEST+5*, TEST+6*
DIR("A" EN+8*, EN+14*, ASK+19*, ASK+25*, TEST+4*
DIR("B" ASK+19*, ASK+25*, TEST+4*
DIR(0 EN+8*, EN+14*, ASK+19*, ASK+25*, TEST+4*
DIROUT EN+1~
DIRUT EN+1~, ASK+1~
DT EN+16*, EN+17, EN+18
DTOUT EN+1~, ASK+1~, ASK+23, ASK+24, TEST+7
DUOUT EN+1~, ASK+1~, ASK+23, ASK+24, TEST+7
DUZ EN+9, EN+19, MAIL+7, MAIL+9~, MAILF+11~
PREADATA USER+4~
PREADATA(200 ADD+3, ADD+4
PREADATE DATE+1~, DATE+3*, DATE+4
PREADUZ USER+4~, USER+6*, USER+7, USER+8, USER+9, USER+11*, USER+12, USER+13
PREAFNL EN+1~, EN+20*, RUN+1, RUN+5, ASK+29*, ADD+5
PREAINAC ACTIVE~, ACTIVE+1
PREAKEY USER+4~, USER+5*, USER+6
PREALP1 SETTMP+1~, SETTMP+2*, SETTMP+3*, SETTMP+4, SETTMP+5, SETTMP+9*, SETTMP+10*, SETTMP+11, SETTMP+12
PREALP2 SETTMP+1~, SETTMP+4*, SETTMP+11*
PREALP3 SETTMP+1~, SETTMP+2*, SETTMP+5*, SETTMP+6, SETTMP+8*, SETTMP+9*, SETTMP+12*, SETTMP+15*, SETTMP+16*
PREALP4 SETTMP+1~, SETTMP+6*, SETTMP+7, SETTMP+9*, SETTMP+13
PREALP5 SETTMP+1~, SETTMP+9*, SETTMP+12*, SETTMP+13, SETTMP+14
PREANAME USER+4~, ADD+3*, ADD+5, ADD+7
PREANT MAILF+1~, MAILF+5*, MAILF+6
PREANTC MAILF+1~, MAILF+2*, MAILF+6*, MAILF+7
PREAPCLS PER+1~, PER+2*, PER+3
PREAPIN1 EN+1~, EN+9*, EN+10, EN+11
PREAPIN2 EN+1~
PREAPIN2(200 EN+11
PREAPIN3 EN+1~, EN+11*, EN+12, MAIL+8, MAILF+10
PREAPRG EN+1~, EN+17*, EN+18
PREAPROD EN+1~, EN+20*, ASK+7, SETTMP+7
PREARUN EN+1~, EN+20*, EN+22, ASK+30*, TEST+8*
PREASITE RUN+2~, RUN+4*, MAIL+4, MAILF+4
PREASTOP RUN+2~, SETTMP+17*, SETTMP+18
PREASTRT RUN+2~, RUN+3*, SETTMP+18
PREAUSE1 ADD~, ADD+1, ADD+5, ADD+7
PREAUSE2 PER~, PER+2
PREAVALU USER+4~, ADD+1*, ADD+2, ADD+3, ADD+4
PREAVAUS USER+4~, ADD+4*, ADD+5, ADD+6
PREAWHO EN+1~, EN+3*, EN+4, EN+5
PREAWHO1 EN+1~, EN+5*, EN+7
PREAWHO2 EN+1~
PREAWHO2(200 EN+5
X EN+1~, EN+17, ASK+1~, DATE+1~
X1 EN+1~, EN+17*
X2 EN+1~, EN+17*
XMDUZ MAIL+1~, MAIL+3*, MAILF+1~, MAILF+3*
XMMG MAIL+1~, MAILF+1~
XMROU MAIL+1~, MAILF+1~
XMSTRIP MAIL+1~, MAILF+1~
XMSUB MAIL+1~, MAIL+4*, MAILF+1~, MAILF+4*
XMTEXT MAIL+1~, MAIL+6*, MAILF+1~, MAILF+8*
XMY MAIL+1~, MAILF+1~
XMY( MAIL+7*, MAIL+8*, MAILF+10*
XMY("VAITEPMOEPMDPREPHARMGUISSOI@domain.ext" MAILF+9*
XMYBLOB MAIL+1~, MAILF+1~
XMZ MAIL+1~, MAILF+1~
Y EN+1~, ASK+1~, ASK+19!, ASK+24, ASK+25!, ASK+29, TEST+4!, TEST+7, DATE+1~, DATE+3
ZTCPU TASK+1~
ZTDESC TASK+1~, TASK+3*
ZTDTH TASK+1~
ZTIO TASK+1~, TASK+5*
ZTKILL TASK+1~
ZTPRI TASK+1~
>> ZTQUEUED RUN+7
>> ZTREQ RUN+7*
ZTRTN TASK+1~, TASK+2*
ZTSAVE TASK+1~
ZTSAVE("PREAFNL" TASK+4*
ZTSAVE("PREAPIN3" TASK+4*
ZTSAVE("PREAPROD" TASK+4*
>> ZTSK TASK+7
ZTSYNC TASK+1~
ZTUCI TASK+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All