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

Package: Outpatient Pharmacy

Routine: PSORXL


Information

PSORXL ;BHAM ISC/SAB - action to be taken on prescriptions ; May 11, 2023@08:10:09

Source Information

Source file <PSORXL.m>

Entry Points

Name Comments DBIA/ICR reference
LBL ;
TRI ;Tricare
SETP
PASS ;
EX
Q
Q1
Q2 ; Checking FDA Med Guide printer
QLBL
  • ICR #1969
    • Status: Active
    • Usage: Private
    PLBL
    QPRF
    QUEUP
    S
    SUS
    SUSL1
    H1
    H
    D1
  • ICR #1969
    • Status: Active
    • Usage: Private
    RXS
    RXSQUIT
    P
    P1
    RXSQ
    FDARX(PPL) ; Check if any Rx to be printed has an FDA Med Guide
    RSAVE
    RREST
    OPAI ;This section of code will display where an RX is routed.
    SETOP(DINF,DRX,DDRG) ; Set OPAI array
    RTE() ; get route for RX
    PK1 ;
    PK ;
    DRUGINT ;441 PAPI

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LBL+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: PASS+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: PASS+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: Q1+0
    Function Call: WRITE
    • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
    • Line Location: Q2+6
    Function Call: WRITE
    • Prompt: !!,"No Label(s) printed.",!!
    • Line Location: QLBL+3
    Function Call: WRITE
    • Prompt: !!,"LABEL(S) QUEUED TO PRINT",!!
    • Line Location: QLBL+15
    Function Call: WRITE
    • Prompt: $C(7),!,"PROFILES MUST BE SENT TO PRINTER !!",!
    • Line Location: PLBL+1
    Function Call: WRITE
    • Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", "
    • Line Location: H+4
    Function Call: WRITE
    • Prompt: !!,"You have selected the following Rx(s) to be pulled from suspense:",!
    • Line Location: RXS+2
    Function Call: WRITE
    • Prompt: !," Rx # ",$P($G(^PSRX(+$G(RXSS),0)),"^"),?23,$P($G(^PSDRUG(+$P($G(^PSRX(+$G(RXSS),0)),"^",6),0)),"^")
    • Line Location: RXS+3
    Function Call: WRITE
    • Prompt: !!,"Rx(s) will remain in Suspense!",!
    • Line Location: RXS+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: P+1
    Function Call: WRITE
    • Prompt: !,"PRESCRIPTIONS SENT TO:"
    • Line Location: OPAI+49
    Function Call: WRITE
    • Prompt: !?3,DEV
    • Line Location: OPAI+50
    Function Call: WRITE
    • Prompt: !
    • Line Location: OPAI+50
    Function Call: WRITE
    • Prompt: !?5,RX,?20,$P(OPAI(DEV,RX),"^")
    • Line Location: OPAI+51
    Function Call: WRITE
    • Prompt: !,"STORAGE DEVICES"
    • Line Location: OPAI+52
    Function Call: WRITE
    • Prompt: !?3,II
    • Line Location: OPAI+53
    Function Call: WRITE
    • Prompt: !!,$C(7),"Drug Interaction Rx(s) "
    • Line Location: DRUGINT+1
    Function Call: WRITE
    • Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", "
    • Line Location: DRUGINT+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call