Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call