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

Package: Outpatient Pharmacy

Routine: PSOBPSU4


Information

PSOBPSU4 ;AITC/MRD - BPS (ECME) Utilities 4 ;10/29/2020

Source Information

Source file <PSOBPSU4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 3 RXACT^PSOBPSU2  CHANGE^PSOSUCH1  $$EBILLABLE^PSOSULB2  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 4 PSOORED2  PSOORED6  PSOREJP2  PSOSUCHG  
CMOP 1 PSXRPPL2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
BYPASSACT(PSORX) ; 'BY' hidden action, Bypass 3/4 Day Supply.
FLAG(PSORX,PSOFILL) ; Determine how the bypass flag is currently set.
  • ICR #7212
    • Status: Active
    • Usage: Controlled Subscription
    SETFLAG(PSORX,PSOFILL,PSOFLAG) ; Set the bypass flag to the value passed.
    BYPASSOPT ; Entry point for menu option Bypass 3/4 Day Supply.
    B1 ;
    B2 ;
    BQ ;
    SUSPFILL(PSORX) ; Determine the fill# currently on the suspense queue.
    CLRSHD(PSORX,PSOFILL) ; Clear Suspense Hold Date

    External References

    Name Field # of Occurrence
    ^DIC B1+9
    FILE^DIE SETFLAG+6, SETFLAG+10, B2+48, CLRSHD+16
    $$GET1^DIQ FLAG+5, FLAG+6, B2+11, B2+12, B2+13, B2+56, B2+57, B2+58, SUSPFILL+17, SUSPFILL+21
    , SUSPFILL+25
    ^DIR BYPASSACT+24, BYPASSACT+45, B1+42, B2+21
    RXACT^PSOBPSU2 BYPASSACT+60, B2+43
    CHANGE^PSOSUCH1 B2+67
    $$EBILLABLE^PSOSULB2 BYPASSACT+21, B1+31
    FULL^VALM1 BYPASSACT+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"***This option only applies to ePharmacy billable prescriptions***",!
    • Line Location: BYPASSACT+22
    Function Call: WRITE
    • Prompt: !!,"Currently, Bypass 3/4 Day Supply is set to YES."
    • Line Location: BYPASSACT+34
    Function Call: WRITE
    • Prompt: !!,"If you continue, Bypass 3/4 Day Supply will be set to NO and the 3/4"
    • Line Location: BYPASSACT+35
    Function Call: WRITE
    • Prompt: !,"Days Supply logic will apply when the RX is sent to CMOP.",!
    • Line Location: BYPASSACT+36
    Function Call: WRITE
    • Prompt: !!,"Currently, Bypass 3/4 Day Supply is set to NO."
    • Line Location: BYPASSACT+39
    Function Call: WRITE
    • Prompt: !!,"If you continue, Bypass 3/4 Day Supply will be set to YES and the 3/4"
    • Line Location: BYPASSACT+40
    Function Call: WRITE
    • Prompt: !,"Days Supply logic will be bypassed when the RX is sent to CMOP.",!
    • Line Location: BYPASSACT+41
    Function Call: WRITE
    • Prompt: !!,"Select one or more prescriptions currently on the CMOP suspense"
    • Line Location: BYPASSOPT+9
    Function Call: WRITE
    • Prompt: !,"queue. For each prescription entered, the 3/4 days Supply logic"
    • Line Location: BYPASSOPT+10
    Function Call: WRITE
    • Prompt: !,"will be bypassed when the CMOP process runs. This will apply only"
    • Line Location: BYPASSOPT+11
    Function Call: WRITE
    • Prompt: !,"to the current fill on each ePharmacy billable prescription"
    • Line Location: BYPASSOPT+12
    Function Call: WRITE
    • Prompt: !,"selected.",!
    • Line Location: BYPASSOPT+13
    Function Call: WRITE
    • Prompt: !,*7,?8,"RX is not on CMOP suspense queue"
    • Line Location: B1+25
    Function Call: WRITE
    • Prompt: !,*7,?8,"RX is not ePharmacy billable"
    • Line Location: B1+32
    Function Call: WRITE
    • Prompt: !!,"Prescriptions Selected:"
    • Line Location: B2+7
    Function Call: WRITE
    • Prompt: !?2,$$GET1^DIQ(52,PSORXIEN,.01,"E")
    • Line Location: B2+11
    Function Call: WRITE
    • Prompt: ?13,$E($$GET1^DIQ(52,PSORXIEN,6,"E"),1,30)
    • Line Location: B2+12
    Function Call: WRITE
    • Prompt: ?45,$E($$GET1^DIQ(52,PSORXIEN,2,"E"),1,30)
    • Line Location: B2+13
    Function Call: WRITE
    • Prompt: !!,"When the CMOP suspense queue is run, the 3/4 Days Supply logic"
    • Line Location: B2+16
    Function Call: WRITE
    • Prompt: !,"will be bypassed for the current fill for each ePharmacy billable"
    • Line Location: B2+17
    Function Call: WRITE
    • Prompt: !,"prescription selected.",!
    • Line Location: B2+18
    Function Call: WRITE
    • Prompt: !!,?5,"Rx",?16,"Drug",?48,"Patient",?63,"New Suspense Date"
    • Line Location: B2+24
    Function Call: WRITE
    • Prompt: !?2,$$GET1^DIQ(52,PSORXIEN,.01,"E")
    • Line Location: B2+56
    Function Call: WRITE
    • Prompt: ?13,$E($$GET1^DIQ(52,PSORXIEN,6,"E"),1,30)
    • Line Location: B2+57
    Function Call: WRITE
    • Prompt: ?45,$E($$GET1^DIQ(52,PSORXIEN,2,"E"),1,18)
    • Line Location: B2+58
    Function Call: WRITE
    • Prompt: ?63
    • Line Location: B2+59
    Routine Call
    • DIC
    • Line Location:
      • B1+9
    Routine Call
    • DIE
    • Line Location:
      • SETFLAG+6
      • SETFLAG+10
      • B2+48
      • CLRSHD+16
    Routine Call
    • DIR
    • Line Location:
      • BYPASSACT+24
      • BYPASSACT+45
      • B1+42
      • B2+21

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ
    52.1 GET1^DIQ
    ^PS(52.5 - [#52.5] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] SUSPFILL+12, CLRSHD+13
    ^PSRX - [#52] BYPASSACT+15

    Label References

    Name Line Occurrences
    $$FLAG BYPASSACT+29, CLRSHD+7
    $$SUSPFILL BYPASSACT+58, B1+23
    B1 B1+24, B1+31, B1+38, B1+50
    B2 B1+13
    BQ B1+14, B2+2, B2+22
    CLRSHD BYPASSACT+67
    SETFLAG BYPASSACT+52, B2+38

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DEAD BYPASSOPT+6~, B2+65*
    DIC BYPASSOPT+6~, B1+2!, B1+4*
    DIC("A" B1+6*
    DIC("T" B1+7*
    DIC(0 B1+5*
    DIR BYPASSACT+8~, BYPASSOPT+6~
    DIR("A" BYPASSACT+23*, BYPASSACT+44*, B1+40*, B2+20*
    DIR("B" BYPASSACT+44*, B1+41*, B2+20*
    DIR(0 BYPASSACT+23*, BYPASSACT+44*, B1+39*, B2+20*
    DT B2+47, B2+66
    DUZ BYPASSACT+60, B2+43
    INDT BYPASSOPT+6~, B2+66*
    PSOARRAY BYPASSOPT+6~, B2+2
    PSOARRAY( B1+38, B1+43!, B1+48*, B2+10, B2+31, B2+33, B2+34
    PSOCOMMENT BYPASSACT+8~, BYPASSACT+57*, BYPASSACT+60, BYPASSOPT+6~, B2+42*, B2+43
    PSOFILL BYPASSACT+8~, BYPASSACT+15*, BYPASSACT+16*, BYPASSACT+21, BYPASSACT+29, BYPASSACT+52, BYPASSACT+60, BYPASSACT+67, FLAG~, FLAG+5
    , FLAG+6, SETFLAG~, SETFLAG+4, SETFLAG+9, BYPASSOPT+6~, B2+33*, B2+38, B2+43, B2+67, SUSPFILL+8~
    , CLRSHD~, CLRSHD+7
    PSOFLAG BYPASSACT+8~, BYPASSACT+29*, BYPASSACT+33, BYPASSACT+51*, BYPASSACT+52, BYPASSACT+57, BYPASSACT+67, SETFLAG~, SETFLAG+5, SETFLAG+9
    PSOPROMPT BYPASSOPT+6~, BYPASSOPT+15*, B1+6, B1+18*
    PSOREASON BYPASSACT+8~, BYPASSACT+58*, BYPASSACT+59*, BYPASSACT+60
    PSORX BYPASSACT~, BYPASSACT+15, BYPASSACT+21, BYPASSACT+29, BYPASSACT+52, BYPASSACT+58, BYPASSACT+60, BYPASSACT+67, FLAG~, FLAG+5
    , FLAG+6, SETFLAG~, SETFLAG+5, SETFLAG+9, BYPASSOPT+7~, B1+17*, B1+40, SUSPFILL~, SUSPFILL+12, CLRSHD~
    , CLRSHD+7, CLRSHD+13
    PSORXIEN BYPASSOPT+7~, B1+16*, B1+23, B1+31, B1+38, B1+43, B1+48, B2+9*, B2+10*, B2+11
    B2+12, B2+13, B2+30*, B2+31*, B2+33, B2+34, B2+38, B2+43, B2+56, B2+57
    B2+58, B2+67
    PSOSUSPFILL BYPASSOPT+7~, B1+23*, B1+24, B1+31, B1+48
    PSOSUSPIEN BYPASSOPT+7~, B2+34*, B2+47, B2+64, SUSPFILL+8~, SUSPFILL+12*, SUSPFILL+13, SUSPFILL+17, SUSPFILL+21, SUSPFILL+25
    PSOX SETFLAG+2~, BYPASSOPT+7~, CLRSHD+12~, CLRSHD+13*, CLRSHD+14, CLRSHD+15
    PSOX( SETFLAG+9*, B2+47*, CLRSHD+15*
    PSOX(52 SETFLAG+5*
    SFN BYPASSOPT+7~, B2+64*
    >> VALMBCK BYPASSACT+11*, BQ+2*
    X BYPASSOPT+7~, B1+13
    Y BYPASSACT+8~, BYPASSACT+47, BYPASSOPT+7~, B1+14, B1+16, B1+17, B1+43, B2+22
    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