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

Package: Electronic Health Modernization

Routine: EHMRXLP


Information

EHMRXLP ;PBM/RMS-Automating the D/C of Migrated VistA Rx's ; 8/5/25 12:35pm

Source Information

Source file <EHMRXLP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 $$FMADD^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  NODEV^XUTMDEVQ  
VA FileMan 3 ^DIC  $$EXTERNAL^DILFD  ^DIR  
Electronic Health Modernization 1 CAN^EHMPSRXDC  
MailMan 1 ^XMD  

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
Electronic Health Modernization 1 EHM CANCEL RX (AUTOMATED)  

Entry Points

Name Comments DBIA/ICR reference
WELCOME ;Introduce the routine, collect emails for delivery, confirm
EMAILS ;Collect recipient emails
LOOP ;Perform the loop, collect statistics
REPORT ;Generate the completion email with resulting stats output

External References

Name Field # of Occurrence
^DIC EMAILS+6
$$EXTERNAL^DILFD REPORT+6
^DIR WELCOME+15, EMAILS+12
CAN^EHMPSRXDC LOOP+9
$$FMADD^XLFDT LOOP+2
$$CJ^XLFSTR WELCOME+4
$$REPEAT^XLFSTR WELCOME+5
^XMD REPORT+9
NODEV^XUTMDEVQ WELCOME+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WELCOME+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Automated D/C of Migrated VistA Prescriptions",IOM)
  • Line Location: WELCOME+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM),!!
  • Line Location: WELCOME+5
Function Call: WRITE
  • Prompt: !,"This routine will discontinue any prescriptions with status of"
  • Line Location: WELCOME+6
Function Call: WRITE
  • Prompt: !,"ACTIVE, SUSPENDED, or HOLD and finishing date in the last year."
  • Line Location: WELCOME+7
Function Call: WRITE
  • Prompt: !!,"This job will be queued."
  • Line Location: WELCOME+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: WELCOME+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: WELCOME+17
Routine Call
  • DIC
  • Line Location:
    • EMAILS+6
Routine Call
  • DIR
  • Line Location:
    • WELCOME+15
    • EMAILS+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] LOOP+7
^PSRX("AFDT" LOOP+4, LOOP+6

Label References

Name Line Occurrences
EMAILS WELCOME+10
REPORT LOOP+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS WELCOME+2~, WELCOME+19
DIC EMAILS+1~, EMAILS+2*
DIC("A" EMAILS+4*
DIC("B" EMAILS+5*
DIC(0 EMAILS+3*
DIR WELCOME+12~, EMAILS+9~
DIR("A" WELCOME+14*, EMAILS+11*
DIR(0 WELCOME+13*, EMAILS+10*
DIROUT WELCOME+12~, EMAILS+9~
DIRUT WELCOME+12~, EMAILS+9~
DT LOOP+2
DTOUT WELCOME+12~, EMAILS+1~, EMAILS+7, EMAILS+9~, EMAILS+13
DUOUT WELCOME+12~, EMAILS+1~, EMAILS+7, EMAILS+9~, EMAILS+13
DUZ EMAILS+5
EHMQUIT WELCOME+2~, WELCOME+11, EMAILS+7*, EMAILS+13*
EHMRXIN LOOP+1~, LOOP+5*, LOOP+6*, LOOP+7, LOOP+9
EHMRXOD LOOP+1~, LOOP+3*, LOOP+4*, LOOP+6
EHMRXSD LOOP+1~, LOOP+2*, LOOP+3
EHMSTA LOOP+1~, LOOP+7*, LOOP+8, REPORT+4*, REPORT+5*, REPORT+6
EHMSTAT WELCOME+2~
EHMSTAT( LOOP+8*, REPORT+5, REPORT+6
EHMTEXT REPORT+1~
EHMTEXT( REPORT+6*
EHMTEXT(1 REPORT+2*
EHMTEXT(2 REPORT+3*
IOF WELCOME+3
IOM WELCOME+4, WELCOME+5
X WELCOME+12~, EMAILS+1~, EMAILS+9~
XMSUB REPORT+1~, REPORT+7*
XMTEXT REPORT+1~, REPORT+8*
XMY WELCOME+2~
XMY( EMAILS+8*, EMAILS+14*
Y WELCOME+12~, WELCOME+16, EMAILS+1~, EMAILS+8, EMAILS+9~, EMAILS+14
ZTSAVE WELCOME+2~, WELCOME+19
ZTSAVE("*" WELCOME+18*
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