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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSNFDAMG

Package: National Drug File

Routine: PSNFDAMG


Information

PSNFDAMG ;BIR/DMA - On-Demand FDA Med Guide Display ; 7/19/21 9:24am

Source Information

Source file <PSNFDAMG.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$LOW^XLFSTR  
National Drug File 1 $$FDAMG^PSNAPIS  

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

Package Total Caller Graph
National Drug File 2 PSN FDA MED GUIDE PRINT QUEUE  PSNMEDG  
Outpatient Pharmacy 1 PSOFDAMG  

Entry Points

Name Comments DBIA/ICR reference
EN(VAPRDIEN) ; Entry point for FDA Med Guide On-Demand Printing
  • ICR #5517
    • Status: Active
    • Usage: Private
    PAUSE ;
    PRTURL(FDAMGURL) ; Prints the FDA Med Guide URL

    External References

    Name Field # of Occurrence
    $$GET1^DIQ EN+13
    ^DIR PAUSE+4
    $$FDAMG^PSNAPIS EN+2
    $$LOW^XLFSTR PRTURL+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"There is no FDA Medication Guide associated with this medication.",!
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !!,"The following URL provides the link to the FDA Medication Guide associated"
    • Line Location: EN+7
    Function Call: WRITE
    • Prompt: !,"with this medication. Copy/paste the URL below into a browser to access"
    • Line Location: EN+8
    Function Call: WRITE
    • Prompt: !,"the FDA Medication Guide for this drug:"
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+10
    Function Call: WRITE
    • Prompt: !,"The system is unable to display FDA Med Guide automatically."
    • Line Location: EN+27
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+28
    Function Call: WRITE
    • Prompt: !,"The FDA Medication Guide will not automatically open on Thin Client and some"
    • Line Location: EN+29
    Function Call: WRITE
    • Prompt: !,"types of encrypted sessions. If you do not believe this is the reason contact"
    • Line Location: EN+30
    Function Call: WRITE
    • Prompt: !,"your local technical support for assistance."
    • Line Location: EN+31
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+32
    Function Call: WRITE
    • Prompt: !,"You can copy/paste the link above into your browser's address bar to retrieve"
    • Line Location: EN+33
    Function Call: WRITE
    • Prompt: !,"the FDA Medication Guide."
    • Line Location: EN+34
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+35
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+3
    Function Call: WRITE
    • Prompt: !,"1) The browser did not open automatically. This may be due to the following:"
    • Line Location: PAUSE+14
    Function Call: WRITE
    • Prompt: !," - You might be connected to VistA via Thin Client or an encrypted session"
    • Line Location: PAUSE+15
    Function Call: WRITE
    • Prompt: !," that prevents the FDA Med Guide from automatically displaying. Please"
    • Line Location: PAUSE+16
    Function Call: WRITE
    • Prompt: !," copy and paste the URL link below into your browser's address bar to"
    • Line Location: PAUSE+17
    Function Call: WRITE
    • Prompt: !," retrieve the FDA Medication Guide:"
    • Line Location: PAUSE+18
    Function Call: WRITE
    • Prompt: !!
    • Line Location: PAUSE+19
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+19
    Function Call: WRITE
    • Prompt: !," - The computer might not have the required Java software component"
    • Line Location: PAUSE+20
    Function Call: WRITE
    • Prompt: !," installed or the software might not be functioning properly. Please,"
    • Line Location: PAUSE+21
    Function Call: WRITE
    • Prompt: !," contact technical support for assistance."
    • Line Location: PAUSE+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+23
    Function Call: WRITE
    • Prompt: !,"2) When doing a copy/paste of the link into the browser's address and an HTTP"
    • Line Location: PAUSE+26
    Function Call: WRITE
    • Prompt: !," 404 - File Not Found error is received. This may be due to the following:"
    • Line Location: PAUSE+27
    Function Call: WRITE
    • Prompt: !," - A common issue exists when the link is displayed in two lines in the"
    • Line Location: PAUSE+28
    Function Call: WRITE
    • Prompt: !," terminal screen. When you copy both lines at the same time and paste it"
    • Line Location: PAUSE+29
    Function Call: WRITE
    • Prompt: !," into the browser's address, the second line is ignored by the browser"
    • Line Location: PAUSE+30
    Function Call: WRITE
    • Prompt: !," resulting in a 'broken' link. To resolve this issue, copy and paste one"
    • Line Location: PAUSE+31
    Function Call: WRITE
    • Prompt: !," line at a time from the terminal screen into the browser's address to"
    • Line Location: PAUSE+32
    Function Call: WRITE
    • Prompt: !," make sure the complete link is used."
    • Line Location: PAUSE+33
    Function Call: WRITE
    • Prompt: !," - The FDA Medication Guide Server may be down at the moment. Please, wait"
    • Line Location: PAUSE+34
    Function Call: WRITE
    • Prompt: !," a few minutes and try again. If the problem persists, contact technical"
    • Line Location: PAUSE+35
    Function Call: WRITE
    • Prompt: !," support for assistance."
    • Line Location: PAUSE+36
    Function Call: WRITE
    • Prompt: !!,"3) The browser opened automatically, however you receive an HTTP 404 - File"
    • Line Location: PAUSE+38
    Function Call: WRITE
    • Prompt: !," Not Found error. This may be due to the following:"
    • Line Location: PAUSE+39
    Function Call: WRITE
    • Prompt: !," - The FDA Medication Guide Server may be down at the moment. Please, wait"
    • Line Location: PAUSE+40
    Function Call: WRITE
    • Prompt: !," a few minutes and try again. If the problem persists, contact technical"
    • Line Location: PAUSE+41
    Function Call: WRITE
    • Prompt: !," support for assistance."
    • Line Location: PAUSE+42
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+43
    Function Call: WRITE
    • Prompt: !,"1) If no FDA Medication Guide exists for a product that you believe should"
    • Line Location: PAUSE+45
    Function Call: WRITE
    • Prompt: !," have one, confirm that one is required by visiting the FDA website"
    • Line Location: PAUSE+46
    Function Call: WRITE
    • Prompt: !," (www.fda.gov). If one is required, log a support ticket to request its"
    • Line Location: PAUSE+47
    Function Call: WRITE
    • Prompt: !," addition. Please understand that there may be a delay between the time"
    • Line Location: PAUSE+48
    Function Call: WRITE
    • Prompt: !," that a new Medication Guide is posted to the FDA website and when it is"
    • Line Location: PAUSE+49
    Function Call: WRITE
    • Prompt: !," made available in VistA through a National Drug File data update patch."
    • Line Location: PAUSE+50
    Function Call: WRITE
    • Prompt: $E(X,1,80)
    • Line Location: PRTURL+2
    Function Call: WRITE
    • Prompt: !,$E(X,1,80)
    • Line Location: PRTURL+3
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+4

    Used in RPC

    RPC Name Call Tags
    PSN FDA MED GUIDE PRINT QUEUE RETRIEVE

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(59.7 - [#59.7] GET1^DIQ

    Label References

    Name Line Occurrences
    PAUSE EN+5, EN+37
    PRTURL EN+15

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DIR PAUSE+1~
    DIR("A" PAUSE+2*
    DIR(0 PAUSE+2*
    FDAMGFN EN+1~, EN+2*, EN+3, EN+13
    FDAMGURL EN+1~, EN+13*, EN+15, PRTURL~, PRTURL+1
    PCURL EN+1~
    PSNIP EN+1~
    STATUS EN+1~
    VAPRDIEN EN~, EN+2
    X EN+1~, PRTURL+1*, PRTURL+2, PRTURL+3*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All