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

Package: Outpatient Pharmacy

Routine: PSOFDAUT


Information

PSOFDAUT ;BIRM/MFR - FDA Med Guide Utilities ; 07 Jun 2005 8:39 PM

Source Information

Source file <PSOFDAUT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
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: 17

Package Total Caller Graph
Outpatient Pharmacy 15 PSOB  PSOFDAMG  PSOLBL1  PSOLBL2  PSOLBLN  PSOLBLN1  PSOLLL1  PSOLLL4  
PSOLLL8  PSOLSET  PSORXL  PSORXRP2  PSORXRPT  PSOSULB1  PSOSURST  
CMOP 2 PSXRPPL  PSXRXU  

Entry Points

Name Comments DBIA/ICR reference
SELPRT(DEFAULT) ; FDA Med Guide Printer Selection
  • ICR #5740
    • Status: Active
    • Usage: Private
    PRT ; Printer prompt
    PRTLST(SITE,PRTLST) ; Returns the List of FDA Medication Guide Printer for the Division
    ; Input: (r) SITE - Site IEN (#59)
    ; Output: PRTLST - Array containing list of FDA Med Guides Printers for the Division
    DEFPRT(SITE) ; Returns the Default FDA Medication Guide Printer for the Division
    ; Input: (r) SITE - Site IEN (#59)
    ; Output: DEFPRT - Device Name or blank (no Default)
    FDAMGDOC(RXIEN) ; Lists all FDA Med Guides for a specific Rx & Return Selection
    ; Input: (r) RXIEN - Prescription IEN (#52)
    ; Output: FDAMGDOC - FDA Med Guide PDF file name or blank, "^" (no selection)
    ASK ; Prompt for FDA Medication Guide Selection
    HELP ; List FDA Med Guides and prompt for selection
    FDAMGLST(RXIEN,ADDLST,MGLST) ; Return a list of all FDA Med Guides for a specific Rx
    ; Input: (r) RXIEN - Prescription IEN (#52)
    ; (o) ADDLST - Add Latest FDA Med Guide to the list? (Default: 0 (No))
    ; Output: MGLST - Array containing list of FDA Med Guides for the Rx (By Reference)
    MGONFILE(RXIEN) ; Is there an FDA Med Guide on File for the Prescription
    ; Input: (r) RXIEN - Pointer to the PRESCRIPTION file (#52)
  • ICR #5740
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%ZIS PRT+2
    ^%ZISC SELPRT+9, PRT+4, PRT+16
    $$GET1^DIQ SELPRT+7, SELPRT+17, PRT+5, PRTLST+7, PRTLST+8, DEFPRT+7, DEFPRT+8, DEFPRT+9, FDAMGLST+11, FDAMGLST+18
    , FDAMGLST+28
    ^DIR ASK+4
    $$FDAMG^PSNAPIS FDAMGLST+29, FDAMGLST+30, MGONFILE+9
    $$FMTE^XLFDT FDAMGLST+12, FDAMGLST+19

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,$$GET1^DIQ(59,PSOSITE,.01),"'s FDA Medication Guide Printer(s) on file:",!
    • Line Location: SELPRT+17
    Function Call: WRITE
    • Prompt: !?5,$P(PRTLST(I),"^",2)
    • Line Location: SELPRT+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRT+2
    Function Call: WRITE
    • Prompt: !,"This device cannot be used for printing FDA Medication Guides."
    • Line Location: PRT+7
    Function Call: WRITE
    • Prompt: !,"Please, contact your IRM and ask them to update the Windows"
    • Line Location: PRT+8
    Function Call: WRITE
    • Prompt: !,"Network Printer Name for this device.",$C(7)
    • Line Location: PRT+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: ?40,"Invalid selection.",$C(7)
    • Line Location: ASK+6
    Function Call: WRITE
    • Prompt: " ",$P(MGLST(X),"^",2)
    • Line Location: ASK+7
    Function Call: WRITE
    • Prompt: !,XX,!," # FL",?7,"FDA MED GUIDE FILE NAME",?64,"TYPE",?72,"DATE",!,XX
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !,$J(INDEX,2),?3,$J($P(MGLST(INDEX),"^"),2),?7,$P(MGLST(INDEX),"^",2)
    • Line Location: HELP+6
    Function Call: WRITE
    • Prompt: ?64,$P(MGLST(INDEX),"^",3),?72,$P(MGLST(INDEX),"^",4)
    • Line Location: HELP+7
    Routine Call
    • %ZIS
    • Line Location:
      • PRT+2
    Routine Call
    • DIR
    • Line Location:
      • ASK+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^%ZIS(1 - [#3.5] GET1^DIQ
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] GET1^DIQ
    52.032 GET1^DIQ
    ^PSX(550.2 - [#550.2] GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ
    59.0135 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(59 - [#59] PRTLST+5, DEFPRT+5, DEFPRT+6
    ^PSDRUG - [#50] MGONFILE+7, MGONFILE+8
    ^PSRX - [#52] FDAMGLST+8, FDAMGLST+9, FDAMGLST+10, FDAMGLST+15, FDAMGLST+16, FDAMGLST+17, MGONFILE+5, MGONFILE+6

    Label References

    Name Line Occurrences
    $$DEFPRT SELPRT+13
    ASK ASK+6
    FDAMGLST ASK+2
    HELP ASK+2
    PRT PRT+4
    PRTLST SELPRT+15

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS SELPRT+4~, PRT+1*, PRT+2!
    %ZIS("A" PRT+1*
    %ZIS("B" PRT+2*
    A FDAMGLST+4~, FDAMGLST+22*, FDAMGLST+23*, FDAMGLST+24
    ADDLST FDAMGLST~, FDAMGLST+27
    B FDAMGLST+4~, FDAMGLST+22*, FDAMGLST+23*, FDAMGLST+24
    CMP FDAMGLST+4~, FDAMGLST+15*, FDAMGLST+16, FDAMGLST+17
    CNT PRTLST+3~, PRTLST+4*, PRTLST+6*, PRTLST+7, PRTLST+8
    DEFAULT SELPRT~, SELPRT+9
    DEFPRT SELPRT+4~, SELPRT+11*, SELPRT+13*, PRT+2, DEFPRT+3~, DEFPRT+4*, DEFPRT+9*, DEFPRT+10
    DEVIEN SELPRT+4~, PRT+5*
    DIR ASK+1~
    DIR("?" ASK+4*
    DIR("??" ASK+4*
    DIR("A" ASK+3*
    DIR(0 ASK+3*
    DIRUT ASK+1~, ASK+5
    DRGIEN FDAMGLST+4~, FDAMGLST+28*, MGONFILE+4~, MGONFILE+6*, MGONFILE+7, MGONFILE+8
    DTOUT ASK+1~, ASK+5
    DUOUT ASK+1~, ASK+5
    FDAMG FDAMGLST+4~, FDAMGLST+9*, FDAMGLST+12, FDAMGLST+16*, FDAMGLST+19
    FDAMGFN MGONFILE+4~, MGONFILE+9*, MGONFILE+10
    FILL FDAMGLST+4~, FDAMGLST+10*, FDAMGLST+12
    I SELPRT+4~, SELPRT+18*
    INDEX HELP+1~, HELP+4*, HELP+5, HELP+6, HELP+7, FDAMGLST+4~, FDAMGLST+22*, FDAMGLST+24*, FDAMGLST+30*
    IO PRT+4, PRT+14
    IO("Q" PRT+2!
    IO(0 PRT+4, PRT+14
    ION PRT+6, PRT+11
    IOP PRT+2!
    >> IOS PRT+5
    LBL FDAMGLST+4~, FDAMGLST+8*, FDAMGLST+9, FDAMGLST+10, FDAMGLST+11
    MGDATE FDAMGLST+4~, FDAMGLST+11*, FDAMGLST+12, FDAMGLST+18*, FDAMGLST+19
    MGLST ASK+1~, ASK+2, FDAMGLST~, FDAMGLST+22!
    MGLST( ASK+6, ASK+7, ASK+8, HELP+4, HELP+5, HELP+6, HELP+7, FDAMGLST+24*, FDAMGLST+30*
    MGLST(999 ASK+3
    NDFIEN FDAMGLST+4~, FDAMGLST+28*, FDAMGLST+29, FDAMGLST+30, MGONFILE+4~, MGONFILE+8*, MGONFILE+9
    NTWRKNAM SELPRT+4~, PRT+5*, PRT+6, PRT+11
    >> POP PRT+2
    PRT PRTLST+3~, PRTLST+5*, PRTLST+7, PRTLST+8, DEFPRT+3~, DEFPRT+5*, DEFPRT+6, DEFPRT+7
    >> PRTIEN DEFPRT+7*, DEFPRT+8, DEFPRT+9
    PRTLST SELPRT+4~, SELPRT+15, PRTLST~
    PRTLST( SELPRT+18, PRTLST+7*, PRTLST+8*
    PRTLST(0 SELPRT+16
    >> PSOSITE SELPRT+7, SELPRT+13, SELPRT+15, SELPRT+17
    RFL FDAMGLST+4~
    RXIEN FDAMGDOC~, ASK+2, FDAMGLST~, FDAMGLST+8, FDAMGLST+9, FDAMGLST+10, FDAMGLST+11, FDAMGLST+15, FDAMGLST+16, FDAMGLST+17
    , FDAMGLST+28, MGONFILE~, MGONFILE+5, MGONFILE+6
    SELPRT SELPRT+4~, SELPRT+9*, SELPRT+10, SELPRT+11, PRT+11*, PRT+14*, PRT+18
    SITE PRTLST~, PRTLST+5, PRTLST+7, PRTLST+8, DEFPRT~, DEFPRT+5, DEFPRT+6, DEFPRT+7
    TMPLST FDAMGLST+4~, FDAMGLST+6!
    TMPLST( FDAMGLST+12*, FDAMGLST+19*, FDAMGLST+23, FDAMGLST+24
    VALID SELPRT+4~, PRT+3*, PRT+4, PRT+6*
    >> X ASK+6, ASK+7, ASK+8
    XX HELP+1~, HELP+2*, HELP+3
    Z FDAMGLST+4~, FDAMGLST+10*, FDAMGLST+17*, FDAMGLST+18, FDAMGLST+19
    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